restart;with(plots):with(plottools):

nam n

The Lucky Fish

body := plot( [[0,0], [12,0], [12,5], [0,5], [0,0]], color="SkyBlue", filled = true):

water := plot( [[0,0], [12,0], [12,4.25], [0,4.25], [0,0]], color="DodgerBlue", filled = true):

base := display([body, water]):

pole1 := polygon([[9,0], [10,0], [10,5], [9,5]], color="Tan"):

base2 := display([pole1,body, water ]):

fishbody := ellipse([7,2.5],0.5, 0.25, color="LightSlateGray", filled= true):

fishtail := polygon([[7.5, 2.5], [7.75, 2.3],[7.75,2.7], [7.5, 2.5]], color="LightSlateGray"):

fisheye := disk([6.8,2.6],0.02, color=black):

fishy := display([fisheye,fishtail,fishbody]):

bfishbody := ellipse([10.5,2.5],1.25, .75, color="LightSlateGray", filled= true):

bfishtail := polygon([[11.75, 2.5], [12, 2.1],[12,2.9], [11.75, 2.5]], color="LightSlateGray"):

bfisheye := disk([9.8,2.8],0.07, color=black):

bfishmouth := polygon([[9.27,2.7],[9.8,2.5],[9.27,2.3]], color = "Salmon"):

bfishy := display([bfishmouth,bfisheye,bfishtail,bfishbody], scaling = constrained):

base1 := display([fishy, bfishy,base2]):

frame1 := display(base1):

f2 := translate(fishy, -0.25, 0):

bf2 := translate(bfishy, -0.25, 0):

f3 := translate(fishy, -0.5, 0):

bf3 := translate(bfishy, -0.5, 0):

f4 := translate(fishy, -0.75, 0):

bf4 := translate(bfishy, -0.75, 0):

f5 := translate(fishy, -1,0):

bf5 := translate(bfishy, -1, 0):

f6 := translate(fishy, -1.25,0):

bf6 := translate(bfishy, -1.25, 0):

f7 := translate(fishy, -1.75,0):

bf7 := translate(bfishy, -1.75, 0):

f71 := translate(fishy, -2,0):

bf8 := translate(bfishy, -2, 0):

f8 := translate(fishy, -2.55,0):

bf9 := translate(bfishy, -2.55, 0):

bf10 := translate(bfishy,-2.75, 0):

bf11 := translate(bfishy, -3,0):

bf12 := translate(bfishy, -3.25, 0):

bf13 := translate(bfishy, -3.5,0):

flg := plot([[4,4.75],[4,5]],color = black):

fhp := plot([[4,4.7],[4,4.75]],color = "Gainsboro", thickness = 3):

fhb := polygon([[4,4.7],[4.1,4.6],[4,4.4],[3.9,4.6]] ,color="Burlywood",filled = true):

fg := display(fhb,fhp,flg,frame1):

flg1 := plot([[4,4.5],[4,5]] ,color = black):

fhp1 := plot([[4,4.45],[4,4.5]],color = "Gainsboro", thickness = 3):

fhb1 := translate(fhb, 0,-0.25):

fg1 := display(fhb1,fhp1,flg1):

flg2 := plot([[4,4.25],[4,5]],color = black):

fhp2 := plot([[4,4.2],[4,4.25]],color = "Gainsboro", thickness = 3):

fhb2 := translate(fhb, 0,-0.5):

fg2 := display(fhb2,fhp2,flg2):

flg3 := plot([[4,4],[4,5]],color = black):

fhp3 := plot([[4,3.95],[4,4]],color = "Gainsboro", thickness = 3):

fhb3 := translate(fhb, 0,-0.75):

fg3 := display(fhb3,fhp3,flg3):

flg4 := plot([[4,3.75],[4,5]],color = black):

fhp4 := plot([[4,3.7],[4,3.75]],color = "Gainsboro", thickness = 3):

fhb4 := translate(fhb, 0,-1):

fg4 := display(fhb4,fhp4,flg4):

flg5 := plot([[4,3.5],[4,5]],color = black):

