Tk Library Source Code
Hex Artifact Content
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.

Artifact 6541c93ab172fd9d72b4c6b1b5fc0587fd28f9e0:


0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20 74  #!/usr/bin/env t
0010: 63 6c 73 68 0a 23 23 20 2d 2a 2d 20 74 63 6c 20  clsh.## -*- tcl 
0020: 2d 2a 2d 0a 0a 23 20 70 6c 6f 74 64 65 6d 6f 73  -*-..# plotdemos
0030: 37 2e 74 63 6c 20 2d 2d 0a 23 20 20 20 20 20 54  7.tcl --.#     T
0040: 68 69 73 20 74 65 73 74 2f 64 65 6d 6f 20 73 63  his test/demo sc
0050: 72 69 70 74 20 66 6f 63 75 73 65 73 20 6f 6e 20  ript focuses on 
0060: 63 75 73 74 6f 6d 69 73 69 6e 67 20 74 68 65 20  customising the 
0070: 70 6c 6f 74 73 0a 23 0a 70 61 63 6b 61 67 65 20  plots.#.package 
0080: 72 65 71 75 69 72 65 20 54 63 6c 20 38 2e 35 0a  require Tcl 8.5.
0090: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20  package require 
00a0: 54 6b 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69  Tk.package requi
00b0: 72 65 20 50 6c 6f 74 63 68 61 72 74 0a 0a 23 20  re Plotchart..# 
00c0: 70 6c 6f 74 64 65 6d 6f 73 37 2e 74 63 6c 20 2d  plotdemos7.tcl -
00d0: 2d 0a 23 20 20 20 20 54 65 73 74 2f 64 65 6d 6f  -.#    Test/demo
00e0: 20 70 72 6f 67 72 61 6d 20 37 20 66 6f 72 20 74   program 7 for t
00f0: 68 65 20 50 6c 6f 74 63 68 61 72 74 20 70 61 63  he Plotchart pac
0100: 6b 61 67 65 0a 23 0a 0a 23 0a 23 20 4d 61 69 6e  kage.#..#.# Main
0110: 20 63 6f 64 65 0a 23 0a 63 61 6e 76 61 73 20 2e   code.#.canvas .
0120: 63 20 20 2d 62 61 63 6b 67 72 6f 75 6e 64 20 77  c  -background w
0130: 68 69 74 65 20 2d 77 69 64 74 68 20 34 30 30 20  hite -width 400 
0140: 2d 68 65 69 67 68 74 20 32 30 30 0a 63 61 6e 76  -height 200.canv
0150: 61 73 20 2e 63 32 20 2d 62 61 63 6b 67 72 6f 75  as .c2 -backgrou
0160: 6e 64 20 77 68 69 74 65 20 2d 77 69 64 74 68 20  nd white -width 
0170: 34 30 30 20 2d 68 65 69 67 68 74 20 32 30 30 0a  400 -height 200.
0180: 63 61 6e 76 61 73 20 2e 63 33 20 2d 62 61 63 6b  canvas .c3 -back
0190: 67 72 6f 75 6e 64 20 77 68 69 74 65 20 2d 77 69  ground white -wi
01a0: 64 74 68 20 34 30 30 20 2d 68 65 69 67 68 74 20  dth 400 -height 
01b0: 32 30 30 0a 70 61 63 6b 20 20 20 2e 63 20 2e 63  200.pack   .c .c
01c0: 32 20 2e 63 33 20 2d 66 69 6c 6c 20 62 6f 74 68  2 .c3 -fill both
01d0: 20 2d 73 69 64 65 20 74 6f 70 0a 0a 74 6f 70 6c   -side top..topl
01e0: 65 76 65 6c 20 2e 68 0a 63 61 6e 76 61 73 20 2e  evel .h.canvas .
01f0: 68 2e 63 20 20 2d 62 61 63 6b 67 72 6f 75 6e 64  h.c  -background
0200: 20 77 68 69 74 65 20 2d 77 69 64 74 68 20 34 30   white -width 40
0210: 30 20 2d 68 65 69 67 68 74 20 32 30 30 0a 63 61  0 -height 200.ca
0220: 6e 76 61 73 20 2e 68 2e 63 32 20 2d 62 61 63 6b  nvas .h.c2 -back
0230: 67 72 6f 75 6e 64 20 77 68 69 74 65 20 2d 77 69  ground white -wi
0240: 64 74 68 20 34 30 30 20 2d 68 65 69 67 68 74 20  dth 400 -height 
0250: 32 30 30 0a 70 61 63 6b 20 20 20 2e 68 2e 63 20  200.pack   .h.c 
0260: 2e 68 2e 63 32 20 2d 66 69 6c 6c 20 62 6f 74 68  .h.c2 -fill both
0270: 20 2d 73 69 64 65 20 74 6f 70 0a 0a 74 6f 70 6c   -side top..topl
0280: 65 76 65 6c 20 2e 76 0a 63 61 6e 76 61 73 20 2e  evel .v.canvas .
0290: 76 2e 63 20 20 2d 62 61 63 6b 67 72 6f 75 6e 64  v.c  -background
02a0: 20 77 68 69 74 65 20 2d 77 69 64 74 68 20 34 30   white -width 40
02b0: 30 20 2d 68 65 69 67 68 74 20 32 30 30 0a 63 61  0 -height 200.ca
02c0: 6e 76 61 73 20 2e 76 2e 63 32 20 2d 62 61 63 6b  nvas .v.c2 -back
02d0: 67 72 6f 75 6e 64 20 77 68 69 74 65 20 2d 77 69  ground white -wi
02e0: 64 74 68 20 34 30 30 20 2d 68 65 69 67 68 74 20  dth 400 -height 
02f0: 32 30 30 0a 63 61 6e 76 61 73 20 2e 76 2e 63 33  200.canvas .v.c3
0300: 20 2d 62 61 63 6b 67 72 6f 75 6e 64 20 77 68 69   -background whi
0310: 74 65 20 2d 77 69 64 74 68 20 34 30 30 20 2d 68  te -width 400 -h
0320: 65 69 67 68 74 20 32 30 30 0a 70 61 63 6b 20 20  eight 200.pack  
0330: 20 2e 76 2e 63 20 2e 76 2e 63 32 20 2e 76 2e 63   .v.c .v.c2 .v.c
0340: 33 20 2d 66 69 6c 6c 20 62 6f 74 68 20 2d 73 69  3 -fill both -si
0350: 64 65 20 74 6f 70 0a 0a 3a 3a 50 6c 6f 74 63 68  de top..::Plotch
0360: 61 72 74 3a 3a 70 6c 6f 74 63 6f 6e 66 69 67 20  art::plotconfig 
0370: 78 79 70 6c 6f 74 20 74 69 74 6c 65 20 66 6f 6e  xyplot title fon
0380: 74 20 22 54 69 6d 65 73 20 31 34 22 0a 3a 3a 50  t "Times 14".::P
0390: 6c 6f 74 63 68 61 72 74 3a 3a 70 6c 6f 74 63 6f  lotchart::plotco
03a0: 6e 66 69 67 20 78 79 70 6c 6f 74 20 74 69 74 6c  nfig xyplot titl
03b0: 65 20 74 65 78 74 63 6f 6c 6f 72 20 22 72 65 64  e textcolor "red
03c0: 22 0a 3a 3a 50 6c 6f 74 63 68 61 72 74 3a 3a 70  ".::Plotchart::p
03d0: 6c 6f 74 63 6f 6e 66 69 67 20 78 79 70 6c 6f 74  lotconfig xyplot
03e0: 20 6c 65 66 74 61 78 69 73 20 66 6f 6e 74 20 22   leftaxis font "
03f0: 48 65 6c 76 65 74 69 63 61 20 31 30 20 69 74 61  Helvetica 10 ita
0400: 6c 69 63 22 0a 3a 3a 50 6c 6f 74 63 68 61 72 74  lic".::Plotchart
0410: 3a 3a 70 6c 6f 74 63 6f 6e 66 69 67 20 78 79 70  ::plotconfig xyp
0420: 6c 6f 74 20 6c 65 66 74 61 78 69 73 20 74 68 69  lot leftaxis thi
0430: 63 6b 6e 65 73 73 20 32 0a 3a 3a 50 6c 6f 74 63  ckness 2.::Plotc
0440: 68 61 72 74 3a 3a 70 6c 6f 74 63 6f 6e 66 69 67  hart::plotconfig
0450: 20 78 79 70 6c 6f 74 20 6c 65 66 74 61 78 69 73   xyplot leftaxis
0460: 20 74 69 63 6b 6c 65 6e 67 74 68 20 2d 35 0a 3a   ticklength -5.:
0470: 3a 50 6c 6f 74 63 68 61 72 74 3a 3a 70 6c 6f 74  :Plotchart::plot
0480: 63 6f 6e 66 69 67 20 78 79 70 6c 6f 74 20 72 69  config xyplot ri
0490: 67 68 74 61 78 69 73 20 66 6f 6e 74 20 22 54 69  ghtaxis font "Ti
04a0: 6d 65 73 20 31 30 20 62 6f 6c 64 22 0a 3a 3a 50  mes 10 bold".::P
04b0: 6c 6f 74 63 68 61 72 74 3a 3a 70 6c 6f 74 63 6f  lotchart::plotco
04c0: 6e 66 69 67 20 78 79 70 6c 6f 74 20 72 69 67 68  nfig xyplot righ
04d0: 74 61 78 69 73 20 63 6f 6c 6f 72 20 67 72 65 65  taxis color gree
04e0: 6e 0a 3a 3a 50 6c 6f 74 63 68 61 72 74 3a 3a 70  n.::Plotchart::p
04f0: 6c 6f 74 63 6f 6e 66 69 67 20 78 79 70 6c 6f 74  lotconfig xyplot
0500: 20 72 69 67 68 74 61 78 69 73 20 74 68 69 63 6b   rightaxis thick
0510: 6e 65 73 73 20 32 0a 3a 3a 50 6c 6f 74 63 68 61  ness 2.::Plotcha
0520: 72 74 3a 3a 70 6c 6f 74 63 6f 6e 66 69 67 20 78  rt::plotconfig x
0530: 79 70 6c 6f 74 20 6d 61 72 67 69 6e 20 72 69 67  yplot margin rig
0540: 68 74 20 31 30 30 0a 0a 73 65 74 20 73 20 5b 3a  ht 100..set s [:
0550: 3a 50 6c 6f 74 63 68 61 72 74 3a 3a 63 72 65 61  :Plotchart::crea
0560: 74 65 58 59 50 6c 6f 74 20 2e 63 20 7b 30 2e 30  teXYPlot .c {0.0
0570: 20 31 30 30 2e 30 20 31 30 2e 30 7d 20 7b 30 2e   100.0 10.0} {0.
0580: 30 20 31 30 30 2e 30 20 32 30 2e 30 7d 5d 0a 73  0 100.0 20.0}].s
0590: 65 74 20 72 20 5b 3a 3a 50 6c 6f 74 63 68 61 72  et r [::Plotchar
05a0: 74 3a 3a 63 72 65 61 74 65 52 69 67 68 74 41 78  t::createRightAx
05b0: 69 73 20 2e 63 20 7b 30 2e 30 20 30 2e 31 20 30  is .c {0.0 0.1 0
05c0: 2e 30 31 7d 5d 0a 0a 73 65 74 20 78 64 20 20 20  .01}]..set xd   
05d0: 20 35 2e 30 0a 73 65 74 20 79 64 20 20 20 32 30   5.0.set yd   20
05e0: 2e 30 0a 73 65 74 20 78 6f 6c 64 20 20 30 2e 30  .0.set xold  0.0
05f0: 0a 73 65 74 20 79 6f 6c 64 20 35 30 2e 30 0a 0a  .set yold 50.0..
0600: 24 73 20 64 61 74 61 63 6f 6e 66 69 67 20 73 65  $s dataconfig se
0610: 72 69 65 73 31 20 2d 63 6f 6c 6f 75 72 20 22 72  ries1 -colour "r
0620: 65 64 22 0a 24 73 20 64 61 74 61 63 6f 6e 66 69  ed".$s dataconfi
0630: 67 20 73 65 72 69 65 73 32 20 2d 63 6f 6c 6f 75  g series2 -colou
0640: 72 20 22 62 6c 75 65 22 0a 24 73 20 64 61 74 61  r "blue".$s data
0650: 63 6f 6e 66 69 67 20 73 65 72 69 65 73 33 20 2d  config series3 -
0660: 63 6f 6c 6f 75 72 20 22 6d 61 67 65 6e 74 61 22  colour "magenta"
0670: 0a 0a 66 6f 72 20 7b 20 73 65 74 20 69 20 30 20  ..for { set i 0 
0680: 7d 20 7b 20 24 69 20 3c 20 32 30 20 7d 20 7b 20  } { $i < 20 } { 
0690: 69 6e 63 72 20 69 20 7d 20 7b 0a 20 20 20 73 65  incr i } {.   se
06a0: 74 20 78 6e 65 77 20 5b 65 78 70 72 20 7b 24 78  t xnew [expr {$x
06b0: 6f 6c 64 2b 24 78 64 7d 5d 0a 20 20 20 73 65 74  old+$xd}].   set
06c0: 20 79 6e 65 77 20 5b 65 78 70 72 20 7b 24 79 6f   ynew [expr {$yo
06d0: 6c 64 2b 28 72 61 6e 64 28 29 2d 30 2e 35 29 2a  ld+(rand()-0.5)*
06e0: 24 79 64 7d 5d 0a 20 20 20 73 65 74 20 79 6e 65  $yd}].   set yne
06f0: 77 32 20 5b 65 78 70 72 20 7b 24 79 6f 6c 64 2b  w2 [expr {$yold+
0700: 28 72 61 6e 64 28 29 2d 30 2e 35 29 2a 32 2e 30  (rand()-0.5)*2.0
0710: 2a 24 79 64 7d 5d 0a 20 20 20 24 73 20 70 6c 6f  *$yd}].   $s plo
0720: 74 20 73 65 72 69 65 73 31 20 24 78 6e 65 77 20  t series1 $xnew 
0730: 24 79 6e 65 77 0a 20 20 20 24 73 20 70 6c 6f 74  $ynew.   $s plot
0740: 20 73 65 72 69 65 73 32 20 24 78 6e 65 77 20 24   series2 $xnew $
0750: 79 6e 65 77 32 0a 20 20 20 24 73 20 74 72 65 6e  ynew2.   $s tren
0760: 64 20 73 65 72 69 65 73 33 20 24 78 6e 65 77 20  d series3 $xnew 
0770: 24 79 6e 65 77 32 0a 20 20 20 73 65 74 20 78 6f  $ynew2.   set xo
0780: 6c 64 20 24 78 6e 65 77 0a 20 20 20 73 65 74 20  ld $xnew.   set 
0790: 79 6f 6c 64 20 24 79 6e 65 77 0a 7d 0a 0a 24 73  yold $ynew.}..$s
07a0: 20 69 6e 74 65 72 76 61 6c 20 73 65 72 69 65 73   interval series
07b0: 32 20 35 30 2e 30 20 34 30 2e 30 20 36 30 2e 30  2 50.0 40.0 60.0
07c0: 20 35 32 2e 30 0a 24 73 20 69 6e 74 65 72 76 61   52.0.$s interva
07d0: 6c 20 73 65 72 69 65 73 32 20 36 30 2e 30 20 34  l series2 60.0 4
07e0: 30 2e 30 20 36 30 2e 30 0a 0a 24 73 20 78 74 65  0.0 60.0..$s xte
07f0: 78 74 20 22 58 2d 63 6f 6f 72 64 69 6e 61 74 65  xt "X-coordinate
0800: 22 0a 24 73 20 79 74 65 78 74 20 22 59 2d 64 61  ".$s ytext "Y-da
0810: 74 61 22 0a 24 72 20 79 74 65 78 74 20 22 52 69  ta".$r ytext "Ri
0820: 67 68 74 20 61 78 69 73 22 0a 24 73 20 74 69 74  ght axis".$s tit
0830: 6c 65 20 22 41 68 61 21 22 0a 0a 23 0a 23 20 53  le "Aha!"..#.# S
0840: 6f 6d 65 20 64 61 74 61 20 66 6f 72 20 74 68 65  ome data for the
0850: 20 72 69 67 68 74 20 61 78 69 73 0a 23 0a 24 72   right axis.#.$r
0860: 20 64 61 74 61 63 6f 6e 66 69 67 20 72 69 67 68   dataconfig righ
0870: 74 20 2d 74 79 70 65 20 62 6f 74 68 20 2d 73 79  t -type both -sy
0880: 6d 62 6f 6c 20 63 69 72 63 6c 65 20 2d 63 6f 6c  mbol circle -col
0890: 6f 75 72 20 67 72 65 65 6e 0a 24 72 20 70 6c 6f  our green.$r plo
08a0: 74 20 72 69 67 68 74 20 31 30 2e 30 20 30 2e 30  t right 10.0 0.0
08b0: 31 0a 24 72 20 70 6c 6f 74 20 72 69 67 68 74 20  1.$r plot right 
08c0: 33 30 2e 30 20 30 2e 30 33 0a 24 72 20 70 6c 6f  30.0 0.03.$r plo
08d0: 74 20 72 69 67 68 74 20 34 30 2e 30 20 30 2e 30  t right 40.0 0.0
08e0: 32 0a 0a 74 6b 77 61 69 74 20 76 69 73 69 62 69  2..tkwait visibi
08f0: 6c 69 74 79 20 2e 63 0a 23 24 73 20 73 61 76 65  lity .c.#$s save
0900: 70 6c 6f 74 20 22 61 68 61 2e 70 73 22 0a 0a 0a  plot "aha.ps"...
0910: 73 65 74 20 73 20 5b 3a 3a 50 6c 6f 74 63 68 61  set s [::Plotcha
0920: 72 74 3a 3a 63 72 65 61 74 65 50 69 65 63 68 61  rt::createPiecha
0930: 72 74 20 2e 63 32 5d 0a 0a 24 73 20 70 6c 6f 74  rt .c2]..$s plot
0940: 20 7b 22 4c 6f 6e 67 20 6e 61 6d 65 73 22 20 31   {"Long names" 1
0950: 30 20 22 53 68 6f 72 74 20 6e 61 6d 65 73 22 20  0 "Short names" 
0960: 33 30 20 22 41 76 65 72 61 67 65 22 20 34 30 0a  30 "Average" 40.
0970: 20 20 20 20 20 20 20 20 20 22 55 6c 74 72 61 2d           "Ultra-
0980: 73 68 6f 72 74 20 6e 61 6d 65 73 22 20 35 7d 0a  short names" 5}.
0990: 23 0a 23 20 4e 6f 74 65 3a 20 74 69 74 6c 65 20  #.# Note: title 
09a0: 73 68 6f 75 6c 64 20 62 65 20 73 68 69 66 74 65  should be shifte
09b0: 64 20 75 70 0a 23 20 20 20 20 20 20 20 2d 20 64  d up.#       - d
09c0: 69 73 74 69 6e 67 75 69 73 68 20 61 20 73 65 70  istinguish a sep
09d0: 61 72 61 74 65 20 74 69 74 6c 65 20 61 72 65 61  arate title area
09e0: 0a 23 0a 24 73 20 74 69 74 6c 65 20 22 4f 6b 61  .#.$s title "Oka
09f0: 79 20 2d 20 74 68 69 73 20 77 6f 72 6b 73 22 0a  y - this works".
0a00: 0a 0a 0a 73 65 74 20 73 20 5b 3a 3a 50 6c 6f 74  ...set s [::Plot
0a10: 63 68 61 72 74 3a 3a 63 72 65 61 74 65 50 6f 6c  chart::createPol
0a20: 61 72 70 6c 6f 74 20 2e 63 33 20 7b 33 2e 30 20  arplot .c3 {3.0 
0a30: 31 2e 30 7d 5d 0a 0a 66 6f 72 20 7b 20 73 65 74  1.0}]..for { set
0a40: 20 61 6e 67 6c 65 20 30 20 7d 20 7b 20 24 61 6e   angle 0 } { $an
0a50: 67 6c 65 20 3c 20 33 36 30 2e 30 20 7d 20 7b 20  gle < 360.0 } { 
0a60: 73 65 74 20 61 6e 67 6c 65 20 5b 65 78 70 72 20  set angle [expr 
0a70: 7b 24 61 6e 67 6c 65 2b 31 30 2e 30 7d 5d 20 7d  {$angle+10.0}] }
0a80: 20 7b 0a 20 20 20 73 65 74 20 72 61 64 20 5b 65   {.   set rad [e
0a90: 78 70 72 20 7b 31 2e 30 2b 63 6f 73 28 24 61 6e  xpr {1.0+cos($an
0aa0: 67 6c 65 2a 24 3a 3a 50 6c 6f 74 63 68 61 72 74  gle*$::Plotchart
0ab0: 3a 3a 74 6f 72 61 64 29 7d 5d 0a 20 20 20 24 73  ::torad)}].   $s
0ac0: 20 70 6c 6f 74 20 22 63 61 72 64 69 6f 69 64 22   plot "cardioid"
0ad0: 20 24 72 61 64 20 24 61 6e 67 6c 65 0a 7d 0a 0a   $rad $angle.}..
0ae0: 24 73 20 74 69 74 6c 65 20 22 43 61 72 64 69 6f  $s title "Cardio
0af0: 69 64 22 0a 0a 0a 73 65 74 20 73 20 5b 3a 3a 50  id"...set s [::P
0b00: 6c 6f 74 63 68 61 72 74 3a 3a 63 72 65 61 74 65  lotchart::create
0b10: 42 61 72 63 68 61 72 74 20 2e 68 2e 63 20 7b 41  Barchart .h.c {A
0b20: 20 42 20 43 20 44 20 45 7d 20 7b 30 2e 30 20 31   B C D E} {0.0 1
0b30: 30 2e 30 20 32 2e 30 7d 20 32 2e 35 5d 0a 0a 24  0.0 2.0} 2.5]..$
0b40: 73 20 70 6c 6f 74 20 73 65 72 69 65 73 31 20 7b  s plot series1 {
0b50: 31 2e 30 20 34 2e 30 20 36 2e 30 20 31 2e 30 20  1.0 4.0 6.0 1.0 
0b60: 37 2e 30 7d 20 72 65 64 0a 24 73 20 70 6c 6f 74  7.0} red.$s plot
0b70: 20 73 65 72 69 65 73 32 20 7b 30 2e 30 20 33 2e   series2 {0.0 3.
0b80: 30 20 37 2e 30 20 39 2e 33 20 32 2e 30 7d 20 67  0 7.0 9.3 2.0} g
0b90: 72 65 65 6e 0a 24 73 20 74 69 74 6c 65 20 22 41  reen.$s title "A
0ba0: 72 62 69 74 72 61 72 79 20 64 61 74 61 22 0a 0a  rbitrary data"..
0bb0: 23 0a 23 20 4c 65 67 65 6e 64 20 5f 61 66 74 65  #.# Legend _afte
0bc0: 72 5f 20 74 68 65 20 64 61 74 61 20 2d 20 74 68  r_ the data - th
0bd0: 65 6e 20 74 68 65 20 63 6f 6c 6f 72 73 20 61 72  en the colors ar
0be0: 65 20 6b 6e 6f 77 6e 21 0a 23 0a 24 73 20 6c 65  e known!.#.$s le
0bf0: 67 65 6e 64 20 73 65 72 69 65 73 31 20 22 53 65  gend series1 "Se
0c00: 72 69 65 73 20 31 22 0a 24 73 20 6c 65 67 65 6e  ries 1".$s legen
0c10: 64 20 73 65 72 69 65 73 32 20 22 53 65 72 69 65  d series2 "Serie
0c20: 73 20 32 22 0a 0a 0a 73 65 74 20 73 20 5b 3a 3a  s 2"...set s [::
0c30: 50 6c 6f 74 63 68 61 72 74 3a 3a 63 72 65 61 74  Plotchart::creat
0c40: 65 42 61 72 63 68 61 72 74 20 2e 68 2e 63 32 20  eBarchart .h.c2 
0c50: 7b 41 20 42 20 43 20 44 20 45 7d 20 7b 30 2e 30  {A B C D E} {0.0
0c60: 20 32 30 2e 30 20 35 2e 30 7d 20 73 74 61 63 6b   20.0 5.0} stack
0c70: 65 64 5d 0a 0a 24 73 20 70 6c 6f 74 20 73 65 72  ed]..$s plot ser
0c80: 69 65 73 31 20 7b 31 2e 30 20 34 2e 30 20 36 2e  ies1 {1.0 4.0 6.
0c90: 30 20 31 2e 30 20 37 2e 30 7d 20 72 65 64 0a 24  0 1.0 7.0} red.$
0ca0: 73 20 70 6c 6f 74 20 73 65 72 69 65 73 32 20 7b  s plot series2 {
0cb0: 30 2e 30 20 33 2e 30 20 37 2e 30 20 39 2e 33 20  0.0 3.0 7.0 9.3 
0cc0: 32 2e 30 7d 20 67 72 65 65 6e 0a 24 73 20 74 69  2.0} green.$s ti
0cd0: 74 6c 65 20 22 53 74 61 63 6b 65 64 20 64 69 61  tle "Stacked dia
0ce0: 67 72 61 6d 22 0a 0a 0a 0a 3a 3a 50 6c 6f 74 63  gram"....::Plotc
0cf0: 68 61 72 74 3a 3a 70 6c 6f 74 63 6f 6e 66 69 67  hart::plotconfig
0d00: 20 68 6f 72 69 7a 62 61 72 73 20 6c 65 66 74 61   horizbars lefta
0d10: 78 69 73 20 66 6f 6e 74 20 22 48 65 6c 76 65 74  xis font "Helvet
0d20: 69 63 61 20 31 30 20 69 74 61 6c 69 63 22 0a 3a  ica 10 italic".:
0d30: 3a 50 6c 6f 74 63 68 61 72 74 3a 3a 70 6c 6f 74  :Plotchart::plot
0d40: 63 6f 6e 66 69 67 20 68 6f 72 69 7a 62 61 72 73  config horizbars
0d50: 20 62 61 63 6b 67 72 6f 75 6e 64 20 6f 75 74 65   background oute
0d60: 72 63 6f 6c 6f 72 20 73 74 65 65 6c 62 6c 75 65  rcolor steelblue
0d70: 33 0a 3a 3a 50 6c 6f 74 63 68 61 72 74 3a 3a 70  3.::Plotchart::p
0d80: 6c 6f 74 63 6f 6e 66 69 67 20 68 6f 72 69 7a 62  lotconfig horizb
0d90: 61 72 73 20 62 6f 74 74 6f 6d 61 78 69 73 20 74  ars bottomaxis t
0da0: 69 63 6b 6c 65 6e 67 74 68 20 2d 35 0a 0a 73 65  icklength -5..se
0db0: 74 20 73 20 5b 3a 3a 50 6c 6f 74 63 68 61 72 74  t s [::Plotchart
0dc0: 3a 3a 63 72 65 61 74 65 48 6f 72 69 7a 6f 6e 74  ::createHorizont
0dd0: 61 6c 42 61 72 63 68 61 72 74 20 2e 76 2e 63 20  alBarchart .v.c 
0de0: 7b 30 2e 30 20 31 30 2e 30 20 32 2e 30 7d 20 5c  {0.0 10.0 2.0} \
0df0: 0a 20 20 20 20 20 20 20 20 20 7b 41 6e 74 61 72  .         {Antar
0e00: 63 74 69 63 61 20 45 75 72 61 73 69 61 20 22 54  ctica Eurasia "T
0e10: 68 65 20 41 6d 65 72 69 63 61 73 22 20 22 41 75  he Americas" "Au
0e20: 73 74 72 61 6c 69 61 20 61 6e 64 20 4f 63 65 61  stralia and Ocea
0e30: 6e 69 61 22 20 4f 63 65 61 6e 7d 20 32 5d 0a 0a  nia" Ocean} 2]..
0e40: 24 73 20 70 6c 6f 74 20 73 65 72 69 65 73 31 20  $s plot series1 
0e50: 7b 31 2e 30 20 34 2e 30 20 36 2e 30 20 31 2e 30  {1.0 4.0 6.0 1.0
0e60: 20 37 2e 30 7d 20 72 65 64 20 6c 65 66 74 2d 72   7.0} red left-r
0e70: 69 67 68 74 0a 24 73 20 70 6c 6f 74 20 73 65 72  ight.$s plot ser
0e80: 69 65 73 32 20 7b 30 2e 30 20 33 2e 30 20 37 2e  ies2 {0.0 3.0 7.
0e90: 30 20 39 2e 33 20 32 2e 30 7d 20 67 72 65 65 6e  0 9.3 2.0} green
0ea0: 20 72 69 67 68 74 2d 6c 65 66 74 0a 24 73 20 74   right-left.$s t
0eb0: 69 74 6c 65 20 22 41 72 62 69 74 72 61 72 79 20  itle "Arbitrary 
0ec0: 64 61 74 61 22 0a 0a 0a 73 65 74 20 73 20 5b 3a  data"...set s [:
0ed0: 3a 50 6c 6f 74 63 68 61 72 74 3a 3a 63 72 65 61  :Plotchart::crea
0ee0: 74 65 48 6f 72 69 7a 6f 6e 74 61 6c 42 61 72 63  teHorizontalBarc
0ef0: 68 61 72 74 20 2e 76 2e 63 32 20 7b 30 2e 30 20  hart .v.c2 {0.0 
0f00: 32 30 2e 30 20 35 2e 30 7d 20 7b 41 20 42 20 43  20.0 5.0} {A B C
0f10: 20 44 20 45 7d 20 73 74 61 63 6b 65 64 5d 0a 0a   D E} stacked]..
0f20: 24 73 20 70 6c 6f 74 20 73 65 72 69 65 73 31 20  $s plot series1 
0f30: 7b 31 2e 30 20 34 2e 30 20 36 2e 30 20 31 2e 30  {1.0 4.0 6.0 1.0
0f40: 20 37 2e 30 7d 20 72 65 64 20 6c 65 66 74 2d 72   7.0} red left-r
0f50: 69 67 68 74 0a 24 73 20 70 6c 6f 74 20 73 65 72  ight.$s plot ser
0f60: 69 65 73 32 20 7b 30 2e 30 20 33 2e 30 20 37 2e  ies2 {0.0 3.0 7.
0f70: 30 20 39 2e 33 20 32 2e 30 7d 20 67 72 65 65 6e  0 9.3 2.0} green
0f80: 0a 24 73 20 74 69 74 6c 65 20 22 53 74 61 63 6b  .$s title "Stack
0f90: 65 64 20 64 69 61 67 72 61 6d 22 0a 0a 0a 73 65  ed diagram"...se
0fa0: 74 20 73 20 5b 3a 3a 50 6c 6f 74 63 68 61 72 74  t s [::Plotchart
0fb0: 3a 3a 63 72 65 61 74 65 54 69 6d 65 63 68 61 72  ::createTimechar
0fc0: 74 20 2e 76 2e 63 33 20 22 31 20 6a 61 6e 75 61  t .v.c3 "1 janua
0fd0: 72 79 20 32 30 30 34 22 20 5c 0a 20 20 20 20 20  ry 2004" \.     
0fe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0ff0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1000: 20 20 20 20 20 22 33 31 20 64 65 63 65 6d 62 65       "31 decembe
1010: 72 20 32 30 30 34 22 20 34 5d 0a 0a 24 73 20 70  r 2004" 4]..$s p
1020: 65 72 69 6f 64 20 22 53 70 72 69 6e 67 22 20 22  eriod "Spring" "
1030: 31 20 6d 61 72 63 68 20 32 30 30 34 22 20 22 31  1 march 2004" "1
1040: 20 6a 75 6e 65 20 32 30 30 34 22 20 67 72 65 65   june 2004" gree
1050: 6e 0a 24 73 20 70 65 72 69 6f 64 20 22 53 75 6d  n.$s period "Sum
1060: 6d 65 72 22 20 22 31 20 6a 75 6e 65 20 32 30 30  mer" "1 june 200
1070: 34 22 20 22 31 20 73 65 70 74 65 6d 62 65 72 20  4" "1 september 
1080: 32 30 30 34 22 20 79 65 6c 6c 6f 77 0a 24 73 20  2004" yellow.$s 
1090: 61 64 64 70 65 72 69 6f 64 20 22 32 31 20 73 65  addperiod "21 se
10a0: 70 74 65 6d 62 65 72 20 32 30 30 34 22 20 22 32  ptember 2004" "2
10b0: 31 20 6f 63 74 6f 62 65 72 20 32 30 30 34 22 20  1 october 2004" 
10c0: 62 6c 75 65 0a 24 73 20 76 65 72 74 6c 69 6e 65  blue.$s vertline
10d0: 20 22 31 20 6a 61 6e 22 20 22 31 20 6a 61 6e 75   "1 jan" "1 janu
10e0: 61 72 79 20 32 30 30 34 22 0a 24 73 20 76 65 72  ary 2004".$s ver
10f0: 74 6c 69 6e 65 20 22 31 20 61 70 72 22 20 22 31  tline "1 apr" "1
1100: 20 61 70 72 69 6c 20 32 30 30 34 22 20 6c 69 6d   april 2004" lim
1110: 65 0a 24 73 20 76 65 72 74 6c 69 6e 65 20 22 31  e.$s vertline "1
1120: 20 6a 75 6c 22 20 22 31 20 6a 75 6c 79 20 32 30   jul" "1 july 20
1130: 30 34 22 0a 24 73 20 76 65 72 74 6c 69 6e 65 20  04".$s vertline 
1140: 22 31 20 6f 63 74 22 20 22 31 20 6f 63 74 6f 62  "1 oct" "1 octob
1150: 65 72 20 32 30 30 34 22 0a 24 73 20 6d 69 6c 65  er 2004".$s mile
1160: 73 74 6f 6e 65 20 22 4c 6f 6e 67 65 73 74 20 64  stone "Longest d
1170: 61 79 22 20 22 32 31 20 6a 75 6c 79 20 32 30 30  ay" "21 july 200
1180: 34 22 0a 24 73 20 61 64 64 6d 69 6c 65 73 74 6f  4".$s addmilesto
1190: 6e 65 20 22 32 31 20 64 65 63 65 6d 62 65 72 20  ne "21 december 
11a0: 32 30 30 34 22 0a 24 73 20 74 69 74 6c 65 20 22  2004".$s title "
11b0: 53 65 61 73 6f 6e 73 20 28 6e 6f 72 74 68 65 72  Seasons (norther
11c0: 6e 20 68 65 6d 69 73 70 68 65 72 65 29 22 0a 0a  n hemisphere)"..