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

mayu_f

Tac The Cat

note to counselors: in hindsight, this could have been done with translate, but was done manually.

head:=plot([[1,4],[0,5],[0,6],[1,8],[1.25,7],[2.75,7],[3,8],[4,6],[4,5],[3,4],[1,4]], color=black):

body:=plot([[1,0],[0,1],[0,3],[1,4],[8,4],[9,3],[9,1],[8,0],[1,0]], color=black, scaling=constrained):

tail:=plot([[9,3],[9.75,3.25],[10,4],[9.75,4.75],[9,5],[8.25,4.75],[8,4],[9,3]], color=black):

taca:=display([head, body, tail], scaling=constrained):

lefti:=disk([1.35,5.75], .125, color=black):

righti:=disk([2.65,5.75], .125, color=black):

normalis:=display([lefti, righti], scaling=constrained):

nose:=disk([2,5.25],.075, color=black):

mouthclose:=plot([[1.75, 5],[2,5.16],[2.25, 5]], color=black, scaling=constrained):

line1:=([[1, 5.25],[.25,5.25]]):

line2:=([[1, 5],[.25,5]]):

line3:=([[1, 4.75],[.25,4.75]]):

line6:=([[3.75, 4.75],[3,4.75]]):

line5:=([[3.75, 5],[3,5]]):

line4:=([[3.75, 5.25],[3,5.25]]):

hige:=plot([line1, line2, line3, line4, line5, line6], color=black):

Tac:=display([taca, normalis, nose, mouthclose, hige], axes=none):

openhead:=plot([[1,4],[0,5],[0,9],[1,11],[1.25,10],[2.75,10],[3,11],[4,9],[4,5],[3,4],[1,4]], color=black):

mouthopen:=polygon([[1.5, 4.5],[.5,5.5],[.5,7.5],[1.5,8.5],[2.5,8.5],[3.5,7.5],[3.5,5.5],[2.5,4.5],[1.5,4.5]],color=black, filled=true, scaling=constrained):

eye1:=disk([1.5,9], .25, color=black):

eye2:=disk([2.5,9], .25, color=black):

line7:=plot([[1.5, 8.85], [1.5, 9.15]], color=yellow):

line8:=plot([[2.5, 8.85], [2.5, 9.15]], color=yellow):

line7outline:=plot([[1.5, 8.85], [1.5, 9.15]], color=black, thickness=5):

line8outline:=plot([[2.5, 8.85], [2.5, 9.15]], color=black, thickness=5):

cateyes:=display([eye1, eye2,line7, line8], scaling=constrained):

tooth:=polygon([[1,8],[1.5,7],[1.5,8.5],[1,8]], color=white, filled=true):

tooth2:=polygon([[2.5,8.5],[2.5,7],[3,8],[2.5,8.5]], color=white, filled=true):

eatingtac:=display([cateyes, tooth, tooth2, mouthopen, openhead, body, tail], axes=normal, scaling=constrained):

mouth1:=plot([[1.85,5.06],[2,5],[2.15,5.06]], color=black, scaling=constrained):

talkingmouth:=display([mouth1, mouthclose]):

talkingtac:=display([talkingmouth, head, body, tail, nose, hige, normalis], scaling=constrained):

speechbubbleline:=plot([[-4,8],[-2, 6],[-2, 8]], color=black):

speech:=display(ellipse([-3,9], 10, 1, color=black), scaling=constrained):

t1:=display(textplot([-3,9,"Hellow, my name is Tac. I am a cat.",'font' = ["times", "roman", 20]] )):

s1:=display([Tac, t1, speech, speechbubbleline], scaling=constrained, axes=none):

s2:=display([talkingtac, t1, speech, speechbubbleline]):

pan1:=display([s1, s2,s1, s2,s1, s2,s1, s2,s1, s2,s1, s2,s1, s2,s1, s2,s1, s2,s1, s2,s1], insequence=true, scaling=constrained):

f1:=polygon([[1.25,6],[2,5],[2.75,6],[1.25,6]], color=brown):

f2:=polygon([[0,4],[1,4.75],[0,5.5],[0,4]], color=brown):

f3:=polygon([[4,4],[3,4.75],[4,5.5],[4,4]], color=brown):

f4:=display(polygon([[6.5,4.25],[6.16,3.16],[7.25,3.5],[7,4],[6.5,4.25]], color=brown)):

f5:=polygon([[0,.75],[2,1.75],[0,2.5],[0,.75]], color=brown):

f6:=polygon([[3,0],[2.5,1],[2.5,1.75],[3.5,1.25],[4,1],[5,0],[3,0]], color=brown):

f7:=polygon([[4,3.5],[3.5,2.5],[3,2],[4,2.25],[5,2.5],[5.5,3.5],[4,3.5]], color=brown):

minilines:=display([f1, f2,f3,f4,f5, f6, f7]):

minimouth:=plot([[1.8,4.04],[2,4],[2.2,4.04]], color=black, scaling=constrained):

minihead:=plot([[1,3.5],[0,4],[0,5.75],[1,7.25],[1.25,6],[2.75, 6],[3, 7.25],[4,5.75],[4,4],[3,3.5],[1,3.5]], color=black):

minibody:=plot([[.75,0],[0,0.75],[0,2.75],[0.75,3.5],[5.75,3.5],[6.5,2.75],[6.5,.75],[5.75,0],[.75,0]], color=black, scaling=constrained):

minitail:=plot([[5.75,3.5],[6,4],[6.5,4.25],[7,4],[7.25,3.5],[7,3],[6.5,2.75],[5.75,3.5]], color=black):

minilefti:=disk([1.5,4.75], .12, color=black):

minirighti:=disk([2.5,4.75], .12, color=black):

mininormalis:=display([minilefti, minirighti], scaling=constrained):

mininose:=disk([2,4.25],.05, color=black):

minimouthclose:=plot([[1.75, 4],[2,4.2],[2.25, 4]], color=black, scaling=constrained):

minimouthopen:=display([minimouth, minimouthclose]):

minitac:=display([minilines, minihead, minibody, minitail, mininormalis, mininose, minimouthclose], scaling=constrained):

talkingmini:=display([minitac, minimouth]):

t2:=display(textplot([-3,9,"Hola, my nombre is MiniTac. I am a patterned cat.",'font' = ["times", "roman", 20]] )):

speechbubbleline1:=plot([[-4,8],[-2, 6],[-2, 8]], color=black, scaling=constrained):

speech1:=display(ellipse([-3,9], 15, 1, color=black), scaling=constrained):

s3:=display([minitac, t2, speechbubbleline1, speech1]):

s4:=display([talkingmini, t2,speechbubbleline1, speech1]):

pan2:=display([s3,s4,s3,s4,s3,s4,s3,s4,s3,s4,s3,s4,s3,s4,s3,s4,s3,s4,s3,s4,s3,s4,s3,s4,s3,s4,s3], scaling=constrained, insequence=true, axes=none):

head1:=plot([[7,4],[6,5],[6,6],[7,8],[7.25,7],[8.75,7],[9,8],[10,6],[10,5],[9,4],[7,4]], color=black):

body1:=plot([[7,0],[6,1],[6,3],[7,4],[14,4],[15,3],[15,1],[14,0],[7,0]], color=black, scaling=constrained):

tail1:=plot([[15,3],[15.75,3.25],[16,4],[15.75,4.75],[15,5],[14.25,4.75],[14,4],[15,3]], color=black):

lefti1:=disk([7.35,5.75], .125, color=black):

righti1:=disk([8.65,5.75], .125, color=black):

normalis1:=display([lefti1, righti1], scaling=constrained):

nose1:=disk([8,5.25],.075, color=black):

mouthclose1:=plot([[7.75, 5],[8,5.16],[8.25, 5]], color=black, scaling=constrained):

