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:
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