TransformSprite3D() - please 4 triangels

[GPI]

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:

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)

It looks bad!