-----------------------------------

chipanpriest

Wed Dec 21, 2011 12:40 pm


Matrix (sort of)

-----------------------------------

I've made 2 different "matrix" type things, here they are

% Made by: Aaron Rader
% 21 December 2011

var letter : int := 100 %Number of letters
var size : int := 30 %Size of letters

var x : array 1 .. letter of int
var y : array 1 .. letter of int
var ch : array 1 .. letter of int
var font : array 1 .. letter of int
var chrsize : array 1 .. letter of int

View.Set ("offscreenonly")
colourback (7)
cls

for i : 1 .. letter
    randint (chrsize (i), size - 10, size)
    randint (x (i), 0, maxx)
    randint (y (i), 0, maxy)
    randint (ch (i), 65, 90)
end for

loop
    for i : 1 .. letter
        font (i) := Font.New ("Bauhaus 93:" + intstr (chrsize (i)))
        Font.Draw (chr (ch (i)), x (i), y (i), font (i), green)
    end for
    for i : 1 .. letter
        y (i) := y (i) - 1
    end for
    for i : 1 .. letter
        if y (i)