/usr/share/gnudatalanguage/coyote/cgps_config.pro is in gdl-coyote 2016.11.13-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 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 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 | ; docformat = 'rst'
;
; NAME:
; cgPS_CONFIG
;
; PURPOSE:
; The purpose of this program is to allow the user to configure the PostScript device
; with a graphical interface.
;******************************************************************************************;
; ;
; Copyright (c) 2000-2012, by Fanning Software Consulting, Inc. All rights reserved. ;
; ;
; Redistribution and use in source and binary forms, with or without ;
; modification, are permitted provided that the following conditions are met: ;
; ;
; * Redistributions of source code must retain the above copyright ;
; notice, this list of conditions and the following disclaimer. ;
; * Redistributions in binary form must reproduce the above copyright ;
; notice, this list of conditions and the following disclaimer in the ;
; documentation and/or other materials provided with the distribution. ;
; * Neither the name of Fanning Software Consulting, Inc. nor the names of its ;
; contributors may be used to endorse or promote products derived from this ;
; software without specific prior written permission. ;
; ;
; THIS SOFTWARE IS PROVIDED BY FANNING SOFTWARE CONSULTING, INC. ''AS IS'' AND ANY ;
; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES ;
; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT ;
; SHALL FANNING SOFTWARE CONSULTING, INC. BE LIABLE FOR ANY DIRECT, INDIRECT, ;
; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED ;
; TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; ;
; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ;
; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ;
; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ;
; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ;
;******************************************************************************************;
;
;+
; The purpose of this program is to allow the user to configure the PostScript device
; with or without a graphical user interface. This function is essentially a simplified
; wrapper to the FSC_PSConfig object, which provides a powerful graphical user interface
; for configuring the IDL PostScript device.
;
; .. image:: psconfig.png
;
; :Categories:
; Utilities, Graphics
;
; :Returns:
; A structure of keywords, appropriate for configuring the PostScript device, is returned.
; These keywords are generally passed to the PostScript device by means of keyword inheritance::
;
; keywords = cgPS_Config() ; Obtain PostScript keywords
; Set_Plot, 'PS' ; Select the PostScript device
; Device, _Extra=keywords ; Configure the PostScript device with keywords
;
; :Params:
; psobject: in, optional, type=object
; An FSC_PSCONFIG object reference of the sort returned by this function
; can be passed as an argument to the function. It is up to the user to destroy
; the object if passed as an argument. Passing an object argument essentially
; by-passes the rest of the keywords and the GUI will take its initial values
; from the values in the input object. This allows the programmer to keep track
; of how the user last configured the GUI and to set it up in exactly the same
; way the next time the GUI is invoked.
;
; :Keywords:
; AvantGarde: in, optional, type=boolean, default=0
; Set this keyword to select the AvantGarde PostScript font.
; Bits_per_Pixel: in, optional, type=integer, default=8
; The number of image bits saved for each image pixel: 2, 4, or 8.
; Bold: in, optional, type=boolean, default=0
; Set this keyword to select a bold PostScript font.
; BookStyle: in, optional, type=boolean, default=0
; Set this keyword to specify that the book version of the current PostScript
; font should be used.
; Bkman: in, optional, type=boolean, default=0
; Set this keyword to select the Bookman PostScript font.
; Cancel: out, optional, type=boolean, default=0
; If this keyword is set to 1, the user hit the Cancel button in the GUI.
; CMYK: in, optional, type=boolean, default=0
; Set this keyword to use CMYK colors instead of RGB colors in the output.
; Color: in, optional, type=boolean, default=1
; Set this keyword to 1 to select color or gray-scale output.
; Courier: in, optional, type=boolean, default=0
; Set this keyword to select the Courier font.
; Debug: in, optional, type=boolean, default=0
; Set this keyword to get traceback information when errors are encountered.
; Decomposed: in, optional, type=boolean, default=0
; Set this keyword to turn on 24-bit color support. Set to zero to select indexed color
; support. Applies only to IDL versions 7.1 and higher.
; DefaultSetup: in, optional, type=structure
; Set this keyword to the "name" of a default style. Current styles (you can easily
; create and add your own to the source code) are the following::
; "System (Portrait)" - The normal "default" system set-up. Also, "System".
; "System (Landcape)" - The normal "default" landscape system set-up.
; "Centered (Portrait)" - The window centered on the page. Also, "Center" or "Centered".
; "Centered (Landscape)" - The window centered on the landscape page. Also, "Landscape".
; "Square (Portrait)" - A square plot, centered on the page.
; "Square (Landscape)" - A square plot, centered on the landscape page.
; "Figure (Small)" - A small encapsulated figure size, centered on page. Also, "Encapsulated" or "Encapsulate".
; "Figure (Large)" - A larger encapsulated figure size, centered on page. Also, "Figure".
; "Color (Portrait)" - A "centered" plot, with color turned on. Also, "Color".
; "Color (Landscape)" - A "centered" landscape plot, with color turned on.
; Demi: in, optional, type=boolean, default=0
; Set this keyword to select the Demi font style.
; Directory: in, optional, type=string
; Set this keyword to the name of the starting directory. The current directory is used by default.
; Encapsulated: in, optional, type=boolean, default=0
; Set this keyword to 1 to select Encapsulated PostScript output.
; European: in, optional
; This keyword is depreciated in favor or `Metric`.
; Filename: in, optional, type=string, default='idl.ps'
; Set this keyword to the name of the PostScript file you wish to create.
; FontInfo: in, optional, type=boolean, default=0
; Set this keyword if you wish to see font information in the GUI interface. Since font
; information has to be interpreted to be used, most users prefer not to see this information
; on the GUI.
; FontSize: in, optional, type=integer, default=12
; Set this keyword to the desired font size. Values should be between 6 and 32.
; FontType: out, optional, type=integer
; This keyword is both an input and an output keyword. It allows you to specify the font
; type you wish to use, and it also returns the font type the user selected in the GUI.
; The user is responsibe for configuring the PostScript graphical commands with the appropriate font
; type, because it cannot be done via the normal Device keyword channel. Normally, this is set to
; !P.Font.
; Group_Leader: in, optional, type=long
; Set this keyword to the identifer of a widget group leader. This program will be destroyed
; if the group leader application is destroyed.
; Helvetica: in, optional, type=boolean, default=0
; Set this keyword to select the Helvetica PostScript font.
; Inches: in, optional, type=boolean, default=1
; Set this keyword to indicate sizes and offsets are in inches as opposed to centimeters.
; Set to zero by default if the `Metric` keyword is set.
; Italic: in, optional, type=boolean, default=0
; Set this keyword to select italic type font styling.
; Isolatin: in, optional, type=boolean, default=0
; Set this keyword to select ISOlatin1 encoding.
; Landscape: in, optional, type=boolean, default=0
; Set this keyword to select Landscape page output. Portrait page output is the default.
; Language_Level: in, optional, type=integer, default=1
; Set the language level of the PostScript output. Language level 2 required for features
; such as filled patterns for polygons.
; Light: in, optional, type=boolean, default=0
; Set this keyword to select the Light PostScript style for the font.
; Match: in, optional, type=boolean, default=0
; If this keyword is set, the initial PostScript window will match the aspect ratio of the
; current graphics window.
; Medium: in, optional, type=boolean, default=0
; Set this keyword to select the Medium PostScript style for the font.
; Metric: in, optional, type=boolean, default=0
; Set this keyword to indicate metric mode (i.e., A4 page and centimeter units).
; Name: in, optional, type=string
; Set this keyword to the "name" of the created FSC_PSConfig object.
; Narrow: in, optional, type=boolean, default=0
; Set this keyword to select the Narrow font style.
; NoGUI: in, optional, type=boolean, default=0
; Set this keyword if you don't want a graphical user interface, but just want to get the
; return structure of keywords.
; Oblique: in, optional, type=boolean, default=0
; Set this keyword to select the Oblique font style.
; PageType: in, optional, type=string, default='LETTER'
; Set this keyword to the "type" of page. Possible values are::
; "Letter" - 8.5 by 11 inches. (Default, unless the Metric keyword is set.)
; "Legal" - 8.5 by 14 inches.
; "Ledger" - 11 by 17 inches.
; "A4" - 21.0 by 29.7 centimeters. (Default, if the Metric keyword is set.)
; Palatino: in, optional, type=boolean, default=0
; Set this keyword to select the Palatino font.
; Preview: in, optional, type=integer, default=0
; Set this keyword to select the type of PostScript preview to add to the file. Values 0, 1, or 2.
; Adding previews to PostScript files created in IDL is not recommended as the results are always
; poor. There are better methods to add PostScript previews using other software, such as GhostView.
; Schoolbook: in, optional, type=boolean, default=0
; Set this keyword to select the Schoolbook PostScript font.
; Set_Font: in, optional, type=string
; Set this keyword to the name of a PostScript hardware or true-type font you want to use.
; Note that if you specify a true-type font, you must also set the `TrueType` keyword.
; Symbol: in, optional, type=boolean, default=0
; Set this keyword to select the Symbol PostScript font.
; Times: in, optional, type=boolean, default=0
; Set this keyword to select the Times PostScript font.
; TrueType: in, optional, type=boolean, default=0
; The same functionality as TT_Font. This keyword is now depreciated.
; TT_Font: in, optional, type=boolean, default=0
; Set this keyword to use true-type fonts in the PostScript output. Set the name of the font
; with the `Set_Font` keyword.
; XOffset: in, optional, type=float
; Set this keyword to the X Offset. Uses "System (Portrait)" defaults. (Note: offset
; calculated from lower-left corner of page.)
; XSize: in, optional, type=float
; Set this keyword to the X size of the PostScript "window". Uses "System (Portrait)" defaults.
; YOffset: in, optional, type=float
; Set this keyword to the Y Offset. Uses "System (Portrait)" defaults. (Note: offset
; calculated from lower-left corner of page.)
; YSize: in, optional, type=float
; Set this keyword to the Y size of the PostScript "window". Uses "System (Portrait)" defaults.
; ZapfChancery: in, optional, type=boolean, default=0
; Set this keyword to select the ZapfChancery PostScript font.
; ZapfDingbats: in, optional, type=boolean, default=0
; Set this keyword to select the ZapfDingbats PostScript font.
;
; :Examples:
; To have the user specify PostScript configuration parameters, use
; the program like this::
;
; keywords = cgPS_Config(Cancel=cancelled)
; IF cancelled THEN RETURN
; thisDevice = !D.Name
; Set_Plot, 'PS'
; Device, _Extra=keywords
; Plot, findgen(11) ; Or whatever graphics commands you use.
; Device, /Close_File
; Set_Plot, thisDevice
;
; :Author:
; FANNING SOFTWARE CONSULTING::
; David W. Fanning
; 1645 Sheely Drive
; Fort Collins, CO 80526 USA
; Phone: 970-221-0438
; E-mail: david@idlcoyote.com
; Coyote's Guide to IDL Programming: http://www.idlcoyote.com
;
; :History:
; Change History::
; Written by David W. Fanning, 31 January 2000.
; Added NOGUI keyword to allow default keywords to be obtained without
; user interaction. 11 Oct 2004. DWF.
; Added CMYK option 24 August 2007. Requires LANGUAGE_LEVEL=2 printer. L. Anderson
; Updated for IDL 7.1 and 24-bt color PostScript support. 24 May 2009. DWF.
; Added MATCH keyword. 14 Dec 2010. DWF.
; Changed ENCAPSULATE keyword to ENCAPSULATED, which is what I always type! 29 Jan 2011. DWF.
; Depreciated EUROPEAN keyword in favor of METRIC. 31 Jan 2011. DWF.
; Renamed cgPS_Config from PSConfig. 5 November 2013. DWF.
; Added Portrait, Language_Level, Font_Size, and TT_Font keywords to make it possible to pass
; keywords directly from the FSC_PSConfig object (using the GetKeywords method). 11 Apr 2014. DWF.
;
; :Copyright:
; Copyright (c) 2000-2012, Fanning Software Consulting, Inc.
;-
FUNCTION cgPS_Config, psObject, $ ; A FSC_PSCONFIG object.
AvantGarde=avantgarde, $ ; Set this keyword to select the AvantGarde font.
Bits_per_Pixel=bits_per_pixel, $ ; The number of image bits saved for each image pixel: 2, 4, or 8.
Bold=bold, $ ; Set this keyword to select the Bold font style.
BookStyle=book, $ ; Set this keyword to select the Book font style.
Bkman=bookman, $ ; Set this keyword to select the Bookman font.
Cancel=cancelled, $ ; This output keyword will be set to 1 if the user CANCELs. Set to 0 otherwise.
CMYK=cmyk, $ ; Set this keyword to use CMYK colors instead of RGB. (Requires LANGUAGE_LEVEL=2 printer.)
Color=color, $ ; Set this keyword to select Color PostScript output.
Courier=courier, $ ; Set this keyword to select the Courier font.
Debug=debug, $ ; Set this keyword to get traceback information when errors are encountered.
Decomposed=decomposed, $ ; Set this keyword to select 24-bit color PostScript support. (IDL 7.1 and above.)
DefaultSetup=defaultsetup, $ ; Set this keyword to the "name" of a default style.
Demi=demi, $ ; Set this keyword to select the Demi font style.
Directory=directory, $ ; Set thie keyword to the name of the starting directory. Current directory by default.
Encapsulated=encapsulated, $ ; Set this keyword to select Encapsulated PostScript output.
European=european, $ ; This keyword depreciated in favor of "metric".
Filename=filename, $ ; Set this keyword to the name of the file. Default: 'idl.ps'
FontInfo=fontinfo, $ ; Set this keyword if you want font information in the FSC_PSCONFIG GUI.
FontSize=fontsize, $ ; Same as FONT_SIZE. This keyword now depreciated.
Font_Size=font_size, $ ; Preferred way to set the font size. Between 6 and 36. Default is 12.
FontType=fonttype, $ ; An input/output keyword that will have the FontType. Will be !P.Font unless FontInfo is selected.
Group_Leader=group_leader, $ ; The group leader of the PSConfig modal widget.
Helvetica=helvetica, $ ; Set this keyword to select the Helvetica font.
Inches=inches, $ ; Set this keyword to indicate sizes and offsets are in inches as opposed to centimeters.
Italic=italic, $ ; Set this keyword to select the Italic font style.
Isolatin=isolatin, $ ; Set this keyword to select ISOlatin1 encoding.
Landscape=landscape, $ ; Set this keyword to select Landscape output.
Language_Level=language_level, $ ; Set the language level.
Light=light, $ ; Set this keyword to select the Light font style.
Match=match, $ ; Set this keyword to match the aspect ratio of the current graphics window.
Medium=medium, $ ; Set this keyword to select the Medium font style.
Metric=metric, $ ; Set this keyword to indicate metric mode (i.e., A4 page and centimeter units).
Name=name, $ ; The "name" of the object.
Narrow=narrow, $ ; Set this keyword to select the Narrow font style.
NoGUI=nogui, $ ; Return the default keywords directly, without user interaction.
Oblique=oblique, $ ; Set this keyword to select the Oblique font style.
PageType=pagetype, $ ; Set this keyword to the "type" of page: 'Letter', 'Legal', 'Ledger', or 'A4'.
Palatino=palatino, $ ; Set this keyword to select the Palatino font.
Portrait=portrait, $ ; Set this keyword as an alternative way of setting LANDSCAPE keyword to 0.
Preview=preview, $ ; Set this keyword to select Preview mode: 0, 1, or 2.
Schoolbook=schoolbook, $ ; Set this keyword to select the Schoolbook font.
Set_Font=set_font, $ ; Set this keyword to the name of a font passed to PostScript with Set_Plot keyword.
Symbol=symbol, $ ; Set this keyword to select the Symbol font.
Times=times, $ ; Set this keyword to select the Times font.
TrueType=truetype, $ ; Same as TT_Font keyword. Now depreciated.
TT_Font=tt_font, $ ; The preferred way to select True-Type fonts.
XOffset=xoffset, $ ; Set this keyword to the XOffset. (Note: offset calculated from lower-left corner of page.)
XSize=xsize, $ ; Set this keyword to the X size of the PostScript "window".
YOffset=yoffset, $ ; Set this keyword to the YOffset. (Note: offset calculated from lower-left corner of page.)
YSize=ysize, $ ; Set this keyword to the Y size of the PostScript "window".
ZapfChancery=zapfchancery, $ ; Set this keyword to select the ZapfChancery font.
ZapfDingbats=zapfdingbats ; Set this keyword to select the ZapfDingbats font.
On_Error, 2
; Depreciated keywords.
IF N_Elements(metric) EQ 0 THEN metric = Keyword_Set(european) ELSE metric = Keyword_Set(metric)
CASE 1 OF
(N_Elements(fontsize) EQ 0) && (N_Elements(font_size) EQ 0): font_size = 12
(N_Elements(fontsize) NE 0) && (N_Elements(font_size) EQ 0): font_size = fontsize
(N_Elements(fontsize) NE 0) && (N_Elements(font_size) NE 0): Undefine, fontsize
ELSE:
ENDCASE
; Cannot have landscape orientation with encapsulated PostScript output.
IF Keyword_Set(encapsulated) THEN landscape = 0
IF Keyword_Set(portrait) THEN landscape = 0
; Did the user ask us to match the aspect ratio of the current graphics window?
IF Keyword_Set(match) THEN BEGIN
; Is this a device that supports windows?
IF (!D.Flags AND 256) NE 0 THEN BEGIN
; Is there a current graphics window?
IF !D.Window GE 0 THEN BEGIN
IF N_Elements(inches) NE 0 THEN cm = 1 - Keyword_Set(inches)
keywords = cgPSWindow(Landscape=landscape, CM=cm, Metric=metric, /Sane_Offsets)
xsize = keywords.xsize
ysize = keywords.ysize
xoffset = keywords.xoffset
yoffset = keywords.yoffset
inches = keywords.inches
landscape = keywords.landscape
portrait = keywords.portrait
ENDIF
ENDIF
ENDIF
IF N_Elements(psObject) EQ 0 THEN BEGIN
psObject = Obj_New('FSC_PSCONFIG', $
AvantGarde=avantgarde, $
Bits_per_Pixel=bits_per_pixel, $
Bold=bold, $
BookStyle=book, $
Bkman=bookman, $
CMYK=cmyk, $
Color=color, $
Courier=courier, $
Debug=debug, $
Decomposed=decomposed, $
DefaultSetup=defaultsetup, $
Demi=demi, $
Directory=directory, $
Encapsulated=encapsulated, $
Filename=filename, $
FontSize=font_size, $
FontType=fonttype, $
Helvetica=helvetica, $
Inches=inches, $
Italic=italic, $
Isolatin=isolatin, $
Landscape=landscape, $
Language_Level=language_level, $
Light=light, $
Medium=medium, $
Metric=metric, $
Name=name, $
Narrow=narrow, $
Oblique=oblique, $
PageType=pagetype, $
Palatino=palatino, $
Preview=preview, $
Schoolbook=schoolbook, $
Set_Font=set_font, $
Symbol=symbol, $
Times=times, $
TrueType=(Keyword_Set(truetype) || Keyword_Set(tt_font)), $
XOffset=xoffset, $
XSize=xsize, $
YOffset=yoffset, $
YSize=ysize, $
ZapfChancery=zapfchancery, $
ZapfDingbats=zapfdingbats )
create = 1
ENDIF ELSE BEGIN
type = Size(psObject, /Type)
IF type NE 11 THEN BEGIN
Message, 'Object Reference required as an argument'
ENDIF
create = 0
ENDELSE
; Call the GUI of the FSC_PSCONFIG object.
IF Keyword_Set(nogui) EQ 0 THEN $
psObject->GUI, Group_Leader=group_leader, Cancel=cancelled, FontInfo=Keyword_Set(fontinfo)
; Get the PostScript device keywords, along with the font type information.
keywords = psObject->GetKeywords(FontType=fonttype)
; If this program created the psObject, destroy it. Otherwise leave it.
IF create THEN Obj_Destroy, psObject
; Return the PostScript device keywords.
RETURN, keywords
END ;----------------------------------------------------------------------
|