PROCEDURE test_gfxe
(* Provide testing of new GFXE module *)
DIM x1,y1,x2,y2,x,y,col:INTEGER
DIM radius,mode:INTEGER
DIM vpath:INTEGER

(* Mode variant *)
RUN gfxe("mode",$14,0)
print " MODE MODE,COL"
input a

(* Move variant *)
RUN gfxe("move",20,20)
print " MOVE X1,Y1"
input a

(* Line function *)
RUN gfxe("line",200,200)
print " LINE X2,Y2"
input a

RUN gfxe("line",50,70,6)
print " LINE X2,Y2,COL"
input a

RUN gfxe("line",0,0,100,20)
print " LINE X1,Y1,X2,Y2"
input a

RUN gfxe("line",10,10,70,100,8)
print " LINE X1,Y1,X2,Y2,COL"
input a

(* Color variant *)
run gfxe("color",2)
print " COLOR COL"
input a

(* Point variant * )
run gfxe("point",300,300)
print " POINT X1,Y1"
input a

run gfxe("point",302,302,5)
print " POINT X1,Y1,COL"
input a

(* Clear variant *)
run gfxe("clear")
print " CLEAR"
input a

run gfxe("clear",13)
print " CLEAR COL"
input a

(* Circle variant *)
run gfxe("circle",30)
print " CIRCLE RAD"
input a

run gfxe("circle",50,3)
print " CIRCLE RAD,COL"
input a

run gfxe("circle",10,10,10)
print " CIRCLE X1,Y1,RAD"

input a

run gfxe("circle",20,20,20,12)
print " CIRCLE X1,Y1,RAD,COL"
input a

run gfxe("point",20,20,4)

run gfxe("gcolr",20,20,col)
print "GCOLR returned",col


