-
Notifications
You must be signed in to change notification settings - Fork 0
/
baingio_pinna_circles_2.ps
78 lines (73 loc) · 2.68 KB
/
baingio_pinna_circles_2.ps
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
%!PS-Adobe-2.0
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% This Postscript is Copyright (c) 2017, Peter J Billam %
% Permission is granted to any individual or institution to use, copy, %
% modify or redistribute this software, so long as it is not resold for %
% profit, and provided this notice is retained. It is provided "as is", %
% without any express or implied warranty. http://www.pjb.com.au %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%EndComments
%%BeginProlog
(/home/pjb/ps/lib/colours.ps) run
(/home/pjb/ps/lib/text.ps) run
(/home/pjb/ps/lib/fonts.ps) run
%%EndProlog
%%Page: 1 1
%%BeginPageSetup
%%EndPageSetup
/xmax currentpagedevice (PageSize) get 0 get def
/ymax currentpagedevice (PageSize) get 1 get def
/circle_of_squares {
% x y squareside nsquares inout dark light circle_of_squares
20 dict begin % this can hold up to twenty new local variables
/light 4 1 roll rgbdef
/dark 4 1 roll rgbdef
[ /inout /nsquares /squareside ] { exch def } forall
gsave translate
/radius 1.5 squareside mul nsquares mul 6.28318 div def
squareside 0.09 mul setlinewidth 0 setlinejoin
% 0 0 radius 0 360 arc stroke
0 1 nsquares { /i exch def
/theta 360 nsquares div i mul def
/x radius theta sin mul def
/y radius theta cos mul def
x xmid 0.9 mul lt x xmid -.9 mul gt and y ymid 0.52 mul lt and {
gsave
x y translate
15 inout mul theta sub rotate
[ light dark ] i 2 mod rgbget setrgbcolor
squareside -0.5 mul dup squareside dup rectstroke
grestore
} if
} for
grestore end
} def
% darkgrey setrgbcolor 0 0 xmax ymax rectfill
/xmid xmax 2 div def
/ymid ymax 0.64 mul def
/c1 blue 0.8 darkblue 0.2 rgbmix rgbdef
/c2 orange 0.8 darkorange 0.2 rgbmix rgbdef
newpath c2 setrgbcolor xmid ymid 20 0 360 arc closepath fill
xmid ymid 20 ymid 1.3 mul c2 c1 0.8 radialgradientfill
gsave
xmid 95 translate 1 2.5 scale
darkred 0.5 c1 0.5 rgbmix setrgbcolor
4 0 /FatSimple 95 (pjb.com.au) centreshow
grestore
/c3 black 0.7 c2 0.3 rgbmix rgbdef
xmid ymid 16 6 -1 c3 white circle_of_squares
/c3 black 0.8 c2 0.2 rgbmix rgbdef
xmid ymid 16 18 1 c3 white circle_of_squares
/c3 black 0.9 c2 0.1 rgbmix rgbdef
xmid ymid 16 30 -1 c3 white circle_of_squares
xmid ymid 16 44 1 black white circle_of_squares
xmid ymid 16 56 -1 black white circle_of_squares
xmid ymid 16 70 1 black white circle_of_squares
%/c3 white 0.7 c1 0.3 rgbmix rgbdef
xmid ymid 16 82 -1 black white circle_of_squares
/c3 white 0.6 c1 0.4 rgbmix rgbdef
xmid ymid 16 96 1 black c3 circle_of_squares
/c3 white 0.3 c1 0.7 rgbmix rgbdef
xmid ymid 16 108 -1 black c3 circle_of_squares
showpage
%%EOF