Код
MACRO CBORDER
GN hicolor 249
GN locolor 246
BORDER
ENDM

MACRO DBORDER
GN hicolor 42
GN locolor 39
BORDER
ENDM

MACRO MBORDER
GN hicolor 87
GN locolor 85
BORDER
ENDM

MACRO BORDER
RDOFF
SHOW MAP BORDER
LWIDTH 0
LSTYLE SOLID
FSTYLE SOLID
RDON
GP p1 0,0
GP p1 ^D Bottom-left corner [0,0]:
GP p2 250,150
GP p2 ^D Top-right corner [1000,800]:
GETX x1 p1
GETY y1 p1
GETX x2 p2
GETY y2 p2
GV doff (x2-x1)/50
SELBYP
POLY x2,y1 p2 x1,y2 x1-doff,y2+doff x2+doff,y2+doff x2+doff,y1-doff;
CHANGEFS SOLID
CHANGEC locolor
CHANGEL MAP BORDER
POLY x1-doff,y2+doff x1-doff,y1-doff x2+doff,y1-doff x2,y1 p1 x1,y2;
CHANGEFS SOLID
CHANGEC hicolor
CHANGEL MAP BORDER
LINE p1 x2,y1 p2 x1,y2 p1;
CHANGEC 0
CHANGEL MAP BORDER
LINE x1-doff,y1-doff x2+doff,y1-doff x2+doff,y2+doff x1-doff,y2+doff x1-doff,y1-doff;
CHANGEC 0
CHANGEL MAP BORDER
ORIGIN p1
SELBYD
ENDM