From cdr Mon Nov 25 11:52:21 1991 Return-Path: Received: by stolaf.edu (4.1/SMI-4.1) id AA23291; Mon, 25 Nov 91 11:52:21 CST Date: Mon, 25 Nov 91 11:52:21 CST From: cdr (Craig D. Rice, St. Olaf College) Message-Id: <9111251752.AA23291@stolaf.edu> To: mutex@stolaf.edu Subject: Welcome This is the first posting to MuTeX@stolaf.edu Craig From cdr@stolaf.edu Wed Nov 27 10:13:56 1991 Return-Path: Received: from sachiko.acc.stolaf.edu by stolaf.edu (4.1/SMI-4.1) id AA06223; Wed, 27 Nov 91 10:13:56 CST Received: by sachiko.acc.stolaf.edu; Wed, 27 Nov 91 10:13:34 CST Message-Id: <9111271613.AA02020@sachiko.acc.stolaf.edu> To: mutex@stolaf.edu Subject: [forwarded] multiple staves with MuTeX Date: Wed, 27 Nov 91 10:13:33 CST From: cdr@stolaf.edu ------- Forwarded Message Date: Tue, 26 Nov 91 21:11:06 -0800 From: William Vera Please add me to your mailing list. I just installed MuTeX here today and produced the 2 demo pieces which look fine. My eventual goal here is to write an X-window front end for composing multi-part scores which will output with MuTeX on a laser printer or previewer. I hear someone is already working on extensions to increase the number of allowable staves. I'm trying to track down who that is at the moment. Please pass along any other interesting development info you might hear about. Thanks, - - William Vera vera@locus.com ------- End of Forwarded Message From hudson@radar.eecs.wsu.edu Wed Nov 27 11:00:24 1991 Return-Path: Received: from radar.eecs.wsu.edu by stolaf.edu (4.1/SMI-4.1) id AA06725; Wed, 27 Nov 91 11:00:24 CST Received: by radar.eecs.wsu.edu (AIX 1.3/4.03) id AA11108; Wed, 27 Nov 91 02:55:59 -0800 Date: Wed, 27 Nov 91 02:55:59 -0800 From: hudson@radar.eecs.wsu.edu Message-Id: <9111271055.AA11108@radar.eecs.wsu.edu> To: mutex@stolaf.edu Subject: where to get it Can someone email me the most up-to-date anonymous ftp site in the US for mutex and/or musictex? I'd appreciate it very much. Scott From cdr Wed Nov 27 11:07:05 1991 Return-Path: Received: by stolaf.edu (4.1/SMI-4.1) id AA06968; Wed, 27 Nov 91 11:07:05 CST Date: Wed, 27 Nov 91 11:07:05 CST From: cdr (Craig D. Rice, St. Olaf College) Message-Id: <9111271707.AA06968@stolaf.edu> To: mutex Subject: FAQ - Frequently Asked Questions Looks like now is a good time for the initial version of FAQ. FAQ 911126: Frequently Asked Questions pertaining to MusicTeX and MuTeX ------------------------------------------------------------------------------- NOTE: This is a bare bones beginning of what will constitute a more substantial "Frequently Asked Questions" for MuTeX and MusicTeX. Please mail your contributions to this to "mutex@stolaf.edu" ------------------------------------------------------------------------------- TABLE OF CONTENTS ------------------------------------------------------------------------------- 01 What is MuTeX? 02 Where can I get MuTeX and MusicTeX? 03 Where are the archives of MuTeX mailing list? ------------------------------------------------------------------------------- 01 What is MuTeX? The MuTeX package is a set of macros allowing TeX to typeset beautiful music. It is the outcome of a Master's thesis at the Rheinische Friedrich-Wilhelms University. 01 What is MusicTeX? Here are the tools to write music with MusicTeX under TeX. The useful macros are MUSIC*.TEX. ------------------------------------------------------------------------------- 02 Where can I get MuTeX and MusicTeX? MuTeX and MusicTeX are available from many sites, including: ftp.stolaf.edu:/pub/TeX/MuTeX.tar.Z ftp.stolaf.edu:/pub/TeX/MuTeX_doc.tar.Z ftp.stolaf.edu:/pub/TeX/MusicTeX.tar.Z ccadfa.cc.adfa.oz.au:/pub/tex/MuTeX.tar.Z clouso.crim.ca:/pub/MuTeX.tar.Z alfred.ccs.carleton.ca:/pub/tex/MusicTeX.tar.Z ------------------------------------------------------------------------------- 03 Where are the archives of the MuTeX mailing list? Archives for the MuTeX mailing list are available via anonymous FTP from: ftp.stolaf.edu:/pub/mutex/archive ------------------------------------------------------------------------------- Craig -- Craig D. Rice UNIX Systems Specialist/Network Analyst cdr@stolaf.edu Academic Computing Center, St. Olaf College +1 507 663-3631 1520 St. Olaf Avenue +1 507 663-3549 FAX Northfield, MN 55057-1098 USA From MAKO@UIHEPA.HEP.UIUC.EDU Wed Nov 27 12:22:29 1991 Return-Path: Received: from uihepa.hep.uiuc.edu by stolaf.edu (4.1/SMI-4.1) id AA07715; Wed, 27 Nov 91 12:22:29 CST Received: from UIHEPA.HEP.UIUC.EDU by UIHEPA.HEP.UIUC.EDU (PMDF #12392) id <01GDFZ4AJ0M8BNJ2LH@UIHEPA.HEP.UIUC.EDU>; Wed, 27 Nov 1991 12:23 CST Date: Wed, 27 Nov 1991 12:23 CST From: "Makoto Shimojima, Univ of Tsukuba/CDF" Subject: Re: FAQ - Frequently Asked Questions To: mutex@stolaf.edu Message-Id: <01GDFZ4AJ0M8BNJ2LH@UIHEPA.HEP.UIUC.EDU> X-Organization: High Energy Physics, University of Illinois, Urbana-Champaign X-Vms-To: IN%"mutex@stolaf.edu" X-Vms-Cc: MAKO I have the following info regarding the ftp sites: mako -- Makoto Shimojima Location DECnet/ESnet Bitnet Internet UoTsukuba: UTKBP::MAKO -N/A- mako%utkbp.dnet@kekux.kek.jp KEK: KEKVAX::MAKO MAKO@JPNKEKVX mako@kekvax.kek.jp >UoIllinois: UIHEP::MAKO MAKO@UIUCHEPG mako@uihepa.hep.uiuc.edu Fermilab: FNAL::MAKO MAKO@FNAL mako@fnal.fnal.gov From: jmcn@castle.ed.ac.uk (J McNicol) Date: 15 Aug 91 16:07:24 GMT aix370.rrz.uni-koeln.de (134.95.80.1) /tex/musictex.tar.Z arisia.xerox.com (13.1.100.206) /pub/musictexdemo.PS athene.uni-paderborn.de (131.234.2.32) /pcsoft/amiga/tex/fonts/musictex.lzh bach.cs.umb.edu (192.12.26.23) /pub/tex/musictex.tar.Z cs.dal.ca (129.173.4.5) /pub/comp.archives/musictex emx.utexas.edu (128.83.1.33) /pub/mnt/source/tex/musictex.tar.Z forwiss.uni-passau.de (132.231.20.10) /pub/tex/macros/musictex.tar.Z iraun1.ira.uka.de (129.13.10.90) /tex/musictex.tar.Z kth.se (130.237.72.201)/tex/umb/musictex.tar.Z nz20.rz.uni-karlsruhe.de(129.13.96.2) /pub/pctex/texutl/macros/musictex.lzh qed.rice.edu (128.42.4.38) /pub/musictex.tar.Z sol.cs.ruu.nl (131.211.80.5) /TEX/musictex.tar.Z srawgw.sra.co.jp (133.137.4.3) /.a/sranha/arch/arch/comp.archives/musictex /.a/sranha/arch/arch/comp.archives/music/notation/musictex wraith.cs.uow.edu.au (130.130.64.1) /cache/ftp.cs.umb.edu/pub/tex/musictex.tar.Z Also, the author of MusicTeX recommends this site (presumably his home site, and most up to date): rsovax.circe.fr Username musictex, Password From: TAUPIN@FRUPS51.BITNET Date: 23 Sep 91 20:50:55 GMT Music composers/typesetters/lovers could find interesting Music macroes at ip address 130.84.128.100, user anonymous, cwd musictex. Questions and comments welcome... From: schoepf@sc.ZIB-Berlin.DE (Rainer Schoepf) Date: 19 Aug 91 13:07:50 GMT The most recent version of MuTeX (directly obtained from Bonn, the original source) is located on rusinfo.rus.uni-stuttgart.de, in directory soft/tex/mtex. From ORLANDINI@JANE.GSFC.NASA.GOV Wed Nov 27 12:53:05 1991 Return-Path: Received: from JANE.GSFC.NASA.GOV by stolaf.edu (4.1/SMI-4.1) id AA08017; Wed, 27 Nov 91 12:53:05 CST Date: Wed, 27 Nov 1991 13:54:42 EST From: ORLANDINI@JANE.GSFC.NASA.GOV (M.Orlandini - NASA/GSFC. Tel (301) 286 1128) Message-Id: <911127135442.20a0015f@JANE.GSFC.NASA.GOV> Subject: Site for Mutex and MusicTex To: mutex@stolaf.edu X-Vmsmail-To: SMTP%"mutex@stolaf.edu" From the FAQ of the comp.text.tex newsgroup > A package called MuTeX, written by Andrea Steinbach and Angelika Schofer, > aids in doing this [typeset music]. It is available via anonymous ftp from > sol.cs.ruu.nl (131.211.80.5) in pub/TEX/mtex.tar.Z and from > ymir.claremont.edu (134.173.4.23) in [anonymous.tex.music.mtex]. This > package allows you to typeset single-staff music and lyrics. > A more powerful package which allows the typesetting of orchestral and > polifonic music is MusicTeX, written by Daniel Taupin. It is also available > from ymir.claremont.edu in [anonymous.tex.music.musictex]. ---Mauro From HOLZWARTH@DHDSPRI6.BITNET Thu Nov 28 00:03:46 1991 Return-Path: Received: from vx.acs.umn.edu by stolaf.edu (4.1/SMI-4.1) id AA11829; Thu, 28 Nov 91 00:03:46 CST Received: from DHDSPRI6.bitnet by vx.acs.umn.edu; Thu, 28 Nov 91 00:05 CST Date: Thu, 28 Nov 91 07:03 N From: Frank Holzwarth Subject: Wanted: PS demofile for MuTeX/MusicTeX To: mutex@stolaf.edu Message-Id: X-Envelope-To: mutex@stolaf.edu X-Vms-To: IN%"mutex@stolaf.edu" Hello all you musical TeXers, Some time ago I saw an output of the archie facility mentioning a file like MUSICTEX_DEMO.PS Unfortunately the FTP site was dead and that interesting file was not available elsewhere. Can anybody point me to an archive where to obtain this PostScript file. As I have not yet installed MuTeX or MusicTeX the file should contain all the fonts needed in PS form. Thank you very much in advance Frank Holzwarth e-mail: HOLZWARTH@DHDSPRI6.bitnet Springer-Verlag Dept. New Technologies/Product Development Tiergartenstrasse 17 W-6900 Heidelberg FRG From icking@gmdzi.gmd.de Thu Nov 28 04:26:04 1991 Return-Path: Received: from unido.informatik.uni-dortmund.de by stolaf.edu (4.1/SMI-4.1) id AA12322; Thu, 28 Nov 91 04:26:04 CST Received: from gmdzi.gmd.de by unido.informatik.uni-dortmund.de with SMTP (5.65+/UNIDO-2.0.4.f) via EUnet for stolaf.edu id AA13131; Thu, 28 Nov 91 11:21:25 +0100 Received: by gmdzi.gmd.de id AA27826; Thu, 28 Nov 91 11:26:21 -0100 Date: Thu, 28 Nov 91 11:26:21 -0100 From: Werner Icking Message-Id: <9111281026.AA27826@gmdzi.gmd.de> To: ORLANDINI@JANE.GSFC.NASA.GOV, mutex@stolaf.edu Subject: MusicTeX vs. MuTeX >>From the FAQ of the comp.text.tex newsgroup > >> A package called MuTeX, written by Andrea Steinbach and Angelika Schofer, >> aids in doing this [typeset music]. It is available via anonymous ftp from >> sol.cs.ruu.nl (131.211.80.5) in pub/TEX/mtex.tar.Z and from >> ymir.claremont.edu (134.173.4.23) in [anonymous.tex.music.mtex]. This >> package allows you to typeset single-staff music and lyrics. >> A more powerful package which allows the typesetting of orchestral and >> polifonic music is MusicTeX, written by Daniel Taupin. It is also available >> from ymir.claremont.edu in [anonymous.tex.music.musictex]. I think that it is not correct to say that MusicTeX is more powerful. The main difference between MuTeX and MusicTeX is that - MusicTeX deals with multiple staves (staffs?) - MuTeX produces a nicer output. The reason that MuteX produces nicer output seems to be that it can handle only single-staff music and therefore can easier put glue between the notes. A second reason is that it makes "real" slurs and not some sort of rotated brackets (braces, ...). Both packages have in common, that the input language is a horrorific. Both packages show some errors which are nearly impossible to trace down or to find a circumvention (e.g. MuTeX typesets sometimes not-available characters instead of slurs; MusicTeX sometimes makes a break in the middle of a slur.). Both packages are very big and required a lot of CPU-power and a big TeX-installation. Some days (or month?) ago a new MusicTeX-version came out. And when I looked at various archives most of them had (different) outdated versions. Therefor it may be a good advice to update the archived versions (or to get MusicTeX from rsovax.circe.fr (userid: musictex password: any)) near to the author. Werner -- Werner Icking icking@gmdzi.gmd.de (+49 2241) 14-2443 Gesellschaft fuer Mathematik und Datenverarbeitung mbH (GMD) Schloss Birlinghoven, P.O.Box 1240, D-5205 Sankt Augustin 1, FRGermany "Der Dativ ist dem Genitiv sein Tod." From icking@gmdzi.gmd.de Thu Nov 28 11:59:52 1991 Return-Path: Received: from unido.informatik.uni-dortmund.de by stolaf.edu (4.1/SMI-4.1) id AA12757; Thu, 28 Nov 91 11:59:52 CST Received: from gmdzi.gmd.de by unido.informatik.uni-dortmund.de with SMTP (5.65+/UNIDO-2.0.4.f) via EUnet for stolaf.edu id AA24604; Thu, 28 Nov 91 18:55:18 +0100 Received: by gmdzi.gmd.de id AA20629; Thu, 28 Nov 91 19:00:14 -0100 Date: Thu, 28 Nov 91 19:00:14 -0100 From: Werner Icking Message-Id: <9111281800.AA20629@gmdzi.gmd.de> To: mutex@stolaf.edu Subject: MuTeX documentation - MuTeX users guide Cc: jalbert@cs.ucb.ca A lot of MuTeX users complain about the poor documentation. A reason for this may be that they DO NOT have GUIDE.TEX which was written by Francois Jalbert, because the original short users guide MTEXINFO.TEX is written in German (no problem for Francois :-) - hello Frankie, how are you?) and is very poor. GUIDE.TEX is contained in MUTEX.ARC which can be found on SIMTEL (and its mirror sites) in the directory PD1:. Another source of information about MuTeX is the master thesis (Diplomarbeit) of the MuTeX authors which can be found on most TEX-server. It is written in German. It CANNOT serve as a users guide; it tells something about music typesetting and how the principles of "Notenstich" (engraving) can be transferred to a text-processor like TeX. The basic knowledge about "Notenstich" is cited from "the" famous small book by Harder. Werner From MAKO@UIHEPA.HEP.UIUC.EDU Thu Nov 28 17:11:52 1991 Return-Path: Received: from uihepa.hep.uiuc.edu by stolaf.edu (4.1/SMI-4.1) id AA13101; Thu, 28 Nov 91 17:11:52 CST Received: from UIHEPA.HEP.UIUC.EDU by UIHEPA.HEP.UIUC.EDU (PMDF #12392) id <01GDHNIFHJTCBNJ3KJ@UIHEPA.HEP.UIUC.EDU>; Thu, 28 Nov 1991 17:12 CST Date: Thu, 28 Nov 1991 17:12 CST From: "Makoto Shimojima, Univ of Tsukuba/CDF" Subject: New MusicTeX available at rsovax.circe.fr To: mutex@stolaf.edu Message-Id: <01GDHNIFHJTCBNJ3KJ@UIHEPA.HEP.UIUC.EDU> X-Organization: High Energy Physics, University of Illinois, Urbana-Champaign X-Vms-To: IN%"mutex@stolaf.edu" From: IN%"TAUPIN@FRUPS51.BITNET" 28-NOV-1991 13:29:40.04 To: IN%"MAKO@UIHEPA.HEP.UIUC.EDU" CC: Subj: RE: Re: MusicTeX Received: from Jnet-DAEMON by UIHEPA.HEP.UIUC.EDU (PMDF #12392) id <01GDHFPURPQCBNIY8L@UIHEPA.HEP.UIUC.EDU>; Thu, 28 Nov 1991 13:29 CST Received: From FRUPS51(TAUPIN) by UIUCHEPA with Jnet id 0079 for MAKO@UIUCHEPG; Thu, 28 Nov 1991 13:29 CST Date: 28 NOV 91 19:27:33.65-GMT From: TAUPIN@FRUPS51.BITNET Subject: RE: Re: MusicTeX To: MAKO@UIHEPA.HEP.UIUC.EDU Message-id: <01GDHFPURPQCBNIY8L@UIHEPA.HEP.UIUC.EDU> New version of MusicTeX available by ftp anonymous at 130.84.128.100 (rsovax.circe.fr) Enhancements: fonts corrected according to K. Neuwirth's suggestions (except some difficult things) -- ties and slurs work better. -- repeats seem to work correctly now -- some other small defects removed -- the notice has been seriously enhanced. -- better flexibility with modes in *.mf Further projects: automatic transposition, including accidentals, small notes, nicer ties. -- latex style according to N. Brouard's suggestions. Daniel TAUPIN, Bat. 510, 91405 ORSAY (France) From @CUNYVM.CUNY.EDU:TAUPIN@FRUPS51.BITNET Tue Dec 3 09:27:47 1991 Return-Path: <@CUNYVM.CUNY.EDU:TAUPIN@FRUPS51.BITNET> Received: from CUNYVM.CUNY.EDU by stolaf.edu (4.1/SMI-4.1) id AA16509; Tue, 3 Dec 91 09:27:47 CST Message-Id: <9112031527.AA16509@stolaf.edu> Received: from FRUPS51.BITNET by CUNYVM.CUNY.EDU (IBM VM SMTP V2R1) with BSMTP id 2841; Tue, 03 Dec 91 10:26:39 EST Date: 3 DEC 91 16:23:31.78-GMT From: TAUPIN%FRUPS51.bitnet@CUNYVM.CUNY.EDU Subject: Musictex version 4.31 To: MUTEX@stolaf.edu New version 4.31 of MusicTeX available by ftp anonymous at 130.84.128.100 (rsovax.circe.fr) New: you can now write transposable music, including the transposition of accidentals. Read the notice.tex. Bugs removed in signature changes from 4.3 (november 1991) Enhancements since summer 1991: fonts corrected according to K. Neuwirth's suggestions (except some difficult things) -- ties and slurs work better. -- repeats seem to work correctly now -- some other small defects removed -- the notice has been seriously enhanced. -- better flexibility with modes in *.mf Further projects: small notes, nicer ties. -- latex style according to N. Brouard's suggestions. Daniel TAUPIN, Bat. 510, 91405 ORSAY (France) From @CUNYVM.CUNY.EDU:TAUPIN@FRUPS51.BITNET Tue Dec 3 11:57:58 1991 Return-Path: <@CUNYVM.CUNY.EDU:TAUPIN@FRUPS51.BITNET> Received: from CUNYVM.CUNY.EDU by stolaf.edu (4.1/SMI-4.1) id AA17892; Tue, 3 Dec 91 11:57:58 CST Message-Id: <9112031757.AA17892@stolaf.edu> Received: from FRUPS51.BITNET by CUNYVM.CUNY.EDU (IBM VM SMTP V2R1) with BSMTP id 6493; Tue, 03 Dec 91 12:56:53 EST Date: 3 DEC 91 18:59:44.88-GMT From: TAUPIN%FRUPS51.bitnet@CUNYVM.CUNY.EDU Subject: French MusicTeX examples To: MUTEX@stolaf.edu If you have troubles with 8bit french characters, the musicsty.tex contrain their definitions (starting from 2 minutes ago). If you have only a 7bit TeX, then look at this file and perform the replacement with your editor... From bobb@agora.rain.com Tue Dec 3 22:06:26 1991 Return-Path: Received: from percy.rain.com by stolaf.edu (4.1/SMI-4.1) id AA23554; Tue, 3 Dec 91 22:06:26 CST Received: by percy.rain.com (/\==/\ Smail3.1.24.1 #24.2) id ; Tue, 3 Dec 91 20:07 WET Received: by agora.rain.com (/\==/\ Smail3.1.21.1 #21.6) id ; Tue, 3 Dec 91 20:04 PST Message-Id: Date: Tue, 3 Dec 91 20:04 PST From: bobb@agora.rain.com (Bob Beauchemin) To: mutex@stolaf.edu Subject: Music and book publishing A friend of mine is looking to typeset a textbook that is mostly text, but interspersed with staffs of music (ie. music included in the text like figures). Does anyone have any experiences doing this sort of thing with any combination of Plain TeX, LaTeX, MuTeX and/or MusicTeX? It appears, after a brief glance, that MuTeX and MusicTeX are mostly for typesetting musical scores (with possible title and composer information). It was mentioned (in the MusicTeX docs, I think) that you lose the TeX '&' character (used for columns) because it use to separate music staffs (staves?). Also, that there may be problems using MusicTeX with LaTeX. But the MusicTeX docs contain "music figures" in the text... Any music & TeX gurus out there? I'm a TeX beginner looking for recommendations. Bob Beauchemin 6503 SW 46th Place Portland OR, 97221 (503)-244-5029 bobb@agora.rain.com From robin.fairbairns@lsl.co.uk Wed Dec 4 04:33:48 1991 Return-Path: Received: from eros.uknet.ac.uk by stolaf.edu (4.1/SMI-4.1) id AA25259; Wed, 4 Dec 91 04:33:48 CST Received: from lsl.co.uk by eros.uknet.ac.uk via PSS with NIFTP (PP) id <23685-0@eros.uknet.ac.uk>; Wed, 4 Dec 1991 10:08:31 +0000 Received: by lsl.co.uk (MX V2.3-1) id 2833; Wed, 04 Dec 1991 10:08:21 +0100 Date: Wed, 04 Dec 1991 10:08:21 +0100 From: Robin Fairbairns To: mutex@stolaf.edu Message-Id: <009529A9.DA74FE80.2833@lsl.co.uk> Subject: Re: Musictex version 4.31 In article <9112031527.AA16509@stolaf.edu>, TAUPIN writes: > New version 4.31 of MusicTeX available by ftp anonymous > at 130.84.128.100 (rsovax.circe.fr) > New: you can now write transposable music, including > the transposition of accidentals. Read the notice.tex. I had slight problems with the positioning of `notice' on my printer (a DEC LPS 20 postcript machine). > Bugs removed in signature changes from 4.3 (november 1991) > > Enhancements since summer 1991: fonts corrected according to > K. Neuwirth's suggestions (except some > difficult things) > -- ties and slurs work better. Much better (though admittedly still not perfect!). I'm setting (mostly) late classical or romantic music, with widely variable bar lengths. The ties and slurs now (occasionally) break up; previously they had ghastly tails to the left, which are now entirely absent. I can _cope_ with gaps... ;-) > -- repeats seem to work correctly now > -- some other small defects removed > -- the notice has been seriously enhanced. > -- better flexibility with modes in *.mf Very useful - every previous version I had to patch the MF files. > Further projects: > small notes, nicer ties. Go to it, Daniel! All in all, I strongly recommend that people acquire this latest version. In addition, given that the connection to rsovax.circe.fr is (by Daniel's own admission) rather flaky, I suggest that someone on the far side of the Atlantic (at least) should set up a copy on anon ftp for general consumption. (I shall suggest the same to Aston, at least.) -- Robin Fairbairns, Senior Consultant, postmaster and general dogsbody Laser-Scan Ltd., Science Park, Milton Rd., Cambridge CB4 4FY, UK Email: robin@lsl.co.uk --or-- rf@cl.cam.ac.uk From icking@gmdzi.gmd.de Wed Dec 4 05:56:12 1991 Return-Path: Received: from mail.Germany.EU.net ([192.76.144.65]) by stolaf.edu (4.1/SMI-4.1) id AA25417; Wed, 4 Dec 91 05:56:12 CST Received: from gmdzi.gmd.de by mail.Germany.EU.net with SMTP (5.65+/UNIDO-2.1.0.a) via EUnet for stolaf.edu id AA09164; Wed, 4 Dec 91 12:51:19 +0100 Received: by gmdzi.gmd.de id AA24681; Wed, 4 Dec 91 12:56:22 -0100 Date: Wed, 4 Dec 91 12:56:22 -0100 From: Werner Icking Message-Id: <9112041156.AA24681@gmdzi.gmd.de> To: mutex@stolaf.edu, robin.fairbairns@lsl.co.uk, taupin@gmdzi.gmd.de Subject: MusicTeX version 4.31 availabe on gmdzi.gmd.de Cc: jc@gmdzi.gmd.de Robin Fairbairns complaint has found an open ear: > >In addition, given that the connection to rsovax.circe.fr is (by >Daniel's own admission) rather flaky, I suggest that someone on the far >side of the Atlantic (at least) should set up a copy on anon ftp for >general consumption. (I shall suggest the same to Aston, at least.) > gmdzi.gmd.de (129.26.8.90) has version 4.31 of musictex.zip in /ftp/tmp: -rw-r--r-- 1 icking 406528 Dec 2 04:31 musictex.zip Standard ftp-processing is available (user: anonymous password: Hope this hilft -- Werner PS: If you cannot connect to gmdzi.gmd.de try 129.26.8.90 which is new since yesterday. -- Werner Icking icking@gmdzi.gmd.de (+49 2241) 14-2443 Gesellschaft fuer Mathematik und Datenverarbeitung mbH (GMD) Schloss Birlinghoven, P.O.Box 1240, D-5205 Sankt Augustin 1, FRGermany "Der Dativ ist dem Genitiv sein Tod." From piet@cs.ruu.nl Wed Dec 4 07:32:56 1991 Return-Path: Received: from ruuinf.cs.ruu.nl by stolaf.edu (4.1/SMI-4.1) id AA25627; Wed, 4 Dec 91 07:32:56 CST Received: from gnu.cs.ruu.nl by ruuinf.cs.ruu.nl with SMTP (5.61+/IDA-1.2.8) id AA06580; Wed, 4 Dec 91 14:26:47 +0100 Received: by alchemy.cs.ruu.nl (15.11/15.6) id AA25246; Wed, 4 Dec 91 14:32:03 -0100 Date: Wed, 4 Dec 91 14:32:03 -0100 From: Piet van Oostrum Message-Id: <9112041332.AA25246@alchemy.cs.ruu.nl> To: MUTEX@stolaf.edu Subject: Re: Musictex version 4.31 References: <9112031527.AA16509@stolaf.edu> I do have a compressed tar file in our archive. This is easier for most Unix folx. It is also accessible by a mail-server. How to get musictex.tar.Z from the archive at Dept. of Computer Science, Utrecht University: NOTE: In the following I have assumed your mail address is john@highbrow.edu. Of course you must substitute your own address for this. This should be a valid internet or uucp address. For bitnet users name@host.BITNET usually works. by FTP: (please restrict access to weekends or evening/night (i.e. between about 20.00 and 0900 UTC). ftp archive.cs.ruu.nl [131.211.80.5] user name: anonymous or ftp password: your own email address (e.g. john@highbrow.edu) Don't forget to set binary mode if the file is a tar/arc/zoo archive, compressed or in any other way contains binary data. get TEX/musictex.tar.Z by mail-server: send the following message to mail-server@cs.ruu.nl (or uunet!mcsun!hp4nl!ruuinf!mail-server): begin path john@highbrow.edu (PLEASE SUBSTITUTE *YOUR* ADDRESS) send TEX/musictex.tar.Z end NOTE: *** PLEASE USE VALID INTERNET ADDRESSES IF POSSIBLE. DO NOT USE ADDRESSES WITH ! and @ MIXED !!!! BITNETTERS USE USER@HOST.BITNET *** The path command can be deleted if we receive a valid from address in your message. If this is the first time you use our mail server, we suggest you first issue the request: send HELP -- Piet* van Oostrum, Dept of Computer Science, Utrecht University, Padualaan 14, P.O. Box 80.089, 3508 TB Utrecht, The Netherlands. Telephone: +31 30 531806 Uucp: uunet!mcsun!ruuinf!piet Telefax: +31 30 513791 Internet: piet@cs.ruu.nl (*`Pete') From @hp4nl.nluug.nl:erikjan@icce.rug.nl Wed Dec 4 07:47:05 1991 Return-Path: <@hp4nl.nluug.nl:erikjan@icce.rug.nl> Received: from hp4nl.nluug.nl by stolaf.edu (4.1/SMI-4.1) id AA25677; Wed, 4 Dec 91 07:47:05 CST Received: from rug4 (rug4.cs.rug.nl; [129.125.5.4]) by hp4nl.nluug.nl with SMTP id AA13613 (1.15/2.14); Wed, 4 Dec 91 14:48:07 +0100 Received: from icce.rug.nl by rug4 (4.1/SMI-4.1/CSRUG-1.0) id AA11432; Wed, 4 Dec 91 14:47:24 +0100 Received: by guicce.icce.rug.nl (AIX-RT 2.2.1/4.03/91A07) id AA07861; Wed, 4 Dec 91 12:32:56 +0100 From: Erik-Jan Vens Message-Id: <9112041132.AA07861@guicce.icce.rug.nl> Subject: Re: Musictex version 4.31 To: mutex@stolaf.edu Date: Wed, 4 Dec 91 12:32:55 MET In-Reply-To: <009529A9.DA74FE80.2833@lsl.co.uk>; from "Robin Fairbairns" at Dec 4, 91 10:08 am Reply-To: E.J.Vens@icce.rug.nl X-Organization: The ICCE Experience X-Mailer: ELM [version 2.3 PL11] Robin Fairbairns dixit: > In article <9112031527.AA16509@stolaf.edu>, TAUPIN writes: > > New version 4.31 of MusicTeX available by ftp anonymous > > at 130.84.128.100 (rsovax.circe.fr) > > Enhancements since summer 1991: fonts corrected according to > > K. Neuwirth's suggestions (except some > > difficult things) Well, actually, there are still problems with the musicd16 en musicd20 MetaFont files. There are two lines: input modes input local which do not belong there. The which comes with the musictex package not only is an old (?) file, it also is a wrong file. Karl Berry has compiled a file (currently version 0.8) which contains mode definitions for a lot of printers. You or your systemmanager should compile these into your MetaFont <.base> file. Then you can select the right printer on the commandline. The setup now forces you select to a HP LaserJet. If you have correctly made a <.base> file, you can dyke these two lines out. > Go to it, Daniel! > > All in all, I strongly recommend that people acquire this latest > version. Yes, it is a much better version than the old one. I met Daniel Taupin in Eindhoven two weeks ago and the examples he showed promised a lot. So, a year after giving up on musictex, I gave it another try. And it is *good*. > In addition, given that the connection to rsovax.circe.fr is (by > Daniel's own admission) rather flaky, I suggest that someone on the far > side of the Atlantic (at least) should set up a copy on anon ftp for > general consumption. (I shall suggest the same to Aston, at least.) I will pass this on to Piet van Oostrum, keeper of the Utrecht Archives (sol.cs.ruu.nl). EJee. -- Erik-Jan Vens. E.J.Vens@icce.rug.nl From acadia!yale!CS.YALE.EDU!malcolm@harvard.harvard.edu Wed Dec 4 10:19:13 1991 Return-Path: Received: from harvard.harvard.edu by stolaf.edu (4.1/SMI-4.1) id AA26876; Wed, 4 Dec 91 10:19:13 CST Received: by harvard.harvard.edu (5.54/a0.25) (for mutex@stolaf.edu) id AA01426; Wed, 4 Dec 91 11:19:13 EST Received: from acadia""UUCP by bulldog.CS.YALE.EDU via UUCP; Wed, 4 Dec 1991 11:18:17 -0500 Received: by acadia (NeXT-1.0 (From Sendmail 5.52)/NeXT-2.0) id AA00697; Wed, 4 Dec 91 09:19:09 EST Date: Wed, 4 Dec 91 09:19:09 EST From: malcolm%acadia.UUCP@CS.YALE.EDU (Malcolm Sanders) Message-Id: <9112041419.AA00697@ acadia > Reply-To: Malcolm M. Sanders <@CS.YALE.EDU:malcolm%acadia.uucp%acadia.UUCP@cs.yale.edu> Received: by NeXT Mailer (1.63) To: mutex@stolaf.edu Subject: Re: MusicTeX version 4.31 availabe on gmdzi.gmd.de Werner Icking writes: >gmdzi.gmd.de (129.26.8.90) has version 4.31 of musictex.zip in /ftp/tmp: ^^^^ > -rw-r--r-- 1 icking 406528 Dec 2 04:31 musictex.zip ^^^^ Incredible. -Malcolm Sanders malcolm%acadia.uucp@cs.yale.edu Telephone: (203) 458-2939 From cdr@stolaf.edu Wed Dec 4 10:22:17 1991 Return-Path: Received: from sachiko.acc.stolaf.edu by stolaf.edu (4.1/SMI-4.1) id AA26908; Wed, 4 Dec 91 10:22:17 CST Received: by sachiko.acc.stolaf.edu; Wed, 4 Dec 91 10:21:44 CST Message-Id: <9112041621.AA03106@sachiko.acc.stolaf.edu> To: mutex@stolaf.edu Subject: MusicTeX archive in US Date: Wed, 04 Dec 91 10:21:43 CST From: cdr@stolaf.edu From the land of snow and ice, anonymous FTP from ftp.stolaf.edu:/pub/mutex now contains -rw-rw-r-- 1 root 347451 Apr 12 1990 MuTeX.tar.Z -rw-rw-r-- 1 root 37155 Apr 12 1990 MuTeX_doc.tar.Z -rw-rw-r-- 1 cdr 29540 Dec 4 10:19 archive -rw-r--r-- 1 root 3206 Dec 3 09:01 faq -rw-r--r-- 1 root 508169 Dec 4 10:16 musictex.tar.Z "archive" is an archive of the mutex@stolaf.edu mailing list; "faq" is a currently small but developing mutex Frequently Asked Questions Craig -- Craig D. Rice UNIX Systems Specialist/Network Analyst cdr@stolaf.edu Academic Computing Center, St. Olaf College +1 507 663-3631 1520 St. Olaf Avenue +1 507 663-3549 FAX Northfield, MN 55057-1098 USA From @CUNYVM.CUNY.EDU:BROUARD@FRINED51.BITNET Wed Dec 4 11:03:18 1991 Return-Path: <@CUNYVM.CUNY.EDU:BROUARD@FRINED51.BITNET> Received: from CUNYVM.CUNY.EDU by stolaf.edu (4.1/SMI-4.1) id AA27342; Wed, 4 Dec 91 11:03:18 CST Message-Id: <9112041703.AA27342@stolaf.edu> Received: from FRINED51.BITNET by CUNYVM.CUNY.EDU (IBM VM SMTP V2R1) with BSMTP id 7359; Wed, 04 Dec 91 12:02:12 EST Date: 4 DEC 91 18:02:25.57-GMT From: BROUARD%FRINED51.bitnet@CUNYVM.CUNY.EDU Subject: Re: Music and book publishing To: MUTEX@stolaf.edu It seems possible to use musictex and latex. I designed a musictex.sty (which is probably in latest version) by simply concatenating the files used by D. Taupin and commenting some lines concerning font loading (which is already done by latex). I also built a new environment named \begin¤music‡ which temporarly sets the catcodes of & and |. So one can write a latex book and insert some music using this environment. An example is also given. Problems concern width of page, as music needs generally a whole page without margin to avoid rotation of sheets. This is partly done with an option named bigmusic (\documentstyle[musictex,bigmusic]¤article‡) which gives the biggest dimensions of an A4 page to LaTeX. It has to be improved so that this feature could be done in the environment itself, i.e. \begin¤music‡[15cm] page width being set to 15cm. LaTeX hackers can think about it. Nicolas Brouard From acadia!yale!CS.YALE.EDU!malcolm@harvard.harvard.edu Wed Dec 4 13:17:11 1991 Return-Path: Received: from harvard.harvard.edu by stolaf.edu (4.1/SMI-4.1) id AA01180; Wed, 4 Dec 91 13:17:11 CST Received: by harvard.harvard.edu (5.54/a0.25) (for mutex@stolaf.edu) id AA06751; Wed, 4 Dec 91 14:17:11 EST Received: from acadia""UUCP by bulldog.CS.YALE.EDU via UUCP; Wed, 4 Dec 1991 14:16:10 -0500 Received: by acadia (NeXT-1.0 (From Sendmail 5.52)/NeXT-2.0) id AA00917; Wed, 4 Dec 91 13:27:51 EST Date: Wed, 4 Dec 91 13:27:51 EST From: malcolm%acadia.UUCP@CS.YALE.EDU (Malcolm Sanders) Message-Id: <9112041827.AA00917@ acadia > Reply-To: Malcolm M. Sanders <@CS.YALE.EDU:malcolm%acadia.uucp%acadia.UUCP@cs.yale.edu> Received: by NeXT Mailer (1.63) To: mutex@stolaf.edu Subject: arrgh... I should know better than to try to be cute. My last message was slightly mangled in transit. The placement of the carets (^^^^) was critical. I was amused that Werner Icking (or someone) had created the archive for version 4.31 of musictex on gmdzi.gmd.de at precisely 04:31 local time, in case anyone was wondering what the heck I was talking about. Sheepishly, Malcolm. -Malcolm Sanders malcolm%acadia.uucp@cs.yale.edu Telephone: (203) 458-2939 From piet@cs.ruu.nl Thu Dec 5 02:28:28 1991 Return-Path: Received: from ruuinf.cs.ruu.nl by stolaf.edu (4.1/SMI-4.1) id AA07648; Thu, 5 Dec 91 02:28:28 CST Received: from gnu.cs.ruu.nl by ruuinf.cs.ruu.nl with SMTP (5.61+/IDA-1.2.8) id AA15944; Thu, 5 Dec 91 09:27:37 +0100 Received: by alchemy.cs.ruu.nl (15.11/15.6) id AA10082; Thu, 5 Dec 91 09:27:31 -0100 Date: Thu, 5 Dec 91 09:27:31 -0100 From: Piet van Oostrum Message-Id: <9112050827.AA10082@alchemy.cs.ruu.nl> To: karl@cs.umb.edu Cc: info-tex@shsu.BITNET, tex-archive@math.utah.edu, MUTEX@stolaf.edu Subject: Re: modified musictex available References: <9112042248.AA00693@claude.cs.umb.edu> The copy in our archive includes the newest version of Daniels files and Karl Berrys modifications in a separate subdirectory (together in a compressed tar archive). Karls files have as date aug 19 (that's the date I got them). I don't know if that is his latest version. I haven't tried if Karls modifications will work with the new version of musictex. Our archive is reachable by mail and ftp. How to get musictex.tar.Z from the archive at Dept. of Computer Science, Utrecht University: NOTE: In the following I have assumed your mail address is john@highbrow.edu. Of course you must substitute your own address for this. This should be a valid internet or uucp address. For bitnet users name@host.BITNET usually works. by FTP: (please restrict access to weekends or evening/night (i.e. between about 20.00 and 0900 UTC). ftp archive.cs.ruu.nl [131.211.80.5] user name: anonymous or ftp password: your own email address (e.g. john@highbrow.edu) Don't forget to set binary mode if the file is a tar/arc/zoo archive, compressed or in any other way contains binary data. get TEX/musictex.tar.Z by mail-server: send the following message to mail-server@cs.ruu.nl (or uunet!mcsun!hp4nl!ruuinf!mail-server): begin path john@highbrow.edu (PLEASE SUBSTITUTE *YOUR* ADDRESS) send TEX/musictex.tar.Z end NOTE: *** PLEASE USE VALID INTERNET ADDRESSES IF POSSIBLE. DO NOT USE ADDRESSES WITH ! and @ MIXED !!!! BITNETTERS USE USER@HOST.BITNET *** The path command can be deleted if we receive a valid from address in your message. If this is the first time you use our mail server, we suggest you first issue the request: send HELP -- Piet* van Oostrum, Dept of Computer Science, Utrecht University, Padualaan 14, P.O. Box 80.089, 3508 TB Utrecht, The Netherlands. Telephone: +31 30 531806 Uucp: uunet!mcsun!ruuinf!piet Telefax: +31 30 513791 Internet: piet@cs.ruu.nl (*`Pete') From @CUNYVM.CUNY.EDU:BROUARD@FRINED51.BITNET Thu Dec 5 02:56:01 1991 Return-Path: <@CUNYVM.CUNY.EDU:BROUARD@FRINED51.BITNET> Received: from CUNYVM.CUNY.EDU by stolaf.edu (4.1/SMI-4.1) id AA07726; Thu, 5 Dec 91 02:56:01 CST Message-Id: <9112050856.AA07726@stolaf.edu> Received: from FRINED51.BITNET by CUNYVM.CUNY.EDU (IBM VM SMTP V2R1) with BSMTP id 2203; Thu, 05 Dec 91 03:54:32 EST Date: 5 DEC 91 09:53:43.19-GMT From: BROUARD%FRINED51.bitnet@CUNYVM.CUNY.EDU Subject: Generating mutex pk's for 100 118 240 300 dpi. To: MUTEX@stolaf.edu Please find enclosed the script file I used for the generation of music fonts at 100, 118, 240, 300 dpi, using latest modes.mf form Karl Berry. I put all the pks on the GUTenberg distribution. Some changes in .mf have been send to Daniel. Most important concern length which has been replaced by the french word longueur. Other changes concern the codes for hplaserjet which have be commented. I am trying to get last version 4.31 tar files to see if the modifications are enclosed or not (with the latex style), but I don't have access to ftp and use bitftp or mail-server. A nice idea could be to give the version number in the tar or zip file musictex4.31.tar.Z. Nicolas Brouard #!/bin/sh set -x; MF="beamn16 beamn20 musicn16 musicn20 slur16 slurdd16 slurdu16 slurn16 \ slurn20 slurud16 sluruu16" MODE="NeXTscreen bitgraph EpsonMXFX localfont" #MODE=NeXTscreen #DPI=100 for mode in $MODE do for name in $MF do /usr/local/lbin/mf "\mode:=$mode ;scrollmode;input $name"; case $mode in localfont) DPI=300;; NeXTscreen) DPI=100;; bitgraph) DPI=118;; EpsonMXFX) DPI=240;; esac GFNAME=$name."$DPI"gf ; PKNAME=$name."$DPI"pk ; /usr/local/lbin/gftopk ./$GFNAME ../pk/dpi"$DPI"/$PKNAME ; done; done From @CUNYVM.CUNY.EDU:TJEAN@CSEARN.BITNET Thu Dec 5 08:33:01 1991 Return-Path: <@CUNYVM.CUNY.EDU:TJEAN@CSEARN.BITNET> Received: from CUNYVM.CUNY.EDU by stolaf.edu (4.1/SMI-4.1) id AA08617; Thu, 5 Dec 91 08:33:01 CST Message-Id: <9112051433.AA08617@stolaf.edu> Received: from earn.puni.cs by CUNYVM.CUNY.EDU (IBM VM SMTP V2R1) with BSMTP id 6082; Thu, 05 Dec 91 09:31:58 EST Received: from CSEARN (TJEAN) by earn.puni.cs (Mailer R2.07) with BSMTP id 1488; Thu, 05 Dec 91 15:30:52 MDT Date: Thu, 05 Dec 91 15:29:01 MDT From: Antonin Novotny Subject: Archives To: MuTeX discussion list I've read about archives accesible with FTP. But how can I get files from archive (for example I've received file musictex.tar.Z but I'm not able to extract files from it). Thank You. Petr Novotny TJEAN@CSEARN.BITNET Czechoslovakia From Pam.Juengling@LIBRARY.umass.edu Thu Dec 5 11:17:54 1991 Return-Path: Received: from saturn.ucc.umass.edu by stolaf.edu (4.1/SMI-4.1) id AA10222; Thu, 5 Dec 91 11:17:54 CST Received: from US*UMASSMAIL*UMASS by saturn.ucc.umass.edu via QTFS with X.400; Thu, 5 Dec 91 12:16:20 -0500 X400-Trace: US*UMASSMAIL*UMASS; arrival Thu, 5 Dec 91 12:16:10 -0500 action Relayed Date: Thu, 5 Dec 91 12:16:10 -0500 Message-Id: <911205121517798-MTASATURN*Pam.Juengling@LIBRARY.umass.edu> P1-Message-Id: US*UMASSMAIL*UMASS; 911205121517798-MTASATURN Ua-Content-Id: 911205121517798- From: Pam.Juengling@LIBRARY.umass.edu Subject: To: mutex@stolaf.edu Please unsubscribe me. Thank you, juengling@library.umass.edu From @CUNYVM.CUNY.EDU:BROUARD@FRINED51.BITNET Tue Dec 10 11:16:25 1991 Return-Path: <@CUNYVM.CUNY.EDU:BROUARD@FRINED51.BITNET> Received: from CUNYVM.CUNY.EDU by stolaf.edu (4.1/SMI-4.1) id AA23322; Tue, 10 Dec 91 11:16:25 CST Message-Id: <9112101716.AA23322@stolaf.edu> Received: from FRINED51.BITNET by CUNYVM.CUNY.EDU (IBM VM SMTP V2R1) with BSMTP id 6114; Tue, 10 Dec 91 12:12:53 EST Date: 10 DEC 91 18:12:51.99-GMT From: BROUARD%FRINED51.bitnet@CUNYVM.CUNY.EDU Subject: musictex.sty 2/3 To: MUTEX@stolaf.edu From: BERTI::"root@sauvy" 10-DEC-1991 18:09:16.77 To: barsac::brouard CC: Subj: Mail 2 bigmusic.sty and latex-mu.tex (example) Nicolas Brouard ======bigmusic.sty========= %-% bigmusic.sty to be used %-% \documentstyle[bigmusic,musictex]¤article‡ %-% with environment \begin¤music‡ %-% It enlarges LaTeX to its near maximum page size for %-% large music array. %-% Theses lines can be changed just before \begin¤document‡ \hoffset -1in % This should theoretically not be changed but if equal to 0 % tex put a value of 1 inch. So we set it to -1 inch. \voffset -1in \evensidemargin 5mm \oddsidemargin 5mm \topmargin 1mm \textwidth 190mm \textheight 260mm ========end of bigmusic.sty======= ====latex-mu.tex========= %-% Choose of one these two following lines (depending of the fonts you have) \documentstyle[bigmusic,musictex]¤article‡ % \documentstyle[bigmusic,musicpln]¤article‡ \title¤Is Musictex compatible with \LaTeX¤‡?‡ \author¤First attempt to make it compatible\thanks¤Nicolas Brouard (Unit\'e ``D\'emographie et \'epidemiologie''. Institut national d'\'etudes d\'emographiques. Paris.‡‡ \date¤Novembre 1991‡ \begin¤document‡ \maketitle \section*¤Testing musictex.sty v0.0‡ If music fonts are not available you can use \verb|musicpln.sty| which use LaTeX fonts. Carefull as \verb|circle10.tfm| have been changed in new latex to \verb|lcircle10.tfm| abbreviated to the first 8 characters on a PC as \verb|lcircle1.tfm| and \verb|\lcirclew[10].tfm|. We enlarged LaTeX at its maximum size and it could be reduced for normal layout without music\footnote¤Using small pages reduces the memory need by the compiler.‡. It could probably be done within the music environment. But for the moment we defined an option style named \verb|bigmusic.sty|. Here are the parameters changed by bigmusic.sty: \begin¤verbatim‡ \hoffset -1in % This should theoretically not be changed but if equal to 0 % tex put a value of 1 inch. So we set it to -1 inch. \voffset -1in \evensidemargin 5mm \oddsidemargin 5mm \topmargin 1mm \textwidth 190mm \textheight 260mm \end¤verbatim‡ \begin¤music‡ \def\nbinstruments¤1‡\relax \nbporteesi=2\relax \generalmeter¤\meterfrac¤4‡¤4‡‡\relax \debutmorceau \normal \zglu\Notes\ibu0f0\qh0¤cge‡\tbu0\qh0g|\hl j\enotes \temps\Notes\ibu0f0\qh0¤cge‡\tbu0\qh0g|\ql l\sk\ql n\enotes \barre \Notes\ibu0f0\qh0¤dgf‡|\qlp i\enotes \notes\tbu0\qh0g|\ibbl1j3\qb1j\tbl1\qb1k\enotes \temps\Notes\ibu0f0\qh0¤cge‡\tbu0\qh0g|\hu j\enotes \suspmorceau \end¤music‡ \begin¤center‡ \begin¤tabular‡¤|ccc|‡ \hline Are &Musictex \& \LaTeX¤‡ & able \\ to & live & together? \\ \hline \end¤tabular‡ \end¤center‡ \begin¤music‡ \def\nbinstruments¤1‡\relax \generalmeter¤\meterfrac¤4‡¤4‡‡\relax \debutmorceau \normal \zglu\Notes\rlap¤\hu j‡\ql h\enotes \temps\Notes\hl g\enotes \temps\Notes\hu k\enotes \temps\Notes\ql f\enotes \suspmorceau \end¤music‡ \clearpage \begin¤center‡ ¤\Huge\bf Aria No. 24‡\\ ¤\Large\bf(La Cr\'eation)‡\\ ¤\large Joseph HAYDN‡\\ ¤Transcription pour Orgue et T\'enor, D. Taupin (1990)‡ \end¤center‡ \begin¤music‡ \def\nbinstruments¤2‡% \generalmeter¤\meterfrac¤4‡¤4‡‡% \signaturegenerale¤0‡% \nbporteesii=2\relax \def\qbl#1#2#3¤\ibl¤#1‡¤#2‡¤#3‡\qb¤#1‡¤#2‡‡% \def\qbu#1#2#3¤\ibu¤#1‡¤#2‡¤#3‡\qh¤#1‡¤#2‡‡% \etroit \def\DS¤\hbox¤\ds‡‡\def\FS¤\hbox¤\kern 0.3\noteskip\soupir‡\kern -0.3\noteskip‡ \cleftoksi=¤¤6‡¤0‡¤0‡¤0‡‡ \cleftoksii=¤¤6‡¤0‡¤0‡¤0‡‡ \debutmorceau \NOTes\soupir\relax &\rlap¤\rmidtwotext¤\bf II‡‡\relax \soupir\relax |\relax \qu g\relax \enotes % mesure 1 \advance\barno by -1\relax \barre\NOtes \itenu2J\relax \wh J\relax &\relax \zw N\relax \ibl0c0\relax \qb0e\relax |\relax \itenl0j\relax \ibu1l0\relax \qh1j\relax \enotes \notes&\qbl0c0|\nbbu1\nbbbu1\tten0\qh1¤jkj‡\tbu1\qh1i\enotes \Notes&\qb0e\tbl0\qb0c|\qu j\enotes \temps\Notes&\ibl0c0\qb0¤ece‡\tbl0\qb0c|\ql l\sk\ql j\enotes % mesure 2 \barre\Notes\tten2\wh J&\ql J\sk\ql L|\ppt g\rlap¤\qu g‡\qbl1e0\relax \zq c\qb1e\zq c\qb1e\relax \zq c\tbl1\rlap¤\qb1e‡\ \ \ccu h\enotes \temps\Notes&\ql N\sk\pt L\ibl0L¤-4‡\qb0L|\ibl1e0\zq c\rlap¤\qb1e‡\cu g\relax \zq c\rlap¤\qb1e‡\raise\Interligne\DS \rlap¤\qu g‡\qb1g\enotes \notes&\sk\tbbl0\tbl0\qb0J|\tbl1\zq c\qb1e\enotes % mesure 3 \barre\NOtes\itenl2G\wh G&\zw N\raise 3.5\Interligne\ds |\rlap¤\cl f‡\itenl0k\ibu1m0\qh1k\enotes \notes&\qbl0b0|\nbbu1\nbbbu1\tten0\qh1¤klk‡\tbu1\qh1¤^j‡\enotes \Notes&\zq d\qb0f\tbl0\qb0b|\qu k\enotes \temps\Notes&\ibl0d0\zq d\qb0¤fb‡\zq d\qb0f|\qu m\sk\pt k\qbu1k¤-4‡\enotes \notes&\tbl0\qb0b|\sk\tbbu1\tbu1\qh1i\enotes % mesure 4 \alaligne\Notes\tten2\wh G&\ql G\sk\ql I|\rlap¤\qupp g‡\ibl1c0\qb1g\relax \zq¤bd‡\qb1f\zq¤bd‡\qb1f\relax \zq¤bd‡\tbl1\rlap¤\qb1f‡\ \ \ccu h\enotes \temps\Notes&\ql K\sk\pt I\qbl0I¤-4‡|\ibl1d0\rlap¤\qb1b‡\cu g\relax \zq¤bd‡\rlap¤\qb1f‡\raise\Interligne\DS \rlap¤\qu g‡\qb1g\enotes \notes&\sk\tbbl0\tbl0\qb0G|\tbl1\zq¤bd‡\qb1f\enotes % mesure 5 \barre\Notes\hu J&\rlap¤\lhu J‡\ibl0M0\qb0J\zq N\qb0c\zq N\qb0c\tbl0\zq N\qb0c\relax |\rlap¤\hl e‡\qu j\sk\qbu1l¤-4‡\tbu1\qh1j\enotes \temps\Notes\hu K&\rlap¤\lhu K‡\ibl0M0\qb0K\zq N\qb0b\zq N\qb0b\tbl0\zq N\qb0b\relax |\rlap¤\hl f‡\ibu1k0\qh1¤ikm‡\tbu1\qh1k\enotes %\check % mesure 6 \barre\Notes\wh L&\zw N\raise 3.5\Interligne\ds\qbl0c0\qb0e\relax |\rlap¤\hl g‡\ppt j\qu j\enotes \notes&\tbl0\qb0c|\sk\ccu l\enotes \temps\Notes&\ibl0c0\qb0¤ece‡|\rlap¤\hl g‡\qu n\sk\raise 2\Interligne\DS\enotes \notes&\tbl0\qb0c|\ibbu1m¤-3‡\qh1m\tbu1\qh1l\enotes %\check % mesure 7 \barre\Notes\wh M&\zw a\raise 3.5\Interligne\ds\qbl0d0\qb0f\tbl0\qb0d\relax |\rlap¤\hlp h‡\qu k\sk\qu m\enotes \temps\Notes&\ibl0d0\qb0f|\pt o\qbu1o¤-3‡\enotes \notes&\zq d\qb0f\sk \zq d\qb0f\sk\tbl0\zq d\qb0f|\sk\tbbu1\tbu1\qh1n\relax \ibbu1m¤-3‡\rlap¤\raise -\Interligne\qp‡\qh1¤mlk‡\tbu1\qh1j\enotes %\check % mesure 8 \alaligne\Notes\hu G&\lcharnote c¤\bf I‡\relax \pz b\ibl0M3\qb0N\pz d\qb0b\pz f\qb0d\pz d\tqb0b|\ql i\rlap¤\uptext¤\bf I‡‡\sk\ds\ppz p\zq¤km‡\cl p\enotes \temps\Notes\hu G&\ibl0M3\pz b\qb0N\pz e\qb0c\pz g\qb0e\pz e\tqb0c\relax |\zq¤jl‡\ql q\sk\ds\ppz l\zq¤gj‡\cl l\enotes %\check % mesure 9 \barre\Notes\hu G&\pz b\ibl0M3\qb0N|\zq¤gi‡\ql k\enotes \notes&\nbbl0\qb0b\tqb0c\enotes \zglu\Notes&\pz f\ibl0d¤-4‡\qb0d\pz d\tqb0b|\ds\ppz p\zq¤km‡\cl p\enotes \temps\Notes\hu G&\pz b\ibl0M3\qb0N|\ppz q\ibl1m3\zq l\qb1q\enotes \notes&\nbbl0\qb0c\tqb0d|\nbbl1\qb1q\tqb1p\enotes \temps\notes&\pz g\ibl0e¤-4‡\qb0e\sk\pz e\tqb0c|\ibbl1p0\qb1¤qpq‡\tqb1s\enotes %\check % mesure 10 \barre\Notes\hu G&\zq¤Nb‡\ql d|\pz t\ibl1o¤-3‡\qb1r\enotes \notes&|\nbbl1\qb1n\tqb1¤^m‡\enotes \zglu\notes&\soupir|\ibbl1m0\qb1¤nmn‡\tqb1m\enotes \temps\Notes\hpause&\ibl0I6\pz J\qb0G|\pz p\cl n\enotes \notes&\nbbl0\qb0N\tqb0¤^M‡|\ibbu1g¤-3‡\qh1g\tqh1¤^f‡\enotes \notes&\ibbl0N0\qb0¤NMN‡\tqb0M|\ibbu1g0\qh1¤gfg‡\tqh1f\enotes %\check \suspmorceau \def\nbinstruments¤4‡% \nbporteesiii=0\relax % mesure 11 \reprmorceau \NOtes\qu G&\ql N|\st n\qu g&&\hpause\enotes \zglu\NOtes\soupir&\rlap¤\rmidtwotext¤\bf II‡‡\soupir|\zq d\qu¤=f‡&&\enotes \temps\NOtes\hpause&\hpause|\zq c\qu e&&\soupir\enotes \zglu\NOtes&|\zq b\qu d&Mit~&\ilegu0p\qu g\enotes % mesure 12 \barre\Notes&\qu J|\zw N\zq c\ibu0e0\qh0e\zq c\qh0e&W\"urd~&\ql j\enotes \Notes&\soupir|\zq c\qh0e\zq c\tqh0e&und~&\ql j\enotes \temps\Notes\pause&\hpause|\zq c\ibu0e0\qh0e\zq c\qh0e&Ho-&\ql l\enotes \Notes&\zcharnote C¤\bf I‡|\zq c\qh0e\zq c\tqh0e&heit~&\ql j\enotes % mesure 13 \barre\Notes&\qu C|\zw N\zq c\ibu0e0\qh0e\zq c\qh0e&an-&\qup g\enotes \Notes&\qu E|\zq c\qh0e\zq c\tqh0e&\sk ge-&\sk\cu h\enotes \temps\Notes\pause&\qu G|\zq c\ibu0e0\qh0e\zq c\qh0e&tan,~&\tleg0\qu g\enotes \Notes&\ibu1E¤-3‡\qhp1E|\zq c\qh0e&mit~&\ilegu0p\qu g\enotes \notes&\sk\tbbu1\tqh1C|\zq c\tqh0e&&\enotes % mesure 14 \barre\Notes&\qu G|\zw N\ibu0e0\zq¤bd‡\qh0f\zq¤bd‡\qh0f\relax &Sch\"on-&\ql k\enotes \Notes&\soupir|\zq¤bd‡\qh0f\zq¤bd‡\tqh0f&heit,~&\ql k\enotes \temps\Notes\pause&\hpause|\zq¤bd‡\qh0f\zq¤bd‡\qh0f&St\"ark~&\ql m\enotes \Notes&|\zq¤bd‡\qh0f\zq¤bd‡\tqh0f&und~&\ibu2k¤-4‡\qh2k\tqh2i\enotes \suspmorceau \removelastskip\flushright¤\sl\today‡ \end¤music‡ \end¤document‡ ===end of latex-mu.tex===== From BROUARD%FRINED51.BITNET@CUNYVM.CUNY.EDU Tue Dec 10 11:20:19 1991 Return-Path: Received: from thor.acc.stolaf.edu by stolaf.edu (4.1/SMI-4.1) id AA23369; Tue, 10 Dec 91 11:20:19 CST Received: from cunyvm.cuny.edu by thor.acc.stolaf.edu; Tue, 10 Dec 91 11:19:19 -0600 Message-Id: <9112101719.AA26014@thor.acc.stolaf.edu> Received: from FRINED51.BITNET by CUNYVM.CUNY.EDU (IBM VM SMTP V2R1) with BSMTP id 6115; Tue, 10 Dec 91 12:13:01 EST Date: 10 DEC 91 18:12:32.85-GMT From: BROUARD%FRINED51.bitnet@CUNYVM.CUNY.EDU Subject: musictex.sty 1/3 To: MUTEX@stolaf.edu From: BERTI::"root@sauvy" 10-DEC-1991 18:09:39.91 To: barsac::brouard CC: Subj: First mail Please find here enclosed musictex.sty Nicolas Brouard ==============musictex.sty=========== %-% Musictex.sty version 0.1 of December, 10 1991 %-% Updates to version 4.31 November 1991 of plain musictex %-% Musictex.sty version 0.0 of 5, November 1991 %-% It is a first attempt to make musictex running by LaTeX %-% We defined an environment named music to change the catcodes %-% of the vertical bar and the ampersand for musictex. %-% We used TeX command instead of LaTeX command inside of music. %-% It needs a rather big \Tex$, but emTeX compiler on PCs does the trip %-% for small music arrays. It works better on work stations. %-% Nicolas Brouard %-% With this file you need extra fonts. If extrafonts are %-% are not available then use \documenstyle[musicpln]$article %-% %-% In both cas you can add the option file bigmusic.sty which %-% enlarges LaTeX page to a big size (A4). %-% \documentstyle[musicpln,bigmusic]$article %-% %-% Here is an example: %-% \documentstyle[musictex]$article %-% \begin$document %-%\def\nbinstruments$1\relax %-%\generalmeter$\meterfrac$4$4\relax %-%\debutmorceau %-%\normal %-%\zglu\Notes\rlap$\hu j\ql h\enotes %-%\temps\Notes\hl g\enotes %-%\temps\Notes\hu k\enotes %-%\temps\Notes\ql f\enotes %-%\suspmorceau %-% \end$music %-% %-% Latex blabla %-% %-% \begin$music %-%\def\nbinstruments$1\relax %-%\generalmeter$\meterfrac$4$4\relax %-%\debutmorceau %-%\normal %-%\zglu\Notes\rlap$\hu j\ql h\enotes %-%\temps\Notes\hl g\enotes %-%\temps\Notes\hu k\enotes %-%\temps\Notes\ql f\enotes %-%\suspmorceau %-% \end$document %-% %-% Building Musictex.sty %-% %-% Two files are required to build musictex.sty from %-% the plain distribution, premusic.tex and posmusic.\TeX$. %-% Then musictex.sty is %-% the concatenation of premusic.tex+musicfnt.tex+musictex.tex+posmusic.tex %-% On unix: %-% cat premusic.tex musicfnt.tex musictex.tex posmusic.tex >musictex.sty %-% On dos: %-% copy premusic.tex+musicfnt.tex+musictex.tex+posmusic.tex musictex.sty %-% If you don't have the fonts use: %-% On unix: %-% cat premusic.tex musicpln.tex musictex.tex posmusic.tex >musicpln.sty %-% On dos: %-% copy premusic.tex+musicpln.tex+musictex.tex+posmusic.tex musicpln.sty %-% You also need the option file bigmusic.sty. \def\fonthdg$c % prefix to cmxxx fonts. change to "a" for amxxx fonts \font\cmmi=\fonthdg mmi10 scaled \magstep1 \font\cmbx=\fonthdg mbx10 scaled \magstep1 \font\moyen=\fonthdg mbx10 scaled \magstep1 \font\cmex=\fonthdg mex10 \font\cmsy=\fonthdg msy10 scaled \magstep1 \font\cmr=\fonthdg mr10 scaled \magstep1 \font\ttyeight=\fonthdg mtt8 \catcode`\@=11 % \let\@plainwlog=\wlog \def\wlog#1$% % \font\musictwenty=musicn20 \font\musicsixteen=musicn16 \font\beamsixteen=beamn16 \font\beamtwenty=beamn20 % \def\q@u$\musicxx\char"21\hss\def\qu@raise$\z@% \def\h@a$\musicxx\char"22\hss\def\ha@raise$\z@% \def\w@h$\musicxx\char"23\hss\def\wh@raise$\z@% \def\w@hq$\musicxx\char 125\hss\def\wh@raise$\z@% \def\s@bv$\musicxx\char"24\hss\def\wh@raise$\z@% \def\b@rv$\musicxx\char"20\hss\def\wh@raise$\z@% \def\zwq#1$\getn@i$#1\def\n@fon$\zwq\def\n@sym$\w@hq\g@zw% \def\zsb#1$\getn@i$#1\def\n@fon$\zws\def\n@sym$\s@bv\g@zsb% semi-breve \def\zbv#1$\getn@i$#1\def\n@fon$\zbv\def\n@sym$\b@rv\g@zbv% breve \def\g@zbv$\global\n@raise=\wh@raise\ifnum\n@i<100\relax \h@lines$\bv@width\def\s@tem$\resetstem\plap@symss\fi% \def\g@zsb$\global\n@raise=\wh@raise\ifnum\n@i<100\relax \h@lines$\sb@width\def\s@tem$\resetstem\plap@symss\fi% % \newbox\ch@box \newdimen\lthick \global\lthick=0.4pt \newdimen\qn@width \newdimen\hn@width \newdimen\wn@width \newdimen\sb@width \newdimen\bv@width \newdimen\qd@skip \newdimen\hd@skip \newdimen\wd@skip % \newcount\musicsize \def\computespecifics$\ifnum\musicsize=0\relax\musicsize=20\relax\fi \ifnum\musicsize=20\relax \def\musicxx$\musictwenty\else\def\musicxx$\musicsixteen\fi \ifnum\musicsize=20\relax \def\beamnxx$\beamtwenty\else\def\beamnxx$\beamsixteen\fi \ifnum\musicsize=20\relax\def\meterfont$\moyen\else\def\meterfont$\cmbx\fi \Interligne=\musicsize pt\divide\Interligne by 4\relax \wn@width=1.4\Interligne \sb@width=2.2\Interligne \bv@width=1.4\Interligne \hn@width=1.2\Interligne \qn@width=1.2\Interligne \qd@skip=\qn@width\advance\qd@skip by -0.5\lthick \hd@skip=\hn@width\advance\hd@skip by -0.5\lthick \wd@skip=\wn@width\advance\wd@skip by -0.5\lthick \setbox\ch@box=\hbox$\c@rochu\c@height=\ht\ch@box % % %\check % \def\s@oupir$$\musicxx\char"3E% % \def\c@rochu$$\musicxx \char"28% \def\c@rochl$$\musicxx \char"2D% \newdimen\c@height\newcount\c@mult %\check \def\d@cr#1$\c@mult=#1\relax % queue de #1 croche(s) vers le haut \advance\c@mult by 39\relax \setbox\ch@box=\rlap$\musicxx\char\c@mult\c@height=\ht\ch@box \global\advance\st@top by \c@height \global\advance\st@top by \internote \global\advance\st@top by -\st@bot \ifdim\st@top>1pt \global\advance\st@bot by -\altportee \raise\st@bot\rlap$\kern\stem@skip\vrule height\st@top width \lthick \advance\st@top by -\c@height\raise\st@top\box\ch@box\fi \resetstem% %\check \def\p@cr#1$\c@mult=#1\relax % queue de #1 croche(s) vers le bas \advance\c@mult by 44\relax \setbox\ch@box=\rlap$\kern 0.5\lthick\musicxx\char\c@mult\c@height=\ht\ch@box \global\advance\st@bot by -\internote \global\advance\st@bot by -\c@height \global\advance\st@top by -\st@bot \ifdim\st@top>1pt \global\advance\st@bot by -\altportee \raise\st@bot\rlap$\box\ch@box\vrule height\st@top width \lthick% \fi \resetstem% %\check \def\s@harp$\musicxx\char"34\def\sh@raise$\z@% \def\f@lat$\musicxx\char"32\def\fl@raise$\z@% \def\n@at$\musicxx\char"36\def\na@raise$\z@% \def\ds@harp$\musicxx\char"35% \def\df@lat$\musicxx\char"33\kern -0.8\Interligne% % \def\smalln@at$\musicxx\char"7C% \def\smallf@lat$\musicxx\char"78% \def\smalls@harp$\musicxx\char"7A% \def\smallds@harp$\musicxx\char"7B% \def\smalldf@lat$\musicxx\char"79\kern -0.7\Interligne% % \def\bigsh#1$\getn@i$#1\global\n@raise=\sh@raise\pl@llap$\s@harp% \def\smallsh#1$\getn@i$#1\global\n@raise=\sh@raise\pl@llap$\smalls@harp% \def\uppersh#1$\zcharnote$#1$\raise3\internote \hbox to \qn@width$\hss\smalls@harp\hss% % \def\bigdsh#1$\getn@i$#1\global\n@raise=\sh@raise\pl@llap$\ds@harp% \def\smalldsh#1$\getn@i$#1\global\n@raise=\sh@raise\pl@llap$\smallds@harp% % \def\bigna#1$\getn@i$#1\global\n@raise=\na@raise\pl@llap$\n@at% \def\smallna#1$\getn@i$#1\global\n@raise=\na@raise\pl@llap$\smalln@at% \def\upperna#1$\zcharnote$#1$\raise3\internote \hbox to \qn@width$\hss\smalln@at\hss% % \def\bigfl#1$\getn@i$#1\global\n@raise=\fl@raise\pl@llap$\f@lat% \def\smallfl#1$\getn@i$#1\global\n@raise=\fl@raise\pl@llap$\smallf@lat% \def\upperfl#1$\zcharnote$#1$\raise3\internote \hbox to \qn@width$\hss\smallf@lat\hss% % \def\bigdfl#1$\getn@i$#1\global\n@raise=\fl@raise\pl@llap$\df@lat% \def\smalldfl#1$\getn@i$#1\global\n@raise=\fl@raise\pl@llap$\smalldf@lat% % \def\na#1$\ifdim\small@test\bigna$#1\else\smallna$#1\fi% \def\fl#1$\ifdim\small@test\bigfl$#1\else\smallfl$#1\fi% \def\sh#1$\ifdim\small@test\bigsh$#1\else\smallsh$#1\fi% \def\dfl#1$\ifdim\small@test\bigdfl$#1\else\smalldfl$#1\fi% \def\dsh#1$\ifdim\small@test\bigdsh$#1\else\smalldsh$#1\fi% % %\check \def\b@adjust$\ifdim\y@ii>2.1\q@antum \multiply\q@antum by 2\relax\advance\b@char by 1\relax\fi % \newcount\b@char \def\b@alkdefs$\b@char=0\relax \ifnum \b@p>0\relax\b@char=\b@p\relax\multiply\b@char by 6\relax \advance\b@char by -6\relax\ifnum\b@char>54\relax\b@char=54\relax\fi\fi \ifnum \b@p<0\relax\b@char=-\b@p\relax\multiply\b@char by 6\relax \advance\b@char by 58\relax\ifnum\b@char>118\relax\b@char=118\relax\fi\fi \q@antum=60pt\divide\q@antum by 32\relax\b@adjust \b@adjust \b@adjust \b@adjust \b@adjust \chardef\b@alk=\b@char% %\check \def\s@lopdefs$\q@antum=60pt\divide\q@antum by 32\relax \def\s@lope$0.0\relax \ifnum \b@p=1\relax\def\s@lope$0.05\fi \ifnum \b@p>1\relax\b@char=\b@p\relax\multiply\b@char by 5\relax \ifnum\b@char>50\relax\b@char=50\relax\fi \edef\s@lope$0.\the\b@char\fi \ifnum \b@p=-1\relax\def\s@lope$-0.05\fi \ifnum \b@p<-1\relax\b@char=-\b@p\relax\multiply\b@char by 5\relax \ifnum\b@char>50\relax\b@char=50\relax\fi \edef\s@lope$-0.\the\b@char\fi % %\check \def\p@outre$% \y@ii : longueur, \b@p : pente, \y@i : altitude \ifnum \b@p=0\relax \raise \y@i\hbox$\vrule height 0.24\Interligne depth 0.24\Interligne width \y@ii\else\b@alkdefs\beamnxx \global\y@iv=0pt \loop\ifdim\y@iv<\y@ii $\y@v=\y@ii\advance\y@v by -\y@iv \advance\y@v by -\q@antum \y@iii=\y@i \advance\y@iii by \s@lope\y@iv \ifdim\y@v<\z@\advance\y@iii by \s@lope\y@v\hskip\y@v\fi \raise\y@iii\hbox to \q@antum$\b@alk\hss\global\advance\y@iv by \q@antum \repeat \fi % %\check \def\clefdefa$\hbox to 3.2\Interligne$\musicxx\kern -0.4\Interligne\char"49\hss % \def\smallclefdefa$\hbox to 2.8\Interligne$\musicxx\kern -0.32\Interligne \char"4A\hss% %\check \def\clefdesol$\hbox to 3.2\Interligne$\musicxx\kern -0.6\Interligne \char"47\hss% \def\smallclefdesol$\hbox to 2.8\Interligne$\musicxx\kern -0.48\Interligne \char"48\hss% %\check \def\clefdut$\hbox to 3.2\Interligne$\musicxx\kern -0.4\Interligne\char"4B\hss % \def\smallclefdut$\hbox to 2.8\Interligne$\musicxx\kern -0.32\Interligne \char"4C\hss% % \def\allabreve$$\kern 0.5\Interligne\musicxx\char"52% \def\meterC$$\kern 0.5\Interligne\musicxx\char"53% % \def\d@soup$\musicxx\char"3F% \def\q@soup$\musicxx\char"40% \def\p@orgue$\hbox$\kern -0.5\hn@width\musicxx\char"50% \def\p@urgue$\hbox$\kern -0.5\hn@width\musicxx\char"51% \def\trille#1$\hbox to #1$\leaders\hbox$\musicxx\char"64\hfill% \def\Trille#1$\hbox to #1$\it tr\leaders\hbox$\musicxx\char"64\hfill% % % % arpeges % \def\arpegesym#1$\hbox to \Interligne$\kern -1.2\Interligne \vbox to #1$\parindent=\z@ \offinterlineskip\ifdim #1>4\Interligne\Arp@elem\fi\hrule \cleaders\arp@elem\vfill\kern -\interligne\hss% \def\arp@elem$\vbox to \Interligne$\vss\musicxx\char"5A% \def\Arp@elem$\vbox to 4\Interligne$\vss\musicxx\char"5D% % \def\arpeggio#1#2$\zcharnote$#1$\n@iii=#2\relax\advance\n@iii by 89\relax \musicxx\chardef\arp@el=\n@iii\relax\arp@el\qsk% \def\larpeggio#1#2$\lcharnote$#1$\n@iii=#2\relax\advance\n@iii by 89\relax \musicxx\chardef\arp@el=\n@iii\relax\arp@el\kern -0.3\qn@width\qsk% % \def\mordant#1$\zcharnote$#1$\musicxx\char 89% \def\pince#1$\zcharnote$#1$\musicxx\char 87% \def\Pince#1$\zcharnote$#1$\musicxx\char 88% \def\sf#1$$\advance\transpose by -2\usf$#1% \def\pz#1$$\advance\transpose by -2\upz$#1% \def\ppz#1$\uppz$#1% \def\st#1$$\advance\transpose by -2\ust$#1% % \def\usf#1$\zcharnote$#1$\musicxx\char 30% \def\lsf#1$\zcharnote$#1$\musicxx\char 31% \def\ust#1$\zcharnote$#1$\musicxx\char 26% \def\lst#1$\zcharnote$#1$\musicxx\char 27% \def\upz#1$\zcharnote$#1$\musicxx\char 24% \def\lpz#1$\zcharnote$#1$\musicxx\char 25% \def\uppz#1$\zcharnote$#1$\musicxx\char 28% \def\lppz#1$\zcharnote$#1$\musicxx\char 29% % % placement des accents au-dessus de poutres et non de tetes de notes \def\acc@balk$\global\stem@skip=\z@ % \y@ii=\b@z % a augmenter avec la pente \y@v=\locx@skip\advance\y@v by \stem@skip\advance\y@v by -\b@x \advance\y@ii by \s@lope\y@v \advance\y@ii by -\altportee \raise\y@ii\rlap$\kern\stem@skip\balk@accent% %\check \def\busf#1$\def\balk@accent$\musicxx\char 30\selectpoutre$#1\acc@balk% \def\blsf#1$\def\balk@accent$\musicxx\char 31\selectpoutre$#1\acc@balk% \def\bust#1$\def\balk@accent$\musicxx\char 26\selectpoutre$#1\acc@balk% \def\blst#1$\def\balk@accent$\musicxx\char 27\selectpoutre$#1\acc@balk% \def\bupz#1$\def\balk@accent$\musicxx\char 24\selectpoutre$#1\acc@balk% \def\blpz#1$\def\balk@accent$\musicxx\char 25\selectpoutre$#1\acc@balk% \def\buppz#1$\def\balk@accent$\musicxx\char 28\selectpoutre$#1\acc@balk% \def\blppz#1$\def\balk@accent$\musicxx\char 29\selectpoutre$#1\acc@balk% % % soufflets crescendo et decrescendo % \def\dimin$$\musicxx\char"10% \def\Dimin$$\musicxx\char"11% \def\DImin$$\musicxx\char"12% \def\DIMin$$\musicxx\char"13% \def\cresc$$\musicxx\char"14% \def\Cresc$$\musicxx\char"15% \def\CResc$$\musicxx\char"16% \def\CREsc$$\musicxx\char"17% % % colons for repeats (:| |: :||:) % %\check \def\w@coli#1$\selectinstr$#1% \global\noportee=0\relax $\loop\ifnum\noportee<\nbportees\relax \y@i=\altitude \advance\y@i by \noportee\interportee \n@portee \raise\y@i\hbox to \z@$\hss\musicxx\char 126\hss\repeat% % \let\wlog=\@plainwlog % % This is MusicTeX - Version 4.3 -- November 1991 % \catcode`\@=11 % PARAMETERS DIFFERENT THAN IN PLAIN % \normallineskiplimit=1pt \parindent 10mm % % EXTRA FONTS NEEDED % \font\enorme=\fonthdg mbx10 scaled \magstep5 \font\moyen=\fonthdg mbx10 scaled \magstep2 \font\tentt=\fonthdg mtt10 \font\ppff=\fonthdg mbxti10 scaled \magstep 1 % \tolerance=10000\relax % procedures speciales D. taupin \hsize 16cm \vsize 24cm % \let\@plainwlog=\wlog \def\wlog#1$% % %\check \catcode`\&=13 \catcode`\|=13 % \raggedbottom \def\p@t$\kern 1.5pt\cmbx\char"2E% \def\P@t$\pt@raise\hbox$\p@t% \def\PP@t$\pt@raise\hbox$\p@t\char"2E% \def\PPP@t$\pt@raise\hbox$\p@t\char"2E\char"2E% % %\check % \def\f@tok#1#2\af@tok$#1% \def\s@tok#1#2\af@tok$#2% % \def\gl@au#1$\ifnum #1<0\relax\global\advance #1 by -1\relax\fi \ifnum #1>0\relax\global\advance #1 by 1\relax\fi% \def\gl@de#1$\ifnum #1<0\relax\global\advance #1 by 1\relax\fi \ifnum #1>0\relax\global\advance #1 by -1\relax\fi% % % \newdimen\brace@w \newdimen\afterruleskip \newdimen\pt@up % offset point de notes pointees \newdimen\noteskip \newdimen\elemskip \newdimen\q@antum \newdimen\n@raise \newdimen\n@width \newdimen\stem@skip \newdimen\interligne % entre les lignes \newdimen\nullthick % pour les parties sans portees (paroles) \newdimen\bottommargin % marge au-dessous des portees \newdimen\topmargin % au-dessus des portees \newdimen\total@margin % bottom+top margins \newdimen\internote % la moitie de \Interligne \newdimen\interbeam % distance entre poutres \newdimen\Interligne % de la base d'une ligne a l'autre \newdimen\interportee \newdimen\systemheight % \newdimen\k@ii \newdimen\k@iii \newdimen\k@iiii \newdimen\k@iiv \newdimen\k@iv \newdimen\k@ivi \newdimen\altplancher \newdimen\altportee \newdimen\systemheight % ensemble des n portees \newdimen\line@width \newdimen\x@skip \newdimen\locx@skip \newdimen\st@bot % note stem bottom \newdimen\st@top % note stem top % % positions x et z de debut des tenues \newdimen\t@xi\newdimen\t@zi \newdimen\t@xii\newdimen\t@zii \newdimen\t@xiii\newdimen\t@ziii \newdimen\t@xiv\newdimen\t@ziv \newdimen\t@xv\newdimen\t@zv \newdimen\t@xvi\newdimen\t@zvi % % signes des tenues ( \t@p: entier de -1 a +1 ) % etat des tenues ( \t@s: 0= inactive, 1= actif, 2= continuation ) % \newcount\t@pi\newcount\t@si \newcount\t@pii\newcount\t@sii \newcount\t@piii\newcount\t@siii \newcount\t@piv\newcount\t@siv \newcount\t@pv\newcount\t@sv \newcount\t@pvi\newcount\t@svi % % positions x et z de debut des poutres \newdimen\b@xi\newdimen\b@zi \newdimen\b@xii\newdimen\b@zii \newdimen\b@xiii\newdimen\b@ziii \newdimen\b@xiv\newdimen\b@ziv \newdimen\b@xv\newdimen\b@zv \newdimen\b@xvi\newdimen\b@zvi % \newdimen\bb@xi\newdimen\bb@zi \newdimen\bb@xii\newdimen\bb@zii \newdimen\bb@xiii\newdimen\bb@ziii \newdimen\bb@xiv\newdimen\bb@ziv \newdimen\bb@xv\newdimen\bb@zv \newdimen\bb@xvi\newdimen\bb@zvi % \newdimen\bbb@xi\newdimen\bbb@zi \newdimen\bbb@xii\newdimen\bbb@zii \newdimen\bbb@xiii\newdimen\bbb@ziii \newdimen\bbb@xiv\newdimen\bbb@ziv \newdimen\bbb@xv\newdimen\bbb@zv \newdimen\bbb@xvi\newdimen\bbb@zvi % \newdimen\bbbb@xi\newdimen\bbbb@zi \newdimen\bbbb@xii\newdimen\bbbb@zii \newdimen\bbbb@xiii\newdimen\bbbb@ziii \newdimen\bbbb@xiv\newdimen\bbbb@ziv \newdimen\bbbb@xv\newdimen\bbbb@zv \newdimen\bbbb@xvi\newdimen\bbbb@zvi % % pentes des poutres ( entier de -3 a +3 ) % multiplicite des poutres ( de -4 a +4 . 0= inactive ) % \newcount\b@pi\newcount\b@ni \newcount\b@pii\newcount\b@nii \newcount\b@piii\newcount\b@niii \newcount\b@piv\newcount\b@niv \newcount\b@pv\newcount\b@nv \newcount\b@pvi\newcount\b@nvi % \newif\ifraggedlines % \newcount\barno \newcount\notes@open \def\check@nopen$\ifnum\notes@open>0\relax\enotes\message$ missing \noexpand\enotes\ mesure \the\barno\fi% % % altitudes des portees de chaque instrument % \newcount\ut@ref \newcount\noportee \newcount\noinstrum % \newcount\nbporteesi \newcount\nbporteesii \newcount\nbporteesiii \newcount\nbporteesiv \newcount\nbporteesv \newcount\nbporteesvi % \newcount\signi \newcount\signii \newcount\signiii \newcount\signiv \newcount\signv \newcount\signvi % \newif\ifadvance\advancetrue \newcount\transpose \newcount\normaltranspose \newcount\o@signi \newcount\o@signii \newcount\o@signiii \newcount\o@signiv \newcount\o@signv \newcount\o@signvi % \newtoks\cleftoksi \newtoks\cleftoksii \newtoks\cleftoksiii \newtoks\cleftoksiv \newtoks\cleftoksv \newtoks\cleftoksvi % \newtoks\o@cksi \newtoks\o@cksii \newtoks\o@cksiii \newtoks\o@cksiv \newtoks\o@cksv \newtoks\o@cksvi % \newtoks\metertoksi \newtoks\metertoksii \newtoks\metertoksiii \newtoks\metertoksiv \newtoks\metertoksv \newtoks\metertoksvi % \global\nbporteesi=1% \global\nbporteesii=1% \global\nbporteesiii=1% \global\nbporteesiv=1% \global\nbporteesv=1% \global\nbporteesvi=1% \global\cleftoksi=$$0$0$0$0% \global\cleftoksii=$$0$0$0$0% \global\cleftoksiii=$$0$0$0$0% \global\cleftoksiv=$$0$0$0$0% \global\cleftoksv=$$0$0$0$0% \global\cleftoksvi=$$0$0$0$0% % %\check \newcount\n@ \def\n@advance$\global\advance\n@ by 1\relax% \def\savemeters$\savemeter% \def\savemeter$\global\n@=0\relax\s@vetempi% \def\s@vetempi$\ifnum\n@<\nbinstruments\relax\n@advance \selectinstr$\n@\global\metertoks=$$$$$\s@vetempi\fi% %\check \def\maxinstruments$6% % \def\selectinstr#1$\global\noinstrum=#1\relax \ifnum\noinstrum<1\relax\global\noinstrum=30\relax\fi \xdef\altitude$\csname k@i\romannumeral\noinstrum\endcsname% \xdef\nbportees$\csname nbportees\romannumeral\noinstrum\endcsname% \xdef\sign$\csname sign\romannumeral\noinstrum\endcsname% \xdef\o@sign$\csname o@sign\romannumeral\noinstrum\endcsname% \xdef\cleftoks$\csname cleftoks\romannumeral\noinstrum\endcsname% \xdef\metertoks$\csname metertoks\romannumeral\noinstrum\endcsname% \xdef\o@cks$\csname o@cks\romannumeral\noinstrum\endcsname%  %\check \def\nbinstruments$\maxinstruments\savemeter \def\nbinstruments$\undefined% % % compteurs de travail % \newcount\n@i \newcount\n@ii \newcount\n@iii % % registres de travail % \newbox\toks@box \newbox\workbox \newbox\n@otebox % \newdimen\clef@skip \newdimen\sign@skip % \newdimen\y@ \newdimen\y@i \newdimen\y@ii \newdimen\y@iii \newdimen\y@iv \newdimen\y@v % \newtoks\arg@suite % % fabrique un jeu complet (ou systeme complet de portees) % en fonction de \nbinstruments \def\null@portee$\global\advance\y@ by \nullthick \ifdim\systemheight>0.1pt\global\advance\systemheight by \nullthick \else \global\advance\altplancher by \nullthick \fi % % %\check % \def\mult@portee$\y@ii=\nbportees\interportee \advance\y@ii by -\interportee\advance\y@ii by 4\Interligne \advance\y@ii by \nbportees\lthick \advance\y@ii by -\lthick \raise\y@\llap$\cmex\raise 8pt\rlap$\char'072\raise\y@ii\rlap$\char '070\divide\y@ii by 2\relax$\advance\y@ii by 8pt\raise\y@ii\rlap$\char '074\y@v=\y@ii\relax\advance\y@v by -12pt \raise 7pt\rlap$\kern 4pt\vrule height \y@v width 1.2pt\advance\y@ii by 7pt \raise \y@ii\rlap$\kern 4pt\vrule height \y@v width 1.2pt\kern 7.5pt% % %\check % \def\n@portee$\global\advance\noportee by 1\relax% \def\alt@comp$\altportee=\altitude \advance\altportee by \noportee\interportee% % \def\portees$\interportee=\interfacteur\Interligne \rlap$\global\n@=0\relax \global\y@=\bottommargin \total@margin=\bottommargin \advance\total@margin by \topmargin % \global\systemheight=\z@ \global\altplancher=\y@ \loop\n@advance\selectinstr$\n@% \global\noportee=0\relax \global\altitude=\y@ % \ifnum\nbportees=0\relax \null@portee \else \ifnum\nbportees>1\relax \mult@portee \fi $\loop \raise\y@\portee \n@portee \global\advance\y@ by \interportee \global\advance\systemheight by \interportee \ifnum\noportee<\nbportees \repeat\fi % fin du \else pour 0 portees=chant \ifnum\n@<\nbinstruments \repeat \global\advance\systemheight by -\interportee \global\advance\systemheight by 4\Interligne \global\advance\systemheight by 0.5\lthick % \raise\altplancher\rlap$\vrule height \systemheight depth 0.5\lthick% \raise \total@margin\hbox$\vrule height \systemheight width \z@ depth 0.5\lthick% fin de la \hbox % % %\check % portee simple \def\staffline$\hrule width \line@width height 0.5\lthick depth 0.5\lthick \def\portee$\rlap$\vbox to \z@ $\vss\staffline \kern\interligne\staffline \kern\interligne\staffline \kern\interligne\staffline \kern\interligne\staffline\kern -0.5\lthick % %\check % % initialisations des dimensions etc... % %*************** definition des titres des instruments % *********************** % \def\instrumenti$% \def\instrumentii$% \def\instrumentiii$% \def\instrumentiv$% \def\instrumentv$% \def\instrumentvi$% %\check % \def\maxlegatenuti$6% % \def\resettens$\resetlegs% \newcount\n@l \def\resetlegs$\global\n@l=0\relax \loop\ifnum\n@l<\maxlegatenuti\relax \selecttenue$\n@l\t@p=0\relax\t@s=0\relax \global\advance\n@l by 1\relax \repeat% % %\check \def\debutmorceau$\barno=1\relax\global\barsinline=0\relax \frenchspacing\def\barvrule$\thinvrule\leavevmode \resetlegs % \computewidths \advance\line@width by -\parindent \portees \advance\line@width by \parindent \instrumentnames \writeclefs \writesignatures \writemeters \setnormalhyphen \saveclefs \savesignature \savemeters \currenthyphenpenalty% %\check % % saving penalties to be able to restore them at the end of music % \def\savepenalties$\edef\restorepenalties$% \noexpand\linepenalty=\the\linepenalty\noexpand\relax \noexpand\interlinepenalty=\the\interlinepenalty\noexpand\relax \noexpand\hyphenpenalty=\the\hyphenpenalty\noexpand\relax \noexpand\exhyphenpenalty=\the\exhyphenpenalty\noexpand\relax \noexpand\finalhyphendemerits=\the\finalhyphendemerits\noexpand\relax \noexpand\doublehyphendemerits=\the\doublehyphendemerits\noexpand\relax \noexpand\adjdemerits=\the\adjdemerits\noexpand\relax \noexpand\pretolerance=\the\pretolerance\noexpand\relax % %\check \def\computewidths$\computespecifics \ifdim\topmargin<1pt \topmargin=\topfacteur\Interligne\fi \ifdim\bottommargin<1pt \bottommargin=\bottomfacteur\Interligne\fi \global\interligne=\Interligne \global\internote=0.5\Interligne \global\interbeam=1.5\internote \ifdim\nullthick<1pt \global\nullthick=4\Interligne\fi \global\advance\interligne by -\lthick % \zglueskip=\z@ plus \gluemaxskip \afterruleskip=4\internote \global\line@width=\hsize% %\check % \def\n@alaligne$\suspmorceau\lreprmorceau% \def\n@zalaligne$\zsuspmorceau\lreprmorceau% \def\lreprmorceau$\reprmorceau% \def\suspmorceau$\check@nopen\gluebrule\newbar\z@suspend% \def\zsuspmorceau$\check@nopen\termskip\rtenuti\z@suspend% \def\z@suspend$\ifraggedlines\hfil\fi \break\adv@bottom\par\removelastskip \vskip -\baselineskip% \def\alapage$\suspmorceau\preprmorceau% \def\zalapage$\zsuspmorceau\preprmorceau% \def\preprmorceau$\eject\global\linesinpage=0\relax\reprmorceau% \def\reprmorceau$\computewidths\noindent\leavevmode \global\barsinline=0\relax$\advance\linesinpage by 1\relax\message$Line \the \linesinpage:\relax \adv@bottom\portees\writeclefs\writesignatures\writemeters\zgluearule \savesignature\saveclefs\savemeters\currenthyphenpenalty% %\check % \def\resetsignatures$\generalsignature$0\savesignature% % \def\savesignature$\global\n@=0\loop\ifnum\n@<\nbinstruments\relax \n@advance\selectinstr$\n@\o@sign=\sign\repeat% %\check \def\saveclefs$\global\n@=0\loop\ifnum\n@<\nbinstruments\relax \n@advance\selectinstr$\n@\global\o@cks=\cleftoks\repeat %\check % % definitions en fonction du numero de l'instriment % \newskip\zglueskip % \def\meterfrac#1#2$\setbox\workbox=\vbox$\hbox$\ \meterfont #1\hbox$\ \meterfont #2% \vbox to 4\Interligne$\offinterlineskip\vss\hbox to \wd\workbox$\hss \meterfont #1\hss\vss \vss\hbox to \wd\workbox$\hss\meterfont #2\hss\vss% %\check \newtoks\t@gene \def\generalmeter#1$\global\n@=0\relax\t@gene=$$#1$#1$#1$#1\m@eterspe% \def\m@eterspe$\ifnum\n@<\nbinstruments\relax\n@advance \selectinstr$\n@\global\metertoks=\t@gene\m@eterspe\fi% %\check \def\signaturegenerale$\generalsignature% \def\generalsignature#1$\global\n@=0\relax\s@ignagen$#1% \def\s@ignagen#1$\ifnum\n@<\nbinstruments\relax\n@advance \selectinstr$\n@\sign=#1\relax\s@ignagen$#1\fi% % % compteurs de travail % % a completer pour fermer les poutres \def\zglu$\zglue% \def\zglue$\nobreak\hskip \zglueskip \nobreak% % \def\temps$\nobreak\global\advance\n@skip by -\brace@w\termskip\nobreak \skip@b\nobreak\zglu% \def\z@barre$\nobreak\global\advance\n@skip by -\brace@w\termskip\nobreak \skip@b\-\hskip\zglueskip\nobreak% \def\xz@barre$\nobreak\global\advance\n@skip by -\brace@w\termskip\nobreak \skip@b\hskip\zglueskip\nobreak% % \def\newbar$\barvrule\def\barvrule$\thinvrule\global\advance\barno by 1\relax \message$bar \the\barno% \def\w@barno$$\y@i=\altplancher\advance\y@i by \systemheight \advance\y@i by \internote\raise\y@i\llap$\it \number\barno\kern -6pt% \def\wbarno$\w@barno% % % discretionary line breaking % \def\noautolines$\def\barre$\n@barre\def\zbarre$\z@barre% \def\alaligne$\c@ountline\n@alaligne\def\zalaligne$\n@zalaligne% \def\currenthyphenpenalty$\setnohyphenpenalty% \def\updatecontext$\n@updatecon% \def\leftrepeat$\n@leftrepeat% \def\leftrightrepeat$\n@leftrightrepeat% \setnohyphenpenalty% % \def\setnohyphenpenalty$\linepenalty=500\pretolerance=-1% \finalhyphendemerits=-10\hyphenpenalty=-10% \exhyphenpenalty=0\doublehyphendemerits=0% \adjdemerits=0\interlinepenalty=0% % \def\sethyphenpenalty$\linepenalty=500\pretolerance=-1% \finalhyphendemerits=1000\hyphenpenalty=1000% \exhyphenpenalty=0\doublehyphendemerits=0% \adjdemerits=0\interlinepenalty=1000% % \newcount\barsinline \newcount\linesinpage \newcount\maxbarsinline \newcount\maxlinesinpage \def\c@ountbar$\global\advance\barsinline by 1\relax% \def\c@ountline$\global\advance\linesinpage by 1\relax% % \def\autolines#1#2#3$% #1 nombre d'elemskip par mesure, % #2 nombre de mesures par ligne, % #3 nb lignes par page \global\maxbarsinline=#2\relax \global\maxlinesinpage=#3\relax \global\elemskip=\line@width\global\advance\elemskip by -5\Interligne \global\divide\elemskip by \maxbarsinline\relax \global\advance\elemskip by -3\Interligne\global\divide\elemskip by #1\relax \def\barre$\t@barre\def\updatecontext$\t@updatecon\def\zbarre$\t@zbarre% \def\alaligne$\t@alaligne\def\zalaligne$\t@zalaligne% \def\leftrepeat$\t@leftrepeat% \def\leftrightrepeat$\t@leftrightrepeat% \def\currenthyphpenalsty$\sethyphenpenalty\sethyphenpenalty% % \def\t@barre$\c@ountbar \ifnum\barsinline<\maxbarsinline\relax\x@barre \else\t@alaligne \fi% \def\t@zbarre$\c@ountbar \ifnum\barsinline<\maxbarsinline\relax\xz@barre \else\t@zalaligne \fi% % \def\t@alaligne$\c@ountline \ifnum\linesinpage<\maxlinesinpage\relax\n@alaligne \else\alapage \fi% \def\t@zalaligne$\c@ountline \ifnum\linesinpage<\maxlinesinpage\relax\n@zalaligne \else\zalapage \fi% % \def\Suspmorceau$\finmorceau \ifnum\linesinpage<\maxlinesinpage\relax\else\eject \global\linesinpage=0\relax\fi% % % \def\tz@barre$\c@ountbar \ifnum\barsinline<\maxbarsinline\relax\z@barre \else \c@ountline \ifnum\linesinpage<\maxlinesinpage\relax\zalaligne \global\advance\linesinpage by -1\relax % car \alaligne aura aussi augmente \message$ ligne: \the\linesinpage % \else\zalapage \fi\fi% % \def\t@updatecon$\c@ountbar \ifnum\barsinline<\maxbarsinline\relax\n@updatecon \else \c@ountline \ifnum\linesinpage<\maxlinesinpage\l@updatecon \message$ ligne: \the\linesinpage % \else\p@updatecon \fi\fi% %\check % \noautolines % \def\n@barre$\gluebrule\newbar\gluearule% barre de mesure \def\xbarre$\c@ountbar\x@barre \def\x@barre$\gluebrule\newbar\zgluearule% barre de mesure % sans possibilite de saut % \def\d@oubleBAR$\thinvrule\nobreak\hskip 0.3\Interligne \nobreak\thickvrule% % \def\d@oublebar$\thinvrule\nobreak\hskip 0.4\Interligne \nobreak\thinvrule% % \def\r@ightrepeat$\hbox$\w@colons\d@oubleBAR \def\l@eftrepeat$\hbox$\thickvrule\kern 0.3\Interligne\thinvrule\w@colons \def\l@eftrightrepeat$\hbox$\w@colons\thickvrule \kern 0.3\Interligne\thickvrule\w@colons % %\check % \def\leftrightrepeatsymbol$\gluebrule\l@eftrightrepeat\glueaftersymbol \def\glueaftersymbol$$\def\wbarno$\afterruleskip=\internote\zgluearule% \def\leftrepeatsymbol$\gluebrule\l@eftrepeat\glueaftersymbol% \def\rightrepeatsymbol$\gluebrule\r@ightrepeat\glueaftersymbol% % %\check % \def\doublebarre$\setdoublebar\barre% double barre de mesure \def\setdoublebar$\def\barvrule$\d@oublebar% \def\setdoubleBAR$\def\barvrule$\d@oubleBAR% \def\rightrepeat$\setrightrepeat\barre% \def\finrigthrepeat$\setrightrepeat\suspmorceau% % \def\setrightrepeat$\def\barvrule$\r@ightrepeat% \def\setleftrepeat$\def\barvrule$\l@eftrepeat% \def\setleftrightrepeat$\def\barvrule$\l@eftrightrepeat% % \def\think@vrule#1$\raise\altplancher\hbox$\vrule height\systemheight width #1 depth 0.5\lthick% % \def\thinvrule$\think@vrule$\lthick% \def\thickvrule$\think@vrule$0.6\Interligne% % \def\finmorceau$\setdoubleBAR\suspmorceau% %\check % \def\gluearule$\-\zgluearule% \def\zgluearule$\nobreak\wbarno\nobreak\kern \afterruleskip\nobreak \kern -\brace@w\rtenuti\kern\brace@w\nobreak \global\x@skip=\z@\global\n@skip=\z@% \def\termskip$\upd@sk\ctenuti\nobreak \global\n@skip=\z@\global\x@skip=\z@% % \def\gluebrule$\nobreak\global\advance\x@skip by 0.4\Interligne\termskip \hskip\zglueskip\rtenuti\nobreak% % \def\writesignatures$\global\sign@skip=\z@ \global\n@=0\relax\w@ritesigns \global\advance\sign@skip by 0.2\Interligne \nobreak\hskip\sign@skip % \def\Writesignatures$\global\sign@skip=\z@ \global\n@=0\relax\w@ritesigns \nobreak\advance\sign@skip by 0.6\Interligne\kern\sign@skip\nobreak% % \def\w@ritesigns$\loop\ifnum\nbinstruments >\n@\relax \n@advance\writesigni$\n@\repeat% % %\check \def\instrumentnames$\global\n@=0\relax \loop\ifnum\nbinstruments >\n@\relax\n@advance \writeinsname$\n@\repeat% % %\check \def\writenewsignatures$\global\sign@skip=\z@ \global\n@=0\relax \loop\ifnum\nbinstruments >\n@\relax\n@advance \writenewsigni$\n@\repeat \nobreak\ifdim\sign@skip>0.1pt\global\advance\sign@skip by 0.6\Interligne \nobreak\global\n@skip=\sign@skip\termskip \fi \nobreak% % %\check % % normal hyphenation process when \noautolines % \def\setnormalhyphen$\edef\-$\noexpand\discretionary$% %\check 2 $\noexpand\hbox$\noexpand\portees\noexpand\hbox$\noexpand\writeclefs% \noexpand\hbox$\noexpand\writesignatures% % %\check 2 $% fin du def \setnormalhyphen %\check % ecrire toutes les indications de mesure sur toutes les portees \def\writemeters$\global\n@skip=\z@ \global\n@=0\relax \loop\ifnum\nbinstruments >\n@\relax\n@advance \writemeteri$\n@\repeat\nobreak \ifdim\n@skip>\z@\advance\n@skip by 0.6\Interligne \global\n@skip=\n@skip\termskip \fi\nobreak% % %\check \def\writemeteri#1$\nobreak\selectinstr$#1% \global\noportee=0\relax $\loop\ifnum\noportee<\nbportees\relax \alt@comp \edef\w@call$\noexpand\writemeterp$\noexpand\noportee\the\metertoks\relax \setbox\toks@box=\hbox$\w@call$$$$\relax \ifdim\n@skip<\wd\toks@box\global\n@skip=\wd\toks@box\fi \raise\altportee\rlap $\box\toks@box\n@portee \repeat% %\check \def\writeclefs$% ecrire toutes les clefs sur toutes les portees \global\clef@skip=\z@ \global\n@=0\relax\w@riteclefs \kern\clef@skip% % \def\w@riteclefs$\ifnum\nbinstruments >\n@\relax\n@advance \writeclefi$\n@\w@riteclefs\fi% % %\check \def\writenewclefs$% ecrire toutes les nouvelles clefs sur toutes les % portees \global\clef@skip=\z@ \global\n@=0\relax\w@ritenewclefi \kern\clef@skip\nobreak% % \def\w@ritenewclefi$\ifnum\nbinstruments >\n@\relax\n@advance \writenewclefi$\n@\w@ritenewclefi\fi% % %\check \def\writesigni#1$\selectinstr$#1% \global\noportee=0\relax $\loop\ifnum\noportee<\nbportees\relax \alt@comp \n@portee \edef\get@ref$\noexpand\get@refs\the\cleftoks$$$$% \setbox\toks@box=\hbox$\get@ref\compnwsign\kern 0.2\Interligne% \ifdim\sign@skip<\wd\toks@box \global\sign@skip=\wd\toks@box\fi \raise\altportee\rlap$\box\toks@box% \repeat% % %\check \def\writeinsname#1$\selectinstr$#1% \xdef\instrument$\csname instrument\romannumeral\noinstrum\endcsname% \altportee=\altitude \ifnum\nbportees>0\relax\advance\altportee by \nbportees\interportee \advance\altportee by -\interportee\advance\altportee by 4\Interligne \advance\altportee by \altitude\divide\altportee by 2\relax \fi \setbox\n@otebox=\llap$\vbox$\hsize=\parindent\advance\hsize by -0.4\Interligne \centerline$\instrument\ \kern 2pt\advance\altportee by -0.5\ht\n@otebox \raise\altportee\box\n@otebox % %\check \def\get@refs#1#2#3#4$% #1-#4: cle correspondante 0=sol, 6=fa, 1-4=ut . \ifcase\noportee\relax\global\ut@ref=0\relax \or\global\ut@ref=#1\relax \or\global\ut@ref=#2\relax \or\global\ut@ref=#3\relax \or\global\ut@ref=#4\relax \fi \def\compnwsign$\ifnum\o@sign=0\relax \else\ifnum\sign=0\relax \else\kern 0.2\Interligne \fi \fi \ifnum\o@sign<0\relax\w@flats\w@sharps \else\w@sharps\w@flats \fi% % %\check \def\w@flats$% \ifnum\sign<0\relax\s@bemol$6\else\ifnum\o@sign<0\relax\s@becarre$6\fi\fi \ifnum\sign<-1\relax\s@bemol$9\else\ifnum\o@sign<-1\relax\s@becarre$9\fi \fi \ifnum\sign<-2\relax\s@bemol$5\else\ifnum\o@sign<-2\relax\s@becarre$5\fi \fi \ifnum\sign<-3\relax\s@bemol$8\else\ifnum\o@sign<-3\relax\s@becarre$8\fi \fi \ifnum\sign<-4\relax\s@bemol$4\else\ifnum\o@sign<-4\relax\s@becarre$4\fi \fi \ifnum\sign<-5\relax\s@bemol$7\else\ifnum\o@sign<-5\relax\s@becarre$7\fi \fi \ifnum\sign<-6\relax\s@bemol$3\else\ifnum\o@sign<-6\relax\s@becarre$3\fi \fi % %\check \def\w@sharps$% \ifnum\sign>0\relax\s@dieze$10\else\ifnum\o@sign>0\relax\s@becarre$10\fi \fi \ifnum\sign>1\relax\s@dieze$7\else\ifnum\o@sign>1\relax\s@becarre$7\fi\fi \ifnum\sign>2\relax\s@dieze$11\else\ifnum\o@sign>2\relax\s@becarre$11\fi \fi \ifnum\sign>3\relax\s@dieze$8\else\ifnum\o@sign>3\relax\s@becarre$8\fi\fi \ifnum\sign>4\relax\s@dieze$5\else\ifnum\o@sign>4\relax\s@becarre$5\fi\fi \ifnum\sign>5\relax\s@dieze$9\else\ifnum\o@sign>5\relax\s@becarre$9\fi\fi \ifnum\sign>6\relax\s@dieze$6\else\ifnum\o@sign>6\relax\s@becarre$6\fi\fi % %\check \def\s@bemol#1$\global\n@iii=#1\relax \p@bedieze\advance\y@iii by \fl@raise\raise\y@iii\hbox to 1.04\Interligne$\hss\f@lat\hss% % \def\s@becarre#1$\global\n@iii=#1\relax \p@bedieze\advance\y@iii by \na@raise\raise\y@iii\hbox to 1.04\Interligne$\hss\n@at\hss% % \def\s@dieze#1$\global\n@iii=#1\relax \p@bedieze\advance\y@iii by \sh@raise\raise\y@iii\hbox to 1.08\Interligne$\hss\s@harp\hss% % % \def\p@bedieze$\global\advance\n@iii by \ut@ref\relax \global\advance\n@iii by \ut@ref\relax % cas de la cle de fa \ifnum\ut@ref=6\global\advance\n@iii by -14\relax\else \ifnum\ut@ref>0\global\advance\n@iii by -7\relax\fi\fi \ifnum\n@iii<1\relax\global\advance\n@iii by 7\relax\fi \ifnum\n@iii<1\relax\global\advance\n@iii by 7\relax\fi \ifnum\n@iii>11\relax\global\advance\n@iii by -7\relax\fi \ifnum\n@iii>11\relax\global\advance\n@iii by -7\relax\fi \y@iii=\n@iii\internote \advance\y@iii by -\Interligne  %\check % \def\writenewsigni#1$\selectinstr$#1% \global\noportee=0\relax $\loop\ifnum\noportee<\nbportees\relax \alt@comp $\ifnum\o@sign=\sign\relax\else \edef\get@ref$\noexpand\get@refs\the\cleftoks$$$$% \setbox\toks@box=\hbox$\get@ref\compnwsign\hskip 0.4\Interligne% \ifdim\sign@skip<\wd\toks@box \global\sign@skip=\wd\toks@box\fi \raise\altportee\rlap$\box\toks@box% \fi\n@portee \repeat% % %\check % \def\writeclefp#1#2#3#4#5$% \n@i=#1\relax \ifcase\n@i\singleclef$#2% \or\singleclef$#3\or\singleclef$#4\or\singleclef$#5\fi % % %\check \def\writemeterp#1#2#3#4#5$% \n@i=#1\relax \ifcase\n@i\hbox$#2\or\hbox$#3\or\hbox$#4\or\hbox$#5\fi % % %\check \def\writenewclefp#1#2#3#4#5#6#7#8#9$% \n@i=#1\relax \ifcase\n@i\newsingleclef$#2$#6% \or\newsingleclef$#3$#7\or\newsingleclef$#4$#8\or \newsingleclef$#5$#9\fi % %\check % \def\singleclef#1$% \global\n@iii=#1\relax \charclef % %\check % \def\Clefdut$\global\advance\n@iii by -3\relax\raise\n@iii\Interligne\clefdut% \def\Clefdefa$\global\advance\n@iii by -6\relax\raise\n@iii\Interligne\clefdefa % \def\charclef$% \ifdim\clef@skip<2.4\Interligne\global\clef@skip=2.4\Interligne\fi \ifcase\n@iii\relax\clefdesol\relax \or$\Clefdut% \or$\Clefdut% \or$\Clefdut% \or$\Clefdut% \or$\Clefdefa% \or$\Clefdefa% \fi% %\check % \def\smallClefdut$\global\advance\n@iii by -3\relax\raise\n@iii \Interligne\smallclefdut% \def\smallClefdefa$\global\advance\n@iii by -6\relax\raise\n@iii \Interligne\smallclefdefa% \def\smallcharclef$% \ifdim\clef@skip<2.4\Interligne\global\clef@skip=2.4\Interligne\fi \ifcase\n@iii\relax\smallclefdesol\relax \or$\smallClefdut% \or$\smallClefdut% \or$\smallClefdut% \or$\smallClefdut% \or$\smallClefdefa% \or$\smallClefdefa% \fi% %\check \def\newsingleclef#1#2$% \global\n@iii=#1\relax \n@ii=#2\relax \ifnum\n@ii=\n@iii\relax\else\smallcharclef \fi% %\check \def\writeclefi#1$\selectinstr$#1% \global\noportee=0\relax $\loop\ifnum\noportee<\nbportees\relax \alt@comp \edef\w@call$\noexpand\writeclefp$\noexpand\noportee\the\cleftoks% \setbox\toks@box=\hbox$\w@call$$$$% \ifdim\clef@skip<\wd\toks@box \global\clef@skip=\wd\toks@box\fi \raise\altportee\rlap$\box\toks@box\n@portee \repeat% % %\check \def\writenewclefi#1$\selectinstr$#1% \global\noportee=0\relax $\loop\ifnum\noportee<\nbportees\relax \alt@comp \edef\w@call$\noexpand\writenewclefp$\noexpand\noportee\the\cleftoks\the \o@cks% \setbox\toks@box=\hbox$\w@call$$$$% \ifdim\clef@skip<\wd\toks@box \global\clef@skip=\wd\toks@box\fi \raise\altportee\rlap$\box\toks@box\n@portee\repeat% % %\check % minuscule: une seule barre % majuscule: double barre \def\changecontexte$\changecontext% \def\Changecontexte$\Changecontext% % \def\changecontext$\gluebrule\newbar\nobreak\updatecontext% \def\pchangecontext$\gluebrule\newbar\nobreak\p@updatecon% %\check \def\Changecontext$\setdoublebar\changecontext% \def\pChangecontext$\setdoublebar\pchangecontext% % % write colons on all staffs (a part of [left][right]repeat symbols % \def\wrcolons$\w@colons% \def\w@colons$\nobreak\hskip 0.4\Interligne\nobreak \global\n@i=0\relax \loop\ifnum\nbinstruments >\n@i\relax\global\advance\n@i by 1\relax \w@coli$\n@i\repeat \nobreak\hskip 0.4\Interligne\nobreak% % %\check % \def\n@updatecon$% imprime tout ce qui est nouveau \nobreak\writenewclefs \nobreak\writenewsignatures\nobreak\setnormalhyphen\-\writemeters\zgluearule \savesignature\savemeters\saveclefs% % \def\l@updatecon$\nobreak\writenewclefs\nobreak\writenewsignatures \z@suspend\reprmorceau% % \def\p@updatecon$\nobreak\writenewclefs\nobreak\writenewsignatures \z@suspend\preprmorceau% % %\check % \def\n@leftrepeat$\gluebrule \nobreak\writenewclefs \discretionary$\newbar% %\check 1 $\hbox$\portees\hbox$\writeclefs% \hbox$\Writesignatures% \l@eftrepeat\hbox$\writemeters% %\check 1 $\l@eftrepeat\nobreak\writemeters\zgluearule \savesignature\savemeters\saveclefs\setnormalhyphen% % %\check % \def\n@leftrightrepeat$\gluebrule \nobreak\writenewclefs % \discretionary$\setrightrepeat\newbar% %\check 1 $\hbox$\portees\hbox$\writeclefs% \hbox$\Writesignatures% \l@eftrepeat\hbox$\writemeters% %\check 1 $\l@eftrightrepeat\nobreak\writemeters\zgluearule \savesignature\savemeters\saveclefs\setnormalhyphen% % \def\t@leftrepeat$\c@ountbar \ifnum\barsinline<\maxbarsinline\relax\setleftrepeat\x@barre \else \c@ountline \ifnum\linesinpage<\maxlinesinpage\l@leftrepeat \message$ ligne: \the\linesinpage % \else\p@leftrepeat \fi\fi% % %\check % \def\t@leftrightrepeat$\c@ountbar \ifnum\barsinline<\maxbarsinline\relax\setleftrightrepeat\x@barre \else \c@ountline \ifnum\linesinpage<\maxlinesinpage\l@leftrightrepeat \message$ ligne: \the\linesinpage % \else\p@leftrightrepeat \fi\fi% % %\check % \def\l@leftrepeat$\suspmorceau \reprmorceau\l@eftrepeat% % \def\p@leftrepeat$\suspmorceau \preprmorceau\l@eftrepeat% % %\check % \def\l@leftrightrepeat$\setrightrepeat\suspmorceau \reprmorceau\l@eftrepeat% % \def\p@leftrightrepeat$\setrightrepeat\suspmorceau \preprmorceau\l@eftrepeat% % \def\Changeclef$\Changeclefs\def\Changeclefs$% \gluebrule\thinvrule\nobreak\hskip 0.6\Interligne\nobreak\newbar \nobreak\writenewclefs\saveclefs% %\check \def\changeclef$\changeclefs\def\changeclefs$\termskip \writenewclefs\saveclefs% %\check %************************************************************************** % les notes proprement dites %************************************************************************** \def\vnotes#1\elemskip$\noteskip=#1\elemskip \n@otes% % %\check % \def\enotes$\e@notes% % \newdimen\n@skip \def\skip@n$\hskip \n@skip% \def\skip@b$\hskip \brace@w \global\advance\x@skip by\n@skip\nobreak%**** % \def\upd@sk$\nobreak\skip@n\global\advance\x@skip by\n@skip\nobreak% % \newcount\n@instrum % \def\n@otes$\def|$\finportee\nextportee\def&$\fininstrument \nextinstrument\normaltranspose=\transpose \check@nopen\global\advance\notes@open by 1\relax\upd@sk \locx@skip=\x@skip \global\n@skip=\noteskip \global\n@instrum=0\relax \nextinstrument% % %\check \def\nextinstrument$\global\advance\n@instrum by 1\relax \selectinstr$\n@instrum\resetstem \global\noportee=0\relax\nextportee % %\check % \def\fininstrument$\finportee% %\check % \def\nextportee$\alt@comp \n@portee \edef\get@ref$\noexpand\get@refs\the\cleftoks$$$$\relax\get@ref \setbox\n@otebox=\hbox\bgroup\locx@skip=\x@skip % %\check % \def\finportee$\egroup \ifdim\n@skip<\wd\n@otebox \global\n@skip=\wd\n@otebox \fi \nobreak\raise\altportee\rlap$\unhbox\n@otebox\nobreak% % %\check % \def\e@notes$\global\notes@open=0\relax\fininstrument \ifdim\n@skip<\noteskip \showthe\noteskip\showthe\n@skip \global\n@skip=\noteskip \fi% % %\check % % queue de note vers le bas \def\p@tail$\global\advance\st@bot by -3\Interligne\global\stem@skip=\z@ \pd@tail% %\check % queue de note vers le haut \def\d@tail$\global\advance\st@top by 3\Interligne\pd@tail% % \def\pd@tail$\global\advance\st@top by -\st@bot \ifdim\st@top>1pt\global\advance\st@bot by -\altportee \raise\st@bot\rlap$\kern\stem@skip\vrule height\st@top width \lthick\fi \resetstem% %\check \def\resetstem$\global\st@bot=99cm\global\st@top=-\st@bot% % \def\setstem$$\advance\y@i by -\n@raise \advance\y@i by \altportee \ifdim\st@bot>\y@i\global\st@bot=\y@i\fi \ifdim\st@top<\y@i\global\st@top=\y@i\fi% % %\check % % sequence de placement d'un caractere a une position dans la portee \def\pl@note$\pl@base \advance\y@i by \n@raise% \def\pl@base$\y@i=\n@i\internote% % % lignes supplementaires pour \n@i (position) % \newcount\h@lnlv \newdimen\hlp@width \def\h@lines#1$\hlp@width=#1\h@lnlv=0\relax\lh@lines\h@lnlv=8\relax \uh@lines% \def\lh@lines$\loop\advance\h@lnlv by -1\relax \ifnum\n@i<\h@lnlv\relax\advance\h@lnlv by -1\relax \ifnum\h@lnlv<-20\relax\showthe\h@lnlv\fi \raise\h@lnlv\internote\llap$\vrule width 1.6\hlp@width height 0.5\lthick depth 0.5\lthick\kern -1.3\hlp@width\repeat% %\check \def\uh@lines$\loop\advance\h@lnlv by 1\relax \ifnum\n@i>\h@lnlv\relax\advance\h@lnlv by 1\relax \ifnum\h@lnlv>30\relax\showthe\h@lnlv\fi \raise\h@lnlv\internote\llap$\vrule width 1.6\hlp@width height 0.5\lthick depth 0.5\lthick\kern -1.3\hlp@width\repeat% %\check % *********** les symboles de notes ou assimiles **************** % % placement % \newcount\inh@alt \def\getn@i$\global\inh@alt=0\relax\xgetn@i% % \def\inhgetn@i$\global\inh@alt=1\relax\xgetn@i% % \def\xgetn@i#1$\n@i=9999\relax % par defaut \edef\t@ruc$\f@tok #1\noexpand\relax\af@tok\ifcat a\t@ruc\relax \getn@iletter$#1% \else\getn@inonlet$#1% \ifcat pas lettre \fi\global\n@raise=\z@% % \def\getn@inonlet#1$\edef\ss@uite$\edef\s@uite$\s@tok #1$\af@tok% \edef\alt@suite$\ifcat 1\t@ruc\relax \t@rucfig$#1% cas active character dont chiffre \else\t@rucexpcar$#1% \fi\alt@suite% fi du \ifcat 1 %\check % analysis of accidentals within collective note coding \def\t@rucexpcar#1$\if ^\t@ruc\relax \edef\alt@suite$\ifnum \inh@alt=0\relax\noexpand\sh$\s@uite\fi \noexpand\getn@i$\s@uite\fi \if _\t@ruc\relax \edef\alt@suite$\ifnum \inh@alt=0\relax\noexpand\fl$\s@uite\fi \noexpand\getn@i$\s@uite\fi% %\check \def\t@rucfig#1$\if=\t@ruc\relax \edef\alt@suite$\ifnum \inh@alt=0\relax\noexpand\na$\s@uite\fi \noexpand\getn@i$\s@uite\fi \if*\t@ruc\relax \edef\alt@suite$\ifnum \inh@alt=0\relax\noexpand\sk$\s@uite\fi \noexpand\getn@i$\s@uite\fi \if.\t@ruc\relax \edef\alt@suite$\ifnum \inh@alt=0\relax\noexpand\pt$\s@uite\fi \noexpand\getn@i$\s@uite\fi \if>\t@ruc\relax \edef\alt@suite$\ifnum \inh@alt=0\relax\noexpand\dsh$\s@uite\fi \noexpand\getn@i$\s@uite\fi \if<\t@ruc\relax \edef\alt@suite$\ifnum \inh@alt=0\relax\noexpand\dfl$\s@uite\fi \noexpand\getn@i$\s@uite\fi \if!\t@ruc\relax \transpose=\normaltranspose\relax \edef\alt@suite$\noexpand\getn@i$\s@uite\fi \if'\t@ruc\relax \advance\transpose by 7\relax \edef\alt@suite$\noexpand\getn@i$\s@uite\fi \if`\t@ruc\relax \advance\transpose by -7\relax \edef\alt@suite$\noexpand\getn@i$\s@uite% \else \if -\t@ruc\relax\n@i=#1\relax\fi \if 1\t@ruc\relax\n@i=#1\relax\fi \if 2\t@ruc\relax\n@i=#1\relax\fi \if 3\t@ruc\relax\n@i=#1\relax\fi \if 4\t@ruc\relax\n@i=#1\relax\fi \if 5\t@ruc\relax\n@i=#1\relax\fi \if 6\t@ruc\relax\n@i=#1\relax\fi \if 7\t@ruc\relax\n@i=#1\relax\fi \if 8\t@ruc\relax\n@i=#1\relax\fi \if 9\t@ruc\relax\n@i=#1\relax\fi \if 0\t@ruc\relax\n@i=#1\relax\fi \fi% %\check % \def\getn@iletter#1$\n@i=\expandafter`\t@ruc\relax \ifnum\n@i >96\relax \advance\n@i by -101\relax % ramener au E (position % zero en clef de sol, ut@ref=0) \else\advance\n@i by -83\relax % ramener au S= E + 14 \fi \advance\n@i by \ut@ref\relax \advance\n@i by \ut@ref\relax \advance\n@i by \transpose\relax \edef\s@uite$\s@tok #1$\af@tok\edef\ss@uite$\noexpand\n@fon$\s@uite% %\check % \def\pt@raise$\ifodd\n@i\relax\pt@up=-0.1\Interligne\else\pt@up =0.3\Interligne\fi \advance\pt@up by -\n@raise\raise\pt@up% % % \def\lcharnote#1#2$\getn@i$#1\pl@llap$#2% % \def\bigaccid$\def\small@test$\noteskip>-1pt% \def\smallaccid$\def\small@test$\noteskip>9999pt% \def\varaccid$\def\small@test$\noteskip>1.9\qn@width% % \varaccid % accidents de taille variable %\check \def\lfl#1$\getn@i$#1\global\n@raise=\fl@raise \pl@llap$\f@lat\kern 0.8\qd@skip% % %\check \def\ldfl#1$\getn@i$#1\global\n@raise=\fl@raise \pl@llap$\df@lat\hskip 0.8\qd@skip% % %\check \def\lsh#1$\getn@i$#1\global\n@raise=\sh@raise \pl@llap$\s@harp\hskip 0.8\qd@skip% % \def\ldsh#1$\getn@i$#1\global\n@raise=\z@ \pl@llap$\ds@harp\hskip 0.8\qd@skip% %\check \def\lna#1$\getn@i$#1\global\n@raise=\na@raise \pl@llap$\n@at\hskip 0.8\qd@skip% %\check \def\pl@llap$\pl@note\raise\y@i\llap% %**************** notes (sans queue) ******************* % \def\xcharnote#1#2#3$\getn@i$#2\pl@base\raise\y@i\hbox to #1$#3\hss% %\check % \def\raise@note$\advance\locx@skip by\noteskip\raise\y@i\hbox to \noteskip% % % rondes sous diverses formes % % ronde decalee a gauche (sans avance) \def\lw#1$\kern -\wd@skip\zw$#1\kern \wd@skip% % % ronde decalee a droite (sans avance) \def\rw#1$\kern \wd@skip\zw$#1\kern -\wd@skip% %\check % ronde sans avance \def\zw#1$\getn@i$#1\def\n@fon$\zw\def\n@sym$\w@h\g@zw% \def\zwp#1$\getn@i$#1\def\n@fon$\zwp\def\n@sym$\w@hp\g@zw% \def\zwpp#1$\getn@i$#1\def\n@fon$\zwpp\def\n@sym$\w@hpp\g@zw% \def\zwppp#1$\getn@i$#1\def\n@fon$\zwppp\def\n@sym$\w@hppp\g@zw% \def\g@zw$\global\n@raise=\wh@raise\ifnum\n@i<100\relax \h@lines$\wn@width\def\s@tem$\resetstem\plap@symss\fi% %\check % \def\phpause$\hbox to \noteskip$\vrule width 1.2\qn@width height \internote\hss% \def\pause$\hbox$\raise 5\internote\phpause% \def\hpause$\hbox$\raise 4\internote\phpause% \def\demisoupir$\ds% \def\ds$\hbox to \noteskip$\d@soup\hss% \advance\locx@skip by \noteskip% \def\qp$\hbox to \noteskip$\s@oupir\hss\advance\locx@skip by \noteskip% \def\soupir$\qp% \def\dsoupir$\ds% \def\qsoupir$\qs% \def\quartsoupir$\qs% % quat de soupir \def\qs$\hbox to \noteskip$\q@soup\hss% \advance\locx@skip by \noteskip% \def\demisoupir$\ds% %\check \def\pl@noteq$\pl@note \setstem \ifdim\noteskip>\z@ \ifdim\st@bot<29cm \s@tem \fi \fi % % \def\Ped$$\cmsy P\kern -1pt\it ed.% \def\PED$\rlap$\zcharnote$-5$\kern -2pt\Ped% \def\DEP$\rlap$\zcharnote$-7$\kern 0.5\noteskip\kern -4pt\moyen *% %\check \def\pl#1$\zcharnote$#1$\raise 2pt \rlap$\ttyeight +% \def\pointdorgue#1$\zcharnote$#1$\raise \Interligne\p@orgue% \def\pointdurgue#1$\zcharnote$#1$\raise-\Interligne\p@urgue% \def\ntrille#1#2$\zcharnote$#1$\trille$#2\elemskip% \def\nTrille#1#2$\zcharnote$#1$\Trille$#2\elemskip% \def\xtrille#1#2$\zcharnote$#1$\trille$#2% \def\xTrille#1#2$\zcharnote$#1$\Trille$#2% % \def\pt#1$\inhgetn@i$#1\def\n@fon$\pt\def\n@sym$\z@p\g@pt \def\ppt#1$\inhgetn@i$#1\def\n@fon$\ppt\def\n@sym$\z@pp\g@pt \def\pppt#1$\inhgetn@i$#1\def\n@fon$\pppt\def\n@sym$\z@ppp\g@pt \def\g@pt$\global\n@raise=\qu@raise\ifnum\n@i<100\relax \pl@note\raise\y@i \rlap$\n@sym\fi% % %\check % % blanche sans queue decalee a gauche % blanche pointee sans queue % blanche decalee a gauche \def\lh#1$\kern -\hd@skip\zh$#1\kern \hd@skip% % blanche decalee a droite sans queue \def\rh#1$\kern \hd@skip\zh$#1\kern -\hd@skip% % blanche sans queue ni avance \def\zh#1$\getn@i$#1\def\n@fon$\zh\def\n@sym$\h@a\g@zh \def\zhp#1$\getn@i$#1\def\n@fon$\zhp\def\n@sym$\h@ap\g@zh \def\zhpp#1$\getn@i$#1\def\n@fon$\zhpp\def\n@sym$\h@app\g@zh \def\zhppp#1$\getn@i$#1\def\n@fon$\zhppp\def\n@sym$\h@appp\g@zh \def\g@zh$\global\n@raise=\ha@raise\global\n@width=\hn@width\g@z% \def\g@z$\ifnum\n@i<100\relax \h@lines$\n@width\pl@note\setstem\rlap@symss\fi% % % noires sans queues % \def\zq#1$\getn@i$#1\def\n@fon$\zq\def\n@sym$\q@u\g@zq \def\zqp#1$\getn@i$#1\def\n@fon$\zqp\def\n@sym$\q@up\g@zq \def\zqpp#1$\getn@i$#1\def\n@fon$\zqpp\def\n@sym$\q@upp\g@zq \def\zqppp#1$\getn@i$#1\def\n@fon$\zqppp\def\n@sym$\q@uppp\g@zq \def\g@zq$\global\n@raise=\qu@raise\global\n@width=\qn@width\g@z% % %\check \def\rq#1$\kern \qd@skip\zq$#1\kern -\qd@skip% \def\lq#1$\kern -\qd@skip\zq$#1\kern \qd@skip% % *********************** notes avec queue ********************** % %\check \def\qu#1$\getn@i$#1\def\n@fon$\qu\def\n@sym$\q@u\g@qu% \def\qup#1$\getn@i$#1\def\n@fon$\qup\def\n@sym$\q@up\g@qu% \def\qupp#1$\getn@i$#1\def\n@fon$\qupp\def\n@sym$\q@upp\g@qu% \def\quppp#1$\getn@i$#1\def\n@fon$\quppp\def\n@sym$\q@uppp\g@qu% %\check \def\g@qu$\global\n@raise=\qu@raise\ifnum\n@i<100\relax \global\stem@skip=\qd@skip\def\s@tem$\d@tail\g@qbh@\fi% % \def\q@up$\hbox to \qn@width$\q@u\hss\P@t% \def\q@upp$\hbox to \qn@width$\q@u\hss\PP@t% \def\q@uppp$\hbox to \qn@width$\q@u\hss\PPP@t% \def\h@ap$\hbox to \hn@width$\h@a\hss\P@t% \def\h@app$\hbox to \hn@width$\h@a\hss\PP@t% \def\h@appp$\hbox to \hn@width$\h@a\hss\PPP@t% \def\w@hp$\hbox to \wn@width$\w@h\hss\P@t% \def\w@hpp$\hbox to \wn@width$\w@h\hss\PP@t% \def\w@hpp$\hbox to \wn@width$\w@h\hss\PPP@t% % \def\z@p$\kern \qn@width\P@t\def\z@pp$\kern \qn@width\PP@t\def \z@ppp$\kern \qn@width \PPP@t% %\check \def\rqu#1$\getn@i$#1\def\n@fon$\qu\global\n@raise=\qu@raise \def\n@sym$\kern \qd@skip\q@u% \ifnum\n@i<100\relax \kern \qd@skip \h@lines$\qn@width\kern -\qd@skip \global\stem@skip=\qd@skip\def\s@tem$\d@tail\pl@symss\fi% %\check % noire queue en haut sans avance \def\zqu#1$\getn@i$#1\def\n@fon$\qu\def\n@sym$\q@u\rlap$\g@qu% % % espace vide d'une note \def\off#1$\advance\locx@skip by #1\kern #1% \def\sk$\off\noteskip% \def\qsk$\off\qn@width% \def\hsk$\off\hn@width% %\check \def\lqu#1$\kern -\qd@skip\zqu$#1\kern \qd@skip% %\check % noires queue en base \def\ql#1$\getn@i$#1\def\n@fon$\ql\def\n@sym$\q@u\g@ql% \def\qlp#1$\getn@i$#1\def\n@fon$\qlp\def\n@sym$\q@up\g@ql% \def\qlpp#1$\getn@i$#1\def\n@fon$\qlpp\def\n@sym$\q@upp\g@ql% \def\qlppp#1$\getn@i$#1\def\n@fon$\qlppp\def\n@sym$\q@uppp\g@ql% \def\g@ql$\global\n@raise=\qu@raise\ifnum\n@i<100\relax \def\s@tem$\p@tail\g@qbh@\fi% % % la meme sans avance \def\zql#1$\getn@i$#1\def\n@fon$\ql\def\n@sym$\q@u\rlap$\g@ql% %\check % decalees a gauche et a droite \def\lql#1$\kern -\qd@skip\zql$#1\kern \qd@skip% \def\rql#1$\kern \qd@skip\zql$#1\kern -\qd@skip% % % croches, doubles croches, triples croches, quadruple croches queue en % haut et en bas % \def\clp#1$\pt$#1\cl$#1\def\cup#1$\pt$#1\cu$#1% \def\cu$\mcu1\def\ccu$\mcu2\def\cccu$\mcu3\def\ccccu$\mcu4% \def\cl$\mcl1\def\ccl$\mcl2\def\cccl$\mcl3\def\ccccl$\mcl4% \def\zcu$\advancefalse\mcu1\def\zccu$\advancefalse\mcu2% \def\zcccu$\advancefalse\mcu3\def\zccccu$\advancefalse\mcu4% \def\zcl$\advancefalse\mcl1\def\zccl$\advancefalse\mcl2% \def\zcccl$\advancefalse\mcl3\def\zccccl$\advancefalse\mcl4% % \def\mcu#1#2$\getn@i$#2\global\n@raise=\qu@raise \def\n@sym$\q@u\edef\n@fon$\noexpand\mcu #1% \ifnum\n@i<100\relax \h@lines$\qn@width\global\stem@skip=\qd@skip \def\s@tem$\d@cr#1\pl@symssq\fi% \def\mcl#1#2$\getn@i$#2\global\n@raise=\qu@raise \def\n@sym$\q@u\edef\n@fon$\noexpand\mcl #1% \ifnum\n@i<100\relax \h@lines$\qn@width\def\s@tem$\p@cr#1\pl@symssq\fi% % % ronde \def\wh#1$\getn@i$#1\def\n@fon$\wh\def\n@sym$\w@h\g@wh% \def\whp#1$\getn@i$#1\def\n@fon$\whp\def\n@sym$\w@hp\g@wh% \def\whpp#1$\getn@i$#1\def\n@fon$\whpp\def\n@sym$\w@hpp\g@wh% \def\whppp#1$\getn@i$#1\def\n@fon$\whppp\def\n@sym$\w@hppp\g@wh% \def\g@wh$\global\n@raise=\wh@raise\ifnum\n@i<100\relax \h@lines$\wn@width\def\s@tem$\resetstem\pl@symss\fi% %\check % blanche avec queue \def\ha$\hu% \def\hu#1$\getn@i$#1\def\n@fon$\hu\def\n@sym$\h@a\g@hu% \def\hup#1$\getn@i$#1\def\n@fon$\hup\def\n@sym$\h@ap\g@hu% \def\hupp#1$\getn@i$#1\def\n@fon$\hupp\def\n@sym$\h@app\g@hu% \def\huppp#1$\getn@i$#1\def\n@fon$\huppp\def\n@sym$\h@appp\g@hu% \def\g@hu$\global\n@raise=\ha@raise\ifnum\n@i<100\relax \h@lines$\hn@width\global\stem@skip=\hd@skip\def\s@tem$\d@tail\pl@symss\fi% % %\check \def\rhu#1$\getn@i$#1\def\n@fon$\hu\global\n@raise=\ha@raise \def\n@sym$\kern \hd@skip\h@a% \ifnum\n@i<100\relax \kern \hd@skip \h@lines$\hn@width\kern -\hd@skip \global\stem@skip=\hd@skip\def\s@tem$\d@tail\pl@symss\fi% %\check % blanche avec queue sans avance \def\zhu#1$\getn@i$#1\def\n@fon$\hu\def\n@sym$\h@a\g@zhu% \def\zhup#1$\getn@i$#1\def\n@fon$\hup\def\n@sym$\h@ap\g@zhu% \def\zhupp#1$\getn@i$#1\def\n@fon$\hupp\def\n@sym$\h@app\g@zhu% \def\zhuppp#1$\getn@i$#1\def\n@fon$\huppp\def\n@sym$\h@appp\g@zhu% \def\g@zhu$\global\n@raise=\ha@raise\ifnum\n@i<100\relax \h@lines$\hn@width\global\stem@skip=\hd@skip \def\s@tem$\d@tail\plap@symss\fi% %\check \def\lhu#1$\kern -\hn@width\zhu$#1\kern \hn@width% % % % blanches queue en bas \def\hl#1$\getn@i$#1\def\n@fon$\hl\def\n@sym$\h@a\g@hl% \def\hlp#1$\getn@i$#1\def\n@fon$\hlp\def\n@sym$\h@ap\g@hl% \def\hlpp#1$\getn@i$#1\def\n@fon$\hlpp\def\n@sym$\h@app\g@hl% \def\hlppp#1$\getn@i$#1\def\n@fon$\hlppp\def\n@sym$\h@appp\g@hl% \def\g@hl$\global\n@raise=\ha@raise\ifnum\n@i<100\relax \h@lines$\hn@width\def\s@tem$\p@tail\pl@symss\fi% %\check \def\zhl#1$\getn@i$#1\def\n@fon$\hl\def\n@sym$\h@a\rlap$\g@hl% \def\rhl#1$\kern \hd@skip\zhl$#1\kern -\hd@skip% \def\lhl#1$\kern -\hn@width\zhl$#1\kern \hn@width% %\check %**************** initialisation de poutres ****************** % \ibu$0-2\relax\ifnum\b@n<2\relax\n@bbu\fi \fi% \def\nbbl#1$\selectpoutre$#1\ifnum\b@n>-2\relax\ifnum\b@n<2\relax\n@bbl\fi \fi% \def\n@bbu$\gl@au$\b@n\global\bb@x=\locx@skip \global\advance\bb@x by \qd@skip \global\bb@z=\b@z\ifnum\b@n<0\relax\global\advance\bb@z by -\interbeam \else \global\advance\bb@z by \interbeam \fi $\advance\locx@skip by \qd@skip \advance\locx@skip by -\b@x \global\advance\bb@z by \s@lope\locx@skip % % \def\n@bbl$\gl@au$\b@n\global\bb@x=\locx@skip \global\advance\bb@x by \lthick \global\bb@z=\b@z\ifnum\b@n<0\relax\global\advance\bb@z by -\interbeam \else \global\advance\bb@z by \interbeam \fi $\advance\locx@skip by -\b@x \global\advance\bb@z by \s@lope\locx@skip % %\check \def\ibbbu#1$\selectpoutre$#1\i@bbbu% \def\ibbbl#1$\selectpoutre$#1\i@bbbl% \def\i@bbbu#1#2$\ifnum\b@n=0\relax\i@bbu$#1$#2% \global\advance\b@z by \internote \global\advance\bb@z by \internote \fi\n@bbbu% \def\i@bbbl#1#2$\ifnum\b@n=0\relax\i@bbl$#1$#2% \global\advance\b@z by -\internote \global\advance\bb@z by -\internote \fi\n@bbbl% \def\nbbbu#1$\selectpoutre$#1\ifnum\b@n=-1\relax\n@bbu\fi\ifnum\b@n =1\relax\n@bbu\fi \ifnum\b@n=-2\relax\n@bbbu\fi\ifnum\b@n=2\relax\n@bbbu\fi % \def\nbbbl#1$\selectpoutre$#1\ifnum\b@n=-1\relax\n@bbl\fi\ifnum\b@n =1\relax\n@bbl\fi \ifnum\b@n=-2\relax\n@bbbl\fi\ifnum\b@n=2\relax\n@bbbl\fi % \def\n@bbbu$\gl@au$\b@n\global\bbb@x=\locx@skip \global\advance\bbb@x by \qd@skip \global\bbb@z=\b@z\ifnum\b@n<0\relax\global\advance\bbb@z by -2\interbeam \else \global\advance\bbb@z by 2\interbeam \fi $\advance\locx@skip by \qd@skip \advance\locx@skip by -\b@x \global\advance\bbb@z by \s@lope \locx@skip % % \def\n@bbbl$\gl@au$\b@n\global\bbb@x=\locx@skip \global\advance\bbb@x by \lthick \global\bbb@z=\b@z\ifnum\b@n<0\relax\global\advance\bbb@z by -2\interbeam \else \global\advance\bbb@z by 2\interbeam \fi $\advance\locx@skip by -\b@x\global\advance\bbb@z by \s@lope \locx@skip % %\check % \def\ibbbbu#1$\selectpoutre$#1\i@bbbbu% \def\ibbbbl#1$\selectpoutre$#1\i@bbbbl% \def\i@bbbbu#1#2$\ifnum\b@n=0\relax\i@bbbu$#1$#2% \global\advance\b@z by \interbeam \global\advance\bb@z by \interbeam \global\advance\bbb@z by \interbeam \fi\n@bbbbu% \def\i@bbbbl#1#2$\ifnum\b@n=0\relax\i@bbbl$#1$#2% \global\advance\b@z by -\interbeam \global\advance\bb@z by -\interbeam \global\advance\bbb@z by -\interbeam \fi\n@bbbbl% \def\nbbbbu#1$\selectpoutre$#1\ifnum\b@n=-1\relax\n@bbu\fi\ifnum\b@n =1\relax\n@bbu\fi \ifnum\b@n=-2\relax\n@bbbu\fi\ifnum\b@n=2\relax\n@bbbu\fi \ifnum\b@n=-3\relax\n@bbbbu\fi\ifnum\b@n=3\relax\n@bbbbu\fi % \def\nbbbbl#1$\selectpoutre$#1\ifnum\b@n=-1\relax\n@bbl\fi\ifnum\b@n =1\relax\n@bbl\fi \ifnum\b@n=-2\relax\n@bbbl\fi\ifnum\b@n=2\relax\n@bbbl\fi \ifnum\b@n=-3\relax\n@bbbbl\fi\ifnum\b@n=3\relax\n@bbbl\fi % \def\n@bbbbu$\gl@au$\b@n\global\bbbb@x=\locx@skip \global\advance\bbbb@x by \qd@skip \global\bbbb@z=\b@z\ifnum\b@n<0\relax\global\advance\bbbb@z by -3\interbeam \else \global\advance\bbbb@z by 3\interbeam \fi $\advance\locx@skip by \qd@skip \advance\locx@skip by -\b@x \global\advance\bbbb@z by \s@lope \locx@skip % % \def\n@bbbbl$\gl@au$\b@n\global\bbbb@x=\locx@skip \global\advance\bbbb@x by \lthick \global\bbbb@z=\b@z\ifnum\b@n<0\relax\global\advance\bbbb@z by -3\interbeam \else \global\advance\bbbb@z by 3\interbeam \fi $\advance\locx@skip by -\b@x\global\advance\bbbb@z by \s@lope \locx@skip % %\check % % terminaison de toutes les poutres en suspens % % %***** terminer une poutre superieure **************** %\check % \def\tbu#1$\selectpoutre$#1\t@bu% \def\tqh#1$\selectpoutre$#1\t@qh% \def\tbbu#1$\selectpoutre$#1\t@bbu% \def\tbbbu#1$\selectpoutre$#1\t@bbbu% \def\tbbbbu#1$\selectpoutre$#1\t@bbbbu% %\check \def\t@qh$\t@bu\qh@% \def\t@bu$\ifnum\b@n<-1\relax\t@bbu\fi \ifnum\b@n>1\relax\t@bbu\fi \y@i=\b@z \advance\y@i by -\altportee \y@ii=\locx@skip \advance\y@ii by \qn@width \advance\y@ii by -\b@x \llap$\p@outre\hskip -\qn@width% \global\b@n=0\relax% % %\check \def\t@bbu$\ifnum\b@n<-2\relax\t@bbbu\fi \ifnum\b@n>2\relax\t@bbbu\fi \ifnum\b@n=1\relax$\advance\locx@skip by -\qn@width\n@bbu\fi \ifnum\b@n=-1\relax$\advance\locx@skip by -\qn@width\n@bbu\fi \y@i=\bb@z\y@ii=-\bb@x\t@xbu% %\check \def\t@xbu$\advance\y@i by -\altportee \advance\y@ii by \locx@skip \advance\y@ii by \qn@width \llap$\p@outre\hskip -\qn@width% \ifnum\b@n>0\relax \advance\y@i by \s@lope\y@ii\raise\y@i\rlap$\kern\qn@width \kern -\lthick\vrule height \z@ depth 1.8\internote width \lthick\fi \gl@de$\b@n% %\check \def\t@bbbu$\ifnum\b@n<-3\relax\t@bbbbu\fi \ifnum\b@n>3\relax\t@bbbbu\fi \ifnum\b@n=2\relax$\advance\locx@skip by -\qn@width\n@bbbu\fi \ifnum\b@n=-2\relax$\advance\locx@skip by -\qn@width\n@bbbu\fi \y@i=\bbb@z\y@ii=-\bbb@x\t@xbu% % %\check \def\t@bbbbu$\ifnum\b@n<-4\relax\showthe\b@n\global\b@n=-4\relax\fi \ifnum\b@n>4\relax\showthe\b@n\global\b@n=4\relax\fi \ifnum\b@n=3\relax$\advance\locx@skip by -\qn@width\n@bbbbu\fi \ifnum\b@n=-3\relax$\advance\locx@skip by -\qn@width\n@bbbbu\fi \y@i=\bbbb@z\y@ii=-\bbbb@x\t@xbu% %***** terminer une poutre inferieure**************** \def\tbl#1$\selectpoutre$#1\t@bl% \def\tqb#1$\selectpoutre$#1\t@qb% \def\tbbl#1$\selectpoutre$#1\t@bbl% \def\tbbbl#1$\selectpoutre$#1\t@bbbl% \def\tbbbbl#1$\selectpoutre$#1\t@bbbbl% % provisoire \def\t@qb$\t@bl\qb@% \def\t@bl$\relax \ifnum\b@n<-1\relax\t@bbl\fi \ifnum\b@n>1\relax\t@bbl\fi \y@i=\b@z \advance\y@i by -\altportee \y@ii=\locx@skip \advance\y@ii by \lthick \advance\y@ii by -\b@x \kern\lthick\llap$\p@outre\kern -\lthick \global\b@n=0\relax% %\check % \def\t@bbl$\relax \ifnum\b@n<-2\relax\t@bbbl\fi \ifnum\b@n>2\relax\t@bbbl\fi \ifnum\b@n=1\relax$\advance\locx@skip by -\qn@width\n@bbl\fi \ifnum\b@n=-1\relax$\advance\locx@skip by -\qn@width\n@bbl\fi \y@i=\bb@z\y@ii=-\bb@x\t@xbl% % \def\t@xbl$\advance\y@i by -\altportee \advance\y@ii by \locx@skip \advance\y@ii by \lthick \kern\lthick\llap$\p@outre\kern-\lthick \ifnum\b@n<0\relax\advance\y@i by \s@lope\y@ii \raise\y@i\rlap$\vrule height \interbeam width \lthick\fi \gl@de$\b@n% %\check \def\t@bbbl$\relax \ifnum\b@n<-3\relax\t@bbbbl\fi \ifnum\b@n>3\relax\t@bbbbl\fi \ifnum\b@n=2\relax$\advance\locx@skip by -\qn@width\n@bbbl\fi \ifnum\b@n=-2\relax$\advance\locx@skip by -\qn@width\n@bbbl\fi \y@i=\bbb@z\y@ii=-\bbb@x\t@xbl% %\check \def\t@bbbbl$\relax \ifnum\b@n<-4\relax\showthe\b@n\global\b@n=-4\relax\fi \ifnum\b@n>4\relax\showthe\b@n\global\b@n=4\relax\fi \ifnum\b@n=3\relax$\advance\locx@skip by -\qn@width\n@bbbbl\fi \ifnum\b@n=-3\relax$\advance\locx@skip by -\qn@width\n@bbbbl\fi \y@i=\bbbb@z\y@ii=-\bbbb@x\t@xbl% %******************** notes accrchees aux poutres % ************************************ % \def\qh#1$\selectpoutre$#1\qh@% \def\hh#1$\selectpoutre$#1\hh@% \def\qhp#1$\selectpoutre$#1\qhp@% \def\qhpp#1$\selectpoutre$#1\qhpp@% \def\qhppp#1$\selectpoutre$#1\qhppp@% \def\qh@#1$\getn@i$#1\def\n@fon$\qh@\def\n@sym$\q@u\g@qh@% % position \def\hh@#1$\getn@i$#1\def\n@fon$\hh@\def\n@sym$\h@u\g@qh@% % position \def\qhp@#1$\getn@i$#1\def\n@fon$\qhp@\def\n@sym$\q@up\g@qh@% % position \def\qhpp@#1$\getn@i$#1\def\n@fon$\qhpp@\def\n@sym$\q@upp\g@qh@% % position \def\qhppp@#1$\getn@i$#1\def\n@fon$\qhppp@\def\n@sym$\q@uppp\g@qh@% % % position \def\qb#1$\selectpoutre$#1\qb@% \def\hb#1$\selectpoutre$#1\hb@% \def\qbp#1$\selectpoutre$#1\qbp@% \def\qbpp#1$\selectpoutre$#1\qbpp@% \def\qbppp#1$\selectpoutre$#1\qbppp@% \def\qb@#1$\getn@i$#1\def\n@fon$\qb@\def\n@sym$\q@u\g@qb@ % #1 position \def\hb@#1$\getn@i$#1\def\n@fon$\hb@\def\n@sym$\h@a\g@qb@ % #1 position \def\qbp@#1$\getn@i$#1\def\n@fon$\qbp@\def\n@sym$\q@up\g@qb@ % #1 position \def\qbpp@#1$\getn@i$#1\def\n@fon$\qbpp@\def\n@sym$\q@upp\g@qb@ % #1 % position \def\qbppp@#1$\getn@i$#1\def\n@fon$\qbppp@\def\n@sym$\q@uppp\g@qb@ % #1 % position \def\g@qb@$\global\n@raise=\qu@raise\ifnum\n@i<100\relax \global\stem@skip=\z@\def\s@tem$\d@balk\g@qbh@\fi% % \def\g@qh@$\global\n@raise=\qu@raise\ifnum\n@i<100\relax \global\stem@skip=\qd@skip\def\s@tem$\d@balk\g@qbh@\fi% % \def\g@qbh@$\h@lines$\qn@width\pl@symss% % \def\pl@symss$\pl@noteq\raise@note$\n@sym\hss\ss@uite% \def\pl@symssq$\ifadvance\pl@symss\else\plap@symss\fi\advancetrue% % \def\rlap@symss$\raise\y@i\rlap$\n@sym\ss@uite% \def\plap@symss$\pl@noteq\rlap@symss% % \def\d@balk$% % queue de note vers une poutre \y@ii=\b@z % a augmenter avec la pente \y@v=\locx@skip\advance\y@v by \stem@skip\advance\y@v by -\b@x \advance\y@ii by \s@lope\y@v \ifdim\y@ii>\st@top % la poutre est au-dessus \ifnum\b@n>0\relax\advance\y@ii by \b@n\interbeam \advance\y@ii by -\interbeam \fi\global\st@top=\y@ii % a mettre a jour avec la pente ulterieurement \else \ifdim\y@ii<\st@bot \ifnum\b@n<0\relax\advance\y@ii by \b@n\interbeam \advance\y@ii by \interbeam \fi\global\st@bot=\y@ii \fi\fi\pd@tail% % %*********************************** notes sans avancement (accords) % ******************** \def\zwh#1$$\noteskip=\z@\wh$#1% \def\zha#1$$\noteskip=\z@\ha$#1% % \def\charnote$\xcharnote$\noteskip% \def\zcharnote$\xcharnote$\z@% %\check % %************************* liaisons horizontales ************************** % \def\selecttenue#1$$\n@i=#1\relax \ifnum\n@i<0\relax\n@i=29\fi \advance\n@i by 1\relax \xdef\t@x$\csname t@x\romannumeral\n@i\endcsname% \xdef\t@z$\csname t@z\romannumeral\n@i\endcsname% \xdef\t@p$\csname t@p\romannumeral\n@i\endcsname% \xdef\t@s$\csname t@s\romannumeral\n@i\endcsname% % fin selecttenue % %\check % mise a jour marge inferieure et correction d'altitude de tenues % \newdimen\bottom@adv \def\advancebottom#1$\global\bottom@adv=#1\relax% \def\adv@bottom$\global\advance\bottommargin by \bottom@adv \global\n@l=0\relax \loop\ifnum\n@l<\maxlegatenuti\relax \selecttenue$\n@l\global\advance\t@z by \bottom@adv\relax \global\advance\n@l by 1\relax \repeat \global\bottom@adv=\z@% % %\check % \def\lu@slur$\cmex\char"7A\def\ru@slur$\cmex\char"7B% \def\ll@slur$\cmex\char"7C\def\rl@slur$\cmex\char"7D% \setbox\n@otebox=\hbox$\lu@slur\brace@w=\wd\n@otebox % \def\leg@hrule$\leaders\hrule height 1.2pt\hfill% \def\leg@vrule$\vrule height 1.2pt% % % complete slur of length #1 (up and down) \def\upleg#1$% #1 longueur \hbox to #1$\lu@slur\ifdim #1>2\brace@w\leg@hrule \else\hss\fi\ru@slur% % \def\loleg#1$% #1 longueur \hbox to #1$\ll@slur\ifdim #1>2\brace@w\leg@hrule \else\hss\fi\rl@slur% % % slur termination of length #1 (up and down) \def\uprleg#1$% #1 longueur \hbox to #1$\ifdim #1>\brace@w\leg@hrule \else\hss\fi\ru@slur% % \def\lorleg#1$% #1 longueur \hbox to #1$\ifdim #1>\brace@w\leg@hrule \else\hss\fi\rl@slur% %\check % % slur beginning (left) (up and down) \def\uples#1$% #1 longueur \hbox to #1$\lu@slur\ifdim #1>\brace@w\leg@hrule \else\hss\fi% % \def\loles#1$% #1 longueur \hbox to #1$\ll@slur\ifdim #1>\brace@w\leg@hrule \else\hss\fi% %\check % % continuation des tenues au milieu d'une mesure % \def\ctenuti$% \vrule width 0.4pt height 3cm\kern -0.4pt\relax % **** \locx@skip=\x@skip\advance\locx@skip by \n@skip \global\n@l=0\relax \loop\ifnum\n@l<\maxlegatenuti\relax \selecttenue$\n@l\ifnum\t@s=0\relax \else\c@ten\fi \global\advance\n@l by 1\relax \repeat% % % continuation d'une tenue par dessus une barre: ne doit pas % deborder mais s'arreter juste au point indique % \def\rtenuti$% *** \locx@skip=\x@skip\advance\locx@skip by \n@skip \global\n@l=0\relax \loop\ifnum\n@l<\maxlegatenuti\relax \selecttenue$\n@l\ifnum\t@s=2\relax\r@ten\fi \global\advance\n@l by 1\relax \repeat% % % noter un debut de tenue % \def\itenu#1$\selecttenue$#1\i@tenu% \def\ilegu#1#2$\selecttenue$#1$\advance\locx@skip by -1.5\qn@width \i@tenu$#2% \def\rtenu#1$\selecttenue$#1\ri@tenu% \def\ri@tenu#1$\i@tenu$#1\global\advance\t@x by \wn@width% \def\i@tenu#1$\global\t@p=1\relax % sens=1 \global\t@s=1\relax % etat en cours \global\t@x=\locx@skip \global\advance\t@x by \qd@skip \inhgetn@i$#1\pl@base\global\t@z=\y@i\global\advance\t@z by\altportee \global\advance\t@z by 3.5pt% % \def\itenl#1$\selecttenue$#1\i@tenl% \def\minternote$-\internote% \def\ilegl#1#2$\selecttenue$#1$\advance\locx@skip by -1.5\qn@width \i@tenl$#2% \def\rtenl#1$\selecttenue$#1\ri@tenl% \def\ri@tenl#1$\i@tenl$#1\global\advance\t@x by \wn@width% \def\i@tenl#1$\global\t@p=-1\relax % sens= -1 \global\t@s=1\relax % actif \global\t@x=\locx@skip \global\advance\t@x by \qd@skip \inhgetn@i$#1\pl@base\global\t@z=\y@i\global\advance\t@z by \altportee \global\advance\t@z by -4.5pt % %\check \def\tten#1$\selecttenue$#1\t@ten% \def\tleg#1$\selecttenue$#1$\advance\locx@skip by 1.5\qn@width\kern 1.5\qn@width\t@ten\kern -1.5\qn@width% \def\t@ten$\y@i=\t@z\advance\y@i by -\altportee \y@ii=\locx@skip\advance\y@ii by -\t@x \ifnum\t@p>0\relax \ifnum\t@s=2\relax \raise\y@i\llap$\uprleg$\y@ii% \else \raise\y@i\llap$\upleg$\y@ii% \fi \else \ifnum\t@s=2\relax \raise\y@i\llap$\lorleg$\y@ii% \else \raise\y@i\llap$\loleg$\y@ii% \fi \fi \global\t@s=0\relax% % %\check \def\c@ten$\y@ii=\x@skip\advance\y@ii by -\t@x \ifnum\t@s=1\relax \ifnum\t@p>0\relax \raise\t@z\llap$\uples$\y@ii\else \raise\t@z\llap$\loles$\y@ii\fi \else\ifnum\t@s=2\relax \raise\t@z\llap$\leg@vrule width \y@ii\fi \fi \global\t@x=-\y@ii \global\t@s=2\relax% % %\check \def\r@tenu#1$\selecttenue$#1\r@ten% \def\r@ten$\ifnum\t@s=2\relax \y@ii=-\t@x \global\advance\y@ii by-\brace@w \raise\t@z\llap$\leg@vrule width \y@ii\relax \fi \ifdim\t@x<-4\Interligne\global\t@x=-4\Interligne\fi % % %\check % %********************** ponctuations speciales **************************** % \def\breath$\raise 3\Interligne\hbox$\enorme'% \def\uptext#1$\resetstem\raise 5\Interligne\rlap$#1% \def\Uptext#1$\resetstem\raise 7\Interligne\rlap$#1% \def\text@sp$\vrule width \z@ height 8.5pt depth 3.5pt \def\m@idcomp$\y@v=\interportee\advance\y@v by 4\Interligne\divide\y@v by 2\relax \raise\y@v\vbox to \z@% % \def\midtwotext#1$$\m@idcomp $\vss\hbox to \noteskip$\hss\text@sp #1\hss\vss% \def\rmidtwotext#1$$\m@idcomp $\vss\hbox to \noteskip$\text@sp #1\hss\vss% \def\zmidtwotext#1$$\m@idcomp $\vss\rlap$\text@sp #1\vss% \def\lmidtwotext#1$$\m@idcomp $\vss\hbox to \noteskip$\hss\text@sp #1\vss% %\check \def\metron#1#2$$\noteskip 10pt #1 1\ = #2% %\check % %************************************************************************** % definition standard, modifiables par l'usager %************************************************************************** % \def\resetfacteurs$\topmargin=\z@\bottommargin=\z@\nullthick=\z@ \def\interfacteur$9% \def\bottomfacteur$3% \def\topfacteur$3% \elemskip=10pt\relax \def\gluemaxskip$0.1\line@width% % \resetfacteurs %\check \def\normal$\ifdim\Interligne<0.1pt\computewidths\fi \elemskip=2\Interligne \def\notes$\vnotes 1.0\elemskip % double croches \def\Notes$\vnotes 1.4\elemskip % croches \def\NOtes$\vnotes 2.0\elemskip % croches pointees \def\NOTes$\vnotes 2.8\elemskip % noires \def\NOTEs$\vnotes 4.0\elemskip % \def\NOTES$\vnotes 5.6\elemskip % % \def\large$\normal\elemskip=2.4\Interligne% \def\etroit$\normal \def\Notes$\vnotes 1.3\elemskip % croches \def\NOtes$\vnotes 1.8\elemskip % croches pointees \def\NOTes$\vnotes 2.6\elemskip % noires \def\NOTEs$\vnotes 3.6\elemskip % \def\NOTES$\vnotes 5.2\elemskip % % %\check \normal \def\testseq$% \def\nspace$\vnotes 0.2\elemskip\sk\enotes% % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \def\barfill$\leaders\hbox$ --\hfill% \def\octsup#1#2$\zcharnote$#1$\hbox to #2\noteskip $\llap$\rm 8\barfill \vrule width \z@ height 3pt depth 3pt% %\check \def\octfin#1#2$\zcharnote$#1$\hbox to #2\noteskip$\llap$\rm 8\barfill --\vrule width \lthick height 3pt depth 3pt% \def\octline#1$\zcharnote$#1$\line$\llap$\rm 8\barfill \vrule width \z@ height 3pt depth 3pt\hskip 20mm% %\check \def\xtuplet#1#2$\global\n@l=#1\relax\global\advance\n@l by -1\relax $\divide\noteskip by \n@l\relax\zcharnote$#2$\kern\n@l\noteskip\hbox to\z@$\hss\it #1\hss% \def\triolet$\xtuplet3% %\check % \let\wlog=\@plainwlog % \def\catcodemusic$ \catcode`\&=13 \catcode`\|=13  \def\nocatcodemusic$ \catcode`\&=4 \catcode`\|=12  \nocatcodemusic \newenvironment$music$\catcodemusic$\nocatcodemusic %-% End of musictex.sty From BROUARD%FRINED51.BITNET@CUNYVM.CUNY.EDU Tue Dec 10 11:20:39 1991 Return-Path: Received: from thor.acc.stolaf.edu by stolaf.edu (4.1/SMI-4.1) id AA23375; Tue, 10 Dec 91 11:20:39 CST Received: from cunyvm.cuny.edu by thor.acc.stolaf.edu; Tue, 10 Dec 91 11:19:55 -0600 Message-Id: <9112101719.AA26017@thor.acc.stolaf.edu> Received: from FRINED51.BITNET by CUNYVM.CUNY.EDU (IBM VM SMTP V2R1) with BSMTP id 6116; Tue, 10 Dec 91 12:13:06 EST Date: 10 DEC 91 18:13:11.20-GMT From: BROUARD%FRINED51.bitnet@CUNYVM.CUNY.EDU Subject: musictex.sty 3/3 To: MUTEX@stolaf.edu From: BERTI::"root@sauvy" 10-DEC-1991 18:09:29.16 To: barsac::brouard CC: Subj: Mail 3 Makefile and other files to build musictex.sty Makefile premusic.tex posmusic.tex premupln.tex Do make all As musictex 4.31 does no more load fonts already loaded by plain or lplain, musictex.sty can be built by simple concatenation of files. But there is still a problem with musicpln.tex which uses font eightbf (is it really necessary?) not loaded by standard latex, this is the reason for premupln.tex. 1) Having just get the latest version of musictex.tar.Z, I noticed that Daniel made some of my suggestions. In particular for the .mf, but as someone pointed it out on this list, the two lines input local and input modes have to be erased (they were not in the version I sent to Daniel) if your mf.bases is correctly done. I can send you the latest modes.mf if someone wants it. 2) As you probably know there is no more circle10.tfm but lcircle10 abbreviated to lcircle1 on dos. I know that it is a problem, but things going on and we have to update our fmt, pk, tfm, and macros. Sorry. I made the changes in the version I sent to Daniel, but they are still in the old fashion... 3) I think that the directories could be rearranged. I changed tex to inputs (because of latex). But the most important thing consist in the distinction between doc and examples. I also put notice.ps in the root directory. Every one should have ghostscript (gs is available on dos, unix and vms) to preview or print the basic documentation in Postscript. I made a very bad -30 0 translate in notice.ps as the new notice.dvi is right shifted. 4)Most important pks should also be included (100,118 for screen, 240 for epson, and 300 for laser). At the end of this message is my ls -lR as it will be organized on the GUTenberg RS6000 tex tape. Nicolas Brouard ========Makefile========= LIB =/usr/local/lib/tex/inputs LAPARTS = premusic.tex musicnft.tex musictex.tex posmusic.tex LAPLNPARTS= premupln.tex musicpln.tex musictex.tex posmusic.tex TEXPARTS = musicnft.tex musicpln.tex musictex.tex musicvbm.tex musicadd.tex all: musictex.sty musicpln.sty $(TEXPARTS) install: all install -c -m 444 musicnft.tex $(LIB) install -c -m 444 musictex.tex $(LIB) install -c -m 444 musicpln.tex $(LIB) install -c -m 444 musicvbm.tex $(LIB) install -c -m 444 musicadd.tex $(LIB) install -c -m 444 musictex.sty $(LIB) install -c -m 444 musicpln.sty $(LIB) musictex.sty: cat $(LAPARTS) \ | cat -s > musictex.sty musicpln.sty: cat $(LAPLNPARTS) \ | cat -s > musicpln.sty =====end of Makefile========= ======premusic.tex======== %-% Musictex.sty version 0.1 of December, 10 1991 %-% Updates to version 4.31 November 1991 of plain musictex %-% Musictex.sty version 0.0 of 5, November 1991 %-% It is a first attempt to make musictex running by LaTeX %-% We defined an environment named music to change the catcodes %-% of the vertical bar and the ampersand for musictex. %-% We used TeX command instead of LaTeX command inside of music. %-% It needs a rather big \Tex$, but emTeX compiler on PCs does the trip %-% for small music arrays. It works better on work stations. %-% Nicolas Brouard %-% With this file you need extra fonts. If extrafonts are %-% are not available then use \documenstyle[musicpln]$article %-% %-% In both cas you can add the option file bigmusic.sty which %-% enlarges LaTeX page to a big size (A4). %-% \documentstyle[musicpln,bigmusic]$article %-% %-% Here is an example: %-% \documentstyle[musictex]$article %-% \begin$document %-%\def\nbinstruments$1\relax %-%\generalmeter$\meterfrac$4$4\relax %-%\debutmorceau %-%\normal %-%\zglu\Notes\rlap$\hu j\ql h\enotes %-%\temps\Notes\hl g\enotes %-%\temps\Notes\hu k\enotes %-%\temps\Notes\ql f\enotes %-%\suspmorceau %-% \end$music %-% %-% Latex blabla %-% %-% \begin$music %-%\def\nbinstruments$1\relax %-%\generalmeter$\meterfrac$4$4\relax %-%\debutmorceau %-%\normal %-%\zglu\Notes\rlap$\hu j\ql h\enotes %-%\temps\Notes\hl g\enotes %-%\temps\Notes\hu k\enotes %-%\temps\Notes\ql f\enotes %-%\suspmorceau %-% \end$document %-% %-% Building Musictex.sty %-% %-% Two files are required to build musictex.sty from %-% the plain distribution, premusic.tex and posmusic.\TeX$. %-% Then musictex.sty is %-% the concatenation of premusic.tex+musicfnt.tex+musictex.tex+posmusic.tex %-% On unix: %-% cat premusic.tex musicfnt.tex musictex.tex posmusic.tex >musictex.sty %-% On dos: %-% copy premusic.tex+musicfnt.tex+musictex.tex+posmusic.tex musictex.sty %-% If you don't have the fonts use: %-% On unix: %-% cat premusic.tex musicpln.tex musictex.tex posmusic.tex >musicpln.sty %-% On dos: %-% copy premusic.tex+musicpln.tex+musictex.tex+posmusic.tex musicpln.sty %-% You also need the option file bigmusic.sty. ======end of premusic.tex ======= =====posmusic.tex========== % posmusic.tex Version 0.1 decembre 1991 N. Brouard \def\catcodemusic$ \catcode`\&=13 \catcode`\|=13  \def\nocatcodemusic$ \catcode`\&=4 \catcode`\|=12  \nocatcodemusic \newenvironment$music$\catcodemusic$\nocatcodemusic %-% End of musictex.sty =====end of posmusic.tex======== =====premupln.tex========= %-% Musicpln.sty version 0.1 of December, 10 1991 %-% Updates to version 4.31 November 1991 of plain musictex %-% Musictex.sty version 0.0 of 5, November 1991 %-% It is a first attempt to make musictex running by LaTeX %-% We defined an environment named music to change the catcodes %-% of the vertical bar and the ampersand for musictex. %-% We used TeX command instead of LaTeX command inside of music. %-% It needs a rather big \Tex$, but emTeX compiler on PCs does the trip %-% for sm