Day 1 246Chars

function z(x,a,f,t)return cos(f*x)*a*((t-x)/t)end
r=rectfill
::_::
flip()r(0,0,128,128,6)r(0,0,128,103,7)r(0,0,128,98,12)
r(60,100,68,88,4)r(60,100,68,99,9)
for i=0,50 do
w=z(i,50,20,50)x,y=64-(w/2),88-i
line(x,y,x+w,y,3)
end
?"★",61,37,10
goto _

#lovebytetcc