restart;with(plots):with(plottools): Dhruv G.Dies et Nox dirt:=polygonplot([[14,.5],[-14,.5],[-14,-.5],[14,-.5]],color="SaddleBrown"): moon:=disk([0,12],1,color="Ivory"): day:=polygonplot([[-14,0],[14,0],[14,14],[-14,14]],color="SkyBlue"): bush:=disk([-5,2],1.5,color="ForestGreen"): shrub:=polygonplot([[5,0],[9,0],[7,-2.5]],color="ForestGreen"): sun:=disk([0,12],1,color="Gold"): night:=polygonplot([[14,0],[-14,0],[-14,-14],[14,-14]],color="DarkBlue"): f1:=display(((((rotate(sun,.5*Pi,[0,0]),(rotate(moon,-.5*Pi,[0,0])),dirt),bush),shrub),night),day): f3:=display(((((rotate(sun,.4*Pi,[0,0]),(rotate(moon,-.6*Pi,[0,0])),dirt),bush),shrub),day),night): f5:=display(((((rotate(sun,.3*Pi,[0,0]),(rotate(moon,-.7*Pi,[0,0])),dirt),bush),shrub),day),night): f7:=display(((((rotate(sun,.2*Pi,[0,0]),(rotate(moon,-.8*Pi,[0,0])),dirt),bush),shrub),day),night): f9:=display(((((rotate(sun,.1*Pi,[0,0]),(rotate(moon,-.9*Pi,[0,0])),dirt),bush),shrub),day),night): f11:=display(((((rotate(sun,.0*Pi,[0,0]),(rotate(moon,1*Pi,[0,0])),dirt),bush),shrub),day),night): f13:=display(((((rotate(sun,-.1*Pi,[0,0]),(rotate(moon,.9*Pi,[0,0])),dirt),bush),shrub),day),night): f15:=display(((((rotate(sun,-.2*Pi,[0,0]),(rotate(moon,.8*Pi,[0,0])),dirt),bush),shrub),day),night): f17:=display(((((rotate(sun,-.3*Pi,[0,0]),(rotate(moon,.7*Pi,[0,0])),dirt),bush),shrub),day),night): f19:=display(((((rotate(sun,-.4*Pi,[0,0]),(rotate(moon,.6*Pi,[0,0])),dirt),bush),shrub),day),night): f21:=display(((((rotate(sun,-.5*Pi,[0,0]),(rotate(moon,.5*Pi,[0,0])),dirt),bush),shrub),day),night): f2:=display(((((rotate(sun,.45*Pi,[0,0]),(rotate(moon,-.55*Pi,[0,0])),dirt),bush),shrub),day),night): f4:=display(((((rotate(sun,.35*Pi,[0,0]),(rotate(moon,-.65*Pi,[0,0])),dirt),bush),shrub),day),night): f6:=display(((((rotate(sun,.25*Pi,[0,0]),(rotate(moon,-.75*Pi,[0,0])),dirt),bush),shrub),day),night): f8:=display(((((rotate(sun,.15*Pi,[0,0]),(rotate(moon,-.85*Pi,[0,0])),dirt),bush),shrub),day),night): f10:=display(((((rotate(sun,.05*Pi,[0,0]),(rotate(moon,-.95*Pi,[0,0])),dirt),bush),shrub),day),night): f12:=display(((((rotate(sun,-.05*Pi,[0,0]),(rotate(moon,.95*Pi,[0,0])),dirt),bush),shrub),day),night): f18:=display(((((rotate(sun,-.35*Pi,[0,0]),(rotate(moon,.65*Pi,[0,0])),dirt),bush),shrub),day),night): f20:=display(((((rotate(sun,-.45*Pi,[0,0]),(rotate(moon,.55*Pi,[0,0])),dirt),bush),shrub),day),night): night2:=polygonplot([[-14,0],[14,0],[14,14],[-14,14]],color="DarkBlue"): day2:=polygonplot([[14,0],[-14,0],[-14,-14],[14,-14]],color="SkyBlue"): f22:=display(((((rotate(sun,-.55*Pi,[0,0]),(rotate(moon,.45*Pi,[0,0])),dirt),bush),shrub),day2),night2): f23:=display(((((rotate(sun,-.6*Pi,[0,0]),(rotate(moon,.4*Pi,[0,0])),dirt),bush),shrub),day2),night2): f24:=display(((((rotate(sun,-.65*Pi,[0,0]),(rotate(moon,.35*Pi,[0,0])),dirt),bush),shrub),day2),night2): f25:=display(((((rotate(sun,-.7*Pi,[0,0]),(rotate(moon,.3*Pi,[0,0])),dirt),bush),shrub),day2),night2): f26:=display(((((rotate(sun,-.75*Pi,[0,0]),(rotate(moon,.25*Pi,[0,0])),dirt),bush),shrub),day2),night2): f27:=display(((((rotate(sun,-.8*Pi,[0,0]),(rotate(moon,.2*Pi,[0,0])),dirt),bush),shrub),day2),night2): f28:=display(((((rotate(sun,-.85*Pi,[0,0]),(rotate(moon,.15*Pi,[0,0])),dirt),bush),shrub),day2),night2): f29:=display(((((rotate(sun,-.9*Pi,[0,0]),(rotate(moon,.1*Pi,[0,0])),dirt),bush),shrub),day2),night2): f30:=display(((((rotate(sun,-.95*Pi,[0,0]),(rotate(moon,.05*Pi,[0,0])),dirt),bush),shrub),day2),night2): f31:=display(((((rotate(sun,1*Pi,[0,0]),(rotate(moon,0*Pi,[0,0])),dirt),bush),shrub),day2),night2): f32:=display(((((rotate(sun,.95*Pi,[0,0]),(rotate(moon,-.05*Pi,[0,0])),dirt),bush),shrub),day2),night2): f33:=display(((((rotate(sun,.9*Pi,[0,0]),(rotate(moon,-.1*Pi,[0,0])),dirt),bush),shrub),day2),night2): f34:=display(((((rotate(sun,.85*Pi,[0,0]),(rotate(moon,-.15*Pi,[0,0])),dirt),bush),shrub),day2),night2): f35:=display(((((rotate(sun,.8*Pi,[0,0]),(rotate(moon,-.2*Pi,[0,0])),dirt),bush),shrub),day2),night2): f36:=display(((((rotate(sun,.75*Pi,[0,0]),(rotate(moon,-.25*Pi,[0,0])),dirt),bush),shrub),day2),night2): f37:=display(((((rotate(sun,.7*Pi,[0,0]),(rotate(moon,-.3*Pi,[0,0])),dirt),bush),shrub),day2),night2): f38:=display(((((rotate(sun,.65*Pi,[0,0]),(rotate(moon,-.35*Pi,[0,0])),dirt),bush),shrub),day2),night2): f39:=display(((((rotate(sun,.6*Pi,[0,0]),(rotate(moon,-.4*Pi,[0,0])),dirt),bush),shrub),day2),night2): f40:=display(((((rotate(sun,.55*Pi,[0,0]),(rotate(moon,-.45*Pi,[0,0])),dirt),bush),shrub),day2),night2): f41:=display(((((rotate(sun,.5*Pi,[0,0]),(rotate(moon,-.5*Pi,[0,0])),dirt),bush),shrub),day2),night2): f14:=display(((((rotate(sun,-.15*Pi,[0,0]),(rotate(moon,.85*Pi,[0,0])),dirt),bush),shrub),day),night): f16:=display(((((rotate(sun,-.25*Pi,[0,0]),(rotate(moon,.75*Pi,[0,0])),dirt),bush),shrub),day),night): display([ f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20, f21,f22,f23,f24,f25,f26,f27,f28,f29,f30,f31,f32,f33,f34,f35,f36,f37,f38,f39,f40,f41 ],insequence=true, scaling=constrained, axes=none, view=[-14..14,-14..14]);