Bông tuyết 6 cánh :
to bongtuyet
cs
setpensize [ 3 3 ]
setpencolor 3
REPEAT 6 [ FD 50 REPEAT 6 [ FD 10 BK 10 RT 60 ] BK 50 RT 60 ]
ht
end
Bông tuyết 8 cánh :
to bongtuyet
cs
setpensize [ 3 3 ]
setpencolor 3
REPEAT 8 [ FD 100 REPEAT 6 [ FD 15 BK 15 RT 60 ] BK 100 RT 45 ]
ht
end
Bông tuyết 12 cánh :
to bongtuyet
cs
setpensize [ 3 3 ]
setpencolor 3
REPEAT 12 [ FD 100 REPEAT 6 [ FD 15 BK 15 RT 60 ] BK 100 RT 30 ]
ht
end
GỬI BN !
CHÚC BN HỌC TỐT !
XIN CTLHN NHA ^^
