New Sketch

By Mark J Philip
# bg
y=rectangle(w=300,h=300,fill="black",stroke="none")
show(y)


#ear
def dot(x, y):
    c = ellipse(x=x, y=y, w=10,h=25,fill="#C68642")
    return c
d1 = dot(x=40, y=8)
d2 = dot(x=-40, y=8)
show(d1, d2)


u1 = circle(x=0,y=-100,r=100,fill="red") |scale(x=.80)
show(u1)

#face
a3 =ellipse(x=0,y=10,w=75,h=95,fill="#C68642")
show(a3)

def dot(x, y):
    c = circle(x=x, y=y, r=3, fill="black")
    return c

d1 = dot(x=10, y=2)
d2 = dot(x=-10, y=2)
show(d1, d2) 

x1,y1 =-2,15
x2,y2 =2,15
x3,y3 =-18,18
x4,y4 =18,18
a1 =line(x1,y1,x3,y3,stroke= "white",stroke_width=4) +line(x2,y2,x4,y4,stroke= "white",stroke_width=4) 
show(a1)
#nose
a2 =ellipse(x=0,y=-5,w=10,h=5,fill="#C68642")
show(a2)

a4 = ellipse(x=0,y=15,w=70,h=30,fill="white",stroke="none")  | repeat(20*6, rotate(1)|scale(0.97)) 
a10 = a4 |rotate(180)
#show(a10)

a5 = ellipse(x=0,y=25,w=70,h=30,fill="red",stroke="none") | repeat(20*6, rotate(1)|scale(0.97)) 
a6 = a5 |rotate(180)

#show(a6)

s1 = circle(x=0,y=0,r=6,fill="white")
#show(s1)
q1 = a6 + s1 
#show(q1)
a7 = circle(x=0,y=25,r=30,fill="red") | repeat(10*4, rotate(10)|scale(0.96))
a8 = a7 |rotate(200)
#show(a8)

q2 = q1 |translate(x=0,y=20)
#show(q2)
#cap
q3 = a10 + q2
#show(q3)
cap = q3 |translate(x=0,y=50)
show(cap)

v1=a4 |translate(x=0,y=-60)
v2 = v1 |repeat(20,rotate(3))
#show(v1,v2)

#beard

a20 = ellipse(x=0,y=15,w=70,h=40,fill="#F9F6EE",stroke="none")  | repeat(25*6, rotate(20)|scale(0.97)) 
#show(a20)
a21 = a20 |repeat(20,rotate(45)) 
a22 = a21 |translate(x=0,y=-65)
a23 = a22 |repeat(3,rotate(30))
a24 = a23 |rotate(330)
show(a22,a24)

#spec

def dot(x, y):
    c = circle(x=x, y=y, r=8,fill="black",stroke="red")
    return c

d1 = dot(x=15, y=5)
d2 = dot(x=-15, y=5)

show(d1, d2)

x1,y1=40,15
x2,y2=-40,15
x3,y3=6,5
x4,y4=-6,5
w1 = line(x1,y1,x3,y3,stroke_width=4) +line(x2,y2,x4,y4,stroke_width=4)
w2 = line(x3,y3,x4,y4,stroke_width=3)
show(w1,w2)

t1 =point(x=50,y=0)
t2=point(x=0,y=5)
t3=point(x=0,y=-5)
r1 = polygon([t1,t2,t3],fill="#FFFAFA",stroke="none")| repeat(36*2, rotate(1)|scale(0.97))
#show(r1)
t1 =point(x=-50,y=0)
t2=point(x=0,y=5)
t3=point(x=0,y=-5)
r2 = polygon([t3,t2,t1],fill="#FFFAFA",stroke="none")| repeat(36*2, rotate(359)|scale(0.97))
#show(r2)

r3=r1 + r2

r4 = r3 |translate(x=0,y=-15)

show(r4)