(bilde_variante *stimme *tiefe *breite [*x | *rest] *rest2) <- (random *zufall 100) (tonvariante *zufall *stimme *breite *x *rest1 *rest2) (sum *tiefe1 1 *tiefe) (bilde_variante *stimme *tiefe1 *breite *rest *rest1) . ...
(define übergang) !
(übergang #[0 30) *stimme #[2 4) *d *t0 *t3 [[4 *n1] [4 *n2]] *scala *breite [[4 *n11] [4 ++]]) <- (ton *stimme {*scala:*n3} *t3) (ton *stimme {*scala:*n0} *t0) (eq *n11 :(*n1 + ((*n3 - *n0) /2))) . ... (übergang #[0 100) *stimme #[2 4) *d *t0 *t3 [[4 *n1] [4 *n2]] *scala *breite [[4 *n1] [4 *n2]]) <- .
(define variiere) !
(variiere 4 4 *zufall *stimme *breite *n1 *n2 *p_neu *rest) <-/
(variiere 8 8 *zufall *stimme *breite *n1 *n2 *p_neu *rest) <-/
(define variiere2_4) ! (variiere2_4 #[0 8) *1 *2 *n1 *n2 [[8 *n1] [8 *n1] [8 *n2] [8 *n2] | *rest] *rest) <- . (variiere2_4 #[0 12) *1 *2 *n1 *n2 [[8 *n1] [8 ++] [8 ++] [8 *n2] | *rest] *rest) <-
(variiere2_4 #[0 16) *1 *2 *n1 *n2 [[8 *n1] [8 --] [8 --] [8 *n2] | *rest] *rest) <-
(variiere2_4 #[0 20) *1 *2 *n1 *n2 [[8 *n1] [8 *n1] [8 *n1] [8 *n2] | *rest] *rest) <- . (variiere2_4 #[0 24) *1 *2 *n1 *n2 [[8 *n1] [8 --] [8 ++] [8 *n2] | *rest] *rest) <- . |