/
musical_signs.ps
50 lines (39 loc) · 1.45 KB
/
musical_signs.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
%!PS-Adobe-2.0
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% This Postscript is Copyright (c) 2016, 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/muscript.ps) run
%%EndProlog
%%Page: 1 1
%%BeginPageSetup
%%EndPageSetup
% (/home/pjb/ps/lib/pjb_motifs.ps) run
(/home/pjb/ps/lib/colours.ps) run
(/home/pjb/ps/lib/random.ps) run
/xmax currentpagedevice (PageSize) get 0 get def
/ymax currentpagedevice (PageSize) get 1 get def
8885 srand
/signs [ /whiteblob /breve /bassclef /trebleclef /sharp /natural
/crochetrest ] def
0 0 xmax ymax black darkblue true 0.3 rectgradientfill
/i 0 def {
[ red grey darkgrey ] randomrgb setrgbcolor
290 105 grand 600 70 grand 8 30 irand add signs randomget cvx exec
/i i 1 add def i 300 gt { exit } if
} loop
white setrgbcolor
/i 0 def {
/theta 360 irand def
/r 30000 irand sqrt def
newpath 290 r theta cos mul add 230 r theta sin mul add 1 0 360 arc fill
/i i 1 add def i 1000 gt { exit } if
} loop
showpage
%%EOF