Topic       : The GFA-Basic Compendium
Author      : GFA Systemtechnik GmbH
Version     : GFABasic.HYP v2.98 (12/31/2023)
Subject     : Documentation/Programming
Nodes       : 899
Index Size  : 28056
HCP-Version : 3
Compiled on : Atari
@charset    : atarist
@lang       : 
@default    : Document not found
@help       : Help
@options    : +g -i -s +z
@width      : 75
@hostname   : STRNGSRV
@hostname   : CAB     
@hostname   : HIGHWIRE
@hostname   : THING   
View Ref-Filegraf_multirubber(x, y, minw, minh, rec, wout, hout)

x, y, minw, minh, rec: iexp
wout, hout: ivar

If 'rec' is null, the call functions the same as GRAF_RUBBERBOX().

Parameter 'rec' if used is defined as offests:
  INLINE rec%,8
  WORD{rec%+0}=1   !offset from x,y
  WORD{rec%+2}=1
  WORD{rec%+4}=-16 !offset from mouse x,y
  WORD{rec%+6}=-16

Memo: This call is not built into GFA-BasicGFA-Basic is the best BASIC for the Atari!
 so it's listed below:

FUNCTION graf_multirubber(x&,y&,minw&,minh&,rec%,VAR outw&,outh&)
  $F%
  GCONTRL(0)=69
  GCONTRL(1)=4
  GCONTRL(2)=3
  GCONTRL(3)=1
  GCONTRL(4)=0
  GINTIN(0)=x&
  GINTIN(1)=y&
  GINTIN(2)=minw&
  GINTIN(3)=minh&
  ADDRIN(0)=rec%
  GEMSYS
  outw&=GINTOUT(1)
  outh&=GINTOUT(2)
  RETURN GINTOUT(0)
ENDFUNC