Horoscope or Pie plotter

A 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]

----


****Appendix Code****
****appendix TCL programs and scripts ****


*********************


****Pretty Print VERSION   *** 


----
======


    # pretty print from autoindent and ased editor
    # horoscope pie plotter
    # loaded on tcl wiki
    canvas .c    -bg bisque -width 200 -height 200
    pack   .c    -fill both
    proc pie {} {        
        set begin 0
        set beginx { 0 60 120 180 240 300 360 362 }
        set command   [list]
        foreach colorx {black red orange yellow green blue tan} {
            lappend command [.c create arc 25 25 175 175 -fill $colorx \
                    -start $begin -extent 60 -style pieslice]
        }
        set begin [lindex $beginx 1 ]
        .c itemconfigure [lindex $command 1 ]  -start $begin
        set begin [lindex $beginx 2 ]
        .c itemconfigure [lindex $command 2 ]  -start $begin
        set begin [lindex $beginx 3 ]
        .c itemconfigure [lindex $command 3 ]  -start $begin
        set begin [lindex $beginx 4 ]
        .c itemconfigure [lindex $command 4 ]  -start $begin
        set begin [lindex $beginx 5 ]
        .c itemconfigure [lindex $command 5 ]  -start $begin
        set begin [lindex $beginx 6 ]
        .c itemconfigure [lindex $command 6 ]  -start $begin
        set begin [lindex $beginx 7 ]
        .c itemconfigure [lindex $command 7 ]  -start $begin
    }
    pie
         
======

----
****Screenshot Section****
----
****Comments Section****
Please put useful comments in this section, thank you.
----
[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.)
----  

[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).
----  

****References****
Programming References ( TCL  )
----
   * [Simple Canvas Demo]
   * [canvas]
   * [Widgets on a canvas]
   * See also [A little pie chart]
----   
****Web References ****

   * http://en.wikipedia.org/wiki/Pie_chart
   * http://www.stariq.com/
   * google >> Astrology and Horoscope Homepage - Astrodienst
   * http://www.astro.com/horoscopes/ahor.asp
   * google >> Babylon - Wikipedia, the free encyclopedia
   * http://en.wikipedia.org/wiki/Babylon
   * http://www.geocities.com/astrologyconstellations/nonzodiac.htm
   * http://www.nickcampion.com/nc/history/eygptian.html
   * http://touregypt.net/featurestories/dendera.htm
   * http://en.wikipedia.org/wiki/Dendera
   * google >> urania horoscope russia
   * http://www.urania.ru/english/Chart/index.html
   * http://www.urania.ru/english/Chart/fullscreen.html
   * For total eclipse on 3Mar2007,
   * try plotting London,03:03:2007,GMT 2244 on Urania. 
   * http://news.bbc.co.uk/1/hi/sci/tech/6411991.stm
   * http://analyzer.depaul.edu/paperplate/Egyptian%20calendar.htm  
   * http://www.historylab.org/../calendars/calendars.htm
   * google >> Astronomical Ceiling-Decoration in Tomb of Senmut 
   * google >> Senemut - Wikipedia, the free encyclopedia
   * http://en.wikipedia.org/wiki/Senemut
   * http://www.geocities.com/astrologyages/images/senmutnorth.jpg

<<categories>>Toys