Power-Programmierung/CD1.mdf/logo/labybug/cubes.bug

Text File | 1989-12-31 | 768b | 52 lines

to "poly  :d :a
forward :d
right :a
poly :d :a
end

to "soccer
REPEAT 6 [FD 50 RT 60]
FD 60 LT 60
end

to "hex  :DIS
REPEAT 6 [FD :DIS RT 60]
FD :DIS LT 60
end

to "pent  :DIS
REPEAT 6 [FD :DIS RT 60]
FD :DIS LT 72
end

to "cube  :D :X1 :Y1
PU SETXY :X1 :Y1 SETH 0 PD
REPEAT 4 [SQUARE :D SETX :X1 + :D MAKE "X1 XCOR]
MAKE "X1 XCOR - ( :D * 3 )
MAKE "Y1 YCOR - :D
PU SETXY :X1 :Y1 PD
REPEAT 3 [SQUARE :D FD :D]
HT
end

to "cubes  :D :X1 :Y1
CUBE :D :X1 :Y1
CUBE :D :X1 + ( :D * 4 ) :Y1
end

to "square  :D
REPEAT 4 [FD :D RT 90]
end

to "shared.side.cubes  :D :X1 :Y1
CUBE :D :X1 :Y1
CUBE :D :X1 :Y1 - ( :D * 2 )
end

e  :D
REPEAT 4 [FD :D RT 90]
end

to "shared.side.cubes  :D :X1 :Y1
CUBE :D :X1 :Y1
CUBE :D :X1 :