var mainWindow := Window.Open ("graphics:640;400")  % Opens Main Window
var font := Font.New ("Symbol:7")                   % Font Variable
var fn : int                                        % File Number Variable
colorback (black)                                   % Setting backround color
cls

var screencolor1 : array 0 .. 90, 0 .. 56 of int    % Screen Picture 1
var screencolor2 : array 0 .. 90, 0 .. 56 of int    % Screen Picture 2


var temp1 : array 1 .. 90 of int                    % Make sure to not redraw a strand over another one
var rand2 : int                                     % Randomize the Strand Placement

/* Key Features
 - Capture Screen Procedure to quickly get the screen for later use.
 - Easy to make ur own designs
 - Has Multi-Purpose getscreen procedure that will show anything stored in a file
 - Ability to switch pictures and have different numbers of pictures show
 - Pretty much can show any picture that isnt too colorfull or full of dark shades
 */

%%%%%%%%%%%%%%% Caputre the screen for a later use. This is used to get the screen %%%%%%%%%%
proc capturescreen (num : int)
    open : fn, "screenshot" + intstr (num) + ".txt", put % Opens the file
    for i : 1 .. maxx - 7 by 7
        for x : 1 .. maxy - 7 by 7
            put : fn, whatdotcolor (i, x), " " .. % Puts in the File
        end for
        put : fn, ""
    end for
end capturescreen
/*Here is where you could put the stuff you want to capture to the file.. and you would
 uncomment the return */

%return

% This procedure gets the screen from the file and stores them into arrays for later use %
proc getscreen (var input : array 0 .. *, 0 .. * of int, num : int)
    open : fn, "screenshot" + intstr (num) + ".txt", get % Opens specified file for put
    for i : 1 .. maxx - 7 by 7
        for x : 1 .. maxy - 7 by 7
            get : fn, input (i div 7, x div 7)
        end for
    end for
end getscreen

getscreen (screencolor1, 1) % Gets the 2 picture files.
getscreen (screencolor2, 2) % Change the 2 here to a 3 to see the difference

% This is the main Part of my program. It randomizes and figures out what colors the strands and
% each symbol needs to be drawn at and where they need to be drawn
process drawstrand (y : int)
    var newp : int := 0 % Cycles thru the different pictures
    loop % Loop to keep it going
        var dela := Rand.Int (100, 500) % Random delay to start at different times
        var symbol : array 0 .. 90 of int % Keep all the symbols so i can redraw them black
        var count := 0
        delay (dela) % The random delay
        for decreasing i : maxy - 14 .. 1 by 7
            var rand1 := Rand.Int (100, 120)
            symbol (count) := rand1
            if newp mod 2 = 0 then
                Font.Draw (chr (rand1), y * 7, i, font, screencolor2 (y, i div 7)) % draws the symbol
            else
                Font.Draw (chr (rand1), y * 7, i, font, screencolor1 (y, i div 7)) % draws the symbol
            end if
            delay (50) % Delay duh..
            count += 1
        end for
        count := 0
        for decreasing i : maxy - 14 .. 1 by 7
            Font.Draw (chr (symbol (count)), y * 7, i, font, black) %clear the symbol with approprite symbol
            count += 1
            delay (50)
        end for
        newp += 1
    end loop
end drawstrand

% Temperary random number storage
for i : 1 .. 90
    temp1 (i) := 0
end for

% Main for loop
for i : 1 .. 90
    loop % Make sure that i dont get the same strand
        rand2 := Rand.Int (1, 90) % Random strand
        var safexit := true % checker to see if strand is used
        for x : 1 .. 90 % check and randomize for loop
            if temp1 (x) = rand2 then
                safexit := false
            end if
        end for
        exit when safexit = true
    end loop
    temp1 (i) := rand2
    fork drawstrand (rand2) % Fork the strand draw
end for

exit when eof(fid)

exit when eof (fn)