PC logo for windows画出的美丽图案

发布网友 发布时间：2022-06-09 02:07

我来回答

共5个回答

热心网友 时间：2023-09-13 20:50

五色花朵
TO H
SETPC 10
BK 100 FD 30 RT 45 FD 45 BK 45 LT 45
FD 20 LT 45 FD 35 BK 35 RT 45 FD 50 LT 30
SETPC 12 REPEAT 3[FD 30 RT 120]
RT 30 PU FD 5 PD FILL BK 5 RT 42
SETPC 10 REPEAT 3[FD 30 RT 120]
RT 30 PU FD 5 PD FILL BK 5 RT 42
SETPC 14 REPEAT 3[FD 30 RT 120]
RT 30 PU FD 5 PD FILL BK 5 RT 42
SETPC 11 REPEAT 3[FD 30 RT 120]
RT 30 PU FD 5 PD FILL BK 5 RT 42
SETPC 1 REPEAT 3[FD 30 RT 120]
RT 30 PU FD 5 PD FILL BK 5 RT 42
HT
END
执行 H
我花了老半天时间才打好，要给分啊！

热心网友 时间：2023-09-13 20:51

五环
TO WH
setpc 9
setw 10
stampoval 50 50
pu rt 90 fd 115 lt 90 pd
setpc 0
stampoval 50 50
pu rt 90 fd 115 lt 90 pd
setpc 12
stampoval 50 50
pu lt 90 fd 230 bk 60 rt 90 bk 50 pd
setpc 14
stampoval 50 50
pu rt 90 fd 120 lt 90 pd
setpc 10
stampoval 50 50
ht
END
风车
TO FENGCHE
MAKE "A 0
LABEL "B
IF :A=360 THEN MAKE "A 0
BK 150
FD 150
RT :A
REPEAT 4[REPEAT 2[FD 50 RT 90 FD 20 RT 90]RT 90]
WAIT 10
CLEAN
LT :A
MAKE "A :A+10
GO "B
END

热心网友 时间：2023-09-13 20:51

TO HJ
FD 50 RT 45 FD 15 RT 90 FD 15 RT 45 FD 50 LT 45 FD 30
rt 135 fd 90*0.7 rt 135 fd 30 lt 45 pu bk 30*0.7 pd
repeat 2[bk 30 rt 10 fd 30 lt 10]lt 10
repeat 2[bk 30 rt 10 fd 30 lt 10]
lt 90 rt 10 fd 30*0.7 rt 90 pu fd 30*0.7 pd
END
to hjmain
make "a item 1 mouse
make "b item 2 mouse
pu setxy se :a :b pd
hj
wait 1
clean
hjmain
end
运行：hjmain

热心网友 时间：2023-09-13 20:52

松树
TO SONGSHU :N :L
FD 40 RT 90 WAIT 100 FD :L / 2 LT 120 WAIT 100
E
END

TO E
REPEAT :N [REPEAT 4 [FD :L LT 120 WAIT 100] RT 240 MAKE "L :L -:L / 3 FD :L / 2 LT 120 WAIT 100]
PE LT 60 FD :L / 2 PD RT 90 WAIT 200
END
执行:songshu 5 50

热心网友 时间：2023-09-13 20:52

TO WJXDG :N :B
IF :N = 0 STOP
REPEAT 5 [FD :B LT 144 WJXDG :N - 1 :B / 2 LT 72 FD :B LT 72]
END
TO ACASHU :N :B
IF :N = 0 STOP
RT 45 FD :B ACASHU STAMPOVAL 3 3 :N - 1 :B * 0.3 + + 3 BK :B
LT 90 FD :B ACASHU STAMPOVAL 3 3 :N - 1 :B * 0.9 BK :B + 1 RT 45
END

TO DEDY :N
REPEAT :N [HU 270 RT 90]
END

参考资料：无