LOGO-L> without multi-turtles again

[MHELHEFNY@FRCU.EUN.EG]

;Hello
;Here is another simple program to demonstrate using a single turtle
;to draw simultaneous shapes without simulating multi-turtles.
;If any one would like to compare the two methods I am ready to
;send him the same program using multi-turtle simulation.
;Best Regards.
;Mhelhefni
;---------------------------------------------------------
to draw 
for [xx 1 100][
setxy :x1 :y1 setheading :h1 side1 :xx+4 89
setxy :x2 :y2 setheading :h2 side2 :xx+6 72 
setxy :x3 :y3 setheading :h3 side3 :xx+7 61
setxy :x4 :y4 setheading :h4 side4 :xx+9 123
]
end

to go 
cs ht pu initial draw
end

to initial
make "x1 -200 make "y1 -100 make "h1 0
make "x2 200 make "y2 100 make "h2 0
make "x3 -200 make "y3 100 make "h3 0
make "x4 200 make "y4 -100 make "h4 0
end

to side :a :ang
pd fd :a rt :ang pu
end

to side1 :a :ang
setpc 3 side :a :ang 
make "x1 xcor make "y1 ycor make "h1 heading 
end

to side2 :a :ang
setpc 4 side :a :ang 
make "x2 xcor make "y2 ycor make "h2 heading 
end

to side3 :a :ang
setpc 5 side :a :ang 
make "x3 xcor make "y3 ycor make "h3 heading
end

to side4 :a :ang
setpc 7 side :a :ang 
make "x4 xcor make "y4 ycor make "h4 heading
end
;---------------------------------------------------------
---------------------------------------------------------------
Please post messages to the Logo forum to logo-l@gsn.org.  Mail
questions about the list administration to logofdn@gsn.org.  To
unsubscribe send    unsubscribe logo-l    to majordomo@gsn.org.