Computer-Science-A-Level/you.ps at master · vandorena/Computer-Science-A-Level · 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
%!PS-Adobe-3.0

%% Font size and style
/fontsize 24 def
/font Helvetica findfont 1 scalefont setfont

%% Define some sizes and positions
/head_radius 50 def
/eye_radius 5 def
/mouth_width 30 def
/mouth_height 10 def
/text_y_offset 80 def

%% Draw the head
newpath
head_radius head_radius draw_circle
stroke

%% Draw the eyes
newpath
head_radius mul 0.3 sub head_radius mul 0.5 add eye_radius eye_radius draw_circle
fill
newpath
head_radius mul 0.7 sub head_radius mul 0.5 add eye_radius eye_radius draw_circle
fill

%% Draw the mouth
newpath
head_radius mul 0.5 sub mouth_width mul 0.5 neg  head_radius mul 0.2 add moveto
head_radius mul 0.5 sub mouth_width mul 0.5  head_radius mul 0.2 add lineto
head_radius mul 0.5  head_radius mul 0.2 neg  lineto
cycle
stroke

%% Draw hair lines
newpath
head_radius mul 1.1 head_radius mul 0.7 moveto
head_radius mul 1.3 head_radius mul 0.8 lineto
stroke
newpath
head_radius mul 1.1 head_radius mul 0.3 moveto
head_radius mul 1.3 head_radius mul 0.2 lineto
stroke

%% Write "Never" above the head
newpath
head_radius mul 0.5 text_y_offset add moveto
"Never" show

%% Write "Gonna" below the head
newpath
head_radius mul 0.5 text_y_offset neg mul  moveto
"Gonna" show

showpage