|
Post by PeterMaria on Jul 16, 2015 15:05:51 GMT -5
Hello, TextMode(TEXT_BUFFERED)
Sub Sprite(no,x,y,w1,h1) NewSprite(no) SprSetxCentre(0) SprSetyCentre(0) SprSetZOrder(1) SprSetSize(w1,h1) SprSetPos(x,y) End Sub
dim s1=LoadTex("png/love1.png") dim a#,b#,zx#,zy#,x#,y#,z#,y2#,x2#,y3#,x3#,z2#,sx#,sy# while scankeydown(27)=0 'glClearColor(0,0,0,1) 'glClear(GL_COLOR_BUFFER_BIT) zx# = zx# + 2 zy# = zy# + 2 a# = zx# / 99 b# = zy# / 99 for x#= -1 to 1 step .5 for y#= -1 to 1 step .5 for z#= -1 to 1 step .5 y2# = y# x2# = x# * cos(a#) - y2# * sin(a#) y3# = x# * sin(a#) + y2# * cos(a#) y2# = y3# y3# = y2# * cos(-b#) - z# * sin(-b#) z2# = y2# * sin(-b#) + z# * cos(-b#) sx# = x2# * (z2# + 2) sy# = y3# * (z2# + 2) Sprite(s1,sx#*128+380,sy#*42+190,96,96) next next next DrawText() WaitTimer(20) ClearSprites() wend
Attachments:png.zip (13.19 KB)
|
|
|
Post by matthew on Jul 16, 2015 15:36:39 GMT -5
It looks very strange Peter. :-)
|
|