You're drawing the arm before the process starts, which is leaving an artifact, and you're clearing it after you draw the arm. I've commented out the static arm that was being drawn, and rearranged the process by moving the "eraser" to the top, before you modify cratearm. Also, a process is a really bad way of doing this. It can be done in a procedure. Don't use processes unless you have to.
| Turing: | var cratearm : int
process movearmdownc
cratearm := 130
for decreasing conte : 20 .. 1
Draw.ThickLine (160, cratearm, 280, 130, 30, 0)
cratearm := cratearm - 1
Draw.ThickLine (160, cratearm, 280, 130, 30, 49)
delay (50)
end for
end movearmdownc
%Draw.ThickLine (160, 110, 280, 130, 30, 49)
%head
drawfilloval (350, 245, 125, 70, 49)
%right eye
drawfilloval (400, 260, 25, 15, 44)
%left eye
drawfilloval (290, 260, 25, 15, 44)
%left eye ring
drawoval (400, 260, 10, 5, 12)
%right eye ring
drawoval (285, 260, 10, 5, 12)
%right eye pupil
drawfilloval (401, 260, 5, 2, 12)
%left eye pupil
drawfilloval (285, 260, 5, 2, 12)
%right ear
drawline (410, 307, 450, 350, 49)
%right ear circle
drawfilloval (450, 350, 20, 10, 49)
%left ear
drawline (300, 307, 250, 350, 49)
%left ear circle
drawfilloval (260, 350, 20, 10, 49)
%mouth
drawfilloval (350, 200, 25, 20, 225)
%tounge
drawline (350, 170, 350, 175, 62)
%body
drawfilloval (350, 105, 100, 70, 49)
%rght arm above
Draw.ThickLine (360, 120, 550, 215, 30, 49)
%right arm below
Draw.ThickLine (370, 130, 520, 130, 30, 49)
%leftarm
Draw.ThickLine (160, 210, 280, 130, 30, 49)
%right wheel
drawfilloval (400, 40, 40, 30, 255)
%right wheel middle
drawfilloval (400, 40, 10, 5, 0)
%left wheel
drawfilloval (290, 40, 40, 30, 255)
%left wheel middle
drawfilloval (290, 40, 10, 5, 0)
%box
drawfillbox (10, 1, 180, 100, 90)
fork movearmdownc
|
|