BBC BASIC for Windows
Programming >> Graphics and Games >> A one-line leaf
http://bb4w.conforums.com/index.cgi?board=graphics&action=display&num=1429778768
A one-line leaf
Post by David Williams on Apr 23rd, 2015, 08:46am

Some kind of leaf:

Code:
      MODE8:ORIGIN640,128:GCOL2:s=210:FORt=0TO2*PI STEP0.001:x=(COSt*(1+.9*COS(8*t))*(1+.1*COS(24*t))*(.9+.1*COS(200*t))*(1+SINt)):y=(1+.9*COS(8*t))*(1+.1*COS(24*t))*(.9+.1*COS(200*t))*SINt*(1+SINt):IFt=0MOVEs*x,s*y:IF0ELSEDRAWs*x,s*y:NEXT:FILL0,4



David.
--