
to lx nn  ;三角螺 lx 1
if nn>10 then stop
repeat 3[fd nn*10 rt 120]
rt 30 fd 80 tt nn
lx nn+1
rt nn*3  fd nn*10 setpc 12  tt nn setpc 0
end


TO LH :R :N   ;执行连环  LH  100  5
  IF :N=0 then STOP
make r r/2 make n n-1;事先赋值，因为不能在子程序参数中计算值
  HU :R 9        ;ABC90ȵĻ
  LT 90 BK :R/2  ;CD
  LH :R :N  ;递归，不在此处计算
  BK :R/2        ;
  RT 90 FD :R    ;
  RT 90 HU :R 18 ;
END
TO HU :R :D   ;画
make pi 3.1415
  REPEAT :D[RT 5 FD :R*PI/18 RT 5]
END


TO CCX :R :K ;串串香 ccx 4 5
make pi 3.1415
  IF :K=0 THEN STOP;条件返回
make r r*1.5 ;赋值，因为不能在子程序参数中赋值
make k k-1
  LT 90  ;
  REPEAT 12[RT 7.5 FD :R*PI/12 RT 7.5] ;
  LT 90  ;
  CCX :R :K  ;
  RT 90  ;
  REPEAT 12[RT 7.5 FD :R*PI/12 RT 7.5] ; 
  RT 90  ;
END
to c8  ;执行八个串
draw  new  repeat 8 [fd 100 ccx 10 5 fd 400 bk 500  rt 45]
end
to shu chang ;画树 参数可以是50
if chang<30  then  stop
make chang chang-5
fd chang lt 30 fd chang  shu chang bk chang rt 30
shu chang
rt 30 fd chang shu chang bk chang lt 30 bk chang
end
to mi r ; 执行8棵树，参数可以是50
repeat 8 [shu r rt 45]
end
