Error processing request

Parameters

Body

Error

Unknow state transition: LINE -> END

-code

1

-level

0

-errorstack

INNER {returnImm {Unknow state transition: LINE -> END} {}} CALL {my render_wikit {horoscope pie plotter} Horoscope\ or\ Pie\ plotter\n\nA\ pie\ chart\ is\ a\ way\ to\ show\ the\ relative\ portions\ of\ the\ whole.\ Pie\ plots\ have\ been\ used\ to\ map\ the\ planets\ and\ constellations\ for\ at\ least\ 3500\ years,\ although\ the\ latest\ extant\ horoscope\ is\ about\ 400\ AD.\ Here\ is\ a\ stater\ on\ a\ horoscope\ chart\ in\ TCL.\[gold\]\n\n----\n\n\n\n\ \ \ \ \ \ \ \ #\ pretty\ print\ from\ autoindent\ and\ ased\ editor\n\ \ \ \ \ \ \ \ #\ horoscope\ pie\ plotter\n\ \ \ \ \ \ \ \ #\ loaded\ on\ tcl\ wiki\n\ \ \ \ \ \ \ \ #\ used\ version\ tcl8\n\ \ \ \ \ \ \ \ #\ 22may2006,\ \[gold\]\n\ \ \ \ \ \ \ \ #\ start\ of\ deck\n\ \ \ \ \ \ \ \ #\ canvas_horoscope_pie_chart.tcl\ --\n\ \ \ \ \ \ \ \ #\ tcl\ wiki\ script\ on\ 20060601\n\ \ \ \ \ \ \ \ #\ modified\ to\ demonstration\ script\ in\ Expect\ 5.2\n\ \ \ \ \ \ \ \ #\ TCL8\ distribution,\ for\ Win95\ use\n\ \ \ \ \ \ \ \ #\ canvas_horoscope_pie_chart.tcl\ --\n\ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ #\n\ \ \ \ \ \ \ \ #\ horoscope\ pie\ plotter\n\ \ \ \ \ \ \ \ #\ tcl8\n\ \ \ \ \ \ \ \ set\ color\ 0\n\ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ proc\ star\ \{x\ y\ color\ args\ \}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ global\ dx\ dy\n\ \ \ \ \ \ \ \ \ \ \ \ set\ c5\ \[lpick\ \{black\ brown\ white\ gray\ brown3\ brown4\}\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ c1\ \[lpick\ \{red\ yellow\ blue\ purple\ pink\ green\}\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ c2\ \[lpick\ \{red\ yellow\ blue\ purple\ pink\ green\}\]\n\ \ \ \ \ \ \ \ \ \ \ \ .p\ create\ rectangle\ 60\ 60\ 10\ 10\ \ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ -fill\ \$c1\ -tags\ \[concat\ \$args\ mv\]\n\ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ proc\ makeplanet\ \{x\ y\ color\ args\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ global\ dx\ dy\n\ \ \ \ \ \ \ \ \ \ \ \ set\ color\ \[lpick\ \{black\ brown\ white\ gray\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ brown3\ brown4\ red\ yellow\ blue\ purple\}\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ c1\ \[lpick\ \{red\ yellow\ blue\ purple\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ pink\ green\ brown\ black\ white\ gray\}\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ c2\ \[lpick\ \{red\ yellow\ blue\ purple\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ pink\ green\ brown\ black\ white\ gray\}\]\n\ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \ \ \ \ .p\ create\ oval\ \[expr\ \{\$x+2\}\]\ \[expr\ \{\$y+2\}\]\ \[expr\ \{\$x+\$dx-3\}\]\ \[expr\ \{\$y+\$dy-3\}\]\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ -fill\ \$color\ -tags\ \[concat\ \$args\ mv\]\n\ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ proc\ lpick\ L\ \{lindex\ \$L\ \[expr\ int(rand()*\[llength\ \$L\])\]\}\n\ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ proc\ horoscope\ \{win\ radiusradius\ sectors\ percentages\ color\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ canvas\ \$win\ -width\ \[expr\ \$radiusradius\ *\ 2.2\]\ -height\ \[expr\ \$radiusradius\ *\ 2.2\]\n\ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \ \ \ \ set\ next\ 0\n\ \ \ \ \ \ \ \ \ \ \ \ set\ x0\ \ \ \[expr\ \$radiusradius\ *\ 1.1\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ y0\ \ \ \[expr\ \$radiusradius\ *\ 1.1\]\n\ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \ \ \ \ set\ dim\ \[list\ \[expr\ \$x0\ -\ \$radiusradius\]\ \[expr\ \$y0\ -\ \$radiusradius\]\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[expr\ \$x0\ +\ \$radiusradius\]\ \[expr\ \$y0\ +\ \$radiusradius\]\]\n\ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \ \ \ \ foreach\ segment\ \$sectors\ percentage\ \$percentages\ color\ \$color\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ degrees\ \[expr\ \$percentage\ *\ 3.6\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ eval\ \$win\ create\ arc\ \$dim\ -start\ \$next\ -extent\ \$degrees\ \ \ \ \ \ \ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ -fill\ \$color\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ sectors_mid\ \[expr\ (\$next\ +\ \$degrees\ /\ 2)\ *\ acos\ (0)\ /\ 90\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \$win\ create\ text\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[expr\ \$x0\ +\ \$radiusradius\ *\ cos\ (\$sectors_mid)*6\ /\ 8\]\ \ \ \ \ \ \ \ \ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[expr\ \$y0\ -\ \$radiusradius\ *\ sin\ (\$sectors_mid)*6\ /\ 8\]\ \ \ \ \ \ \ \ \ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ -text\ \$segment\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ next\ \[expr\ \$next\ +\ \$degrees\]\n\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \ \ \ \ return\ \$win\n\ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ #\n\ \ \ \ \ \ \ \ pack\ \[horoscope\ .p\ 220\ \{ARIES\ TAURUS\ CANCER\ GEMINI\ LEO\ VIRGO\ LIBRA\ SCORPIO\ SAGITTARIUS\ CAPRICORN\ \"AQUARIUS\"\ PISCES\ \}\ \{8.3\ 8.3\ 8.3\ 8.3\ 8.3\ 8.3\ 8.3\ 8.3\ 8.3\ 8.3\ 8.3\ 8.9\ \}\ \{white\ yellow\ white\ yellow\ white\ yellow\ white\ yellow\ white\ yellow\ white\ yellow\}\]\n\ \ \ \ \ \ \ \ set\ dx\ 50\n\ \ \ \ \ \ \ \ set\ dy\ 50\n\ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ .p\ bind\ all\ <1>\ \{set\ p(X)\ \[.p\ canvasx\ %x\]\;\ set\ p(Y)\ \[.p\ canvasy\ %y\]\}\n\ \ \ \ \ \ \ \ .p\ bind\ mv\ <B1-Motion>\ \{mv\ %x\ %y\}\n\ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ proc\ mv\ \{x\ y\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ global\ p\n\ \ \ \ \ \ \ \ \ \ \ \ set\ x\ \ \[.p\ canvasx\ \$x\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ y\ \ \[.p\ canvasy\ \$y\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ id\ \[.p\ find\ withtag\ current\]\n\ \ \ \ \ \ \ \ \ \ \ \ .p\ move\ \$id\ \[expr\ \{\$x-\$p(X)\}\]\ \[expr\ \{\$y-\$p(Y)\}\]\n\ \ \ \ \ \ \ \ \ \ \ \ .p\ raise\ \$id\n\ \ \ \ \ \ \ \ \ \ \ \ set\ p(X)\ \$x\;\ set\ p(Y)\ \$y\n\ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ star\ 20\ 20\ 20\ args\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ red\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ brown\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ blue\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ green\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ black\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ blue\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ red\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ brown\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ blue\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ green\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ black\n\ \ \ \ \ \ \ \ \n======\n======\n\n----\n****Screenshot\ Section****\n\n\[http://img144.imageshack.us/img144/2320/piechartchartxxxxed0.jpg\]\n\[http://img144.imageshack.us/img144/2320/piechartchartxxxxed0.th.jpg\]\n\n----\n****Comments\ Section****\nPlease\ put\ useful\ comments\ in\ this\ section,\ thank\ you.\n----\n\[CLN\]\ -\ What,\ pray\ tell,\ is\ \"horoscope\ pie\"?\ \ I've\ heard\ of\ apple\ pie,\ blueberry\ pie,\ and\ even\ funeral\ pie\ but\ horoscope?\ \ (Less\ snidely\ put,\ pages\ full\ of\ code\ with\ no\ exposition\ at\ all\ (even\ in\ the\ comments)\ are\ a\ bit\ less\ than\ useful.)\n----\ \ \n\n\[goldshell7\]\ This\ was\ my\ first\ effort\ for\ the\ TCL\ wiki.\ The\ horoscope_pie_plotter.tcl\ has\ seized\ the\ niche\ of\ under-appreciation.\ All\ is\ certain\ that\ the\ petitioner\ of\ wisdom\ will\ catch\ up\ with\ the\ Ancient\ Egyptians\ and\ Babylonians,\ circa\ 1500\ BCE.\ See\ Senmut's\ tomb\ for\ funeral\ pie\ (or\ horoscope\ pie\ plot).\n----\ \ \n\n****References****\nProgramming\ References\ (\ TCL\ \ )\n----\n\ \ \ *\ \[Simple\ Canvas\ Demo\]\n\ \ \ *\ \[canvas\]\n\ \ \ *\ \[Widgets\ on\ a\ canvas\]\n\ \ \ *\ See\ also\ \[A\ little\ pie\ chart\]\n----\ \ \ \n****Web\ References\ ****\n\n\ \ \ *\ http://en.wikipedia.org/wiki/Pie_chart\n\ \ \ *\ http://www.stariq.com/\n\ \ \ *\ google\ >>\ Astrology\ and\ Horoscope\ Homepage\ -\ Astrodienst\n\ \ \ *\ http://www.astro.com/horoscopes/ahor.asp\n\ \ \ *\ google\ >>\ Babylon\ -\ Wikipedia,\ the\ free\ encyclopedia\n\ \ \ *\ http://en.wikipedia.org/wiki/Babylon\n\ \ \ *\ http://www.geocities.com/astrologyconstellations/nonzodiac.htm\n\ \ \ *\ http://www.nickcampion.com/nc/history/eygptian.html\n\ \ \ *\ http://touregypt.net/featurestories/dendera.htm\n\ \ \ *\ http://en.wikipedia.org/wiki/Dendera\n\ \ \ *\ google\ >>\ urania\ horoscope\ russia\n\ \ \ *\ http://www.urania.ru/english/Chart/index.html\n\ \ \ *\ http://www.urania.ru/english/Chart/fullscreen.html\n\ \ \ *\ For\ total\ eclipse\ on\ 3Mar2007,\n\ \ \ *\ try\ plotting\ London,03:03:2007,GMT\ 2244\ on\ Urania.\ \n\ \ \ *\ http://news.bbc.co.uk/1/hi/sci/tech/6411991.stm\n\ \ \ *\ http://analyzer.depaul.edu/paperplate/Egyptian%20calendar.htm\ \ \n\ \ \ *\ http://www.historylab.org/../calendars/calendars.htm\n\ \ \ *\ google\ >>\ Astronomical\ Ceiling-Decoration\ in\ Tomb\ of\ Senmut\ \n\ \ \ *\ google\ >>\ Senemut\ -\ Wikipedia,\ the\ free\ encyclopedia\n\ \ \ *\ http://en.wikipedia.org/wiki/Senemut\n\ \ \ *\ http://www.geocities.com/astrologyages/images/senmutnorth.jpg\n----\n======\n\ \n\n<<categories>>Toys regexp2} CALL {my render {horoscope pie plotter} Horoscope\ or\ Pie\ plotter\n\nA\ pie\ chart\ is\ a\ way\ to\ show\ the\ relative\ portions\ of\ the\ whole.\ Pie\ plots\ have\ been\ used\ to\ map\ the\ planets\ and\ constellations\ for\ at\ least\ 3500\ years,\ although\ the\ latest\ extant\ horoscope\ is\ about\ 400\ AD.\ Here\ is\ a\ stater\ on\ a\ horoscope\ chart\ in\ TCL.\[gold\]\n\n----\n\n\n\n\ \ \ \ \ \ \ \ #\ pretty\ print\ from\ autoindent\ and\ ased\ editor\n\ \ \ \ \ \ \ \ #\ horoscope\ pie\ plotter\n\ \ \ \ \ \ \ \ #\ loaded\ on\ tcl\ wiki\n\ \ \ \ \ \ \ \ #\ used\ version\ tcl8\n\ \ \ \ \ \ \ \ #\ 22may2006,\ \[gold\]\n\ \ \ \ \ \ \ \ #\ start\ of\ deck\n\ \ \ \ \ \ \ \ #\ canvas_horoscope_pie_chart.tcl\ --\n\ \ \ \ \ \ \ \ #\ tcl\ wiki\ script\ on\ 20060601\n\ \ \ \ \ \ \ \ #\ modified\ to\ demonstration\ script\ in\ Expect\ 5.2\n\ \ \ \ \ \ \ \ #\ TCL8\ distribution,\ for\ Win95\ use\n\ \ \ \ \ \ \ \ #\ canvas_horoscope_pie_chart.tcl\ --\n\ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ #\n\ \ \ \ \ \ \ \ #\ horoscope\ pie\ plotter\n\ \ \ \ \ \ \ \ #\ tcl8\n\ \ \ \ \ \ \ \ set\ color\ 0\n\ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ proc\ star\ \{x\ y\ color\ args\ \}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ global\ dx\ dy\n\ \ \ \ \ \ \ \ \ \ \ \ set\ c5\ \[lpick\ \{black\ brown\ white\ gray\ brown3\ brown4\}\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ c1\ \[lpick\ \{red\ yellow\ blue\ purple\ pink\ green\}\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ c2\ \[lpick\ \{red\ yellow\ blue\ purple\ pink\ green\}\]\n\ \ \ \ \ \ \ \ \ \ \ \ .p\ create\ rectangle\ 60\ 60\ 10\ 10\ \ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ -fill\ \$c1\ -tags\ \[concat\ \$args\ mv\]\n\ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ proc\ makeplanet\ \{x\ y\ color\ args\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ global\ dx\ dy\n\ \ \ \ \ \ \ \ \ \ \ \ set\ color\ \[lpick\ \{black\ brown\ white\ gray\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ brown3\ brown4\ red\ yellow\ blue\ purple\}\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ c1\ \[lpick\ \{red\ yellow\ blue\ purple\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ pink\ green\ brown\ black\ white\ gray\}\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ c2\ \[lpick\ \{red\ yellow\ blue\ purple\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ pink\ green\ brown\ black\ white\ gray\}\]\n\ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \ \ \ \ .p\ create\ oval\ \[expr\ \{\$x+2\}\]\ \[expr\ \{\$y+2\}\]\ \[expr\ \{\$x+\$dx-3\}\]\ \[expr\ \{\$y+\$dy-3\}\]\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ -fill\ \$color\ -tags\ \[concat\ \$args\ mv\]\n\ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ proc\ lpick\ L\ \{lindex\ \$L\ \[expr\ int(rand()*\[llength\ \$L\])\]\}\n\ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ proc\ horoscope\ \{win\ radiusradius\ sectors\ percentages\ color\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ canvas\ \$win\ -width\ \[expr\ \$radiusradius\ *\ 2.2\]\ -height\ \[expr\ \$radiusradius\ *\ 2.2\]\n\ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \ \ \ \ set\ next\ 0\n\ \ \ \ \ \ \ \ \ \ \ \ set\ x0\ \ \ \[expr\ \$radiusradius\ *\ 1.1\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ y0\ \ \ \[expr\ \$radiusradius\ *\ 1.1\]\n\ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \ \ \ \ set\ dim\ \[list\ \[expr\ \$x0\ -\ \$radiusradius\]\ \[expr\ \$y0\ -\ \$radiusradius\]\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[expr\ \$x0\ +\ \$radiusradius\]\ \[expr\ \$y0\ +\ \$radiusradius\]\]\n\ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \ \ \ \ foreach\ segment\ \$sectors\ percentage\ \$percentages\ color\ \$color\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ degrees\ \[expr\ \$percentage\ *\ 3.6\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ eval\ \$win\ create\ arc\ \$dim\ -start\ \$next\ -extent\ \$degrees\ \ \ \ \ \ \ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ -fill\ \$color\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ sectors_mid\ \[expr\ (\$next\ +\ \$degrees\ /\ 2)\ *\ acos\ (0)\ /\ 90\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \$win\ create\ text\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[expr\ \$x0\ +\ \$radiusradius\ *\ cos\ (\$sectors_mid)*6\ /\ 8\]\ \ \ \ \ \ \ \ \ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[expr\ \$y0\ -\ \$radiusradius\ *\ sin\ (\$sectors_mid)*6\ /\ 8\]\ \ \ \ \ \ \ \ \ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ -text\ \$segment\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ next\ \[expr\ \$next\ +\ \$degrees\]\n\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \ \ \ \ return\ \$win\n\ \ \ \ \ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ #\n\ \ \ \ \ \ \ \ pack\ \[horoscope\ .p\ 220\ \{ARIES\ TAURUS\ CANCER\ GEMINI\ LEO\ VIRGO\ LIBRA\ SCORPIO\ SAGITTARIUS\ CAPRICORN\ \"AQUARIUS\"\ PISCES\ \}\ \{8.3\ 8.3\ 8.3\ 8.3\ 8.3\ 8.3\ 8.3\ 8.3\ 8.3\ 8.3\ 8.3\ 8.9\ \}\ \{white\ yellow\ white\ yellow\ white\ yellow\ white\ yellow\ white\ yellow\ white\ yellow\}\]\n\ \ \ \ \ \ \ \ set\ dx\ 50\n\ \ \ \ \ \ \ \ set\ dy\ 50\n\ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ .p\ bind\ all\ <1>\ \{set\ p(X)\ \[.p\ canvasx\ %x\]\;\ set\ p(Y)\ \[.p\ canvasy\ %y\]\}\n\ \ \ \ \ \ \ \ .p\ bind\ mv\ <B1-Motion>\ \{mv\ %x\ %y\}\n\ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ proc\ mv\ \{x\ y\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ global\ p\n\ \ \ \ \ \ \ \ \ \ \ \ set\ x\ \ \[.p\ canvasx\ \$x\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ y\ \ \[.p\ canvasy\ \$y\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ id\ \[.p\ find\ withtag\ current\]\n\ \ \ \ \ \ \ \ \ \ \ \ .p\ move\ \$id\ \[expr\ \{\$x-\$p(X)\}\]\ \[expr\ \{\$y-\$p(Y)\}\]\n\ \ \ \ \ \ \ \ \ \ \ \ .p\ raise\ \$id\n\ \ \ \ \ \ \ \ \ \ \ \ set\ p(X)\ \$x\;\ set\ p(Y)\ \$y\n\ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \n\ \ \ \ \ \ \ \ star\ 20\ 20\ 20\ args\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ red\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ brown\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ blue\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ green\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ black\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ blue\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ red\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ brown\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ blue\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ green\n\ \ \ \ \ \ \ \ makeplanet\ 2\ 2\ black\n\ \ \ \ \ \ \ \ \n======\n======\n\n----\n****Screenshot\ Section****\n\n\[http://img144.imageshack.us/img144/2320/piechartchartxxxxed0.jpg\]\n\[http://img144.imageshack.us/img144/2320/piechartchartxxxxed0.th.jpg\]\n\n----\n****Comments\ Section****\nPlease\ put\ useful\ comments\ in\ this\ section,\ thank\ you.\n----\n\[CLN\]\ -\ What,\ pray\ tell,\ is\ \"horoscope\ pie\"?\ \ I've\ heard\ of\ apple\ pie,\ blueberry\ pie,\ and\ even\ funeral\ pie\ but\ horoscope?\ \ (Less\ snidely\ put,\ pages\ full\ of\ code\ with\ no\ exposition\ at\ all\ (even\ in\ the\ comments)\ are\ a\ bit\ less\ than\ useful.)\n----\ \ \n\n\[goldshell7\]\ This\ was\ my\ first\ effort\ for\ the\ TCL\ wiki.\ The\ horoscope_pie_plotter.tcl\ has\ seized\ the\ niche\ of\ under-appreciation.\ All\ is\ certain\ that\ the\ petitioner\ of\ wisdom\ will\ catch\ up\ with\ the\ Ancient\ Egyptians\ and\ Babylonians,\ circa\ 1500\ BCE.\ See\ Senmut's\ tomb\ for\ funeral\ pie\ (or\ horoscope\ pie\ plot).\n----\ \ \n\n****References****\nProgramming\ References\ (\ TCL\ \ )\n----\n\ \ \ *\ \[Simple\ Canvas\ Demo\]\n\ \ \ *\ \[canvas\]\n\ \ \ *\ \[Widgets\ on\ a\ canvas\]\n\ \ \ *\ See\ also\ \[A\ little\ pie\ chart\]\n----\ \ \ \n****Web\ References\ ****\n\n\ \ \ *\ http://en.wikipedia.org/wiki/Pie_chart\n\ \ \ *\ http://www.stariq.com/\n\ \ \ *\ google\ >>\ Astrology\ and\ Horoscope\ Homepage\ -\ Astrodienst\n\ \ \ *\ http://www.astro.com/horoscopes/ahor.asp\n\ \ \ *\ google\ >>\ Babylon\ -\ Wikipedia,\ the\ free\ encyclopedia\n\ \ \ *\ http://en.wikipedia.org/wiki/Babylon\n\ \ \ *\ http://www.geocities.com/astrologyconstellations/nonzodiac.htm\n\ \ \ *\ http://www.nickcampion.com/nc/history/eygptian.html\n\ \ \ *\ http://touregypt.net/featurestories/dendera.htm\n\ \ \ *\ http://en.wikipedia.org/wiki/Dendera\n\ \ \ *\ google\ >>\ urania\ horoscope\ russia\n\ \ \ *\ http://www.urania.ru/english/Chart/index.html\n\ \ \ *\ http://www.urania.ru/english/Chart/fullscreen.html\n\ \ \ *\ For\ total\ eclipse\ on\ 3Mar2007,\n\ \ \ *\ try\ plotting\ London,03:03:2007,GMT\ 2244\ on\ Urania.\ \n\ \ \ *\ http://news.bbc.co.uk/1/hi/sci/tech/6411991.stm\n\ \ \ *\ http://analyzer.depaul.edu/paperplate/Egyptian%20calendar.htm\ \ \n\ \ \ *\ http://www.historylab.org/../calendars/calendars.htm\n\ \ \ *\ google\ >>\ Astronomical\ Ceiling-Decoration\ in\ Tomb\ of\ Senmut\ \n\ \ \ *\ google\ >>\ Senemut\ -\ Wikipedia,\ the\ free\ encyclopedia\n\ \ \ *\ http://en.wikipedia.org/wiki/Senemut\n\ \ \ *\ http://www.geocities.com/astrologyages/images/senmutnorth.jpg\n----\n======\n\ \n\n<<categories>>Toys} CALL {my revision {horoscope pie plotter}} CALL {::oo::Obj729270 process revision/horoscope+pie+plotter} CALL {::oo::Obj729268 process}

-errorcode

NONE

-errorinfo

Unknow state transition: LINE -> END
    while executing
"error $msg"
    (class "::Wiki" method "render_wikit" line 6)
    invoked from within
"my render_$default_markup $N $C $mkup_rendering_engine"
    (class "::Wiki" method "render" line 8)
    invoked from within
"my render $name $C"
    (class "::Wiki" method "revision" line 31)
    invoked from within
"my revision $page"
    (class "::Wiki" method "process" line 56)
    invoked from within
"$server process [string trim $uri /]"

-errorline

4