[futurebasic] Re:FB^3 Plot Icon families

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

From: Dabs@...
Date: Sun, 14 Nov 1999 02:13:22 EST
After trying to add the icon include in the runtime it appears it is not 
finished.  I went back to the following standby that has worked well for 
plotting icl8 icons in FB2 but does not work in fb3.  Anybody know why???

WINDOW 1

CLEAR LOCAL
LOCAL FN PlotIcon(@plotRect&, alignment%, transform%, iconID%)
'transform 0 = normal,1 = grayed, 2 = pattern over lay 3 = pattern only
BEGINASSEM cpu68k
 SUBQ.L #2,sp;clear space for result
 MOVE.L ^plotRect&,-(sp);rect address
 MOVE.W ^alignment%,-(sp);icon suite res ID
 MOVE.W ^transform%,-(sp);selector
 MOVE.W ^iconID%,-(sp);handle address
 DC.W $303C,$0500,$ABC9;trap number
 MOVE.W (sp)+,D0;add result of function to stack
 EXT.L D0;D0 equals true/false
ENDASSEM
END FN = err


DIM rrect;8
CALL SETRECT(rrect,0,0,500,500)
id = 128
CALL PAINTRECT(rrect)
CALL SETRECT(rrect,100,100,132,132)
FOR loop = 0 TO 7
FN PlotIcon(@rrect,0,loop,id)
CALL OFFSETRECT(rrect,40,0)
NEXT
INPUT A