fhp5 := plot([[4,3.45],[4,3.5]],color = "Gainsboro", thickness = 3):

fhb5 := translate(fhb, 0,-1.25):

fg5 := display(fhb5,fhp5,flg5):

flg6 := plot([[4,3.25],[4,5]],color = black):

fhp6 := plot([[4,3.2],[4,3.25]],color = "Gainsboro", thickness = 3):

fhb6 := translate(fhb, 0,-1.5):

fg6 := display(fhb6,fhp6,flg6):

flg7 := plot([[4,3],[4,5]],color = black):

fhp7 := plot([[4,2.95],[4,3]],color = "Gainsboro", thickness = 3):

fhb7 := translate(fhb, 0,-1.75):

fg7 := display(fhb7,fhp7,flg7):

flg8 := plot([[4,2.75],[4,5]],color = black):

fhp8 := plot([[4,2.7],[4,2.75]],color = "Gainsboro", thickness = 3):

fhb8 := translate(fhb, 0,-2):

fg8 := display(fhb8,fhp8,flg8):

flg9 := plot([[4,2.65],[4,5]],color = black):

fhp9 := plot([[4,2.6],[4,2.65]],color = "Gainsboro", thickness = 3):

fhb9 := translate(fhb, 0,-2.1):

fg9 := display(fhb9,fhp9,flg9):

flg10 := plot([[4,2.45],[4,5]],color = black):

fhp10 := plot([[4,2.4],[4,2.45]],color = "Gainsboro", thickness = 3):

fhb10 := translate(fhb, 0,-2.25):

flg11 := plot([[4,2.25],[4,5]],color = black):

fhp11 := plot([[4,2.2],[4,2.25]],color = "Gainsboro", thickness = 3):

fhb11 := translate(fhb, 0,-2.5):

flg12 := plot([[4,2],[4,5]],color = black):

fhp12 := plot([[4,1.95],[4,2]],color = "Gainsboro", thickness = 3):

fhb12 := translate(fhb, 0,-2.75):

flg13 := plot([[4,1.75],[4,5]],color = black):

fhp13 := plot([[4,1.7],[4,1.75]],color = "Gainsboro", thickness = 3):

fhb13 := translate(fhb, 0,-3):

flg14 := plot([[4,1.5],[4,5]],color = black):

fhp14 := plot([[4,1.45],[4,1.5]],color = "Gainsboro", thickness = 3):

fhb14 := translate(fhb, 0,-3.25):

flg15 := plot([[4,1.],[4,5]],color = black):

fhp15 := plot([[4,0.95],[4,1.]],color = "Gainsboro", thickness = 3):

fhb15 := translate(fhb, 0,-3.7):

rfishup := rotate(f8, -Pi/10, [4,2.5]):

tfishup := translate(rfishup, 0,0.1):

fishup := display(tfishup):

rfishup1 := rotate(f8, -Pi/8, [4,2.5]):

tfishup1 := translate(rfishup1, 0,0.3):

fishup1 := display(tfishup1):

rfishup2 := rotate(f8, -Pi/6, [4,2.5]):

tfishup2 := translate(rfishup2, 0,0.45):

fishup2 := display(tfishup2):

rfishup3 := rotate(f8, -Pi/4, [4,2.5]):

tfishup3 := translate(rfishup3, 0,.60):

fishup3 := display(tfishup3):

rfishup4 := rotate(f8, -Pi/2, [4,2.5]):

tfishup4 := translate(rfishup4, 0,1):

fishup4 := display(tfishup4):

rfishup5 := rotate(f8, -Pi/2, [4,2.5]):

tfishup5 := translate(rfishup5, 0,1.25):

fishup5 := display(tfishup5):

rfishup6 := rotate(f8, -Pi/2, [4,2.5]):

tfishup6 := translate(rfishup6, 0,1.5):

fishup6 := display(tfishup6):

rfishup7 := rotate(f8, -Pi/2, [4,2.5]):

tfishup7 := translate(rfishup7, 0,1.75):

fishup7 := display(tfishup7):

rfishup8 := rotate(f8, -Pi/2, [4,2.5]):

tfishup8 := translate(rfishup8, 0,2.1):

fishup8 := display(tfishup8):

brfishup := rotate(bf13, -Pi/10, [5.7,2.5]):

btfishup := translate(brfishup, -0.1,0.01):

bfishup := display(btfishup):

brfishup1 := rotate(bf13, -Pi/10, [5.7,2.5]):

btfishup1 := translate(brfishup1, -0.1,0.1):

bfishup1 := display(btfishup1):

btfishup2:= translate( bfishup1, -0.2, .02):

bfishup2 := display(btfishup2):

btfishup3:= translate( bfishup2, -0.1, .03):

bfishup3 := display(btfishup3):

bf14 := translate(bfishy, -5.75,0):

brfishup4:= rotate(bf14, -Pi/2, [4,2.5]):

bfishup4 := display(brfishup4):

reel := display(fg9):

reel1 := display(fg8):

reel2 := display(fg7):

reel3 := display(fg6):

reel4 := display(fg5):

reel5 := display(fg4):

reel6 := display(fg3):

reel7 := display(fg2):

reel8 := display(fg):

fishon := display(fishup,reel):

fishon2 := display(fishup1,reel1):

fishon3 := display(fishup2,reel2):

fishon4 := display(fishup3,reel3):

fishon5 := display(fishup4,reel4):

fishon6 := display(fishup5,reel5):

fishon7 := display(fishup6,reel6):

fishon8 := display(fishup7,reel7):

fishon9 := display(fishup8,reel8):

fframe1 := display(fishy,bfishy, fg1,base2):

fframe2 := display(fishy,bfishy,fg2,base2):

fframe3 := display(fishy,bfishy,fg3,base2):

fframe4 := display(fishy,bfishy,fg4,base2):

fframe5 := display(fishy,bfishy,fg5,base2):

fframe6 := display(fishy,bfishy,fg6,base2):

fframe7 := display(fishy,bfishy,fg7,base2):

fframe8 := display(fishy,bfishy,fg8,base2):

fframe9 := display(fishy,bfishy,fg9,base2):

frame2 := display(f2,bf2,fg9,base2):

frame3 := display(f3,bf3,fg9,base2):

frame4 := display(f4,bf4,fg9,base2):

frame5 := display(f5,bf5,fg9,base2):

frame6 := display(f6,bf6,fg9,base2):

frame7 := display(f7,bf7,fg9,base2):

frame72 := display(f7,bf7,fg9,base2):

frame73 := display(f7,bf7,fg9,base2):

frame71 := display(f71,bf8,fg9,base2):

frame8 := display(f8,bf9,fg9,base2):

cframe := display(fishon,bf10,base2):

cframe2 := display(fishon2,bf11,base2):

cframe3 := display(fishon3,bf12,base2):

cframe4 := display(fishon4,bf13,base2):

cframe5 := display(fishon5,bfishup,base2):

cframe6 := display(fishon6,bfishup1,base2):

cframe7 := display(fishon7,bfishup2,base2):

cframe8 := display(fishon8,bfishup3,base2):

cframe9 := display(fishon9,base2):

sky := plot( [[0,0], [12,0], [12,5], [0,5], [0,0]], color="SkyBlue", filled = true):

pier := plot( [[6,0], [12,0], [12,0.25], [6,0.25], [6,0]], color="SaddleBrown", filled = true):

piers := display(pier,sky):

humanheads := disk([8,2.75],0.5, color="Wheat"):

humaneyes1 := disk([7.9,2.8],0.05, color = black):

humaneyes2 := disk([8.1,2.8],0.05, color = black):

humanhead := display(humaneyes1, humaneyes2, humanheads):

humanbody := disk( [8,1.75],1, color ="CornFlowerBlue"):

humanleg1 := plot([[7.75,0.25],[7.75,1]], color = "Wheat", thickness =10):

humanleg2 := plot([[8.25,0.25],[8.25,1]], color = "Wheat", thickness = 10):

humanlegs := display(humanleg1, humanleg2):

humanarm1 := plot([[7.3,2],[6.8,1.3]], color = "Wheat", thickness = 10):

humanarm2 := plot([[8.7,2],[9.2,1.3]], color = "Wheat", thickness = 10):

humanarms := display(humanarm1,humanarm2):

homan :=display(humanlegs,humanhead,humanarms,humanbody, scaling = constrained):

talks := textplot([8,4, "YAYAY!! I KNEW IT! TODAY IS A GOOD DAY FOR FISHING!"],'color' = "black", 'font' = ["Comfortaa", 14]):

talkbubbles := ellipse([8,4],3.5,0.75, color = white, filled = true):

talkss :=display(talks,talkbubbles):

rod := plot([[6.8,1.3], [4,4]], color = "Peru", thickness = 2):

fline := plot([[4,4],[4,0]], color = black):

fling := display(talkss,homan,rod,fline,piers):

rod1 := plot([[6.8,1.3], [4,4]], color = "Peru", thickness = 2):

fline1 := plot([[4,4],[4,1.25]], color = black):

fhooked1 := translate(rfishup4, 0, -1.25):

fling1 := display(talkss,fhooked1,homan,rod1,fline1,piers):

rod2 := plot([[6.8,1.3], [4,4]], color = "Peru", thickness = 2):

fline2 := plot([[4,4],[4,1.5]], color = black):

fhooked2 := translate(rfishup4, 0, -1):

fling2 := display(talkss,fhooked2,homan,rod2,fline2,piers):

rod3 := plot([[6.8,1.3], [4,4]], color = "Peru", thickness = 2):

fline3 := plot([[4,4],[4,1.75]], color = black):

fhooked3 := translate(rfishup4, 0, -0.75):

fling3 := display(talkss,fhooked3,homan,rod3,fline3,piers):

rod4 := plot([[6.8,1.3], [4,4]], color = "Peru", thickness = 2):

fline4 := plot([[4,4],[4,2]], color = black):

fhooked4 := translate(rfishup4, 0, -0.5):

fling4 := display(talkss,fhooked4,homan,rod4,fline4,piers):

rod5 := plot([[6.8,1.3], [4,4]], color = "Peru", thickness = 2):

fline5 := plot([[4,4],[4,2.25]], color = black):

fhooked5 := translate(rfishup4, 0, -0.25):

fling5 := display(talkss,fhooked5,homan,rod5,fline5,piers):

rod6 := plot([[6.8,1.3], [4,4]], color = "Peru", thickness = 2):

fline6 := plot([[4,4],[4,2.5]], color = black):

fling6 := display(talkss,homan,rfishup4,rod6,fline6,piers):

fling7:= display(talkss,homan,rod6,fline6,piers):

fling8 := display(homan,rod6,fline6,piers):

framer:= display(fling,fling2,fling3,fling4,fling5,fling6,fling6,fling6,fling6,fling6,fling6,fling6,insequence = true , scaling = constrained):

talk := textplot([8,4, "Today is going to be a good day for fishing"],'color' = "black", font= ["Comfortaa", 14]):

talkbubble := ellipse([8,4],3.5,.5, color = white, filled = true):

talks :=display(talk,talkbubble):

bait := display(fhb4,fhp4,flg4):

fbait := translate(bait, 0, -1):

ffbait := display(talks,homan,fbait,rod,piers, scaling = constrained):

bait1 := display(fhb5,fhp5,flg5):

fbait1 := translate(bait1, 0, -1):

ffbait1 := display(talks,homan,fbait1,rod,piers, scaling = constrained):

bait2 := display(fhb6,fhp6,flg6):

fbait2 := translate(bait2, 0, -1):

ffbait2 := display(talks,homan,fbait2,rod,piers, scaling = constrained):

bait3 := display(fhb7,fhp7,flg7):

fbait3 := translate(bait3, 0, -1):

ffbait3 := display(talks,homan,fbait3,rod,piers, scaling = constrained):

bait4 := display(fhb8,fhp8,flg8):

fbait4 := translate(bait4, 0, -1):

ffbait4 := display(talks,homan,fbait4,rod,piers, scaling = constrained):

bait5 := display(fhb9,fhp9,flg9):

fbait5 := translate(bait5, 0, -1):

ffbait5 := display(talks,homan,fbait5,rod,piers, scaling = constrained):

bait6 := display(fhb10,fhp10,flg10):

fbait6 := translate(bait6, 0, -1):

ffbait6 := display(talks,homan,fbait6,rod,piers, scaling = constrained):

bait7 := display(fhb11,fhp11,flg11):

fbait7 := translate(bait7, 0, -1):

ffbait7 := display(talks,homan,fbait7,rod,piers, scaling = constrained):

bait8 := display(fhb12,fhp12,flg12):

fbait8 := translate(bait8, 0, -1):

ffbait8 := display(talks,homan,fbait8,rod,piers, scaling = constrained):

bait9 := display(fhb13,fhp13,flg13):

fbait9 := translate(bait9, 0, -1):

ffbait9 := display(talks,homan,fbait9,rod,piers, scaling = constrained):

bait10 := display(fhb14,fhp14,flg14):

fbait10 := translate(bait10, 0, -1):

ffbait10 := display(talks,homan,fbait10,rod,piers, scaling = constrained):

bait11 := display(fhb15,fhp15,flg15):

fbait11 := translate(bait11, 0, -1):

bffbait11 := display(homan,fbait11,rod,piers, scaling = constrained):

wait := textplot([8,4, "OH I THINK I HAVE A FISH ON!!"],'color' = "black", 'font' = ["Comfortaa", 14]):

talkbubbles := ellipse([8,4],2.75,0.5, color = white, filled = true):

ffbait11 := display(wait,talkbubbles,bffbait11):

reel := textplot([8,4, "Let me reel it up to check."],'color' = "black", 'font' = ["Comfortaa", 14]):

talkbubbless := ellipse([8,4],2.5,0.5, color = white, filled = true):

freel := display(reel,talkbubbless,bffbait11):

wfbait11 := display(bffbait11):

eat := translate(bfishup4, 0, -3):

beat:= display(eat,fling6):

eat1 := translate(bfishup4, 0, -2.75):

beat1:= display(eat1,fling6):

eat2 := translate(bfishup4, 0, -2.5):

beat2:= display(eat2,fling6):

eat3 := translate(bfishup4, 0, -2.25):

beat3:= display(eat3,fling6):

eat4 := translate(bfishup4, 0, -2.):

beat4 := display(eat4,fling6):

eat5 := translate(bfishup4, 0, -1.75):

beat5 := display(eat5,fling6):

eat6 := translate(bfishup4, 0, -1.5):

beat6 := display(eat6,fling6):

eat7 := translate(bfishup4, 0, -1.25):

beat7 := display(eat7,fling6):

eat8 := translate(bfishup4, 0, -1):

beat8 := display(eat8,fling6):

eat9 := translate(bfishup4, 0, -.75):

beat9 := display(eat9,fling6):

eat10 := translate(bfishup4, 0, -.5):

beat10 := display(eat10,fling6):

eat11 := translate(bfishup4, 0, -.25):

beat11 := display(eat11,fling7, scaling = constrained):

beat111 := display(fling7, scaling = constrained):

beat1111 := display(fling8):

frameb := display(beat,beat1,beat2,beat3,beat4,beat5,beat6,beat7,beat8,beat9,beat10,beat11, insequence = true, scaling = constrained):

frames := display(ffbait, ffbait,ffbait,ffbait,ffbait,ffbait,ffbait,ffbait,ffbait,ffbait,ffbait,ffbait,ffbait,ffbait,ffbait,ffbait1,ffbait2,ffbait3,ffbait4,ffbait5,ffbait6,ffbait7,ffbait8,ffbait9,ffbait10,wfbait11,wfbait11,wfbait11,wfbait11,wfbait11,wfbait11,wfbait11,wfbait11,wfbait11,wfbait11,wfbait11,wfbait11,wfbait11,wfbait11,wfbait11,wfbait11,wfbait11,wfbait11,wfbait11,insequence = true , scaling = constrained):

framee := display([fframe1, fframe2, fframe3, fframe4, fframe5, fframe6, fframe7, fframe8, fframe9, frame2, frame3, frame4, frame5, frame6, frame7, frame72, frame73,frame71, frame8, frame8,frame8,frame8,frame8,frame8,frame8,frame8,frame8,frame8,frame8,frame8,frame8,frame8,ffbait11,ffbait11,ffbait11,ffbait11,ffbait11,ffbait11,ffbait11,ffbait11,ffbait11,ffbait11,ffbait11,ffbait11,ffbait11,ffbait11,ffbait11,ffbait11,ffbait11,ffbait11,ffbait11,ffbait11,ffbait11,freel,freel,freel,freel,freel,freel,freel,freel,freel,freel,freel,freel,freel,freel,freel,freel,freel,cframe,cframe2,cframe3,cframe4,cframe5,cframe6,cframe7,cframe8], insequence = true, scaling = constrained):

bloss := translate(eat11, 0 , -0.25):

biloss := display(bloss,beat111):

bloss2 := translate(eat11, 0 , -0.5):

biloss2 := display(bloss2,beat111):

bloss3 := translate(eat11, 0 , -0.75):

biloss3 := display(bloss3,beat111):

bloss4 := translate(eat11, 0 , -1):

biloss4 := display(bloss4,beat111):

bloss5 := translate(eat11, 0 , -1.25):

biloss5 := display(bloss5,beat111):

bloss6 := translate(eat11, 0 , -1.5):

biloss6 := display(bloss6,beat111):

bloss7 := translate(eat11, 0 , -1.75):

biloss7 := display(bloss7,beat111):

bloss8 := translate(eat11, 0 , -2):

biloss8:= display(bloss8,beat111):

bloss9 := translate(eat11, 0 , -2.25):

biloss9 := display(bloss9,beat111):

bloss10 := translate(eat11, 0 , -2.5):

biloss10 := display(bloss10,beat111):

bloss11 := translate(eat11, 0 , -2.75):

biloss11 := display(bloss11,beat111):

bloss12 := translate(eat11, 0 , -3):

biloss12 := display(bloss12,beat111):

biloss13 := display(beat111):

sad := textplot([8,4, "NOOO MY FISHY!!!"],'color' = "black", 'font' = ["Comfortaa", 14]):

sadd := ellipse([8,4],1.75,0.5, color = white, filled = true):

sadness := display(sad,sadd,beat1111):

crys1 := plot([[7.9,2.7],[7.9,2.75]], color = "PaleTurquoise", thickness = 10):

crys2 := plot([[8.1,2.7],[8.1,2.75]], color = "PaleTurquoise", thickness = 10):

cryi1 := display(sadness,crys1, crys2,homan):

crys11 := plot([[7.9,2.6],[7.9,2.75]], color = "PaleTurquoise", thickness = 10):

crys21 := plot([[8.1,2.6],[8.1,2.75]], color = "PaleTurquoise", thickness = 10):

cryi2 := display(sadness,crys11, crys21,homan):

crys12 := plot([[7.9,2.5],[7.9,2.75]], color = "PaleTurquoise", thickness = 10):

crys22 := plot([[8.1,2.5],[8.1,2.75]], color = "PaleTurquoise", thickness = 10):

cryi3 := display(sadness,crys12, crys22,homan):

crys13 := plot([[7.9,2.4],[7.9,2.75]], color = "PaleTurquoise", thickness = 10):

crys23 := plot([[8.1,2.4],[8.1,2.75]], color = "PaleTurquoise", thickness = 10):

cryi4 := display(sadness,crys13, crys23,homan):

tend := textplot([6,1, "Took me some work to get this good meal"],'color' = "black", 'font' = ["Comfortaa", 14]):

edn := ellipse([6,1],3.5,0.5, color = white, filled = true):

endds := display(tend,edn):

ishend := translate(bf13, -0.25,0):

ishend1 := translate(bf13, -0.5,0):

ishend2 := translate(bf13, -0.75,0):

ishend3 := translate(bf13, -1,0):

ishend4 := translate(bf13, -1.25,0):

ishend5 := translate(bf13, -1.55,0):

ishend6 := translate(bf13, -1.75,0):

ishend7 := translate(bf13, -2,0):

ishend8 := translate(bf13, -2.25,0):

ishend9 := translate(bf13, -2.5,0):

ishend10 := translate(bf13, -2.75,0):

ishend11 := translate(bf13, -3,0):

ishend12 := translate(bf13, -3.25,0):

ishend13 := translate(bf13, -3.5,0):

ishend14 := translate(bf13, -3.75,0):

ishend15 := translate(bf13, -4,0):

ishend16 := translate(bf13, -4.25,0):

ishend17 := translate(bf13,-4.5,0):

ishend18 := translate(bf13, -4.75,0):

ishend19 := translate(bf13, -5,0):

ishend20 := translate(bf13, -5.25,0):

ishend21 := translate(bf13, -5.5,0):

ishend22 := translate(bf13, -5.75,0):

ishend23 := translate(bf13, -6,0):

ishend24 := translate(bf13, -6.25,0):

ishend25 := translate(bf13, -6.5,0):

ishend26 := translate(bf13, -6.75,0):

ishend27 := translate(bf13, -7,0):

ishend28 := translate(bf13, -7.25,0):

ishend29 := translate(bf13, -7.5,0):

ishend30 := translate(bf13, -7.75,0):

ishend31 := translate(bf13, -8,0):

ishend32 := translate(bf13, -8.25,0):

ishend33 := translate(bf13, -8.5,0):

ishend34 := translate(bf13, -8.75,0):

ishend35 := translate(bf13, -9,0):

ishend36 := translate(bf13, -9.25,0):

ishend37 := translate(bf13, -9.5,0):

fishend := display(ishend ,endds, base2):

fishend1 := display(ishend1 ,endds, base2):

fishend2 := display(ishend2 ,endds, base2):

fishend3 := display(ishend3 ,endds, base2):

fishend4 := display(ishend4 ,endds, base2):

fishend5 := display(ishend5 ,endds, base2):

fishend6 := display(ishend6 ,endds, base2):

fishend7 := display(ishend7 ,endds, base2):

fishend8 := display(ishend8 ,endds, base2):

fishend9 := display(ishend9 ,endds, base2):

fishend10 := display(ishend10 ,endds, base2):

fishend11 := display(ishend11 ,endds, base2):

fishend12 := display(ishend12 ,endds, base2):

fishend13 := display(ishend13 ,endds, base2):

fishend14 := display(ishend14 ,endds, base2):

fishend15 := display(ishend15 ,endds, base2):

fishend16 := display(ishend16 ,endds, base2):

fishend17 := display(ishend17 ,endds, base2):

fishend18 := display(ishend18 ,endds, base2):

fishend19 := display(ishend19 ,endds, base2):

fishend20 := display(ishend20 ,endds, base2):

fishend21 := display(ishend21 ,endds, base2):

fishend22 := display(ishend22 ,endds, base2):

fishend23 := display(ishend23 ,endds, base2):

fishend24 := display(ishend24 ,endds, base2):

fishend25 := display(ishend25 ,endds, base2):

fishend26 := display(ishend26 ,endds, base2):

fishend27 := display(ishend27 ,endds, base2):

fishend28 := display(ishend28 ,endds, base2):

fishend29 := display(ishend29 ,endds, base2):

fishend30 := display(ishend30 ,endds, base2):

fishend31 := display(ishend31 ,endds, base2):

fishend32 := display(ishend32 ,endds, base2):

fishend33 := display(ishend33 ,endds, base2):

fishend34 := display(ishend34 ,endds, base2):

fishend35 := display(ishend35 ,endds, base2):

