#!/bin/sh
#\
exec wish $0 $@

package require BLT

# Widgets erzeugen
blt::barchart .balken
pack .balken
Blt_ZoomStack .balken
.balken axis configure y -title "Mittelwert \[\u00B0 Celsius\]" 
.balken axis configure x -title "Jahr"  -stepsize 10
.balken legend configure -hide yes

# Werte hinzufügen
set Jahresmittel [list 1970 8.8 red  1975 10.3 yellow  1980 8.3 green  1985 8.7 cyan  1990 10.8 blue  1992 10.5 magenta]
foreach {jahr wert farbe} $Jahresmittel {
  .balken element create $jahr \
    -x $jahr -y $wert -fg $farbe 
}