When I try to copile this code I get OK with the rectangles but not so with the polygons
The problem is probably understanding about "Points" .
I am assuming that each of 4 point sets {Row,Col} are required and any clockwise or couner clockwise is OK
Has anyone used this Draw feature without using Bos Taurus?
Thanks
***********************************************
Procedure Wallcolors ()
* Paint a wall to illustrate color combinations
***********************************************
Local aSelectedColors:={MEDVIOLETRED,{205,90,162},{90,162,205},{170,95,142},{93,50,165}}
if !iswindowdefined(Win_Wall)
DEFINE WINDOW Win_Wall;
AT 50,50 ;
WIDTH 550 ;
HEIGHT 450 ;
TITLE "Paint a wall" ;
BACKCOLOR IVORY
END WINDOW
Win_Wall.Activate
Else
Win_Wall.show
EndIf
DRAW RECTANGLE IN WINDOW Win_Wall AT 10,200 TO 330,400 FILLCOLOR aSelectedColors[1] // right wall
DRAW RECTANGLE IN WINDOW Win_Wall AT 10,200 TO 40,400 FILLCOLOR aSelectedColors[2] //top stripe
DRAW RECTANGLE IN WINDOW Win_Wall AT 10,200 TO 40,400 FILLCOLOR aSelectedColors[3] // upper stripe
DRAW RECTANGLE IN WINDOW Win_Wall AT 340,200 TO 300,400 FILLCOLOR aSelectedColors[2] // base stripe
DRAW POLYGON IN WINDOW Win_Wall POINTS {{50,50},{10,200},{300,200},{390,10}} FILLCOLOR aSelectedColors[1] //left wall
DRAW POLYGON IN WINDOW Win_Wall POINTS {{50,50},{80,50},{40,200},{10,200}} FILLCOLOR aSelectedColors[2]
DRAW POLYGON IN WINDOW Win_Wall POINTS {{80,50},{110,50},{70,200},{40,200}} FILLCOLOR aSelectedColors[3]
DRAW POLYGON IN WINDOW Win_Wall POINTS {{360,50},{390,50},{2300,200},{330,200}} FILLCOLOR aSelectedColors[2]
DRAW POLYGON IN WINDOW Win_Wall POINTS {{390,50},{330,200},{330,400},{375,50}} FILLCOLOR aSelectedColors[5] //floor
Return NIL