line11:=([[7, 5.25],[6.25,5.25]]):

line21:=([[7, 5],[6.25,5]]):

line31:=([[7, 4.75],[6.25,4.75]]):

line61:=([[9.75, 4.75],[9,4.75]]):

line51:=([[9.75, 5],[9,5]]):

line41:=([[9.75, 5.25],[9,5.25]]):

hige1:=plot([line11, line21, line31, line41, line51, line61], color=black):

fa1:=display([head1, body1, tail1, normalis1, nose1, mouthclose1, hige1]):

head2:=plot([[10,4],[9,5],[9,6],[10,8],[10.25,7],[11.75,7],[12,8],[13,6],[13,5],[12,4],[10,4]], color=black):

body2:=plot([[10,0],[9,1],[9,3],[10,4],[17,4],[18,3],[18,1],[17,0],[10,0]], color=black, scaling=constrained):

tail2:=plot([[18,3],[18.75,3.25],[19,4],[18.75,4.75],[18,5],[17.25,4.75],[17,4],[18,3]], color=black):

lefti2:=disk([10.35,5.75], .125, color=black):

righti2:=disk([11.65,5.75], .125, color=black):

normalis2:=display([lefti2, righti2], scaling=constrained):

nose2:=disk([11,5.25],.075, color=black):

mouthclose2:=plot([[10.75, 5],[11,5.16],[11.25, 5]], color=black, scaling=constrained):

line12:=([[10, 5.25],[9.25,5.25]]):

line22:=([[10, 5],[9.25,5]]):

line32:=([[10, 4.75],[9.25,4.75]]):

line62:=([[12.75, 4.75],[12,4.75]]):

line52:=([[12.75, 5],[12,5]]):

line42:=([[12.75, 5.25],[12,5.25]]):

hige2:=plot([line12, line22, line32, line42, line52, line62], color=black):

fa2:=display([head2, body2, tail2, normalis2, nose2, mouthclose2, hige2]):

head3:=plot([[9,4],[8,5],[8,6],[9,8],[9.25,7],[10.75,7],[11,8],[12,6],[12,5],[11,4],[9,4]], color=black):

body3:=plot([[9,0],[8,1],[8,3],[9,4],[16,4],[17,3],[17,1],[16,0],[9,0]], color=black, scaling=constrained):

tail3:=plot([[17,3],[17.75,3.25],[18,4],[17.75,4.75],[17,5],[16.25,4.75],[16,4],[17,3]], color=black):

lefti3:=disk([9.35,5.75], .125, color=black):

righti3:=disk([10.65,5.75], .125, color=black):

normalis3:=display([lefti3, righti3], scaling=constrained):

nose3:=disk([10,5.25],.075, color=black):

mouthclose3:=plot([[9.75, 5],[10,5.16],[10.25, 5]], color=black, scaling=constrained):

line13:=([[9, 5.25],[8.25,5.25]]):

line23:=([[9, 5],[8.25,5]]):

line33:=([[9, 4.75],[8.25,4.75]]):

line63:=([[11.75, 4.75],[11,4.75]]):

line53:=([[11.75, 5],[11,5]]):

line43:=([[11.75, 5.25],[11,5.25]]):

hige3:=plot([line13, line23, line33, line43, line53, line63], color=black):

fa3:=display([head3, body3, tail3, normalis3, nose3, mouthclose3, hige3]):

head4:=plot([[8,4],[7,5],[7,6],[8,8],[8.25,7],[9.75,7],[10,8],[11,6],[11,5],[10,4],[8,4]], color=black):

body4:=plot([[8,0],[7,1],[7,3],[8,4],[15,4],[16,3],[16,1],[15,0],[8,0]], color=black, scaling=constrained):

tail4:=plot([[16,3],[16.75,3.25],[17,4],[16.75,4.75],[16,5],[15.25,4.75],[15,4],[16,3]], color=black):

lefti4:=disk([8.35,5.75], .125, color=black):

righti4:=disk([9.65,5.75], .125, color=black):

normalis4:=display([lefti4, righti4], scaling=constrained):

nose4:=disk([9,5.25],.075, color=black):

mouthclose4:=plot([[8.75, 5],[9,5.16],[9.25, 5]], color=black, scaling=constrained):

line14:=([[8, 5.25],[7.25,5.25]]):

line24:=([[8, 5],[7.25,5]]):

line34:=([[8, 4.75],[7.25,4.75]]):

line64:=([[10.75, 4.75],[10,4.75]]):

line54:=([[10.75, 5],[10,5]]):

line44:=([[10.75, 5.25],[10,5.25]]):

hige4:=plot([line14, line24, line34, line44, line54, line64], color=black):

fa4:=display([head4, body4, tail4, normalis4, nose4, mouthclose4, hige4]):

head5:=plot([[5,4],[4,5],[4,6],[5,8],[5.25,7],[6.75,7],[7,8],[8,6],[8,5],[7,4],[5,4]], color=black):

body5:=plot([[5,0],[4,1],[4,3],[5,4],[12,4],[13,3],[13,1],[12,0],[5,0]], color=black, scaling=constrained):

tail5:=plot([[13,3],[13.75,3.25],[14,4],[13.75,4.75],[13,5],[12.25,4.75],[12,4],[13,3]], color=black):

lefti5:=disk([5.35,5.75], .125, color=black):

righti5:=disk([6.65,5.75], .125, color=black):

normalis5:=display([lefti5, righti5], scaling=constrained):

nose5:=disk([6,5.25],.075, color=black):

mouthclose5:=plot([[5.75, 5],[6,5.16],[6.25, 5]], color=black, scaling=constrained):

line15:=([[5, 5.25],[4.25,5.25]]):

line25:=([[5, 5],[4.25,5]]):

line35:=([[5, 4.75],[4.25,4.75]]):

line65:=([[7.75, 4.75],[7,4.75]]):

line55:=([[7.75, 5],[7,5]]):

line45:=([[7.75, 5.25],[7,5.25]]):

hige5:=plot([line15, line25, line35, line45, line55, line65], color=black):

fa5:=display([head5, body5, tail5, normalis5, nose5, mouthclose5, hige5]):

head6:=plot([[6,4],[5,5],[5,6],[6,8],[6.25,7],[7.75,7],[8,8],[9,6],[9,5],[8,4],[6,4]], color=black):

body6:=plot([[6,0],[5,1],[5,3],[6,4],[13,4],[14,3],[14,1],[13,0],[6,0]], color=black, scaling=constrained):

tail6:=plot([[14,3],[14.75,3.25],[15,4],[14.75,4.75],[14,5],[13.25,4.75],[13,4],[14,3]], color=black):

lefti6:=disk([6.35,5.75], .125, color=black):

righti6:=disk([7.65,5.75], .125, color=black):

normalis6:=display([lefti6, righti6], scaling=constrained):

nose6:=disk([7,5.25],.075, color=black):

mouthclose6:=plot([[6.75, 5],[7,5.16],[7.25, 5]], color=black, scaling=constrained):

line16:=([[6, 5.25],[5.25,5.25]]):

line26:=([[6, 5],[5.25,5]]):

line36:=([[6, 4.75],[5.25,4.75]]):

line66:=([[8.75, 4.75],[8,4.75]]):

line56:=([[8.75, 5],[8,5]]):

line46:=([[8.75, 5.25],[8,5.25]]):

hige6:=plot([line16, line26, line36, line46, line56, line66], color=black):

fa6:=display([head6, body6, tail6, normalis6, nose6, mouthclose6, hige6]):

head7:=plot([[4,4],[3,5],[3,6],[4,8],[4.25,7],[5.75,7],[6,8],[7,6],[7,5],[6,4],[4,4]], color=black):

