转载 PCLOGO画图 pclogo6.5

画圆

格式：repeat 36[rt 5fd 0.174*R rt5]　　(小海龟在圆周上)

１.R=100的圆

Repeat 36[rt 5fd 0.174*100 rt5]

２.画图

椭圆

格式1：stampoval　长半轴　短半轴　　　　　　空心椭圆

格式2：(stampoval　长半轴　短半轴　"true)　　实心椭圆

长半轴和短半轴相等时画出来的就是一个圆，这也是画圆的第二种方法(小海龟在圆心)

三个相切的圆

Rt　30

Repeat 3[pd stampoval30 30 pu fd60 rt 120]

写出如下图形的命令

REPEAT 4[FD 98 RT 135 FD 40 RT 45 FD 40 RT 45 FD 40 RT 135 RT90]


REPEAT 12[REPEAT 3[FD 30 LT 120] FD 30 RT360/12]

彩色房子

? setbg 2

? pu bk 50 lt 90 fd 60

? pd setpc 7(stamprect 120 120 "true)

? pu bk 80

? pd setpc 6(stamprect 20 40 "true)

? pu fd 80 rt 90 fd 60 rt 90 fd 20

? pd setpc 9(stamprect 40 40 "true)

? pu fd 20 lt 90 fd 20

? pd setpc 15

? repeat 4[repeat 4[fd 20 rt 90]rt 90]

? pu lt 90 fd 40 rt 90 fd 40

? lt 90 fd 10 rt 120

? pd setpc 4 repeat 3[fd 140 rt 120]

? pu rt 30 fd 10 pd fill

立体五角星

? cs

? to ltwjx :s

> seth 18

> repeat 5[fd :s rt 144 fd :s rt 54 fd:s*1.9 bk :s*1.9 lt 126]

> end

或者：

> seth 18

> repeat 5[fd :s rt 144+18 fd :s*1.9 bk:s*1.9 lt 18 fd :s lt 90-18]

> end

LTWJX defined.

Ltwjx 100

爱华网本文地址 » http://www.aihuau.com/a/25101010/33020.html