Jim (aka Mr. graphics wizard), Here's a challenge for you:
Create the outline of an odd geometric shape using several of the existing tools (an L shape, but with round ends, by using circles). Then, with math wizard code, trace the outer overall shape into the points of a single new polygon. THAT would be uber-useful! ~Roger On Jan 18, 2014 11:04 AM, "Jim Hurley" <jhurley0...@sbcglobal.net> wrote: > > > > Message: 2 > > Date: Fri, 17 Jan 2014 16:00:43 +0200 > > From: j...@souslelogo.com > > To: use-revolut...@lists.runrev.com > > Subject: the points of graphic > > Message-ID: <b058292c0d6ba33b59b2906da17e9271.squirrel@185.8.104.234> > > Content-Type: text/plain;charset=iso-8859-1 > > > > Hi list, > > > > Is there a way to get the points of a Regular Polygon > > graphic, or do I have to compute it myself using the > > loc, width, height and number of sides of the graphic ? > > > > Thanks, > > jbv > > > > > > This script will provide the individual points. > > on mouseUp > put the width of this card/2 into x0 > put the height of this card/2 into y0 > put 6 into n > put 50 into L > put 360/n into tAngle > put x0,y0 & cr after tPoints > set the points of grc "polygon" to tPoints > repeat with i = 1 to n+1 -- plus 1 to close > --Calculate each line segment individually > --dx and dy and the x and y projections of the line segment > repeat with j = 1 to i > add L * cosine(j*tAngle) to dx > subtract L * sine(j*tAngle) from dy > end repeat > put x0 + dx , y0 + dy into theCoord[i] --if you want the coordinates > of each vertex > put (x0 + dx), ( y0 + dy) & cr after tPoints > set the points of grc "polygon" to tPoints--if you want to see the > polygon evolve > put 0 into dx > put 0 into dy > end repeat > end mouseUp > > Given the individual points (theCoord[i]), it would be possible to do > things line draw all diagonals, connect each vertex with all the others. > When n is large, it is a pretty picture. > > But, of course, there is always the much simpler Turtle Graphics. > > To poly n, L > repeat n > forward L > left 360/n > put xycor() into theVertex[i] > end repeat > end poly > > > > _______________________________________________ > use-livecode mailing list > use-livecode@lists.runrev.com > Please visit this url to subscribe, unsubscribe and manage your > subscription preferences: > http://lists.runrev.com/mailman/listinfo/use-livecode > _______________________________________________ use-livecode mailing list use-livecode@lists.runrev.com Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-livecode
