Ye-Olde Vector Font

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|510\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Effects

Jayenkai	Created : 14 August 2008 System : Windows Language : Blitz Ye-Olde Vector Font
Straight from Invisible Munky comes a nice little vector font! Enjoy! And feel free to tweak to your own style of font.. Graphics 800,600,32,2 SetBuffer BackBuffer() Gosub GetFont Repeat Cls DrawText 0,0,"This is probably too small",0.5 DrawText 0,50,"This is normal",1 DrawText 0,150,"This is a bigger test",2 DrawText 0,250,"And this is too big",4 Flip Until KeyDown(1) ;Gosub GetFont ; Should be up the top of your code... .GetFont Dim Font#(100,100,3) ; <-- You might want to change this if you like having a Font array!! maxletter=0 maxline=0 Restore FontData Repeat maxletter=maxletter+1 maxline=0 offx=-1 offy=15 wide=1 Repeat maxline=maxline+1 Read in$ Xpos#=Float(in$)-OffX Read in$ Ypos#=Float(in$)-Offy YPos=YPos+1 If xpos>wide Then wide=xpos+1 angat#=ATan2(Ypos,Xpos) distat#=Sqr((Ypos^2)+(Xpos^2)) font(maxletter,maxline,1)=Float(angat#);:DebugLog "font["+maxletter+"]["+maxline+"][1]="+font(maxletter,maxline,1)+";" font(maxletter,maxline,2)=Float(distat#);:DebugLog "font["+maxletter+"]["+maxline+"][2]="+font(maxletter,maxline,2)+";" Read in$ font(maxletter,maxline,3)=Float(in$);:DebugLog "font["+maxletter+"]["+maxline+"][3]="+font(maxletter,maxline,3)+";" If Upper$(in$)="END" Then maxline=maxline-1:font(maxletter,0,0)=maxline:DebugLog "font["+maxletter+"][0][0]="+font(maxletter,0,0)+";" Until Upper$(in$)="END" Read in$ font(maxletter,100,2)=Int(in$):DebugLog "font["+maxletter+"][100][2]="+font(maxletter,100,2)+";" font(maxletter,100,1)=wide Read in$ Until Upper$(in$)="END" Return Function DrawText(AtX,AtY,txt$,size#,center=0) If center=1 atx2=0 For n=1 To Len(txt$) let=Asc(Upper$(Mid$(txt$,n,1))) let=GetLet(let) atx2=DrawFont(atx2,-1000,let,size) Next AtX=AtX-atx2/2 EndIf For n=1 To Len(txt$) let=Asc(Upper$(Mid$(txt$,n,1))) let=GetLet(let) atx=DrawFont(atx,aty,let,size) Next End Function Function GetLet(in) out=27 If in>64 And in<91 Then out=in-64 If in=32 Then out=27 If in>47 And in<58 Then out=in-20 If in=47 Then out=38 If in=45 Then out=39 If in=39 Or in=44 Or in=42 Then out=40 Return out End Function Function DrawFont(atX#,atY#,Shape,Size#,Rot#=90,Dist#=0) NextX=0 Dist=0-Dist AtX=AtX-(Cos(Rot)dist) AtY=AtY+(Sin(Rot)dist) For Lin=1 To font(Shape,0,0) Lin2=Lin+1:If Lin2>font(Shape,0,0) Then lin2=1 X1=AtX+((Sin(font(Shape,Lin,1)+Rot))(font(Shape,Lin,2)Size)) Y1=AtY-((Cos(font(Shape,Lin,1)+Rot))(font(Shape,Lin,2)Size)) X2=AtX+((Sin(font(Shape,Lin2,1)+Rot))(font(Shape,Lin2,2)Size)) Y2=AtY-((Cos(font(Shape,Lin2,1)+Rot))(font(Shape,Lin2,2)Size)) If X1>nextX Then nextX=x1+2 If AlMode=1 X1=x1+Rand(0,1) Y1=Y1+Rand(0,1) Y2=Y2+Rand(0,1) X2=x2+Rand(0,1) EndIf If font(shape,lin2,3)=1 And ( (lin=font(shape,0,0) And font(shape,100,2)=1 ) Or lin<>font(shape,0,0) ) Then Line X1,Y1,x2,y2 Next Return NextX End Function .FontData ;CoordX,CoordY*poly, End,End,End,Next/End Data "1","31","1","8","15","1","15","31","1","13","26","0","3","26","1","END","END","END","0","Next" Data "0","31","1","0","15","1","7","15","1","10","17","1","11","19","1","9","21","1","0","22","1","9","23","1","11","24","1","12","27","1","10","29","1","7","31","1","END","END","END","1","NEXT" Data "12","19","1","11","16","1","7","15","1","4","16","1","2","18","1","1","20","1","0","22","1","1","26","1","2","28","1","4","30","1","7","31","1","11","30","1","12","29","1","13","26","1","END","END","END","0","NEXT" Data "0","31","1","0","15","1","7","15","1","10","16","1","12","18","1","13","23","1","12","27","1","10","29","1","8","30","1","6","31","1","End","End","End","1","Next" Data "12","31","1","0","31","1","0","15","1","12","15","1","0","22","0","11","22","1","End","End","End","0","Next" Data "0","31","1","0","15","1","12","15","1","0","22","0","11","22","1","End","End","End","0","Next" Data "9","23","1","15","23","1","15","28","1","13","29","1","11","30","1","8","31","1","5","30","1","3","29","1","1","27","1","0","23","1","1","20","1","3","17","1","6","16","1","8","15","1","11","16","1","13","17","1","14","19","1","End","End","End","0","Next" Data "0","31","1","0","15","1","0","22","0","12","22","1","12","15","1","12","31","1","End","End","End","0","Next" Data "0","31","1","0","15","1","End","End","End","0","Next" Data "0","27","1","1","29","1","4","31","1","6","30","1","7","29","1","7","15","1","End","End","End","0","Next" ;K Data "0","31","1","0","15","1","0","25","0","12","15","1","4","21","0","12","31","1","End","End","End","0","Next" Data "0","15","1","0","31","1","9","31","1","End","End","End","0","Next" Data "0","31","1","0","15","1","2","16","1","7","31","1","12","16","1","14","15","1","14","31","1","End","End","End","0","Next" Data "0","31","1","0","15","1","12","31","1","12","15","1","End","End","End","0","Next" Data "0","23","1","1","27","1","4","29","1","8","31","1","12","30","1","15","27","1","16","23","1","15","20","1","13","17","1","11","16","1","8","15","1","5","16","1","3","17","1","1","20","1","End","End","End","1","Next" Data "0","31","1","0","15","1","7","15","1","10","16","1","12","19","1","11","22","1","8","23","1","0","24","1","End","End","End","0","Next" Data "0","23","1","1","27","1","4","29","1","8","31","1","12","30","1","15","27","1","16","23","1","15","20","1","13","17","1","11","16","1","8","15","1","5","16","1","3","17","1","1","20","1","0","23","1","9","27","0","17","32","1","End","End","End","0","Next" Data "0","31","1","0","15","1","7","15","1","10","16","1","12","19","1","11","21","1","8","22","1","0","23","1","6","23","0","12","31","1","End","End","End","0","Next" Data "0","26","1","1","29","1","3","30","1","6","31","1","9","30","1","11","29","1","12","27","1","10","24","1","6","23","1","2","22","1","0","19","1","2","17","1","4","16","1","6","15","1","9","16","1","11","17","1","12","18","1","End","End","End","0","Next" Data "0","15","1","13","15","1","7","15","0","7","31","1","End","End","End","0","Next" ;U Data "0","15","1","0","25","1","1","28","1","2","30","1","6","31","1","10","29","1","11","27","1","12","15","1","End","End","End","0","Next" Data "0","15","1","6","31","1","12","15","1","End","End","End","0","Next" Data "0","15","1","4","31","1","10","15","1","16","31","1","20","15","1","End","End","End","0","Next" Data "1","15","1","12","31","1","11","15","0","0","31","1","End","End","End","0","Next" Data "0","15","1","6","23","1","12","15","1","6","23","0","6","31","1","End","End","End","0","Next" Data "1","15","1","13","15","1","0","31","1","13","31","1","End","End","End","0","Next" ; Space Data "0","31","0","6","31","0","End","End","End","0","Next" ;Numbers Data "0","23","1","1","27","1","4","29","1","8","31","1","12","30","1","15","27","1","16","23","1","15","20","1","13","17","1","11","16","1","8","15","1","5","16","1","3","17","1","1","20","1","End","End","End","1","Next" Data "0","20","1","5","15","1","5","31","1","End","End","End","0","Next" Data "1","20","1","2","17","1","5","15","1","8","16","1","10","18","1","9","21","1","0","31","1","10","31","1","End","End","End","0","Next" Data "0","18","1","2","16","1","4","15","1","6","16","1","8","18","1","8","20","1","7","21","1","4","22","1","7","23","1","9","25","1","9","28","1","7","30","1","5","31","1","3","31","1","1","30","1","0","27","1","End","End","End","0","Next" Data "8","31","1","8","15","1","0","27","1","10","27","1","End","End","End","0","Next" Data "8","15","1","1","15","1","0","23","1","2","21","1","4","20","1","7","21","1","9","24","1","9","27","1","8","28","1","7","30","1","5","31","1","3","31","1","1","30","1","0","27","1","End","End","End","0","Next" Data "9","18","1","8","16","1","7","15","1","4","15","1","2","17","1","1","20","1","0","22","1","1","26","1","2","29","1","3","30","1","5","31","1","8","30","1","10","27","1","9","24","1","7","22","1","5","21","1","3","22","1","0","24","1","End","End","End","0","Next" Data "0","15","1","10","15","1","7","20","1","5","25","1","4","31","1","End","End","End","0","Next" Data "5","23","1","3","22","1","1","19","1","2","16","1","5","15","1","8","16","1","9","19","1","8","21","1","5","23","1","2","24","1","0","26","1","1","29","1","3","31","1","7","31","1","8","29","1","10","27","1","9","24","1","7","23","1","End","End","End","1","Next" Data "9","22","1","7","24","1","4","25","1","2","24","1","0","20","1","2","17","1","5","15","1","8","17","1","10","19","1","10","25","1","9","28","1","7","30","1","6","31","1","3","31","1","1","29","1","1","28","1","End","End","End","0","Next" ;Symbols ;/ 38 Data "0","31","1","6","15","1","End","End","End","0","Next" ;- 39 Data "0","24","1","6","24","1","End","End","End","0","Next" ;' 40 Data "1","15","1","0","18","1","End","End","End","0","END" --v

Comments
Tuesday, 19 August 2008, 14:54
dna	This is different. This reminds me of the old Vestax system.
Wednesday, 20 August 2008, 16:23
Orion Pax	Or the vectrex game systems.....that was the day.

Ye-Olde Vector Font

Comments