Merge branch 'master' of ssh://svjatoslav.eu:10006/home/n0/git/qbasicapps

[qbasicapps.git] / misc / font.bas

diff --git a/misc/font.bas b/misc/font.bas
new file mode 100644 (file)
index 0000000..0c005e5
--- /dev/null
+++ b/misc/font.bas
@@ -0,0 +1,61 @@
+' Svjatoslav Agejenko\r
+' year: 2001\r
+' alien text\r
+\r
+DEFINT A-Z\r
+DECLARE SUB prch (x, y, n, s)\r
+DIM SHARED co(1 TO 4)\r
+co(1) = 7\r
+co(2) = 7\r
+co(3) = 0\r
+co(4) = 0\r
+\r
+\r
+SCREEN 12\r
+RANDOMIZE TIMER\r
+\r
+PAINT (1, 1), 0\r
+\r
+siz = 4\r
+\r
+tmp = 0\r
+FOR y = 1 TO 480 - siz - 2 STEP siz + (siz \ 2)\r
+tmp1 = 0\r
+FOR x = 1 TO 640 - siz - 2 STEP siz + (siz \ 2)\r
+prch x, y, RND * 16, siz\r
+tmp1 = tmp1 + 1\r
+IF tmp1 > 20 THEN tmp1 = 0: x = x + (siz)\r
+NEXT x\r
+tmp = tmp + 1\r
+IF tmp > 5 THEN tmp = 0: y = y + (siz)\r
+NEXT y\r
+\r
+SUB prch (x, y, n, s)\r
+sp = s \ 2\r
+\r
+c = co(RND * 3 + 1)\r
+LINE (x, y)-(x + s, y), c\r
+LINE (x, y)-(x + sp, y + sp), c\r
+LINE (x + s, y)-(x + sp, y + sp), c\r
+PAINT (x + 2, y + 1), c\r
+\r
+c = co(RND * 3 + 1)\r
+LINE (x, y)-(x, y + s), c\r
+LINE (x, y)-(x + sp, y + sp), c\r
+LINE (x, y + s)-(x + sp, y + sp), c\r
+PAINT (x + 1, y + 2), c\r
+\r
+c = co(RND * 3 + 1)\r
+LINE (x + s, y)-(x + s, y + s), c\r
+LINE (x + s, y)-(x + sp, y + sp), c\r
+LINE (x + s, y + s)-(x + sp, y + sp), c\r
+PAINT (x + s - 1, y + 2), c\r
+\r
+c = co(RND * 3 + 1)\r
+LINE (x, y + s)-(x + s, y + s), c\r
+LINE (x, y + s)-(x + sp, y + sp), c\r
+LINE (x + s, y + s)-(x + sp, y + sp), c\r
+PAINT (x + 2, y + s - 1), c\r
+\r
+END SUB\r
+\r