Pat_Benson.mw

> restart:
with(plots):


#frame

a1        :=plot([        t        ,        0        ,t=        0        ..        32        ],scaling=constrained,axes=none,color=black):

a2        :=plot([        t        ,        12*4        ,t=        0        ..        32],color=black):

a3        :=plot([        32        ,        t        ,t=        0        ..        48        ],color=black):

a4        :=plot([        0        ,        t        ,t=        0        ..        48],color=black):


#backround

#track                                                                

a5        :=plot([        20*cos(5*t)+35        ,        20*sin(t)+3.5        ,t=        2.86        ..        3.3        ],color=red,thickness=2):

a6        :=plot([        20*cos(4.99*t)+37        ,        20*sin(t)+3.5        ,t=        2.89        ..        3.3        ],color=red,thickness=2):                

#far line                                

a7        :=plot([5.7*t,t+13,t=0..1.65        ],color=red,thickness=2):

a8        :=plot([5.7*t,t+13,t=2.2..2.35        ],color=red,thickness=2):

a9        :=plot([        5.7*t,t+13,t=3.15..5.6        ],color=red,thickness=2):

a10:=plot([5.7*t,t+12.6,t=0..1.65        ],color=red,thickness=2):

a11:=plot([5.7*t,t+12.6,t=2.2..2.35        ],color=red,thickness=2):

a12:=plot([        5.7*t,t+12.6,t=3.15..5.6        ],color=red,thickness=2):

#middle line

a13:=plot([t,sqrt(t)+5,t=0..3],color=red,thickness=2):

a14:=plot([5*t,t+6.1,t=.55..1.9],color=red,thickness=2):

a15:=plot([5*t,t+6.1,t=2.5..6.35],color=red,thickness=2):

a16:=plot([t,sqrt(t)+5.5,t=0..3],color=red,thickness=2):

a17:=plot([5*t,t+6.6,t=.55..1.9],color=red,thickness=2):

a18:=plot([5*t,t+6.6,t=2.5..6.35],color=red,thickness=2):


#his right leg

b1:=plot([        -2.5*t+1.5*t^2+10.5,        (12-3.1)*t+3.1        ,t=        -.1        ..        1        ],color=orange,thickness=2):

b2        :=plot([        -2.5*t+1.5*t^2+10.5,        (12-3.1)*t+3.1        ,t=        -.1        ..        1        ],color=orange,thickness=2):

b2        :=plot([        9.4+t^2        ,        3*t        +13,t=-.6                ..        .4        ],color=orange,thickness=2):

b3 :=plot([-sqrt(.1*t)+9.8,t+14.2,t=0..4],color=orange,thickness=2):

b4 :=plot([.3*t^2+9.1,5*t+18.2,t=0..(.6)],color=orange,thickness=2):

b5:=plot([.2*t+12,4*t+4,t=-.2..1],color=orange,thickness=2):

b6:=plot([-.6*t^2+12.4,t*3+9.3,t=-.5..(.8)],color=orange,thickness=2):

b7:=plot([-.2*t^2+12.3,t*3+14,t=-.9..(.1)],color=orange,thickness=2):

b8:=plot([.8*t+.2*t^2+12.2,5*t+14,t=0..1.2],color=orange,thickness=2):

b9:=plot([t+11.1,.9*t+11.1,t=0..1],color=orange,thickness=2):


#his left leg

c1:=plot([.1*t+13.4,-3.5*t+20,t=0..1.5],color=orange,thickness=2):

c2:=plot([sqrt(t)-.01*t+15.5,t+11.4,t=0..7.8],color=orange,thickness=2):

c3:=plot([-sqrt(.2*t)+14.3,t+12.3,t=0..2.6],color=orange,thickness=2):

c4:=plot([cos(t)+15.4,.9*sin(t)+12.3,t=Pi..Pi/2+Pi+.1],color=orange,thickness=2):


#shorts

d1:=plot([1.3*cos(t)+10,2.7*sin(t)+22.8,t=1.4..1.3*Pi],color=black,thickness=2):

