[CM] first steps --- just testing
Valery Beluntsov
leh@mail.ru
Mon, 11 Nov 2002 21:50:32 +0300
--------------Boundary-00=_8ODFC0UN4ZPHRZ5R8F4B
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
I downloaded clisp 1.28 and it's OK now, it works. Because I'm still new =
to=20
cmn, I have some simple questions.
1. How to load file to clisp? Now I start clisp, then copy-paste text to =
clisp=20
console and press enter. It works but it seems to be easier method...
2. Here's a small test code and output in attachment:
(cmn (size 24)
=09(system brace
=09=09(staff treble (meter 6 8)
=09=09=09(c4 q) (d4 q) (e4 q) (f4 q.) (af4 q. tenuto))
=09=09(staff alto (meter 4 4)
=09=09=09c3 h. b2 h. double-bar)))
Why the image is turned to landscape orientation? What should I do to tur=
n it=20
back?
3. Why do I see no left line here? What should I do to make it appear?
4. Automatic grouping is fine, but what should I do to make the second no=
te in=20
the example look like one quarter? (Not to cancel automalic grouping=20
globally, but just for one note?)
5. Why 4/4 barline extends to upper staff? What should I do to keep barli=
nes=20
in "theirs" staff only (e.g. for to have right and left hands to play in=
=20
different meters when barlines should not match)?
Thank you in advance,
Valery
--------------Boundary-00=_8ODFC0UN4ZPHRZ5R8F4B
Content-Type: image/x-eps;
name="aaa1.eps"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename="aaa1.eps"
%!PS-Adobe-2.0 EPSF-2.0
%%CreationDate: Mon 11-Nov-102 at 21:35
%%BoundingBox:(atend)
%%EndComments
%%EndProlog
%%Page: 1 1
0.000 0.000 0.000 setrgbcolor 0 setlinewidth
gsave [ 1 0 0 1 0 0 ] concat
% staff lines
0.480 setlinewidth
36.00 132.00 moveto
266.60 132.00 lineto
36.00 138.05 moveto
266.60 138.05 lineto
36.00 144.10 moveto
266.60 144.10 lineto
36.00 150.15 moveto
266.60 150.15 lineto
36.00 156.19 moveto
266.60 156.19 lineto
stroke
0 setlinewidth
/draw15 {
% treble clef
11.76 -6.19 moveto
12.38 -10.32 13.10 -16.13 7.15 -14.16 curveto
9.70 -13.92 10.37 -10.46 7.68 -9.55 curveto
5.04 -9.55 4.32 -12.43 6.14 -14.40 curveto
6.96 -14.93 7.44 -15.12 8.11 -15.31 curveto
13.82 -16.03 13.30 -9.65 12.53 -6.05 curveto
21.41 -3.02 17.90 7.54 10.61 5.66 curveto
10.46 6.86 9.84 9.31 10.08 10.56 curveto
10.32 11.76 11.62 13.39 12.24 14.54 curveto
14.98 19.54 14.78 24.00 11.90 26.59 curveto
9.84 26.83 8.35 21.31 8.35 17.86 curveto
8.35 16.70 8.74 14.83 8.35 13.82 curveto
7.97 12.72 6.96 11.57 6.34 10.56 curveto
3.65 6.24 1.30 1.97 4.37 -2.88 curveto
6.14 -5.71 8.59 -6.19 11.76 -6.19 curveto
9.46 14.93 moveto
8.98 16.70 8.88 23.47 12.29 23.90 curveto
15.98 22.75 10.90 16.03 9.46 14.93 curveto
9.17 9.55 moveto
9.84 5.38 lineto
6.05 3.02 6.05 -1.49 8.59 -2.54 curveto
8.93 -2.11 lineto
6.82 0.10 8.30 3.17 10.18 3.26 curveto
11.57 -5.33 lineto
9.17 -5.28 7.34 -5.33 5.66 -3.22 curveto
2.30 0.91 6.67 5.81 9.22 9.74 curveto
12.38 -5.28 moveto
10.99 3.50 lineto
16.27 4.22 17.86 -3.50 12.38 -5.28 curveto
fill
} def
gsave [ 1.000 0 0 1.000 38.400 138.002 ] concat
draw15
grestore
gsave [ 1.000 0 0 1.000 61.860 150.242 ] concat
% six
4.03 -5.71 moveto
5.86 -5.64 7.27 -4.37 7.32 -2.30 curveto
7.32 -1.03 6.58 0.72 4.92 0.72 curveto
4.01 0.72 3.29 0.36 2.76 -0.36 curveto
2.23 -0.14 2.14 4.22 3.60 4.97 curveto
4.66 5.64 5.81 4.75 5.54 4.34 curveto
4.97 4.22 4.51 3.82 4.56 2.86 curveto
4.99 1.49 6.98 1.66 7.20 3.07 curveto
7.18 4.20 6.62 5.66 4.30 5.76 curveto
1.78 5.64 0.17 2.81 0.17 0.10 curveto
0.26 -2.59 1.37 -5.54 4.03 -5.71 curveto
4.18 -5.16 moveto
5.28 -5.09 5.47 -3.72 5.47 -2.59 curveto
5.50 -1.46 5.33 0.14 4.18 0.14 curveto
2.98 0.14 2.76 -1.39 2.81 -2.59 curveto
2.83 -3.77 3.02 -5.16 4.18 -5.16 curveto
eofill
grestore
gsave [ 1.000 0 0 1.000 62.460 138.122 ] concat
% eight
3.50 5.64 moveto
1.63 5.59 0.36 4.75 -0.10 3.00 curveto
-0.26 1.15 1.32 0.58 1.63 0.22 curveto
1.01 -0.14 -0.14 -1.22 -0.17 -2.81 curveto
0.05 -4.54 1.30 -5.62 3.70 -5.71 curveto
5.47 -5.69 7.08 -4.68 7.10 -2.62 curveto
7.22 -1.75 6.70 -0.60 5.28 0.36 curveto
6.36 1.08 6.96 1.97 6.89 3.14 curveto
6.70 4.63 5.11 5.59 3.50 5.64 curveto
3.50 5.02 moveto
4.80 4.99 5.59 4.08 5.64 2.74 curveto
5.69 1.99 4.99 1.25 4.44 0.91 curveto
3.58 1.68 2.04 1.99 1.66 3.36 curveto
1.66 4.13 2.42 4.99 3.50 5.02 curveto
2.38 -0.34 moveto
3.17 -0.96 4.58 -1.32 5.38 -2.74 curveto
5.76 -3.98 4.97 -4.97 3.50 -4.97 curveto
1.92 -4.85 1.22 -3.60 1.13 -2.35 curveto
1.03 -1.42 1.75 -0.58 2.35 -0.31 curveto
fill
grestore
gsave [ 1.000 0 0 1.000 79.522 125.954 ] concat
0.00 0.00 moveto
/draw16 {
% quarter note
0.34 -2.11 moveto
-0.34 -0.72 0.62 1.34 2.16 2.30 curveto
3.46 3.07 5.52 3.41 6.48 2.21 curveto
7.58 0.58 6.19 -1.44 4.56 -2.40 curveto
3.12 -3.02 1.58 -3.26 0.34 -2.11 curveto
fill
} def
gsave [ 1.000 0 0 1.000 0 0 ] concat
draw16
grestore
grestore
0.600 setlinewidth
86.09 125.95 moveto
86.09 144.22 lineto
stroke
0 setlinewidth
0.960 setlinewidth
77.12 125.95 moveto
88.79 125.95 lineto
stroke
0 setlinewidth
108.89 124.18 moveto
111.43 121.18 119.07 121.18 121.62 124.18 curveto
119.07 120.22 111.43 120.22 108.89 124.18 curveto
fill
gsave [ 1.000 0 0 1.000 103.594 128.978 ] concat
0.00 0.00 moveto
gsave [ 1.000 0 0 1.000 0 0 ] concat
draw16
grestore
grestore
0.600 setlinewidth
110.16 128.98 moveto
110.16 148.18 lineto
stroke
0 setlinewidth
/draw17 {
% 8th flag up
0.00 7.10 moveto
0.46 7.10 lineto
0.53 5.74 0.74 3.50 2.42 2.21 curveto
5.90 -1.27 6.60 -2.90 6.43 -6.24 curveto
6.24 -9.86 5.11 -11.57 4.37 -12.96 curveto
4.20 -12.84 lineto
5.30 -10.87 5.93 -8.59 5.86 -6.17 curveto
5.83 -2.86 2.83 0.00 0.50 0.00 curveto
0.50 -0.58 lineto
0.00 -0.58 lineto
0.00 7.10 lineto
fill
} def
gsave [ 1.000 0 0 1.000 109.858 145.778 ] concat
draw17
grestore
gsave [ 1.000 0 0 1.000 121.547 128.978 ] concat
0.00 0.00 moveto
gsave [ 1.000 0 0 1.000 0 0 ] concat
draw16
grestore
grestore
0.600 setlinewidth
128.11 128.98 moveto
128.11 148.18 lineto
stroke
0 setlinewidth
gsave [ 1.000 0 0 1.000 127.811 145.778 ] concat
draw17
grestore
gsave [ 1.000 0 0 1.000 149.963 132.002 ] concat
0.00 0.00 moveto
gsave [ 1.000 0 0 1.000 0 0 ] concat
draw16
grestore
grestore
0.600 setlinewidth
156.53 132.00 moveto
156.53 151.20 lineto
stroke
0 setlinewidth
167.68 131.79 moveto
0.480 setlinewidth
167.68 156.00 lineto
stroke
gsave [ 1.000 0 0 1.000 177.633 135.026 ] concat
0.00 0.00 moveto
gsave [ 1.000 0 0 1.000 0 0 ] concat
draw16
grestore
11.664 0.000 0.96 0 360 newpath arc fill
grestore
0.600 setlinewidth
184.20 135.03 moveto
184.20 154.23 lineto
stroke
0.480 setlinewidth
gsave [ 1.000 0 0 1.000 235.568 135.074 ] concat
% tenuto
1.200 setlinewidth
0.00 0.00 moveto
7.20 0.00 rlineto
stroke
0.480 setlinewidth
grestore
gsave [ 1.000 0 0 1.000 235.736 141.074 ] concat
0.00 0.00 moveto
/draw18 {
% flat
0.65 2.06 moveto
0.65 11.59 lineto
0.00 11.59 lineto
0.00 -4.63 lineto
0.29 -4.46 1.68 -3.34 2.33 -2.86 curveto
3.38 -2.06 5.86 -0.58 5.16 1.97 curveto
3.96 4.90 0.65 2.09 0.65 2.06 curveto
0.65 0.89 moveto
0.65 -3.29 lineto
0.77 -3.36 4.94 0.70 2.88 2.16 curveto
2.69 2.23 2.04 2.52 0.65 0.89 curveto
eofill
} def
gsave [ 1.000 0 0 1.000 -6.828 0 ] concat
draw18
grestore
gsave [ 1.000 0 0 1.000 0 0 ] concat
draw16
grestore
11.664 0.000 0.96 0 360 newpath arc fill
grestore
0.600 setlinewidth
242.30 141.07 moveto
242.30 160.27 lineto
stroke
0.480 setlinewidth
gsave [ 1.115 0 0 1.115 25.987 114.001 ] concat
-0.84 0.00 moveto
13.20 12.67 -4.13 19.20 5.69 37.73 curveto
-7.08 18.00 9.96 8.64 -0.84 0.00 curveto
fill
-0.84 0.00 moveto
13.20 -12.67 -4.13 -19.20 5.69 -37.73 curveto
-7.08 -18.00 9.96 -8.64 -0.84 0.00 curveto
fill
grestore
% staff lines
0.480 setlinewidth
36.00 72.00 moveto
266.60 72.00 lineto
36.00 78.05 moveto
266.60 78.05 lineto
36.00 84.10 moveto
266.60 84.10 lineto
36.00 90.15 moveto
266.60 90.15 lineto
36.00 96.19 moveto
266.60 96.19 lineto
stroke
0 setlinewidth
/draw19 {
% c clef
11.16 10.61 moveto
11.16 11.40 lineto
18.36 12.07 15.43 0.29 12.36 1.92 curveto
10.87 3.17 10.80 4.73 10.15 6.17 curveto
9.17 2.76 8.45 1.01 7.32 0.12 curveto
7.32 12.00 lineto
6.77 12.00 lineto
6.77 -12.00 lineto
7.32 -12.00 lineto
7.32 -0.12 lineto
8.47 -1.03 9.12 -2.69 10.15 -6.17 curveto
10.85 -4.61 10.92 -3.17 12.41 -1.92 curveto
15.43 -0.29 18.36 -12.07 11.21 -11.40 curveto
11.21 -10.51 lineto
12.79 -9.24 12.07 -7.03 10.01 -7.32 curveto
6.31 -9.19 11.59 -15.48 16.61 -10.49 curveto
19.80 -6.79 16.63 0.77 10.56 -1.80 curveto
9.84 0.00 lineto
10.56 1.80 lineto
16.63 -0.77 19.80 6.79 16.61 10.49 curveto
11.83 15.53 6.31 9.05 10.32 7.27 curveto
12.05 7.13 13.13 9.19 11.23 10.61 curveto
fill
2.88 12.00 moveto
2.88 -12.00 lineto
5.45 -12.00 lineto
5.45 12.00 lineto
2.88 12.00 lineto
fill
} def
gsave [ 1.000 0 0 1.000 39.360 84.002 ] concat
draw19
grestore
gsave [ 1.000 0 0 1.000 62.256 90.242 ] concat
% four
6.05 5.59 moveto
2.71 5.59 lineto
2.57 3.07 2.59 0.07 -0.05 -2.33 curveto
-0.05 -2.93 lineto
3.82 -2.93 lineto
3.82 -4.51 lineto
3.77 -4.75 3.12 -4.97 2.76 -4.94 curveto
2.76 -5.59 lineto
7.42 -5.59 lineto
7.42 -4.97 lineto
7.18 -4.97 6.58 -4.87 6.43 -4.49 curveto
6.43 -2.93 lineto
7.42 -2.93 lineto
7.42 -2.30 lineto
6.36 -2.30 lineto
6.36 3.50 lineto
3.82 0.41 lineto
3.82 -2.30 lineto
1.03 -2.30 lineto
3.34 0.50 5.21 3.58 6.05 5.59 curveto
fill
grestore
gsave [ 1.000 0 0 1.000 62.256 78.122 ] concat
% four
6.05 5.59 moveto
2.71 5.59 lineto
2.57 3.07 2.59 0.07 -0.05 -2.33 curveto
-0.05 -2.93 lineto
3.82 -2.93 lineto
3.82 -4.51 lineto
3.77 -4.75 3.12 -4.97 2.76 -4.94 curveto
2.76 -5.59 lineto
7.42 -5.59 lineto
7.42 -4.97 lineto
7.18 -4.97 6.58 -4.87 6.43 -4.49 curveto
6.43 -2.93 lineto
7.42 -2.93 lineto
7.42 -2.30 lineto
6.36 -2.30 lineto
6.36 3.50 lineto
3.82 0.41 lineto
3.82 -2.30 lineto
1.03 -2.30 lineto
3.34 0.50 5.21 3.58 6.05 5.59 curveto
fill
grestore
gsave [ 1.000 0 0 1.000 79.462 62.930 ] concat
0.00 0.00 moveto
/draw20 {
% half note
0.48 -2.42 moveto
-1.51 0.89 4.44 4.73 6.43 2.57 curveto
9.10 -0.24 3.29 -4.63 0.50 -2.42 curveto
1.03 -1.97 moveto
0.36 -0.17 4.97 3.00 5.74 2.09 curveto
6.98 0.65 2.33 -3.34 1.03 -1.97 curveto
eofill
} def
gsave [ 1.000 0 0 1.000 0 0 ] concat
draw20
grestore
11.784 0.000 0.96 0 360 newpath arc fill
grestore
0.600 setlinewidth
86.15 63.41 moveto
86.15 84.22 lineto
stroke
0 setlinewidth
0.960 setlinewidth
77.78 65.95 moveto
88.85 65.95 lineto
stroke
0 setlinewidth
182.93 55.11 moveto
188.93 52.11 207.90 52.11 213.90 55.11 curveto
207.90 51.15 188.93 51.15 182.93 55.11 curveto
fill
gsave [ 1.000 0 0 1.000 177.633 59.906 ] concat
0.00 0.00 moveto
gsave [ 1.000 0 0 1.000 0 0 ] concat
draw16
grestore
grestore
0.600 setlinewidth
184.20 59.91 moveto
184.20 84.22 lineto
stroke
0 setlinewidth
0.960 setlinewidth
175.23 59.91 moveto
186.90 59.91 lineto
175.23 65.95 moveto
186.90 65.95 lineto
stroke
0 setlinewidth
201.41 71.79 moveto
0.480 setlinewidth
201.41 156.00 lineto
stroke
gsave [ 1.000 0 0 1.000 213.763 59.906 ] concat
0.00 0.00 moveto
gsave [ 1.000 0 0 1.000 0 0 ] concat
draw20
grestore
grestore
0.600 setlinewidth
220.45 60.39 moveto
220.45 84.22 lineto
stroke
0.480 setlinewidth
0.960 setlinewidth
211.36 59.91 moveto
223.15 59.91 lineto
211.36 65.95 moveto
223.15 65.95 lineto
stroke
0 setlinewidth
261.80 71.79 moveto
0.480 setlinewidth
261.80 156.00 lineto
stroke
264.20 71.79 moveto
266.60 71.79 lineto
266.60 156.00 lineto
264.20 156.00 lineto
264.20 71.79 lineto
fill
grestore
showpage
%%Trailer
%%BoundingBox: -6 -37 304 233
--------------Boundary-00=_8ODFC0UN4ZPHRZ5R8F4B--