variable hp, 320
variable vp, 200
variable hc, 320/iw
variable vc, 320/ih
variable frame, 0xa0000

%ifdef bit8
%include "forth/words/draw/g8/at"
%include "forth/words/draw/g8/blit"
%include "forth/words/draw/g8/hline"
%include "forth/words/draw/g8/vline"
%include "forth/words/draw/g8/circle"
%include "forth/words/draw/g8/emit"
%include "forth/words/draw/g8/rect"
%include "forth/words/draw/g8/clip"
%include "forth/words/draw/g8/cr"
%include "forth/words/draw/g8/bluebar"
%endif

%ifdef bit16
%include "forth/words/draw/g16/at"
%include "forth/words/draw/g16/blit"
%include "forth/words/draw/g16/hline"
%include "forth/words/draw/g16/vline"
%include "forth/words/draw/g16/circle"
%include "forth/words/draw/g16/emit"
%include "forth/words/draw/g16/rect"
%include "forth/words/draw/g16/clip"
%include "forth/words/draw/g16/cr"
%include "forth/words/draw/g16/bluebar"
%endif

%ifdef bit32
%include "forth/words/draw/g32/at"
%include "forth/words/draw/g32/blit"
%include "forth/words/draw/g32/hline"
%include "forth/words/draw/g32/vline"
%include "forth/words/draw/g32/circle"
%include "forth/words/draw/g32/emit"
%include "forth/words/draw/g32/rect"
%include "forth/words/draw/g32/clip"
%include "forth/words/draw/g32/cr"
%include "forth/words/draw/g32/bluebar"
%endif

%ifdef text
%include "forth/words/draw/text/at"
%include "forth/words/draw/text/emit"
%include "forth/words/draw/text/cr"
%endif
