Code: Select all
Function LoadTexImage(back$,tex$)
img_back=LoadImage(back)
img_tex=LoadImage(tex)
img_ready=MakeImage(ImageWidth(img_back),ImageHeight(img_back))
DrawToImage img_ready
For x=0 To ImageWidth(img_back)/ImageWidth(img_tex)
For y=0 To ImageHeight(img_back)/ImageHeight(img_tex)
DrawImage img_tex,x*ImageWidth(img_tex),y*ImageHeight(img_tex)
Next y
Next x
DrawToScreen
DrawImage img_back,0,0
For x=0 To ImageWidth(img_back)
For y=0 To ImageHeight(img_back)
If GetPixel(x,y)=-16777216 Then
DrawToImage img_ready
Color 0,0,0
Dot x,y
DrawToScreen
EndIf
Next y
Next x
Return img_ready
End Function
SCREEN 800,800
img=LoadTexImage("Media\level.bmp","Media\grass.bmp")
DrawImage img,0,0
DrawScreen
WaitKey
back$= Texturoitavan kuvan pohja! huom. mustaa väriä ei texturoida kaikki muuta värit kyllä!
tex$= Textuuri jolla kuva päällystetään
PS.risuja ja ruusuja kiitos!