Capture the Trig Function from an Option Menu Button
Jim Hurley
jhurley0305 at sbcglobal.net
Mon Dec 10 14:37:35 EST 2012
Roger,
One caveat. This is a good exampe the caution one must exercise in using the Do.
Instead of:
>> replace "sine" with "sin" in tTrigFunction
>> replace "cosine" with "cos" in tTrigFunction
>> replace "tangent" with "tan" in tTrigFunction
Use:
>> replace "cosine" with "cos" in tTrigFunction
>> replace "sine" with "sin" in tTrigFunction
>> replace "tangent" with "tan" in tTrigFunction
If you replace "sine" with "sin" you also change "cosine" to "cosin" (There is a "sine" in "cosine")
So reverse the order of these first two.
Jim
> ------------------------------
>
> Message: 3
> Date: Mon, 10 Dec 2012 09:42:55 -0800
> From: Roger Guay <irog at mac.com>
> To: How to use LiveCode <use-livecode at lists.runrev.com>
> Subject: Re: Capture the Trig Function from an Option Menu Button
> Message-ID: <2F8EAA01-F970-48E0-AF7A-7733AF7E4FB3 at mac.com>
> Content-Type: text/plain; CHARSET=US-ASCII
>
> This script is amazingly fast! And so are you, having apparently produced it in less than an hour!! My script appears to be slightly slower using a switch/case structure. I'll test it out when I get a moment.
>
> Thanks very much,
> Roger
>
>
> On Dec 10, 2012, at 8:59 AM, Jim Hurley <jhurley0305 at sbcglobal.net> wrote:
>
>> It turns out that Do is fast enough. Here is the Do script:
>> (The script might read a litle better by using "x" in the repeat loop instead of "i".)
>>
>> on mouseUp
>> put the label of btn "myOptionMenu" into tTrigFunction
>> --It might be necessary to take care in using the following replacements
>> replace "sine" with "sin" in tTrigFunction
>> replace "cosine" with "cos" in tTrigFunction
>> replace "tangent" with "tan" in tTrigFunction
>> put round(the width of this card/2) into x0
>> put round(the height of this card/2) into y0
>> put 50 into Amp--Amplitude of the trig curve
>> set the points of grc "myCurve" to empty
>> wait 0 millisec -- Force a screen refresh on the Mac
>> repeat with i = 1 to 360--maybe with a step of 2 or 4
>> put i*pi/180 into tAngle
>> get "put the " & tTrigFunction & " of " & tAngle & " into y "
>> do it
>> put round(Amp*y) into y
>> put i into x
>> put x+ x0, y+y0 into tPoint
>> put tPoint & cr after tPoints
>> --Uncomment the following to see the curve evolve
>> --set the points of grc "myCurve" to tPoints
>> --wait 0 millisec
>> end repeat
>> set the points of grc "myCurve" to tPoints
>> end mouseUp
>> _______________________________________________
>> use-livecode mailing list
>> use-livecode at lists.runrev.com
>> Please visit this url to subscribe, unsubscribe and manage your subscription preferences:
>> http://lists.runrev.com/mailman/listinfo/use-livecode
>
>
More information about the use-livecode
mailing list