//Todo esta siempre bien hasta que deja de estarlo
//León De la Rosa
fast
forever
{
Set X <mouse 1>
Set Y <mouse 2>
notsmaller? Y 0
{
smaller? Y 5
{
repeat A 100 0
{
Pen A X (A*A)
line 0 A 100 A
Line A 0 A 100
}
}
}
notsmaller? Y 5
{
smaller? Y 20
{
Paper X Y (X-Y)
repeat A 50 0
{
Line X A A X
Line A 0 A 100
}
notsmaller? X 75
{
paper 0
}
same? <mouse 3> 100
{
repeat A 50 60
{
pen 0
}
}
}
}
notsmaller? Y 20
{
smaller? Y 40
{
repeat A 5 0
{
paper (100) (A*X) X
}
}
}
notsmaller? Y 40
{
smaller? Y 60
{
Set X <mouse 2>
Set Y <Mouse 1>
paper 100
field 0 0 100 10 0
field 40 0 60 100 0
}
}
command caminante H1 V1 H2 V2 C
{
field H1 (V1-12) (H2-5) (V2-22) (C-50)
field (H1+7) (V1-12) (H2+2) (V2-22) (C-50)
field H1 (V1-9) (H2-7) (V2-12) (C-15)
field (H1+7)(V1-9) H2 (V2-12) (C-15)
field H1 V1 H2 V2 C
field (H1+3) (V1+13) (H2-3) (V2+2) (C-35)
field (H1+2) (V1+15) (H2-1) (V2+7) C
field (H1+3) (V1+5) (H2-5) (V2-2) (C+50)
field (H1+2) (V1+2) (H2-3) (V2-9) (C-50)
}
notsmaller? X 0
{
smaller? Y 80
{
caminante X 17 (X+7) 30 50
}
}
notsmaller? Y 60
{
smaller? Y 80
{
repeat A 100 0
{
pen 0
field A X (A+20) 20 0
}
}
}
notsmaller? Y 80
{
repeat T 100 0
{
Paper T
field 30 30 70 70 (T/100)
notsmaller? X 0
{
caminante 47 45 54 58 50
}
}
}
} |