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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
# Copyright (C) 1999-2018
# Smithsonian Astrophysical Observatory, Cambridge, MA, USA
# For conditions of distribution and use, see copyright notice in "copyright"
package provide DS9 1.0
proc PlotPSPrint {varname} {
upvar #0 $varname var
global $varname
if {[PlotPrintDialog]} {
if {[catch {PlotPostScript $varname} printError]} {
Error "[msgcat::mc {An error has occurred while printing}] $printError"
}
}
}
proc PlotPostScript {varname} {
upvar #0 $varname var
global $varname
global ps
global ds9
set first 1
foreach cc $var(graphs) {
# set postscript fonts
$var($cc,graph) configure \
-font "$var(graph,title,family) $var(graph,title,size) $var(graph,title,weight) $var(graph,title,slant)"
$var($cc,graph) xaxis configure \
-tickfont "$var(axis,font,family) $var(axis,font,size) $var(axis,font,weight) $var(axis,font,slant)" \
-titlefont "$var(axis,title,family) $var(axis,title,size) $var(axis,title,weight) $var(axis,title,slant)"
$var($cc,graph) yaxis configure \
-tickfont "$var(axis,font,family) $var(axis,font,size) $var(axis,font,weight) $var(axis,font,slant)" \
-titlefont "$var(axis,title,family) $var(axis,title,size) $var(axis,title,weight) $var(axis,title,slant)"
$var($cc,graph) legend configure \
-font "$var(legend,font,family) $var(legend,font,size) $var(legend,font,weight) $var(legend,font,slant)" \
-titlefont "$var(legend,title,family) $var(legend,title,size) $var(legend,title,weight) $var(legend,title,slant)"
set options "-decorations false"
# Color
switch -- $ps(color) {
rgb -
cmyk {append options " -greyscale no"}
gray {append options " -greyscale yes"}
}
# can't trust 'tk scaling'
switch $ds9(wm) {
x11 -
win32 {
set scaling [tk scaling]
if {$scaling == Inf} {
set scaling 1.334
}
}
aqua {set scaling 1.4}
}
# Size
set ww [expr [winfo width $var(top)]*$ps(scale)/100./$scaling]
set hh [expr [winfo height $var(top)]*$ps(scale)/100./$scaling]
append options " -width $ww -height $hh"
# Page size
switch -- $ps(size) {
letter {append options " -paperwidth 8.5i -paperheight 11.i"}
legal {append options " -paperwidth 8.5i -paperheight 14.i"}
tabloid {append options " -paperwidth 11i -paperheight 17.i"}
poster {append options " -paperwidth 36.i -paperheight 48.i"}
a4 {append options " -paperwidth 195m -paperheight 282m"}
other {
if {$ps(width) != {} && $ps(height) != {}} {
set pgww "[append ps(width) i]"
set pghh "[append ps(height) i]"
append options " -paperwidth $pgww -paperheight pghh"
}
}
othermm {
if {$ps(width) != {} && $ps(height) != {}} {
set pgww "[append ps(width) m]"
set pghh "[append ps(height) m]"
append options " -paperwidth $pgww -paperheight pghh"
}
}
}
# Orientation
switch -- $ps(orient) {
portrait {append options " -landscape false"}
landscape {append options " -landscape true"}
}
if {$ps(dest) == "file" && $ps(filename) != {}} {
set fn $ps(filename)
if {!$first} {
set root [file rootname $fn]
set ext [file extension $fn]
set fn ${root}${cc}${ext}
}
eval $var($cc,graph) postscript output $fn $options
} else {
set ch [open "| $ps(cmd)" w]
puts $ch [eval $var($cc,graph) postscript output $options]
close $ch
}
set first 0
# reset fonts
$var($cc,graph) configure \
-font "{$ds9($var(graph,title,family))} $var(graph,title,size) $var(graph,title,weight) $var(graph,title,slant)"
$var($cc,graph) xaxis configure \
-tickfont "{$ds9($var(axis,font,family))} $var(axis,font,size) $var(axis,font,weight) $var(axis,font,slant)" \
-titlefont "{$ds9($var(axis,title,family))} $var(axis,title,size) $var(axis,title,weight) $var(axis,title,slant)"
$var($cc,graph) yaxis configure \
-tickfont "{$ds9($var(axis,font,family))} $var(axis,font,size) $var(axis,font,weight) $var(axis,font,slant)" \
-titlefont "{$ds9($var(axis,title,family))} $var(axis,title,size) $var(axis,title,weight) $var(axis,title,slant)"
$var($cc,graph) legend configure \
-font "{$ds9($var(legend,font,family))} $var(legend,font,size) $var(legend,font,weight) $var(legend,font,slant)" \
-titlefont "{$ds9($var(legend,title,family))} $var(legend,title,size) $var(legend,title,weight) $var(legend,title,slant)"
}
}
|
