SET WINDOW 0,160,0,160
DRAW Tree(80,10,65,PI,10)
END

EXTERNAL PICTURE Tree(x1,y1,LEN,stand,n)
! (x1,y1) ＝ 枝（次の枝の幹）の始まりの点
! LEN ＝ 枝（次の枝の幹）の長さ
! stand ＝ 幹の方向から枝の傾き
! n ＝ 分割数
LET SCALE = 0.58   ! 枝の短くなる比率
LET ANGLE = PI/4   ! 枝の広がり
LET x2 = x1 + LEN * SIN(stand)    ! 枝先のx座標
LET y2 = y1 - LEN * COS(stand)    ! 枝先のy座標
PLOT LINES: x1,y1;x2,y2 
IF n >= 1 THEN 
   DRAW Tree(x2, y2, LEN*SCALE, stand-ANGLE, n-1)   ! 次の右の枝の再帰呼出し
   DRAW Tree(x2, y2, LEN*SCALE, stand+ANGLE, n-1)   ! 次の左の枝の再帰呼出し
END IF
END PICTURE