|
Post by PeterMaria on Jun 30, 2015 9:22:04 GMT -5
Hello Sub SprSetImage(no,x,y,w1,h1) NewSprite(no) SprSetxCentre(0):SprSetyCentre(0) SprSetZOrder(1) SprSetSize(w1,h1) SprSetPos(x,y) End Sub
dim FO = LoadTex("fonts/font01.png") dim HO = LoadTex("png/hop1.png")
font(FO) Color(80,255,0) TextMode (TEXT_OVERLAID) locate 3, 0: print "MY BROTHER HAS NO TRANSPARENT KEY." locate 3, 1: print "WHAT IS THAT FOR A MONKEYSHINE!"
while scankeydown(27)=0 glClearColor(.5,.5,.5,1) glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT) glLoadIdentity() glTranslatef(0, 0, -3) glEnable(GL_TEXTURE_2D) glBindTexture(GL_TEXTURE_2D,HO) glBegin(GL_QUADS) glTexCoord2f(0,1) : glVertex2f(-1, 1) glTexCoord2f(1,1) : glVertex2f( 1, 1) glTexCoord2f(1,0) : glVertex2f( 1,-1) glTexCoord2f(0,0) : glVertex2f(-1,-1) glEnd()
SprSetImage(HO,50,50,128,128) DrawText() swapbuffers() waittimer(10) wend
Attachments:png.zip (14.24 KB)
|
|
|
Post by matthew on Jun 30, 2015 11:52:07 GMT -5
Thanks, Peter. :-)
|
|