[futurebasic] Re: [FB] B&W G3 Marching Ants

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : May 1999 : Group Archive : Group : All Groups

From: JoeAtTIME@...
Date: Thu, 6 May 1999 13:42:42 EDT
In a message dated 5/6/99 5:25:45 AM, you wrote:

<<However, I've had no end of problems producing a dotted marquee box. Can't
do it :-(
Some I tried the Marching Ants demo on Function Junction III
- I hope everyone's gone out and bought this :-)
And that doesn't work on my G3 either - so it's not just my dodgey coding.

Has anyone else found this? Is it a B&W G3, extension conflict or MacOS 8.5
problem?

Andy
>>

Here is the function that I use to draw a marching ant marquee in one of my 
apps. I have had no trouble on my G3. The constant _patResId is the id of the 
first of 8 marching ant patterns in my program's resource fork. Could it be 
that your program was relying on patterns that lived in your old systems 
resource file instead of your programs? That might explain why it does not 
work on your new computer which may not have the same pattern resources in 
the system.

-Joe Lertola
'----------
LOCAL FN doTimer
windsave=WINDOW(_outputWnd)
LONG IF windsave=_CropIntWindow
DIM rect.8
gPat%=gPat%+1
IF gPat%>=_patResId+8 THEN gPat%=_patResId        'set the initial pattern 
for marching ants
patHand&=FN GETPATTERN(gPat%)
BLOCKMOVE [patHand&], @gPatBits, 8
CALL PENNORMAL
CALL PENPAT(gPatBits)
FN loadRect(@rect)
CALL FRAMERECT(rect)
CALL PENNORMAL
END IF
END FN
'---------