Показать сообщение отдельно
Старый 25.08.2007, 14:56   #11
Horror
Бывалый
 
Регистрация: 09.09.2006
Сообщений: 656
Написано 54 полезных сообщений
(для 110 пользователей)
Re: Полезный конкурс

Идея хорошая! но я думую это не стоило называть конкурсом
(в моем понимание конкур это то что если твое работа дейиствительно хороша то ты можешь получить вознаграждение) а так никто ее не оценивает и соответсвенно никто кому это не надо!
Еслибы я был гуру) я бы не стал писать свои функции
не потомучто не хочу , а потомучто мне это не надо)
а новички всеровно этот раздел не найдут а создадут свою тему !!
типо ИМХО


Вот считаю эти функции полезными (писал их не я ,просто пользуюсь)

Function MaskTexture(Texture, Red, Green, Blue)
Local MaskColor = (Red Shl 16) Or (Green Shl 8) Or Blue
Local MaskSizeX = TextureWidth(Texture)
Local MaskSizeY = TextureHeight(Texture)
Local MaskBuffer = TextureBuffer(Texture)
LockBuffer(MaskBuffer)
For x = 0 To MaskSizeX
For y = 0 To MaskSizeY
Pixel = ReadPixelFast(x, y, MaskBuffer) And $00FFFFFF
If (Pixel = MaskColor) Then
WritePixelFast(x, y, Pixel, MaskBuffer)
Else
WritePixelFast(x, y, Pixel Or $FF000000, MaskBuffer)
EndIf
Next
Next
UnlockBuffer(MaskBuffer)
End Function
-эта функция делайт альфоканал у созданой текстуры ! ВАЖНО: CreateTexture(x,y,2 или 4)
___________________
Function CreateSquare() 
mesh=CreateMesh() 
surf=CreateSurface(mesh) 
v1=AddVertex(surf, 1, 1,0, 1, 0) 
v2=AddVertex(surf, -1, 1,0, 0, 0) 
v3=AddVertex(surf, -1,  -1,0, 0, 1) 
v4=AddVertex(surf, 1,  -1,0, 1, 1) 
AddTriangle(surf, 1, 0, 3) 
AddTriangle(surf, 1, 3, 2) 
return mesh 
End Function
-Создаем квад (два треугольника) удобно для панелек имхо
(Offline)
 
Ответить с цитированием