|
Post by PeterMaria on Jul 22, 2015 13:08:11 GMT -5
Hello, TextMode(Text_BUFFERED) ResizeSpriteArea(640,480) Declare Sub Image(no,sx,sy,wx,hx) dim b = loadtex("png/back1.png") dim c = loadtex("png/circle.png") dim x#=300,y#=200,e#=0.05,dx#,dy#,tx#,ty#
while scankeydown(27)=0 image(b,0,0,640,480) tx# = Mouse_x()*640-32 dx# = tx#-x# if abs(dx#) >1 then x# =x#+dx#*e# end if ty# = Mouse_y()*480-32 dy# = ty#-y# if abs(dy#) >1 then y# = y#+dy#*e# end if image(c,x#,y#,64,64)
drawtext() waittimer(20) ClearSprites() wend
Sub Image(no,sx,sy,wx,hx) NewSprite(no) SprSetxCentre(0):SprSetyCentre(0) SprSetZOrder(1) SprSetSize(wx,hx) SprSetPos(sx,sy) SprSetBlendFunc(GL_SRC_ALPHA,GL_ONE) End Sub
Attachments:png.zip (48.87 KB)
|
|
|
Post by matthew on Jul 22, 2015 13:38:34 GMT -5
That's really innovative, Peter. :-)
|
|