Cartridge code (279 chars):

::s::cls(1)rectfill(14,46,113,114,8)for k in all({-1,0,6,2,1}) do
r=t()/3%.5m=mid(r-k+.75,-.25,.25)
for i=0,1,.01 do
c=7
if(k==0 and r*4>i+.75)c=6
if(k==2 and 1.2-i>r*4)c=6
e=64z=cos(m*i)
if(k%7==6)e+=2z*=.2c=13
x=64+sin(m*i)*i*48y=48-z*i*32
line(x,y,x,y+e,c)end
end
flip()goto s