Note that RectangleShape creates a rectangle shape and EllipseShape creates an elliptical shape. In the code
below I am using EllipseShape to dyaw a ball (See canval
c2).
I need a CommandButton to click to, to start
animation. For the animation purpose I am using a Timer that goes off every .1s,
30 times (for 3s). Note that that inside the timer event I am changing the
position of the ball using a random number, to show you how you can generate
number numbers.
--Kamal
{curl 4.0 applet}
{curl-file-attributes character-encoding = "windows-latin-1"} {import * from CURL.GUI.SHAPES}
{let c1:Canvas=
{Canvas background = "", width = 9cm, height = 8cm, {ShapeGroup translation = {Distance2d 0cm, 7cm}, {RectangleShape {GRect 0cm, 1cm, 1cm, 0cm}, color = "#006968", translation = {Distance2d (1.1cm * 1), 0cm} }, {RectangleShape {GRect 0cm, 1cm, 5cm, 0cm}, color = "#2462a2", translation = {Distance2d (1.1cm * 6), 0cm} } } } } {value c1}
{hrule}
{let e1:EllipseShape =
{EllipseShape {GRect 0cm, 1cm, 1cm, 0cm}, color = "#006968" } } {e1.apply-translation 0cm, 1cm}
{let c2:Canvas= {Canvas background = "", width = 9cm, height = 8cm, e1 } } {value c2}
{let f:Frame = {Frame}}
{value f} {CommandButton label = "bounce", {on Action do let random:RolledRandom = {RolledRandom 0, 5} {let t:Timer = {Timer interval = .1s, repeat = 30, {on TimerEvent do let delta:int = {random.next-roll} {f.add delta, replace? = true} {c2.move-to-xy e1, 1cm, delta * 1cm} } } } } }
|
- Re: Generating Random number Duke Briscoe
- Re: Generating Random number pang tee
- Re: Generating Random number Kamal Bhatt
- Re: Generating Random number pang tee
- Re: Generating Random number Kamal Bhatt
- Re: Generating Random number pang tee
- Bouncing balls in Curl pang tee
- Re: Bouncing balls in Curl pang tee
- Re: Bouncing balls in Curl Duke Briscoe
- Re: Bouncing balls in Curl pang tee
- Re: Bouncing balls in Curl Kamal Bhatt
- Re: Bouncing balls in Curl Duke Briscoe
- Re: Bouncing balls in Curl pang tee