GoodNeWS/init.ps at main · DVRC/GoodNeWS · GitHub

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
%
%	This file loads the GoodNeWS files into the GoodNeWS dictionary.
%	This is only done when it hasn't already been loaded by another
%	program.
%
%	GoodNeWS programs should load this file as follows:
%		(GNHOME) getenv (/init.ps) append run

% pop userdict
currentdict end
systemdict /GoodNeWS known {
	currentdict GoodNeWS ne {
		GoodNeWS begin
	} if
} {
	systemdict /GoodNeWS 1000 dict put GoodNeWS begin


	% Show startup message
	gsave
	framebuffer setcanvas
	/TmpCanvas framebuffer newcanvas def
	376 250 translate
	10 0 0 400 240 rrectpath TmpCanvas reshapecanvas
	TmpCanvas /Mapped true put
	TmpCanvas setcanvas
	clippath 1 setgray fill
	0 setgray 10 0 1  399 239 rrectpath stroke
	200 210 translate
	/Helvetica-BoldOblique findfont 24 scalefont setfont
	0 0 moveto
	gsave (Loading GoodNeWS version 1.2)
	cshow grestore

	/Boston findfont 16 scalefont setfont
	0 -22 rmoveto
	gsave (By Arthur van Hoff, (c)1989 Turing Institute)
	cshow grestore

	/Boston findfont 10 scalefont setfont
	0 -22 rmoveto
	gsave (This software is the copyright of the Turing Institute.)
	cshow grestore
	0 -12 rmoveto
	gsave (It may be freely used and modified for research and)
	cshow grestore
	0 -12 rmoveto
	gsave (development purposes. We require a brief acknowledge-)
	cshow grestore
	0 -12 rmoveto
	gsave (ment in any research paper or other publication where)
	cshow grestore
	0 -12 rmoveto
	gsave (this software has made a significant contribution.)
	cshow grestore
	0 -12 rmoveto
	gsave (If you wish to use it for commercial gain you must)
	cshow grestore
	0 -12 rmoveto
	gsave (contact the Turing Institute for conditions of use.)
	cshow grestore

	0 -22 rmoveto
	gsave (The General Manager,)
	cshow grestore
	0 -22 rmoveto
	gsave (The Turing Institute, George House,)
	cshow grestore
	0 -12 rmoveto
	gsave (36 North Hanover Street, Glasgow G12AD)
	cshow grestore
	0 -12 rmoveto
	gsave (United Kingdom)
	cshow grestore
	0 -12 rmoveto
	gsave (Tel: (44) 41 552 6400, E-mail: postmaster@turing.ac.uk)
	cshow grestore

	% load the system files
	(GNHOME) getenv (/sys/) append
	dup (fixes.ps) append run
	dup (extensions.ps) append run
	dup (file.ps) append run
	dup (image.ps) append run
	dup (copy.ps) append run
	dup (focus.ps) append run
	dup (canvas.ps) append run
	dup (menu.ps) append run
	dup (confirm.ps) append run
	dup (win.ps) append run
	dup (clipboard.ps) append run
	dup (drawdef.ps) append run
	dup (drawfile.ps) append run
	pop

	% Hide the message
	TmpCanvas /Mapped false put
	grestore currentdict /TmpCanvas undef
} ifelse
% push userdict
begin