--- /dev/null
+#bltdebug 100
+
+array set cursors {
+ w left_side
+ e right_side
+ n top_side
+ s bottom_side
+ sw bottom_left_corner
+ ne top_right_corner
+ se bottom_right_corner
+ nw top_left_corner
+}
+
+
+array set pageInfo {
+ gripSize 8
+ scale 0.25
+ radioFont -*-helvetica-medium-r-*-*-11-120-*-*-*-*-*-*
+ labelFont -*-helvetica-bold-r-*-*-12-120-*-*-*-*-*-*
+ printCmd "nlp -d2a211"
+ printFile "out.ps"
+}
+
+
+proc SetUnits { units } {
+ global pageInfo
+ switch -glob $units {
+ "i*" { set pageInfo(uscale) [winfo fpixels . 1i] }
+ "c*" { set pageInfo(uscale) [winfo fpixels . 1c] }
+ default { error "unknown unit \"$units\"" }
+ }
+ set pageInfo(units) [string index $units 0]
+}
+
+
+proc ConvertUnits { value } {
+ global pageInfo
+ set value [expr double($value) / $pageInfo(uscale)]
+ return [format "%.1f%s" $value $pageInfo(units)]
+}
+
+
+proc SetPaperSize { unit } {
+ global pageInfo
+ SetUnits $unit
+ set pageInfo(-paperwidth) [lindex $pageInfo(paperSize) 0]
+ set pageInfo(-paperheight) [lindex $pageInfo(paperSize) 1]
+ ApplyPs
+}
+
+proc SetCanvasSize { canvas width height } {
+ global pageInfo
+
+ set width [winfo pixels . $width]
+ set height [winfo pixels . $height]
+ $canvas configure -width $width -height $height
+}
+
+proc SetCanvasOrientation { canvas } {
+ global pageInfo
+ set width $pageInfo(paperWidth)
+ set height $pageInfo(paperHeight)
+ SetCanvasSize $canvas $width $height
+}
+
+
+proc GetPsOptions { graph } {
+ global pageInfo
+
+ foreach opt [$graph postscript configure] {
+ set pageInfo([lindex $opt 0]) [lindex $opt 4]
+ }
+}
+
+proc SetOutline { canvas } {
+ global pageInfo
+ foreach var { gripSize xMin yMin xMax yMax } {
+ set $var $pageInfo($var)
+ }
+ set xMid [expr ($xMax + $xMin - $gripSize) * 0.5]
+ set yMid [expr ($yMax + $yMin - $gripSize) * 0.5]
+ $canvas coords image $xMin $yMin
+ $canvas itemconfigure image \
+ -width [expr $xMax - $xMin] -height [expr $yMax - $yMin]
+ $canvas coords nw \
+ $xMin $yMin [expr $xMin + $gripSize] [expr $yMin + $gripSize]
+ $canvas coords se \
+ [expr $xMax - $gripSize] [expr $yMax - $gripSize] $xMax $yMax
+ $canvas coords ne \
+ [expr $xMax - $gripSize] [expr $yMin + $gripSize] $xMax $yMin
+ $canvas coords sw \
+ $xMin $yMax [expr $xMin + $gripSize] [expr $yMax - $gripSize]
+ SetCanvasOrientation $canvas
+ $canvas coords n \
+ $xMid $yMin [expr $xMid + $gripSize] [expr $yMin + $gripSize]
+ $canvas coords s \
+ $xMid [expr $yMax - $gripSize] [expr $xMid + $gripSize] $yMax
+ $canvas coords e \
+ [expr $xMax - $gripSize] $yMid $xMax [expr $yMid + $gripSize]
+ $canvas coords w \
+ $xMin $yMid [expr $xMin + $gripSize] [expr $yMid + $gripSize]
+}
+
+proc CreateOutline { canvas } {
+ global pageInfo
+ foreach var { gripSize xMin yMin xMax yMax } {
+ set $var $pageInfo($var)
+ }
+ if { ![bitmap exists pattern8] } {
+ bitmap define pattern8 { {8 8} {ff 00 ff 00 ff 00 ff 00 } }
+ }
+ $canvas create eps $xMin $yMin \
+ -tags "outline image" \
+ -width [expr $xMax - $xMin] \
+ -height [expr $yMax - $yMin]
+
+ $canvas bind image <ButtonPress-1> "StartMove $canvas %x %y"
+ $canvas bind image <B1-Motion> "MoveOutline $canvas %x %y"
+ $canvas bind image <ButtonRelease-1> "EndMove $canvas"
+
+ $canvas bind image <Shift-B1-Motion> "ConstrainMoveOutline $canvas %x %y"
+ $canvas bind image <Enter> "EnterImage $canvas"
+ $canvas bind image <Leave> "LeaveImage $canvas"
+ focus $canvas
+ $canvas create rectangle \
+ $xMin $yMin [expr $xMin + $gripSize] [expr $yMin + $gripSize] \
+ -tags "outline grip nw"
+ $canvas create rectangle \
+ [expr $xMax - $gripSize] [expr $yMax - $gripSize] $xMax $yMax \
+ -tags "outline grip se"
+ $canvas create rectangle \
+ [expr $xMax - $gripSize] [expr $yMin + $gripSize] $xMax $yMin \
+ -tags "outline grip ne"
+ $canvas create rectangle \
+ $xMin $yMax [expr $xMin + $gripSize] [expr $yMax - $gripSize] \
+ -tags "outline grip sw"
+
+ set xMid [expr ($xMax + $xMin - $gripSize) * 0.5]
+ set yMid [expr ($yMax + $yMin - $gripSize) * 0.5]
+ $canvas create rectangle \
+ $xMid $yMin [expr $xMid + $gripSize] [expr $yMin + $gripSize] \
+ -tags "outline grip n"
+ $canvas create rectangle \
+ $xMid [expr $yMax - $gripSize] [expr $xMid + $gripSize] $yMax \
+ -tags "outline grip s"
+ $canvas create rectangle \
+ [expr $xMax - $gripSize] $yMid $xMax [expr $yMid + $gripSize] \
+ -tags "outline grip e"
+ $canvas create rectangle \
+ $xMin $yMid [expr $xMin + $gripSize] [expr $yMid + $gripSize] \
+ -tags "outline grip w"
+ foreach grip { e w s n sw ne se nw } {
+ $canvas bind $grip <ButtonPress-1> "StartResize %W $grip %x %y"
+ $canvas bind $grip <B1-Motion> "ResizeOutline %W %x %y"
+ $canvas bind $grip <ButtonRelease-1> "EndResize %W $grip %x %y"
+ $canvas bind $grip <Enter> "EnterGrip %W $grip %x %y"
+ $canvas bind $grip <Leave> "LeaveGrip %W $grip"
+ }
+ $canvas raise grip
+ $canvas itemconfigure grip -fill red -outline black
+
+ set pageInfo(image) [image create photo]
+ $pageInfo(graph) snap $pageInfo(image)
+ $canvas itemconfigure image -image $pageInfo(image)
+}
+
+
+proc EnterImage { canvas } {
+ global cursors
+ global pageInfo
+ bind $canvas <KeyPress-Left> {
+ MoveOutline %W [expr $pageInfo(lastX) - 1] $pageInfo(lastY)
+ }
+ bind $canvas <KeyPress-Right> {
+ MoveOutline %W [expr $pageInfo(lastX) + 1] $pageInfo(lastY)
+ }
+ bind $canvas <KeyPress-Up> {
+ MoveOutline %W $pageInfo(lastX) [expr $pageInfo(lastY) - 1]
+ }
+ bind $canvas <KeyPress-Down> {
+ MoveOutline %W $pageInfo(lastX) [expr $pageInfo(lastY) + 1]
+ }
+ focus $canvas
+ $canvas configure -cursor fleur
+ set pageInfo(lastX) 0
+ set pageInfo(lastY) 0
+}
+
+
+proc LeaveImage { canvas } {
+ bind $canvas <KeyPress-Left> ""
+ bind $canvas <KeyPress-Right> ""
+ bind $canvas <KeyPress-Up> ""
+ bind $canvas <KeyPress-Down> ""
+ $canvas configure -cursor ""
+}
+
+proc EnterGrip { canvas grip x y } {
+ global pageInfo
+ $canvas itemconfigure $grip -fill blue -outline black
+ set pageInfo(grip) $grip
+ global cursors
+ bind $canvas <KeyPress-Left> {
+ ResizeOutline %W [expr $pageInfo(lastX) - 1] $pageInfo(lastY)
+ }
+ bind $canvas <KeyPress-Right> {
+ ResizeOutline %W [expr $pageInfo(lastX) + 1] $pageInfo(lastY)
+ }
+ bind $canvas <KeyPress-Up> {
+ ResizeOutline %W $pageInfo(lastX) [expr $pageInfo(lastY) - 1]
+ }
+ bind $canvas <KeyPress-Down> {
+ ResizeOutline %W $pageInfo(lastX) [expr $pageInfo(lastY) + 1]
+ }
+ focus $canvas
+ $canvas configure -cursor $cursors($grip)
+ set pageInfo(lastX) $x
+ set pageInfo(lastY) $y
+}
+
+proc LeaveGrip { canvas grip } {
+ $canvas itemconfigure $grip -fill red -outline black
+ bind $canvas <KeyPress-Left> ""
+ bind $canvas <KeyPress-Right> ""
+ bind $canvas <KeyPress-Up> ""
+ bind $canvas <KeyPress-Down> ""
+ $canvas configure -cursor ""
+}
+
+proc StartMove { canvas x y } {
+ global pageInfo
+ set pageInfo(lastX) $x
+ set pageInfo(lastY) $y
+ set pageInfo(direction) "undecided"
+ $canvas configure -cursor fleur
+}
+
+proc MoveOutline { canvas x y } {
+ global pageInfo
+ $canvas move outline [expr $x - $pageInfo(lastX)] [expr $y - $pageInfo(lastY)]
+ set pageInfo(lastX) $x
+ set pageInfo(lastY) $y
+}
+
+proc ConstrainMoveOutline { canvas x y } {
+ global pageInfo
+
+ set dx [expr $x - $pageInfo(lastX)]
+ set dy [expr $y - $pageInfo(lastY)]
+
+ if { $pageInfo(direction) == "undecided" } {
+ if { abs($dx) > abs($dy) } {
+ set pageInfo(direction) x
+ $canvas configure -cursor sb_h_double_arrow
+ } else {
+ set pageInfo(direction) y
+ $canvas configure -cursor sb_v_double_arrow
+ }
+ }
+ switch $pageInfo(direction) {
+ x { set dy 0 ; set pageInfo(lastX) $x }
+ y { set dx 0 ; set pageInfo(lastY) $y }
+ }
+ $canvas move outline $dx $dy
+}
+
+proc EndMove { canvas } {
+ $canvas configure -cursor ""
+
+ set coords [$canvas coords image]
+ set x [lindex $coords 0]
+ set y [lindex $coords 1]
+ set w [$canvas itemcget image -width]
+ set h [$canvas itemcget image -height]
+
+ global pageInfo
+ set pageInfo(xMin) $x
+ set pageInfo(xMin) $y
+ set pageInfo(xMax) [expr $x + $w]
+ set pageInfo(yMax) [expr $y + $h]
+
+ global pageInfo
+ set pageInfo(-padx) [list $pageInfo(xMin) [expr $pageInfo(paperWidth) - $pageInfo(xMax)]]
+ set pageInfo(-pady) [list $pageInfo(yMin) [expr $pageInfo(paperHeight) - $pageInfo(yMax)]]
+}
+
+proc StartResize { canvas grip x y } {
+ global pageInfo
+ $canvas itemconfigure image -quick yes
+ set pageInfo(grip) $grip
+ $canvas itemconfigure $grip -fill red -outline black
+ $canvas raise grip
+ global cursors
+ $canvas configure -cursor $cursors($grip)
+ set pageInfo(lastX) $x
+ set pageInfo(lastY) $y
+}
+
+proc EndResize { canvas grip x y } {
+ $canvas itemconfigure image -quick no
+ ResizeOutline $canvas $x $y
+ $canvas itemconfigure $grip -fill "" -outline ""
+ $canvas configure -cursor ""
+}
+
+proc ResizeOutline { canvas x y } {
+ global pageInfo
+
+ foreach var { gripSize xMin yMin xMax yMax } {
+ set $var $pageInfo($var)
+ }
+ switch $pageInfo(grip) {
+ n {
+ set yMin $y
+ }
+ s {
+ set yMax $y
+ }
+ e {
+ set xMax $x
+ }
+ w {
+ set xMin $x
+ }
+ sw {
+ set xMin $x ; set yMax $y
+ }
+ ne {
+ set xMax $x ; set yMin $y
+ }
+ se {
+ set xMax $x ; set yMax $y
+ }
+ nw {
+ set xMin $x ; set yMin $y
+ }
+ }
+ set width [expr $xMax - $xMin]
+ set height [expr $yMax - $yMin]
+ if { ($width < 1) || ($height < 1) } {
+ return
+ }
+ SetOutline $canvas
+ foreach var { xMin yMin xMax yMax } {
+ set pageInfo($var) [set $var]
+ }
+}
+
+proc ComputePlotGeometry { graph } {
+ global pageInfo
+
+ GetPsOptions $graph
+ set width [winfo width $graph]
+ set height [winfo height $graph]
+ if { $pageInfo(-width) > 0 } {
+ set width $pageInfo(-width)
+ }
+ if { $pageInfo(-height) > 0 } {
+ set height $pageInfo(-height)
+ }
+
+ set left [lindex $pageInfo(-padx) 0]
+ set right [lindex $pageInfo(-padx) 1]
+ set top [lindex $pageInfo(-pady) 0]
+ set bottom [lindex $pageInfo(-pady) 1]
+ set padx [expr $left + $right]
+ set pady [expr $top + $bottom]
+
+ if { $pageInfo(-paperwidth) > 0 } {
+ set paperWidth $pageInfo(-paperwidth)
+ } else {
+ set paperWidth [expr $width + $padx]
+ }
+ if { $pageInfo(-paperheight) > 0 } {
+ set paperHeight $pageInfo(-paperheight)
+ } else {
+ set paperHeight [expr $height + $pady]
+ }
+ if { $pageInfo(-landscape) } {
+ set temp $paperWidth
+ set paperWidth $paperHeight
+ set paperHeight $temp
+ }
+
+ set scale 1.0
+ if { $pageInfo(-maxpect) } {
+ set xScale [expr ($paperWidth - $padx) / double($width)]
+ set yScale [expr ($paperHeight - $pady) / double($height)]
+ set scale [expr min($xScale,$yScale)]
+ set bboxWidth [expr round($width * $scale)]
+ set bboxHeight [expr round($height * $scale)]
+ } else {
+ if { ($width + $padx) > $paperWidth } {
+ set width [expr $paperWidth - $padx]
+ }
+ if { ($height + $pady) > $paperHeight } {
+ set height [expr $paperHeight - $pady]
+ }
+ set bboxWidth $width
+ set bboxHeight $height
+ }
+ set x $left
+ set y $top
+ if { $pageInfo(-center) } {
+ if { $paperWidth > $bboxWidth } {
+ set x [expr ($paperWidth - $bboxWidth) / 2]
+ }
+ if { $paperHeight > $bboxHeight } {
+ set y [expr ($paperHeight - $bboxHeight) / 2]
+ }
+ }
+ set pageInfo(xMin) [expr $x * $pageInfo(scale)]
+ set pageInfo(yMin) [expr $y * $pageInfo(scale)]
+ set pageInfo(xMax) [expr ($x + $bboxWidth) * $pageInfo(scale)]
+ set pageInfo(yMax) [expr ($y + $bboxHeight) * $pageInfo(scale)]
+ set pageInfo(paperHeight) [expr $paperHeight * $pageInfo(scale)]
+ set pageInfo(paperWidth) [expr $paperWidth * $pageInfo(scale)]
+}
+
+proc PsDialog { graph } {
+ global pageInfo
+
+ set pageInfo(graph) $graph
+ set top $graph.top
+ toplevel $top
+ option add *graph.top*Radiobutton.font $pageInfo(radioFont)
+ GetPsOptions $graph
+ ComputePlotGeometry $graph
+ set canvas $top.layout
+ canvas $canvas -confine yes \
+ -width $pageInfo(paperWidth) -height $pageInfo(paperHeight) -bg gray \
+ -bd 2 -relief sunken
+ CreateOutline $canvas
+ SetCanvasOrientation $canvas
+ label $top.titleLabel -text "PostScript Options"
+ table $top \
+ 0,0 $top.titleLabel -cspan 7 \
+ 1,0 $canvas -cspan 7
+
+ set row 2
+ set col 0
+ label $top.paperLabel -text "Paper"
+ radiobutton $top.letter -text "Letter 8 1/2 x 11 in." -value "8.5i 11i" \
+ -variable pageInfo(paperSize) \
+ -command "SetPaperSize i"
+ radiobutton $top.a3 -text "A3 29.7 x 42 cm." -value "28.7c 41c" \
+ -variable pageInfo(paperSize) \
+ -command "SetPaperSize c"
+ radiobutton $top.a4 -text "A4 21 x 29.7 cm." -value "21c 29.7c" \
+ -variable pageInfo(paperSize) \
+ -command "SetPaperSize c"
+ radiobutton $top.a5 -text "A5 14.85 x 21 cm." -value "14.85c 21c" \
+ -variable pageInfo(paperSize) \
+ -command "SetPaperSize c"
+ radiobutton $top.legal -text "Legal 8 1/2 x 14 in." -value "8.5i 14i" \
+ -variable pageInfo(paperSize) \
+ -command "SetPaperSize i"
+ radiobutton $top.large -text "Large 11 x 17 in." -value "11i 17i" \
+ -variable pageInfo(paperSize) \
+ -command "SetPaperSize i"
+ table configure $top r$row -pady { 4 0 }
+ table $top \
+ $row,$col $top.paperLabel -anchor e \
+ $row+0,$col+1 $top.letter -anchor w \
+ $row+1,$col+1 $top.legal -anchor w \
+ $row+2,$col+1 $top.large -anchor w \
+ $row+0,$col+2 $top.a3 -anchor w \
+ $row+1,$col+2 $top.a4 -anchor w \
+ $row+2,$col+2 $top.a5 -anchor w
+
+ incr row 3
+
+ label $top.orientLabel -text "Orientation"
+ radiobutton $top.portrait -text "Portrait" -value "0" \
+ -variable pageInfo(-landscape) -command "ApplyPs"
+ radiobutton $top.landscape -text "Landscape" -value "1" \
+ -variable pageInfo(-landscape) -command "ApplyPs"
+ table configure $top r$row -pady { 4 0 }
+ table $top \
+ $row,$col+0 $top.orientLabel -anchor e \
+ $row,$col+1 $top.portrait -anchor w \
+ $row,$col+2 $top.landscape -anchor w
+
+ incr row 6
+
+ set col 0
+ label $top.plotLabel -text "Plot Options"
+ table $top \
+ $row,$col $top.plotLabel -cspan 3
+ incr row
+ label $top.sizeLabel -text "Size"
+ radiobutton $top.default -text "Default" -value "default" \
+ -variable pageInfo(plotSize) \
+ -command "SetPlotSize"
+ radiobutton $top.maxpect -text "Max Aspect" -value "maxpect" \
+ -variable pageInfo(plotSize) \
+ -command "SetPlotSize"
+ radiobutton $top.resize -text "Resize" -value "resize" \
+ -variable pageInfo(plotSize) \
+ -command "SizeDialog $graph {Adjust Plot Size}"
+ table configure $top r$row -pady { 4 0 }
+ table $top \
+ $row,$col $top.sizeLabel -anchor e \
+ $row,$col+1 $top.default -anchor w \
+ $row+1,$col+1 $top.maxpect -anchor w \
+ $row+2,$col+1 $top.resize -anchor w
+
+ #incr row 4
+
+ set pageInfo(oldPadX) $pageInfo(-padx)
+ set pageInfo(oldPadY) $pageInfo(-pady)
+
+ label $top.posLabel -text "Position"
+ set pageInfo(position) $pageInfo(-center)
+ radiobutton $top.center -text "Center" -value "1" \
+ -variable pageInfo(position) -command {
+ set pageInfo(-center) 1
+ CenterPlot
+ }
+ radiobutton $top.origin -text "Origin" -value "0" \
+ -variable pageInfo(position) -command {
+ set pageInfo(-center) 0
+ ApplyPs
+ }
+ radiobutton $top.move -text "Move" -value "move" \
+ -variable pageInfo(position) -command {
+ set pageInfo(-center) 0
+ MoveDialog
+ }
+ table configure $top r$row -pady { 4 0 }
+ table $top \
+ $row,$col+2 $top.posLabel -anchor e \
+ $row,$col+3 $top.center -anchor w \
+ $row+1,$col+3 $top.origin -anchor w \
+ $row+2,$col+3 $top.move -anchor w
+
+ incr row 4
+ label $top.printLabel -text "Print To"
+ radiobutton $top.toFile -text "File" -value "printFile" \
+ -variable pageInfo(printTo) -command "
+ $top.fileEntry configure -textvariable pageInfo(printFile)
+ "
+ radiobutton $top.toCmd -text "Command" -value "printCmd" \
+ -variable pageInfo(printTo) -command "
+ $top.fileEntry configure -textvariable pageInfo(printCmd)
+ "
+ entry $top.fileEntry
+ table configure $top r$row -pady { 4 0 }
+ table configure $top r[expr $row+1] -pady { 4 0 }
+ table configure $top r[expr $row+2] -pady { 4 0 }
+ table $top \
+ $row,0 $top.printLabel -anchor e \
+ $row,1 $top.toFile -anchor w \
+ $row+1,1 $top.toCmd -anchor w \
+ $row+2,1 $top.fileEntry -anchor w -fill x -cspan 3
+ $top.toFile invoke
+ incr row 3
+ #table configure $top c4 -width .125i
+ button $top.cancel -text "Cancel" -command "destroy $top"
+ button $top.print -text "Done" -command "PrintPs $graph"
+ button $top.advanced -text "Options" -command "MarginDialog $graph"
+ table $top \
+ $row,1 $top.print -width 1i -pady 2 \
+ $row,2 $top.advanced -width 1i -pady 2 \
+ $row,3 $top.cancel -width 1i -pady 2 -anchor w
+
+ SetUnits "inches"
+ foreach label [info commands $top.*Label] {
+ $label configure -font $pageInfo(labelFont) -padx 4
+ }
+}
+
+proc PrintPs { graph } {
+ $graph postscript output "out.ps"
+ puts stdout "wrote file \"out.ps\"."
+ flush stdout
+}
+
+proc ApplyPs { } {
+ global pageInfo
+
+ set graph $pageInfo(graph)
+ foreach option [$graph postscript configure] {
+ set var [lindex $option 0]
+ set old [lindex $option 4]
+ if { [catch {$graph postscript configure $var $pageInfo($var)}] != 0 } {
+ $graph postscript configure $var $old
+ set pageInfo($var) $old
+ }
+ }
+ ComputePlotGeometry $graph
+ foreach var { -paperheight -paperwidth -width -height } {
+ set pageInfo($var) [ConvertUnits $pageInfo($var)]
+ }
+ SetOutline $graph.top.layout
+}
+
+proc StartChange { w delta } {
+ ChangeSize $w $delta
+ global pageInfo
+ set pageInfo(afterId) [after 300 RepeatChange $w $delta]
+}
+
+proc RepeatChange { w delta } {
+ ChangeSize $w $delta
+ global pageInfo
+ set pageInfo(afterId) [after 100 RepeatChange $w $delta]
+}
+
+proc EndChange { w } {
+ global pageInfo
+ after cancel $pageInfo(afterId)
+}
+
+proc ChangeSize { w delta } {
+ set f [winfo parent $w]
+ set value [$f.entry get]
+ set value [expr $value + $delta]
+ if { $value < 0 } {
+ set value 1
+ }
+ $f.entry delete 0 end
+ $f.entry insert 0 $value
+}
+
+proc MakeSizeAdjustor { w label var } {
+ frame $w
+ label $w.label -text $label
+ button $w.plus -text "+" -padx 1 -pady 0 -font \*symbol\*
+ entry $w.entry -width 6 -textvariable "pageInfo($var)"
+ button $w.minus -text "-" -padx 1 -pady 0 -font \*symbol\*
+ label $w.units -text "in"
+ bind $w.plus <ButtonPress-1> { StartChange %W 0.1}
+ bind $w.plus <ButtonRelease-1> { EndChange %W }
+ bind $w.minus <ButtonPress-1> { StartChange %W -0.1}
+ bind $w.minus <ButtonRelease-1> { EndChange %W }
+ table $w \
+ 0,1 $w.label \
+ 1,1 $w.entry -rspan 2 -fill y \
+ 1,0 $w.minus -padx 2 -pady 2 \
+ 2,0 $w.plus -padx 2 -pady { 0 2 } \
+ 1,2 $w.units -rspan 2 -fill y
+
+}
+
+
+proc SizeDialog { graph title } {
+ global pageInfo
+ set top .plotSize
+ if { [winfo exists $top] } {
+ return
+ }
+ toplevel $top
+ label $top.title -text $title
+ button $top.cancel -text "Cancel" -command "destroy $top"
+ button $top.ok -text "Ok" -command "ApplyPs; destroy $top"
+ MakeSizeAdjustor $top.plotWidth "Width" -width
+ MakeSizeAdjustor $top.plotHeight "Height" -height
+ table $top \
+ 0,0 $top.title -cspan 2 \
+ 1,0 $top.plotWidth \
+ 1,1 $top.plotHeight \
+ 2,0 $top.cancel -pady 4 -padx 4 -width 1i \
+ 2,1 $top.ok -pady 4 -padx 4 -width 1i
+ set width [winfo fpixels . $pageInfo(-width)]
+ set height [winfo fpixels . $pageInfo(-height)]
+ if { $width == 0 } {
+ set width [expr ($pageInfo(xMax) - $pageInfo(xMin)) / $pageInfo(scale)]
+ set pageInfo(-width) [ConvertUnits $width]
+ }
+ if { $height == 0 } {
+ set height [expr ($pageInfo(yMax) - $pageInfo(yMin)) / $pageInfo(scale)]
+ set pageInfo(-height) [ConvertUnits $height]
+ }
+ set pageInfo(-maxpect) 0
+}
+
+proc SetPlotSize { } {
+ global pageInfo
+ set graph $pageInfo(graph)
+ switch $pageInfo(plotSize) {
+ default {
+ set pageInfo(-width) 0
+ set pageInfo(-height) 0
+ set pageInfo(-maxpect) 0
+ set pageInfo(-padx) $pageInfo(oldPadX)
+ set pageInfo(-pady) $pageInfo(oldPadY)
+ } maxpect {
+ set pageInfo(-width) 0
+ set pageInfo(-height) 0
+ set pageInfo(-maxpect) 1
+ set pageInfo(-padx) $pageInfo(oldPadX)
+ set pageInfo(-pady) $pageInfo(oldPadY)
+ } resize {
+ set pageInfo(-maxpect) 0
+ }
+ }
+ ApplyPs
+}
+
+
+proc PaperSizeDialog { title } {
+ set top .paperSize
+ if { [winfo exists $top] } {
+ return
+ }
+ toplevel $top
+ label $top.title -text $title
+ MakeSizeAdjustor $top.width "Width" -paperwidth
+ MakeSizeAdjustor $top.height "Height" -paperheight
+ button $top.cancel -text "Cancel" -command "destroy $top"
+ button $top.ok -text "Ok" -command "ApplyPs; destroy $top"
+ table $top \
+ 0,0 $top.title -cspan 2 \
+ 1,0 $top.width \
+ 1,1 $top.height \
+ 2,0 $top.cancel -pady 4 -padx 4 -width 1i \
+ 2,1 $top.ok -pady 4 -padx 4 -width 1i
+}
+
+proc MarginDialog { graph } {
+ set top $graph.top.options
+ if { [winfo exists $top] } {
+ return
+ }
+ toplevel $top
+ set row 0
+ set col 0
+ label $top.modeLabel -text "Printer"
+ radiobutton $top.color -text "Color" -value "color" \
+ -variable pageInfo(-colormode) -command "ApplyPs"
+ radiobutton $top.greyscale -text "Greyscale" -value "greyscale" \
+ -variable pageInfo(-colormode) -command "ApplyPs"
+ table $top \
+ $row,$col $top.modeLabel -anchor e \
+ $row,$col+1 $top.color -anchor w \
+ $row+1,$col+1 $top.greyscale -anchor w
+
+ table configure $top r$row -pady { 4 0 }
+
+ label $top.previewLabel -text "Preview"
+ radiobutton $top.previewYes -text "Yes" -value "1" \
+ -variable pageInfo(-preview) -command "ApplyPs"
+ radiobutton $top.previewNo -text "No" -value "0" \
+ -variable pageInfo(-preview) -command "ApplyPs"
+ set col 2
+ table $top \
+ $row,$col $top.previewLabel -anchor e \
+ $row,$col+1 $top.previewYes -anchor w \
+ $row+1,$col+1 $top.previewNo -anchor w
+ incr row 2
+
+ button $top.cancel -text "Cancel" -command "destroy $top"
+ button $top.ok -text "Done" -command "PrintPs $graph"
+ table $top \
+ $row,0 $top.cancel -pady 4 -padx 4 -width 1i \
+ $row,1 $top.ok -pady 4 -padx 4 -width 1i
+
+}
+
+proc CenterPlot { } {
+ global pageInfo
+
+ set pageInfo(-padx) $pageInfo(oldPadX)
+ set pageInfo(-pady) $pageInfo(oldPadY)
+ ApplyPs
+}
OSDN Git Service