body7:=plot([[4,0],[3,1],[3,3],[4,4],[11,4],[12,3],[12,1],[11,0],[4,0]], color=black, scaling=constrained):

tail7:=plot([[12,3],[12.75,3.25],[13,4],[12.75,4.75],[12,5],[11.25,4.75],[11,4],[12,3]], color=black):

lefti7:=disk([4.35,5.75], .125, color=black):

righti7:=disk([5.65,5.75], .125, color=black):

normalis7:=display([lefti7, righti7], scaling=constrained):

nose7:=disk([5,5.25],.075, color=black):

mouthclose7:=plot([[4.75, 5],[5,5.16],[5.25, 5]], color=black, scaling=constrained):

line17:=([[4, 5.25],[3.25,5.25]]):

line27:=([[4, 5],[3.25,5]]):

line37:=([[4, 4.75],[3.25,4.75]]):

line67:=([[6.75, 4.75],[6,4.75]]):

line57:=([[6.75, 5],[6,5]]):

line47:=([[6.75, 5.25],[6,5.25]]):

hige7:=plot([line17, line27, line37, line47, line57, line67], color=black):

fa7:=display([head7, body7, tail7, normalis7, nose7, mouthclose7, hige7]):

head8:=plot([[3,4],[2,5],[2,6],[3,8],[3.25,7],[4.75,7],[5,8],[6,6],[6,5],[5,4],[3,4]], color=black):

body8:=plot([[3,0],[2,1],[2,3],[3,4],[10,4],[11,3],[11,1],[10,0],[3,0]], color=black, scaling=constrained):

tail8:=plot([[11,3],[11.75,3.25],[12,4],[11.75,4.75],[11,5],[10.25,4.75],[10,4],[11,3]], color=black):

lefti8:=disk([3.35,5.75], .125, color=black):

righti8:=disk([4.65,5.75], .125, color=black):

normalis8:=display([lefti8, righti8], scaling=constrained):

nose8:=disk([4,5.25],.075, color=black):

mouthclose8:=plot([[3.75, 5],[4,5.16],[4.25, 5]], color=black, scaling=constrained):

line18:=([[3, 5.25],[2.25,5.25]]):

line28:=([[3, 5],[2.25,5]]):

line38:=([[3, 4.75],[2.25,4.75]]):

line68:=([[5.75, 4.75],[5,4.75]]):

line58:=([[5.75, 5],[5,5]]):

line48:=([[5.75, 5.25],[5,5.25]]):

hige8:=plot([line18, line28, line38, line48, line58, line68], color=black):

fa8:=display([head8, body8, tail8, normalis8, nose8, mouthclose8, hige8]):

head9:=plot([[2,4],[1,5],[1,6],[2,8],[2.25,7],[3.75,7],[4,8],[5,6],[5,5],[4,4],[2,4]], color=black):

body9:=plot([[2,0],[1,1],[1,3],[2,4],[9,4],[10,3],[10,1],[9,0],[2,0]], color=black, scaling=constrained):

tail9:=plot([[10,3],[10.75,3.25],[11,4],[10.75,4.75],[10,5],[9.25,4.75],[9,4],[10,3]], color=black):

lefti9:=disk([2.35,5.75], .125, color=black):

righti9:=disk([3.65,5.75], .125, color=black):

normalis9:=display([lefti9, righti9], scaling=constrained):

nose9:=disk([3,5.25],.075, color=black):

mouthclose9:=plot([[2.75, 5],[3,5.16],[3.25, 5]], color=black, scaling=constrained):

line19:=([[2, 5.25],[1.25,5.25]]):

line29:=([[2, 5],[1.25,5]]):

line39:=([[2, 4.75],[1.25,4.75]]):

line69:=([[4.75, 4.75],[4,4.75]]):

line59:=([[4.75, 5],[4,5]]):

line49:=([[4.75, 5.25],[4,5.25]]):

hige9:=plot([line19, line29, line39, line49, line59, line69], color=black):

fa9:=display([head9, body9, tail9, normalis9, nose9, mouthclose9, hige9]):

beforescene1:=display([fa2, fa3, fa4, fa1, fa6, fa5, fa7, fa8, fa9], scaling=constrained, insequence=true, axes=none):

head10:=plot([[-1,4],[-2,5],[-2,6],[-1,8],[-.75,7],[0.75,7],[1,8],[2,6],[2,5],[1,4],[-1,4]], color=black):

body10:=plot([[-1,0],[-2,1],[-2,3],[-1,4],[6,4],[7,3],[7,1],[6,0],[-1,0]], color=black, scaling=constrained):

tail10:=plot([[7,3],[7.75,3.25],[8,4],[7.75,4.75],[7,5],[6.25,4.75],[6,4],[7,3]], color=black):

lefti10:=disk([-.65,5.75], .125, color=black):

righti10:=disk([0.65,5.75], .125, color=black):

normalis10:=display([lefti10, righti10], scaling=constrained):

nose10:=disk([0,5.25],.075, color=black):

mouthclose10:=plot([[-.25, 5],[0,5.16],[0.25, 5]], color=black, scaling=constrained):

line110:=([[-1, 5.25],[-1.75,5.25]]):

line210:=([[-1, 5],[-1.75,5]]):

line310:=([[-1, 4.75],[-1.75,4.75]]):

line610:=([[1.75, 4.75],[1,4.75]]):

line510:=([[1.75, 5],[1,5]]):

line410:=([[1.75, 5.25],[1,5.25]]):

hige10:=plot([line110, line210, line310, line410, line510, line610], color=black):

fa10:=display([head10, body10, tail10, normalis10, nose10, mouthclose10, hige10]):

head11:=plot([[0,4],[-1,5],[-1,6],[0,8],[0.25,7],[1.75,7],[2,8],[3,6],[3,5],[2,4],[0,4]], color=black):

body11:=plot([[0,0],[-1,1],[-1,3],[0,4],[7,4],[8,3],[8,1],[7,0],[0,0]], color=black, scaling=constrained):

tail11:=plot([[8,3],[8.75,3.25],[9,4],[8.75,4.75],[8,5],[7.25,4.75],[7,4],[8,3]], color=black):

lefti11:=disk([0.35,5.75], .125, color=black):

righti11:=disk([1.65,5.75], .125, color=black):

normalis11:=display([lefti11, righti11], scaling=constrained):

nose11:=disk([1,5.25],.075, color=black):

mouthclose11:=plot([[0.75, 5],[1,5.16],[1.25, 5]], color=black, scaling=constrained):

line111:=([[0, 5.25],[-.75,5.25]]):

line211:=([[0, 5],[-.75,5]]):

line311:=([[0, 4.75],[-.75,4.75]]):

line611:=([[2.75, 4.75],[2,4.75]]):

line511:=([[2.75, 5],[2,5]]):

line411:=([[2.75, 5.25],[2,5.25]]):

hige11:=plot([line111, line211, line311, line411, line511, line611], color=black):

fa11:=display([head11, body11, tail11, normalis11, nose11, mouthclose11, hige11]):

head12:=plot([[-2,4],[-3,5],[-3,6],[-2,8],[-1.75,7],[-.25,7],[0,8],[1,6],[1,5],[0,4],[-2,4]], color=black):

body12:=plot([[-2,0],[-3,1],[-3,3],[-2,4],[5,4],[6,3],[6,1],[5,0],[-2,0]], color=black, scaling=constrained):

tail12:=plot([[6,3],[6.75,3.25],[7,4],[6.75,4.75],[6,5],[5.25,4.75],[5,4],[6,3]], color=black):

lefti12:=disk([-1.65,5.75], .125, color=black):

righti12:=disk([-.35,5.75], .125, color=black):

normalis12:=display([lefti12, righti12], scaling=constrained):

nose12:=disk([-1,5.25],.075, color=black):

