From 290ace54ed99a6f65d400f0cd0c5967d7f04ba06 Mon Sep 17 00:00:00 2001 From: Mustafa Date: Mon, 10 Mar 2014 11:29:47 -0700 Subject: [PATCH] divided bytestring --- rsc3/tests/regression-tests.rkt | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/rsc3/tests/regression-tests.rkt b/rsc3/tests/regression-tests.rkt index aabe3bd..3c80194 100644 --- a/rsc3/tests/regression-tests.rkt +++ b/rsc3/tests/regression-tests.rkt @@ -30,7 +30,11 @@ (check-equal? (ugens->synthdef "ring" (out 0 (mul (ring4 (f-sin-osc ar 800 0) (f-sin-osc ar (x-line kr 200 500 5 do-nothing) 0)) 0.125))) - #"SCgf\0\0\0\0\0\1\4ring\0\6\0\0\0\0DH\0\0CH\0\0C\372\0\0@\240\0\0>\0\0\0\0\0\0\0\0\6\5XLine\1\0\4\0\1\0\0\377\377\0\2\377\377\0\3\377\377\0\4\377\377\0\0\1\aFSinOsc\2\0\2\0\1\0\0\0\0\0\0\377\377\0\0\2\aFSinOsc\2\0\2\0\1\0\0\377\377\0\1\377\377\0\0\2\fBinaryOpUGen\2\0\2\0\1\0!\0\2\0\0\0\1\0\0\2\fBinaryOpUGen\2\0\2\0\1\0\2\0\3\0\0\377\377\0\5\2\3Out\2\0\2\0\0\0\0\377\377\0\0\0\4\0\0") - - + (bytes-append + #"SCgf\0\0\0\0\0\1\4ring\0\6\0\0\0\0DH\0\0CH\0\0C\372\0\0@\240\0\0>" + #"\0\0\0\0\0\0\0\0\6\5XLine\1\0\4\0\1\0\0\377\377\0\2\377\377\0\3" + #"\377\377\0\4\377\377\0\0\1\aFSinOsc\2\0\2\0\1\0\0\0\0\0\0\377\377" + #"\0\0\2\aFSinOsc\2\0\2\0\1\0\0\377\377\0\1\377\377\0\0\2\fBinaryOpUGen" + #"\2\0\2\0\1\0!\0\2\0\0\0\1\0\0\2\fBinaryOpUGen\2\0\2\0\1\0\2\0\3\0\0\377\377" + #"\0\5\2\3Out\2\0\2\0\0\0\0\377\377\0\0\0\4\0\0"))