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