|
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}
}
}
}
}
}
----- Original Message -----
Sent: Monday, December 19, 2005 12:21
AM
Subject: Re: Generating Random
number
Hi Duke,
Ok. I have changed the code to below and I am getting 2 rectangles
showing up. But I dont see the random number generated anywhere in the
displayed applet.
How to display the random number generated?
How do i change the rectangles into bouncing spheres?
I would like the bouncing spheres to bounce for 3 secs before a new
random number is generated everytime the user clicks on a button to generate a
new number.
Thanks,
PT
{curl 4.0 applet}
{curl-file-attributes character-encoding =
"windows-latin-1"}
{import * from CURL.GUI.SHAPES}
{let v:View =
{View
{Canvas
width =
9cm,
hei
ght =
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}
}
}
}
}
}
{v.show}
{value
let random:RolledRandom =
{RolledRandom 1, 1328}
{random.next-roll}
}
Duke Briscoe <[EMAIL PROTECTED]> wrote:
On
Dec 18, 2005, at 10:39 PM, pang tee wrote:
> Thanks Kamal,
>
> I tried to combine the two codes together, but ended with the
errors
> attached in randomgenerator.doc.
>
>
Actually i just to get the screen to appear like in
>
randomgenerator.jpg if anyone can help. The shape that is in the code
> here is calling rectangles not spheres.
>
>
Thanks,
> PT
The error is telling you that a View can only have
one graphical child,
while you have two, one is the random number and
the other is the
Canvas. So you need to choose some other
layout.
*******************************************
To
unsubscribe from this list, send a mail
to:
mailto:[EMAIL PROTECTED]
To contact a human list
administra tor, send a mail
to:
mailto:[EMAIL PROTECTED]
To recieve a list of
other options for this list, send a mail
to:
mailto:[EMAIL PROTECTED]
__________________________________________________
Do You
Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
|