mouthclose12:=plot([[-1.25, 5],[-1,5.16],[-.75, 5]], color=black, scaling=constrained):

line112:=([[-2, 5.25],[-2.75,5.25]]):

line212:=([[-2, 5],[-2.75,5]]):

line312:=([[-2, 4.75],[-2.75,4.75]]):

line612:=([[0.75, 4.75],[0,4.75]]):

line512:=([[0.75, 5],[0,5]]):

line412:=([[0.75, 5.25],[0,5.25]]):

hige12:=plot([line112, line212, line312, line412, line512, line612], color=black):

fa12:=display([head12, body12, tail12, normalis12, nose12, mouthclose12, hige12]):

f10:=polygon([[5.25,6],[6,5],[6.75,6],[5.25,6]], color=brown):

f20:=polygon([[4,4],[5,4.75],[4,5.5],[4,4]], color=brown):

f30:=polygon([[8,4],[7,4.75],[8,5.5],[8,4]], color=brown):

f40:=display(polygon([[10.5,4.25],[10.16,3.16],[11.25,3.5],[11,4],[10.5,4.25]], color=brown)):

f50:=polygon([[4,.75],[6,1.75],[4,2.5],[4,.75]], color=brown):

f60:=polygon([[7,0],[6.5,1],[6.5,1.75],[7.5,1.25],[8,1],[9,0],[7,0]], color=brown):

f70:=polygon([[8,3.5],[7.5,2.5],[7,2],[8,2.25],[9,2.5],[9.5,3.5],[8,3.5]], color=brown):

minilines1:=display([f10, f20,f30,f40,f50, f60, f70]):

minimouth1:=plot([[5.8,4.04],[6,4],[6.2,4.04]], color=black, scaling=constrained):

minihead1:=plot([[5,3.5],[4,4],[4,5.75],[5,7.25],[5.25,6],[6.75, 6],[7, 7.25],[8,5.75],[8,4],[7,3.5],[5,3.5]], color=black):

minibody1:=plot([[4.75,0],[4,0.75],[4,2.75],[4.75,3.5],[9.75,3.5],[10.5,2.75],[10.5,.75],[9.75,0],[4.75,0]], color=black, scaling=constrained):

minitail1:=plot([[9.75,3.5],[10,4],[10.5,4.25],[11,4],[11.25,3.5],[11,3],[10.5,2.75],[9.75,3.5]], color=black):

minilefti1:=disk([5.5,4.75], .12, color=black):

minirighti1:=disk([6.5,4.75], .12, color=black):

mininormalis1:=display([minilefti1, minirighti1], scaling=constrained):

mininose1:=disk([6,4.25],.05, color=black):

minimouthclose1:=plot([[5.75, 4],[6,4.2],[6.25, 4]], color=black, scaling=constrained):

da1:=display([minilines1, minihead1, minibody1, minitail1, mininormalis1, mininose1, minimouthclose1], scaling=constrained):

f11:=polygon([[4.25,6],[5,5],[5.75,6],[4.25,6]], color=brown):

f21:=polygon([[3,4],[4,4.75],[3,5.5],[3,4]], color=brown):

f31:=polygon([[7,4],[6,4.75],[7,5.5],[7,4]], color=brown):

f41:=polygon([[9.5,4.25],[9.16,3.16],[10.25,3.5],[10,4],[9.5,4.25]], color=brown):

f51:=polygon([[3,.75],[5,1.75],[3,2.5],[3,.75]], color=brown):

f61:=polygon([[6,0],[5.5,1],[5.5,1.75],[6.5,1.25],[7,1],[8,0],[6,0]], color=brown):

f71:=polygon([[7,3.5],[6.5,2.5],[6,2],[7,2.25],[8,2.5],[8.5,3.5],[7,3.5]], color=brown):

minilines2:=display([f11, f21,f31,f41,f51, f61, f71]):

minimouth2:=plot([[4.8,4.04],[5,4],[5.2,4.04]], color=black, scaling=constrained):

minihead2:=plot([[4,3.5],[3,4],[3,5.75],[4,7.25],[4.25,6],[5.75, 6],[6, 7.25],[7,5.75],[7,4],[6,3.5],[4,3.5]], color=black):

minibody2:=plot([[3.75,0],[3,0.75],[3,2.75],[3.75,3.5],[8.75,3.5],[9.5,2.75],[9.5,.75],[8.75,0],[3.75,0]], color=black, scaling=constrained):

minitail2:=plot([[8.75,3.5],[9,4],[9.5,4.25],[10,4],[10.25,3.5],[10,3],[9.5,2.75],[8.75,3.5]], color=black):

minilefti2:=disk([4.5,4.75], .12, color=black):

minirighti2:=disk([5.5,4.75], .12, color=black):

mininormalis2:=display([minilefti2, minirighti2], scaling=constrained):

mininose2:=disk([5,4.25],.05, color=black):

minimouthclose2:=plot([[4.75, 4],[5,4.2],[5.25, 4]], color=black, scaling=constrained):

da2:=display([minilines2, minihead2, minibody2, minitail2, mininormalis2, mininose2, minimouthclose2], scaling=constrained):

f12:=polygon([[3.25,6],[4,5],[4.75,6],[3.25,6]], color=brown):

f22:=polygon([[2,4],[3,4.75],[2,5.5],[2,4]], color=brown):

f32:=polygon([[6,4],[5,4.75],[6,5.5],[6,4]], color=brown):

f42:=polygon([[8.5,4.25],[8.16,3.16],[9.25,3.5],[9,4],[8.5,4.25]], color=brown):

f52:=polygon([[2,.75],[4,1.75],[2,2.5],[2,.75]], color=brown):

f62:=polygon([[5,0],[4.5,1],[4.5,1.75],[5.5,1.25],[6,1],[7,0],[5,0]], color=brown):

f72:=polygon([[6,3.5],[5.5,2.5],[5,2],[6,2.25],[7,2.5],[7.5,3.5],[6,3.5]], color=brown):

minilines3:=display([f12, f22,f32,f42,f52, f62, f72]):

minimouth3:=plot([[3.8,4.04],[4,4],[4.2,4.04]], color=black, scaling=constrained):

minihead3:=plot([[3,3.5],[2,4],[2,5.75],[3,7.25],[3.25,6],[4.75, 6],[5, 7.25],[6,5.75],[6,4],[5,3.5],[3,3.5]], color=black):

minibody3:=plot([[2.75,0],[2,0.75],[2,2.75],[2.75,3.5],[7.75,3.5],[8.5,2.75],[8.5,.75],[7.75,0],[2.75,0]], color=black, scaling=constrained):

minitail3:=plot([[7.75,3.5],[8,4],[8.5,4.25],[9,4],[9.25,3.5],[9,3],[8.5,2.75],[7.75,3.5]], color=black):

minilefti3:=disk([3.5,4.75], .12, color=black):

minirighti3:=disk([4.5,4.75], .12, color=black):

mininormalis3:=display([minilefti3, minirighti3], scaling=constrained):

mininose3:=disk([4,4.25],.05, color=black):

minimouthclose3:=plot([[3.75, 4],[4,4.2],[4.25, 4]], color=black, scaling=constrained):

da3:=display([minilines3, minihead3, minibody3, minitail3, mininormalis3, mininose3, minimouthclose3], scaling=constrained):

f123:=polygon([[2.25,6],[3,5],[3.75,6],[2.25,6]], color=brown):

f223:=polygon([[1,4],[2,4.75],[1,5.5],[1,4]], color=brown):

f323:=polygon([[5,4],[4,4.75],[5,5.5],[5,4]], color=brown):

f423:=polygon([[7.5,4.25],[7.16,3.16],[8.25,3.5],[8,4],[7.5,4.25]], color=brown):

f523:=polygon([[1,.75],[3,1.75],[1,2.5],[1,.75]], color=brown):

