Return to Dynamic.tcl CVS log

Up to [Micropolis - Activity] / micropolis / src / notes

Annotation of micropolis/src/notes/Dynamic.tcl, revision 1.1

1.1     ! root        1: option add *Interval.activeForeground  #d0d0d0
        !             2: option add *Interval.sliderForeground  #b0b0b0
        !             3: option add *Interval.activeForeground  #d0d0d0
        !             4: option add *Interval.sliderForeground  #b0b0b0
        !             5: 
        !             6: ########################################################################
        !             7: # Dynamic Map Handlers
        !             8: 
        !             9: proc ShowDynamicPanel {win} {
        !            10:   if {! [winfo ismapped $win.bottomframe]} {
        !            11:     pack append $win $win.bottomframe  {bottom frame center fill expand}
        !            12:     set x [winfo rootx $win]
        !            13:     set y [winfo rooty $win]
        !            14:     set width [winfo width $win]
        !            15:     set height 670
        !            16:     wm geometry $win ${width}x${height}
        !            17:   }
        !            18: }
        !            19: 
        !            20: 
        !            21: proc HideDynamicPanel {win} {
        !            22:   if {[winfo ismapped $win.bottomframe]} {
        !            23:     pack unpack $win.bottomframe
        !            24:     set x [winfo rootx $win]
        !            25:     set y [winfo rooty $win]
        !            26:     set width [winfo width $win]
        !            27:     set height 332
        !            28:     wm geometry $win ${width}x${height}
        !            29:   }
        !            30: }
        !            31: 
        !            32: 
        !            33: proc InitDynamic {} {
        !            34:   global MapWindows
        !            35:   sim ResetDynamic
        !            36: 
        !            37:   for {set i 0} {$i < 8} {incr i} {
        !            38:     foreach win $MapWindows {
        !            39:       [WindowLink $win.interval]$i reset
        !            40:     }
        !            41:   }
        !            42: 
        !            43: }
        !            44: 
        !            45: 
        !            46: proc SetDynamicData {win index min max} {
        !            47:   set MinIndex [expr "$index * 2"]
        !            48:   set MaxIndex [expr "$MinIndex + 1"]
        !            49: 
        !            50:   sim DynamicData $MinIndex $min
        !            51:   sim DynamicData $MaxIndex $max
        !            52: 
        !            53:   set int [WindowLink $win.interval]$index
        !            54:   set from [lindex [$int config -from] 4]
        !            55:   set to [lindex [$int config -to] 4]
        !            56:   set min [lindex [$int config -min] 4]
        !            57:   set max [lindex [$int config -max] 4]
        !            58:   set range [expr "${to}-${from}"]
        !            59:   set offset 80
        !            60:   set scale 100
        !            61:   set low [expr "(($min-$from)*$scale/$range) + $offset"]
        !            62:   set high [expr "(($max-$from)*$scale/$range) + $offset"]
        !            63:   set sound 29
        !            64:   set title Slider$index
        !            65:   set vol 70
        !            66:   set chan fancy
        !            67: 
        !            68:   UIDoSound "\"sound replay $title -channel $chan -volume $vol ; sound replay $sound -channel $chan -volume $vol -speed $low ; sound play $sound -channel $chan -volume $vol -speed $high\""
        !            69: 
        !            70:   global MapWindows
        !            71:   foreach win $MapWindows {
        !            72:     [WindowLink $win.interval]$index set $min $max
        !            73:   }
        !            74: }
        !            75: 
        !            76: 
        !            77: 
        !            78: 
        !            79: 
        !            80: global MapTitles
        !            81: set MapTitles {
        !            82:   {Micropolis Map}
        !            83:   {Residential Zone Map}
        !            84:   {Commercial Zone Map}
        !            85:   {Industrial Zone Map}
        !            86:   {Power Grid Map}
        !            87:   {Transportation Map}
        !            88:   {Population Density Map}
        !            89:   {Rate of Growth Map}
        !            90:   {Traffic Map}
        !            91:   {Pollution Map}
        !            92:   {Crime Map}
        !            93:   {Land Value Map}
        !            94:   {Fire Station Map}
        !            95:   {Police Station Map}
        !            96:   {Dynamic Query Map}
        !            97: }
        !            98: 
        !            99: 
        !           100: 
        !           101: 
        !           102: proc UISetMapState {w state} {
        !           103:   global MapTitles
        !           104:   set win [winfo toplevel $w]
        !           105:   set m [WindowLink $win.view]
        !           106:   set title [lindex $MapTitles $state]
        !           107:   wm title $win "$title"
        !           108:   wm iconname $win "$title"
        !           109:   global [set var MapState.$win]
        !           110:   set $var $state
        !           111: 
        !           112:   case $state { \
        !           113:     {6 8 9 10 11 12 13} {
        !           114:       [WindowLink $win.legend] config -bitmap "@Images/LegendMaxMin.xpm"
        !           115:       HideDynamicPanel $win
        !           116:     } \
        !           117:     {7} {
        !           118:       [WindowLink $win.legend] config -bitmap "@Images/LegendPlusMinus.xpm"
        !           119:       HideDynamicPanel $win
        !           120:     } \
        !           121:     {0 1 2 3 4 5 14} {
        !           122:       [WindowLink $win.legend] config -bitmap "@Images/LegendNone.xpm"
        !           123:       if {$state == 14} {
        !           124:        ShowDynamicPanel $win
        !           125:       } else {
        !           126:         HideDynamicPanel $win
        !           127:       }
        !           128:     }
        !           129:   }
        !           130: }
        !           131: 
        !           132: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.