1 ' 3D font table generator
\r
2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslavagejenko@gmail.com
\r
7 DECLARE SUB ln (x1!, y1!, x2!, y2!)
\r
14 IF LEFT$(n$, 1) = " " THEN n$ = RIGHT$(n$, LEN(n$) - 1)
\r
16 n$ = "ltr" + n$ + ".3d"
\r
18 OPEN n$ FOR OUTPUT AS #1
\r
22 c2 = POINT(x + 1, y)
\r
23 IF c2 <> c1 THEN ln x + 1, y, x + 1, y + 1
\r
30 c2 = POINT(x, y + 1)
\r
31 IF c2 <> c1 THEN ln x, y + 1, x + 1, y + 1
\r
41 SUB ln (x1, y1, x2, y2)
\r
42 PRINT #1, x1 - 7; y1 - 7; 0; x2 - 7; y2 - 7; 0; 10
\r