f623:=polygon([[4,0],[3.5,1],[3.5,1.75],[4.5,1.25],[5,1],[6,0],[4,0]], color=brown):

f723:=polygon([[5,3.5],[4.5,2.5],[4,2],[5,2.25],[6,2.5],[6.5,3.5],[5,3.5]], color=brown):

minilines33:=display([f123, f223,f323,f423,f523, f623, f723]):

minimouth33:=plot([[2.8,4.04],[3,4],[3.2,4.04]], color=black, scaling=constrained):

minihead33:=plot([[2,3.5],[1,4],[1,5.75],[2,7.25],[2.25,6],[3.75, 6],[4, 7.25],[5,5.75],[5,4],[4,3.5],[2,3.5]], color=black):

minibody33:=plot([[1.75,0],[1,0.75],[1,2.75],[1.75,3.5],[6.75,3.5],[7.5,2.75],[7.5,.75],[6.75,0],[1.75,0]], color=black, scaling=constrained):

minitail33:=plot([[6.75,3.5],[7,4],[7.5,4.25],[8,4],[8.25,3.5],[8,3],[7.5,2.75],[6.75,3.5]], color=black):

minilefti33:=disk([2.5,4.75], .12, color=black):

minirighti33:=disk([3.5,4.75], .12, color=black):

mininormalis33:=display([minilefti33, minirighti33], scaling=constrained):

mininose33:=disk([3,4.25],.05, color=black):

minimouthclose33:=plot([[2.75, 4],[3,4.2],[3.25, 4]], color=black, scaling=constrained):

da4:=display([minilines33, minihead33, minibody33, minitail33, mininormalis33, mininose33, minimouthclose33], scaling=constrained):

tacafterscene1:=display([fa11, fa10, fa12, da1, da2, da3, da4], scaling=constrained, insequence=true, axes=none):

head13:=plot([[-5,4],[-6,5],[-6,6],[-5,8],[-4.75,7],[-3.25,7],[-3,8],[-2,6],[-2,5],[-3,4],[-5,4]], color=black):

body13:=plot([[-10,0],[-11,1],[-11,3],[-10,4],[-3,4],[-2,3],[-2,1],[-3,0],[-10,0]], color=black, scaling=constrained):

tail13:=plot([[-11,3],[-10,4],[-10.25,4.75],[-11,5],[-11.75,4.75],[-12,4],[-11.75,3.25],[-11,3]], color=black, scaling=constrained):

lefti13:=disk([-4.65,5.75], .125, color=black):

righti13:=disk([-3.35,5.75], .125, color=black):

normalis13:=display([lefti13, righti13], scaling=constrained):

nose13:=disk([-4,5.25],.075, color=black):

mouthclose13:=plot([[-4.25, 5],[-4,5.16],[-3.75, 5]], color=black, scaling=constrained):

line113:=([[-5, 5.25],[-5.75,5.25]]):

line213:=([[-5, 5],[-5.75,5]]):

line313:=([[-5, 4.75],[-5.75,4.75]]):

line613:=([[-3.25, 4.75],[-2.25,4.75]]):

line513:=([[-3.25, 5],[-2.25,5]]):

line413:=([[-3.25, 5.25],[-2.25,5.25]]):

hige13:=plot([line113, line213, line313, line413, line513, line613], color=black):

tacb:=display([head13, body13, tail13, normalis13, nose13, mouthclose13, hige13]):

afterscene2:=display([minitac, minitac, minitac, minitac, minitac, minitac,da4,da4,da4,da4,da4,da4], insequence=true):

zacircle:=disk([-2, 8], .5, color=yellow):

zaellipse:=ellipse([-2, 10.5], .5, 1.5, color=yellow, filled=true):

tacsurprise:=display([zacircle, zaellipse, tacb], scaling=constrained):

zacircle1:=disk([1, 8], .5, color=yellow):

zaellipse1:=ellipse([1, 10.5], .5, 1.5, color=yellow, filled=true):

minitacsurprise:=display([zacircle1, zaellipse1, da4], scaling=constrained):

nf:=display([tacb, da4]):

nf2:=display([tacsurprise, minitacsurprise]):

pan3:=display([nf,nf,nf,nf,nf,nf,nf,nf,nf,nf,nf,nf,nf,nf,nf2,nf2,nf2,nf2,nf2,nf2,nf2,nf2,nf2,nf2,nf2], insequence=true):

zoomhead:=plot([[4,0],[0,4],[0,8],[4,16],[5,12],[10.75,12],[12,16],[16,8],[16,4],[12,0],[4,0]], color=black):

zoomlefti:=disk([6,7.5], .75, color=black):

zoomrighti:=disk([11,7.5], .75, color=black):

zline1:=plot([[5, 6],[2,6]], color=black):

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

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

zline4:=plot([[12, 4],[14,4]], color=black):

zline5:=plot([[12, 5],[14,5]], color=black):

zline6:=plot([[12, 6],[14,6]], color=black):

zoomnose:=disk([9,5],.125, color=black):

zoommouth:=plot([[8,4],[9,4.975],[10,4]], color=black):

zoommouthdrip:=polygon([[9.5,4.25],[9,3],[9,2],[9.5,1.85],[10,2],[10,3],[9.5,4.25]], color=lightblue, filled=true):

t3:=display(textplot([21,13,"It looks yummy....",'font' = ["times", "roman", 20]] )):

zoomspeech1:=display(ellipse([21,13], 7, 1.5, color=black), scaling=constrained):

c1:=circle([18,11], .25, color=black):

c2:=circle([17,10], .25, color=black):

c3:=circle([16,9], .25, color=black):

zoomtacbody:=plot([[13,-2],[12,0],[0,0],[-2,-2]], color=black):

zoomtacface:=display([zoomlefti, zoomrighti, zoomhead, zline1, zline2, zline3, zline4, zline5, zline6, zoomnose, zoommouth, zoomtacbody], scaling=constrained):

bubbles:=display([c1,zoomtacface]):

bubbles1:=display([c2, zoomtacface, c1]):

bubbles2:=display([c3,zoomtacface, c1, c2]):

bubbles3:=display([zoomtacface, c1, c2, c3, t3, zoomspeech1]):

zoomcatlefti:=disk([6,7.5], .75, color=black):

zoomcatrighti:=disk([11,7.5], .75, color=black):

zoomcatlefti1:=plot([[6,6.85],[6,8.15]], color=yellow):

zoomcatrighti1:=plot([[11,6.85],[11,8.15]], color=yellow):

zoomcateyes:=display([zoomcatlefti, zoomcatrighti, zoomcatlefti1, zoomcatrighti1], scaling=constrained):

bubbles4:=display([zoomhead, zline1, zline2, zline3, zline4, zline5, zline6, zoomnose, zoommouth, c1, c2, c3, t3, zoomspeech1, zoommouthdrip, zoomcateyes, zoomtacbody]):

pan5:=display([zoomtacface,zoomtacface,zoomtacface,zoomtacface,zoomtacface,zoomtacface,bubbles,bubbles,bubbles,bubbles,bubbles, bubbles1,bubbles1,bubbles1,bubbles1,bubbles1, bubbles2,bubbles2,bubbles2,bubbles2,bubbles2, bubbles3,bubbles3,bubbles3,bubbles3,bubbles3,bubbles3,bubbles3,bubbles3, bubbles4,bubbles4,bubbles4,bubbles4,bubbles4,bubbles4,bubbles4,bubbles4,bubbles4],insequence=true):

minizoomhead:=plot([[7,-2],[3,2],[3,6],[7,14],[8,10],[13.75,10],[15,14],[19,6],[19,2],[15,-2],[7,-2]], color=black):

minizoomlefti:=disk([7,7.5], .75, color=black):

minizoomrighti:=disk([12,7.5], .75, color=black):

tri1:=polygon([[8,10],[13.75,10],[11,8],[8,10]], color=brown, filled=true):

tri2:=polygon([[3,6],[3,2],[7,4],[3,6]], color=brown, filled=true):

tri3:=polygon([[19,6],[19,2],[15,4],[19,6]], color=brown, filled=true):

minizoomnose:=disk([9,6],.125, color=black):

minizoommouth:=plot([[8.5,5.7],[9,5.975],[9.5,5.7]], color=black):

minizoomtac:=display([minizoomhead, minizoomlefti, minizoomrighti, tri1, tri2,tri3, minizoomnose, minizoommouth]):

t4:=display(textplot([-4,14,"I wanna be friends",'font' = ["times", "roman", 20]] )):

zoomspeech2:=display(ellipse([-4,14], 7, 1.5, color=black), scaling=constrained):

c4:=circle([1,10], .25, color=black):

c5:=circle([0,11], .25, color=black):

c6:=circle([-1,12], .25, color=black):

minibubbles:=display([c4,minizoomtac]):

minibubbles1:=display([c5, minizoomtac, c4]):

minibubbles2:=display([c6,minizoomtac, c4, c5]):

minibubbles3:=display([minizoomtac, c4, c5, c6, t4, zoomspeech2]):

pan6:=display([minizoomtac,minizoomtac,minizoomtac,minizoomtac,minizoomtac,minizoomtac,minibubbles,minibubbles,minibubbles,minibubbles,minibubbles, minibubbles1,minibubbles1,minibubbles1, minibubbles2, minibubbles2, minibubbles2, minibubbles2, minibubbles2, minibubbles2, minibubbles2, minibubbles2, minibubbles2, minibubbles2, minibubbles3, minibubbles3,minibubbles3,minibubbles3,minibubbles3,minibubbles3,minibubbles3,minibubbles3,minibubbles3,minibubbles3,minibubbles3,minibubbles3,minibubbles3,minibubbles3],insequence=true):

sideface:=plot([[-2,7],[-2,5],[-3,4],[-5.5,4],[-6.5,5],[-6.5,7],[-5,9.75],[-2,7],[-4,9.5],[-4.3,9.1]], color=black, scaling=constrained):

sidetaci:=disk([-3,6.5], .2, color=black):

line10:=plot([[-3,6],[-4,6]], color=black):

line20:=plot([[-3,5.5],[-4,5.5]], color=black):

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

sidenose:=disk([-2,5.75], .05125, color=black):

line50:=plot([[-2.2,5.4],[-2,5.69875]], color=black):

sidefacetac:=display([sideface, sidetaci, line10, line20, line30, sidenose, line50, body13, tail13]):

both:=display([sidefacetac, da1]):

both1:=display([sidefacetac, da2]):

both2:=display([sidefacetac, da3]):

both3:=display([sidefacetac, da4]):

pan7:=display([both, both, both, both, both, both, both, both,both1,both1,both1,both1,both1,both1,both1,both1,both1,both2,both2,both2,both2,both2,both2,both2,both2,both3,both3,both3,both3,both3,both3,both3,both3,both3], insequence=true):

heartcircle:=disk([3,7], .25, color=pink):

heartupper:=polygon([[3,7.5],[2.5,8.5],[2.5,9],[2.75,9.25],[3,9],[3.25,9.25],[3.5,9],[3.5,8.5],[3,7.5]], color=pink, filled=true):

heart:=display([heartcircle, heartupper]):

hand1:=display(ellipticArc([0,2],.5,1, 0..Pi,color=black),plot([[[-.5, 0],[-.5,2]],[[.5,0],[.5,2]]],color=black)):

za1:=display([sidefacetac, translate(rotate(hand1, -Pi/4),-2.5,3.5), da4, heart]):

pan8:=scale(display([za1,za1,za1,za1,za1,za1,za1,za1,za1,za1,za1,za1,za1,za1,za1,za1,za1,za1,za1,za1], insequence), 2,2):

paw := display([rectangle([-1,0],[1,4], color=white)]):

line9:=plot([[-2.5, 6],[-2.5,7.5]], color=darkblue):

line70:=plot([[-1.75, 6],[-1.75,7.5]], color=darkblue):

line50:=plot([[-2.25, 6],[-2.25,7.5]], color=darkblue):

line60:=plot([[-2, 6],[-2,7.5]], color=darkblue):

deadlyheadlines:=display([line9, line50, line60, line70]):

smilingmouth:=display(translate(talkingmouth,-6,0)):

body14:=plot([[-7,0],[-8,1],[-8,3],[-7,4],[-3,4],[-2,3],[-2,1],[-3,0],[-7,0]], color=black, scaling=constrained):

tail14:=display(translate(tail13, 3,0)):

lefti14:=disk([-4.65,5.75], .19, color=black):

righti14:=disk([-3.35,5.75], .19, color=black):

normalis14:=display([lefti14, righti14], scaling=constrained):

archand2:=display(ellipticArc([-5,2.5], .5, 1, Pi..2*Pi)):

blackdarkness:=plot([[-6,6],[-5,8],[-4.75,7],[-3.25,7],[-3,8],[-2,6],[-6,6]], color=black, filled=true, transparency=0.9):

kumo1:=disk([-1, 9], .5, color=gray):

kumo2:=disk([-1.5, 9], .5, color=gray):

kumo3:=disk([-2, 9], .5, color=gray):

kumo4:=disk([-2.5, 9], .5, color=gray):

kumo5:=disk([-3, 9], .5, color=gray):

kumo6:=disk([-3.5, 9], .5, color=gray):

kumo7:=disk([-4, 9], .5, color=gray):

kumo8:=disk([-4.5, 9], .5, color=gray):

kumo9:=disk([-5, 9], .5, color=gray):

kumo10:=disk([-5.5, 9], .5, color=gray):

kumo11:=disk([-6, 9], .5, color=gray):

thunder:=polygon([[-4,8.5],[-4.75,8],[-4,7],[-3.25,7],[-3.75,8],[-3.25,8.5],[-4,8.5]], filled=true, color=yellow):

darkclouds:=display([kumo1, kumo2, kumo3, kumo4, kumo5, kumo6, kumo7, kumo8, kumo9, kumo10, kumo11], scaling=constrained):

thunderstrucktac:=display([translate(rotate(hand1,-Pi/4),-2.5,3.5), deadlyheadlines, smilingmouth, head13, normalis14, hige13, nose13, body14, tail14, archand2, blackdarkness, darkclouds]):

thunderstruck:=display([translate(rotate(hand1,-Pi/4),-2.5,3.5), deadlyheadlines, smilingmouth, head13, translate(cateyes,-6,-3.25), hige13, nose13, body14, tail14, archand2, blackdarkness, darkclouds, thunder]):

pan9:=scale(display([thunderstrucktac,thunderstrucktac,thunderstrucktac,thunderstrucktac,thunderstrucktac,thunderstrucktac,thunderstrucktac,thunderstrucktac,thunderstrucktac,thunderstrucktac,thunderstrucktac,thunderstrucktac,thunderstrucktac,thunderstrucktac,thunderstrucktac,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck,thunderstruck], insequence=true), 2.5,2.5):

hand2:=scale(hand1, 1,1.1):

hand3:=scale(hand1,1,1.5):

hand4:=scale(hand1, 1,2):

hand5:=scale(hand1, 1,2.1):

bob:=display([(translate(rotate(hand2, -Pi/4),-2.5,3.5)), tacb, da4]):

bob1:=display([(translate(rotate(hand3, -Pi/4),-2.5,3.5)), tacb, da4]):

bob2:=display([(translate(rotate(hand4, -Pi/4),-2.5,3.5)), tacb, da4]):

bob3:=display([(translate(rotate(hand5, -Pi/4),-2.5,3.5)), tacb]):

minihearthead:=scale(polygon([[0,0],[2,3],[2,5],[1.5,7],[0.5,7],[0,5],[-0.5,7],[-1.5,7],[-2,5],[-2,3],[0,0]], filled=true, color=pink), 0.5, 0.5):

minihappyline:=plot([[-0.5,2],[0.5,2]], color=black):

minihappyarc:=display(arc([0,2], 0.5,Pi..2*Pi), color=black):

minihappymouth:=display([minihappyline, minihappyarc]):

bob4:=display([bob3, translate(minihearthead, 3, 6.5), translate(minihappymouth, 3, 2.2), minilines33,minihead33, minibody33, mininormalis33, mininose33, minitail33]):

t5:=display(textplot([14,7,"Hola, my nombre is...",'font' = ["times", "roman", 15]] )):

speechbubbleline5:=plot([[9,6],[8,5],[12, 5.5]], color=black, scaling=constrained):

speech5:=display(ellipse([14,7], 7, 1.5, color=black), scaling=constrained):

bob6:=display([bob3, translate(minihearthead, 3, 6.5), translate(minihappymouth, 3, 2.2), minilines33,minihead33, minibody33, mininormalis33, mininose33, minitail33, t5, speechbubbleline5, speech5]):

bob5:=display([bob3, translate(minihearthead, 3, 6.5), translate(minihappyline, 3, 2.2), minilines33,minihead33, minibody33, mininormalis33, mininose33, minitail33,t5, speechbubbleline5, speech5]):

pan10:=display([bob,bob,bob,bob,bob,bob,bob,bob,bob,bob1,bob1,bob1,bob1,bob1,bob1,bob1,bob2,bob2,bob2,bob2,bob2,bob2,bob2,bob2,bob2,bob2,bob4,bob4,bob4,bob4,bob4,bob4,bob4,bob4,bob4,bob4,bob4,bob6,bob5,bob6,bob5,bob6,bob5,bob6,bob5,bob6,bob5,bob6,bob5,bob6,bob5,bob6,bob5,bob6,bob5,bob6,bob5,bob6,bob5,bob6,bob5,bob6,bob5,bob6,bob5,bob6,bob5,bob6,bob5], insequence=true, axes=none, scaling=constrained):

bob7:=display([(translate(rotate(hand5, -Pi/3),-2.5,3.5)), tacb]):

minisquash1:=scale(display([translate(minihappymouth, 3, 2.2), minilines33,minihead33, minibody33, mininormalis33, mininose33, minitail33]), 1,0.75):

bob8:=display(bob7, minisquash1,t5, speechbubbleline5, speech5):

bob71:=display([(translate(rotate(hand5, -Pi/3),-2.5,3.5)), tacb]):

minisquash11:=scale(display([translate(minihappyline, 3, 2.2), minilines33,minihead33, minibody33, mininormalis33, mininose33, minitail33]), 1,0.75):

bob81:=display(bob71, minisquash11,t5, speechbubbleline5, speech5):

bob9:=display([(translate(rotate(hand5, -Pi/2),-2.5,3.5)), tacb]):

minisquash2:=scale(display([translate(minihappymouth, 3, 2.2), minilines33,minihead33, minibody33, mininormalis33, mininose33, minitail33]), 1,0.45):

bob10:=display(bob9, minisquash2, t5, speechbubbleline5, speech5):

bob91:=display([(translate(rotate(hand5, -Pi/2),-2.5,3.5)), tacb]):

minisquash21:=scale(display([translate(minihappyline, 3, 2.2), minilines33,minihead33, minibody33, mininormalis33, mininose33, minitail33]), 1,0.45):

bob101:=display(bob91, minisquash21, t5, speechbubbleline5, speech5):

t6:=display(textplot([14,7,"MiniTac??",'font' = ["times", "roman", 15]] )):

speechbubbleline6:=plot([[9,6],[8,5],[12, 5.5]], color=black, scaling=constrained):

speech6:=display(ellipse([14,7], 7, 1.5, color=black), scaling=constrained):

bob11:=display([(translate(rotate(hand5, -Pi/1.5),-2.5,3.5)), tacb]):

minisquash3:=scale(display([translate(minihappymouth, 3, 2.2), minilines33,minihead33, minibody33, mininormalis33, mininose33, minitail33]), 1,0.1):

bob12:=display(bob11, minisquash3, t6, speechbubbleline6, speech6):

bob111:=display([(translate(rotate(hand5, -Pi/1.5),-2.5,3.5)), tacb]):

minisquash31:=scale(display([translate(minihappyline, 3, 2.2), minilines33,minihead33, minibody33, mininormalis33, mininose33, minitail33]), 1,0.1):

bob121:=display(bob111, minisquash31,t6, speechbubbleline6, speech6):

bloodspray:=display(polygon([[2.5,0.5],[2,1],[2,2],[1.5,2.5],[2,3.5],[2.5,3],[2,2.5],[3,1.5],[3,3.5],[3.5,2],[4,3.5],[4.5,3],[4,2.5],[4,2],[4.5,1.5],[5,3.5],[6,1.5],[6,2.5],[5.5,3],[6,3.5],[6.5,1.5],[7,3.5],[7.5,3.5],[7,3],[7,1.5],[7.5,2.5],[7.5,1.5],[7,0.5],[2.5,0.5]],filled=true, color=red)):

blood1:=polygon([[3.5,4.5],[3,5],[3,5.5],[3.5,5.5],[3.5,4.5]],filled=true, color=red):

blood2:=polygon([[6.5,4.5],[7,5.5],[7.5,5.5],[7.5,5],[6.5,4.5]],filled=true, color=red):

blood3:=polygon([[9,1],[9.5,2],[10,2],[10,1.5],[9,1]],filled=true, color=red):

t7:=display(textplot([14,7,"Bloodsplatter",'font' = ["times", "roman", 13]] )):

arrow1:=display(arrow([11,7],[7,3],1,1,1/3, arrow)):

bob40:=display([bob111, minisquash31, bloodspray, blood1, blood2, blood3, t7, arrow1], scaling=constrained):

bloodwave:=polygon([[2,0],[0.5,2.5],[-1,3],[-2,5],[-2,4.5],[-2.5,5],[-2.5,4.5],[-3,5],[-3,6],[-1.5,7.5],[3,6],[8,0],[2,0]], filled=true, color=red):

bob41:=display([bob111, minisquash31, bloodwave,blood3], scaling=constrained):

bloodwave2:=polygon([[2,0],[0.5,2.5],[-1,3],[-2,4],[-5,2.5],[-5,5],[-8,6],[-5,7.5],[3,6],[8,0],[2,0]], filled=true, color=red):

bob42:=display([bob111, minisquash31, bloodwave2,blood3], scaling=constrained):

bloodcircle1:=disk([-3,5.75], .2, color=red):

bloodcircle2:=disk([-2.75, 5], .2, color=red):

bloodcircle3:=disk([-3.5,5.25], .1, color=red):

bloodline1:=polygon([[-3.23,5.66],[-3,5],[-2.77,5.66],[-3.23,5.66]],color=red):

bloodline2:=polygon([[-2.77,4.91],[-2.75,4.25],[-2.73,4.85],[-2.77,4.91]],color=red):

bloodline3:=polygon([[-3.6,5.2],[-3.5,4.65],[-3.4,5.2],[-3.6,5.2]],color=red):

bloodbody:=polygon([[-3,4],[-4,3.75],[-4.75,3],[-5.25,2.25],[-3.75,3.5],[-3,3.75],[-3.5,3.5],[-4.5,0],[-3,3],[-3,3.5],[-2.75,0],[-2.5,3],[-2.25,1],[-2,3],[-3,4]], color=red, filled):

