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

package require BLT

# Datensätze
set Jahre [list 1702 1708 1730 1749 1760 1775 1800 1820 1840 1860 1900 1920 1950 1970 1990 ]
set Januar [list 2.0 1.4 1.8 2.6 -.8 -.8 -3.4 -5.8 -2.3 2.0 .9 1.9 -1.4 -4.1 4.1]
set April [list 2.6 6.1 9.0 8.0 9.9 7.6 13.9 10.3 8.2 7.9 7.7 10.8 7.9 6.4 9.5]
set Juli [list 16.0 12.1 16.8 18.0 19.5 21.0 16.2 15.9 18.8 17.6 20.8 18.9 18.4 18.1 18.1]
set Oktober [list 7.5 1.4 5.0 8.2 10.5 10.1 8.0 9.8 9.9 8.5 10.0 6.4 8.4 9.9 10.8]
set Dezember [list .6 -4.6 1.0 3.2 4.9 2.3 -.4 -2.8 4.7 -2.1 3.4 .0 -1.0 2.0 1.2]
set Jahresmittel [list 6.8 6.2 8.6 9.2 10.2 10.3 8.4 7.9 9.2 8.4 9.7 9.1 9.3 8.8 10.8]

# Widgets erzeugen
blt::graph .graph -title "Temperaturen \u00ABBerlin Tempelhof\u00BB" -plotrelief flat -bg white
.graph axis configure x -title "Jahr" 
.graph axis configure y -title "Temperatur \[\u00B0 Celsius\]" -min -10 -max +30
.graph legend configure -position @370,40 -relief flat -background white -raised 1
pack .graph

# interaktives Zoomen
Blt_ZoomStack .graph 

# Werte hinzufügen
.graph element create Januar \
    -xdata $Jahre -ydata $Januar \
    -color red -dashes {4}
.graph element create April \
    -xdata $Jahre -ydata $April \
    -color yellow -symbol diamond
.graph element create Juli \
    -xdata $Jahre -ydata $Juli \
    -color green -pixels 2 -smooth natural
.graph element create Oktober \
    -xdata $Jahre -ydata $Oktober \
    -color  cyan -dashes {4}
.graph element create Dezember \
    -xdata $Jahre -ydata $Dezember \
    -color blue -dashes {8 4} \
    -pixels 5  -symbol triangle
.graph element create Jahresmittel \
    -xdata $Jahre -ydata $Jahresmittel \
    -color gray80  -linewidth 2