' -------- 利用递归调用的方法画出美丽图案 -------- DECLARE SUB sj (x, y, L) SCREEN 12: CLS '置成图形方式,清屏 WINDOW (-1.3, -.8)-(1.3, 1.2) '自定义坐标系 CALL sj(0, 0, .6) '在0,0位置画出图形 END ' 子程序:画出三叉图形 x,y是图形的中心,L是线长 SUB sj (x, y, L) IF L < .005 THEN EXIT SUB '如果图形太小则终止画 x1 = x: y1 = y + L '计算向上的一条线是终点 LINE (x, y)-(x1, y1) '画出它 CALL sj(x1, y1, L * .5) '在它的终点位置画出一个比它小的子画形 x2 = x + L * .866: y2 = y - L * .5 '计算向右下方向一条线的终点位置 LINE (x, y)-(x2, y2) '画出它 CALL sj(x2, y2, L * .5) '在它的终点位置画出子画形 x3 = x - L * .866: y3 = y - L * .5 '计算向左下方的一条线的终点 LINE (x, y)-(x3, y3) '画之 CALL sj(x3, y3, L * .5) '画出子图形 END SUB