
TO FX :L :N  ;蜂巢递归程序fx 250 3   fx 250 4

  DRAW HT SETW 1

  RT 90     ;转向右侧从底部画起从而摆正图形

  F :L :N  ;调用蜂巢递归

END

TO F :L :N

  IF :N=0 THEN[REPEAT 6[FD :L LT 60]STOP]  ;画正6边形的插花过程

  REPEAT 6[F :L/3 :N-1 PU FD :L PD LT 60] ;移动到画周围6个顶点画蜂巢

  PU LT 60 FD :L/3*2 PD RT 60   ;移动到图形中间

  ;6F :L/3 :N-1                  ;画中间的蜂巢

  PU LT 60 BK :L/3*2 RT 60 PD   ;递归归零

END



