Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
). I would be happy to make it with TinyC5 & codef, but after some test, it was really too slow. But perhaps I will make a port just for the fun 
(Yes Raizor, I will make an OpenGl port too, sure! 
)
)! cco = 0
For cc = 0 To 11
letter = (Asc(UCase(Mid(t.s, tptr+cc, 1)))-32)
xf = ((letter % 10)*64)
x.f = xf/640 ; find the x postion in matrix
yf = (5-((letter - (letter%10))/10))*50
y.f = yf/300 ; find the x position in matrix
larg.f = 64*1/640 ; find the size of the font in matrix depth
haut.f = 50*1/300
glLoadIdentity_() ;Reset The Current Matrix
glTranslatef_((cco+sco)-10.0,0,-20.0) ;Center On X, Y, Z Axis
glPushMatrix_()
glBindTexture_(#GL_TEXTURE_2D,texture(0)) ;Select Our Texture
glBegin_(#GL_QUADS)
glTexCoord2f_(x, y) : glVertex3f_(-1.0,-1.0, 0.0) ;Bottom Left Of The Texture and Quad
glTexCoord2f_((x+larg), y) : glVertex3f_( 1.0,-1.0, 0.0) ;Bottom Right Of The Texture and Quad
glTexCoord2f_((x+larg), (y+haut)) : glVertex3f_( 1.0, 1.0, 0.0) ;Top Right Of The Texture and Quad
glTexCoord2f_(x, (y+haut)) : glVertex3f_(-1.0, 1.0, 0.0) ;Top Left Of The Texture and Quad
glEnd_()
glPopMatrix_()
cco = cco + 2 ; here is the problem : why it works with 2 ??? dunno...
Next
sco-0.2
If sco<=-2.0
sco = 0.0
tptr+1
If tptr > (Len(t.s)-12)
tptr = 1
EndIf
EndIf
) !!!
)
Yep, lot of Atari ST intro include "rasters effects" like plasmas...
#include <stdio.h>
int main()
{
printf("goodbye, dad\n");
return 0;
}
from http://www.muppetlabs.com/~breadbox/rip-dmr.html
Procedure.l LoadGLTextures() ;Load Bitmaps And Convert To Textures
Protected Status.l=#False ;Status Indicator
Protected Dim *TextureImage.AUX_RGBImageRec(1) ;Create Storage Space For The Texture
;Load The Bitmap, Check For Errors, If Bitmap's Not Found Quit
*TextureImage(0)=LoadBMP("Data/Crate.bmp")
If *TextureImage(0)
Status=#True ;Set The Status To TRUE
glGenTextures_(3,@texture(0)) ;Create Three Textures
;Create Nearest Filtered Texture
glBindTexture_(#GL_TEXTURE_2D,texture(0))
glTexParameteri_(#GL_TEXTURE_2D,#GL_TEXTURE_MAG_FILTER,#GL_NEAREST)
glTexParameteri_(#GL_TEXTURE_2D,#GL_TEXTURE_MIN_FILTER,#GL_NEAREST)
glTexImage2D_(#GL_TEXTURE_2D,0,3,*TextureImage(0)\sizeX,*TextureImage(0)\sizeY,0,#GL_RGB,#GL_UNSIGNED_BYTE,*TextureImage(0)\Data)
;Create Linear Filtered Texture
glBindTexture_(#GL_TEXTURE_2D,texture(1))
glTexParameteri_(#GL_TEXTURE_2D,#GL_TEXTURE_MAG_FILTER,#GL_LINEAR)
glTexParameteri_(#GL_TEXTURE_2D,#GL_TEXTURE_MIN_FILTER,#GL_LINEAR)
glTexImage2D_(#GL_TEXTURE_2D,0,3,*TextureImage(0)\sizeX,*TextureImage(0)\sizeY,0,#GL_RGB,#GL_UNSIGNED_BYTE,*TextureImage(0)\Data)
;Create MipMapped Texture
glBindTexture_(#GL_TEXTURE_2D,texture(2))
glTexParameteri_(#GL_TEXTURE_2D,#GL_TEXTURE_MAG_FILTER,#GL_LINEAR)
glTexParameteri_(#GL_TEXTURE_2D,#GL_TEXTURE_MIN_FILTER,#GL_LINEAR_MIPMAP_NEAREST)
gluBuild2DMipmaps_(#GL_TEXTURE_2D,3,*TextureImage(0)\sizeX,*TextureImage(0)\sizeY,#GL_RGB,#GL_UNSIGNED_BYTE,*TextureImage(0)\Data)
EndIf
If *TextureImage(0) ;If Texture Exists
If *TextureImage(0)\Data ;If Texture Image Exists
FreeMemory(*TextureImage(0)\Data) ;Free The Texture Image Memory
EndIf
FreeMemory(*TextureImage(0)) ;Free The Image Structure
EndIf
ProcedureReturn Status ;Return The Status
EndProcedure
, if I create a memory struct, you should free it after Procedure LigneRetro(x1,y1,x2,y2,couleur)
coul.q = couleur<<32 + couleur
If Abs(x2-x1) > Abs(y2-y1)
If x1>x2
Swap x1,x2
Swap y1,y2
EndIf
y.f = y1
inc.f = ((y2-y1)/Abs(x2-x1))
For j = x1 To x2
PokeQ(*ecran + Int(y)*lgEcran*2 + j*8 , coul) ; 2 pixels up
PokeQ(*ecran + Int(y)*lgEcran*2 + lgEcran + j*8 , coul) ; 2 pixels down
y = y + inc
Next
Else
If Abs(x2-x1) = Abs(y2-y1)
If x1>x2
Swap x1,x2
Swap y1,y2
EndIf
y.f = y1
inc = ((y2-y1)*1)/(Abs(x2-x1)*1)
For j = x1 To x2
PokeQ(*ecran + Int(y)*lgEcran*2 + j*8 , coul)
PokeQ(*ecran + Int(y)*lgEcran*2 + lgEcran + j*8 , coul)
y = y + inc
Next
Else
If y1>y2
Swap x1,x2
Swap y1,y2
EndIf
x.f = x1
inc.f = ((x2-x1)/Abs(y2-y1))
For j = y1 To y2
PokeQ(*ecran + j*lgEcran*2 + Int(x)*8 , coul)
PokeQ(*ecran + j*lgEcran*2 + lgEcran + Int(x)*8 , coul)
x = x + inc
Next
EndIf
EndIf
EndProcedure
(The compilers are good today, but who knows )