minimal spiral

[tsh73]

happened in MathCad tutorial as an example, looks nice
nomainwin
open "spiral" for graphics_nsb_nf as #gr
#gr "trapclose [quit]"
#gr "home; down; posxy cx cy"

for i = 1 to 150
   x = cx+i*cos(i)
   y = cy+i*sin(i)
   #gr "goto ";x;" ";y
next
#gr "flush"
wait

[quit]
close #gr
end



[B+]

Variations:

nomainwin
open "spiral" for graphics_nsb_nf as #gr
#gr "trapclose [quit]"
#gr "home; down; posxy cx cy"
pi = acs(-1)
print pi
a = pi/2
for i = 1 to 160

   'pick one or mix and match ha, ha, ha
   a = a + 2*pi/3 + pi/128 'triangles +
   'a = a + pi/2 + pi/128  'squares +
   'a = a + pi/4 + pi/4^4   'octagon +
   'a = a + pi/3 + pi/256   'hexagon
   'a = a + 2*pi/5 + pi/128  'pentagram
   'a = a + i*pi + pi/128 'oh nice


   x = cx+i*cos(a)
   y = cy+i*sin(a)
   #gr "goto ";x;" ";y
next
#gr "flush"
wait

[quit]
close #gr
end



[tsh73]

Wow. I have to demonstrate it to folks

[B+]

OK some demos: Triangles, Octagon and Mix & Match of Triangle + Hexagon + Oh nice!

Attachments:

[zzz000abc]

the combination of triangle and a polygon gives flower structure for example triangle and square. tsh's posts interesting for usually containing original works B+'s for quick enhancements.

[B+]

I was thinking someone could modify the comment on/off section with one or more inputs to explore even more spirals.

This turns a few lines of code into a universe of potentialities!

[tsh73]

This one was found by a student


a = a + 2*2*pi/5
...
y = cy-i*sin(a) 'upside down


[B+]

Cool! another way to flip: y = cy+i*sin(a + pi)

Like star here is triangle (or pyramid?)
a = a + 4*pi/3 'triangle with flip mod

[B+]

New class n-stars:
'n stars pi * (n+1)/n
a = a + pi* 14/13   'with flip

[B+]

Oh yeah, those spikes are actually are getting shorter, so this


'n stars pi * (n+1)/n
a = a + pi* 119/118


looks like