Particle fountain: Difference between revisions

Line 69:

You can ~~run my first stab at~~ this online [http://phix.x10.mx/p2js/Particle_fountain.htm here]~~, though I get a perfectly~~

You can this online [http://phix.x10.mx/p2js/Particle_fountain.htm here].

formed but tiny version and I doubt any of the key handling works. I have asked for ideas elsewhere and will acccept any

here.

--

Line 85:

Line 83:

constant title = "Particle fountain"

constant help_text = """

~~Use~~ ~~UP and DOWN arrow keys to modify~~ the saturation of the particle colors.

Uparrow increases the saturation of the particle colors,

downarrow decreases saturation until they all become white.

Use PAGE UP and PAGE DOWN keys to modify the "spread" of the particles.

PageUp sprays the particles out at a wider angle/spread,

Toggle reciprocation off / on with the SPACE bar.

PageDown makes the jet narrower.

⚫

~~Use LEFT and RIGHT~~ arrow ~~keys to~~ ~~modify~~ angle range for reciprocation.

Space toggles reciprocation (wobble) on and off (straight up).

qLeft arrow decreases the angle range for reciprocation,

⚫

right arrow increases the angle range for reciprocation.

Press the "q" key to quit.

"""

Line 111:

Line 112:

atom {x,y,color,life} = particles[i]

if life>0 then

cdCanvasPixel(cddbuffer, x, h-y, color)

cdCanvasPixel(cddbuffer, x, h/10-y, color)

end if

end for

Line 162:

Line 163:

-- randomize velocity so points reach different heights:

atom r = iff(reciprocate?range*sin(time()):0)

dx = (spread*rnd()-spread/2+r)*10 -- starting velocity x

dx = (spread*rnd()-spread/2+r)*50 -- starting velocity x

dy = (rnd()-2.9) * h/20.5 -- and y

color = hsv_to_rgb(round(remainder(time(),5)/5,100), saturation, 1)

Line 172:

Line 173:

dy += (h/10)*df -- adjust velocity

x += dx*df -- adjust position x

y += dy*df -- and y

y += dy*df*8 -- and y

life -= df

end if

Line 179:

Line 180:

IupRedraw(canvas)

if time()>t1 then

IupSetStrAttribute(dlg,"TITLE","%s (%d, %d fps/s)",{title,particlenum,fps})

IupSetStrAttribute(dlg,"TITLE","%s (%d, %d fps/s [%dx%d])",{title,particlenum,fps,w,h})

t1 = time()+1

fps = 0

Line 202:

Line 203:

procedure main()

IupOpen()

⚫

canvas = IupGLCanvas("RASTERSIZE=400x300")

⚫

canvas = IupGLCanvas("RASTERSIZE=~~800x800~~")

IupSetCallbacks({canvas}, {"ACTION", Icallback("redraw_cb"),

"MAP_CB", Icallback("map_cb")})

dlg = IupDialog(canvas,`TITLE="%s"`,{title})

IupSetCallback(dlg, "KEY_CB", Icallback("key_cb"))

Ihandle timer = IupTimer(Icallback("timer_cb"), 1000/25)

Ihandle timer = IupTimer(Icallback("timer_cb"), 1000/50)

IupShowXY(dlg,IUP_CENTER,IUP_CENTER)

IupSetAttribute(canvas, "RASTERSIZE", NULL)

@@ Line 69: / Line 69: @@
 {{libheader|Phix/pGUI}}
 {{libheader|Phix/online}}
-You can run my first stab at this online [http://phix.x10.mx/p2js/Particle_fountain.htm here], though I get a perfectly
+You can this online [http://phix.x10.mx/p2js/Particle_fountain.htm here].
-formed but tiny version and I doubt any of the key handling works. I have asked for ideas elsewhere and will acccept any
-here.
 <!--<lang Phix>(phixonline)-->
  <span style="color: #000080;font-style:italic;">--
@@ Line 85: / Line 83: @@
  <span style="color: #008080;">constant</span> <span style="color: #000000;">title</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"Particle fountain"</span>
  <span style="color: #008080;">constant</span> <span style="color: #000000;">help_text</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"""
- Use UP and DOWN arrow keys to modify the saturation of the particle colors.
+ Uparrow increases the saturation of the particle colors,
+ downarrow decreases saturation until they all become white.
- Use PAGE UP and PAGE DOWN keys to modify the "spread" of the particles.
+ PageUp sprays the particles out at a wider angle/spread,
- Toggle reciprocation off / on with the SPACE bar.
+ PageDown makes the jet narrower.
- Use LEFT and RIGHT arrow keys to modify angle range for reciprocation.
+ Space toggles reciprocation (wobble) on and off (straight up).
+ qLeft arrow decreases the angle range for reciprocation,
+ right arrow increases the angle range for reciprocation.
  Press the "q" key to quit.
  """</span>
@@ Line 111: / Line 112: @@
          <span style="color: #004080;">atom</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">x</span><span style="color: #0000FF;">,</span><span style="color: #000000;">y</span><span style="color: #0000FF;">,</span><span style="color: #000000;">color</span><span style="color: #0000FF;">,</span><span style="color: #000000;">life</span><span style="color: #0000FF;">}</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">particles</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span>
          <span style="color: #008080;">if</span> <span style="color: #000000;">life</span><span style="color: #0000FF;">></span><span style="color: #000000;">0</span> <span style="color: #008080;">then</span>
-             <span style="color: #7060A8;">cdCanvasPixel</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cddbuffer</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">x</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">h</span><span style="color: #0000FF;">-</span><span style="color: #000000;">y</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">color</span><span style="color: #0000FF;">)</span>
+             <span style="color: #7060A8;">cdCanvasPixel</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cddbuffer</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">x</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">h</span><span style="color: #0000FF;">/</span><span style="color: #000000;">10</span><span style="color: #0000FF;">-</span><span style="color: #000000;">y</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">color</span><span style="color: #0000FF;">)</span>
          <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
      <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
@@ Line 162: / Line 163: @@
                  -- randomize velocity so points reach different heights:</span>
                  <span style="color: #004080;">atom</span> <span style="color: #000000;">r</span> <span style="color: #0000FF;">=</span> <span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">reciprocate</span><span style="color: #0000FF;">?</span><span style="color: #000000;">range</span><span style="color: #0000FF;">*</span><span style="color: #7060A8;">sin</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">time</span><span style="color: #0000FF;">()):</span><span style="color: #000000;">0</span><span style="color: #0000FF;">)</span>
-                 <span style="color: #000000;">dx</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">(</span><span style="color: #000000;">spread</span><span style="color: #0000FF;">*</span><span style="color: #7060A8;">rnd</span><span style="color: #0000FF;">()-</span><span style="color: #000000;">spread</span><span style="color: #0000FF;">/</span><span style="color: #000000;">2</span><span style="color: #0000FF;">+</span><span style="color: #000000;">r</span><span style="color: #0000FF;">)*</span><span style="color: #000000;">10</span>   <span style="color: #000080;font-style:italic;">-- starting velocity x</span>
+                 <span style="color: #000000;">dx</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">(</span><span style="color: #000000;">spread</span><span style="color: #0000FF;">*</span><span style="color: #7060A8;">rnd</span><span style="color: #0000FF;">()-</span><span style="color: #000000;">spread</span><span style="color: #0000FF;">/</span><span style="color: #000000;">2</span><span style="color: #0000FF;">+</span><span style="color: #000000;">r</span><span style="color: #0000FF;">)*</span><span style="color: #000000;">50</span>   <span style="color: #000080;font-style:italic;">-- starting velocity x</span>
                  <span style="color: #000000;">dy</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">(</span><span style="color: #7060A8;">rnd</span><span style="color: #0000FF;">()-</span><span style="color: #000000;">2.9</span><span style="color: #0000FF;">)</span> <span style="color: #0000FF;">*</span> <span style="color: #000000;">h</span><span style="color: #0000FF;">/</span><span style="color: #000000;">20.5</span>           <span style="color: #000080;font-style:italic;">--               and y </span>
                  <span style="color: #000000;">color</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">hsv_to_rgb</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">round</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">remainder</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">time</span><span style="color: #0000FF;">(),</span><span style="color: #000000;">5</span><span style="color: #0000FF;">)/</span><span style="color: #000000;">5</span><span style="color: #0000FF;">,</span><span style="color: #000000;">100</span><span style="color: #0000FF;">),</span> <span style="color: #000000;">saturation</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>
@@ Line 172: / Line 173: @@
              <span style="color: #000000;">dy</span> <span style="color: #0000FF;">+=</span> <span style="color: #0000FF;">(</span><span style="color: #000000;">h</span><span style="color: #0000FF;">/</span><span style="color: #000000;">10</span><span style="color: #0000FF;">)*</span><span style="color: #000000;">df</span> <span style="color: #000080;font-style:italic;">-- adjust velocity</span>
              <span style="color: #000000;">x</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">dx</span><span style="color: #0000FF;">*</span><span style="color: #000000;">df</span>      <span style="color: #000080;font-style:italic;">-- adjust position x</span>
-             <span style="color: #000000;">y</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">dy</span><span style="color: #0000FF;">*</span><span style="color: #000000;">df</span>      <span style="color: #000080;font-style:italic;">--             and y</span>
+             <span style="color: #000000;">y</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">dy</span><span style="color: #0000FF;">*</span><span style="color: #000000;">df</span><span style="color: #0000FF;">*</span><span style="color: #000000;">8</span>    <span style="color: #000080;font-style:italic;">--             and y</span>
              <span style="color: #000000;">life</span> <span style="color: #0000FF;">-=</span> <span style="color: #000000;">df</span>
          <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
@@ Line 179: / Line 180: @@
      <span style="color: #7060A8;">IupRedraw</span><span style="color: #0000FF;">(</span><span style="color: #000000;">canvas</span><span style="color: #0000FF;">)</span>
      <span style="color: #008080;">if</span> <span style="color: #7060A8;">time</span><span style="color: #0000FF;">()></span><span style="color: #000000;">t1</span> <span style="color: #008080;">then</span>
-         <span style="color: #7060A8;">IupSetStrAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"TITLE"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%s (%d, %d fps/s)"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">title</span><span style="color: #0000FF;">,</span><span style="color: #000000;">particlenum</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fps</span><span style="color: #0000FF;">})</span>
+         <span style="color: #7060A8;">IupSetStrAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"TITLE"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%s (%d, %d fps/s [%dx%d])"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">title</span><span style="color: #0000FF;">,</span><span style="color: #000000;">particlenum</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fps</span><span style="color: #0000FF;">,</span><span style="color: #000000;">w</span><span style="color: #0000FF;">,</span><span style="color: #000000;">h</span><span style="color: #0000FF;">})</span>
          <span style="color: #000000;">t1</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">time</span><span style="color: #0000FF;">()+</span><span style="color: #000000;">1</span>
          <span style="color: #000000;">fps</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">0</span>
