proc FormatXAxisProc {graph x} {
     return "[expr int($x)]\260"
}

set configOptions {
    Axis.Hide			no
    Axis.Limits			"%g"
    Axis.TickFont		{ helvetica 12 bold }
    Axis.TitleFont		{ helvetica 12 bold }
    BorderWidth			1
    Element.Pixels		1.75m
    Element.ScaleSymbols	yes
    Font			{ helvetica 23 bold }
    Legend.ActiveBorderWidth	2
    Legend.ActiveRelief		raised
    Legend.Anchor		ne
    Legend.BorderWidth		0
    Legend.Font			{ Helvetica 24 }
    Legend.Position		plotarea
    Relief			sunken
    Title			"Sine and Cosine Functions" 
    x.Command			FormatXAxisProc 
    x.StepSize			90 
    x.Subdivisions		0 
    x.Title			"X" 
    y.Color			purple2
    y.Loose			no
    y.Title			"Y" 
    y.rotate			90 
    y2.color			magenta3
}

set resName [string trimleft $graph .]
foreach { option value } $configOptions {
    option add *$resName.$option $value
}

graph $graph -leftvar changed

set tcl_precision 15
set pi1_2 [expr 3.14159265358979323846/180.0]

vector create x sinX cosX -variable ""
x seq -360 360 5
sinX expr { sin(x*$pi1_2) }
cosX expr { cos(x*$pi1_2) }

$graph element create line1 \
    -label "sin(x)" -fill orange -color black -xdata x -ydata sinX  
$graph element create line2 \
    -label "cos(x)" -color yellow4 -fill yellow -xdata x -ydata cosX 

Blt_ZoomStack $graph
Blt_Crosshairs $graph
Blt_ActiveLegend $graph
Blt_ClosestPoint $graph
#Blt_PrintKey $graph

$graph marker create bitmap -name bg -coords "-360 -1 360 1" \
	-bitmap @bitmaps/greenback.xbm \
	-bg seagreen2 -fg green4 -under yes

$graph postscript configure -maxpect yes -landscape yes

