graphics/3D/swapping 3D engine/objects/font/mk3dfont.bas

   1 ' 3D font table generator\r
   2 ' made by Svjatoslav Agejenko\r
   3 ' last edit 2004.01\r
   4 ' H-Page: svjatoslav.eu\r
   5 ' E-Mail: svjatoslavagejenko@gmail.com\r
   6  \r
   7 DECLARE SUB ln (x1!, y1!, x2!, y2!)\r
   8 SCREEN 13\r
   9 \r
  10 FOR a = 32 TO 255\r
  11   LOCATE 2, 2\r
  12   PRINT CHR$(a)\r
  13   n$ = STR$(a)\r
  14   IF LEFT$(n$, 1) = " " THEN n$ = RIGHT$(n$, LEN(n$) - 1)\r
  15 \r
  16   n$ = "ltr" + n$ + ".3d"\r
  17 \r
  18   OPEN n$ FOR OUTPUT AS #1\r
  19   FOR y = 0 TO 15\r
  20     FOR x = 0 TO 15\r
  21       c1 = POINT(x, y)\r
  22       c2 = POINT(x + 1, y)\r
  23       IF c2 <> c1 THEN ln x + 1, y, x + 1, y + 1\r
  24     NEXT x\r
  25   NEXT y\r
  26 \r
  27   FOR x = 0 TO 15\r
  28     FOR y = 0 TO 15\r
  29       c1 = POINT(x, y)\r
  30       c2 = POINT(x, y + 1)\r
  31       IF c2 <> c1 THEN ln x, y + 1, x + 1, y + 1\r
  32     NEXT y\r
  33   NEXT x\r
  34 \r
  35   CLOSE #1\r
  36 NEXT a\r
  37 SCREEN 0\r
  38 PRINT "done"\r
  39 SYSTEM\r
  40 \r
  41 SUB ln (x1, y1, x2, y2)\r
  42   PRINT #1, x1 - 7; y1 - 7; 0; x2 - 7; y2 - 7; 0; 10\r
  43 END SUB\r
  44 \r