1. Sequence/Atom prob

------=_NextPart_000_0007_01C05C43.EC855860
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hi,

    I've been having some problems with get_mouse() and if-then loops. =
It seems that at the begining I need the variable assinged to =
get_mouse() to be an atom, then to change to a sequence. Here's the =
prog:

object event
event=3D-1

procedure mouseaction()
    while event=3D-1 do
        event=3Dget_mouse()
        if sequence(event) then
            if and_bits(event[1], 2)  then   --2's left down
            display_image({300,420},ufire2[2])
            end if
        end if
    end while
end procedure

mouseaction()

   Can you help me out? Also, what exactly does and_bits do here? I had =
to get it from the HTML documentation to get the mouse action to =
work----I understand the rest, just not this.

Thanks
Thomas

------=_NextPart_000_0007_01C05C43.EC855860
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp; I've been having =
some problems=20
with get_mouse() and if-then loops. It seems that at the begining I need =
the=20
variable assinged to get_mouse() to be an atom, then to change to a =
sequence.=20
Here's the prog:</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>object event</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>event=3D-1</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>procedure =
mouseaction()<BR>&nbsp;&nbsp;&nbsp; while=20
event=3D-1 do<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
event=3Dget_mouse()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if=20
sequence(event)=20
; if=20
and_bits(event[1], 2)  then&nbsp;&nbsp;&nbsp;--2's left=20
;=20
;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
end if<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end=20
if<BR>&nbsp;&nbsp;&nbsp; end while<BR>end procedure</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>mouseaction()<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp;Can you help me out? =
Also, what=20
exactly does and_bits do here? I had to get it from the HTML =
documentation to=20
get the mouse action to work----I understand the rest, just not=20
this.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Thanks</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Thomas</FONT><FONT face=3DArial=20

------=_NextPart_000_0007_01C05C43.EC855860--

new topic     » topic index » view message » categorize

2. Re: Sequence/Atom prob

On Sat, 2 Dec 2000, Paul Kerslake wrote:

> Hi,
>
>     I've been having some problems with get_mouse() and if-then loops. It
>     seems that at the begining I need the variable assinged to get_mouse() to be an
>     atom, then to change to a sequence. Here's the prog:
>
> object event
> event=-1
>
> procedure mouseaction()
>     while event=-1 do
>         event=get_mouse()
>         if sequence(event) then
>             if and_bits(event[1], 2)  then   --2's left down
>             display_image({300,420},ufire2[2])
>             end if
>         end if
>     end while
> end procedure
>
> mouseaction()
>
>    Can you help me out? Also, what exactly does and_bits do here? I had to get
>    it from the HTML documentation to get the mouse action to work----I understand
>    the rest, just not this.
>
> Thanks
> Thomas
>

Note:
sequence s
s = {1,2,3,-1}
? s = -1

This displays:
{0,0,0,1}

What you need to do is this:
while integer(event) do

instead of:
while event = -1 do

You could also use:
while equal(event, -1) do

But that's slightly less efficient (I think).

Jeff

new topic     » goto parent     » topic index » view message » categorize

Search



Quick Links

User menu

Not signed in.

Misc Menu