![[Plot]](images/Victoria_Bennett_1.gif)
| > | restart: |
| > | with(plots): |
Warning, the name changecoords has been redefined
eyes
| > | p1 := plot([2+.7*cos(t)-.3,7.5-1*sin(t),t=-5*Pi/6..-2.019*Pi],color=black,scaling=constrained): |
| > | p2 := plot([2+.57*cos(t)-.3,7.5-.5*sin(t),t=-Pi..-2*Pi],color=black): |
| > | p3 := plot([2+.57*cos(t)-.3,7.5+.5*sin(t),t=0..Pi/13],color=black): |
| > | p4 := plot([2+.57*cos(t)-.3,7.5+.8*sin(t),t=Pi..4*Pi/5],color=black): |
| > | p5 := plot([cos(0)*t-sin(0)*(-.2*(t-1)^2)+.2-.3,sin(0)*t+cos(0)*(-.2*(t-1)^2+8.5)-.5,t=1..2.6],color=black): |
| > | p6 := plot([cos(-Pi/10)*t-sin(-Pi/10)*(-.2*(t-1)^2)+.6-.3,sin(-Pi/10)*t+cos(-Pi/10)*(-.2*(t-1)^2+8.9)+.1,t=.5..2.2],color=black): |
| > | p7 := plot([-1+.7*cos(t)-.7,7.5-1*sin(t),t=-Pi/6.5..Pi],color=black): |
| > | p8 := plot([-1+.5*cos(t)-.7,7.5-.5*sin(t),t=Pi/2..Pi],color=black): |
| > | p9 := plot([-1+.5*cos(t)-.7,7.5+.5*sin(t),t=11*Pi/12..Pi],color=black): |
| > | p10 := plot([-1+.57*cos(t)-.7,7.5-.7*sin(t),t=-Pi/11..0],color=black): |
| > | p11 := plot([-1+.57*cos(t)-.7,7.5+.7*sin(t),t=0..Pi/4.5],color=black): |
| > | p12 := plot([-1+.57*cos(t)-.7,7.5-.5*sin(t),t=0..Pi/2],color=black): |
| > | p13 := plot([cos(-Pi/8)*t-sin(-Pi/8)*(-t^2/2)-.7,sin(-Pi/8)*t+cos(-Pi/8)*(-t^2/2+8)+.5,t=-1.5..-.2],color=black): |
| > | p14 := plot([cos(-Pi/12)*t-sin(-Pi/12)*(-t^2/2)+.1-.7,sin(-Pi/12)*t+cos(-Pi/12)*(-t^2/2+8)+.5,t=-1.45..-.2],color=black): |
nose
| > | p15 := plot([.5-3.2*cos(t),3.8-sin(t),t=6.3*Pi/6..11.65*Pi/6],color=brown): |
| > | p16 := plot([.5-3.5*cos(.1-t),3+3*sin(t),t=Pi..2*Pi],color=brown): |
| > | p17 := plot([.8*cos(t)+4,.8*sin(t)+3,t=2.96*Pi/2..2*Pi],color=brown): |
| > | p18 := plot([.9*cos(t)+3.9,1*sin(t)+3,t=2*Pi..5.3*Pi/2],color=brown): |
| > | p19 := plot([cos(t)+4.5,.9*sin(t)+2.23,t=1.7*Pi/3..5*Pi/6],color=brown): |
| > | p20 := plot([.9*cos(t)-2.8,1*sin(t)+3,t=Pi/3..Pi],color=brown): |
| > | p21 := plot([.7*cos(t)-3,.79*sin(t)+3,t=Pi..3.2*Pi/2],color=brown): |
| > | p22 := plot([cos(t)-3.5,sin(t)+2.16,t=Pi/6..Pi/2.5],color=brown): |
| > | p23 := plot([cos(t)-1.5,sin(t)+2.1,t=Pi/6..Pi/3],color=brown): |
| > | p24 := plot([cos(-Pi/2)*(-cos(t))-sin(-Pi/2)*(-sin(t))+3,sin(-Pi/2)*(-cos(t))+cos(-Pi/2)*(-sin(t))+2,t=Pi/6..Pi/3],color=brown): |
head
| > | p25 := plot([.5-3.6*cos(.1-t)-.6,8+3*sin(t),t=0..Pi/6],color=blue): |
| > | p26 := plot([.5-3.6*cos(.1-t)-.6,8+3*sin(t),t=3*Pi/4..6.3*Pi/6],color=blue): |
| > | p27 := plot([cos(Pi/6)*t-sin(Pi/6)*(-1.2*(t)^2)+3.81,sin(Pi/6)*t+cos(Pi/6)*(-1.2*(t)^2)+8.4,t=-1.85..-.7],color=blue): |
| > | p28 := plot([cos(Pi/2)*(4*t)-sin(Pi/2)*((t)^3)-3.35,sin(Pi/2)*(4*t)+cos(Pi/2)*((t)^3)+5.2,t=-.34..0.7],color=blue): |
face lines
| > | p29 := plot([cos(8*Pi/15)*t-sin(8*Pi/15)*(cos(.7*t)/5)+1,sin(8*Pi/15)*t+cos(8*Pi/15)*(cos(.7*t)/5)-1,t=1.853*Pi..3.18*Pi],color=blue): |
| > | p30 := plot([cos(8*Pi/15)*t-sin(8*Pi/15)*(cos(.7*t)/5)+1,sin(8*Pi/15)*t+cos(8*Pi/15)*(cos(.7*t)/5)-1,t=Pi/3..1.853*Pi],color=brown): |
hair
| > | p31 := plot([cos(-Pi/3)*(1.5*cos(t))-sin(-Pi/3)*sin(t)+.2,sin(-Pi/3)*(1.5*cos(t))+cos(-Pi/3)*sin(t)+9+1,t=-Pi/7.5..-2.2*Pi/2.8],color=black): |
| > | p32 := plot([cos(-Pi/2)*(1.7*cos(t))-sin(-Pi/2)*sin(t)+.97,sin(-Pi/2)*(1.7*cos(t))+cos(-Pi/2)*sin(t)+9.14+1,t=-Pi/7..-2.2*Pi/4],color=black): |
| > | p33 := plot([cos(-Pi/2.5)*(1.4*cos(t))-sin(-Pi/2.5)*sin(t)-0.98,sin(-Pi/2.5)*(1.4*cos(t))+cos(-Pi/2.5)*sin(t)+10.55,t=-Pi/4..-2.165*Pi/3],color=black): |
| > | p34 := plot([cos(-Pi/1.5)*(1.5*cos(t))-sin(-Pi/1.5)*sin(t)-.2,sin(-Pi/2)*(1.5*cos(t))+cos(-Pi/2)*sin(t)+9.45+1,t=-Pi/4..-2*Pi/3.6],color=black): |
| > | p35 := plot([cos(-Pi/3)*(1.5*cos(t))-sin(-Pi/3)*sin(t)+.967,sin(-Pi/3)*(1.5*cos(t))+cos(-Pi/3)*sin(t)+10.68,t=-Pi/3.5..-2*Pi/3.6],color=black): |
| > | p36 := plot([cos(-Pi/2)*(1.5*cos(t))-sin(-Pi/2)*sin(t)+1.51,sin(-Pi/2)*(1.5*cos(t))+cos(-Pi/2)*sin(t)+10.45,t=-Pi/3.6..-2*Pi/2.8],color=black): |
| > | p37 := plot([cos(-Pi/10)*(1.2*cos(t))-sin(-Pi/10)*sin(t)+1.225,sin(-Pi/10)*(1.2*cos(t))+cos(-Pi/10)*sin(t)+10.42,t=Pi/4.5..2*Pi/2.77],color=black): |
| > | p38 := plot([cos(-Pi/5)*(1.4*cos(t))-sin(-Pi/5)*sin(t)+1.04,sin(-Pi/5)*(1.4*cos(t))+cos(-Pi/5)*sin(t)+10.94,t=Pi/5..2*Pi/2.6],color=black): |
| > | p39 := plot([cos(Pi/17)*(1.5*cos(t))-sin(Pi/17)*sin(t)+1.48,sin(Pi/17)*(1.4*cos(t))+cos(Pi/17)*sin(t)+11.37,t=Pi/3..2*Pi/3],color=black): |
| > | p40 := plot([cos(-Pi/9)*(1.5*cos(t))-sin(-Pi/9)*sin(t)+1.059,sin(-Pi/9)*(1.4*cos(t))+cos(-Pi/9)*sin(t)+11.78,t=Pi/3..2*Pi/2.2],color=black): |
| > | p41 := plot([cos(Pi/4)*(1*cos(t))-sin(Pi/4)*sin(t)+.79,sin(Pi/4)*(1*cos(t))+cos(Pi/4)*sin(t)+12.658,t=Pi/2..2*Pi/2.5],color=black): |
| > | p42 := plot([cos(Pi/10)*(1*cos(t))-sin(Pi/10)*sin(t)+.392,sin(Pi/10)*(1*cos(t))+cos(Pi/10)*sin(t)+12.414,t=Pi/2..2*Pi/2.5],color=black): |
| > | p43 := plot([-cos(5*Pi/6)*(1.3*cos(t))+sin(5*Pi/6)*sin(t)-1.555,-sin(5*Pi/6)*(1.3*cos(t))-cos(5*Pi/6)*sin(t)+12.29496,t=Pi/3..2*Pi/2.5],color=black): |
| > | p44 := plot([-cos(2*Pi/3)*(1*cos(t))+sin(2*Pi/3)*sin(t)-2.275,-sin(2*Pi/3)*(1*cos(t))-cos(2*Pi/3)*sin(t)+12.3368,t=Pi/3..2*Pi/2.5],color=black): |
| > | p45 := plot([-cos(5*Pi/6)*(1.2*cos(t))+sin(5*Pi/6)*sin(t)-2.229,-sin(5*Pi/6)*(1.2*cos(t))-cos(5*Pi/6)*sin(t)+11.8855,t=Pi/3..2*Pi/2.2],color=black): |
| > | p46 := plot([-cos(2*Pi/3)*(1.2*cos(t))+sin(2*Pi/3)*sin(t)-2.754,-sin(2*Pi/3)*(1.2*cos(t))-cos(2*Pi/3)*sin(t)+11.565,t=Pi/2..2*Pi/2.2],color=black): |
| > | p47 := plot([-cos(Pi/5)*(1.6*cos(t))+sin(Pi/5)*sin(t)-2.0253,-sin(Pi/5)*(1.6*cos(t))-cos(Pi/5)*sin(t)+10.895,t=-Pi/6..-2*Pi/3],color=black): |
| > | p48 := plot([-cos(Pi/10)*(1.4*cos(t))+sin(Pi/10)*sin(t)-2.281,-sin(Pi/10)*(1.4*cos(t))-cos(Pi/10)*sin(t)+10.119,t=-Pi/4..-1.283*Pi/2],color=black): |
left ear
| > | p49 := plot([cos(5*Pi/4)*(8*t)-sin(5*Pi/4)*((.2*t)^5+3*t^3+3*t^2)-8.8,sin(5*Pi/4)*(8*t)+cos(5*Pi/4)*((.2*t)^5+3*t^3+3*t^2)+5.6,t=-.912..0],color=blue): |
| > | p50 := plot([cos(Pi/4)*(8*t)-sin(Pi/4)*((.3*t)^5+2*t^3+3*t^2)-5.8,sin(Pi/4)*(8*t)+cos(Pi/4)*((.3*t)^5+2*t^3+3*t^2)+4.4,t=-.4..0.5],color=magenta): |
| > | p51 := plot([cos(5*Pi/4)*(8*t)-sin(5*Pi/4)*((.2*t)^5+6*t^3+5*t^2)-8.3,sin(5*Pi/4)*(8*t)+cos(5*Pi/4)*((.2*t)^5+3*t^3+5*t^2)+5.6,t=-.9..0.463],color=blue): |
| > | p52 := plot([cos(5*Pi/4)*(8*t)-sin(5*Pi/4)*((.2*t)^5+15*t^3+5*t^2)-8.8,sin(5*Pi/4)*(8*t)+cos(5*Pi/4)*((.2*t)^5+30*t^3+5*t^2)+5.6,t=0..0.355],color=blue): |
| > | p53 := plot([cos(-Pi/6)*(2*t)-sin(-Pi/6)*((t*2.1)^2)-9.68,sin(-Pi/6)*(2*t)+cos(-Pi/6)*((t*2.1)^2)+1.97,t=-0.15..-0.04],color=blue): |
| > | p54 := plot([cos(-Pi/6)*(2*t)-sin(-Pi/6)*((t*2.1)^2)-9.68,sin(-Pi/6)*(2*t)+cos(-Pi/6)*((t*2.1)^2)+1.97,t=-.04..0.50],color=magenta): |
right ear
| > | p55 := plot([-cos(Pi/4)*(8*t)+sin(Pi/4)*((.3*t)^5+2*t^3+3*t^2)+5.61,sin(Pi/4)*(8*t)+cos(Pi/4)*((.3*t)^5+2*t^3+3*t^2)+4.5,t=-0.3..0.5],color=magenta): |
| > | p56 := plot([-cos(-Pi/6)*(2*t)+sin(-Pi/6)*((t*2.1)^2)+9.2,sin(-Pi/6)*(2*t)+cos(-Pi/6)*((t*2.1)^2)+2.248,t=0.083..0.59],color=magenta): |
| > | p57 := plot([-cos(-Pi/6)*(2*t)+sin(-Pi/6)*((t*2.1)^2)+9.2,sin(-Pi/6)*(2*t)+cos(-Pi/6)*((t*2.1)^2)+2.248,t=-.113..0.083],color=blue): |
| > | p58 := plot([-cos(Pi/4)*(8*t)+sin(Pi/4)*((.3*t)^5+2*t^3+3*t^2)+2.75,sin(Pi/4)*(8*t)+cos(Pi/4)*((.3*t)^5+3*t^3+3*t^2)+10.45,t=-.875..0.078],color=blue): |
| > | p59 := plot([-cos(5*Pi/4)*(8*t)+sin(5*Pi/4)*((.2*t)^5+6*t^3+5*t^2)+7.6,sin(5*Pi/4)*(8*t)+cos(5*Pi/4)*((.2*t)^5+3*t^3+5*t^2)+5.9,t=-.749..0.474],color=blue): |
| > | p60 := plot([-cos(5*Pi/4)*(8*t)+sin(5*Pi/4)*((.2*t)^5+15*t^3+5*t^2)+8.28,sin(5*Pi/4)*(8*t)+cos(5*Pi/4)*((.2*t)^5+30*t^3+5*t^2)+5.8,t=0.012..0.354],color=blue): |
face stiches
| > | p61 := plot([.5*cos(t)-.1,sin(t)+6.5,t=Pi/3..2*Pi/3],color=blue): |
| > | p62 := plot([.5*cos(t)-.031,sin(t)+6.2,t=Pi/3..2*Pi/3],color=blue): |
| > | p63 := plot([.6*cos(t)+.68,sin(t)+3.1,t=Pi/3..2*Pi/3],color=brown): |
| > | p64 := plot([.6*cos(t)+.67,sin(t)+2.8,t=Pi/3..2*Pi/3],color=brown): |
| > | p65 := plot([-.7*cos(t)+.7,-sin(t)+1.8,t=Pi/3..2*Pi/3],color=brown): |
bags
| > | p66 := plot([t+2.2,(.8*t)^2+5.7,t=-1..0.5],color=blue): |
| > | p67 := plot([t-2,(.8*t)^2+5.7,t=-0.5..1],color=blue): |
eye brows
| > | p68 := plot([cos(-Pi/14)*(1.45*cos(t))-sin(-Pi/14)*sin(t)+1.28,sin(-Pi/14)*(1.45*cos(t))+cos(-Pi/14)*sin(t)+8.3,t=Pi/4.5..2*Pi/2.77],color=black): |
| > | p69 := plot([cos(-Pi/6)*(1.7*cos(t))-sin(-Pi/6)*sin(t)+1.1,sin(-Pi/6)*(1.7*cos(t))+cos(-Pi/6)*sin(t)+8.7,t=Pi/5..2*Pi/2.85],color=black): |
| > | p70 := plot([-cos(-Pi/8)*(1.45*cos(t))+sin(-Pi/8)*sin(t)-1.7,sin(-Pi/8)*(1.45*cos(t))+cos(-Pi/8)*sin(t)+8,t=Pi/4.5..2*Pi/2.77],color=black): |
| > | p71 := plot([-cos(-Pi/4.5)*(1.7*cos(t))+sin(-Pi/4.5)*sin(t)-1.6,sin(-Pi/4.5)*(1.7*cos(t))+cos(-Pi/4.5)*sin(t)+8.4,t=Pi/5..2*Pi/3.1],color=black): |
body
| > | p72 := plot([cos(5*Pi/4)*(8*t)-sin(5*Pi/4)*((.2*t)^5+4*t^3+3*t^2)-8.36,sin(5*Pi/4)*(8*t)+cos(5*Pi/4)*((.2*t)^5+4*t^3+3*t^2)-.1,t=-1..-0.5],color=blue): |
| > | p73 := plot([cos(0)*(2*sin(t))-sin(0)*(5*cos(t))+3.73,sin(0)*(2*sin(t))+cos(0)*(5*cos(t))-1.8,t=.5..Pi/2.25],color=blue): |
| > | p74 := plot([cos(0)*(-3*sin(t))-sin(0)*(5*cos(t))-3.89,sin(0)*(-3*sin(t))+cos(0)*(5*cos(t))-1.8,t=.5..Pi/2.3],color=blue): |
words
| > | p75 := plot([.5*cos(t)-6-.6,sin(t)-2,t=0..2*Pi],color=violet): |
| > | p76 := plot([cos(Pi/4)*t-sin(Pi/4)*t-5-.6,sin(Pi/4)*t+cos(Pi/4)*t-3,t=0..1.3],color=violet): |
| > | p77 := plot([.4*cos(t)-4.8-.6,1*sin(t)-3,t=0..2*Pi/3],color=violet): |
| > | p78 := plot([.5*cos(t)-2.6-.6,sin(t)-2,t=Pi/3..5*Pi/3],color=violet): |
| > | p79 := plot([.4*cos(t)-1.5-.6,.5*sin(t)-2.5,t=0..2*Pi],color=violet): |
| > | p80 := plot([cos(0)*t-sin(0)*(-2*t)-1.16-.6,sin(0)*t+cos(0)*(-2*t)-2.2,t=0..0.4],color=violet): |
| > | p81 := plot([cos(Pi/4)*t-sin(Pi/4)*t-.3-.6,sin(Pi/4)*t+cos(Pi/4)*t-3,t=0..1.3],color=violet): |
| > | p82 := plot([.4*cos(t)+.7-.6,.5*sin(t)-2.5,t=Pi/3..5*Pi/3],color=violet): |
| > | p83 := plot([.4*cos(t)+2.06-.6,sin(t)-2,t=Pi..2*Pi],color=violet): |
| > | p84 := plot([cos(Pi/4)*t-sin(Pi/4)*t+3.1-.6,sin(Pi/4)*t+cos(Pi/4)*t-3,t=0..1.3],color=violet): |
| > | p85 := plot([.4*cos(t)+4.1-.6,sin(t)-2,t=Pi..2*Pi],color=violet): |
| > | p86 := plot([.4*cos(t)+5.3-.6,.3*sin(t)-2.3,t=0..Pi],color=violet): |
| > | p87 := plot([.8*t+5.3-.6,-(1.2*t)^3-2.5,t=-.5..0.5],color=violet): |
| > | p88 := plot([-.4*cos(t)+5.3-.6,-.3*sin(t)-2.7,t=-Pi..-2*Pi],color=violet): |
| > | p89 := plot([.1*cos(t)+6.3-.6,.1*sin(t)-2.9,t=0..2*Pi],color=violet): |
| > | p90 := plot([cos(Pi/4)*t-sin(Pi/4)*t+6.33-.6,sin(Pi/4)*t+cos(Pi/4)*t-3,t=0.25..1.3],color=violet): |
| > | display(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20,p21,p22,p23,p24,p25,p26,p27,p28,p29,p30,p31,p32,p33,p34,p35,p36,p37,p38,p39,p40,p41,p42,p43,p44,p45,p46,p47,p48,p49,p50,p51,p52,p53,p54,p55,p56,p57,p58,p59,p60,p61,p62,p63,p64,p65,p66,p67,p68,p69,p70,p71,p72,p73,p74,p75,p76,p77,p78,p79,p80,p81,p82,p83,p84,p85,p86,p87,p88,p89,p90); |
| > |
| > |