|
|
CALL GINIT(600,600)
CALL DISPLAY(1)
PAUSE
CALL DISPLAY(0)
END
EXTERNAL SUB DISPLAY(SW)
CLEAR
SET LINE WIDTH 5
CALL LINE(270,220,70,450,7)
CALL LINE(270,220,470,450,7)
CALL LINE(70,450,470,450,7)
IF SW=1 THEN
CALL LINE(160,220,560,220,7)
CALL LINE(160,220,70,450,7)
CALL LINE(560,220,470,450,7)
CALL LINE(270,220,180,450,7)
END IF
CALL SYMBOL(270,190,"A",7)
CALL SYMBOL(50,450,"B",7)
CALL SYMBOL(490,450,"C",7)
END SUB
EXTERNAL SUB GINIT(XSIZE,YSIZE)
SET BITMAP SIZE XSIZE,YSIZE
SET WINDOW 0,XSIZE-1,YSIZE-1,0
SET POINT STYLE 1
SET COLOR MODE "REGULAR"
SET COLOR MIX(0) 0,0,0
SET COLOR MIX(1) 0,0,1
SET COLOR MIX(2) 1,0,0
SET COLOR MIX(3) 1,0,1
SET COLOR MIX(4) 0,1,0
SET COLOR MIX(5) 0,1,1
SET COLOR MIX(6) 1,1,0
SET COLOR MIX(7) 1,1,1
CLEAR
SET TEXT HEIGHT 30
SET TEXT JUSTIFY "CENTER","HALF"
END SUB
EXTERNAL SUB SYMBOL(X,Y,A$,C)
SET TEXT COLOR C
PLOT TEXT,AT X,Y:A$
END SUB
EXTERNAL SUB LINE(XS,YS,XE,YE,C)
SET COLOR C
PLOT LINES
PLOT LINES:XS,YS;XE,YE
END SUB
|
|