//Casa
//Marlene Martinez
forever
{
paper 0
{
set X <mouse 1>
set Y <mouse 2>
pen 100
line 0 15 100 15
line 20 15 20 50
line 20 50 80 50
line 80 50 80 15
line 10 50 90 50
line 10 50 40 80
line 90 50 60 80
line 40 80 60 80
}
Repeat B 15 95
{
{
line 0 (B*3) 100 0
}
}
same? <mouse 3> 0
{
Repeat B 250 (B/2)
{
paper ((10+63-B)/2*50)((B*5)/2) (X-Y)
}
}
paper 0
pen 5 25 40
{
Repeat A 100 0
{
line A 60 (A+A) (A/2)
}
}
pen 1 10 10
Repeat A 0 100
{
line A 61 A 61
line A 62 A 62
}
pen 30 16 32
{
line 34 64 94 64
line 34 64 64 94
line 64 94 94 64
}
notsame? <key 5> 100
{
paper 0
}
field 60 20 90 90 100
Repeat C 0 95
{
line (A/2) ((C*10)/2) (C/2) 10
}
command m left right up down
{
Repeat A right left
{
line A up A down
}
}
m 80 0 100 80
paper 0
set a <mouse 1>
set b <mouse 2>
repeat y 0 100
{
pen y
line y 50 50 90
line y 50 50 10
}
m 0 100 100 0
same? <mouse 3> 100
{
paper 0
set H0 <mouse 1>
set V0 <mouse 2>
forever
{
set H1 <mouse 1>
set V1 <mouse 2>
line H0 V0 H1 V1
line 0 H1 100 H1
line V1 0 V1 100
set H0 H1
set V0 V1
}
}
} |