[SPHERE] SAMPLE
1000 CLS 3
1005 LINE (0,0)-(639,398),7,BF:LINE (0,280)-(639,398),1,BF
1010 FOR UX=1 TO 500
1020 X=INT(RND*600)+20
1030 Y=INT(RND*220)+40
1040 R=INT(RND*30)+20
1050 CIRCLE (X-2,300+(Y/5)),R,0,,,.2,F,0
1060 CIRCLE (X-2,Y-8),R,0,,,,F,0
1070 CIRCLE (X-5,Y-10),R-3,1,,,,F,1
1080 CIRCLE (X-10,Y-12),R-7,5,,,,F,5
1090 CIRCLE (X-15,Y-16),R-19,7,,,,F,7
1100 NEXT UX
1150 END
CIRCLEとRNDを使って水玉模様を描いています。
1050から1090で1つの水玉模様を描いています。