Main theme: "DREAMS"
// SURREAL VIRTUAL REAL
// IMAGINATION THOUGHTS REVERIE
// VISION CONCIEVE
// SOOTHING DISTURBING
command typea h v
{
line h v h (v+7)
line (h) (v+7) (h+3) (v+10)
line (h+3) (v+10) (h+10) (v+3)
line (h+10) (v+3) (h+10) v
line h (v+3) (h+10) (v+3)
}
command typed h v
{
line h v h (v+10)
line h v (h+8) v
line (h+8) v (h+10) (v+2)
line (h+10) (v+2) (h+10) (v+6)
line (h+10) (v+6) (h+6) (v+10)
line (h+6) (v+10) h (v+10)
}
command typee h v
{
line h (v+3) h (v+10)
line h (v+3) (h+3) v
line (h+3) v (h+10) v
line h (v+6) (h+9) (v+6)
line h (v+10) (h+9) (v+10)
}
command typem h v
{
line h v h (v+10)
line (h+1) (v+10) (h+5) (v+6)
line (h+5) (v+6) (h+9) (v+10)
line (h+10) (v+10) (h+10) v
}
command typer h v
{
line h v h (v+10)
line h (v+10) (h+7) (v+10)
line (h+7) (v+10) (h+10) (v+7)
line (h+10) (v+6) (h+8) (v+4)
line h (v+4) (h+8) (v+4)
line (h+6) (v+4) (h+10) v
}
command types h v
{
line h (v+2) (h+2) v
line (h+2) v (h+9) v
line (h+10) (v+1) (h+10) (v+4)
line (h+9) (v+5) (h+2) (v+5)
line (h+2) (v+5) h (v+7)
line h (v+7) h (v+9)
line (h+1) (v+10) (h+9) (v+10)
line (h+9) (v+10) (h+10) (v+9)
}
|
Command compose x y ht timer
{
repeat a 0 (ht-1)
{
paper 100
repeat b timer 100
{
set c (a*10)
typed x (y+c)
typem (x+60) (y+c)
types (x+30+c) (y+20)
typea (100-(x+35)) (100-(y+c))
typee (100-(x+10+c)) (100-(y+c))
typer (100-(x+25+c)) (100-(y+c))
pen (c*3/2)
}
}
}
Command animate
{
repeat a 0 10
{
compose 10 7 7 50
}
}
animate
|