>	with(plots):

Warning, the name changecoords has been redefined

>

p1:=plot([t,t-10,t=.2..41],scaling=constrained,color=white): #1st base line p2:=plot([t,t+10,t=-9.8..-0.2],color=white): p3:=plot([t+10,-t,t=-9.8..-0.2],color=white): p4:=plot([t-10,-t,t=-30..9.8],color=white): #3rd base line p5:=plot([-9.8,t,t=-.2..(.2)],color=white,thickness=3): #3rd base p6:=plot([-10.2,t,t=-.2..(.2)],color=white,thickness=3): #3rd base p7:=plot([t-10,.2,t=-.2..(.2)],color=white,thickness=2): #3rd base p8:=plot([t-10,-.2,t=-.2..(.2)],color=white,thickness=3): #3rd base p9:=plot([9.8,t,t=-.2..(.2)],color=white,thickness=2): #1st base p10:=plot([10.2,t,t=-.2..(.2)],color=white,thickness=3):#1st base p11:=plot([t+10,.2,t=-.2..(.2)],color=white,thickness=3): #1st base p12:=plot([t+10,-.2,t=-.2..(.2)],color=white,thickness=3): #1st base p13:=plot([1.5*sin(t),1.5*cos(t) + 0.5,t=0..2*Pi],color=brown,filled=true): # Pitcher's mound p14:=plot([t,t-8,t=0..8],color=green,filled=true): #grass diamond p15:=plot([t,t+8,t=-8..0],color=green,filled=true): #grass diamond p16:=plot([t+8,-t,t=-8..0],color=green,filled=true): #grass diamond p17:=plot([t-8,-t,t=0..8],color=green,filled=true): #grass diamond p18:=plot([t-13.3,-t,t=0..13.3],color=brown,filled=true): #infield p19:=plot([t,t-13.3,t=0..13.3],color=brown,filled=true): #infield p20:=polarplot(10+sin(3*theta)+3,theta=0..Pi,color=brown,filled=true): #infield p21:=plot([t,t-20,t=20..48],color=white,filled=true):#right edge p22:=plot([t-20,-t,t=-28..20],color=white,filled=true): #left edge p23:=plot([-50*sin(t),-50*cos(t),t=2.65*Pi/4..5.35*Pi/4],color=green,filled=true): #outfield p24:=plot([-.2,t,t=9.8..10.2],color=white,thickness=3): #2nd base p25:=plot([.2,t,t=9.8..10.2],color=white,thickness=3):#2nd base p26:=plot([t,9.8,t=-.2..(.2)],color=white,thickness=3): #2nd base p27:=plot([t,10.2,t=-.2..(.2)],color=white,thickness=3): #2nd base p28:=plot([t,-9.8,t=-.2..(.2)],color=white, thickness=3): #home p29:=plot([-.2,t,t=-9.8..(-10)],color=white,thickness=3):#home p30:=plot([.2,t,t=-9.8..(-10)],color=white,thickness=3,scaling=constrained):#home p31:=plot([-50*sin(t),-50*cos(t),t=2.65*Pi/4..5.35*Pi/4],color=black,thickness=1): #outfield wall p32:=plot([t,t-20,t=0..48],color=black,thickness=2): #right wall p33:=plot([t-20,-t,t=-28..20],color=black,thickness=2): #left wall p34:=plot([t,.5,t=-.8..0.8],color=white,thickness=1): #pitcher's mound p35:=plot([t,t-20,t=-.5..28],color=green,filled=true): #infield foul p36:=plot([t-20,-t,t=0..20.5],color=green,filled=true): #infield foul p37:=plot([-51*sin(t),-51*cos(t),t=2.65*Pi/4..5.35*Pi/4],color=black,thickness=1): #stands p38:=plot([-52*sin(t),-52*cos(t),t=2.65*Pi/4..5.35*Pi/4],color=black,thickness=1): #stands p39:=plot([-53*sin(t),-53*cos(t),t=2.65*Pi/4..5.35*Pi/4],color=black,thickness=1): #stands p40:=plot([-54*sin(t),-54*cos(t),t=2.65*Pi/4..5.35*Pi/4],color=black,thickness=1): #stands p41:=plot([-55*sin(t),-55*cos(t),t=2.65*Pi/4..5.35*Pi/4],color=black,thickness=1): #stands p42:=plot([t,t-22,t=2..48],color=black): #right stands p43:=plot([t-22,-t,t=-26..20],color=black): #left stands p44:=plot([t,t-24,t=4..50],color=black): #right stands p45:=plot([t-24,-t,t=-26..20],color=black): #left stands p46:=plot([t,t-26,t=5..52],color=black): #right stands p47:=plot([t-26,-t,t=-26..21],color=black): #left stands p48:=plot([t,-20,t=-4.8..4.8],color=black): #home stands p49:=plot([t,-21,t=-5..5],color=black): #home stands p50:=plot([t,t-28,t=6..54],color=black): #right stands p51:=plot([t-28,-t,t=-26..22],color=black): #left stands p52:=plot([t,t-30,t=7..56],color=black): #right stands p53:=plot([t-30,-t,t=-26..23],color=black): #left stands p54:=plot([t,t-32,t=8..58],color=black): #right stands p55:=plot([t-32,-t,t=-26..24],color=black): #left stands p56:=plot([t,-22,t=-5.5..5.5],color=black): #home stands p57:=plot([t,-23,t=-6.8..6.8],color=black): #home stands p58:=plot([t,-24,t=-8..8],color=black): #home stands p59:=plot([-57*sin(t),-57*cos(t),t=2.6*Pi/4..5.4*Pi/4],color=black,thickness=1): #stands p60:=plot([-59*sin(t),-59*cos(t),t=2.58*Pi/4..5.42*Pi/4],color=black,thickness=1): #stands p61:=plot([-61*sin(t),-61*cos(t),t=2.56*Pi/4..5.44*Pi/4],color=black,thickness=1): #stands p62:=plot([-63*sin(t),-63*cos(t),t=2.54*Pi/4..5.46*Pi/4],color=black,thickness=1): #stands p63:=plot([-65*sin(t),-65*cos(t),t=2.52*Pi/4..5.48*Pi/4],color=black,thickness=2): #outer wall outfield p64:=plot([t,t-34,t=9..60],color=black,thickness=2): #outer wall right p65:=plot([t-34,-t,t=-26..25],color=black,thickness=2): #outer wall left p66:=plot([t,-25,t=-9..9],color=black,thickness=2): #home outer wall p67:=plot([1+3*sin(t),69+3*cos(t),t=0..2*Pi],color=blue): #baseball p68:=plot([t,((sin(t)/3) + 70.5),t=-1.8..3.7]): #baseball p69:=plot([t,(-(sin(t)/3) + 67.5),t=-1.8..3.7]):#baseball 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,axes=none);

>

>