![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to Clock.psw CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [NeXTSTEP 3.3 examples] / Examples / AppKit / BusyBox|
Return to Clock.psw CVS log | Up to [NeXTSTEP 3.3 examples] / Examples / AppKit / BusyBox |
1.1 root 1: /*
2: * Clock.psw, Postscript code for drawing analog, digital and sundial clocks.
3: * Author: Bruce Blumberg, NeXT Developer Support Group.
4: * Originally written for 0.6 mid 1988, modified for 1.0 by Ali Ozer.
5: * Cleaned and spiffed up for 2.0 by Julie Zelenski, goddess of the sundial.
6: * You may freely copy, distribute and reuse the code in this example.
7: * NeXT disclaims any warranty of any kind, expressed or implied, as to its
8: * fitness for any particular use.
9: */
10:
11:
12: /* drawClockHand draws a line with the specified width and color.
13: * The line starts at 0, 0 and spans the specified length in the
14: * direction specified by angle. Despite its name, this function is
15: * a pretty generic line drawer.
16: */
17: defineps PSWdrawClockHand (float x; float y; float angle; float length; float gray; float width)
18: gsave
19: x y translate
20: angle rotate
21: 0 0 moveto 0 length lineto
22: width setlinewidth
23: gray setgray
24: stroke
25: grestore
26: endps
27:
28:
29: /* drawAnalogFace draws the circular border and draws tick marks at
30: * 3,6,9 and 12
31: */
32: defineps PSWdrawAnalogFace (float x; float y; float radius)
33: gsave
34: x y translate
35: 1.0 setlinewidth
36: 1.0 setgray
37: 1 0 radius 0 360 arc
38: stroke
39:
40: .333 setgray
41: 0 0 radius 0 360 arc
42: stroke
43:
44: /tickLen radius 8 div neg def
45: 1 1 4 {
46: .333 setgray
47: radius 0.5 moveto
48: tickLen 0 rlineto
49: stroke
50: 1.0 setgray
51: radius -.5 moveto
52: tickLen 0 rlineto
53: stroke
54: 90 rotate
55: } for
56: grestore
57: endps
58:
59: /* drawSundialFace scales coordinate system to draw ellipse. Draws tick marks
60: * around the border every pi/2 degrees.
61: */
62: defineps PSWdrawSundialFace (float x; float y; float radius)
63: gsave
64: x y translate
65: 1.6 .45 scale
66: 0 setlinewidth
67: .176 setgray
68: 0 -5 radius 0 360 arc fill
69: .835 setgray
70: 0 0 radius 1 sub 0 360 arc fill
71: .333 setgray
72: 0 0 radius 0 360 arc stroke
73:
74: /tickLen radius 4 div neg def
75: 1 1 8 {
76: 1.0 setgray
77: radius -.5 moveto
78: tickLen 0 rlineto stroke
79: .333 setgray
80: radius 0.5 moveto
81: tickLen 0 rlineto stroke
82: 45 rotate
83: } for
84: grestore
85: endps
86:
87: /* drawShadow draws the shadow of the sundial marker.
88: */
89: defineps PSWdrawShadow (float cx; float cy; float x; float y; float triangle)
90: gsave
91: cx cy translate
92: 1.6 .45 scale
93:
94: triangle neg 0 moveto
95: .333 setgray
96: 1.5 setlinewidth
97: x y lineto
98: triangle 0 lineto
99: stroke
100:
101: triangle neg 0 moveto
102: 0 setgray
103: 0.5 setlinewidth
104: 0 triangle 11 mul lineto
105: triangle 0 lineto
106: stroke
107: grestore
108: endps
109:
110:
111: /* drawSweep draws the second hand for the sundial (in the translated
112: * and scaled coordinate system.
113: */
114: defineps PSWdrawSweep (float x; float y; float angle;float length)
115: gsave
116: x y translate
117: 1.6 .45 scale
118: angle rotate
119: 0 0 moveto 0 length lineto
120: 0 setlinewidth
121: 0 setgray
122: stroke
123: grestore
124: endps
125:
126: /* centerShow centers the width of a string at the specific x y location
127: * using specified gray
128: */
129: defineps PSWcenterShow (float x; float y; char *str; float gray)
130: gray setgray
131: x (str) stringwidth pop 2 div sub y moveto
132: (str) show
133: stroke
134: endps
135:
136:
137:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.