pclogo小海龟里帮我设计一个复杂图

TO HJ
FD 50 RT 45 FD 15 RT 90 FD 15 RT 45 FD 50 LT 45 FD 30
rt 135 fd 90*0.7 rt 135 fd 30 lt 45 pu bk 30*0.7 pd
repeat 2[bk 30 rt 10 fd 30 lt 10]lt 10
repeat 2[bk 30 rt 10 fd 30 lt 10]
lt 90 rt 10 fd 30*0.7 rt 90 pu fd 30*0.7 pd
END

to hjmain
make "a item 1 mouse
make "b item 2 mouse
pu setxy se :a :b pd
hj
wait 1
clean
hjmain
end

运行：hjmain

TO JIAO :N :B
IF :N = 0 THEN STOP
REPEAT :N [REPEAT 3 [FD :B (STAMPOVAL :B / 4 :B / 4 "TRUE) RT 120] FD :B]
BK :N * :B RT 60 FD :B LT 60
JIAO :N - 1 :B
END

TO TQQP :N :B :X
RT 90 LT 60 REPEAT 6 [MAKE "X :X + 1 SETPC :X JIAO :N :B RT 60]
SETPC 0
RT 60 REPEAT 6 [JIAO :N :B LT 60 FD :N * :B RT 120]
END

to haha :x
if :x<0 stop
setbg :x
repeat 5[fd 50 rt 144]
setw :x fd 50
end