d2:=plot([t+9.4,1/t+24.5,t=1..5],color=black,thickness=2):

d3:=plot([3*t+14.2,-.07*t+24.6,t=0..1.25],color=black,thickness=2):

d4:=plot([.7*t+18,-1*t+24.6,t=0..1],color=black,thickness=2):

d5:=plot([t+10.6,.3*sin(t)+19.8-.1*t,t=0..(.85)*Pi],color=black,thickness=2):

d6:=plot([cos(t)+10.3,sin(t)+20.7,t=Pi+.2..Pi+1.9],color=black,thickness=2):

d7:=plot([t+14.5,.4*cos(.6*t)+19.3,t=-1..3.7],color=black,thickness=2):

d8:=plot([-.4*cos(t)+18.9,3*sin(t)+.2*t^2+21.7,t=-1.1..(.5)],color=black,thickness=2):

d9:=plot([.5*cos(t)+13.4,.3*sin(t)+19.8,t=0..Pi],color=black,thickness=2):

d10:=plot([sqrt(t)+15,t+21,t=0..2],color=black,thickness=2):

d11:=plot([-sqrt(t)+12,t+21,t=0..1.3],color=black,thickness=2):


#jersey

#his right side

e1:=plot([        10.5+t^2+.7*t        ,        3*t        +34.5,t=-1                ..        (.5)        ],color=gold,thickness=2):

e2:=plot([        -.4*cos(t)+10.4        ,        2.5*t+26.3        ,t=        0        ..(.7)*Pi        ],color=gold,thickness=2):

e3:=plot([.5*sin(exp(t^2))+.2*t+9.7,t+27,t=-1.45..-.2],color=gold,thickness=2):

e4:=plot([t+11.1,.9*t+36,t=0..1],color=gold,thickness=2):

#his left side

e5:=plot([cos(t)+19,4*sin(t)+35,t=Pi..5],color=gold,thickness=2):

e6:=plot([.6*cos(t)+18.5,4*sin(t)+33.4,t=.8*Pi/2..(.85)*Pi],color=gold,thickness=2):

e7:=plot([18,t+35,t=0..(.5)],color=gold,thickness=2):

e8:=plot([.00001*exp(1.2*t)*sin(t)+17.9, -t+34,t=7..9.5],color=gold,thickness=2):

e9:=plot([-.1*sin(2*t)+.6*t+18,t*2+27.1,t=0..(.8)*Pi],color=gold,thickness=2):

#middle near neck

e10:=plot([sqrt(t)+16,t+34.7,t=0..1.8],color=gold,thickness=2):

e11:=plot([4*cos(t)+16,2*sin(t)+36.7,t=1.7*Pi/2..Pi+.7*Pi/2],color=gold,thickness=2):

e12:=plot([1.7*t+14.2, -.1*t+34.9,t=0..1.1],color=gold,thickness=2):

e13:=plot([.7*t+17.3,36.4+1.2*t,t=0..1],color=gold,thickness=2):

e14:=plot([t+14,1/t+30,t=.4..2],color=gold,thickness=2):


#his right arm up to neck

f1:=plot([t^2+9.3,  2.3*sin(t)+35  ,t=-.1..1.4],color=orange,thickness=2):

f2:=plot([9.3,t+34,  t=.2..1]  ,color=orange,thickness=2):

f3:=plot([-1*sqrt(.8*t)+10.2,  -.9*t+35.2,t=.6..5],color=orange,thickness=2):

f4:=plot([3*t+11,.8*t+37.3,t=0..(.8)],color=orange,thickness=2):

f5:=plot([.4*t+13.3,2*t+37.6,t=-.1..1],color=orange,thickness=2):

f6:=plot([9.3+1.2*t,29.4+2.3*t,t=0..1],color=orange,thickness=2):


#his left arm up to neck

g1:=plot([5*cos(2*t)+19.5,5*sin(1.2*t)+33,t=.8..(.7)*Pi/2],color=orange,thickness=2):

