home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / TCL / BLT / _BLT.TAR / usr / lib / blt / demos / barchart next >
Encoding:
Text File  |  1994-04-09  |  4.3 KB  |  143 lines
  1. #!../blt_wish -f
  2.  
  3. if [file exists ../library] {
  4.     set blt_library ../library
  5. }
  6. set graph .graph
  7.  
  8. blt_bitmap define pattern1 { {4 4} {01 02 04 08} }
  9. blt_bitmap define pattern2 { {4 4} {08 04 02 01} }
  10. blt_bitmap define pattern3 { {2 2} {01 02 } }
  11. blt_bitmap define pattern4 { {4 4} {0f 00 00 00} }
  12. blt_bitmap define pattern5 { {4 4} {01 01 01 01} }
  13. blt_bitmap define pattern6 { {2 2} {01 00 } }
  14. blt_bitmap define pattern7 { {4 4} {0f 01 01 01} }
  15. blt_bitmap define pattern8 { {8 8} {ff 00 ff 00 ff 00 ff 00 } }
  16. blt_bitmap define pattern9 { {4 4} {03 03 0c 0c} }
  17. blt_bitmap define hobbes { {25 25} {
  18.    00 00 00 00 00 00 00 00 00 c0 03 00 78 e0 07 00 fc f8 07 00 cc 07 04 00
  19.    0c f0 0b 00 7c 1c 06 00 38 00 00 00 e0 03 10 00 e0 41 11 00 20 40 11 00
  20.    e0 07 10 00 e0 c1 17 00 10 e0 2f 00 20 e0 6f 00 18 e0 2f 00 20 c6 67 00
  21.    18 84 2b 00 20 08 64 00 70 f0 13 00 80 01 08 00 00 fe 07 00 00 00 00 00
  22.    00 00 00 00 }
  23. }
  24.  
  25. option add *Blt_htext.Font *Times-Bold-R*14*
  26. option add *graph.xTitle "X Axis Label"
  27. option add *graph.yTitle "Y Axis Label"
  28. option add *graph.title "A Simple Barchart"
  29. option add *graph.xFont *Times-Medium-R*12*
  30. option add *graph.elemBackground white
  31. option add *graph.elemRelief raised
  32.  
  33. set visual [winfo screenvisual .] 
  34. if { $visual != "staticgray" && $visual != "grayscale" } {
  35.     option add *print.background yellow
  36.     option add *quit.background red
  37. }
  38.  
  39. blt_htext .header -text \
  40. {This is an example of the blt_barchart widget.  The barchart has 
  41. many components; x and y axis, legend, crosshairs, elements, etc.  
  42. You can configure any component by pressing this %% 
  43. button $blt_htext(widget).config -text button \
  44.     -command "exec [list ../blt_wish -f ./grconf.tcl [winfo name .] $graph &]"\
  45.     -bg green
  46. $blt_htext(widget) append $blt_htext(widget).config
  47. %%.
  48.  
  49. To create a postscript file "bar.ps", press the %%
  50. button $blt_htext(widget).print -text {Print} -command {
  51.   $graph postscript bar.ps -pagewidth 6.5i -pageheight 9i -landscape true
  52. } 
  53. $blt_htext(widget) append $blt_htext(widget).print
  54. %% button.}
  55.  
  56. blt_barchart $graph  
  57. $graph xaxis configure -rotate 90 -command FormatLabel
  58.  
  59. blt_htext .footer -text {Hit the %%
  60. button $blt_htext(widget).quit -text quit -command {destroy .} 
  61. $blt_htext(widget) append $blt_htext(widget).quit 
  62. %% button when you've seen enough.%%
  63. label $blt_htext(widget).logo -bitmap BLT
  64. $blt_htext(widget) append $blt_htext(widget).logo -padx 20
  65. %%}
  66.  
  67. set names { One Two Three Four Five Six Seven Eight }
  68. if { $visual == "staticgray" || $visual == "grayscale" } {
  69.     set fgcolors { white white white white white white white white }
  70.     set bgcolors { black black black black black black black black }
  71. } else {
  72.     set fgcolors { red green blue purple orange brown cyan navy }
  73.     set bgcolors { green blue purple orange brown cyan navy red }
  74. }
  75. set numColors [llength $names]
  76.  
  77. for { set i 0} { $i < $numColors } { incr i } {
  78.     $graph element create [lindex $names $i] \
  79.     -data { $i+1 $i+1 } \
  80.     -fg [lindex $fgcolors $i] \
  81.     -bg [lindex $bgcolors $i] \
  82.     -stipple pattern[expr $i+1]  \
  83.     -relief raised \
  84.     -bd 2 
  85. }
  86.  
  87. $graph element create Nine \
  88.     -data { 9 -0.5 } \
  89.     -fg red  \
  90.     -relief sunken 
  91. $graph element create Ten \
  92.     -data { 10 2 } \
  93.     -fg seagreen \
  94.     -stipple hobbes \
  95.     -background palegreen 
  96. $graph element create Eleven \
  97.     -data { 11 3.3 } \
  98.     -fg blue  
  99.  
  100. pack append . \
  101.     .header { padx 20 pady 10 }  \
  102.     .graph {} \
  103.     .footer { padx 20 pady 10 }
  104.     
  105. wm min . 0 0
  106. bind $graph <B1-ButtonRelease> { %W crosshairs toggle }
  107. bind $graph <ButtonPress-3> {
  108.     set info [%W element closest %x %y]
  109.     if { $info == "" } {
  110.         blt_bell
  111.     } else {
  112.         puts stdout "$info"
  113.     }
  114. }
  115.     
  116. proc TurnOnHairs { graph } {
  117.     bind $graph <Any-Motion> {%W crosshairs configure -position @%x,%y}
  118. }
  119. proc TurnOffHairs { graph } {
  120.     bind $graph <Any-Motion> {%W crosshairs configure -position @%x,%y}
  121. }
  122.  
  123. bind $graph <Enter> { TurnOnHairs %W }
  124. bind $graph <Leave> { TurnOffHairs %W }
  125.  
  126. proc FormatLabel { w value } {
  127.     # Determine the element name from the value
  128.     set displaylist [$w element show]
  129.     set index [expr round($value)-1]
  130.     set name [lindex $displaylist $index]
  131.     if { $name == "" } { 
  132.     return $name
  133.     }
  134.     # Return the element label
  135.     set info [$w element configure $name -label]
  136.     return [lindex $info 4]
  137. }
  138.  
  139. source features.tcl
  140. SetActiveLegend $graph
  141. SetClosestPoint $graph
  142. SetZoom $graph
  143.