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

anika_l

Pizza

middle := plot([[[-2, 0], [2, 0]], [[0, -2], [0, 2]], [[2, 0], [0, 2], [-2, 0], [0, -2], [2, 0]]], thickness = 3, color = yellow):

crust := circle([0, 0], 2, thickness = 20, color = gold):

pizza:= display( [middle,crust]):

filling := disk([0, 0], 2, thickness = 10, color = yellow):

lines := ([-1, 2.2], [-1, 3]):

lines1 := plot([lines], color=[black]):

whole := ([lines1, crust, filling], color=[black, gold, yellow]):

lines := ([0,2.5], [0,3.2]):

lines2 := plot([lines], color=[black]):

whole := ([lines1, lines2, crust, filling], color=[black, black, gold, yellow]):

lines := ([1, 2.2], [1,3]):

lines3 := plot([lines], color=[black]):

whole := ([lines1, lines2, lines3, crust, filling], color=[black, black, black, gold, yellow]):

whole1 := display([lines1, lines2, lines3, crust, filling]):

lines := ([-1, 2.5], [-1, 3.3]):

lines1a := plot([lines], color=[black]):

lines := ([0, 2.8], [0, 3.5]):

lines2a := plot([lines], color=[black]):

lines := ([1, 2.5], [1,3.3]):

lines3a := plot([lines], color=[black]):

whole := ([lines1a, lines2a, lines3a, crust, filling], color=[black, black, black, gold, yellow]):

whole2 := display([lines1a, lines2a, lines3a, crust, filling]):

dot := ([2,-2]):

blank := plot([dot], color=[white]):

text :=textplot([0,0, "Yum!"], font=[Times,24]):

display([whole1, whole2, whole1, whole2, whole1, whole2, whole1, blank, text], insequence=true, scaling=constrained, axes=none); # fps=2