.if .not .def _GRAPHIX_

_GRAPHIX_ = 1   

   .if .not .def _SYSTEM
      .include #system
   .endif
   .if .not .def _MACROS_
      .include #macros
   .endif
; -------------------------------------------------------------
; For the macro...
;              FILL  channel,x,y,color[,flags]
; will get us
;     channel in X
; -------------------------------------------------------------
   .macro fill
@tmp  .= p2 + p3 + p3   
      .if %0 = 5
         .if .not [%5 & $8000]
            ch_x  %5
         .endif
@tmp     .=  %5
      .endif
      @moke_x  %2,colcrs,@tmp,2
      @moke_x  %3,rowcrs,@tmp,4
      @moke_x  %4,fildat,@tmp,8
      poke_x   iccom,18
      jsr   ciov
   .endm

; -------------------------------------------------------------
; For the macro...
;              POSITION    x,y[,select]
; -------------------------------------------------------------
   .macro position
      .if %0 <> 3
         dpoke colcrs,%1
         poke  rowcrs,%2
      .else
         @moke %1,colcrs,%3,1
         @moke %2,rowcrs,%3,2
      .endif
   .endm

   .endif