g2:=plot([.5*cos(t)+17.1,.5*sin(t)+38.2,t=Pi..Pi+.9*Pi/2],color=orange,thickness=2):

g3:=plot([.8*t+19,-.3*t^2+37.1,t=0..3],color=orange,thickness=2):

g4:=plot([t+20.2,-.8*t^2+35.4,t=1..2.7],color=orange,thickness=2):

g5:=plot([cos(.4*t)+21.8,sin(.6*t)+29.4,t=0..1],color=orange,thickness=2):

g6:=plot([-1.5*t+22.7,-4*t+29.3,t=0..1.2],color=orange,thickness=2):

g7:=plot([t+17.1,20/t+24.5,t=2.1..3.6],color=orange,thickness=2):

g8:=plot([-.9*t+20.6,-4*t+29.8,t=-.1..1.3],color=orange,thickness=2):

g9:=plot([t*2+18.1,t+33.1,t=0..(.5)],color=orange,thickness=2):


#face

h1:=plot([-.2*cos(t)+.8*t^1.2+14.2,-sin(t)+39,t=.2..2.9],color=orange,thickness=2):

h2:=plot([-.2*sin(t)+14,t+39.2,t=-.3..2.9],color=orange,thickness=2):

h3:=plot([1.2*sin(1.1*t)+15.2+t,-2*cos(t)+39.9,t=1..2.6],color=orange,thickness=2):

h4:=plot([t+14,.5*sqrt(t)+42.1,t=0..1],color=orange,thickness=2):

h5:=plot([-t+18.2,.8*sqrt(t)+41.4,t=0..(.6)],color=orange,thickness=2):

h6:=plot([1.5*cos(1.2*t)-.2*t+16.9,sin(t)+.4*t+41,t=.9*Pi/4..Pi/2+Pi/4],color=orange,thickness=2):

#ears

h7:=plot([.3*cos(t)+13.8,.5*sin(t)+40.8,t=Pi/2..Pi+Pi/2],color=orange,thickness=2):

h8:=plot([-.2*cos(t)+17.9,.5*sin(t)+39.8,t=1.5*Pi/2..Pi+1.6*Pi/2],color=orange,thickness=2):

#hair

h9:=plot([t+16.2,-.1*cos(6*t)+.1*sin(8*t)-.3*t^2-.2*t+44.5,t=-2.8..2.6],color=black,thickness=2):h10:=plot([.2*sin(12*t)+.2*cos(14*t)-.2*sin(t)+.2*cos(t)+13.4,t+41.3,t=0..1.4],color=black,thickness=2):

h11:=plot([-.02*sin(12*t)+.09*cos(14*t)+t*.2+18.3,t+40,t=.2..2.1],color=black,thickness=2):


#his left hand

i1:=plot([.2*cos(t)+19.2,.2*sin(t)+22.1,t=Pi/2..Pi/2+Pi+1],color=orange,thickness=2):

i2:=plot([.2*cos(t)+19.6,.2*sin(t)+21.8,t=Pi/2..Pi/2+Pi+1],color=orange,thickness=2):

i3:=plot([.2*cos(t)+20,.2*sin(t)+21.5,t=Pi/2..Pi/2+Pi+1],color=orange,thickness=2):

i4:=plot([.2*cos(t)+20.5,.2*sin(t)+21.2,t=Pi/2..Pi/2+Pi+1],color=orange,thickness=2):

i5:=plot([.7*t+20.6, 2*t+21,t=0..(.5)],color=orange,thickness=2):

i6:=plot([.1*t+20.9, 2*t+21.9,t=0..(.5)],color=orange,thickness=2):

i7:=plot([-.3*cos(t)+21.1,sin(t)+23.8,t=-1.2..1],color=orange,thickness=2):

i8:=plot([.4*cos(t)+18.9,.3*sin(t)+23,t=-.5..Pi/2*1.5],color=orange,thickness=2):

i9:=plot([.8*t+18.6,t+23.7,t=0..1],color=orange,thickness=2):

