this just scales any text up to 2.4x, 3x, and 3.8x (the sizes correspond to S, which can be stored as 2, 3, or 4 (recommended sizes)). This is just a draft so there will soon be a more customizable version

Code:

ClrDraw
DelVar L1
AxesOff
FnOff
ZStandard
72->Ymax
84->Xmin
ZIntager
ClrHome
Input "",Str0
Prompt S
length(Str0->L
ClrHome:0->C
6L->dim(L1
Text(-1,0,0,Str0
For(A,0,6L-1,6
For(Z,A,A+4
For(V,0,6
C+1->C
pxl-Test(V,Z->L1(C
End:End:End
0->C
ClrDraw
For(Z,1,1+7S(L-1),6S
For(W,Z,Z+4S,S
For(R,61,61-6S,-S
C+1->C
If L1(C):Then
Pt-On(W,R,2
Pt-On(W,R
End:End:End:End
Code if you're a SourceCoder fan:

Code:
ClrDraw
DelVar L1
AxesOff
FnOff
ZStandard
72->Ymax
84->Xmin
ZInteger
ClrHome
Input "",Str0
Prompt S
length(Str0->L
ClrHome:0->C
6L->dim(L1
Text(~1,0,0,Str0
For(A,0,6L-1,6
For(Z,A,A+4
For(V,0,6
C+1->C
pxl-Test(V,Z->L1(C
End:End:End
0->C
ClrDraw
For(Z,1,1+7S(L-1),6S
For(W,Z,Z+4S,S
For(R,61,61-6S,~S
C+1->C
If L1(C):Then
Pt-On(W,R,2
Pt-On(W,R
End:End:End:End

You misspelled ZInteger Razz

Wow! it really does enlarge the font! Very Happy Using this on title screens is a must Smile
This is great, i find this very interesting, because ive been lokking for a good program that does this. Great job!
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Page 1 of 1
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement