// excitement + 2 lines repeat level 0 5 { paper 38 pen (100 - 20*level) set x1 98 set y1 0 set x2 98 set y2 100 set x3 0 set y3 100 set x4 0 set y4 0 repeat inc 0 14 { paper 38 line x1 y1 x2 y2 set x1 (x1 - inc) set y2 (y2 - inc) set y3 (y3 - 1) set x4 ((2 - 2*(inc/2))*(-1) + x4) set y4 (y4 + 1) line x3 y3 x4 y4 } set x2 98 repeat sel 5 2 { set inc (inc + 5) repeat t (-sel) sel { set y2 (-(t*t) + sel*sel) paper 38 set y3 (y3 - 2) set x4 ((2 - 2*(inc/2))*(-1) + x4) set y4 (y4 + 1) line x1 y1 x2 y2 line x3 y3 x4 y4 } } repeat flash 0 5 { paper (100 - 20*level) paper 38 } } repeat bliss 38 0 { paper bliss }