Sunflower fractal: Difference between revisions
Content deleted Content added
No edit summary |
|||
Line 212: | Line 212: | ||
sunflowerplot() |
sunflowerplot() |
||
</lang> |
</lang> |
||
=={{header|Liberty BASIC}}== |
|||
<lang lb> |
|||
nomainwin |
|||
UpperLeftX=1:UpperLeftY=1 |
|||
WindowWidth=800:WindowHeight=600 |
|||
open "Sunflower Fractal" for graphics_nf_nsb as #1 |
|||
#1 "trapclose [q];down;fill darkred;flush;size 3" |
|||
c=1.618033988749895 |
|||
seeds=8000 |
|||
rd=gn=bl=int(rnd(1)*255) |
|||
for i=0 to seeds |
|||
rd=rd+5:if rd>254 then rd=1 |
|||
gn=gn+3:if gn>254 then gn=1 |
|||
bl=bl+1:if bl>254 then bl=1 |
|||
#1 "color ";rd;" ";gn;" ";bl |
|||
#1 "backcolor ";rd;" ";gn;" ";bl |
|||
r=(i^c)/seeds |
|||
angle=2*3.14159*c*i |
|||
x=r*sin(angle)+400 |
|||
y=r*cos(angle)+280 |
|||
#1 "place ";x;" ";y |
|||
#1 "circlefilled ";i/seeds*5 |
|||
scan |
|||
next i |
|||
wait |
|||
[q] |
|||
close #1 |
|||
end |
|||
</lb> |
|||
=={{header|Microsoft Small Basic}}== |
=={{header|Microsoft Small Basic}}== |