i10:=plot([.2*cos(t)+18.5,.2*sin(t)+23.5,t=Pi/2..Pi/2+Pi+1],color=orange,thickness=2):


#his right hand

j1:=plot([.2*cos(t)+9,.2*sin(t)+29,t=-Pi/2..Pi/2+1],color=orange,thickness=2):

j2:=plot([.2*cos(t)+9.1,.2*sin(t)+29.4,t=-Pi/2..Pi/2+1],color=orange,thickness=2):

j3:=plot([.2*cos(t)+9,.2*sin(t)+29.7,t=-Pi/2..Pi/2+1],color=orange,thickness=2):

j4:=plot([.2*cos(t)+9,.2*sin(t)+30.1,t=-Pi/2..Pi/2+1],color=orange,thickness=2):

j5:=plot([.2*cos(t)+9,.2*sin(t)+30.9,t=-Pi/2..Pi/2+1],color=orange,thickness=2):

j6:=plot([.7*cos(t)+8.2,sin(t)+29.8,t=Pi/2..Pi/2+Pi],color=orange,thickness=2):

j7:=plot([t+8.2,28.7,t=0..(.8)],color=orange,thickness=2):

j8:=plot([t*1.1+8.1,t*.2+30.9,t=0..(.8)],color=orange,thickness=2):


#shoe

k1:=plot([sqrt(t)+11.1,t,t=0..2],color=black,thickness=2):

k2:=plot([-.3*t+(sqrt(2)+11.1),2+t,t=0..1.2],color=black,thickness=2):

k3:=plot([t+13.2,-.2*t^2+3.5,t=-4.2..-2.5],color=black,thickness=2):

k4:=plot([12.2+t*(-.2),3.1-.08*t,t=0..7],color=black,thickness=2):


#facial features

l1:=plot([t+15.9,abs(.2*t)-.2*t+41.3,t=-1.3..1.3],thickness=2,color=black):

l2:=plot([.4*cos(t)+15.1,.3*sin(t)+41.2,t=0..2*Pi],thickness=2,color=black):

l3:=plot([.4*cos(t)+16.5,.3*sin(t)+40.9,t=0..2*Pi],thickness=2,color=black):

l4:=plot([.1*cos(t)+16.6,.1*sin(t)+40.9,t=0..2*Pi],thickness=2,color=black):

l5:=plot([.1*cos(t)+15.2,.1*sin(t)+41.15,t=0..2*Pi],thickness=2,color=black):

l6:=plot([t+15,-.2*t+39.5,t=0..1],thickness=4,color=black):

l7:=plot([.2*cos(t)+15.5,.3*sin(t)+40.5,t=Pi/2..Pi/2+Pi],color=black):


#lights

m1:=plot([2*cos(t)+sin(2*t)+5.5,2*sin(t)+cos(2*t)+40.5,t=0..Pi*2],color=yellow):

m2:=plot([2*cos(t)+sin(2*t)+27.8,2*sin(t)+cos(2*t)+44.5,t=0..Pi*2],color=yellow):

m3:=plot([1.8*cos(t)+sin(2*t)+24.6,1.8*sin(t)+cos(2*t)+24.5,t=0..Pi*2],color=yellow):


z1:=(TEXT([16,45.5],'PREFONTAINE',ALIGNABOVE,FONT(TIMES,BOLD,14),COLOR(RGB,0.0,0.0,1.0))):


display(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,b1,b2,b3,b4,b5,b6,b7,b8,c1,c2,c3,c4,d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,e1,e2,e3,e4,e5,e6,e7,e8,e9,e10,e11,e12,e13,e14,f1,f2,f3,f4,f5,f6,g1,g2,g3,g4,g5,g6,g7,g8,g9,h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,j1,j2,j3,j4,j5,j6,j7,j8,k1,k2,k3,k4,l1,l2,l3,l4,l5,l6,l7,m1,m2,m3,z1);

Warning, the name changecoords has been redefined

[Plot]

>