# Trogramming

54726f6772616d6d696e672e636f6d

# Pascal ASCII Animation

I’d like to share some very early ASCII art of mine; a pascal ascii animation I thought was lost to time.

I was still relatively new to programming when I made this so I didn’t think of things like backups.
I didn’t have anything particularly useful to motivate me to preserve it.

By chance it popped up today in my Facebook memories with code included, and since the video already exists on YouTube I thought I’d share it.

Made 10 years ago to the day.

## Code

Forgive the lack of indentation, Facebook striped the whitespace from the post.

``````program spiral;
uses crt;
var
count: integer;
canvas : Array[1..40,1..40] of char;
i:integer;
temp:integer;
temp2:integer;
chrr:char;
stripe1:integer;
stripe2:integer;
stripe3:integer;
begin
count:=0;
while 'a'='a' do begin
count:= (count+3)mod 360;
ClrScr;
Writeln('');
for temp:= 1 to 40 do begin
for temp2:= 1 to 40 do begin
canvas[temp][temp2]:='.';
end;end;
for stripe1 := 0 to 40 do begin
for stripe2 := 0 to 3 do begin
for stripe3:= 0 to 6 do  begin
canvas[(stripe2*10+stripe1 +count +stripe3)mod 40 +1][(stripe1)mod 40 +1]   :=',';
end;
end;
end;
for i := 0 to 90 do begin
canvas[(round(cos((i+count)*0.0174*4)*(i/6)+20))mod 40][(round(sin((i+count)*0.0174*4)*(i/6)+20)) mod 40]:= '&';
canvas[(round(-cos((i+count)*0.0174*4)*(i/6)+20))mod 40][(round(sin((i+count)*0.0174*4)*(i/6)+20)) mod 40]:= '&';
canvas[(round(cos((i+count)*0.0174*4)*(i/6)+20))mod 40][(round(-sin((i+count)*0.0174*4)*(i/6)+20)) mod 40]:= '&';
canvas[(round(-cos((i+count)*0.0174*4)*(i/6)+20))mod 40][(round(-sin((i+count)*0.0174*4)*(i/6)+20)) mod 40]:= '&';
end;
for temp:= 1 to 40 do begin
for temp2:= 1 to 40 do begin
chrr:= canvas[temp][temp2];
if chrr='.' then TextColor(LightBlue) ;
if chrr=','  then TextColor(Red)   ;
if chrr='&' then TextColor(White)  ;
Write(chrr);
end;
Writeln('');
end;
Delay(60);
end;
end.``````