bloodhead:=polygon([[-3,8],[-3.75,6.25],[-3.25,6.5],[-3.5,6],[-3,6.5],[-3.25,5.75],[-2.5,6.25],[-2.25,5.75],[-2,5.25],[-2,6],[-3,8]], filled,color=red):

bob43:=display([bob111, minisquash31,bloodspray, blood1, blood2, blood3, bloodcircle1, bloodcircle2, bloodcircle3, bloodline1, bloodline2, bloodline3, bloodbody, bloodhead], scaling=constrained):

bloodytac:=display([bloodcircle1, bloodcircle2, bloodcircle3, bloodline1, bloodline2, bloodline3, bloodbody, bloodhead]):

scene1:=display([ bob11,minisquash31,bloodytac, bloodspray]):

smallertail:=translate(rotate(display([f4,minitail]),3*Pi/2),3,6.5):

chicken:=translate(rotate(display([f1, f2,f3]),Pi/4),2,-.3):

smallminitac:=scale(display([chicken, f5, f6, f7, translate (rotate(minihead,Pi/4),2,-.3), minibody,smallertail]),.3,.3):

bloodground:=ellipse([3,0],2,0.25,color=red,filled=true):

t8:=display(textplot([5,9,"Meow",'font' = ["times", "roman", 13]] )):

speechbubble1:=ellipse([5,9],2,1, color=black):

meowthunder:=translate(scale(plot([[0,0.4],[-0.1,0.2],[0,0.2],[-0.1,0],[0.15,0.25],[0,0.25],[0.1,0.4]], color=black),2,2),5,7.25):

scene2:=display([bob9, bloodytac, translate(rotate(smallminitac,3*Pi/2),3.75,3.5),bloodground]):

scene3:=display([bob7, bloodytac, translate(rotate(smallminitac,3*Pi/2),2.75,6.5),bloodground,t8, speechbubble1, meowthunder]):

eating:=display(translate(reflect(eatingtac, [[0,0],[0,10]]),-2,0)):

scene4:=display([eating, bloodytac,translate(rotate(hand5, -Pi/4),-2.5,3.5),translate(rotate(smallminitac,3*Pi/2),2,8),bloodground]):

hand40:=display(translate(rotate(ellipticArc([0,2],.5,1, 0..Pi,color=black), 0.261799),-0.40,4.25),plot([[[-2.5,3.5],[-1,5],[-1.43,6.1]],[[-2,2.5],[-0.5,4],[0,5],[-0.5,6.5]]],color=black), scaling=constrained):

due:=display([translate(rotate(ellipse([0,2],.5,1,color=red,filled=true), 0.261799),-0.40,4.25)]):

scene5:=display([eating, bloodytac,hand40,translate(rotate(smallminitac,5.49779),-1,7),bloodground]):

mouthpuff:=scale(display(ellipticArc([-13.25,26.25], 3,2.5,Pi/2..3*Pi/2), color=black, scaling=constrained),0.2,0.2):

mouthpuff1:=translate(reflect(mouthpuff, [[-2.65, 4.75],[-2.65, 5.75]]),-2.75,0):

blood:=display(disk([-4.25,5],.05, color=red)):

blood1:=disk([-3.75,5],.05, color=red):

blood2:=disk([-4.1,5.1],.05, color=red):

blood3:=disk([-3.85,5.06],.05, color=red):

bloodymouth:=display([blood, blood1, blood2, blood3]):

t9:=display(textplot([0,8.5,"Gulp",'font' = ["times", "roman", 15]] )):

anotherline:=plot([[-0.5,8],[-2,7]], color=black):

scene6:=display([bloodbody, bloodhead, bloodground, hand40,head13, body13, tail13, normalis13, nose13, mouthclose13, due, mouthpuff, mouthpuff1, bloodymouth,translate(archand2, -1,0), blood, blood1, blood2, blood3, t9, anotherline]):

pan13:=display([scene4,scene4,scene4,scene4,scene4,scene4,scene4,scene4,scene4,scene4,scene4,scene4,scene4,scene4,scene5,scene5,scene5,scene5,scene5,scene5,scene5,scene5,scene5,scene5,scene5,scene5, scene6, scene6, scene6, scene6, scene6,scene6,scene6,scene6,scene6,scene6,scene6,scene6,scene6,scene6, scene6, scene6, scene6, scene6,scene6,scene6,scene6,scene6,scene6,scene6,scene6,scene6],insequence=true):

pan12:=display([bob41, bob41, bob41, bob41,bob42,bob42,bob42,bob42,bob42,bob42,bob42,bob42,bob42,bob43,bob43,bob43,bob43,bob43,bob43,bob43,bob43,bob43,bob43,bob43,bob43,bob43,bob43,bob43,bob43,scene1,scene1,scene1,scene1,scene1,scene1,scene1,scene2,scene2,scene2,scene2,scene2,scene2,scene2,scene3,scene3,scene3,scene3,scene3,scene3,scene3,scene3,scene3,scene3,scene3,scene3,scene3], insequence):

pan11:=display([bob8, bob81, bob8, bob81, bob10, bob101, bob10, bob101, bob10, bob101,bob12, bob121, bob12, bob121, bob12, bob121, bob12, bob121, bob12, bob121, bob12, bob121, bob12, bob121,bob40, bob40, bob40, bob40, bob40, bob40, bob40, bob40, bob40, bob40, bob40, bob40, bob40, bob40], insequence):

t45:=display(textplot([2.5,1.25,"BONE",'font' = ["times", "roman", 10]] )):

outlinebone:=scale(display(plot([[0,1],[0,2],[1,2.5],[0,3],[0,4],[1,5],[2,4],[8,4],[9,5],[10,4],[10,3],[9,2.5],[10,2],[10,1],[9,0],[8,1],[2,1],[1,0],[0,1]], color=black), scaling=constrained),0.5,0.5):

bone:=scale(display([outlinebone, t45]),0.5,0.5):

anotherline1:=translate(display(plot([[[-4.25,5],[-4.6,5.2]],[[-3.75,5],[-3.4,5.2]]], scaling=constrained), color=black),6,0):

bloodyline:=translate(display(plot([[[-4.1,5.06],[-4.1,4]],[[-3.85,5.06],[-3.85,4]]]), color=red, thickness=5),6,0):

t10:=display(textplot([5,10,"Bright Smile",'font' = ["times", "roman", 15]] )):

tacsbody:=circle([2,6], 3, color=black):

tacstail:=circle([2,9.5],0.5, color=black):

speechbubbleline40198:=plot([[4,9.9],[3.5,8]], color=black):

scene12:=scale(display([head, hige, nose, translate(cateyes, 0, -3), translate(bloodhead, 6,0),anotherline1, translate(smilingmouth,6,0), bloodyline, t10, speechbubbleline40198, tacsbody, tacstail,translate(rotate(bone,Pi/3), 5.5, 4.5)]),2,2):

pan15:=display([scene12, scene12, scene12, scene12, scene12, scene12, scene12, scene12, scene12, scene12, scene12,scene12, scene12, scene12, scene12, scene12, scene12, scene12, scene12, scene12, scene12, scene12], insequence=true, axes=none):

arrow2:=display(arrow([14,9],[16,9], 1,2,1/3,double_arrow)):

continued:=display(textplot([4,9,"1..To Be Continued",'font' = ["times", "roman", 30]] ), arrow2, translate(scene12, 0, 4)):

continuedscreen:=display([continued, continued, continued, continued,continued, continued, continued, continued], scaling=constrained):

display([beforescene1, pan1, tacafterscene1, pan2, afterscene2, pan3, pan6, pan5, pan7, pan8, pan9, pan10,pan11, pan12, pan13, pan15, continuedscreen], insequence=true, axes=none, scaling=constrained,size=[1050,550]);#FPS = 10