@@ Line 202: / Line 203: @@
  <span style="color: #008080;">procedure</span> <span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>
      <span style="color: #7060A8;">IupOpen</span><span style="color: #0000FF;">()</span>
+     <span style="color: #000000;">canvas</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupGLCanvas</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"RASTERSIZE=400x300"</span><span style="color: #0000FF;">)</span>
-     <span style="color: #000000;">canvas</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupGLCanvas</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"RASTERSIZE=800x800"</span><span style="color: #0000FF;">)</span>
      <span style="color: #7060A8;">IupSetCallbacks</span><span style="color: #0000FF;">({</span><span style="color: #000000;">canvas</span><span style="color: #0000FF;">},</span> <span style="color: #0000FF;">{</span><span style="color: #008000;">"ACTION"</span><span style="color: #0000FF;">,</span> <span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"redraw_cb"</span><span style="color: #0000FF;">),</span>
                                 <span style="color: #008000;">"MAP_CB"</span><span style="color: #0000FF;">,</span> <span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"map_cb"</span><span style="color: #0000FF;">)})</span>
      <span style="color: #000000;">dlg</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupDialog</span><span style="color: #0000FF;">(</span><span style="color: #000000;">canvas</span><span style="color: #0000FF;">,</span><span style="color: #008000;">`TITLE="%s"`</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">title</span><span style="color: #0000FF;">})</span>
      <span style="color: #7060A8;">IupSetCallback</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"KEY_CB"</span><span style="color: #0000FF;">,</span> <span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"key_cb"</span><span style="color: #0000FF;">))</span>
-     <span style="color: #004080;">Ihandle</span> <span style="color: #000000;">timer</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupTimer</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"timer_cb"</span><span style="color: #0000FF;">),</span> <span style="color: #000000;">1000</span><span style="color: #0000FF;">/</span><span style="color: #000000;">25</span><span style="color: #0000FF;">)</span>
+     <span style="color: #004080;">Ihandle</span> <span style="color: #000000;">timer</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupTimer</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"timer_cb"</span><span style="color: #0000FF;">),</span> <span style="color: #000000;">1000</span><span style="color: #0000FF;">/</span><span style="color: #000000;">50</span><span style="color: #0000FF;">)</span>
      <span style="color: #7060A8;">IupShowXY</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #004600;">IUP_CENTER</span><span style="color: #0000FF;">,</span><span style="color: #004600;">IUP_CENTER</span><span style="color: #0000FF;">)</span>
      <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">canvas</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"RASTERSIZE"</span><span style="color: #0000FF;">,</span> <span style="color: #004600;">NULL</span><span style="color: #0000FF;">)</span>