Freebasic Stuff

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|291\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Basic Basement -> Freebasic Stuff
Sat, 15 Sep 2007, 07:11
shockwave	I remember some of the people here from Blitz Coder and probably some of you remember how I used to plaster my GFX demos all over the place. I learned more languages since I used to post those old showcases and now I mainly code in Freebasic. I am glad that there is a section of this board that allows postings in other languages, so I will include the source to one of my demos in this post so you can see what a freebasic program looks like. Before that I want to tell you about why I chose Freebasic. I get similar results to C++, in terms of flexibility, size, speed. It effortlessly allows inclusion of assembly language, the latest version of Freebasic allows you to use either structured programming or OOP, use directx, opengl, sdl, tinyptc, pixeltoaster, freebasic gfx, whatever lib easily. Static and DLLs are both supported. There are libraries available to play future composer songs, c64 sid songs, .wav, and all tracker songs. I have released something like 20 small intros into the scene using freebasic now. There are even people who have used Freebasic to create 1kb intros using pixelshaders. About the intro, it was made to promote my friends demo scene portal. It's an old intro and I've made much better since then. I am not sure about posting some of them as they were created for release groups.. The intros themselves have no illegal content though, but as this is only my first post here I do not want to annoy anyone. Here is a link to the exectuable version; www.intro-inferno.com/production.php?id=1400 And the source is below (this source has had the gfx and music removed so it doesn't need to include anything and will run with no problems); Before the code I really hope this won't degenerate into a "my language is better than yours" lamer diuscussion, but for those who are interested in taking a look at some freebasic source, here you are; 'SHOCKWAVE OF SURPRISE ! PRODUCTIONS 2006 OPTION STATIC OPTION EXPLICIT #define alpha(s,d) ((((s and &hff00ff)(s shr 24)+(d and &hff00ff)(256-(s shr 24)))and &hff00ff00)or(((s and &hff00)(s shr 24)+(d and &hff00)(256-(s shr 24)))and &hff0000))shr 8 CONST XRES = 640 CONST YRES = 480 CONST HALFX = XRES/2 CONST HALFY = YRES/2 CONST PCLIP = 1 dim shared cun as double DIM SHARED BUFFER ( XRES * YRES ) AS UINTEGER DIM SHARED BUFFER2( XRES * YRES ) AS UINTEGER DIM SHARED AS DOUBLE OLDTIME,GADD,DELTAVALUE DIM SHARED AS UINTEGER TICKS,NEWTIME DIM SHARED AS DOUBLE GRADD DIM SHARED AS UINTEGER GRID GRID=20 DIM SHARED AS DOUBLE CHESS_GRIDX(GRID,GRID) DIM SHARED AS DOUBLE CHESS_GRIDZ(GRID,GRID) DIM SHARED CFM AS DOUBLE CFM=0 #define PTC_WIN #Include Once "tinyptc.bi" DECLARE SUB DELTA() DECLARE SUB TILE( BYVAL TLX AS INTEGER , BYVAL TLY AS INTEGER, BYVAL TWIDTH AS INTEGER , BYVAL TC AS INTEGER) DECLARE SUB FLAT_TRIANGLE( BYVAL X1 AS INTEGER , BYVAL Y1 AS INTEGER, BYVAL X2 AS INTEGER , BYVAL Y2 AS INTEGER , BYVAL X3 AS INTEGER, BYVAL Y3 AS INTEGER , BYVAL TC AS INTEGER) DECLARE SUB FLAT_TRIANGLE2( BYVAL X1 AS INTEGER , BYVAL Y1 AS INTEGER, BYVAL X2 AS INTEGER , BYVAL Y2 AS INTEGER , BYVAL X3 AS INTEGER, BYVAL Y3 AS INTEGER , BYVAL TC AS INTEGER) DECLARE SUB CONSTRUCT() DECLARE SUB ROTATE() DECLARE SUB COPY_GLENZE() DECLARE SUB CHESS_SETUP() DECLARE SUB CHESS_FUNK() DECLARE SUB STR_SETUP() DECLARE SUB STARFIELD() DIM SHARED STRNUM AS INTEGER STRNUM = 300 DIM SHARED AS integer STRX(STRNUM) DIM SHARED AS integer STRY(STRNUM) DIM SHARED AS DOUBLE STRZ(STRNUM) STR_SETUP() CHESS_SETUP() '--------------------------------------------------------- ' Define the necessary variables; '--------------------------------------------------------- DIM shared N AS DOUBLE dim shared vx1 as double dim shared vx2 as double dim shared vy1 as double dim shared vy2 as double DIM SHARED SIZE AS DOUBLE DIM SHARED POINTS AS INTEGER DIM SHARED FACES AS INTEGER DIM SHARED VXR as double dim shared VYR as double dim shared VZR AS double DIM SHARED VXR2 as double dim shared VYR2 as double dim shared VZR2 AS double dim shared transforms as integer dim shared transformpointer as integer dim shared transtimer as double transforms = 4 transtimer = 0 transformpointer=15 points = (transforms+1) * 14 size=24 faces=24 Dim SHARED Vx(points) AS DOUBLE Dim SHARED Vy(points) AS DOUBLE Dim SHARED Vz(points) AS DOUBLE Dim SHARED Vtx(points) AS INTEGER Dim SHARED Vty(points) AS INTEGER Dim SHARED Vtz(points) AS INTEGER Dim SHARED Vtx2(points) AS INTEGER Dim SHARED Vty2(points) AS INTEGER Dim SHARED Vtz2(points) AS INTEGER Dim SHARED Vf1(faces) AS DOUBLE Dim SHARED Vf2(faces) AS DOUBLE Dim SHARED Vf3(faces) AS DOUBLE Dim SHARED Vf4(faces) AS DOUBLE Dim SHARED Vr(faces) AS DOUBLE Dim SHARED Vg(faces) AS DOUBLE Dim SHARED Vb(faces) AS DOUBLE '--------------------------------------------------------- ' Read in the Object's points; '--------------------------------------------------------- dim A For a=1 To points Read Vx(a) read Vy(a) read Vz(a) Next For a=1 To faces Read Vf1(a) Read Vf2(a) Read Vf3(a) Read Vf4(a) Read Vr(a) READ Vg(a) READ Vb(a) Next '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ declare sub drawbob(byval TX as integer , byval TY as integer, byval ML as integer ) declare sub drawbob2(byval TX as integer , byval TY as integer, byval ML as integer ) dim shared BOB (11,11) AS UINTEGER dim bcunt,x,y for y=1 to 11 for x=1 to 11 read bob(x,y) next next declare sub drawstar(byval TX as integer , byval TY as integer, byval ML as integer ) dim shared STARBOB (5,5) AS UINTEGER for y=1 to 5 for x=1 to 5 read STARBOB(x,y) next next dim shared BOB2 (11,11) AS UINTEGER for y=1 to 11 for x=1 to 11 read bob2(x,y) next next ' ' VECTOR BOBS; ' DIM SHARED VB_SIZE AS DOUBLE DIM SHARED VB_POINTS AS INTEGER DIM SHARED VB_VXR as double dim shared VB_VYR as double dim shared VB_VZR AS double VB_SIZE=3 VB_POINTS=308 Dim SHARED VBVx(VB_points) AS DOUBLE Dim SHARED VBVy(VB_points) AS DOUBLE Dim SHARED VBVz(VB_points) AS DOUBLE Dim SHARED VBVa(VB_points) AS INTEGER Dim SHARED VBVtx(VB_points) AS INTEGER Dim SHARED VBVty(VB_points) AS INTEGER Dim SHARED VBVtz(VB_points) AS INTEGER for y=1 to VB_POINTS READ (VBVX(Y)),VBVY(Y) VBVZ(Y)=0 IF VBVY(Y)=1 THEN VBVA(Y) = 70 IF VBVY(Y)=2 THEN VBVA(Y) = 60 IF VBVY(Y)=3 THEN VBVA(Y) = 50 IF VBVY(Y)=4 THEN VBVA(Y) = 40 IF VBVY(Y)=5 THEN VBVA(Y) = 30 IF VBVY(Y)<0 THEN VBVA(Y)= 125 IF Y<=122 THEN VBVX(Y)=VBVX(Y)+3 ELSE VBVX(Y)=VBVX(Y)-3 END IF VBVX(Y)=VBVX(Y)1.2 vbvy(y)=(vbvy(y)2) +22 NEXT DECLARE SUB VECTOR_BOBS() declare sub control_blobs() declare sub GENERATE_FONT_OBJECT() declare sub vector_bob_scroll() declare sub read_font() dim shared FONT (63 * 95) as integer read_font() '--------------------------------------------------------------------- ' The font is a 79 grid, therefore 63 dots make up each letter. ' This means that to display 10 Characters, we need to define 630 ' X, Y, Z positions and also status (off/on). '--------------------------------------------------------------------- DIM SHARED SVXR as double dim shared SVYR as double dim shared SVZR AS double dim shared as double fontobjectx(1260):' X POSITION dim shared as double fontobjecty(1260):' Y POSITION dim shared as double fontobjectz(1260):' Z POSITION dim shared as double fontobjecttx(1260):' X POSITION TRANS dim shared as double fontobjectty(1260):' Y POSITION TRANS dim shared as double fontobjecttz(1260):' Z POSITION TRANS dim shared as integer fontobjects(1260):' STATUS 0=OFF 1=ON GENERATE_FONT_OBJECT() dim shared bobscroller as string dim shared as integer pastestart , fontticks , mptr pastestart=133 : ' this is the offset in the font table to start pasting letters! fontticks=0 mptr=1 bobscroller=". . . . ... . ." bobscroller=bobscroller+" >>> HERE IT IS, REFLECTION, 3D SCROLL, TRANSFORMATIONS, FUCKING EVERYTHING.. NO MUSIC OR SPLASH SCREEN YET. TAKE CARE, SHOCKWAVE^S!P 2006 <<< " bobscroller=bobscroller+"" bobscroller=bobscroller+"" bobscroller=bobscroller+"" bobscroller=bobscroller+"" '' TILES! DIM SHARED TCOLOUR (16,12) AS INTEGER DIM SHARED TINTERVAL(16,12) AS DOUBLE DIM SHARED TWIDTH (16,12) AS DOUBLE DIM SHARED TSTATUS AS INTEGER TSTATUS=2:' ONLY 0 IF TILES ARE ALL DONE.1 = tiles to fade out 2 = tiles to fade in DIM CTX,CTY FOR CTY=1 TO 12 FOR CTX=1 TO 16 READ TCOLOUR(CTX,CTY) IF TCOLOUR(CTX,CTY)=0 THEN TCOLOUR(CTX,CTY)=&H223344 IF TCOLOUR(CTX,CTY)=1 THEN TCOLOUR(CTX,CTY)=&H445566 IF TCOLOUR(CTX,CTY)=2 THEN TCOLOUR(CTX,CTY)=&H665544 IF TCOLOUR(CTX,CTY)=3 THEN TCOLOUR(CTX,CTY)=&H443322 NEXT NEXT FOR CTY=1 TO 12 FOR CTX=1 TO 16 TINTERVAL(CTX,CTY)=1+RND(150) TINTERVAL(CTX,CTY)=(TINTERVAL(CTX,CTY))+250 TWIDTH(CTX,CTY)=-50 NEXT NEXT DECLARE SUB TILES() DECLARE SUB TILESIN() declare sub morph() '------------------------------------------------------------------------- ' Open Screen. '------------------------------------------------------------------------- If( ptc_open( "S!P", XRES, YRES ) = 0 ) Then End -1 End If OLDTIME = TIMER DELTAVALUE=100 TICKS=80 transtimer=timer DO DELTA() IF TSTATUS=2 THEN TILESIN() IF TSTATUS < 2 THEN if timer-transtimer>2.5 then morph() if timer-transtimer>4 then transformpointer=transformpointer+14 if transformpointer>=points then transformpointer=15 transtimer=timer end if CHESS_FUNK() STARFIELD() VECTOR_BOBS() ROTATE() CONSTRUCT() COPY_GLENZE() IF TSTATUS=0 THEN control_blobs() if TSTATUS=1 then TILES() END IF PTC_UPDATE@BUFFER(0) ERASE BUFFER ERASE BUFFER2 TICKS=TICKS+1 LOOP UNTIL INKEY$ = CHR$(27) SUB MORPH() dim as integer L,P dim cunnia as double cunnia = 2.5 / deltavalue p=transformpointer for L=1 to 14 if Vx(L) > VX(P) then VX(L)=VX(L)-cunnia if Vy(L) > Vy(P) then VY(L)=VY(L)-cunnia if Vz(L) > Vz(P) then VZ(L)=VZ(L)-cunnia if Vx(L) < VX(P) then VX(L)=VX(L)+cunnia if Vy(L) < Vy(P) then VY(L)=VY(L)+cunnia if Vz(L) < Vz(P) then VZ(L)=VZ(L)+cunnia p=p+1 next END SUB SUB TILESIN() DIM AS INTEGER TYY,TXX,LX,LY DIM AS DOUBLE WDDD TSTATUS=1 FOR TYY=1 TO 12 WDDD=(10+(TYY SHR 2))/DELTAVALUE FOR TXX=1 TO 16 IF TWIDTH(TXX,TYY)<20 THEN TWIDTH(TXX,TYY)=TWIDTH(TXX,TYY)+WDDD IF TWIDTH(TXX,TYY)>=20 THEN TWIDTH(TXX,TYY)=20 END IF IF TWIDTH(TXX,TYY)<20 THEN TSTATUS=2 NEXT NEXT LY=20 FOR TYY=1 TO 12 LX=20 FOR TXX=1 TO 16 IF TWIDTH(TXX,TYY)>0 THEN TILE(LX,LY,TWIDTH(TXX,TYY),TCOLOUR(TXX,TYY)) LX=LX+40 NEXT LY=LY+40 NEXT END SUB SUB TILES() DIM AS INTEGER TYY,TXX,LX,LY DIM AS DOUBLE TMINUS DIM AS DOUBLE WMINUS TMINUS = 50/DELTAVALUE WMINUS = 10/DELTAVALUE LY=20 TSTATUS=0 FOR TYY=1 TO 12 LX=20 FOR TXX=1 TO 16 IF TWIDTH(TXX,TYY)>0 THEN TILE(LX,LY,TWIDTH(TXX,TYY),TCOLOUR(TXX,TYY)) IF TINTERVAL(TXX,TYY)>0 THEN TINTERVAL(TXX,TYY) = TINTERVAL(TXX,TYY)-TMINUS IF TINTERVAL(TXX,TYY)<=0 AND TWIDTH(TXX,TYY)>0 THEN TWIDTH(TXX,TYY)=TWIDTH(TXX,TYY)-WMINUS IF TWIDTH(TXX,TYY)<0 THEN TWIDTH(TXX,TYY)=0 IF TINTERVAL(TXX,TYY)<0 THEN TINTERVAL(TXX,TYY)=0 LX=LX+40 NEXT LY=LY+40 NEXT END SUB SUB TILE( BYVAL TLX AS INTEGER , BYVAL TLY AS INTEGER,BYVAL TWIDTH AS INTEGER , BYVAL TC AS INTEGER) DIM PP AS INTEGER PTR DIM LO AS INTEGER DIM SLICE AS INTEGER DIM AS INTEGER TXST , TYST SLICE = TWIDTH2 TYST=TLY-(TWIDTH) TXST=TLX-(TWIDTH) FOR LO=TYST TO TYST+TWIDTH2 PP = @BUFFER(TXST+(LOXRES)) asm mov eax,dword ptr[TC] mov ecx, [SLICE] mov edi, [PP] rep stosd end asm NEXT IF TSTATUS=0 THEN TSTATUS=1 END SUB '------------------------------------------------------------------------- 'Rename this sub later when vecbobscroll is ready. '------------------------------------------------------------------------- sub control_blobs() dim arse as integer dim as integer fnstrx,fnstry,xipe,fuckoff,bm,ch for arse=1 to 1260 fontobjectx(arse)=fontobjectx(arse)-8/DELTAVALUE '------------------------------------------------------------------ ' Check to see if the font bob is scrolled off limits; ' If it is, reset it's status to off and move it back '------------------------------------------------------------------ if fontobjectx(arse)<=-70 then fontobjects(arse)=0 fontobjectx(arse)=fontobjectx(arse)+140 fontticks=fontticks+1 '------------------------------------------------------------------ ' Check to see if a whole letter has scrolled across; ' And if so, put a new one in the bob object! '------------------------------------------------------------------ if fontticks>= 63 then ch=asc(mid(bobscroller,mptr,1))-31 bm=(ch63)-70 mptr=mptr+1 if mptr>len(bobscroller)-1 then mptr=1 for fnstry=0 to 8 xipe=bm for fnstrx=pastestart+1 to pastestart+7 fontobjects(fnstrx+(fnstry140)) = font((FNSTRY7)+XIPE) xipe=xipe+1 next next fontticks=0 pastestart=pastestart+7 if pastestart>133 then pastestart=0 end if end if next vector_bob_scroll() end sub sub GENERATE_FONT_OBJECT() dim as double fgx,fgy,fgz dim as integer fglx,fgly,fgcount fgz=0 fgx=-70 fgy=-4 fgcount=1 for fgly=1 to 9 for fglx=1 to 140 fontobjectx(fgcount)=fgx fontobjecty(fgcount)=fgy fontobjectz(fgcount)=fgz fontobjects(fgcount)=0 fgx=fgx+1 fgcount=fgcount+1 next fgy=fgy+1 fgx=-70 next end sub sub vector_bob_scroll() cun=cun-.25 DIM VX1 AS DOUBLE dim VY1 AS DOUBLE dim VZ1 AS DOUBLE DIM VZZ AS DOUBLE dim vxx as double dim vyy as double dim cunt as integer DIM VDV AS DOUBLE dim zwav as double dim sinh as double dim sinh2 as double dim a sinh=2sin(GRADD / 597) sinh2=.4sin(GRADD / 277) dim zmx as double zmx=-.5 '############################################### '## Rotate And Scale Each Point! Store Result ## '############################################### For a=1 To 1260 VX1=fontobjectx(a) VY1=fontobjecty(a) if VX1> - 45 and VX1 < 45 then VZ1=sinhsin(((fontobjectx(a)/7 )+(GRADD/ 143))) '###################### '## X,Y,Z rotations! ## '###################### Vxx=Vx1 Vyy=Vy1cos(sVxr)+Vz1sin(sVxr) Vzz=Vz1cos(sVxr)-Vy1sin(sVxr) Vy1=Vyy Vx1=Vxxcos(sVyr)-Vzzsin(sVyr) Vz1=Vxxsin(sVyr)+Vzzcos(sVyr) Vzz=Vz1 Vxx=Vx1cos(sVzr)-Vy1sin(sVzr) Vyy=Vx1sin(sVzr)+Vy1cos(sVzr) '######################## '## Apply Perspective! ## '######################## Vdv=(Vzz / 50)+1 Vxx=(12(Vxx/Vdv))+320 Vyy=(8(Vyy/Vdv))+240 fontobjecttx(a)=Int(Vxx) fontobjectty(a)=Int(Vyy) fontobjecttz(a)=Int(Vzz) if fontobjects(a)=1 then drawbob2(fontobjecttx(a),fontobjectty(a),125) END IF end if Next svxr=svxr +1.25 / DELTAVALUE svyr=sinh2 end sub sub read_font() dim LP as integer FOR LP=1 TO (6395) READ FONT(LP) NEXT end sub SUB VECTOR_BOBS() DIM A,MMXX,VBOO,vboo2 MMXX=100SIN(GRADD/873) DIM VX1 AS DOUBLE dim VY1 AS DOUBLE dim VZ1 AS DOUBLE DIM VZZ AS DOUBLE dim vxx as double dim vyy as double DIM VDV AS DOUBLE '############################################### '## Rotate And Scale Each Point! Store Result ## '############################################### For a=1 To VB_points VX1=VBVx(a) VY1=VBVy(a) VZ1=VBVz(a) '###################### '## X,Y,Z rotations! ## '###################### Vxx=Vx1 Vyy=Vy1cos(VB_Vxr)+Vz1sin(VB_Vxr) Vzz=Vz1cos(VB_Vxr)-Vy1sin(VB_Vxr) Vy1=Vyy Vx1=Vxxcos(VB_Vyr)-Vzzsin(VB_Vyr) Vz1=Vxxsin(VB_Vyr)+Vzzcos(VB_Vyr) Vzz=Vz1 Vxx=Vx1cos(VB_Vzr)-Vy1sin(VB_Vzr) Vyy=Vx1sin(VB_Vzr)+Vy1cos(VB_Vzr) '######################## '## Apply Perspective! ## '######################## Vdv=(Vzz/70)+1 Vxx=(VB_size(Vxx/Vdv))+HALFX+MMXX Vyy=(VB_size(Vyy/Vdv))+300 VBVtx(a)=Int(Vxx) VBVty(a)=Int(Vyy) VBVtz(a)=Int(Vzz) Next if vbVtz(1)>vbVtz(VB_points) then vboo=1 vboo2=1 else vboo=2 vboo2=VB_points end if for a=1 to vb_points DRAWBOB(VBVTX(VBOO2),VBVTY(VBOO2),vbva(VBOO2)) IF VBOO=1 THEN VBOO2=VBOO2+1 IF VBOO=2 THEN VBOO2=VBOO2-1 next VB_Vyr=VB_Vyr+.5/DELTAVALUE END SUB sub drawbob(byval TX as integer , byval TY as integer, byval ML as integer ) dim rg1 , rg2,rg3,rg4,rg5,rg6,rg7,Y,X ,cull,CSET as uinteger cull=ML RG1= RGBA(20,100,190,CULL) RG2= RGBA(40,110,170,CULL) RG3= RGBA(60,120,150,CULL) RG4= RGBA(150,100,20,CULL) RG5= RGBA(170,110,40,CULL) RG6= RGBA(190,120,60,CULL) RG7= RGBA(250,250,250,CULL) if tx>0 and tx<xres-11 and ty>0 and ty<yres-11 then for y=1 to 11 for x=1 to 11 cset=bob(x,y) select case cset case 1 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG1,BUFFER((TX+X)+((TY+Y)XRES))) case 2 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG2,BUFFER((TX+X)+((TY+Y)XRES))) case 3 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG3,BUFFER((TX+X)+((TY+Y)XRES))) case 4 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG4,BUFFER((TX+X)+((TY+Y)XRES))) case 5 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG5,BUFFER((TX+X)+((TY+Y)XRES))) case 6 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG6,BUFFER((TX+X)+((TY+Y)XRES))) case 7 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG7,BUFFER((TX+X)+((TY+Y)XRES))) end select next next end if end sub sub drawbob2(byval TX as integer , byval TY as integer, byval ML as integer ) dim rg1 , rg2,rg3,rg4,rg5,rg6,rg7,Y,X ,cull,CSET as uinteger cull=ML RG1= RGBA(20,100,220,CULL) RG2= RGBA(40,110,200,CULL) RG3= RGBA(60,120,170,CULL) RG4= RGBA(170,100,20,CULL) RG5= RGBA(200,110,40,CULL) RG6= RGBA(220,120,60,CULL) RG7= RGBA(250,250,250,CULL) if tx>0 and tx<xres-11 and ty>0 and ty<yres-11 then for y=1 to 11 for x=1 to 11 cset=bob2(x,y) select case cset case 1 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG1,BUFFER((TX+X)+((TY+Y)XRES))) case 2 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG2,BUFFER((TX+X)+((TY+Y)XRES))) case 3 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG3,BUFFER((TX+X)+((TY+Y)XRES))) case 4 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG4,BUFFER((TX+X)+((TY+Y)XRES))) case 5 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG5,BUFFER((TX+X)+((TY+Y)XRES))) case 6 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG6,BUFFER((TX+X)+((TY+Y)XRES))) case 7 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG7,BUFFER((TX+X)+((TY+Y)XRES))) end select next next end if end sub sub drawstar(byval TX as integer , byval TY as integer, byval ML as integer ) dim rg1,rg2,rg3,rg4,Y,X ,cull,CSET as uinteger cull=ML RG1= RGBA(50,100,150,CULL ) RG2= RGBA(100,150,200,CULL ) RG3= RGBA(150,200,250,CULL ) RG4= RGBA(250,250,250,CULL ) for y=1 to 5 for x=1 to 5 cset=STARBOB(x,y) ' IF TX+X>0 AND TX+X<xres AND TY+Y>pclip AND TY+Y<yres-pclip THEN select case cset case 1 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG1,BUFFER((TX+X)+((TY+Y)XRES))) case 2 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG2,BUFFER((TX+X)+((TY+Y)XRES))) case 3 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG3,BUFFER((TX+X)+((TY+Y)XRES))) case 4 BUFFER((TX+X)+((TY+Y)XRES))=alpha(RG4,BUFFER((TX+X)+((TY+Y)XRES))) end select ' END IF next next end sub SUB STARFIELD() DIM AS INTEGER A,TX,TY,TY2,AFACTOR, SO1 , SO2 , SO3 , YPRE1 DIM AS DOUBLE STRMOVE,ZHOLD STRMOVE = 6/DELTAVALUE FOR A=1 TO STRNUM TX= (STRX(A) / STRZ(A)) + HALFX TY= (STRY(A) / STRZ(A)) + HALFY IF TX>0 AND TX< XRES-5 AND TY>0 AND TY<YRES-5 THEN ZHOLD=STRZ(A) IF ZHOLD<0 THEN ZHOLD=0 AFACTOR = (INT( - ZHOLD +32) ) shl 2 IF STRY(A) > 500 THEN TY2= ((STRY(A)+1500) / STRZ(A)) + HALFY IF TY2<YRES THEN drawstar(tx,ty2,afactor SHR 1) END IF drawstar(tx,ty,afactor) 'drawbob(tx,ty,afactor) STRZ(A)=STRZ(A)-STRMOVE ELSE STRX(A) = -10000+(RND(20000)) STRY(A) = -10000+(RND(11500)) STRZ(A) = 32 END IF NEXT END SUB SUB STR_SETUP() DIM A FOR A=1 TO STRNUM STRX(A) = -10000+(RND(20000)) STRY(A) = -10000+(RND(11500)) STRZ(A) = RND32 NEXT END SUB SUB CHESS_FUNK() DIM CHYP AS INTEGER DIM AS DOUBLE XFACTOR DIM HALFYL HALFYL=252 CHYP=1800 DIM AS UINTEGER XC,ZC,LX,LZ,TX1,TY1,TX2,TY2,TX3,TY3,TX4,TY4,FP,TOG,ML1,ML2 TOG=1 FP=1 ZC=1 FOR LZ=1 TO GRID-1 FOR LX=FP TO GRID-1 TX1=(CHESS_GRIDX(LX,LZ) / (CHESS_GRIDZ(LX,LZ)+CFM) ) + HALFX TY1=(CHYP / (CHESS_GRIDZ(LX,LZ)+CFM) ) + HALFYL TX2=(CHESS_GRIDX(LX+1,LZ) / (CHESS_GRIDZ(LX+1,LZ)+CFM) ) + HALFX TY2=(CHYP / (CHESS_GRIDZ(LX+1,LZ)+CFM) ) + HALFYL TX3=(CHESS_GRIDX(LX+1,LZ+1) / (CHESS_GRIDZ(LX+1,LZ+1)+CFM) ) + HALFX TY3=(CHYP / (CHESS_GRIDZ(LX+1,LZ+1)+CFM) ) + HALFYL TX4=(CHESS_GRIDX(LX,LZ+1) / (CHESS_GRIDZ(LX,LZ+1)+CFM) ) + HALFX TY4=(CHYP / (CHESS_GRIDZ(LX,LZ+1)+CFM) ) + HALFYL ZC=TY3-301 zc=zc1.4 ML1=RGB(ZC SHR 1,ZC SHR 1,ZC ) ML2=RGB(ZC shr 4,ZC SHR 4,ZC SHR 1) IF TOG=0 THEN FLAT_TRIANGLE(TX1,TY1,TX2,TY2,TX3,TY3,ML1) FLAT_TRIANGLE(TX3,TY3,TX4,TY4,TX1,TY1,ML1) ELSE FLAT_TRIANGLE(TX1,TY1,TX2,TY2,TX3,TY3,ML2) FLAT_TRIANGLE(TX3,TY3,TX4,TY4,TX1,TY1,ML2) END IF TOG=TOG+1 IF TOG>1 THEN TOG=0 NEXT FP=FP+1 IF FP>2 THEN FP=1 TOG=FP NEXT CFM=CFM-6/DELTAVALUE IF CFM<3.2 THEN CFM=CFM+3.2 END SUB SUB CHESS_SETUP() ' ' THIS SUB INITIALISES A GRID FOR THE CHESSFUNK! ' DIM AS DOUBLE CX,CZ,CSTX,CSTZ DIM AS INTEGER LX,LZ CSTX = (250 / GRID)2 CSTZ = (2 / GRID)4 CZ=.001 FOR LX = 1 TO GRID CX=-250 FOR LZ = 1 TO GRID CHESS_GRIDX(LX,LZ) = ( CX 50) CHESS_GRIDZ(LX,LZ) = ( CZ * 4) CX=CX+CSTX NEXT CZ=CZ+CSTZ NEXT END SUB SUB COPY_GLENZE() DIM AS INTEGER LLX,LLY ,MMUL GRADD=GRADD+250/DELTAVALUE SIZE=14+4SIN(GRADD / 513) FOR LLY=HALFY-140 TO HALFY+239 MMUL=LLYXRES FOR LLX=HALFX-140 TO HALFX+140 BUFFER(MMUL+LLX)=BUFFER(MMUL+LLX)+BUFFER2(MMUL+LLX) NEXT NEXT LLY=XRES-1 FOR LLX=0 TO XRES-1 MMUL = RGB(125+124SIN((LLX+GRADD)/100),125+124SIN((LLX+GRADD)/120),125+124SIN((LLX+GRADD)/123)) BUFFER(LLX+(PCLIPXRES)) = MMUL BUFFER(LLY+(((YRES-1)-PCLIP)XRES)) = MMUL ' MMUL = RGB(65+64SIN((LLX+GRADD)/100),65+64SIN((LLX+GRADD)/120),65+64SIN((LLX+GRADD)/123)) BUFFER(LLX+((PCLIP-1)XRES)) = MMUL BUFFER(LLY+(((YRES)-PCLIP)XRES)) = MMUL ' ' LLY=LLY-1 NEXT END SUB SUB FLAT_TRIANGLE(BYVAL X1 AS INTEGER , BYVAL Y1 AS INTEGER, BYVAL X2 AS INTEGER , BYVAL Y2 AS INTEGER , BYVAL X3 AS INTEGER, BYVAL Y3 AS INTEGER , BYVAL TC AS INTEGER) '------------------------------------------------------------------------- ' FLAT TRIANGLE RENDERER WITH ASSEMBLY LANGUAGE RASTERISING BY SHOCKWAVE ^ DBF ^ S!P 2006. '------------------------------------------------------------------------- '------------------------------------------------------------------------- ' WE NEED TO SORT THESE POINTS INTO ORDER FROM TOP TO BOTTOM, AN EXCHANGE SORT IS OK. ' AS WE ONLY HAVE GOT 3 POINTS TO ARRANGE. '------------------------------------------------------------------------- DIM AS INTEGER TEMPX,TEMPY,LO,LI DIM AS INTEGER PX(3) DIM AS INTEGER PY(3) DIM TFLAG AS INTEGER dim pp as uinteger PTR DIM AS INTEGER IL1,IL2,SLICE TFLAG=0 PX(1)= X1 PX(2)= X2 PX(3)= X3 PY(1)= Y1 PY(2)= Y2 PY(3)= Y3 FOR LO = 1 TO 2 FOR LI =1 TO 2 IF PY(LI+1) <= PY(LI) THEN TEMPX = PX(LI) : TEMPY = PY(LI) PX(LI) = PX(LI+1) PY(LI) = PY(LI+1) PX(LI+1) = TEMPX PY(LI+1) = TEMPY END IF NEXT LI NEXT LO ' BOOT OUT INVISIBLE TRIANGLES! IF PX(1)<0 AND PX(2)<0 AND PX(3)< 0 THEN TFLAG=1 IF PX(1)>XRES AND PX(2)>XRES AND PX(3)>XRES THEN TFLAG=1 IF PY(1)>YRES AND PY(2)>YRES AND PY(3)>YRES THEN TFLAG=1 DIM AS DOUBLE XP1,XP2:' SCREEN POSITIONS. DIM AS DOUBLE XI1,XI2:' INTERPOLATIONS. '* '* REGULAR TRIANGLE (Y1<Y2 Y2<Y3) '*** IF PY(1)<PY(2) AND PY(2)<PY(3) or (PY(2) = PY(3)) THEN TFLAG=1 XP1 = PX(1) XP2 = PX(1) XI1 = (PX(1)-PX(2)) / (PY(2) - PY(1)) XI2 = (PX(1)-PX(3)) / (PY(3) - PY(1)) FOR LO = PY(1) TO PY(2)-1 IF LO>=0 AND LO<YRES THEN IF XP1<=XP2 THEN IL1=XP1 IL2=XP2 ELSE IL1=XP2 IL2=XP1 END IF IF IL2>XRES THEN IL2=XRES IF IL1<0 THEN IL1=0 SLICE = IL2-IL1 IF SLICE>0 THEN PP = @BUFFER(IL1+(LOXRES)) asm mov eax,dword ptr[TC] mov ecx, [slice] mov edi, [PP] rep stosd end asm END IF END IF XP1=XP1-XI1 XP2=XP2-XI2 NEXT XI1 = (PX(2)-PX(3)) / (PY(3) - PY(2)) XP1 = PX(2) FOR LO = PY(2) TO PY(3) IF LO>=0 AND LO<YRES THEN IF XP1<=XP2 THEN IL1=XP1 IL2=XP2 ELSE IL1=XP2 IL2=XP1 END IF IF IL2>XRES THEN IL2=XRES IF IL1<0 THEN IL1=0 SLICE = IL2-IL1 IF SLICE>0 THEN PP = @BUFFER(IL1+(LOXRES)) asm mov eax,dword ptr[TC] mov ecx, [slice] mov edi, [PP] rep stosd end asm END IF END IF XP1=XP1-XI1 XP2=XP2-XI2 NEXT END IF '* '* FLAT TOPPED TRIANGLE Y1=Y2 '*** IF TFLAG=0 AND PY(1) = PY(2) THEN TFLAG=1 XP1 = PX(1) XP2 = PX(2) XI1 = (PX(1)-PX(3)) / (PY(3) - PY(1)) XI2 = (PX(2)-PX(3)) / (PY(3) - PY(2)) FOR LO = PY(1) TO PY(3) IF LO>=0 AND LO<YRES THEN IF XP1<=XP2 THEN IL1=XP1 IL2=XP2 ELSE IL1=XP2 IL2=XP1 END IF IF IL2>XRES THEN IL2=XRES IF IL1<0 THEN IL1=0 SLICE = IL2-IL1 IF SLICE>0 THEN PP = @BUFFER(IL1+(LOXRES)) asm mov eax,dword ptr[TC] mov ecx, [slice] mov edi, [PP] rep stosd end asm END IF END IF XP1=XP1-XI1 XP2=XP2-XI2 NEXT END IF END SUB SUB FLAT_TRIANGLE2(BYVAL X1 AS INTEGER , BYVAL Y1 AS INTEGER, BYVAL X2 AS INTEGER , BYVAL Y2 AS INTEGER , BYVAL X3 AS INTEGER, BYVAL Y3 AS INTEGER , BYVAL TC AS INTEGER) '------------------------------------------------------------------------- ' FLAT TRIANGLE RENDERER WITH ASSEMBLY LANGUAGE RASTERISING BY SHOCKWAVE ^ DBF ^ S!P 2006. '------------------------------------------------------------------------- '------------------------------------------------------------------------- ' WE NEED TO SORT THESE POINTS INTO ORDER FROM TOP TO BOTTOM, AN EXCHANGE SORT IS OK. ' AS WE ONLY HAVE GOT 3 POINTS TO ARRANGE. '------------------------------------------------------------------------- DIM AS INTEGER TEMPX,TEMPY,LO,LI DIM AS INTEGER PX(3) DIM AS INTEGER PY(3) DIM TFLAG AS INTEGER dim pp as uinteger PTR DIM AS INTEGER IL1,IL2,SLICE TFLAG=0 PX(1)= X1 PX(2)= X2 PX(3)= X3 PY(1)= Y1 PY(2)= Y2 PY(3)= Y3 FOR LO = 1 TO 2 FOR LI =1 TO 2 IF PY(LI+1) <= PY(LI) THEN TEMPX = PX(LI) : TEMPY = PY(LI) PX(LI) = PX(LI+1) PY(LI) = PY(LI+1) PX(LI+1) = TEMPX PY(LI+1) = TEMPY END IF NEXT LI NEXT LO DIM AS DOUBLE XP1,XP2:' SCREEN POSITIONS. DIM AS DOUBLE XI1,XI2:' INTERPOLATIONS. ' '* REGULAR TRIANGLE (Y1<Y2 Y2<Y3) '*** IF PY(1)<PY(2) AND PY(2)<PY(3) or (PY(2) = PY(3)) THEN TFLAG=1 XP1 = PX(1) XP2 = PX(1) XI1 = (PX(1)-PX(2)) / (PY(2) - PY(1)) XI2 = (PX(1)-PX(3)) / (PY(3) - PY(1)) FOR LO = PY(1) TO PY(2)-1 IF LO>=0 AND LO<YRES THEN IF XP1<=XP2 THEN IL1=XP1 IL2=XP2 ELSE IL1=XP2 IL2=XP1 END IF IF IL2>XRES THEN IL2=XRES IF IL1<0 THEN IL1=0 SLICE = IL2-IL1 IF SLICE>0 THEN PP = @BUFFER2(IL1+(LOXRES)) asm mov eax,dword ptr[TC] mov ecx, [slice] mov edi, [PP] rep stosd end asm END IF END IF XP1=XP1-XI1 XP2=XP2-XI2 NEXT XI1 = (PX(2)-PX(3)) / (PY(3) - PY(2)) XP1 = PX(2) FOR LO = PY(2) TO PY(3) IF LO>=0 AND LO<YRES THEN IF XP1<=XP2 THEN IL1=XP1 IL2=XP2 ELSE IL1=XP2 IL2=XP1 END IF IF IL2>XRES THEN IL2=XRES IF IL1<0 THEN IL1=0 SLICE = IL2-IL1 IF SLICE>0 THEN PP = @BUFFER2(IL1+(LOXRES)) asm mov eax,dword ptr[TC] mov ecx, [slice] mov edi, [PP] rep stosd end asm END IF END IF XP1=XP1-XI1 XP2=XP2-XI2 NEXT END IF '* '* FLAT TOPPED TRIANGLE Y1=Y2 '*** IF TFLAG=0 AND PY(1) = PY(2) THEN TFLAG=1 XP1 = PX(1) XP2 = PX(2) XI1 = (PX(1)-PX(3)) / (PY(3) - PY(1)) XI2 = (PX(2)-PX(3)) / (PY(3) - PY(2)) FOR LO = PY(1) TO PY(3) IF LO>=0 AND LO<YRES THEN IF XP1<=XP2 THEN IL1=XP1 IL2=XP2 ELSE IL1=XP2 IL2=XP1 END IF IF IL2>XRES THEN IL2=XRES IF IL1<0 THEN IL1=0 SLICE = IL2-IL1 IF SLICE>0 THEN PP = @BUFFER2(IL1+(LOXRES)) asm mov eax,dword ptr[TC] mov ecx, [slice] mov edi, [PP] rep stosd end asm END IF END IF XP1=XP1-XI1 XP2=XP2-XI2 NEXT END IF END SUB '------------------------------------------------------------------------- ' TIMER MANAGEMENT; '------------------------------------------------------------------------- SUB DELTA() DIM Z AS UINTEGER IF TIMER-OLDTIME>=.25 THEN DELTAVALUE=(.8(TICKS1.5))+1 NEWTIME = TICKS OLDTIME = TIMER PRINT "FPS:"+STR$(NEWTIME4) TICKS =0 END IF END SUB '--------------------------------------------------------- ' Draw The Object; '--------------------------------------------------------- SUB construct() DIM A DIM AS DOUBLE N,RD,GR,BL '--------------------------------------------------------- ' Draw A Face Of The Object; '--------------------------------------------------------- For a=1 To faces vx1= Vtx2(Vf1(a))-Vtx2(Vf2(a)) vy1= Vty2(Vf1(a))-Vty2(Vf2(a)) vx2= Vtx2(Vf3(a))-Vtx2(Vf2(a)) vy2= Vty2(Vf3(a))-Vty2(Vf2(a)) n= vx1vy2-vx2vy1 If n<0 THEN n=-(n/800) rd=Vr(a)n : If rd>40 THEN rd=40 gr=Vg(a)n : If gr>40 THEN gr=40 bl=Vb(a)n : If bl>40 THEN bl=40 FLAT_TRIANGLE2(Vtx2(Vf1(a)),Vty2(Vf1(a)),Vtx2(Vf2(a)),Vty2(Vf2(a)),Vtx2(Vf3(a)),Vty2(Vf3(a)),RGB(RD,GR,BL)) FLAT_TRIANGLE2(Vtx2(Vf1(a)),Vty2(Vf1(a)),Vtx2(Vf4(a)),Vty2(Vf4(a)),Vtx2(Vf3(a)),Vty2(Vf3(a)),RGB(RD,GR,BL)) End If NEXT For a=1 To faces '--------------------------------------------------------- ' Draw A Face Of The Object; '--------------------------------------------------------- vx1= Vtx(Vf1(a))-Vtx(Vf2(a)) vy1= Vty(Vf1(a))-Vty(Vf2(a)) vx2= Vtx(Vf3(a))-Vtx(Vf2(a)) vy2= Vty(Vf3(a))-Vty(Vf2(a)) n= vx1vy2-vx2vy1 If n>0 THEN n=(n/5000) rd=Vr(a)n : If rd>50 THEN rd=90 gr=Vg(a)n : If gr>50 THEN gr=90 bl=Vb(a)n : If bl>50 THEN bl=90 FLAT_TRIANGLE2(Vtx(Vf1(a)),Vty(Vf1(a)),Vtx(Vf2(a)),Vty(Vf2(a)),Vtx(Vf3(a)),Vty(Vf3(a)),RGB(RD,GR,BL)) FLAT_TRIANGLE2(Vtx(Vf1(a)),Vty(Vf1(a)),Vtx(Vf4(a)),Vty(Vf4(a)),Vtx(Vf3(a)),Vty(Vf3(a)),RGB(RD,GR,BL)) End If NEXT For a=1 To faces '--------------------------------------------------------- ' Draw A Face Of The Object; '--------------------------------------------------------- vx1= Vtx(Vf1(a))-Vtx(Vf2(a)) vy1= Vty(Vf1(a))-Vty(Vf2(a)) vx2= Vtx(Vf3(a))-Vtx(Vf2(a)) vy2= Vty(Vf3(a))-Vty(Vf2(a)) n= vx1vy2-vx2vy1 If n<0 THEN n=-(n/800) rd=Vr(a)n : If rd>140 THEN rd=160 gr=Vg(a)n : If gr>140 THEN gr=160 bl=Vb(a)n : If bl>140 THEN bl=160 FLAT_TRIANGLE(Vtx(Vf1(a)),Vty(Vf1(a)),Vtx(Vf2(a)),Vty(Vf2(a)),Vtx(Vf3(a)),Vty(Vf3(a)),RGB(RD,GR,BL)) FLAT_TRIANGLE(Vtx(Vf1(a)),Vty(Vf1(a)),Vtx(Vf4(a)),Vty(Vf4(a)),Vtx(Vf3(a)),Vty(Vf3(a)),RGB(RD,GR,BL)) End If NEXT END SUB SUB ROTATE() DIM A DIM XCUNT AS DOUBLE xcunt=0 DIM VX1 AS DOUBLE dim VY1 AS DOUBLE dim VZ1 AS DOUBLE DIM VZZ AS DOUBLE dim vxx as double dim vyy as double DIM VDV AS DOUBLE '############################################### '## Rotate And Scale Each Point! Store Result ## '############################################### For a=1 To points VX1=Vx(a)+XCUNT VY1=Vy(a) VZ1=Vz(a) '###################### '## X,Y,Z rotations! ## '###################### Vxx=Vx1 Vyy=Vy1cos(Vxr)+Vz1sin(Vxr) Vzz=Vz1cos(Vxr)-Vy1sin(Vxr) Vy1=Vyy Vx1=Vxxcos(Vyr)-Vzzsin(Vyr) Vz1=Vxxsin(Vyr)+Vzzcos(Vyr) Vzz=Vz1 Vxx=Vx1cos(Vzr)-Vy1sin(Vzr) Vyy=Vx1sin(Vzr)+Vy1cos(Vzr) '######################## '## Apply Perspective! ## '######################## Vdv=(Vzz/40)+1 Vxx=(size(Vxx/Vdv))+HALFX Vyy=(size(Vyy/Vdv))+HALFY Vtx(a)=Int(Vxx) Vty(a)=Int(Vyy) Vtz(a)=Int(Vzz) Next '############################################### '## Rotate And Scale Each Point! Store Result ## '############################################### For a=1 To points VX1=Vx(a)+XCUNT VY1=Vy(a) VZ1=Vz(a) '###################### '## X,Y,Z rotations! ## '###################### Vxx=Vx1 Vyy=Vy1cos(Vxr2)+Vz1sin(Vxr2) Vzz=Vz1cos(Vxr2)-Vy1sin(Vxr2) Vy1=Vyy Vx1=Vxxcos(Vyr2)-Vzzsin(Vyr2) Vz1=Vxxsin(Vyr2)+Vzzcos(Vyr2) Vzz=Vz1 Vxx=Vx1cos(Vzr2)-Vy1sin(Vzr2) Vyy=Vx1sin(Vzr2)+Vy1cos(Vzr2) '######################## '## Apply Perspective! ## '######################## Vdv=(Vzz/40)+1 Vxx=(size(Vxx/Vdv))+HALFX Vyy=((size((Vyy+200)/Vdv))shr 4)+HALFY Vtx2(a)=Int(Vxx) Vty2(a)=Int(Vyy) Vtz2(a)=Int(Vzz) Next Vxr=Vxr+.4/DELTAVALUE Vyr=Vyr+.5/DELTAVALUE Vzr=Vzr+.6/DELTAVALUE Vxr2=Vxr2-.4/DELTAVALUE Vyr2=Vyr2+.5/DELTAVALUE Vzr2=Vzr2-.6/DELTAVALUE END SUB '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ' The Object Description As Data! ' The Data Below Describes A Cube. '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 'Points definition; '~~~~~~~~~~~~~~~~~~ 'Below are the points of the Object defined as x,y,z; Data 5,-5,-5 , 5,5,-5,-5,5,-5,-5,-5,-5,0,0,-5,5,0,0,0 Data 5,0,-5,0,0,0,-5,0,5,-5,5,5,5,5,-5,5,5,-5,-5,5,0,0,5 Data 5,-5,-5 , 5,5,-5,-5,5,-5,-5,-5,-5,0,0,-8,8,0,0,0 Data 8,0,-8,0,0,0,-8,0,5,-5,5,5,5,5,-5,5,5,-5,-5,5,0,0,8 Data 5,-2,-5, 5,2,-5, -5,2,-5, -5,-2,-5, 0,0,-8, 8,0,0 Data 0,2,0,-8,0,0,0,-2,0,5,-2,5,5,2,5,-5,2,5,-5,-2,5,0,0,8 Data 5,-5,-5 , 5,5,-5,-5,5,-5,-5,-5,-5,0,0,-5,5,0,0,0 Data 5,0,-5,0,0,0,-5,0,5,-5,5,5,5,5,-5,5,5,-5,-5,5,0,0,5 Data 5,-5,-5 , 5,5,-5, -5,5,-5, -5,-5,-5, 0,0,-5,8,0,-5 Data 0,8,-5,-8,0,-5,0,-8,-5 ,2.5,-2.5,2.5, 2.5,2.5,2.5, -2.5,2.5,2.5, -2.5,-2.5,2.5, 0,0,7 'Connection definition; 'Below are the faces of the Object defined as vertice 'numbers, specified in clockwise order. These are followed 'by r,g,b values For the face And finally cell shaded 'parameter (0)=off (1)=on. Data 10,9,13,13,5,0,0 Data 14,10,13,13,4,4,5 Data 14,13,12,12,5,0,0 Data 8,12,13,13,4,4,5 Data 4,8,13,13,5,0,0 Data 10,14,11,11,5,0,0 Data 10,11,6,6,4,4,5 Data 4,13,9,9,4,4,5 Data 1,4,9,9,5,0,0 Data 1,9,10,10,4,4,5 Data 6,1,10,10,5,0,0 Data 5,4,1,1,4,4,5 Data 8,4,3,3,4,4,5 Data 3,12,8,8,5,0,0 Data 3,4,5,5,5,0,0 Data 7,12,3,3,4,4,5 Data 14,12,11,11,4,4,5 Data 11,12,7,7,5,0,0 Data 6,11,2,2,5,0,0 Data 11,7,2,2,4,4,5 Data 1,6,2,2,4,4,5 Data 2,5,1,1,5,0,0 Data 2,7,3,3,5,0,0 Data 2,3,5,5,4,4,5 'bob gfx; data 0,0,0,0,1,1,1,0,0,0,0 data 0,0,1,1,2,2,2,3,1,0,0 data 0,4,4,1,1,2,3,3,3,1,0 data 0,4,4,4,1,3,3,7,3,2,0 data 4,5,4,4,4,1,3,3,3,2,1 data 4,5,5,4,4,4,1,3,2,2,1 data 4,5,6,6,6,4,1,1,1,2,1 data 0,4,6,7,6,4,4,1,1,1,0 data 0,4,6,6,6,5,4,4,1,1,0 data 0,0,4,4,5,5,5,4,4,0,0 data 0,0,0,0,4,4,4,0,0,0,0 'star gfx; 'data 1,0,2,0,1 'data 0,2,3,2,0 'data 2,3,4,3,2 'data 0,2,3,2,0 'data 1,0,2,0,1 DATA 0,1,2,1,0 DATA 1,3,4,4,1 DATA 2,1,4,4,2 DATA 1,3,1,3,1 DATA 0,1,2,1,0 'data 0,1,2,1,0 'data 1,3,4,3,1 'data 2,4,4,4,2 'data 1,3,4,3,0 'data 0,1,2,1,0 'BOB GFX 2 data 0,0,0,0,1,1,1,0,0,0,0 data 0,0,1,1,2,2,2,1,1,0,0 data 0,4,4,1,1,2,3,7,3,1,0 data 0,4,4,4,1,1,7,7,7,1,0 data 4,5,4,4,4,1,3,7,3,2,1 data 4,5,5,4,4,4,1,1,2,2,1 data 4,5,6,7,6,4,1,1,1,2,1 data 0,4,7,7,7,4,4,1,1,1,0 data 0,4,6,7,6,5,4,4,1,1,0 data 0,0,4,4,5,5,5,4,4,0,0 data 0,0,0,0,4,4,4,0,0,0,0 'I DATA 36,5 DATA 35,5 DATA 34,5 DATA 33,5 DATA 32,5 DATA 34,4 DATA 34,3 DATA 34,2 DATA 36,1 DATA 35,1 DATA 34,1 DATA 33,1 DATA 32,1 DATA 36,-5 DATA 35,-5 DATA 34,-5 DATA 33,-5 DATA 32,-5 DATA 34,-4 DATA 34,-3 DATA 34,-2 DATA 36,-1 DATA 35,-1 DATA 34,-1 DATA 33,-1 DATA 32,-1 'N DATA 30,-5 DATA 30,-4 DATA 30,-3 DATA 30,-2 DATA 30,-1 DATA 29,-4 DATA 28,-3 DATA 27,-2 DATA 26,-1 DATA 26,-2 DATA 26,-3 DATA 26,-4 DATA 26,-5 DATA 30,5 DATA 30,4 DATA 30,3 DATA 30,2 DATA 30,1 DATA 29,4 DATA 28,3 DATA 27,2 DATA 26,1 DATA 26,2 DATA 26,3 DATA 26,4 DATA 26,5 'T data 24,-5 data 23,-5 data 22,-5 data 21,-5 data 20,-5 data 22,-4 data 22,-3 data 22,-2 data 22,-1 data 24,5 data 23,5 data 22,5 data 21,5 data 20,5 data 22,4 data 22,3 data 22,2 data 22,1 'r data 18,-5 data 17,-5 data 16,-5 data 15,-5 data 18,-4 data 14,-4 data 18,-3 data 17,-3 data 16,-3 data 15,-3 data 18,-2 data 14,-2 data 18,-1 data 14,-1 data 18,5 data 17,5 data 16,5 data 15,5 data 18,4 data 14,4 data 18,3 data 17,3 data 16,3 data 15,3 data 18,2 data 14,2 data 18,1 data 14,1 'o data 11,-5 data 10,-5 data 9, -5 data 12,-4 data 12,-3 data 12,-2 data 8,-4 data 8,-3 data 8,-2 data 11,-1 data 10,-1 data 9, -1 data 11,5 data 10,5 data 9, 5 data 12,4 data 12,3 data 12,2 data 8,4 data 8,3 data 8,2 data 11,1 data 10,1 data 9, 1 'i data 6,-5 data 5,-5 data 4,-5 data 3,-5 data 2,-5 data 6,-1 data 5,-1 data 4,-1 data 3,-1 data 2,-1 data 4,-4 data 4,-3 data 4,-2 data 6,5 data 5,5 data 4,5 data 3,5 data 2,5 data 6,1 data 5,1 data 4,1 data 3,1 data 2,1 data 4,4 data 4,3 data 4,2 'N DATA 0,-5 DATA 0,-4 DATA 0,-3 DATA 0,-2 DATA 0,-1 DATA -4,-5 DATA -4,-4 DATA -4,-3 DATA -4,-2 DATA -4,-1 DATA -1,-3 DATA -2,-2 DATA -3,-1 DATA 0,5 DATA 0,4 DATA 0,3 DATA 0,2 DATA 0,1 DATA -4,5 DATA -4,4 DATA -4,3 DATA -4,2 DATA -4,1 DATA -1,3 DATA -2,2 DATA -3,1 'f data -6,-5 data -6,-4 data -6,-3 data -6,-2 data -6,-1 data -7,-5 data -8,-5 data -9,-5 data -10,-5 data -7,-3 data -8,-3 data -6,5 data -6,4 data -6,3 data -6,2 data -6,1 data -7,5 data -8,5 data -9,5 data -10,5 data -7,3 data -8,3 'e data -12,-5 data -13,-5 data -14,-5 data -15,-5 data -16,-5 data -12,-1 data -13,-1 data -14,-1 data -15,-1 data -16,-1 data -13,-3 data -14,-3 data -12,-4 data -12,-3 data -12,-2 data -12,5 data -13,5 data -14,5 data -15,5 data -16,5 data -12,1 data -13,1 data -14,1 data -15,1 data -16,1 data -13,3 data -14,3 data -12,4 data -12,3 data -12,2 'r data -18,-5 data -18,-4 data -18,-3 data -18,-2 data -18,-1 data -19,-5 data -20,-5 data -21,-5 data -19,-3 data -20,-3 data -21,-3 data -22,-4 data -22,-2 data -22,-1 data -18,5 data -18,4 data -18,3 data -18,2 data -18,1 data -19,5 data -20,5 data -21,5 data -19,3 data -20,3 data -21,3 data -22,4 data -22,2 data -22,1 'n data -24,-5 data -24,-4 data -24,-3 data -24,-2 data -24,-1 data -28,-5 data -28,-4 data -28,-3 data -28,-2 data -28,-1 data -25,-4 data -26,-3 data -27,-2 data -24,5 data -24,4 data -24,3 data -24,2 data -24,1 data -28,5 data -28,4 data -28,3 data -28,2 data -28,1 data -25,4 data -26,3 data -27,2 'o data -30,-4 data -30,-3 data -30,-2 data -34,-4 data -34,-3 data -34,-2 data -31,-5 data -32,-5 data -33,-5 data -31,-1 data -32,-1 data -33,-1 data -30,4 data -30,3 data -30,2 data -34,4 data -34,3 data -34,2 data -31,5 data -32,5 data -33,5 data -31,1 data -32,1 data -33,1 '============================================================================== ' Binary Font By Shockwave / DBF; (95 Chars) '============================================================================== 'space data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 '! data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,1,0,0,0 '" data 0,0,1,0,1,0,0 data 0,0,1,0,1,0,0 data 0,0,1,0,1,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 '# data 0,0,0,1,0,1,0 data 0,0,0,1,0,1,0 data 0,1,1,1,1,1,1 data 0,0,1,0,1,0,0 data 0,0,1,0,1,0,0 data 0,0,1,0,1,0,0 data 1,1,1,1,1,1,0 data 0,1,0,1,0,0,0 data 0,1,0,1,0,0,0 '£ data 0,0,0,0,0,0,0 data 0,0,1,1,0,0,0 data 0,1,0,0,1,0,0 data 0,1,0,0,0,0,0 data 0,0,1,0,0,0,0 data 0,1,1,1,1,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,1,1,1,1,1,1 '% data 0,1,0,0,0,0,0 data 1,0,1,0,0,0,1 data 0,1,0,0,0,1,0 data 0,0,0,0,1,0,0 data 0,0,0,1,0,0,0 data 0,0,1,0,0,0,0 data 0,1,0,0,0,1,0 data 1,0,0,0,1,0,1 data 0,0,0,0,0,1,0 '& data 0,0,1,1,0,0,0 data 0,1,0,0,0,0,0 data 0,1,0,0,0,0,0 data 0,0,1,0,0,0,0 data 0,1,1,0,0,0,0 data 1,0,0,1,0,0,1 data 1,0,0,1,0,1,0 data 1,0,0,0,1,0,0 data 0,1,1,1,0,1,1 '' data 0,0,1,0,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 '( data 0,0,0,0,1,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,0,1,0,0 ') data 0,0,1,0,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,0,1,0,0 data 0,0,0,0,1,0,0 data 0,0,0,0,1,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,1,0,0,0,0 ' data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,1,1,0,1,1,0 data 0,0,1,1,1,0,0 data 1,1,1,1,1,1,1 data 0,0,1,1,1,0,0 data 0,1,1,0,1,1,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 '+ data 0,0,0,0,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 1,1,1,1,1,1,1 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,0,0,0,0 ', data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,1,0,0,0,0 data 0,1,0,0,0,0,0 '- data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 1,1,1,1,1,1,1 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 '. data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,1,0,0,0 '/ data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,1 data 0,0,0,0,0,1,0 data 0,0,0,0,1,0,0 data 0,0,0,1,0,0,0 data 0,0,1,0,0,0,0 data 0,1,0,0,0,0,0 data 1,0,0,0,0,0,0 data 0,0,0,0,0,0,0 '0 data 0,0,1,1,1,0,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,0,1,1,1,0,0 '1 data 0,0,0,1,0,0,0 data 0,1,1,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,1,1,1,1,1,0 '2 data 0,0,1,1,1,0,0 data 0,1,0,0,0,1,0 data 0,0,0,0,0,1,0 data 0,0,0,0,0,1,0 data 0,0,0,0,1,0,0 data 0,0,0,1,0,0,0 data 0,0,1,0,0,0,0 data 0,1,0,0,0,0,0 data 0,1,1,1,1,1,0 '3 data 0,0,1,1,1,0,0 data 0,1,0,0,0,1,0 data 0,0,0,0,0,1,0 data 0,0,0,0,0,1,0 data 0,0,0,1,1,0,0 data 0,0,0,0,0,1,0 data 0,0,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,0,1,1,1,0,0 '4 data 0,0,0,0,1,0,0 data 0,0,0,1,1,0,0 data 0,0,0,1,1,0,0 data 0,0,1,0,1,0,0 data 0,0,1,0,1,0,0 data 0,1,0,0,1,0,0 data 0,1,1,1,1,1,0 data 0,0,0,0,1,0,0 data 0,0,0,1,1,1,0 '5 data 0,1,1,1,1,1,0 data 0,1,0,0,0,0,0 data 0,1,0,0,0,0,0 data 0,1,0,0,0,0,0 data 0,1,1,1,1,0,0 data 0,0,0,0,0,1,0 data 0,0,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,0,1,1,1,0,0 '6 data 0,0,0,1,1,0,0 data 0,0,1,0,0,0,0 data 0,1,0,0,0,0,0 data 0,1,0,0,0,0,0 data 0,1,1,1,1,0,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,0,1,1,1,0,0 '7 data 0,1,1,1,1,1,0 data 0,1,0,0,0,1,0 data 0,0,0,0,0,1,0 data 0,0,0,0,1,0,0 data 0,0,0,0,1,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 '8 data 0,0,1,1,1,0,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,0,1,1,1,0,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,0,1,1,1,0,0 '9 data 0,0,1,1,1,0,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,0,1,1,1,1,0 data 0,0,0,0,0,1,0 data 0,0,0,0,0,1,0 data 0,0,0,0,1,0,0 data 0,0,1,1,0,0,0 ': data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,0,0,0,0 '; data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,1,0,0,0 data 0,0,1,0,0,0,0 '< data 0,0,0,0,0,0,0 data 0,0,0,1,0,0,0 data 0,0,1,0,0,0,0 data 0,1,0,0,0,0,0 data 1,0,0,0,0,0,0 data 0,1,0,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,0,0,0,0 '= data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,1,1,1,1,1,0 data 0,0,0,0,0,0,0 data 0,1,1,1,1,1,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 '> data 0,0,0,0,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,0,1,0,0 data 0,0,0,0,0,1,0 data 0,0,0,0,0,0,1 data 0,0,0,0,0,1,0 data 0,0,0,0,1,0,0 data 0,0,0,1,0,0,0 data 0,0,0,0,0,0,0 '? data 0,0,1,1,1,0,0 data 0,1,0,0,0,1,0 data 0,0,0,0,0,1,0 data 0,0,0,0,0,1,0 data 0,0,0,0,1,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,1,0,0,0 '@ data 0,0,1,1,1,1,0 data 0,1,0,0,0,0,1 data 1,0,0,1,1,0,1 data 1,0,1,0,1,0,1 data 1,0,1,0,1,0,1 data 1,0,1,0,1,0,1 data 1,0,0,1,1,1,0 data 0,1,0,0,0,0,0 data 0,0,1,1,1,0,0 'a data 0,0,1,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,1,0,1,0,0 data 0,0,1,0,1,0,0 data 0,1,0,0,0,1,0 data 0,1,1,1,1,1,0 data 0,1,0,0,0,1,0 data 1,1,1,0,1,1,1 'b data 1,1,1,1,1,1,0 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,1 data 0,1,1,1,1,1,0 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,1 data 1,1,1,1,1,1,0 'c data 0,0,1,1,1,1,0 data 0,1,0,0,0,0,1 data 1,0,0,0,0,0,0 data 1,0,0,0,0,0,0 data 1,0,0,0,0,0,0 data 1,0,0,0,0,0,0 data 1,0,0,0,0,0,0 data 0,1,0,0,0,0,1 data 0,0,1,1,1,1,0 'd data 1,1,1,1,1,0,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,1 data 0,1,0,0,0,1,0 data 1,1,1,1,1,0,0 'e data 1,1,1,1,1,1,1 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,0 data 0,1,0,0,1,0,0 data 0,1,1,1,1,0,0 data 0,1,0,0,1,0,0 data 0,1,0,0,0,0,0 data 0,1,0,0,0,0,1 data 1,1,1,1,1,1,1 'f data 1,1,1,1,1,1,1 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,0 data 0,1,0,0,1,0,0 data 0,1,1,1,1,0,0 data 0,1,0,0,1,0,0 data 0,1,0,0,0,0,0 data 0,1,0,0,0,0,0 data 1,1,1,1,0,0,0 'g data 0,0,1,1,1,1,0 data 0,1,0,0,0,0,1 data 1,0,0,0,0,0,0 data 1,0,0,0,0,0,0 data 1,0,0,0,0,0,0 data 1,0,0,0,1,1,1 data 1,0,0,0,0,0,1 data 0,1,0,0,0,0,1 data 0,0,1,1,1,1,0 'h data 1,1,1,0,1,1,1 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,1,1,1,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 1,1,1,0,1,1,1 'i data 0,1,1,1,1,1,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,1,1,1,1,1,0 'j data 0,0,0,0,1,1,1 data 0,0,0,0,0,1,0 data 0,0,0,0,0,1,0 data 0,0,0,0,0,1,0 data 0,0,0,0,0,1,0 data 0,0,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,0,1,1,1,0,0 'k data 1,1,1,0,0,1,1 data 0,1,0,0,0,1,0 data 0,1,0,0,1,0,0 data 0,1,0,0,1,0,0 data 0,1,0,1,0,0,0 data 0,1,1,1,0,0,0 data 0,1,0,0,1,0,0 data 0,1,0,0,0,1,0 data 1,1,1,0,0,1,1 'l data 1,1,1,1,1,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,1 data 1,1,1,1,1,1,1 'm data 1,1,0,0,0,1,1 data 0,1,0,0,0,1,0 data 0,1,1,0,1,1,0 data 0,1,1,0,1,1,0 data 0,1,0,1,0,1,0 data 0,1,0,1,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 1,1,1,0,1,1,1 'n data 1,1,0,0,1,1,1 data 0,1,0,0,0,1,0 data 0,1,1,0,0,1,0 data 0,1,1,0,0,1,0 data 0,1,0,1,0,1,0 data 0,1,0,0,1,1,0 data 0,1,0,0,1,1,0 data 0,1,0,0,0,1,0 data 1,1,1,0,0,1,0 'o data 0,0,1,1,1,0,0 data 0,1,0,0,0,1,0 data 1,0,0,0,0,0,1 data 1,0,0,0,0,0,1 data 1,0,0,0,0,0,1 data 1,0,0,0,0,0,1 data 1,0,0,0,0,0,1 data 0,1,0,0,0,1,0 data 0,0,1,1,1,0,0 'p data 1,1,1,1,1,1,0 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,1 data 0,1,1,1,1,1,0 data 0,1,0,0,0,0,0 data 0,1,0,0,0,0,0 data 0,1,0,0,0,0,0 data 1,1,1,1,0,0,0 'q data 0,0,1,1,1,0,0 data 0,1,0,0,0,1,0 data 1,0,0,0,0,0,1 data 1,0,0,0,0,0,1 data 1,0,0,0,0,0,1 data 1,0,0,0,0,0,1 data 0,1,0,0,0,1,0 data 0,0,1,1,1,0,0 data 0,0,1,1,0,1,1 'r data 1,1,1,1,1,1,0 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,1 data 0,1,1,1,1,1,0 data 0,1,0,0,1,0,0 data 0,1,0,0,1,0,0 data 0,1,0,0,0,1,0 data 1,1,1,0,0,1,1 's data 0,1,1,1,1,1,0 data 1,0,0,0,0,0,1 data 1,0,0,0,0,0,0 data 1,0,0,0,0,0,0 data 0,1,1,1,1,1,0 data 0,0,0,0,0,0,1 data 0,0,0,0,0,0,1 data 1,0,0,0,0,0,1 data 0,1,1,1,1,1,0 't data 1,1,1,1,1,1,1 data 1,0,0,1,0,0,1 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,1,1,1,0,0 'u data 1,1,1,0,1,1,1 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,0,1,1,1,0,0 'v data 1,1,1,0,1,1,1 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,0,1,0,1,0,0 data 0,0,1,0,1,0,0 data 0,0,1,0,1,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 'w data 1,1,1,0,1,1,1 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,1,0,1,0 data 0,1,0,1,0,1,0 data 0,1,0,1,0,1,0 data 0,0,1,0,1,0,0 data 0,0,1,0,1,0,0 'x data 1,1,1,0,1,1,1 data 0,1,0,0,0,1,0 data 0,0,1,0,1,0,0 data 0,0,1,0,1,0,0 data 0,0,0,1,0,0,0 data 0,0,1,0,1,0,0 data 0,0,1,0,1,0,0 data 0,1,0,0,0,1,0 data 1,1,1,0,1,1,1 'y data 1,1,1,0,1,1,1 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,0,1,0,1,0,0 data 0,0,1,0,1,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,1,1,1,0,0 'z data 1,1,1,1,1,1,1 data 1,0,0,0,0,1,0 data 0,0,0,0,1,0,0 data 0,0,0,0,1,0,0 data 0,0,0,1,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,1,0,0,0,0,1 data 1,1,1,1,1,1,1 '[ data 0,0,1,1,1,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,1,1,0,0 '\ data 0,0,0,0,0,0,0 data 1,0,0,0,0,0,0 data 0,1,0,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,0,1,0,0 data 0,0,0,0,0,1,0 data 0,0,0,0,0,0,1 data 0,0,0,0,0,0,0 '] data 0,0,1,1,1,0,0 data 0,0,0,0,1,0,0 data 0,0,0,0,1,0,0 data 0,0,0,0,1,0,0 data 0,0,0,0,1,0,0 data 0,0,0,0,1,0,0 data 0,0,0,0,1,0,0 data 0,0,0,0,1,0,0 data 0,0,1,1,1,0,0 '^ data 0,0,0,1,0,0,0 data 0,0,1,0,1,0,0 data 0,1,0,0,0,1,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 '_ data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 1,1,1,1,1,1,1 '` data 0,0,1,0,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 'a data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,1,1,1,1,0,0 data 0,0,0,0,0,1,0 data 0,1,1,1,1,1,0 data 1,0,0,0,0,1,0 data 1,0,0,0,0,1,0 data 0,1,1,1,1,0,1 'b data 1,1,0,0,0,0,0 data 0,1,0,0,0,0,0 data 0,1,0,0,0,0,0 data 0,1,1,1,1,1,0 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,1 data 1,1,1,1,1,1,0 'c data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,1,1,1,1,1,0 data 1,0,0,0,0,0,1 data 1,0,0,0,0,0,0 data 1,0,0,0,0,0,0 data 1,0,0,0,0,0,1 data 0,1,1,1,1,1,0 'd data 0,0,0,0,1,1,0 data 0,0,0,0,0,1,0 data 0,0,0,0,0,1,0 data 0,1,1,1,1,1,0 data 1,0,0,0,0,1,0 data 1,0,0,0,0,1,0 data 1,0,0,0,0,1,0 data 1,0,0,0,0,1,0 data 0,1,1,1,1,1,1 'e data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,1,1,1,1,1,0 data 1,0,0,0,0,0,1 data 1,1,1,1,1,1,1 data 1,0,0,0,0,0,0 data 1,0,0,0,0,0,1 data 0,1,1,1,1,1,0 'f data 0,0,0,1,1,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,1,1,1,1,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,1,1,1,1,0,0 'g data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,1,1,1,1,1,1 data 1,0,0,0,0,1,0 data 1,0,0,0,0,1,0 data 0,1,1,1,1,1,0 data 0,0,0,0,0,1,0 data 0,1,1,1,1,0,0 'h data 1,1,0,0,0,0,0 data 0,1,0,0,0,0,0 data 0,1,0,0,0,0,0 data 0,1,0,1,1,0,0 data 0,1,1,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 1,1,1,0,1,1,1 'i data 0,0,0,1,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,1,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,1,1,1,1,1,0 'j data 0,0,0,0,1,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,1,1,1,1,0,0 data 0,0,0,0,1,0,0 data 0,0,0,0,1,0,0 data 0,0,0,0,1,0,0 data 0,0,0,0,1,0,0 data 0,1,1,1,0,0,0 'k data 1,1,0,0,0,0,0 data 0,1,0,0,0,0,0 data 0,1,0,0,0,0,0 data 0,1,0,0,1,1,0 data 0,1,0,0,1,0,0 data 0,1,0,1,0,0,0 data 0,1,1,1,0,0,0 data 0,1,0,0,1,0,0 data 1,1,0,0,0,1,1 'l data 0,0,1,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,1,1,1,1,1,0 'm data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 1,1,1,0,1,0,0 data 0,1,0,1,0,1,0 data 0,1,0,1,0,1,0 data 0,1,0,1,0,1,0 data 0,1,0,1,0,1,0 data 1,1,0,1,0,1,1 'n data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 1,1,0,1,1,0,0 data 0,1,1,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 1,1,1,0,1,1,1 'o data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,1,1,1,1,1,0 data 1,0,0,0,0,0,1 data 1,0,0,0,0,0,1 data 1,0,0,0,0,0,1 data 1,0,0,0,0,0,1 data 0,1,1,1,1,1,0 'p data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 1,1,1,1,1,1,0 data 0,1,0,0,0,0,1 data 0,1,0,0,0,0,1 data 0,1,1,1,1,1,0 data 0,1,0,0,0,0,0 data 1,1,1,0,0,0,0 'q data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,1,1,1,1,1,1 data 1,0,0,0,0,1,0 data 1,0,0,0,0,1,0 data 0,1,1,1,1,1,0 data 0,0,0,0,0,1,0 data 0,0,0,0,1,1,1 'r data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 1,1,1,0,1,1,0 data 0,0,1,1,0,0,1 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 1,1,1,1,1,0,0 's data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,1,1,1,1,1,0 data 1,0,0,0,0,0,1 data 0,1,1,1,0,0,0 data 0,0,0,0,1,1,0 data 1,0,0,0,0,0,1 data 0,1,1,1,1,1,0 't data 0,0,0,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,1,1,1,1,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,0,0 data 0,0,1,0,0,1,0 data 0,0,0,1,1,0,0 'u data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 1,1,0,0,1,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,1,0,0,1,1,0 data 0,0,1,1,0,1,1 'v data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 1,1,1,0,1,1,1 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,0,1,0,1,0,0 data 0,0,1,0,1,0,0 data 0,0,0,1,0,0,0 'w data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 1,1,1,0,1,1,1 data 0,1,0,0,0,1,0 data 0,1,0,1,0,1,0 data 0,1,0,1,0,1,0 data 0,0,1,0,1,0,0 data 0,0,1,0,1,0,0 'x data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 1,1,1,0,1,1,1 data 0,1,0,0,0,1,0 data 0,0,1,1,1,0,0 data 0,0,1,1,1,0,0 data 0,1,0,0,0,1,0 data 1,1,1,0,1,1,1 'y data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 1,1,1,0,1,1,1 data 0,1,0,0,0,1,0 data 0,1,0,0,0,1,0 data 0,0,1,0,1,0,0 data 0,0,0,1,0,0,0 data 0,1,1,0,0,0,0 'z data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 1,1,1,1,1,1,0 data 1,0,0,0,1,0,0 data 0,0,0,1,0,0,0 data 0,0,1,0,0,0,0 data 0,1,0,0,0,1,0 data 1,1,1,1,1,1,0 '{ data 0,0,0,0,1,1,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,1,1,0,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,0,1,1,0 '\| data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 '} data 0,1,1,0,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,0,1,1,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,0,0,1,0,0,0 data 0,1,1,0,0,0,0 '~ data 0,0,0,0,0,0,0 data 0,1,1,0,0,0,1 data 1,0,0,1,0,0,1 data 1,0,0,0,1,1,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 data 0,0,0,0,0,0,0 '=============================================================================== ' *END* '=============================================================================== DATA 0,0,0,0,0,0,0,0 data 1,1,1,1,1,1,0,1,2,3,2,2,2,2,2,2 data 1,1,1,1,1,1,0,1,2,3,2,2,2,2,2,2 data 1,1,0,0,0,0,0,1,2,3,2,2,3,3,2,2 data 1,1,0,0,0,0,0,1,2,3,2,2,3,3,2,2 data 1,1,0,0,0,0,0,1,2,3,2,2,3,3,2,2 data 1,1,1,1,1,1,0,1,2,3,2,2,2,2,2,2 data 1,1,1,1,1,1,0,1,2,3,2,2,2,2,2,2 data 0,0,0,0,1,1,0,1,2,3,2,2,3,3,3,3 data 0,0,0,0,1,1,0,0,3,3,2,2,3,3,3,3 data 0,0,0,0,1,1,0,0,3,3,2,2,3,3,3,3 data 1,1,1,1,1,1,0,1,2,3,2,2,3,3,3,3 data 1,1,1,1,1,1,0,1,2,3,2,2,3,3,3,3 --v Ps. Thanks Jayenkai for rebuilding Blitzcoder -=-=- https://www.dbfinteractive.com
Sat, 15 Sep 2007, 11:28
Nolan	Really awesome job! Thanks for providing the source, too. I've been thinking about using Freebasic for my next project, and after seeing your demo, I'm inspired. Just curious though.. do you always code in uppercase? -=-=- nolandc.com
Sat, 15 Sep 2007, 13:03
shockwave	All these things are written in freebasic if you need more inspiration; www.intro-inferno.com/production.php?id=2483 www.intro-inferno.com/production.php?id=3520 www.intro-inferno.com/production.php?id=2950 www.intro-inferno.com/production.php?id=1912 About the caps.. I start off with good intentions, I put all reserved words in CAPS and variables etc in lowercase and then I usually lose the plot as I am going along and adding things. You'd definately not want to use my code as an example, but of course I would help you in any way I can if you decide to have a go at FB -=-=- https://www.dbfinteractive.com
Sun, 16 Sep 2007, 12:17
Phoenix	Hey Shockwave! Nice to see you over here, and thanks for sharing that code with us. I think you should, put it in the code snippet section. Perhaps Freebasic is worth a look, one day I'll have to try it out.
Sun, 16 Sep 2007, 16:17
mike_g	I downloaded Freebasic once, but I think I needed to get an IDE for it as everything was in a yucky looking console screen. I might download it again and have a go at making a prog or two with it. ATM I cant see myself getting too involved with it. But then you never know.... Oh and dutch colours intro was very nice btw
Sun, 16 Sep 2007, 17:28
Jayenkai	I've never tried FreeBasic, but it does look like something nice to try out. I really have to try and get some coding finished, though, so now's probably not the best time to be playing about with new languages! -=-=- ''Load, Next List!''
Mon, 17 Sep 2007, 08:33
shockwave	Ah Mike, some people I know have fallen into the same trap, but there is a download available that installs an IDE along with the freebasic language, the download isn't big at all either. I put together a tutorial that goes through the installation here; dbfinteractive.com/index.php?cat=127 There are further tutorials that go on to explain about my softrender library, here it is by the way; ' GENERAL PURPOSE FRAMEWORK FOR FREEBASIC BY SHOCKWAVE, USE FREELY. ' IF YOU LIKE IT A LOT, AND YOU WANT TO SAY THANKS, A PLUG FOR THE SITE ' WOULD DO NICELY! WWW.DBFINTERACTIVE.COM ' ' ================================================================= ' This framework uses Tinyptc. You can use this routine as a shortcut if you ' want. It has functions to draw filled circles, Filled triangles, Rectangles ' Plots , Lines and Bezier curves. ' ' The functions are quite easy to use and they are all pretty fast. ' ' Hope that this helps some people to get started. ' ' You can exit the program by pressing escape. ' It is strongly reccomended that you replace your tinyptc library with the version ' by RBRAZ. The original used GDI drawing and has a crap refresh. '------------------------------------------------------------------------------- ' SUPPORTED COMMANDS: '------------------------------------------------------------------------------- ' TRIANGLE() <- DRAWS A FILLED TRIANGLE ' USE: ' TRIANGLE( X1 , Y1 , X2 , Y2 , X3 , Y3 , R , G , B ) ' R,G AND B ARE COLOUR VALUES BETWEEN 0 AND 255 '------------------------------------------------------------------------------- ' CIRC() <- DRAWS A FILLED CIRCLE ' USE: ' CIRC( X , Y , RADIUS , R , G , B ) ' X AND Y ARE THE CENTER X AND Y POINTS, RADIUS IS IN PIXELS. ' R,G AND B ARE COLOUR VALUES BETWEEN 0 AND 255 '------------------------------------------------------------------------------- ' RECT() <- DRAWS A FILLED RECTANCLE ' USE: ' RECT( X , Y , WIDTH , HEIGHT , R , G , B ) ' X AND Y ARE THE LEFT CORNER, WIDTH AND HEIGHT ARE IN PIXELS. ' R,G AND B ARE COLOUR VALUES BETWEEN 0 AND 255 '------------------------------------------------------------------------------- ' EDGE() <- DRAWS A STRAIGHT LINE ' USE: ' EDGE ( X1 , Y1 , X2 , Y2 , R , G , B ) ' X1,Y1 POINT 1 ' X2,Y2 POINT 2 ' THIS ROUTINE DRAWS A LINE BETWEEN THE TWO POINTS. ' R,G AND B ARE COLOUR VALUES BETWEEN 0 AND 255 '------------------------------------------------------------------------------- ' DOT() <- PLOTS A PIXEL ' USE: ' DOT (X,Y,R,G,B) ' X,Y ARE THE CO-ORDINATES TO PLOT. ' R,G AND B ARE COLOUR VALUES BETWEEN 0 AND 255 '------------------------------------------------------------------------------- ' TEXT()<- DRAWS UPPERCASE TEXT ONTO THE SCREEN. ' USE: ' TEXT ( X , Y , "YOUR TEXT" , R , G , B) ' X,Y TOP LEFT CORNER ' "YOUR TEXT" ANYTHING IN THESE QUOTES IS PRINTED ' R,G AND B ARE COLOUR VALUES BETWEEN 0 AND 255 '------------------------------------------------------------------------------- ' CURVE() <- DRAW A LOW RES BEZIER CURVE ' USE: ' CURVE( X1,Y1 , X2, Y2 ,C1,C2 , C3 , C4 , R , G , B) ' X1,Y1 THE START POINTS OF THE CURVE ' X2,Y2 THE END POINTS OF THE CURVE ' C1,C2 ARE CONTROL POINTS (X AND Y) THE CURVE WILL BEND TOWARDS THIS POINT FROM X1,Y1 ' C3,C4 ARE CONTROL POINTS (X AND Y) THE CURVE WILL BEND TOWARDS THIS AS IT ENDS. ' R,G AND B ARE COLOUR VALUES BETWEEN 0 AND 255 ' NB. THIS CURVE USES THE "EDGE" CALL, THE CURVE IS LOW RESOLUTION AND THE POINTS ' ARE JOINED WITH THE EDGE COMMAND, THIS MEANS THAT THERE WILL NEVER BE GAPS IN THE CURVE ' AND IT IS A LOT FASTER FOR DEMO EFFECTS. '------------------------------------------------------------------------------- ' REMOVE COMMENT ON LINE BELOW FOR WINDOWED MODE #DEFINE PTC_WIN #INCLUDE "TINYPTC.BI" ' ALL VARIABLES MUST BE DECLARED. ' ------------------------------- OPTION STATIC OPTION EXPLICIT ' SCREEN DIMENSIONS. ' ------------------ CONST XRES = 640:' WIDTH CONST YRES = 480:' HEIGHT DECLARE SUB TRIANGLE(BYVAL X1 AS INTEGER , BYVAL Y1 AS INTEGER, BYVAL X2 AS INTEGER , BYVAL Y2 AS INTEGER , BYVAL X3 AS INTEGER, BYVAL Y3 AS INTEGER , BYVAL TR AS INTEGER,BYVAL TG AS INTEGER,BYVAL TB AS INTEGER) DECLARE SUB CIRC(BYVAL CX AS INTEGER , BYVAL CY AS INTEGER , BYVAL R AS INTEGER, BYVAL CR AS INTEGER,BYVAL CG AS INTEGER,BYVAL CB AS INTEGER) DECLARE SUB RECT(BYVAL X1 AS INTEGER , BYVAL Y1 AS INTEGER , BYVAL XW AS INTEGER , BYVAL YH AS INTEGER , BYVAL RR AS INTEGER , BYVAL RG AS INTEGER, BYVAL RB AS INTEGER) DECLARE SUB EDGE(BYVAL X1 AS INTEGER , BYVAL Y1 AS INTEGER , BYVAL X2 AS INTEGER , BYVAL Y2 AS INTEGER , BYVAL LR AS INTEGER, BYVAL LG AS INTEGER, BYVAL LB AS INTEGER) DECLARE SUB DOT (BYVAL X1 AS INTEGER , BYVAL Y1 AS INTEGER , BYVAL DR AS INTEGER , BYVAL DG AS INTEGER , BYVAL DB AS INTEGER ) DECLARE SUB TEXT(BYVAL BX AS INTEGER , BYVAL BY AS INTEGER , BYVAL WW AS STRING , BYVAL WR AS INTEGER, BYVAL WG AS INTEGER, BYVAL WB AS INTEGER) DECLARE SUB CURVE(BYVAL X0 AS INTEGER ,BYVAL Y0 AS INTEGER, BYVAL X3 AS INTEGER ,BYVAL Y3 AS INTEGER ,BYVAL X1 AS INTEGER ,BYVAL Y1 AS INTEGER ,BYVAL X2 AS INTEGER ,BYVAL Y2 AS INTEGER , BYVAL RR AS INTEGER , BYVAL RG AS INTEGER, BYVAL RB AS INTEGER) DECLARE SUB READFONT() '------------------------------------------------------------------------------- ' OPEN THE SCREEN '------------------------------------------------------------------------------- DIM SHARED AS UINTEGER BUFFER ( XRES * YRES ) DIM SHARED FONT (64 * 64) as Uinteger : ' FONT BUFFER READFONT() If( PTC_OPEN( "FREEBASIC GRAPHICS SCREEN", XRES, YRES ) = 0 ) Then End -1 End If '------------------------------------------------------------------------------- ' THE MAIN LOOP; '------------------------------------------------------------------------------- while (1) TRIANGLE (0,0 , 0,100 , 100 , 100 , 255 , 155 , 55) CIRC (200 , 200 , 153 , 100 , 50 , 25) RECT (39 , 80, 100 , 105 , 250, 250, 250) EDGE (-10,-10 , 800,700 , 255 , 100 , 255 ) DOT (500,400 ,255,255,255) CURVE(10,10,XRES,YRES,0,400,100,50,255,255,255) TEXT(2,2,"HELLO WORLD!!! " , 255,255,55 ) PTC_UPDATE @ BUFFER (0) ERASE BUFFER wend '------------------------------------------------------------------------------- ' CUSTOM GRAPHICS SUBS; '------------------------------------------------------------------------------- ' ' USAGE, CURVE(SOURCE X,SOURCE Y , DEST X , DEST Y, CONTROL X1 , CONTROL Y1 , CONTROL X2, CONTROL Y2) ' SUB CURVE(BYVAL X0 AS INTEGER ,BYVAL Y0 AS INTEGER, BYVAL X3 AS INTEGER ,BYVAL Y3 AS INTEGER ,BYVAL X1 AS INTEGER ,BYVAL Y1 AS INTEGER ,BYVAL X2 AS INTEGER ,BYVAL Y2 AS INTEGER , BYVAL RR AS INTEGER , BYVAL RG AS INTEGER, BYVAL RB AS INTEGER) dim as double T DIM AS INTEGER L,X,Y,cx,bx,ax,cy,by,ay,CVLU,OX,OY 'CVLU = RGB(RR,RG,RB) CX = 3(X1-X0) BX = 3(X2-X1)-CX AX = X3-X0-CX-BX CY=3(Y1-Y0) BY=3(Y2-Y1)-CY AY=Y3-Y0-CY-BY for t = 0 to 1.01 step .01 IF T>0 THEN OX=X OY=Y END IF x = ax * t ^ 3 + bx * t ^ 2 + cx * t + X0 y = ay * t ^ 3 + by * t ^ 2 + cy * t + Y0 IF T>0 THEN EDGE (X,Y,OX,OY,RR,RG,RB) END IF next END SUB sub TEXT(BYVAL BX AS INTEGER , BYVAL BY AS INTEGER , BYVAL WW AS STRING , BYVAL WR AS INTEGER , BYVAL WG AS INTEGER , BYVAL WB AS INTEGER) ' ' Usage : TEXT ( X , Y , "YOUR TEXT" , R , G , B ) ' ' WW = UCASE (WW) dim blx,bly as Uinteger DIM as INTEGER STRX,STRY,TLP,TC,CH TC =RGB (WR , WG , WB) dim bm,mm FOR TLP = 0 TO LEN(WW) CH = ASC(MID(WW,TLP,1))-31 IF CH<0 OR CH>64 THEN CH=0 '--------------------------------- 'Calculate Offset In Font Data;--- '--------------------------------- bm=(ch64)-64 STRY=BY FOR BLY=0 TO 7 STRX=BX + ((TLP-1) 9) FOR BLX=1 TO 8 '-------- 'Clip;--- '-------- '---------------------------------------------------- 'Draw Pixel In Buffer If Onscreen And If Binary 1 --- '---------------------------------------------------- MM= FONT((((BLY)8)+(BLX))+BM) IF (STRX>0) AND (STRX<XRES) THEN IF MM >0 THEN BUFFER (((STRY)XRES)+STRX) = TC end if END IF STRX=STRX+1 NEXT STRY=STRY+1 NEXT NEXT END SUB SUB DOT (BYVAL X1 AS INTEGER , BYVAL Y1 AS INTEGER , BYVAL DR AS INTEGER , BYVAL DG AS INTEGER , BYVAL DB AS INTEGER ) '------------------------------------------------------------------------------- ' THIS SUB DRAWS A DOT AT X1 , Y1 ' USAGE : DOT ( X1 , Y1 , R , G , B) ' '------------------------------------------------------------------------------- DIM TC AS INTEGER TC = RGB (DR , DG , DB) IF X1>0 AND X1 < XRES AND Y1>0 AND Y1<YRES THEN BUFFER ( X1 + (Y1 * XRES)) = TC END IF END SUB SUB EDGE(BYVAL X1 AS INTEGER , BYVAL Y1 AS INTEGER , BYVAL X2 AS INTEGER , BYVAL Y2 AS INTEGER , BYVAL LR AS INTEGER, BYVAL LG AS INTEGER, BYVAL LB AS INTEGER) '------------------------------------------------------------------------------- ' ' THIS LINE ROUTINE IS NOT VERY FAST BUT IT WORKS. THANKS TETRA. ' USAGE: ' EDGE ( X1 , Y1 , X2 , Y2 , R , G , B ) ' '------------------------------------------------------------------------------- DIM xdistance AS DOUBLE DIM ydistance AS DOUBLE DIM TC AS INTEGER DIM i AS INTEGER DIM h2 AS INTEGER DIM StartX AS DOUBLE DIM StartY AS DOUBLE DIM XRatio AS DOUBLE DIM YRatio AS DOUBLE TC = RGB ( LR,LG,LB ) xdistance = X2 - X1 ydistance = Y2 - Y1 h2 = sqr( xdistance * xdistance + ydistance * ydistance ) StartX = X1 StartY = Y1 XRatio = xdistance * ( 1.0 / h2 ) YRatio = ydistance * ( 1.0 / h2 ) for i = 0 to h2 IF STARTX>0 AND STARTX<XRES AND STARTY>0 AND STARTY<YRES THEN BUFFER ( INT(StartX) + (INT(StartY) * XRES ) ) = TC END IF StartX = StartX + XRatio StartY = StartY + YRatio next i END SUB SUB RECT(BYVAL X1 AS INTEGER , BYVAL Y1 AS INTEGER , BYVAL XW AS INTEGER , BYVAL YH AS INTEGER , BYVAL RR AS INTEGER , BYVAL RG AS INTEGER, BYVAL RB AS INTEGER) '------------------------------------------------------------------------- ' ' FILLED RECTANGLE ROUTINE WITH ASSEMBLY LANGUAGE RASTERISING. ' USAGE RECT ( TOPX , TOPY , WIDTH , HEIGHT , R , G , B ) ' THIS ROUTINE HAS BASIC CLIPPING TO SCREEN BOUNDARIES. ' '------------------------------------------------------------------------- DIM PP AS INTEGER PTR DIM AS INTEGER SLICE,LP,TC '------------------------------------------------------------------------- ' BASIC CLIPPING TO SCREEN; '------------------------------------------------------------------------- IF X1 < 0 THEN XW = XW + X1 X1=0 END IF IF Y1 < 0 THEN YH = YH + Y1 Y1=0 END IF IF XW + X1 > XRES THEN XW = XRES - X1 END IF IF YH + Y1 > YRES THEN YH = (YRES - Y1) END IF IF XW>0 AND YH>0 THEN TC = RGB ( RR , RG , RB ) FOR LP =Y1 TO (YH+Y1)-1 pp=@buffer((XRESLP)+X1) slice = XW if slice>0 then asm mov eax,dword ptr[TC] mov ecx, [slice] mov edi, [PP] rep stosd end asm end if NEXT END IF END SUB SUB CIRC(BYVAL CX AS INTEGER , BYVAL CY AS INTEGER , BYVAL R AS INTEGER, BYVAL CR AS INTEGER,BYVAL CG AS INTEGER,BYVAL CB AS INTEGER) '------------------------------------------------------------------------- ' ' FILLED CIRCLE ROUTINE WITH ASSEMBLY LANGUAGE RASTERISING. ' USAGE CIRC ( X , Y , RADIUS , R , G , B ) ' REMEMBER THAT X + Y ARE THE CENTER OF YOUR CIRCLE. ' THIS HAS BASIC CLIPPING TO SCREEN BOUNDARIES. ' '------------------------------------------------------------------------- DIM as integer r2,cc,loopy,ww,l,clipl , clipr,slice,tc dim pp as integer ptr r2=rr cc=-r TC = RGB ( CR , CG , CB ) for loopy = cc to r ww = Sqr(r2-loopyloopy) if loopy+cy>=0 and loopy+cy<yres then clipl = cx-ww clipr = (cx+ww)-1 if clipl<0 then clipl=0 if clipr>xres-1 then clipr = xres-1 pp=@buffer((XRES(loopy+CY))+clipl) slice = clipr-clipl if slice>0 then asm mov eax,dword ptr[TC] mov ecx, [slice] mov edi, [PP] rep stosd end asm end if end if next END SUB SUB TRIANGLE(BYVAL X1 AS INTEGER , BYVAL Y1 AS INTEGER, BYVAL X2 AS INTEGER , BYVAL Y2 AS INTEGER , BYVAL X3 AS INTEGER, BYVAL Y3 AS INTEGER , BYVAL TR AS INTEGER,BYVAL TG AS INTEGER,BYVAL TB AS INTEGER) '------------------------------------------------------------------------- ' FLAT TRIANGLE RENDERER WITH ASSEMBLY LANGUAGE RASTERISING BY SHOCKWAVE ^ DBF ^ S!P 2006. ' ' USAGE : TRIANGLE ( X1 , Y1 , X2 , Y2 , X3 , Y3 , R , G , B ) ' CLIPS TO SCREEN BOUNDARIES. ' '------------------------------------------------------------------------- '------------------------------------------------------------------------- ' WE NEED TO SORT THESE POINTS INTO ORDER FROM TOP TO BOTTOM, AN EXCHANGE SORT IS OK. ' AS WE ONLY HAVE GOT 3 POINTS TO ARRANGE. '------------------------------------------------------------------------- DIM AS INTEGER TEMPX,TEMPY,LO,LI,TC DIM AS INTEGER PX(3) DIM AS INTEGER PY(3) DIM TFLAG AS INTEGER dim pp as uinteger PTR DIM AS INTEGER IL1,IL2,SLICE TFLAG=0 TC = RGB ( TR , TG , TB ) PX(1)= X1 PX(2)= X2 PX(3)= X3 PY(1)= Y1 PY(2)= Y2 PY(3)= Y3 FOR LO = 1 TO 2 FOR LI =1 TO 2 IF PY(LI+1) <= PY(LI) THEN TEMPX = PX(LI) : TEMPY = PY(LI) PX(LI) = PX(LI+1) PY(LI) = PY(LI+1) PX(LI+1) = TEMPX PY(LI+1) = TEMPY END IF NEXT LI NEXT LO ' BOOT OUT INVISIBLE TRIANGLES! IF PX(1)<0 AND PX(2)<0 AND PX(3)< 0 THEN TFLAG=1 IF PX(1)>XRES AND PX(2)>XRES AND PX(3)>XRES THEN TFLAG=1 IF PY(1)>YRES AND PY(2)>YRES AND PY(3)>YRES THEN TFLAG=1 DIM AS DOUBLE XP1,XP2:' SCREEN POSITIONS. DIM AS DOUBLE XI1,XI2:' INTERPOLATIONS. '* '* REGULAR TRIANGLE (Y1<Y2 Y2<Y3) '*** IF PY(1)<PY(2) AND PY(2)<PY(3) or (PY(2) = PY(3)) THEN TFLAG=1 XP1 = PX(1) XP2 = PX(1) XI1 = (PX(1)-PX(2)) / (PY(2) - PY(1)) XI2 = (PX(1)-PX(3)) / (PY(3) - PY(1)) FOR LO = PY(1) TO PY(2)-1 IF LO>=0 AND LO<YRES THEN IF XP1<=XP2 THEN IL1=XP1 IL2=XP2 ELSE IL1=XP2 IL2=XP1 END IF IF IL2>XRES THEN IL2=XRES IF IL1<0 THEN IL1=0 SLICE = IL2-IL1 IF SLICE>0 THEN PP = @BUFFER(IL1+(LOXRES)) asm mov eax,dword ptr[TC] mov ecx, [slice] mov edi, [PP] rep stosd end asm END IF END IF XP1=XP1-XI1 XP2=XP2-XI2 NEXT XI1 = (PX(2)-PX(3)) / (PY(3) - PY(2)) XP1 = PX(2) FOR LO = PY(2) TO PY(3) IF LO>=0 AND LO<YRES THEN IF XP1<=XP2 THEN IL1=XP1 IL2=XP2 ELSE IL1=XP2 IL2=XP1 END IF IF IL2>XRES THEN IL2=XRES IF IL1<0 THEN IL1=0 SLICE = IL2-IL1 IF SLICE>0 THEN PP = @BUFFER(IL1+(LOXRES)) asm mov eax,dword ptr[TC] mov ecx, [slice] mov edi, [PP] rep stosd end asm END IF END IF XP1=XP1-XI1 XP2=XP2-XI2 NEXT END IF '* '* FLAT TOPPED TRIANGLE Y1=Y2 '*** IF TFLAG=0 AND PY(1) = PY(2) THEN TFLAG=1 XP1 = PX(1) XP2 = PX(2) XI1 = (PX(1)-PX(3)) / (PY(3) - PY(1)) XI2 = (PX(2)-PX(3)) / (PY(3) - PY(2)) FOR LO = PY(1) TO PY(3) IF LO>=0 AND LO<YRES THEN IF XP1<=XP2 THEN IL1=XP1 IL2=XP2 ELSE IL1=XP2 IL2=XP1 END IF IF IL2>XRES THEN IL2=XRES IF IL1<0 THEN IL1=0 SLICE = IL2-IL1 IF SLICE>0 THEN PP = @BUFFER(IL1+(LOXRES)) asm mov eax,dword ptr[TC] mov ecx, [slice] mov edi, [PP] rep stosd end asm END IF END IF XP1=XP1-XI1 XP2=XP2-XI2 NEXT END IF END SUB SUB READFONT() dim lp FOR LP=1 TO (6464) READ FONT(LP) NEXT END SUB 'space data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 '! data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 ' " data 0,1,1,1,0,1,1,1 data 0,1,1,1,0,1,1,1 data 0,1,1,1,0,1,1,1 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 ' # data 0,0,0,0,0,0,0,0 data 0,1,1,1,0,1,1,0 data 1,1,1,1,1,1,1,1 data 0,1,1,1,0,1,1,0 data 0,1,1,1,0,1,1,0 data 1,1,1,1,1,1,1,1 data 0,1,1,1,0,1,1,0 data 0,0,0,0,0,0,0,0 ' $ = £ data 0,0,1,1,1,1,1,0 data 0,1,1,1,0,1,1,1 data 1,1,1,1,1,0,0,0 data 0,1,1,1,0,0,0,0 data 0,1,1,1,0,0,0,0 data 0,1,1,1,0,0,0,0 data 0,1,1,1,0,0,0,0 data 1,1,1,1,1,1,1,1 ' % data 0,0,0,0,0,0,0,0 data 0,1,1,0,0,1,1,1 data 0,1,1,0,1,1,1,0 data 0,0,0,1,1,1,0,0 data 0,0,1,1,1,0,0,0 data 0,1,1,1,0,1,1,0 data 1,1,1,0,0,1,1,0 data 0,0,0,0,0,0,0,0 ' & = O data 0,0,0,1,1,0,0,0 data 0,1,1,1,1,1,1,0 data 0,1,1,1,1,1,1,0 data 1,1,1,1,1,1,1,1 data 1,1,1,1,1,1,1,1 data 0,1,1,1,1,1,1,0 data 0,1,1,1,1,1,1,0 data 0,0,0,1,1,0,0,0 ' ' data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 ' ( data 0,0,1,1,1,1,0,0 data 0,1,1,1,1,0,0,0 data 0,1,1,1,0,0,0,0 data 0,1,1,1,0,0,0,0 data 0,1,1,1,0,0,0,0 data 0,1,1,1,0,0,0,0 data 0,1,1,1,1,0,0,0 data 0,0,1,1,1,1,0,0 ' ) data 0,0,1,1,1,1,0,0 data 0,0,0,1,1,1,1,0 data 0,0,0,0,1,1,1,0 data 0,0,0,0,1,1,1,0 data 0,0,0,0,1,1,1,0 data 0,0,0,0,1,1,1,0 data 0,0,0,1,1,1,1,0 data 0,0,1,1,1,1,0,0 ' * data 0,0,0,0,0,0,0,0 data 0,1,0,1,1,0,1,0 data 0,0,1,1,1,1,0,0 data 0,1,1,1,1,1,1,0 data 0,1,1,1,1,1,1,0 data 0,0,1,1,1,1,0,0 data 0,1,0,1,1,0,1,0 data 0,0,0,0,0,0,0,0 ' + data 0,0,0,0,0,0,0,0 data 0,0,0,1,1,0,0,0 data 0,0,0,1,1,0,0,0 data 0,1,1,1,1,1,1,0 data 0,1,1,1,1,1,1,0 data 0,0,0,1,1,0,0,0 data 0,0,0,1,1,0,0,0 data 0,0,0,0,0,0,0,0 ' , data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 data 0,0,1,1,1,1,0,0 ' - data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,1,1,1,1,1,1,0 data 0,1,1,1,1,1,1,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 ' . data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,1,1,0,0,0 data 0,0,0,1,1,0,0,0 ' / data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,1,1,1 data 0,0,0,0,1,1,1,0 data 0,0,0,1,1,1,0,0 data 0,0,1,1,1,0,0,0 data 0,1,1,1,0,0,0,0 data 1,1,1,0,0,0,0,0 data 0,0,0,0,0,0,0,0 '0 data 0,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,1,0,1,1,1 data 1,1,1,0,1,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 0,1,1,1,1,1,1,0 '1 data 0,0,0,1,1,1,0,0 data 0,0,1,1,1,1,0,0 data 0,0,1,1,1,1,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 data 0,0,1,1,1,1,1,0 '2 data 0,0,1,1,1,1,1,0 data 0,1,1,1,0,1,1,1 data 0,0,0,0,0,1,1,1 data 0,1,1,1,1,1,1,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,1,1 data 1,1,1,1,1,1,1,1 '3 data 0,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 0,0,0,0,1,1,1,0 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 0,1,1,1,1,1,1,0 '4 data 1,1,1,0,1,1,1,0 data 1,1,1,0,1,1,1,0 data 0,1,1,1,1,1,1,1 data 0,0,1,1,1,0,0,0 data 0,0,1,1,1,0,0,0 data 0,0,1,1,1,0,0,0 data 0,0,1,1,1,0,0,0 data 0,0,1,1,1,0,0,0 '5 data 1,1,1,1,1,1,1,0 data 1,1,1,0,1,1,1,0 data 1,1,1,0,0,0,0,0 data 0,1,1,1,1,1,1,0 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 0,1,1,1,1,1,1,0 '6 data 1,1,0,0,0,0,0,0 data 1,1,0,0,0,0,0,0 data 1,1,0,0,0,0,0,0 data 1,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 0,1,1,1,1,1,1,0 '7 data 1,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 0,0,0,0,1,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 '8 data 0,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 0,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 0,1,1,1,1,1,1,0 '9 data 0,1,1,1,1,1,1,1 data 1,1,0,0,0,1,1,1 data 0,1,1,1,1,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 ' : data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 data 0,0,1,1,1,1,0,0 ' ; data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 ' < data 0,0,0,0,0,0,0,0 data 0,0,1,1,1,0,0,0 data 0,1,1,1,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 0,1,1,1,0,0,0,0 data 0,0,1,1,1,0,0,0 data 0,0,0,0,0,0,0,0 ' = data 0,0,0,0,0,0,0,0 data 0,0,1,1,1,1,0,0 data 0,0,1,1,1,1,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,1,1,1,1,0,0 data 0,0,1,1,1,1,0,0 data 0,0,0,0,0,0,0,0 ' > data 0,0,0,0,0,0,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,0,1,1,1,0 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,1,1,1,0 data 0,0,0,1,1,1,0,0 data 0,0,0,0,0,0,0,0 ' ? data 0,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 0,0,0,1,1,1,1,0 data 0,0,0,1,1,1,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,1,1,1,0,0 ' @ data 0,0,0,0,0,0,0,0 data 0,0,1,1,1,1,0,0 data 0,1,1,0,0,1,1,0 data 0,1,0,1,1,0,1,0 data 0,1,0,0,0,0,1,0 data 0,1,0,1,1,0,1,0 data 0,0,1,1,1,1,0,0 data 0,0,0,0,0,0,0,0 '[]\^_?@ 'A data 0,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,1,1,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 'B data 1,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,1,1,1,1,0 'C data 0,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 0,1,1,1,1,1,1,0 'D data 1,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,1,1,1,1,0 'E data 0,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,1,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 0,1,1,1,1,1,1,0 'F data 0,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,1,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 'G data 0,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,1,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 0,1,1,1,1,1,1,0 'H data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,1,1,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 'I data 0,1,1,1,1,1,0,0 data 0,0,1,1,1,0,0,0 data 0,0,1,1,1,0,0,0 data 0,0,1,1,1,0,0,0 data 0,0,1,1,1,0,0,0 data 0,0,1,1,1,0,0,0 data 0,0,1,1,1,0,0,0 data 0,1,1,1,1,1,0,0 'J data 0,1,1,1,1,1,1,1 data 1,1,1,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 1,1,1,1,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 0,1,1,1,1,1,1,0 'K data 1,1,1,0,1,1,1,0 data 1,1,1,0,1,1,1,0 data 1,1,1,1,1,1,0,0 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 'L data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 0,1,1,1,1,1,1,0 'M data 0,1,1,0,1,1,1,0 data 1,1,1,1,1,1,1,1 data 1,1,1,1,0,1,1,1 data 1,1,1,1,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 'N data 1,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 'O data 0,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 0,1,1,1,1,1,1,0 'P data 1,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,1,1,1,1,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 'Q data 0,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,1,0,1,1 data 1,1,1,0,1,1,0,1 data 1,1,1,0,0,1,1,0 data 0,1,1,1,1,1,1,0 'R data 1,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 'S data 0,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,0,0,0 data 0,1,1,1,1,1,1,0 data 0,0,0,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 0,1,1,1,1,1,1,0 'T data 1,1,1,1,1,1,1,0 data 0,0,1,1,1,0,0,0 data 0,0,1,1,1,0,0,0 data 0,0,1,1,1,0,0,0 data 0,0,1,1,1,0,0,0 data 0,0,1,1,1,0,0,0 data 0,0,1,1,1,0,0,0 data 0,0,1,1,1,0,0,0 'U data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 0,1,1,1,1,1,1,0 'V data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 0,1,1,0,0,1,1,0 data 0,0,1,1,1,1,0,0 'W data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,1,0,1,1,1 data 1,1,1,1,0,1,1,1 data 1,1,1,1,0,1,1,1 data 0,1,1,1,1,1,1,0 'X data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 0,1,1,1,1,1,1,0 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 'Y data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 0,1,1,1,1,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 1,1,1,0,0,1,1,1 data 0,1,1,1,1,1,1,0 'Z data 0,1,1,1,1,1,1,1 data 1,1,1,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 0,1,1,1,1,1,1,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,1,1,1 data 1,1,1,1,1,1,1,0 '[ data 1,1,1,1,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 1,1,1,1,0,0,0,0 '\ data 1,1,0,0,0,0,0,0 data 1,1,1,0,0,0,0,0 data 0,1,1,1,0,0,0,0 data 0,0,1,1,1,0,0,0 data 0,0,0,1,1,1,0,0 data 0,0,0,0,1,1,1,0 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,0,1,1 '] data 0,0,0,0,1,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,0,1,1,1 data 0,0,0,0,1,1,1,1 '^ data 0,0,0,1,1,0,0,0 data 0,0,1,1,1,1,0,0 data 0,1,1,0,0,1,1,0 data 1,1,1,0,0,1,1,1 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 '_ data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,0,0,0,0,0,0,0 data 0,1,1,1,1,1,1,0 --v But a couple of caveats go with that library, it uses tinyptc which is the method I prefer to draw my things because it is the closest to Amiga style coding, rasterising everything basically. It will draw simple things like lines, filled circles, rectangles, beziers etc very quickly but it doe not do bitmap loading etc.. I have routines to do this but this library was really designed to get people started If people were interested in using Freebasic, they'd be better off following the tutorials I already wrote and are in the link I posted above, you do not need to register at my place to use them, don't worry. I like to keep all my things there because it's easier to keep them up to date that way, Freebasic is evolving and the libraries I make have to change sometimes to make them compatible with new versions, or I sometimes find optimisations and add things. Everything is freely usable, if it gets more people coding I am happy. Btw, that attachment (softrender lib) in it's current incarnation has been downloaded 61 times, the last version was downloaded 84 times. I plan to add gourad triangles, affine texture mapping and a highly optimised version of perspective correct texture mapping to that lib in the coming months to bring it up to date. AgentSmith, you should not be angry at yourself for getting Purebasic, it's an impressive language and I own it myself too, although I haven't done a lot with it, just some vectors and a few starfields I must be honest. -=-=- https://www.dbfinteractive.com
Wed, 26 Sep 2007, 13:50
dna	I haad trouble with your .rar files. They downloaded into the windows explorer. --- I haad trouble with your .rar files. They downloaded into the windows explorer. -=-=- DNA
Thu, 04 Oct 2007, 10:45
Clyde	Shockwave thats a very impressive demo dude. All those after an IDE for Free Basic, you can use FBIDE. FBIDE -=-=-
Tue, 13 Nov 2007, 14:42
dna	I finally got FreeBasic to run. Agent Smith, You're right. Freebasic is almost worth kicking oneself over except that it lacks TCP/UPD commands. I also never knew that it could imbed assembly language like Purebasic. -=-=- DNA
Tue, 13 Nov 2007, 14:49
dna	This is incredible shockwave!! It's much easier than purebasic. I never knew this language could do this. An incredible demo. -=-=- DNA
Fri, 16 Nov 2007, 17:44
dna	<< When I saw just how good FreeBASIC was, I felt like kicking myself for buying PureBasic. >> I now know how you felt. I could never get the Jellyfish interface running but now that someone has bundled the IDE I can see that it rivals purebasic. It will be interesting to see what direction FRED takes Purebasic to keep it ahead of Freebasic. -=-=- DNA