User Tools

Site Tools


graphicsimagejmrmob

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

graphicsimagejmrmob [2016/01/01 22:37] (current)
Line 1: Line 1:
 +{{jmreneau_mobius.png?​200}}
 +Animated mobius strip (July 2010)
 +<​code>​
 +# mobius.kbs
 +# rotation mobius strip - j.m.reneau
 +fastgraphics
 +dim p(8)
 +dim c(3)
 +c = {red, green, blue}
 +w = .20 # width of strip
 +dr = 2 * pi / 100 # size of rotation in frame
 +speed = .01 # pause between frames
 +r = 0
 +while true
 +   clg
 +   for t = 0 to 2
 +      x = sin((t - w) * pi * 2 / 3 + r)*graphwidth/​2 + graphwidth/​2
 +      y = cos((t - w) * pi * 2 / 3 + r)*graphheight/​2 + graphheight/​2
 +      x1 = sin((t + w) * pi * 2 / 3 + r)*graphwidth/​2 + graphwidth/​2
 +      y1 = cos((t + w) * pi * 2 / 3 + r)*graphheight/​2 + graphheight/​2
 +      x2 = sin((t+1 - w) * pi * 2 / 3 + r)*graphwidth/​2 + graphwidth/​2
 +      y2 = cos((t+1 - w) * pi * 2 / 3 + r)*graphheight/​2 + graphheight/​2
 +      x3 = sin((t+1 + w) * pi * 2 / 3 + r)*graphwidth/​2 + graphwidth/​2
 +      y3 = cos((t+1 + w) * pi * 2 / 3+ r)*graphheight/​2 + graphheight/​2
 +      p = {x,​y,​x3,​y3,​x2,​y2,​x1,​y1}
 +      color c[t]
 +      poly p
 +   next t
 +   ​refresh
 +   r = r + dr
 +   pause speed
 +end while
 +</​code>​
  
graphicsimagejmrmob.txt ยท Last modified: 2016/01/01 22:37 (external edit)