> | 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
> |