|to START_UP t| o~istxtekst sdelaj "zna~enie_dlitelxnosti 24 temp 20 dl 24 oktawa 1 pi{i [* * * * * muzykalxnyj proigrywatelx zagruven * * * * *] konec |to temp :zna~enie sdelaj "temp_igry :zna~enie dl :zna~enie_dlitelxnosti konec |to dl :zna~enie sdelaj "zna~enie_dlitelxnosti :zna~enie sdelaj "dlitelxnostx :zna~enie / (:temp_igry + 1) * 200 konec |to oktawa :nomer esli ili :nomer < 1 :nomer > 2 [pi{i [newernaq oktawa] okon~anie] [] sdelaj "noty [do do# re re# mi fa fa# solx solx# lq lq# si pa] sdelaj "noty# [si# re$ re mi$ fa$ mi# solx$ solx lq$ lq si$ do$ pa] sdelaj "zna~eniq |lement :nomer [[177.044 171.499 168.12 163.678 157.767 153.126 148.625 145.121 140.853 135.357 131.376 128.785 0] [125.417 121.849 117.56 114 111.75 107.388 104.34 101.271 98.2009 96.2659 93.435 90.6868 0]] cikl [esli pusto? :noty [stop] [] sdelaj "notka perwyj :noty sdelaj :notka perwyj :zna~eniq sdelaj perwyj :noty# ob'ekt :notka sdelaj "noty bezperwogo :noty sdelaj "zna~eniq bezperwogo :zna~eniq] konec |to igraj :melodiq pi{ibpp " esli imq? :melodiq [zwuk [:dlitelxnostx ob'ekt :melodiq] stop] [] esli ne spisok? :melodiq [pi{i [newernyj tip argumenta] okon~anie] [] esli pusto? :melodiq [stop] [] zwuk [:dlitelxnostx ob'ekt perwyj :melodiq] igraj bezperwogo :melodiq konec