
TO H1
   REPEAT 2[REPEAT 90[FD .5 RT 1] RT 90]
END
TO H2
   REPEAT 9[H1 RT 40]
END
TO H3
   REPEAT 9[PU RT 10 FD 20  PD FILL BK 20 RT 30]    
END
TO H4 :A 
   REPEAT 4[new SETPC :A H2 H3 MAKE "A :A-1 PU RT 90  FD 90  LT 90 PD]
END
TO H5  ;H1画花瓣    H2画花朵   H3为花瓣填色    H4画一行花朵   H5主过程
   CS   
   PU  SETX -150 SETY 140  PD    H4 6
   PU  SETX -150 SETY 50   PD    H4 12
   PU  SETX -150 SETY -40  PD    H4 6
   PU  SETX -150 SETY -130 PD    H4 12  
END
;整个程序较费时
