(in-package :om)(load-lib-for 'nil)(setf *om-current-persistent* (om-load-patch "Hiroya's 1st assignment" '((om-load-boxcall 'lispfun "FIRST" 'first '((om-load-inputfun 'input-funbox "LIST" "LIST" nil)) 27459769 nil nil nil "first" 1) (om-load-boxcall 'bastype "aux41" 't 'nil 28180948 1310749 0.5 "0.5" nil) (om-load-boxcall 'genfun "DX->X" 'dx->x '((om-load-inputfun 'input-funbox "a number" "START" 0) (om-load-inputfun 'input-funbox "a list of numbers" "LIST" (list 1 1))) 32375038 3473443 nil nil nil 1) (om-load-editor-box "CHORD-SEQ" 'chord-seq '((om-load-inputfun 'input-funbox "object or object list" "object" nil) (om-load-inputfun 'input-funbox "LMIDIC" "LMIDIC" (list 6000)) (om-load-inputfun 'input-funbox "LONSET" "LONSET" (list 0 1000)) (om-load-inputfun 'input-funbox "LDUR" "LDUR" (list 1000)) (om-load-inputfun 'input-funbox "LVEL" "LVEL" (list 100)) (om-load-inputfun 'input-funbox "LOFFSET" "LOFFSET" (list 0)) (om-load-inputfun 'input-funbox "LCHAN" "LCHAN" (list 1)) (om-load-inputfun 'input-funbox "LEGATO" "LEGATO" 100)) 41025764 7930146 (let ((newobj (when (find-class 'chord-seq nil) (make-instance 'chord-seq :lmidic '((5400) (638850) (5400) (5400) (6000) (6351) (6793) (7200) (7620) (8035) (8452) (8869) (9285) (9702)) :lonset '(0 1000 2000 3000 4000 5000 6000 7000 8000 9000 10000 11000 12000 13000 14000) :ldur '((1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000)) :lvel '((100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100)) :loffset '((0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0)) :lchan '((1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1)) :legato 100)))) newobj) nil nil (corrige (pairlis '(inport outport deltapict approx fontsize staff cmnpref) '(0 1 0 4 24 gf nil))) t nil) (om-load-boxcall 'genfun "X->DX" 'x->dx '((om-load-inputfun 'input-funbox "a list of numbers" "SELF" 0)) 27984192 3473443 nil nil nil 1) (om-load-boxcall 'genfun "OM*" 'om* '((om-load-inputfun 'input-funbox "first input" "SELF" 0) (om-load-inputfun 'input-funbox "second input" "NUM" 0)) 31981967 2293784 nil nil nil 1) (om-load-boxcall 'genfun "OM-ROUND" 'om-round '((om-load-inputfun 'input-funbox "number or tree" "SELF" 1)) 36176117 3473458 nil nil nil 1) (om-load-editor-box "CHORD" 'chord '((om-load-inputfun 'input-funbox "object or object list" "object" nil) (om-load-inputfun 'input-funbox "LMIDIC" "LMIDIC" (list 6000)) (om-load-inputfun 'input-funbox "LVEL" "LVEL" (list 100)) (om-load-inputfun 'input-funbox "LOFFSET" "LOFFSET" (list 0)) (om-load-inputfun 'input-funbox "LDUR" "LDUR" (list 1000)) (om-load-inputfun 'input-funbox "LCHAN" "LCHAN" (list 1))) 16515272 8519733 (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 5400 1272300 5400 5400 6600 7302 8186 9000 9840 10670 11504 12338 13170 14004) :lvel (list 100 100 100 100 100 100 100 100 100 100 100 100 100 100) :loffset (list 0 0 0 0 0 0 0 0 0 0 0 0 0 0) :ldur (list 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000) :lchan (list 1 1 1 1 1 1 1 1 1 1 1 1 1 1) :from-file t)) "x" nil (corrige (pairlis '(inport outport cmnpref staff fontsize approx deltapict) '(0 0 nil ggff 24 8 0))) t nil) (om-load-boxcomment "comment" 1572890 '"A" nil 4718745 nil 0 '("Geneva" 10 :srcor)) (om-load-editor-box "NOTE" 'note '((om-load-inputfun 'input-funbox "objs" "SELF" nil) (om-load-inputfun 'input-funbox "MIDIC" "MIDIC" 6000) (om-load-inputfun 'input-funbox "VEL" "VEL" 80) (om-load-inputfun 'input-funbox "DUR" "DUR" 1000) (om-load-inputfun 'input-funbox "CHAN" "CHAN" 1)) 3604659 3735613 (if (find-class 'note nil) (make-instance 'note :midic 5400 :vel 80 :dur 1000 :chan 1 :from-file t)) "x" nil (corrige (pairlis '(approx fontsize staff cmnpref deltapict outport inport) '(2 24 ff (1 15 2 2 0) 0 0 0))) t nil) (om-load-boxcall 'bastype "aux4" 't 'nil 1638587 1310749 10 "10" nil) (om-load-boxcall 'abstraction "harmonic series" (om-load-patch-abs "harm/fibo series" '((om-load-boxcall 'genfun "OM-ABS" 'om-abs '((om-load-inputfun 'input-funbox "number or tree" "SELF" 1)) 24903941 nil nil nil nil 1) (om-load-boxcall 'genfun "FIBO-SER" 'fibo-ser '((om-load-inputfun 'input-funbox "seed" "SEED1" 0) (om-load-inputfun 'input-funbox "seed2" "SEED2" 1) (om-load-inputfun 'input-funbox "limit" "LIMIT" 10)) 18415844 nil nil nil nil 1) (om-load-boxcall 'bastype "integer" 'integer 'nil 8454331 1310760 0 "0" nil) (om-load-boxcall 'genfun "OM-RANDOM1" 'om-random '((om-load-inputfun 'input-funbox "min" "LOW" 0) (om-load-inputfun 'input-funbox "max" "HIGH" 5)) 10551503 nil nil nil nil 1) (om-load-boxcall 'bastype "integer111" 'integer 'nil 7864576 1310760 4 "4" nil) (om-load-boxcall 'bastype "integer1" 'integer 'nil 14287132 1310760 200 "200" nil) (om-load-boxcall 'bastype "integer1111" 'integer 'nil 14286999 1310760 1 "1" nil) (om-load-boxcomment "comment" 1376277 '"F" nil 24510634 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment" 1376277 '"D" nil 11337765 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment" 1441813 '"C" nil 2293778 nil 0 '("Geneva" 10 :srcor)) (om-load-boxout "output" 0 29491324 '((om-load-inputfun 'input-funbox "out" "out" nil)) nil nil) (om-load-boxin "input" 0 2555950 "this is the 
fondamental" "fondamental" 3600 nil) (om-load-boxcall 'genfun "F->MC" 'f->mc '((om-load-inputfun 'input-funbox "freq" "FREQ" 440)) 24182912 2555939 nil nil "f->mc" 1) (om-load-boxcall 'genfun "MC->F" 'mc->f '((om-load-inputfun 'input-funbox "midic" "MIDICS?" 6000)) 11010110 2555939 nil nil nil 1) (om-load-boxcall 'genfun "OM*" 'om* '((om-load-inputfun 'input-funbox "first input" "SELF" 0) (om-load-inputfun 'input-funbox "second input" "NUM" 0)) 19792008 2293784 nil nil nil 1)) '((12 0 0 0 nil 0) (6 0 1 0 nil 0) (3 0 1 1 nil 0) (5 0 1 2 nil 0) (2 0 3 0 nil 0) (4 0 3 1 nil 0) (0 0 10 0 nil 0) (14 0 12 0 nil 0) (11 0 13 0 nil 0) (13 0 14 0 nil 0) (1 0 14 1 nil 0)) 3.7) '((om-load-inputfun 'input-funbox "this is the 
fondamental" "fondamental" nil)) 11075754 3473503 nil nil "harm/fibo series")) '((7 1 0 0 nil 0) (0 0 2 0 nil 0) (5 0 2 1 nil 0) (6 0 3 1 nil 0) (7 1 4 0 nil 0) (4 0 5 0 nil 0) (1 0 5 1 nil 0) (2 0 6 0 nil 0) (11 0 7 1 nil 0) (10 0 9 1 nil 0) (9 1 11 0 nil 0)) 'nil 3.7 '(nil nil nil nil nil nil nil nil nil nil nil nil)))