LiveCode Forums.

Code: Select all

public handler OnPaint()
   variable tH as Number
   variable tW as Number
   variable tS as Number
   variable tX0 as Number
   variable tX1 as Number
   variable tX2 as Number
   variable tX3 as Number
   variable tY0 as Number
   variable tY1 as Number
   variable tY2 as Number
   variable tHM as Number
   variable tWM as Number
   variable tHexPath as Path
   
   put my height into tHM
   put my width into tWM

   set the paint of this canvas to my foreground paint

   put (the minimum of tHM and tWM)/7 into tH
   put tH * 1.1547 into tW
   put tH * 0.5774 into tS
   
   put (tWM/2) - (tW/2) into tX0
   put tX0 + ((tW-tS)/2) into tX1
   put tX1 + tS into tX2
   put tX0 + tW into tX3
   
   put (tHM/2) - (tH/2) into tY0
   put tY0 + (tH/2) into tY1
   put tY0 + tH into tY2
   
   put polygon path with points [point [tX0,tY1],point [tX1,tY0],point [tX2,tY0],point [tX3,tY1],point [tX2,tY2],point [tX1,tY2]] into tHexPath
   add tHexPath to this canvas
   fill this canvas

end handler

Code: Select all

handler regularPoints(in pA as List) returns List
   -- pA = [ N, radius, xLoc, yLoc]
   variable tI as Number
   variable tP as Number
   put 2*pi/pA[1] into tP
   put [] into tM
   repeat with tI from 1 up to pA[1]
       push point [pA[3]+pA[2]*sin(tI*tP),pA[4]-pA[2]*cos(tI*tP)] onto tM
   end repeat
   return tM
end handler

Code: Select all

-- usage
variable tPath as Path
put polygon path with points regularPoints([6,100,250,250]) into tPath

Code: Select all

  
   put polygon path with points regularPoints([6,my width/7,my width/2,my height/2]) into tHexPath
   rotate tHexPath by 90
   add tHexPath to this canvas
   fill this canvas