-
Notifications
You must be signed in to change notification settings - Fork 0
/
hair_beauty.ps
52 lines (46 loc) · 2.01 KB
/
hair_beauty.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
%!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
%%EndProlog
%%Page: 1 1
%%BeginPageSetup
%%EndPageSetup
(/home/pjb/ps/lib/pjb_motifs.ps) run
(/home/pjb/ps/lib/colours.ps) run
% /curve_of_beauty_path { % usage: x0 y0 angle0 x1 y1 angle1
[ red black darkgrey ] randomrgb setrgbcolor
220 690 70 370 690 40 curve_of_beauty_path fill
[ red black darkgrey ] randomrgb setrgbcolor
120 610 60 250 705 40 curve_of_beauty_path fill
[ red black darkgrey ] randomrgb setrgbcolor
100 530 -40 120 670 -60 curve_of_beauty_path fill
[ red black darkgrey ] randomrgb setrgbcolor
120 400 50 130 600 40 curve_of_beauty_path fill
[ red black darkgrey ] randomrgb setrgbcolor
100 250 -60 100 500 -60 curve_of_beauty_path fill
[ red black darkgrey ] randomrgb setrgbcolor
125 110 60 135 350 60 curve_of_beauty_path fill
[ red black darkgrey ] randomrgb setrgbcolor
85 120 60 75 365 45 curve_of_beauty_path fill
[ red black darkgrey ] randomrgb setrgbcolor
165 110 50 165 230 -40 curve_of_beauty_path fill
[ red black darkgrey ] randomrgb setrgbcolor
250 650 40 360 630 50 curve_of_beauty_path fill
[ red black darkgrey ] randomrgb setrgbcolor
300 100 90 300 400 90 curve_of_beauty_path fill
[ red black darkgrey ] randomrgb setrgbcolor
510 100 60 355 350 60 curve_of_beauty_path fill
[ red orange violet ] randomrgb setrgbcolor
270 480 90 270 580 -90 curve_of_beauty_path fill
[ red orange violet ] randomrgb setrgbcolor
270 480 -90 270 580 90 curve_of_beauty_path fill
showpage
%%EOF