fishend36 := display(ishend36 ,endds, base2):

fishend37 := display(ishend37 ,endds, base2):

hend := translate(endds, -0.25,0):

hend1 := translate(endds, -0.5,0):

hend2 := translate(endds, -0.75,0):

hend3 := translate(endds, -1,0):

hend4 := translate(endds, -1.25,0):

hend5 := translate(endds, -1.55,0):

hend6 := translate(endds, -1.75,0):

hend7 := translate(endds, -2,0):

hend8 := translate(endds, -2.25,0):

hend9 := translate(endds, -2.5,0):

hend10 := translate(endds, -2.75,0):

hend11 := translate(endds, -3,0):

hend12 := translate(endds, -3.25,0):

hend13 := translate(endds, -3.5,0):

hend14 := translate(endds, -3.75,0):

hend15 := translate(endds, -4,0):

hend16 := translate(endds, -4.25,0):

hend17 := translate(endds,-4.5,0):

hend18 := translate(endds, -4.75,0):

hend19 := translate(endds, -5,0):

hend20 := translate(endds, -5.25,0):

hend21 := translate(endds, -5.5,0):

hend22 := translate(endds, -5.75,0):

hend23 := translate(endds, -6,0):

hend24 := translate(endds, -6.25,0):

hend25 := translate(endds, -6.5,0):

hend26 := translate(endds, -6.75,0):

hend27 := translate(endds, -7,0):

hend28 := translate(endds, -7.25,0):

hend29 := translate(endds, -7.5,0):

hend30 := translate(endds, -7.75,0):

hend31 := translate(endds, -8,0):

hend32 := translate(endds, -8.25,0):

hend33 := translate(endds, -8.5,0):

hend34 := translate(endds, -8.75,0):

hend35 := translate(endds, -9,0):

hend36 := translate(endds, -9.25,0):

hend37 := translate(endds, -9.5,0):

shend := display(hend , base2):

shend1 := display(hend1 , base2):

shend2 := display(hend2 , base2):

shend3 := display(hend3 , base2):

shend4 := display(hend4 , base2):

shend5 := display(hend5 , base2):

shend6 := display(hend6 , base2):

shend7 := display(hend7 , base2):

shend8 := display(hend8 , base2):

shend9 := display(hend9 , base2):

shend10 := display(hend10 , base2):

tend2 := textplot([6,2.5, "THE END"],'color' = "black", 'font' = ["Comfortaa", 50]):

tend3 := textplot([6,1.8, "By: Nam N."],'color' = "black", 'font' = ["Comfortaa", 14]):

FINALLY := display(tend2,tend3,base2):

FINISHED := display([fishend,fishend1,fishend2,fishend3,fishend4,fishend5,fishend6,fishend7,fishend8,fishend9,fishend10,fishend11,fishend12,fishend13, fishend14,fishend15,fishend16,fishend17,fishend18, fishend19,fishend20,fishend21,fishend22,fishend23,fishend24,fishend25,fishend26,fishend27,fishend28,fishend29,fishend30,fishend31,fishend32,fishend33,fishend34,fishend35,fishend36,fishend37,shend,shend1,shend2,shend3,shend4,shend5,shend6,shend7,shend8,shend9,shend10, FINALLY,FINALLY,FINALLY],insequence = true):

framel := display([biloss,biloss2,biloss3,biloss4,biloss5,biloss6,biloss7,biloss8,biloss9,biloss10,biloss11,biloss12,cryi1,cryi1,cryi1,cryi2,cryi2,cryi2,cryi3,cryi3,cryi3,cryi4,cryi4,cryi4,cryi4,cryi4,cryi4,cryi4,cryi4,cryi4,cryi4,cryi4,cryi4,cryi4,cryi4,cryi4,cryi4,cryi4,cryi4,cryi4,cryi4,cryi4,cryi4],insequence = true):

mainframe := display([frames,framee, framer,frameb,framel,FINISHED], insequence = true,view=[0..12,0..5], scaling = constrained, axes = none,size=[700,350]); # speed 10