X-Git-Url: http://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=blobdiff_plain;f=misc%2Ffont.bas;fp=misc%2Ffont.bas;h=0c005e5aa5b7bc80bb84cc830a16e73c4e603501;hp=0000000000000000000000000000000000000000;hb=c6aaa433dedff2dd8063983c7716c0cdb296a0f9;hpb=3779e9035f2c67e36111585e10d956a3e9e3c0fa

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