/usr/share/blt2.4/demos/scripts/graph3.tcl is in blt-demo 2.4z-4.2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 | proc FormatAxisLabel {graph x} {
return "[expr int($x)]\260"
}
set configOptions [subst {
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 [namespace current]::FormatAxisLabel
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 configure -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 \
-x x \
-y sinX
$graph element create line2 \
-label "cos(x)" \
-color yellow4 \
-fill yellow \
-x x \
-y 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 darkseagreen1 \
-fg darkseagreen3 \
-under yes \
-rotate 45
# -rotate 45
$graph postscript configure \
-maxpect yes \
-landscape yes
|