TransformSprite3D() - please 4 triangels
Posted: Sun Apr 27, 2003 12:26 am
I have tested this function and i must say: At the moment useless.
Please make 4 Triangles (a X - structure) and i think, it will be look nicer.
Look at this:
It looks bad!
Please make 4 Triangles (a X - structure) and i think, it will be look nicer.
Look at this:
Code: Select all
ok=1
;erstmal den zu scrollenden Hintergrund laden
If InitSprite()
If InitSprite3D()
If OpenWindow(0,0,400,640,240,0,"Hallo")
If OpenWindowedScreen(WindowID(),0,0,640,240,0,0,0)
ok=0
EndIf
EndIf
EndIf
EndIf
If ok
MessageRequester("SW-Intro","Irgendwas ist schief gelaufen",0)
End
EndIf
Debug "create"
CreateSprite(1,256,256,#PB_Sprite_Texture)
For i=0 To 256*2
UseBuffer(1)
ClearScreen(255,0,255)
UseBuffer(-1)
StartDrawing(SpriteOutput(1))
Circle(159,256-i,50,RGB(255,255,0))
LineXY(0,0,256,256,RGB(255,255,255))
StopDrawing()
DisplaySprite(1,320,0)
CreateSprite3D(0,1)
; Debug "3d"
If Start3D()
obenx=100
obeny=0
TransformSprite3D(0,obenx,obeny ,319-obenx,obeny, 319,239 ,0,239)
DisplaySprite3D(0,0,0)
Stop3D()
EndIf
FlipBuffers()
Next
Delay(2000)