Spinning rod animation/Text: Difference between revisions

Line 1,095:

=={{header|Phix}}==

=== console version ===

<lang Phix>puts(1,"please_wait... ")

cursor(NO_CURSOR)

without js -- (cursor, sleep)

for i=1 to 10 do -- (approx 10 seconds)

puts(1,"please_wait... ")

for j=1 to 4 do

cursor(NO_CURSOR)

printf(1," \b%c\b",`|/-\`[j])

for i=1 to 10 do -- (approx 10 seconds)

sleep(0.25)

for j=1 to 4 do

end for

printf(1," \b%c\b",`|/-\`[j])

end for

sleep(0.25)

puts(1," \ndone") -- clear rod, "done" on next line

end for

</lang>

end for

puts(1," \ndone") -- clear rod, "done" on next line

=== GUI version ===

--

-- demo\rosetta\Spinning_rod_animation.exw

-- =======================================

--

with javascript_semantics -- just about works under pwa/p2js, but

-- layout/re-sizing is a bit naff [DEV]

-- A trailing '!' makes it a "ping/pong":

constant animations = {{`Dots`, {`.`, `..`, `...`,'!'}},

{`Pipes`, `|/─\`},

{`Stars`, `⁎⁑⁂!`},

{`Clock`, `🕛🕑🕒🕓🕔🕕🕖🕗🕘🕙🕚`},

{`Arrows`,`⬍⬈➞⬊⬍⬋⬅⬉`},

{`Bird`, `︷︵︹︺︶︸!`},

{`Plants`,`☘❀❁!`},

{`Eclipse`,`🌑🌒🌓🌔🌕🌖🌗🌘`}}

sequence {anames,anims} = columnize(animations)

-- convert anims to "single chars" in utf8 if needed

for i=1 to length(anims) do

if string(anims[i]) then

sequence ai = utf8_to_utf32(anims[i])

if not string(ai) then

for j=1 to length(ai)-(ai[$]=='!') do

ai[j] = utf32_to_utf8({ai[j]})

end for

end if

anims[i] = ai

end if

end for

integer andx = 1, -- index to anames/anims

adx = 1, -- index within anims[andx]

direction = +1

include pGUI.e

Ihandle dlg, state, label, radios, stopstart, timer

function timer_cb(Ihandle /*timer*/)

sequence anim = anims[andx]

bool bounce = (anim[$]='!')

integer l = length(anim)-bounce

adx += direction

if adx=0 then

adx = 1

direction = +1

elsif adx>l then

if bounce then

direction = -1

adx -= 1

else

adx = 1

end if

IupSetAttribute(state,"TITLE",anim[adx]&"")

return IUP_CONTINUE

end function

function radiochanged_cb(Ihandle ih)

if IupGetInt(ih,"VALUE") then -- (ignore "unsets")

andx = find(IupGetAttribute(ih,"TITLE"),anames)

adx = 1

direction = 1

end if

return IUP_DEFAULT

end function

constant cb_radiochanged = Icallback("radiochanged_cb")

function stopstart_cb(Ihandle ih)

string title = IupGetAttribute(ih,"TITLE")

sequence titles = {"Start","Stop"}

integer tdx = find(title,titles)

IupSetInt(timer,"RUN",tdx=1)

IupSetAttribute(ih,"TITLE",titles[3-tdx])

IupSetAttribute(state,"TITLE","asleep")

return IUP_CONTINUE

end function

IupOpen()

IupSetGlobal("UTF8MODE","YES")

state = IupLabel("asleep")

sequence radioset = {}

for i=1 to length(anames) do

Ihandle radiobtn = IupToggle(anames[i])

radioset = append(radioset,radiobtn)

end for

IupSetCallback(radioset,"VALUECHANGED_CB",cb_radiochanged)

radios = IupRadio(IupHbox(radioset))

stopstart = IupButton("Start",Icallback("stopstart_cb"))

dlg = IupDialog(IupVbox({IupHbox({IupLabel("state: "),state},"ALIGNMENT=ACENTER"),

radios,IupHbox({stopstart})},"MARGIN=10x10"),

`TITLE="Spinning rod animation", MINSIZE=400x200`)

IupSetAttributeHandle(dlg,"STARTFOCUS",stopstart) -- (DEV not p2js, just yet)

timer = IupTimer(Icallback("timer_cb"),250,false)

IupShow(dlg)

if platform()!=JS then

IupMainLoop()

IupClose()

end if

=={{header|PicoLisp}}==

@@ Line 1,095: / Line 1,095: @@
 =={{header|Phix}}==
+=== console version ===
-<lang Phix>puts(1,"please_wait... ")
+<!--<lang Phix>-->
-cursor(NO_CURSOR)
+ <span style="color: #008080;">without</span> <span style="color: #008080;">js</span> <span style="color: #000080;font-style:italic;">-- (cursor, sleep)</span>
-for i=1 to 10 do    -- (approx 10 seconds)
+ <span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"please_wait... "</span><span style="color: #0000FF;">)</span>
-    for j=1 to 4 do
+ <span style="color: #7060A8;">cursor</span><span style="color: #0000FF;">(</span><span style="color: #004600;">NO_CURSOR</span><span style="color: #0000FF;">)</span>
-        printf(1," \b%c\b",`|/-\`[j])
+ <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">10</span> <span style="color: #008080;">do</span>    <span style="color: #000080;font-style:italic;">-- (approx 10 seconds)</span>
-        sleep(0.25)
+     <span style="color: #008080;">for</span> <span style="color: #000000;">j</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">4</span> <span style="color: #008080;">do</span>
-    end for
+         <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" \b%c\b"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">`|/-\`</span><span style="color: #0000FF;">[</span><span style="color: #000000;">j</span><span style="color: #0000FF;">])</span>
-end for
+         <span style="color: #7060A8;">sleep</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0.25</span><span style="color: #0000FF;">)</span>
-puts(1," \ndone") -- clear rod, "done" on next line
+     <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
-</lang>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
+ <span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" \ndone"</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- clear rod, "done" on next line</span>
+<!--</lang>-->
+=== GUI version ===
+<!--<lang Phix>(phixonline)-->
+ <span style="color: #000080;font-style:italic;">--
+ -- demo\rosetta\Spinning_rod_animation.exw
+ -- =======================================
+ --</span>
+ <span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span> <span style="color: #000080;font-style:italic;">-- just about works under pwa/p2js, but
+                           -- layout/re-sizing is a bit naff [DEV]
+ -- A trailing '!' makes it a "ping/pong":</span>
+ <span style="color: #008080;">constant</span> <span style="color: #000000;">animations</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{{</span><span style="color: #008000;">`Dots`</span><span style="color: #0000FF;">,</span>  <span style="color: #0000FF;">{</span><span style="color: #008000;">`.`</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">`..`</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">`...`</span><span style="color: #0000FF;">,</span><span style="color: #008000;">'!'</span><span style="color: #0000FF;">}},</span>
+                        <span style="color: #0000FF;">{</span><span style="color: #008000;">`Pipes`</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">`|/─\`</span><span style="color: #0000FF;">},</span>
+                        <span style="color: #0000FF;">{</span><span style="color: #008000;">`Stars`</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">`⁎⁑⁂!`</span><span style="color: #0000FF;">},</span>
+                        <span style="color: #0000FF;">{</span><span style="color: #008000;">`Clock`</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">`🕛🕑🕒🕓🕔🕕🕖🕗🕘🕙🕚`</span><span style="color: #0000FF;">},</span>
+                        <span style="color: #0000FF;">{</span><span style="color: #008000;">`Arrows`</span><span style="color: #0000FF;">,</span><span style="color: #008000;">`⬍⬈➞⬊⬍⬋⬅⬉`</span><span style="color: #0000FF;">},</span>
+                        <span style="color: #0000FF;">{</span><span style="color: #008000;">`Bird`</span><span style="color: #0000FF;">,</span>  <span style="color: #008000;">`︷︵︹︺︶︸!`</span><span style="color: #0000FF;">},</span>
+                        <span style="color: #0000FF;">{</span><span style="color: #008000;">`Plants`</span><span style="color: #0000FF;">,</span><span style="color: #008000;">`☘❀❁!`</span><span style="color: #0000FF;">},</span>
+                        <span style="color: #0000FF;">{</span><span style="color: #008000;">`Eclipse`</span><span style="color: #0000FF;">,</span><span style="color: #008000;">`🌑🌒🌓🌔🌕🌖🌗🌘`</span><span style="color: #0000FF;">}}</span>
+ <span style="color: #004080;">sequence</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">anames</span><span style="color: #0000FF;">,</span><span style="color: #000000;">anims</span><span style="color: #0000FF;">}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">columnize</span><span style="color: #0000FF;">(</span><span style="color: #000000;">animations</span><span style="color: #0000FF;">)</span>
+ <span style="color: #000080;font-style:italic;">-- convert anims to "single chars" in utf8 if needed</span>
+ <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">anims</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
+     <span style="color: #008080;">if</span> <span style="color: #004080;">string</span><span style="color: #0000FF;">(</span><span style="color: #000000;">anims</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">])</span> <span style="color: #008080;">then</span>
+         <span style="color: #004080;">sequence</span> <span style="color: #000000;">ai</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">utf8_to_utf32</span><span style="color: #0000FF;">(</span><span style="color: #000000;">anims</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: #008080;">not</span> <span style="color: #004080;">string</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ai</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">then</span>
+             <span style="color: #008080;">for</span> <span style="color: #000000;">j</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ai</span><span style="color: #0000FF;">)-(</span><span style="color: #000000;">ai</span><span style="color: #0000FF;">[$]==</span><span style="color: #008000;">'!'</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
+                 <span style="color: #000000;">ai</span><span style="color: #0000FF;">[</span><span style="color: #000000;">j</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">utf32_to_utf8</span><span style="color: #0000FF;">({</span><span style="color: #000000;">ai</span><span style="color: #0000FF;">[</span><span style="color: #000000;">j</span><span style="color: #0000FF;">]})</span>
+             <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
+         <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+         <span style="color: #000000;">anims</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">ai</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>
+ <span style="color: #004080;">integer</span> <span style="color: #000000;">andx</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span><span style="color: #0000FF;">,</span> <span style="color: #000080;font-style:italic;">-- index to anames/anims</span>
+         <span style="color: #000000;">adx</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span><span style="color: #0000FF;">,</span> <span style="color: #000080;font-style:italic;">-- index within anims[andx]</span>
+         <span style="color: #000000;">direction</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">+</span><span style="color: #000000;">1</span>
+ <span style="color: #008080;">include</span> <span style="color: #000000;">pGUI</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>
+ <span style="color: #004080;">Ihandle</span> <span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">state</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">label</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">radios</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">stopstart</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">timer</span>
+ <span style="color: #008080;">function</span> <span style="color: #000000;">timer_cb</span><span style="color: #0000FF;">(</span><span style="color: #004080;">Ihandle</span> <span style="color: #000080;font-style:italic;">/*timer*/</span><span style="color: #0000FF;">)</span>
+     <span style="color: #004080;">sequence</span> <span style="color: #000000;">anim</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">anims</span><span style="color: #0000FF;">[</span><span style="color: #000000;">andx</span><span style="color: #0000FF;">]</span>
+     <span style="color: #004080;">bool</span> <span style="color: #000000;">bounce</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">(</span><span style="color: #000000;">anim</span><span style="color: #0000FF;">[$]=</span><span style="color: #008000;">'!'</span><span style="color: #0000FF;">)</span>
+     <span style="color: #004080;">integer</span> <span style="color: #000000;">l</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">anim</span><span style="color: #0000FF;">)-</span><span style="color: #000000;">bounce</span>
+     <span style="color: #000000;">adx</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">direction</span>
+     <span style="color: #008080;">if</span> <span style="color: #000000;">adx</span><span style="color: #0000FF;">=</span><span style="color: #000000;">0</span> <span style="color: #008080;">then</span>
+         <span style="color: #000000;">adx</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span>
+         <span style="color: #000000;">direction</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">+</span><span style="color: #000000;">1</span>
+     <span style="color: #008080;">elsif</span> <span style="color: #000000;">adx</span><span style="color: #0000FF;">></span><span style="color: #000000;">l</span> <span style="color: #008080;">then</span>
+         <span style="color: #008080;">if</span> <span style="color: #000000;">bounce</span> <span style="color: #008080;">then</span>
+             <span style="color: #000000;">direction</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">-</span><span style="color: #000000;">1</span>
+             <span style="color: #000000;">adx</span> <span style="color: #0000FF;">-=</span> <span style="color: #000000;">1</span>
+         <span style="color: #008080;">else</span>
+             <span style="color: #000000;">adx</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span>
+         <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+     <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+     <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">state</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"TITLE"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">anim</span><span style="color: #0000FF;">[</span><span style="color: #000000;">adx</span><span style="color: #0000FF;">]&</span><span style="color: #008000;">""</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">return</span> <span style="color: #004600;">IUP_CONTINUE</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+ <span style="color: #008080;">function</span> <span style="color: #000000;">radiochanged_cb</span><span style="color: #0000FF;">(</span><span style="color: #004080;">Ihandle</span> <span style="color: #000000;">ih</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">if</span> <span style="color: #7060A8;">IupGetInt</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ih</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"VALUE"</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">then</span> <span style="color: #000080;font-style:italic;">-- (ignore "unsets")</span>
+         <span style="color: #000000;">andx</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">IupGetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ih</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"TITLE"</span><span style="color: #0000FF;">),</span><span style="color: #000000;">anames</span><span style="color: #0000FF;">)</span>
+         <span style="color: #000000;">adx</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span>
+         <span style="color: #000000;">direction</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span>
+     <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+     <span style="color: #008080;">return</span> <span style="color: #004600;">IUP_DEFAULT</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+ <span style="color: #008080;">constant</span> <span style="color: #000000;">cb_radiochanged</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"radiochanged_cb"</span><span style="color: #0000FF;">)</span>
+ <span style="color: #008080;">function</span> <span style="color: #000000;">stopstart_cb</span><span style="color: #0000FF;">(</span><span style="color: #004080;">Ihandle</span> <span style="color: #000000;">ih</span><span style="color: #0000FF;">)</span>
+     <span style="color: #004080;">string</span> <span style="color: #000000;">title</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupGetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ih</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"TITLE"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #004080;">sequence</span> <span style="color: #000000;">titles</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #008000;">"Start"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Stop"</span><span style="color: #0000FF;">}</span>
+     <span style="color: #004080;">integer</span> <span style="color: #000000;">tdx</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #000000;">title</span><span style="color: #0000FF;">,</span><span style="color: #000000;">titles</span><span style="color: #0000FF;">)</span>
+     <span style="color: #7060A8;">IupSetInt</span><span style="color: #0000FF;">(</span><span style="color: #000000;">timer</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"RUN"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">tdx</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>
+     <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ih</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"TITLE"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">titles</span><span style="color: #0000FF;">[</span><span style="color: #000000;">3</span><span style="color: #0000FF;">-</span><span style="color: #000000;">tdx</span><span style="color: #0000FF;">])</span>
+     <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">state</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"TITLE"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"asleep"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">return</span> <span style="color: #004600;">IUP_CONTINUE</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+ <span style="color: #7060A8;">IupOpen</span><span style="color: #0000FF;">()</span>
+ <span style="color: #7060A8;">IupSetGlobal</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"UTF8MODE"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"YES"</span><span style="color: #0000FF;">)</span>
+ <span style="color: #000000;">state</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupLabel</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"asleep"</span><span style="color: #0000FF;">)</span>
+ <span style="color: #004080;">sequence</span> <span style="color: #000000;">radioset</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span>
+ <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">anames</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
+     <span style="color: #004080;">Ihandle</span> <span style="color: #000000;">radiobtn</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupToggle</span><span style="color: #0000FF;">(</span><span style="color: #000000;">anames</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">])</span>
+     <span style="color: #000000;">radioset</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">radioset</span><span style="color: #0000FF;">,</span><span style="color: #000000;">radiobtn</span><span style="color: #0000FF;">)</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
+ <span style="color: #7060A8;">IupSetCallback</span><span style="color: #0000FF;">(</span><span style="color: #000000;">radioset</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"VALUECHANGED_CB"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">cb_radiochanged</span><span style="color: #0000FF;">)</span>
+ <span style="color: #000000;">radios</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupRadio</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">IupHbox</span><span style="color: #0000FF;">(</span><span style="color: #000000;">radioset</span><span style="color: #0000FF;">))</span>
+ <span style="color: #000000;">stopstart</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupButton</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"Start"</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"stopstart_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: #7060A8;">IupVbox</span><span style="color: #0000FF;">({</span><span style="color: #7060A8;">IupHbox</span><span style="color: #0000FF;">({</span><span style="color: #7060A8;">IupLabel</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"state: "</span><span style="color: #0000FF;">),</span><span style="color: #000000;">state</span><span style="color: #0000FF;">},</span><span style="color: #008000;">"ALIGNMENT=ACENTER"</span><span style="color: #0000FF;">),</span>
+                          <span style="color: #000000;">radios</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">IupHbox</span><span style="color: #0000FF;">({</span><span style="color: #000000;">stopstart</span><span style="color: #0000FF;">})},</span><span style="color: #008000;">"MARGIN=10x10"</span><span style="color: #0000FF;">),</span>
+                 <span style="color: #008000;">`TITLE="Spinning rod animation", MINSIZE=400x200`</span><span style="color: #0000FF;">)</span>
+ <span style="color: #7060A8;">IupSetAttributeHandle</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"STARTFOCUS"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">stopstart</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- (DEV not p2js, just yet)</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;">250</span><span style="color: #0000FF;">,</span><span style="color: #004600;">false</span><span style="color: #0000FF;">)</span>
+ <span style="color: #7060A8;">IupShow</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">)</span>
+ <span style="color: #008080;">if</span> <span style="color: #7060A8;">platform</span><span style="color: #0000FF;">()!=</span><span style="color: #004600;">JS</span> <span style="color: #008080;">then</span>
+     <span style="color: #7060A8;">IupMainLoop</span><span style="color: #0000FF;">()</span>
+     <span style="color: #7060A8;">IupClose</span><span style="color: #0000FF;">()</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+<!--</lang>-->
 =={{header|PicoLisp}}==