diff options
Diffstat (limited to 'Build/source/utils/pmx/pmx-src/pmxab.c')
-rw-r--r-- | Build/source/utils/pmx/pmx-src/pmxab.c | 51309 |
1 files changed, 26703 insertions, 24606 deletions
diff --git a/Build/source/utils/pmx/pmx-src/pmxab.c b/Build/source/utils/pmx/pmx-src/pmxab.c index 38aac5a1d0f..c88dfc664d8 100644 --- a/Build/source/utils/pmx/pmx-src/pmxab.c +++ b/Build/source/utils/pmx/pmx-src/pmxab.c @@ -1,5 +1,5 @@ #line 1 "" -/* -- translated by f2c (version 20100827). +/* -- translated by f2c (version 20160102). You must link the resulting object file with libf2c: on Microsoft Windows system, link with libf2c.lib; on Linux or Unix systems, link with .../path/to/libf2c.a -lm @@ -285,6 +285,7 @@ struct { struct { integer ivbj1, ivbj2; logical isbjmp, isbj2; + integer multbj1; } combjmp_; #define combjmp_1 combjmp_ @@ -652,6 +653,15 @@ struct { #define comis4bignv_1 comis4bignv_ struct { + real shortfrac, codafrac; + integer ishort, mbrsum, nmbr; + logical nocodabn; + real poefa[125]; +} comshort_; + +#define comshort_1 comshort_ + +struct { logical lastchar, rptnd1, sluron[48] /* was [24][2] */, fbon, ornrpt, stickys; integer movbrk, movnmp, movdnp, movgap; @@ -663,7 +673,8 @@ struct { #define comget_1 comget_ struct { - logical ignorenats; + integer mbrhgt; + logical newmbrhgt, ignorenats; } comignorenats_; #define comignorenats_1 comignorenats_ @@ -787,6 +798,12 @@ struct { #define comclefrests_1 comclefrests_ struct { + logical c8flag[24]; +} comc8flag_; + +#define comc8flag_1 comc8flag_ + +struct { real elskb, tnminb[3999]; } linecom_; @@ -907,9 +924,9 @@ static integer c__27 = 27; static integer c__10 = 10; static integer c__20 = 20; static integer c__26 = 26; -static real c_b1008 = -2.f; -static real c_b1009 = 0.f; -static real c_b1054 = 1.f; +static real c_b1007 = -2.f; +static real c_b1008 = 0.f; +static real c_b1053 = 1.f; static integer c__8 = 8; static integer c__16 = 16; static integer c__23 = 23; @@ -920,7 +937,7 @@ static integer c__19 = 19; static integer c__24 = 24; static integer c__28 = 28; static integer c__18 = 18; -static real c_b1902 = 2.f; +static real c_b1901 = 2.f; static integer c__30 = 30; static integer c__60 = 60; static integer c__80 = 80; @@ -935,8 +952,8 @@ static integer c__47 = 47; { /* Initialized data */ - static char date[9] = "10 Feb 18"; - static char version[5] = "2.84 "; + static char date[9] = "27 Jan 20"; + static char version[5] = "2.94 "; static integer maxit = 200; static integer ncalls = 0; static logical isfirst = TRUE_; @@ -1088,6 +1105,32 @@ static integer c__47 = 47; /* Forced line break without line number */ /* Fix dot moving when 2nds in chord get flipped */ /* To do: increase length on notexq in dodyn */ +/* 2.94 */ +/* Allow moving dots on main and chord note in 2-note termolos */ +/* Add definitions of \hbp and \hbpp to pmx.tex */ +/* 2.91 */ +/* Tweak: insert \stdstemfalse before every user-shortened or lengthened stem. */ +/* This cancels defaul extensions to middle line and also (with 'L') allows */ +/* stems that are longer than 4.66 but still don't reach middle line. */ +/* Allow alteration of number height in multibar rest, option n. */ +/* Fix bug introduced in 2.89 so that the "o" in "mo800" is now OK. */ +/* 2.90 */ +/* Many tweaks to allow gaps at end or middle of a system using */ +/* L[n]S[x] and LC[y]. New pmx.tex. */ +/* 2.88 */ +/* Comment out print*,"Changed pathname to..." since it was going */ +/* iteration when optimizing linebreaks with the undocumented option Ao. */ +/* Add nv back in as argument for getmidi, so loop transferring data */ +/* from midivel to midvelc can be executed. This corrects bug and */ +/* allows per-instrument change in midi velocities at the start */ +/* of any block */ +/* Add subroutine inst2chan to transfer midi data as noted above. Works with */ +/* Iv but buggy when used with IT and Ib */ +/* 2.87 */ +/* Allow changes to and from octave treble clef. Instrument with it */ +/* must only have one staff. */ +/* Some fixes for beam multiplicity changes at staff jumps. Must still */ +/* use inline for mult. increase at downward staff jump. See sjb.pmx. */ /* 2.84 */ /* Bug fix: dots in chordal seconds */ /* Bug fix: Initialize ihornb for non-beamed, down xtup */ @@ -1787,1149 +1830,1149 @@ static integer c__47 = 47; /* cccccccccccccccccccccccc */ /* itstart = mytime() */ -#line 812 "" +#line 838 "" s_copy(comver_1.versionc, version, (ftnlen)5, (ftnlen)5); /* Initialize midi parameters */ -#line 816 "" +#line 842 "" commmac_1.gottempo = FALSE_; -#line 817 "" +#line 843 "" commidi_1.ismidi = FALSE_; -#line 818 "" +#line 844 "" commidi_1.debugmidi = FALSE_; -#line 819 "" +#line 845 "" commidi_1.relacc = FALSE_; -#line 820 "" +#line 846 "" commmac_1.mmacrec = FALSE_; -#line 821 "" +#line 847 "" commmac_1.nmidsec = 1; -#line 822 "" +#line 848 "" commidi_1.mgap = 10; -#line 823 "" +#line 849 "" comevent_1.miditime = 0; -#line 824 "" +#line 850 "" comevent_1.lasttime = 0; -#line 825 "" +#line 851 "" commidi_1.nmidcrd = 0; -#line 826 "" +#line 852 "" comslm_1.nusebl = 0; -#line 827 "" +#line 853 "" commidi_1.notmain = FALSE_; -#line 828 "" +#line 854 "" for (ivx = 1; ivx <= 24; ++ivx) { -#line 829 "" +#line 855 "" commidi_1.twoline[ivx - 1] = FALSE_; -#line 830 "" +#line 856 "" commidi_1.midinst[ivx - 1] = 6; -#line 831 "" +#line 857 "" commvel_1.midivel[ivx - 1] = 127; -#line 832 "" +#line 858 "" commvel_1.midibal[ivx - 1] = 64; -#line 833 "" +#line 859 "" commvel_1.miditran[ivx - 1] = 0; -#line 834 "" +#line 860 "" /* L3: */ -#line 834 "" +#line 860 "" } -#line 835 "" +#line 861 "" for (icm = 0; icm <= 24; ++icm) { -#line 836 "" +#line 862 "" commidi_1.imidi[icm] = 0; -#line 837 "" +#line 863 "" commidi_1.restpend[icm] = FALSE_; -#line 838 "" +#line 864 "" commidi_1.trest[icm] = 0.f; -#line 839 "" +#line 865 "" comslm_1.levson[icm] = 0; -#line 840 "" +#line 866 "" comslm_1.levsoff[icm] = 0; -#line 841 "" +#line 867 "" comslm_1.slmon[icm] = FALSE_; -#line 842 "" +#line 868 "" comslm_1.naccbl[icm] = 0; -#line 843 "" +#line 869 "" comdiag_1.n69[icm] = 0; -#line 844 "" +#line 870 "" comdiag_1.n34[icm] = 0; -#line 845 "" +#line 871 "" commmac_1.msecstrt[icm] = 1; -#line 846 "" +#line 872 "" /* L12: */ -#line 846 "" +#line 872 "" } /* End of midi parameter initialization */ -#line 850 "" +#line 876 "" commus_1.musize = 0; -#line 851 "" +#line 877 "" optimize = FALSE_; -#line 852 "" +#line 878 "" numargs = iargc_(); -#line 853 "" +#line 879 "" if (numargs == 0) { -#line 854 "" +#line 880 "" s_wsle(&io___10); -#line 854 "" +#line 880 "" do_lio(&c__9, &c__1, "You could have entered a jobname on the comman"\ "d line,", (ftnlen)53); -#line 854 "" +#line 880 "" e_wsle(); -#line 855 "" +#line 881 "" s_wsle(&io___11); -#line 855 "" +#line 881 "" do_lio(&c__9, &c__1, " but you may enter one now:", (ftnlen)32); -#line 855 "" +#line 881 "" e_wsle(); -#line 856 "" +#line 882 "" s_rsfe(&io___12); -#line 856 "" +#line 882 "" do_fio(&c__1, jobname, (ftnlen)44); -#line 856 "" +#line 882 "" e_rsfe(); -#line 857 "" +#line 883 "" numargs = 1; -#line 858 "" +#line 884 "" } else { /* call getarg(1,jobname,idum) ! May need to replace this w/ next line */ -#line 860 "" +#line 886 "" getarg_(&c__1, jobname, (ftnlen)44); -#line 861 "" +#line 887 "" } -#line 862 "" +#line 888 "" L10: -#line 862 "" +#line 888 "" ljob = lenstr_(jobname, &c__44, (ftnlen)44); -#line 863 "" +#line 889 "" if (ljob > 44) { -#line 864 "" +#line 890 "" s_wsle(&io___15); -#line 864 "" +#line 890 "" do_lio(&c__9, &c__1, "Jobname is too long. Try again.", (ftnlen)31); -#line 864 "" +#line 890 "" e_wsle(); -#line 865 "" +#line 891 "" stop1_(); -#line 866 "" +#line 892 "" } else if (ljob == 0) { -#line 867 "" +#line 893 "" s_wsle(&io___16); -#line 867 "" +#line 893 "" do_lio(&c__9, &c__1, "No was jobname entered. Try again.", (ftnlen)34) ; -#line 867 "" +#line 893 "" e_wsle(); -#line 868 "" +#line 894 "" stop1_(); -#line 869 "" +#line 895 "" } else if (numargs == 2) { -#line 870 "" +#line 896 "" if (ljob == 2 && s_cmp(jobname, "-o", (ftnlen)2, (ftnlen)2) == 0) { -#line 871 "" +#line 897 "" optimize = TRUE_; /* call getarg(2,jobname,idum) ! May need to replace this w/ next line */ -#line 873 "" +#line 899 "" getarg_(&c__2, jobname, (ftnlen)44); -#line 874 "" +#line 900 "" numargs = 1; -#line 875 "" +#line 901 "" goto L10; -#line 876 "" +#line 902 "" } else { -#line 877 "" +#line 903 "" s_wsle(&io___17); -#line 877 "" +#line 903 "" do_lio(&c__9, &c__1, "Illegal option on command line", (ftnlen)30) ; -#line 877 "" +#line 903 "" e_wsle(); -#line 878 "" +#line 904 "" stop1_(); -#line 879 "" +#line 905 "" } -#line 880 "" +#line 906 "" } /* Strip ".pmx" if necessary */ /* Computing MAX */ -#line 884 "" +#line 910 "" i__1 = i_indx(jobname, ".pmx", (ftnlen)44, (ftnlen)4), i__2 = i_indx( jobname, ".PMX", (ftnlen)44, (ftnlen)4); -#line 884 "" +#line 910 "" ndxpmx = max(i__1,i__2); -#line 885 "" +#line 911 "" if (ndxpmx > 0) { -#line 886 "" +#line 912 "" s_copy(jobname, jobname, (ftnlen)44, ndxpmx - 1); -#line 887 "" +#line 913 "" ljob += -4; -#line 888 "" +#line 914 "" } /* Check for existence of input file */ /* Writing concatenation */ -#line 892 "" +#line 918 "" i__3[0] = ljob, a__1[0] = jobname; -#line 892 "" +#line 918 "" i__3[1] = 4, a__1[1] = ".pmx"; -#line 892 "" +#line 918 "" s_cat(infileq, a__1, i__3, &c__2, (ftnlen)47); -#line 893 "" +#line 919 "" ioin__1.inerr = 0; -#line 893 "" +#line 919 "" ioin__1.infilen = 47; -#line 893 "" +#line 919 "" ioin__1.infile = infileq; -#line 893 "" +#line 919 "" ioin__1.inex = &fexist; -#line 893 "" +#line 919 "" ioin__1.inopen = 0; -#line 893 "" +#line 919 "" ioin__1.innum = 0; -#line 893 "" +#line 919 "" ioin__1.innamed = 0; -#line 893 "" +#line 919 "" ioin__1.inname = 0; -#line 893 "" +#line 919 "" ioin__1.inacc = 0; -#line 893 "" +#line 919 "" ioin__1.inseq = 0; -#line 893 "" +#line 919 "" ioin__1.indir = 0; -#line 893 "" +#line 919 "" ioin__1.infmt = 0; -#line 893 "" +#line 919 "" ioin__1.inform = 0; -#line 893 "" +#line 919 "" ioin__1.inunf = 0; -#line 893 "" +#line 919 "" ioin__1.inrecl = 0; -#line 893 "" +#line 919 "" ioin__1.innrec = 0; -#line 893 "" +#line 919 "" ioin__1.inblank = 0; -#line 893 "" +#line 919 "" f_inqu(&ioin__1); -#line 894 "" +#line 920 "" if (! fexist) { -#line 895 "" +#line 921 "" ioin__1.inerr = 0; -#line 895 "" +#line 921 "" ioin__1.infilen = ljob + 4; /* Writing concatenation */ -#line 895 "" +#line 921 "" i__3[0] = ljob, a__1[0] = jobname; -#line 895 "" +#line 921 "" i__3[1] = 4, a__1[1] = ".PMX"; -#line 895 "" +#line 921 "" s_cat(ch__1, a__1, i__3, &c__2, (ftnlen)48); -#line 895 "" +#line 921 "" ioin__1.infile = ch__1; -#line 895 "" +#line 921 "" ioin__1.inex = &fexist; -#line 895 "" +#line 921 "" ioin__1.inopen = 0; -#line 895 "" +#line 921 "" ioin__1.innum = 0; -#line 895 "" +#line 921 "" ioin__1.innamed = 0; -#line 895 "" +#line 921 "" ioin__1.inname = 0; -#line 895 "" +#line 921 "" ioin__1.inacc = 0; -#line 895 "" +#line 921 "" ioin__1.inseq = 0; -#line 895 "" +#line 921 "" ioin__1.indir = 0; -#line 895 "" +#line 921 "" ioin__1.infmt = 0; -#line 895 "" +#line 921 "" ioin__1.inform = 0; -#line 895 "" +#line 921 "" ioin__1.inunf = 0; -#line 895 "" +#line 921 "" ioin__1.inrecl = 0; -#line 895 "" +#line 921 "" ioin__1.innrec = 0; -#line 895 "" +#line 921 "" ioin__1.inblank = 0; -#line 895 "" +#line 921 "" f_inqu(&ioin__1); -#line 896 "" +#line 922 "" if (! fexist) { -#line 897 "" +#line 923 "" s_wsle(&io___21); /* Writing concatenation */ -#line 897 "" +#line 923 "" i__3[0] = 17, a__1[0] = "Cannot find file "; -#line 897 "" +#line 923 "" i__3[1] = 47, a__1[1] = infileq; -#line 897 "" +#line 923 "" s_cat(ch__2, a__1, i__3, &c__2, (ftnlen)64); -#line 897 "" +#line 923 "" do_lio(&c__9, &c__1, ch__2, (ftnlen)64); -#line 897 "" +#line 923 "" e_wsle(); -#line 898 "" +#line 924 "" stop1_(); -#line 899 "" +#line 925 "" } else { /* Writing concatenation */ -#line 900 "" +#line 926 "" i__3[0] = ljob, a__1[0] = jobname; -#line 900 "" +#line 926 "" i__3[1] = 4, a__1[1] = ".PMX"; -#line 900 "" +#line 926 "" s_cat(infileq, a__1, i__3, &c__2, (ftnlen)47); -#line 901 "" +#line 927 "" } -#line 902 "" +#line 928 "" } /* Open a log file */ -#line 906 "" +#line 932 "" o__1.oerr = 0; -#line 906 "" +#line 932 "" o__1.ounit = 15; -#line 906 "" +#line 932 "" o__1.ofnmlen = ljob + 4; /* Writing concatenation */ -#line 906 "" +#line 932 "" i__3[0] = ljob, a__1[0] = jobname; -#line 906 "" +#line 932 "" i__3[1] = 4, a__1[1] = ".pml"; -#line 906 "" +#line 932 "" s_cat(ch__1, a__1, i__3, &c__2, (ftnlen)48); -#line 906 "" +#line 932 "" o__1.ofnm = ch__1; -#line 906 "" +#line 932 "" o__1.orl = 0; -#line 906 "" +#line 932 "" o__1.osta = 0; -#line 906 "" +#line 932 "" o__1.oacc = 0; -#line 906 "" +#line 932 "" o__1.ofm = 0; -#line 906 "" +#line 932 "" o__1.oblnk = 0; -#line 906 "" +#line 932 "" f_open(&o__1); /* Writing concatenation */ -#line 907 "" +#line 933 "" i__4[0] = 21, a__2[0] = "This is PMX, Version "; -#line 907 "" +#line 933 "" i__4[1] = 5, a__2[1] = version; -#line 907 "" +#line 933 "" i__4[2] = 2, a__2[2] = ", "; -#line 907 "" +#line 933 "" i__4[3] = 9, a__2[3] = date; -#line 907 "" +#line 933 "" s_cat(ch__3, a__2, i__4, &c__4, (ftnlen)37); -#line 907 "" +#line 933 "" printl_(ch__3, (ftnlen)37); -#line 908 "" +#line 934 "" ljob4 = ljob; /* Writing concatenation */ -#line 909 "" +#line 935 "" i__3[0] = 8, a__1[0] = "Opening "; -#line 909 "" +#line 935 "" i__3[1] = 47, a__1[1] = infileq; -#line 909 "" +#line 935 "" s_cat(ch__4, a__1, i__3, &c__2, (ftnlen)55); -#line 909 "" +#line 935 "" printl_(ch__4, (ftnlen)55); -#line 910 "" +#line 936 "" o__1.oerr = 0; -#line 910 "" +#line 936 "" o__1.ounit = 18; -#line 910 "" +#line 936 "" o__1.ofnmlen = 47; -#line 910 "" +#line 936 "" o__1.ofnm = infileq; -#line 910 "" +#line 936 "" o__1.orl = 0; -#line 910 "" +#line 936 "" o__1.osta = 0; -#line 910 "" +#line 936 "" o__1.oacc = 0; -#line 910 "" +#line 936 "" o__1.ofm = 0; -#line 910 "" +#line 936 "" o__1.oblnk = 0; -#line 910 "" +#line 936 "" f_open(&o__1); /* Copy input file into common buffer */ -#line 914 "" +#line 940 "" inbuff_1.ipbuf = 0; -#line 915 "" +#line 941 "" truelinecount_1.linewcom[0] = 1; -#line 916 "" +#line 942 "" for (inbuff_1.ilbuf = 1; inbuff_1.ilbuf <= 9600; ++inbuff_1.ilbuf) { -#line 917 "" +#line 943 "" ncomments = 0; -#line 918 "" +#line 944 "" L14: -#line 918 "" +#line 944 "" i__1 = s_rsfe(&io___24); -#line 918 "" +#line 944 "" if (i__1 != 0) { -#line 918 "" +#line 944 "" goto L9; -#line 918 "" +#line 944 "" } -#line 918 "" +#line 944 "" i__1 = do_fio(&c__1, lnholdq, (ftnlen)128); -#line 918 "" +#line 944 "" if (i__1 != 0) { -#line 918 "" +#line 944 "" goto L9; -#line 918 "" +#line 944 "" } -#line 918 "" +#line 944 "" i__1 = e_rsfe(); -#line 918 "" +#line 944 "" if (i__1 != 0) { -#line 918 "" +#line 944 "" goto L9; -#line 918 "" +#line 944 "" } -#line 919 "" +#line 945 "" inbuff_1.lbuf[inbuff_1.ilbuf - 1] = (shortint) lenstr_(lnholdq, & c__128, (ftnlen)128); -#line 920 "" +#line 946 "" if (inbuff_1.lbuf[inbuff_1.ilbuf - 1] == 0) { /* Blank line. Make it a single blank with length 1 */ -#line 924 "" +#line 950 "" inbuff_1.lbuf[inbuff_1.ilbuf - 1] = 1; -#line 925 "" +#line 951 "" s_copy(lnholdq, " ", (ftnlen)128, (ftnlen)1); -#line 926 "" +#line 952 "" } /* Now line has at least one non blank character. Check for comment */ /* As of Version 260, do not copy comments into bufq */ /* But need to count %'s for error messaging */ /* if (lnholdq(1:1).eq.'%') go to 14 */ -#line 932 "" +#line 958 "" if (*(unsigned char *)lnholdq == '%') { -#line 933 "" +#line 959 "" ++ncomments; -#line 934 "" +#line 960 "" goto L14; -#line 935 "" +#line 961 "" } /* When here, have counted all preceding comments and have a real line */ -#line 939 "" +#line 965 "" if (inbuff_1.ilbuf > 1) { -#line 940 "" +#line 966 "" truelinecount_1.linewcom[inbuff_1.ilbuf - 1] = truelinecount_1.linewcom[inbuff_1.ilbuf - 2] + 1 + ncomments; -#line 941 "" +#line 967 "" } else { -#line 942 "" +#line 968 "" truelinecount_1.linewcom[0] = ncomments + 1; -#line 943 "" +#line 969 "" } -#line 944 "" +#line 970 "" if (inbuff_1.ipbuf + inbuff_1.lbuf[inbuff_1.ilbuf - 1] > 131072) { -#line 945 "" +#line 971 "" s_wsle(&io___26); -#line 945 "" +#line 971 "" do_lio(&c__9, &c__1, "Too many characters in file, stopping", ( ftnlen)37); -#line 945 "" +#line 971 "" e_wsle(); -#line 946 "" +#line 972 "" stop1_(); -#line 947 "" +#line 973 "" } -#line 948 "" +#line 974 "" i__1 = inbuff_1.ipbuf; -#line 948 "" +#line 974 "" s_copy(inbuff_1.bufq + i__1, lnholdq, inbuff_1.ipbuf + inbuff_1.lbuf[ inbuff_1.ilbuf - 1] - i__1, (ftnlen)128); -#line 949 "" +#line 975 "" inbuff_1.ipbuf += inbuff_1.lbuf[inbuff_1.ilbuf - 1]; -#line 950 "" +#line 976 "" /* L8: */ -#line 950 "" +#line 976 "" } -#line 951 "" +#line 977 "" printl_("Too many lines in input file", (ftnlen)28); -#line 952 "" +#line 978 "" stop1_(); -#line 953 "" +#line 979 "" L9: /* Insert dummy line to handle input files w/o CR-LF at end. */ -#line 957 "" +#line 983 "" inbuff_1.nlbuf = inbuff_1.ilbuf - 1; /* nlbuf = ilbuf */ /* bufq(ipbuf+1:ipbuf+3) = ' / ' */ /* lbuf(nlbuf) = 3 */ -#line 961 "" +#line 987 "" cl__1.cerr = 0; -#line 961 "" +#line 987 "" cl__1.cunit = 18; -#line 961 "" +#line 987 "" cl__1.csta = 0; -#line 961 "" +#line 987 "" f_clos(&cl__1); -#line 962 "" +#line 988 "" i__1 = maxit; -#line 962 "" +#line 988 "" for (numit = 1; numit <= i__1; ++numit) { -#line 963 "" +#line 989 "" if (optimize) { -#line 963 "" +#line 989 "" printl_("Starting an iteration", (ftnlen)21); -#line 963 "" +#line 989 "" } /* When isfirst=.true., pmxa() generates linebreaks normally, output in nbars0. */ /* Otherwise, nbars0 is the input */ /* When islast=.false., pmxb only returns poe's, otherwise does whole job */ -#line 969 "" +#line 995 "" pmxa_(jobname, &ljob4, &isfirst, &nsyst, nbars0, &optimize, (ftnlen) 44); -#line 970 "" +#line 996 "" if (! optimize) { -#line 971 "" +#line 997 "" if (commidi_1.ismidi) { /* This was moved here from writemidi 130302 to allow midivel,bal,tran, to be */ /* set up here as functions of instrument rather than iv (staff). */ /* Count up staves(iv,nv) vs instruments. Store instr# for iv in iinsiv(iv) */ -#line 977 "" +#line 1003 "" nstaves = 0; -#line 978 "" +#line 1004 "" ivt = 0; -#line 979 "" +#line 1005 "" for (iinst = 1; iinst <= 24; ++iinst) { -#line 980 "" +#line 1006 "" nstaves += c1omget_1.nsperi[iinst - 1]; -#line 981 "" +#line 1007 "" i__2 = c1omget_1.nsperi[iinst - 1]; -#line 981 "" +#line 1007 "" for (ivtt = 1; ivtt <= i__2; ++ivtt) { -#line 982 "" +#line 1008 "" ++ivt; -#line 983 "" +#line 1009 "" commvel_1.iinsiv[ivt - 1] = (shortint) iinst; -#line 984 "" +#line 1010 "" /* L17: */ -#line 984 "" +#line 1010 "" } -#line 985 "" +#line 1011 "" if (nstaves == a1ll_1.nv) { -#line 985 "" +#line 1011 "" goto L18; -#line 985 "" +#line 1011 "" } -#line 986 "" +#line 1012 "" /* L16: */ -#line 986 "" +#line 1012 "" } -#line 987 "" +#line 1013 "" s_wsle(&io___34); -#line 987 "" +#line 1013 "" do_lio(&c__9, &c__1, "Screwup!", (ftnlen)8); -#line 987 "" +#line 1013 "" e_wsle(); -#line 988 "" +#line 1014 "" stop1_(); -#line 989 "" +#line 1015 "" L18: /* Set up channel numbers for midi. */ -#line 993 "" +#line 1019 "" commidi_1.numchan = 0; -#line 994 "" +#line 1020 "" for (a1ll_1.iv = a1ll_1.nv; a1ll_1.iv >= 1; --a1ll_1.iv) { -#line 995 "" +#line 1021 "" if (commidi_1.twoline[a1ll_1.iv - 1]) { -#line 996 "" +#line 1022 "" commidi_1.midchan[a1ll_1.iv + 23] = commidi_1.numchan; -#line 997 "" +#line 1023 "" ++commidi_1.numchan; -#line 998 "" +#line 1024 "" } -#line 999 "" +#line 1025 "" commidi_1.midchan[a1ll_1.iv - 1] = commidi_1.numchan; -#line 1000 "" +#line 1026 "" ++commidi_1.numchan; -#line 1001 "" +#line 1027 "" /* L11: */ -#line 1001 "" +#line 1027 "" } /* numchan will now be the number of channels, but max channel # is numchan-1 */ /* Set up velocities, balances, and midi-transpositions */ -#line 1007 "" +#line 1033 "" for (a1ll_1.iv = a1ll_1.nv; a1ll_1.iv >= 1; --a1ll_1.iv) { -#line 1008 "" +#line 1034 "" if (commidi_1.twoline[a1ll_1.iv - 1]) { /* 130302 Make these functions of instrument rather than staff (iv) */ /* midvelc(midchan(iv,2)) = midivel(iv) */ /* midbc(midchan(iv,2)) = midibal(iv) */ /* midtc(midchan(iv,2)) = miditran(iv) */ -#line 1013 "" +#line 1039 "" commvel_1.midvelc[commidi_1.midchan[a1ll_1.iv + 23]] = commvel_1.midivel[commvel_1.iinsiv[a1ll_1.iv - 1] - 1]; -#line 1014 "" +#line 1040 "" commvel_1.midbc[commidi_1.midchan[a1ll_1.iv + 23]] = commvel_1.midibal[commvel_1.iinsiv[a1ll_1.iv - 1] - 1]; -#line 1015 "" +#line 1041 "" commvel_1.midtc[commidi_1.midchan[a1ll_1.iv + 23]] = commvel_1.miditran[commvel_1.iinsiv[a1ll_1.iv - 1] - 1]; -#line 1016 "" +#line 1042 "" } /* midvelc(midchan(iv,1)) = midivel(iv) */ /* midbc(midchan(iv,1)) = midibal(iv) */ /* midtc(midchan(iv,1)) = miditran(iv) */ -#line 1020 "" +#line 1046 "" commvel_1.midvelc[commidi_1.midchan[a1ll_1.iv - 1]] = commvel_1.midivel[commvel_1.iinsiv[a1ll_1.iv - 1] - 1]; -#line 1021 "" +#line 1047 "" commvel_1.midbc[commidi_1.midchan[a1ll_1.iv - 1]] = commvel_1.midibal[commvel_1.iinsiv[a1ll_1.iv - 1] - 1]; -#line 1022 "" +#line 1048 "" commvel_1.midtc[commidi_1.midchan[a1ll_1.iv - 1]] = commvel_1.miditran[commvel_1.iinsiv[a1ll_1.iv - 1] - 1]; -#line 1023 "" +#line 1049 "" /* L13: */ -#line 1023 "" +#line 1049 "" } -#line 1024 "" +#line 1050 "" } /* TEMPORARY!!! */ -#line 1028 "" +#line 1054 "" s_wsle(&io___35); -#line 1028 "" +#line 1054 "" do_lio(&c__9, &c__1, "nlbuf: ", (ftnlen)7); -#line 1028 "" +#line 1054 "" do_lio(&c__3, &c__1, (char *)&inbuff_1.nlbuf, (ftnlen)sizeof( integer)); -#line 1028 "" +#line 1054 "" e_wsle(); -#line 1029 "" +#line 1055 "" ip1 = 1; -#line 1030 "" +#line 1056 "" i__2 = inbuff_1.nlbuf; -#line 1030 "" +#line 1056 "" for (ilb = 1; ilb <= i__2; ++ilb) { /* write(15,'(2i5,a40,3i5)')ilb,lbuf(ilb), */ /* * bufq(ip1:ip1+lbuf(ilb)-1), */ /* * (ichar(bufq(ip1+lbuf(ilb)-k:ip1+lbuf(ilb)-k)), */ /* * k=min(3,lbuf(ilb)),1,-1) */ -#line 1035 "" +#line 1061 "" ip1 += inbuff_1.lbuf[ilb - 1]; -#line 1036 "" +#line 1062 "" /* L10000: */ -#line 1036 "" +#line 1062 "" } -#line 1037 "" +#line 1063 "" iplast = ip1 - 1; /* Check to see if (1) last line is "<blank><blank>/" and (2) next to last */ /* line is "/" */ -#line 1042 "" +#line 1068 "" i__2 = iplast + 1 - inbuff_1.lbuf[inbuff_1.nlbuf - 1] - 1; -#line 1042 "" +#line 1068 "" if (s_cmp(inbuff_1.bufq + i__2, " /", iplast - i__2, (ftnlen)3) == 0) { -#line 1043 "" +#line 1069 "" i__2 = iplast - inbuff_1.lbuf[inbuff_1.nlbuf - 1] - 1; -#line 1043 "" +#line 1069 "" if (s_cmp(inbuff_1.bufq + i__2, "/", iplast - inbuff_1.lbuf[ inbuff_1.nlbuf - 1] - i__2, (ftnlen)1) == 0) { -#line 1044 "" +#line 1070 "" s_wsle(&io___39); -#line 1044 "" +#line 1070 "" do_lio(&c__9, &c__1, "Removing last line of \"<blank><bl"\ "ank>/\"", (ftnlen)39); -#line 1044 "" +#line 1070 "" e_wsle(); -#line 1045 "" +#line 1071 "" s_wsle(&io___40); -#line 1045 "" +#line 1071 "" do_lio(&c__9, &c__1, "Removing last line of \"<blank><bl"\ "ank>/\"", (ftnlen)39); -#line 1045 "" +#line 1071 "" e_wsle(); -#line 1046 "" +#line 1072 "" --inbuff_1.nlbuf; -#line 1047 "" +#line 1073 "" } -#line 1048 "" +#line 1074 "" } -#line 1050 "" +#line 1076 "" pmxb_(&c_true, poe0, &ncalls, &optimize); -#line 1051 "" +#line 1077 "" if (commidi_1.ismidi) { /* Write midi file */ -#line 1055 "" +#line 1081 "" o__1.oerr = 0; -#line 1055 "" +#line 1081 "" o__1.ounit = 51; -#line 1055 "" +#line 1081 "" o__1.ofnmlen = ljob + 4; /* Writing concatenation */ -#line 1055 "" +#line 1081 "" i__3[0] = ljob, a__1[0] = jobname; -#line 1055 "" +#line 1081 "" i__3[1] = 4, a__1[1] = ".mid"; -#line 1055 "" +#line 1081 "" s_cat(ch__1, a__1, i__3, &c__2, (ftnlen)48); -#line 1055 "" +#line 1081 "" o__1.ofnm = ch__1; -#line 1055 "" +#line 1081 "" o__1.orl = 0; -#line 1055 "" +#line 1081 "" o__1.osta = 0; -#line 1055 "" +#line 1081 "" o__1.oacc = 0; -#line 1055 "" +#line 1081 "" o__1.ofm = 0; -#line 1055 "" +#line 1081 "" o__1.oblnk = 0; -#line 1055 "" +#line 1081 "" f_open(&o__1); -#line 1056 "" +#line 1082 "" if (commidi_1.debugmidi) { -#line 1056 "" +#line 1082 "" o__1.oerr = 0; -#line 1056 "" +#line 1082 "" o__1.ounit = 52; -#line 1056 "" +#line 1082 "" o__1.ofnmlen = ljob + 4; /* Writing concatenation */ -#line 1056 "" +#line 1082 "" i__3[0] = ljob, a__1[0] = jobname; -#line 1056 "" +#line 1082 "" i__3[1] = 4, a__1[1] = ".dbm"; -#line 1056 "" +#line 1082 "" s_cat(ch__1, a__1, i__3, &c__2, (ftnlen)48); -#line 1056 "" +#line 1082 "" o__1.ofnm = ch__1; -#line 1056 "" +#line 1082 "" o__1.orl = 0; -#line 1056 "" +#line 1082 "" o__1.osta = 0; -#line 1056 "" +#line 1082 "" o__1.oacc = 0; -#line 1056 "" +#line 1082 "" o__1.ofm = 0; -#line 1056 "" +#line 1082 "" o__1.oblnk = 0; -#line 1056 "" +#line 1082 "" f_open(&o__1); -#line 1056 "" +#line 1082 "" } -#line 1057 "" +#line 1083 "" printl_(" ", (ftnlen)1); /* Writing concatenation */ -#line 1058 "" +#line 1084 "" i__5[0] = 8, a__3[0] = "Writing "; -#line 1058 "" +#line 1084 "" i__5[1] = ljob, a__3[1] = jobname; -#line 1058 "" +#line 1084 "" i__5[2] = 4, a__3[2] = ".mid"; -#line 1058 "" +#line 1084 "" s_cat(ch__5, a__3, i__5, &c__3, (ftnlen)56); -#line 1058 "" +#line 1084 "" printl_(ch__5, ljob + 12); -#line 1059 "" +#line 1085 "" writemidi_(jobname, &ljob, (ftnlen)44); -#line 1060 "" +#line 1086 "" } -#line 1061 "" +#line 1087 "" cl__1.cerr = 0; -#line 1061 "" +#line 1087 "" cl__1.cunit = 15; -#line 1061 "" +#line 1087 "" cl__1.csta = 0; -#line 1061 "" +#line 1087 "" f_clos(&cl__1); -#line 1062 "" +#line 1088 "" s_stop("", (ftnlen)0); -#line 1063 "" +#line 1089 "" } -#line 1064 "" +#line 1090 "" s_wsle(&io___42); -#line 1064 "" +#line 1090 "" do_lio(&c__9, &c__1, "nlbuf: ", (ftnlen)7); -#line 1064 "" +#line 1090 "" do_lio(&c__3, &c__1, (char *)&inbuff_1.nlbuf, (ftnlen)sizeof(integer)) ; -#line 1064 "" +#line 1090 "" e_wsle(); -#line 1065 "" +#line 1091 "" ip1 = 1; -#line 1066 "" +#line 1092 "" pmxb_(&c_false, poe0, &ncalls, &optimize); -#line 1067 "" +#line 1093 "" poestats_(&nsyst, poe0, &poebar0, &devnorm0); /* Save initial deviation and line breaks for later comparison */ -#line 1071 "" +#line 1097 "" if (numit == 1) { -#line 1072 "" +#line 1098 "" devpmx = devnorm0; -#line 1073 "" +#line 1099 "" i__2 = nsyst; -#line 1073 "" +#line 1099 "" for (isys = 1; isys <= i__2; ++isys) { -#line 1074 "" +#line 1100 "" nbari[isys - 1] = nbars0[isys - 1]; -#line 1075 "" +#line 1101 "" /* L20: */ -#line 1075 "" +#line 1101 "" } -#line 1076 "" +#line 1102 "" } -#line 1077 "" +#line 1103 "" sortpoe_(&nsyst, poe0, ipoe); -#line 1078 "" +#line 1104 "" for (iupord = nsyst; iupord >= 1; --iupord) { -#line 1079 "" +#line 1105 "" isysu = ipoe[iupord - 1]; -#line 1080 "" +#line 1106 "" s_wsle(&io___51); -#line 1080 "" +#line 1106 "" do_lio(&c__9, &c__1, "isysu=", (ftnlen)6); -#line 1080 "" +#line 1106 "" do_lio(&c__3, &c__1, (char *)&isysu, (ftnlen)sizeof(integer)); -#line 1080 "" +#line 1106 "" e_wsle(); -#line 1081 "" +#line 1107 "" s_wsle(&io___52); -#line 1081 "" +#line 1107 "" do_lio(&c__9, &c__1, "isysu=", (ftnlen)6); -#line 1081 "" +#line 1107 "" do_lio(&c__3, &c__1, (char *)&isysu, (ftnlen)sizeof(integer)); -#line 1081 "" +#line 1107 "" e_wsle(); /* Skip if system isysu has poe0 < avg or isysd has poe0 > avg */ -#line 1085 "" +#line 1111 "" if (poe0[isysu - 1] < poebar0) { -#line 1085 "" +#line 1111 "" goto L1; -#line 1085 "" +#line 1111 "" } -#line 1086 "" +#line 1112 "" i__2 = nsyst; -#line 1086 "" +#line 1112 "" for (idnord = 1; idnord <= i__2; ++idnord) { -#line 1087 "" +#line 1113 "" isysd = ipoe[idnord - 1]; -#line 1088 "" +#line 1114 "" if (isysu == isysd || nbars0[isysd - 1] == 1 || poe0[isysd - 1] > poebar0) { -#line 1088 "" +#line 1114 "" goto L5; -#line 1088 "" +#line 1114 "" } -#line 1090 "" +#line 1116 "" i__6 = nsyst; -#line 1090 "" +#line 1116 "" for (isyst = 1; isyst <= i__6; ++isyst) { -#line 1091 "" +#line 1117 "" nbars[isyst - 1] = nbars0[isyst - 1]; -#line 1092 "" +#line 1118 "" if (isyst == isysu) { -#line 1093 "" +#line 1119 "" ++nbars[isyst - 1]; -#line 1094 "" +#line 1120 "" } else if (isyst == isysd) { -#line 1095 "" +#line 1121 "" --nbars[isyst - 1]; -#line 1096 "" +#line 1122 "" } -#line 1097 "" +#line 1123 "" /* L2: */ -#line 1097 "" +#line 1123 "" } -#line 1098 "" +#line 1124 "" pmxa_(jobname, &ljob4, &isfirst, &nsyst, nbars, &optimize, ( ftnlen)44); -#line 1099 "" +#line 1125 "" pmxb_(&c_false, poe, &ncalls, &optimize); -#line 1100 "" +#line 1126 "" poestats_(&nsyst, poe, &poebar, &devnorm); -#line 1101 "" +#line 1127 "" if (devnorm < devnorm0) { -#line 1102 "" +#line 1128 "" devnorm0 = devnorm; -#line 1103 "" +#line 1129 "" poebar0 = poebar; -#line 1104 "" +#line 1130 "" i__6 = nsyst; -#line 1104 "" +#line 1130 "" for (isys = 1; isys <= i__6; ++isys) { -#line 1105 "" +#line 1131 "" nbars0[isys - 1] = nbars[isys - 1]; -#line 1106 "" +#line 1132 "" poe0[isys - 1] = poe[isys - 1]; -#line 1107 "" +#line 1133 "" /* L4: */ -#line 1107 "" +#line 1133 "" } -#line 1108 "" +#line 1134 "" s_wsle(&io___60); -#line 1108 "" +#line 1134 "" do_lio(&c__9, &c__1, "Improved with iup,idown,devnorm:", ( ftnlen)32); -#line 1108 "" +#line 1134 "" do_lio(&c__3, &c__1, (char *)&isysu, (ftnlen)sizeof( integer)); -#line 1108 "" +#line 1134 "" do_lio(&c__3, &c__1, (char *)&isysd, (ftnlen)sizeof( integer)); -#line 1108 "" +#line 1134 "" do_lio(&c__4, &c__1, (char *)&devnorm0, (ftnlen)sizeof( real)); -#line 1108 "" +#line 1134 "" e_wsle(); -#line 1110 "" +#line 1136 "" s_wsle(&io___61); -#line 1110 "" +#line 1136 "" do_lio(&c__9, &c__1, "Improved with iup,idown,devnorm:", ( ftnlen)32); -#line 1110 "" +#line 1136 "" do_lio(&c__3, &c__1, (char *)&isysu, (ftnlen)sizeof( integer)); -#line 1110 "" +#line 1136 "" do_lio(&c__3, &c__1, (char *)&isysd, (ftnlen)sizeof( integer)); -#line 1110 "" +#line 1136 "" do_lio(&c__4, &c__1, (char *)&devnorm0, (ftnlen)sizeof( real)); -#line 1110 "" +#line 1136 "" e_wsle(); -#line 1112 "" +#line 1138 "" s_wsfe(&io___62); -#line 1112 "" +#line 1138 "" i__6 = nsyst; -#line 1112 "" +#line 1138 "" for (isys = 1; isys <= i__6; ++isys) { -#line 1112 "" +#line 1138 "" do_fio(&c__1, (char *)&nbars0[isys - 1], (ftnlen) sizeof(integer)); -#line 1112 "" +#line 1138 "" } -#line 1112 "" +#line 1138 "" e_wsfe(); -#line 1113 "" +#line 1139 "" s_wsfe(&io___63); -#line 1113 "" +#line 1139 "" i__6 = nsyst; -#line 1113 "" +#line 1139 "" for (isys = 1; isys <= i__6; ++isys) { -#line 1113 "" +#line 1139 "" do_fio(&c__1, (char *)&nbars0[isys - 1], (ftnlen) sizeof(integer)); -#line 1113 "" +#line 1139 "" } -#line 1113 "" +#line 1139 "" e_wsfe(); -#line 1114 "" +#line 1140 "" sortpoe_(&nsyst, poe0, ipoe); -#line 1115 "" +#line 1141 "" goto L6; -#line 1116 "" +#line 1142 "" } -#line 1117 "" +#line 1143 "" L5: -#line 1117 "" +#line 1143 "" ; -#line 1117 "" +#line 1143 "" } -#line 1118 "" +#line 1144 "" L1: -#line 1118 "" +#line 1144 "" ; -#line 1118 "" +#line 1144 "" } /* If we get here, must have gone thru all switches and found nothing better, */ /* so done! */ -#line 1123 "" +#line 1149 "" goto L7; -#line 1124 "" +#line 1150 "" L6: -#line 1124 "" +#line 1150 "" ; -#line 1124 "" +#line 1150 "" } -#line 1125 "" +#line 1151 "" L7: -#line 1126 "" +#line 1152 "" s_wsle(&io___64); -#line 1126 "" +#line 1152 "" do_lio(&c__9, &c__1, "Optimum located, numit:", (ftnlen)23); -#line 1126 "" +#line 1152 "" do_lio(&c__3, &c__1, (char *)&numit, (ftnlen)sizeof(integer)); -#line 1126 "" +#line 1152 "" do_lio(&c__9, &c__1, ", ncalls:", (ftnlen)10); -#line 1126 "" +#line 1152 "" do_lio(&c__3, &c__1, (char *)&ncalls, (ftnlen)sizeof(integer)); -#line 1126 "" +#line 1152 "" e_wsle(); -#line 1127 "" +#line 1153 "" s_wsle(&io___65); -#line 1127 "" +#line 1153 "" do_lio(&c__9, &c__1, "Optimum located, numit:", (ftnlen)23); -#line 1127 "" +#line 1153 "" do_lio(&c__3, &c__1, (char *)&numit, (ftnlen)sizeof(integer)); -#line 1127 "" +#line 1153 "" do_lio(&c__9, &c__1, ", ncalls:", (ftnlen)10); -#line 1127 "" +#line 1153 "" do_lio(&c__3, &c__1, (char *)&ncalls, (ftnlen)sizeof(integer)); -#line 1127 "" +#line 1153 "" e_wsle(); -#line 1128 "" +#line 1154 "" s_wsle(&io___66); -#line 1128 "" +#line 1154 "" do_lio(&c__9, &c__1, "Final error:", (ftnlen)12); -#line 1128 "" +#line 1154 "" do_lio(&c__4, &c__1, (char *)&devnorm0, (ftnlen)sizeof(real)); -#line 1128 "" +#line 1154 "" do_lio(&c__9, &c__1, ", initial error:", (ftnlen)16); -#line 1128 "" +#line 1154 "" do_lio(&c__4, &c__1, (char *)&devpmx, (ftnlen)sizeof(real)); -#line 1128 "" +#line 1154 "" e_wsle(); -#line 1129 "" +#line 1155 "" s_wsle(&io___67); -#line 1129 "" +#line 1155 "" do_lio(&c__9, &c__1, "Final error:", (ftnlen)12); -#line 1129 "" +#line 1155 "" do_lio(&c__4, &c__1, (char *)&devnorm0, (ftnlen)sizeof(real)); -#line 1129 "" +#line 1155 "" do_lio(&c__9, &c__1, ", initial error:", (ftnlen)16); -#line 1129 "" +#line 1155 "" do_lio(&c__4, &c__1, (char *)&devpmx, (ftnlen)sizeof(real)); -#line 1129 "" +#line 1155 "" e_wsle(); -#line 1130 "" +#line 1156 "" s_wsle(&io___68); -#line 1130 "" +#line 1156 "" do_lio(&c__9, &c__1, "Percentage improvement:", (ftnlen)23); -#line 1130 "" +#line 1156 "" r__1 = (1 - devnorm0 / devpmx) * 100.f; -#line 1130 "" +#line 1156 "" do_lio(&c__4, &c__1, (char *)&r__1, (ftnlen)sizeof(real)); -#line 1130 "" +#line 1156 "" e_wsle(); -#line 1131 "" +#line 1157 "" s_wsle(&io___69); -#line 1131 "" +#line 1157 "" do_lio(&c__9, &c__1, "Percentage improvement:", (ftnlen)23); -#line 1131 "" +#line 1157 "" r__1 = (1 - devnorm0 / devpmx) * 100.f; -#line 1131 "" +#line 1157 "" do_lio(&c__4, &c__1, (char *)&r__1, (ftnlen)sizeof(real)); -#line 1131 "" +#line 1157 "" e_wsle(); -#line 1132 "" +#line 1158 "" printl_("Initial bars/system:", (ftnlen)20); -#line 1133 "" +#line 1159 "" s_wsfe(&io___70); -#line 1133 "" +#line 1159 "" i__1 = nsyst; -#line 1133 "" +#line 1159 "" for (isys = 1; isys <= i__1; ++isys) { -#line 1133 "" +#line 1159 "" do_fio(&c__1, (char *)&nbari[isys - 1], (ftnlen)sizeof(integer)); -#line 1133 "" +#line 1159 "" } -#line 1133 "" +#line 1159 "" e_wsfe(); -#line 1134 "" +#line 1160 "" s_wsfe(&io___71); -#line 1134 "" +#line 1160 "" i__1 = nsyst; -#line 1134 "" +#line 1160 "" for (isys = 1; isys <= i__1; ++isys) { -#line 1134 "" +#line 1160 "" do_fio(&c__1, (char *)&nbari[isys - 1], (ftnlen)sizeof(integer)); -#line 1134 "" +#line 1160 "" } -#line 1134 "" +#line 1160 "" e_wsfe(); -#line 1135 "" +#line 1161 "" printl_("Final bars/system:", (ftnlen)18); -#line 1136 "" +#line 1162 "" s_wsfe(&io___72); -#line 1136 "" +#line 1162 "" i__1 = nsyst; -#line 1136 "" +#line 1162 "" for (isys = 1; isys <= i__1; ++isys) { -#line 1136 "" +#line 1162 "" do_fio(&c__1, (char *)&nbars0[isys - 1], (ftnlen)sizeof(integer)); -#line 1136 "" +#line 1162 "" } -#line 1136 "" +#line 1162 "" e_wsfe(); -#line 1137 "" +#line 1163 "" s_wsfe(&io___73); -#line 1137 "" +#line 1163 "" i__1 = nsyst; -#line 1137 "" +#line 1163 "" for (isys = 1; isys <= i__1; ++isys) { -#line 1137 "" +#line 1163 "" do_fio(&c__1, (char *)&nbars0[isys - 1], (ftnlen)sizeof(integer)); -#line 1137 "" +#line 1163 "" } -#line 1137 "" +#line 1163 "" e_wsfe(); -#line 1138 "" +#line 1164 "" pmxa_(jobname, &ljob4, &c_false, &nsyst, nbars0, &optimize, (ftnlen)44); -#line 1139 "" +#line 1165 "" pmxb_(&c_true, poe0, &ncalls, &optimize); -#line 1140 "" +#line 1166 "" cl__1.cerr = 0; -#line 1140 "" +#line 1166 "" cl__1.cunit = 15; -#line 1140 "" +#line 1166 "" cl__1.csta = 0; -#line 1140 "" +#line 1166 "" f_clos(&cl__1); -#line 1141 "" +#line 1167 "" return 0; } /* MAIN__ */ @@ -2948,51 +2991,51 @@ L7: static cilist io___75 = { 0, 6, 0, 0, 0 }; -#line 1144 "" +#line 1170 "" iacc = *nacc & 7; -#line 1145 "" +#line 1171 "" if (iacc == 1) { -#line 1146 "" +#line 1172 "" s_copy(acsymq, "fl", (ftnlen)3, (ftnlen)2); -#line 1147 "" +#line 1173 "" *lacc = 2; -#line 1148 "" +#line 1174 "" } else if (iacc == 2) { -#line 1149 "" +#line 1175 "" s_copy(acsymq, "sh", (ftnlen)3, (ftnlen)2); -#line 1150 "" +#line 1176 "" *lacc = 2; -#line 1151 "" +#line 1177 "" } else if (iacc == 3) { -#line 1152 "" +#line 1178 "" s_copy(acsymq, "na", (ftnlen)3, (ftnlen)2); -#line 1153 "" +#line 1179 "" *lacc = 2; -#line 1154 "" +#line 1180 "" } else if (iacc == 5) { -#line 1155 "" +#line 1181 "" s_copy(acsymq, "dfl", (ftnlen)3, (ftnlen)3); -#line 1156 "" +#line 1182 "" *lacc = 3; -#line 1157 "" +#line 1183 "" } else if (iacc == 6) { -#line 1158 "" +#line 1184 "" s_copy(acsymq, "dsh", (ftnlen)3, (ftnlen)3); -#line 1159 "" +#line 1185 "" *lacc = 3; -#line 1160 "" +#line 1186 "" } else { -#line 1161 "" +#line 1187 "" s_wsle(&io___75); -#line 1161 "" +#line 1187 "" do_lio(&c__9, &c__1, "bad accidental: ", (ftnlen)16); -#line 1161 "" +#line 1187 "" do_lio(&c__3, &c__1, (char *)&iacc, (ftnlen)sizeof(integer)); -#line 1161 "" +#line 1187 "" e_wsle(); -#line 1162 "" +#line 1188 "" } -#line 1163 "" +#line 1189 "" return 0; } /* accsym_ */ @@ -3017,123 +3060,123 @@ L7: static cilist io___77 = { 0, 6, 0, 0, 0 }; -#line 1172 "" +#line 1198 "" if (*isudsp) { /* Find which udsp we're dealing with */ -#line 1176 "" +#line 1202 "" i__1 = comudsp_1.nudsp; -#line 1176 "" +#line 1202 "" for (iudsp = 1; iudsp <= i__1; ++iudsp) { -#line 1177 "" +#line 1203 "" if ((r__1 = *taskn + *tglp1 - comudsp_1.tudsp[iudsp - 1], dabs( r__1)) < comtol_1.tol) { -#line 1177 "" +#line 1203 "" goto L2; -#line 1177 "" +#line 1203 "" } -#line 1178 "" +#line 1204 "" /* L1: */ -#line 1178 "" +#line 1204 "" } -#line 1179 "" +#line 1205 "" s_wsle(&io___77); -#line 1179 "" +#line 1205 "" do_lio(&c__9, &c__1, "You should note BEEE here in addask!", (ftnlen) 36); -#line 1179 "" +#line 1205 "" e_wsle(); -#line 1180 "" +#line 1206 "" stop1_(); -#line 1181 "" +#line 1207 "" L2: /* Fixednew and scaldold must not be changed, since udsp's are already included */ /* in fsyst from pmxa, and udsp don't involve scaled space.. */ -#line 1186 "" +#line 1212 "" if (comas1_1.naskb > 0 && (r__1 = *taskn - comas1_1.task[max(1, comas1_1.naskb) - 1], dabs(r__1)) < comtol_1.tol) { /* Must add user-defined space to what's there already. */ -#line 1190 "" +#line 1216 "" comas1_1.wask[comas1_1.naskb - 1] += comudsp_1.udsp[iudsp - 1]; -#line 1191 "" +#line 1217 "" } else { /* This place has no other space. */ -#line 1195 "" +#line 1221 "" ++comas1_1.naskb; -#line 1196 "" +#line 1222 "" comas1_1.task[comas1_1.naskb - 1] = *taskn; -#line 1197 "" +#line 1223 "" comas1_1.wask[comas1_1.naskb - 1] = comudsp_1.udsp[iudsp - 1]; -#line 1198 "" +#line 1224 "" comas1_1.elask[comas1_1.naskb - 1] = 0.f; -#line 1199 "" +#line 1225 "" } -#line 1200 "" +#line 1226 "" } else { /* 130330 start */ -#line 1202 "" +#line 1228 "" oldwask = 0.f; -#line 1203 "" +#line 1229 "" oldelask = 0.f; /* 130330 end */ /* This is a normal space, no effect if smaller than existing space */ -#line 1208 "" +#line 1234 "" if (comas1_1.naskb > 0 && (r__1 = *taskn - comas1_1.task[max(1, comas1_1.naskb) - 1], dabs(r__1)) < comtol_1.tol) { /* We already put in some space at this time */ /* Check if new one needs more space than old one at same time */ -#line 1213 "" +#line 1239 "" if (*waskn > comas1_1.wask[comas1_1.naskb - 1]) { /* 130330 We were double counting the larger space when it came 2nd */ /* Need to fix but don't see how yet. Assume times came in order and */ /* that last naskb defined spaces that need updating */ -#line 1219 "" +#line 1245 "" oldwask = comas1_1.wask[comas1_1.naskb - 1]; -#line 1220 "" +#line 1246 "" oldelask = comas1_1.elask[comas1_1.naskb - 1]; /* End of 130330 insertions */ -#line 1222 "" +#line 1248 "" --comas1_1.naskb; -#line 1223 "" +#line 1249 "" } else { -#line 1224 "" +#line 1250 "" return 0; -#line 1225 "" +#line 1251 "" } -#line 1226 "" +#line 1252 "" } -#line 1227 "" +#line 1253 "" ++comas1_1.naskb; -#line 1228 "" +#line 1254 "" comas1_1.task[comas1_1.naskb - 1] = *taskn; -#line 1229 "" +#line 1255 "" comas1_1.wask[comas1_1.naskb - 1] = *waskn; -#line 1230 "" +#line 1256 "" comas1_1.elask[comas1_1.naskb - 1] = *elaskn; /* 130330 start */ /* fixednew = fixednew+waskn */ /* scaldold = scaldold+elaskn */ -#line 1234 "" +#line 1260 "" *fixednew = *fixednew + *waskn - oldwask; -#line 1235 "" +#line 1261 "" *scaldold = *scaldold + *elaskn - oldelask; /* 130330 end */ -#line 1237 "" +#line 1263 "" } -#line 1238 "" +#line 1264 "" return 0; } /* addask_ */ @@ -3149,18 +3192,18 @@ L2: /* Local variables */ static char tchar[1]; -#line 1243 "" +#line 1269 "" *(unsigned char *)tchar = *(unsigned char *)noteq; /* Writing concatenation */ -#line 1244 "" +#line 1270 "" i__1[0] = 1, a__1[0] = " "; -#line 1244 "" +#line 1270 "" i__1[1] = 1, a__1[1] = tchar; -#line 1244 "" +#line 1270 "" s_cat(noteq, a__1, i__1, &c__2, (ftnlen)8); -#line 1245 "" +#line 1271 "" *lnoten = 2; -#line 1246 "" +#line 1272 "" return 0; } /* addblank_ */ @@ -3169,54 +3212,54 @@ L2: { static integer ifb; -#line 1254 "" +#line 1280 "" /* Parameter adjustments */ -#line 1254 "" +#line 1280 "" ulfbq -= 25; -#line 1254 "" +#line 1280 "" t2fb -= 25; -#line 1254 "" +#line 1280 "" t1fb -= 25; -#line 1254 "" +#line 1280 "" --nfb; -#line 1254 "" +#line 1280 "" -#line 1254 "" +#line 1280 "" /* Function Body */ -#line 1254 "" +#line 1280 "" *ifbadd = 1; -#line 1255 "" +#line 1281 "" ++nfb[*iv]; -#line 1256 "" +#line 1282 "" for (ifb = nfb[*iv] - 1; ifb >= 1; --ifb) { -#line 1257 "" +#line 1283 "" if (*tnew < t1fb[*iv + ifb * 24] - comtol_1.tol) { -#line 1258 "" +#line 1284 "" t1fb[*iv + (ifb + 1) * 24] = t1fb[*iv + ifb * 24]; -#line 1259 "" +#line 1285 "" t2fb[*iv + (ifb + 1) * 24] = t2fb[*iv + ifb * 24]; -#line 1260 "" +#line 1286 "" *(unsigned char *)&ulfbq[*iv + (ifb + 1) * 24] = *(unsigned char * )&ulfbq[*iv + ifb * 24]; -#line 1261 "" +#line 1287 "" } else { -#line 1262 "" +#line 1288 "" *ifbadd = ifb + 1; -#line 1263 "" +#line 1289 "" goto L2; -#line 1264 "" +#line 1290 "" } -#line 1265 "" +#line 1291 "" /* L1: */ -#line 1265 "" +#line 1291 "" } -#line 1266 "" +#line 1292 "" L2: -#line 1267 "" +#line 1293 "" t1fb[*iv + *ifbadd * 24] = *tnew; -#line 1268 "" +#line 1294 "" *(unsigned char *)&ulfbq[*iv + *ifbadd * 24] = 'x'; -#line 1269 "" +#line 1295 "" return 0; } /* addfb_ */ @@ -3273,179 +3316,178 @@ L2: /* Cancel out barline accidentals if there's a rest. */ -#line 1309 "" +#line 1335 "" if (*rest) { -#line 1309 "" +#line 1335 "" comslm_1.naccbl[(300 + (0 + (*icm - 0 << 2)) - 300) / 4] = 0; -#line 1309 "" +#line 1335 "" } /* Special path to insert dummy rest at end of a section */ -#line 1313 "" +#line 1339 "" if (*endrest) { -#line 1313 "" +#line 1339 "" goto L20; -#line 1313 "" +#line 1339 "" } -#line 1315 "" +#line 1341 "" i__1 = commidi_1.nmidcrd; -#line 1315 "" +#line 1341 "" for (ion = 0; ion <= i__1; ++ion) { /* check if this is only to get pitch of a chord note */ -#line 1319 "" +#line 1345 "" if (commidi_1.notmain) { -#line 1319 "" +#line 1345 "" goto L6; -#line 1319 "" +#line 1345 "" } /* check for rest */ -#line 1323 "" +#line 1349 "" if (*rest) { /* Will not put in a note, but must update timing */ -#line 1327 "" +#line 1353 "" if (! commidi_1.restpend[*icm]) { /* First rest in sequence, save the time */ -#line 1331 "" +#line 1357 "" commidi_1.restpend[*icm] = TRUE_; -#line 1332 "" +#line 1358 "" commidi_1.trest[*icm] = *time; -#line 1333 "" +#line 1359 "" } else { -#line 1334 "" +#line 1360 "" commidi_1.trest[*icm] += *time; -#line 1335 "" +#line 1361 "" } /* Note: code checkers don't like the above due to calling addmidi(trest(icm)) */ /* but this only happens if rest at end of section (endrest=.true.) (called */ /* from getmidi(), in which case these above lines are bypassed. */ -#line 1341 "" +#line 1367 "" chkimidi_(icm); -#line 1342 "" +#line 1368 "" return 0; -#line 1343 "" +#line 1369 "" } /* time tics */ -#line 1347 "" +#line 1373 "" if (commidi_1.imidi[*icm] > 0 && ion == 0) { -#line 1348 "" +#line 1374 "" idur = commidi_1.mgap; -#line 1349 "" +#line 1375 "" } else { -#line 1350 "" +#line 1376 "" idur = 0; -#line 1351 "" +#line 1377 "" } -#line 1352 "" +#line 1378 "" if (commidi_1.restpend[*icm]) { -#line 1353 "" +#line 1379 "" commidi_1.restpend[*icm] = FALSE_; -#line 1354 "" +#line 1380 "" r__1 = commidi_1.trest[*icm] * 15; -#line 1354 "" +#line 1380 "" idur += i_nint(&r__1); -#line 1355 "" +#line 1381 "" } /* time to start of note */ -#line 1359 "" +#line 1385 "" idurvar = isetvarlen_(&idur, &nby2on); -#line 1360 "" +#line 1386 "" if (nby2on > 4) { -#line 1361 "" +#line 1387 "" s_wsle(&io___87); -#line 1361 "" +#line 1387 "" do_lio(&c__9, &c__1, "You got >4 bytes, something is bogus.", ( ftnlen)37); -#line 1361 "" +#line 1387 "" e_wsle(); -#line 1362 "" +#line 1388 "" stop1_(); -#line 1363 "" +#line 1389 "" } -#line 1364 "" +#line 1390 "" ++commidi_1.imidi[*icm]; -#line 1365 "" +#line 1391 "" i__2 = nby2on; -#line 1365 "" +#line 1391 "" for (i__ = 1; i__ <= i__2; ++i__) { /* imidi points to cell before highest (leftmost) byte. Start with lowest byte */ /* at far right, fill in backwards */ -#line 1370 "" +#line 1396 "" commidi_1.mmidi[*icm + (commidi_1.imidi[*icm] + nby2on - i__) * 25 - 25] = (shortint) (idurvar % 256); -#line 1371 "" +#line 1397 "" if (nby2on > 1) { -#line 1371 "" +#line 1397 "" idurvar /= 256; -#line 1371 "" +#line 1397 "" } -#line 1372 "" +#line 1398 "" /* L2: */ -#line 1372 "" +#line 1398 "" } -#line 1373 "" +#line 1399 "" commidi_1.imidi[*icm] = commidi_1.imidi[*icm] + nby2on - 1; /* Note-on signal */ -#line 1377 "" +#line 1403 "" ++commidi_1.imidi[*icm]; -/* mmidi(icm,imidi(icm)) = 9*16+icm */ -#line 1379 "" +#line 1404 "" commidi_1.mmidi[*icm + commidi_1.imidi[*icm] * 25 - 25] = (shortint) ( icmm[*icm] + 144); /* Entry point for chord note pitch determination */ -#line 1383 "" +#line 1408 "" L6: /* Get midi pitch. On chord iteration, only do this first time (main note), */ /* since pitch was already computed for nonmain chord notes. */ -#line 1388 "" +#line 1413 "" if (ion == 0) { -#line 1389 "" +#line 1414 "" ipsav = *nolev * 12.f / 7 + 11; -#line 1390 "" +#line 1415 "" ipsav0 = ipsav; -#line 1391 "" +#line 1416 "" if (*midisig != 0) { /* Adjust for signature */ -#line 1395 "" +#line 1420 "" *(unsigned char *)notenumq = (char) (*nolev % 7 + 48); -#line 1396 "" +#line 1421 "" if (*midisig >= i_indx("4152630", notenumq, (ftnlen)7, ( ftnlen)1)) { -#line 1397 "" +#line 1422 "" ++ipsav; -#line 1398 "" +#line 1423 "" } else if (-(*midisig) >= i_indx("0362514", notenumq, (ftnlen) 7, (ftnlen)1)) { -#line 1399 "" +#line 1424 "" --ipsav; -#line 1400 "" +#line 1425 "" } -#line 1401 "" +#line 1426 "" } /* Deal with accidentals. */ @@ -3454,442 +3496,440 @@ L6: /* effect X fl sh na X dfl dsh X */ /* iashft X -1 1 0 X -2 2 X */ -#line 1409 "" +#line 1434 "" jacc = 0; -#line 1410 "" +#line 1435 "" eximacc = FALSE_; -#line 1411 "" +#line 1436 "" if (*iacc > 0) { /* Adjust key-sig-adjusted pitch for explicit accidental (and exit) */ -#line 1415 "" +#line 1440 "" jacc = iashft_(iacc); -#line 1416 "" +#line 1441 "" eximacc = TRUE_; -#line 1417 "" +#line 1442 "" if (! commidi_1.relacc) { -#line 1417 "" +#line 1442 "" jacc = jacc + ipsav0 - ipsav; -#line 1417 "" +#line 1442 "" } /* (Above) Shift applies to diatonic pitch but will be added to adjusted one */ -#line 1421 "" +#line 1446 "" } else if (commidi_1.naccim[*icm] > 0) { /* Possible implicit accidental from earlier in the bar */ /* Check for prior accid in this bar at this note level */ -#line 1426 "" +#line 1451 "" i__2 = commidi_1.naccim[*icm]; -#line 1426 "" +#line 1451 "" for (kacc = 1; kacc <= i__2; ++kacc) { -#line 1427 "" +#line 1452 "" if (commidi_1.laccim[*icm + kacc * 25 - 25] == *nolev) { -#line 1428 "" +#line 1453 "" jacc = commidi_1.jaccim[*icm + kacc * 25 - 25]; -#line 1429 "" +#line 1454 "" eximacc = TRUE_; -#line 1430 "" +#line 1455 "" if (! commidi_1.relacc) { -#line 1430 "" +#line 1455 "" jacc = jacc + ipsav0 - ipsav; -#line 1430 "" +#line 1455 "" } -#line 1431 "" +#line 1456 "" goto L4; -#line 1432 "" +#line 1457 "" } -#line 1433 "" +#line 1458 "" /* L3: */ -#line 1433 "" +#line 1458 "" } -#line 1434 "" +#line 1459 "" L4: -#line 1435 "" +#line 1460 "" ; -#line 1435 "" +#line 1460 "" } /* Must split off the following if block from those above because chord */ /* notes can cause naccim>0, forcing us to miss other chord note's */ /* accross-bar-line accidental */ -#line 1441 "" +#line 1466 "" if (comslm_1.naccbl[*icm] > 0 && ! eximacc) { /* Possible carryover accid from prior bar (or prior same-pitch note). */ -#line 1445 "" +#line 1470 "" i__2 = comslm_1.naccbl[*icm]; -#line 1445 "" +#line 1470 "" for (kacc = 1; kacc <= i__2; ++kacc) { -#line 1446 "" +#line 1471 "" if (comslm_1.laccbl[*icm + kacc * 25 - 25] == *nolev) { -#line 1447 "" +#line 1472 "" jacc = comslm_1.jaccbl[*icm + kacc * 25 - 25]; /* Since we are *using* the bar-line accid, must flag it to be saved for next. */ -#line 1451 "" +#line 1476 "" ++comslm_1.nusebl; -#line 1452 "" +#line 1477 "" comips_1.jusebl[comslm_1.nusebl - 1] = (shortint) jacc; -#line 1453 "" +#line 1478 "" comips_1.lusebl[comslm_1.nusebl - 1] = (shortint) (* nolev); -#line 1454 "" +#line 1479 "" if (! commidi_1.relacc) { -#line 1454 "" +#line 1479 "" jacc = jacc + ipsav0 - ipsav; -#line 1454 "" +#line 1479 "" } -#line 1455 "" +#line 1480 "" goto L22; -#line 1456 "" +#line 1481 "" } -#line 1457 "" +#line 1482 "" /* L21: */ -#line 1457 "" +#line 1482 "" } -#line 1458 "" +#line 1483 "" L22: -#line 1459 "" +#line 1484 "" ; -#line 1459 "" +#line 1484 "" } -#line 1460 "" +#line 1485 "" ipsav += jacc; -#line 1461 "" +#line 1486 "" } -#line 1462 "" +#line 1487 "" if (commidi_1.notmain) { -#line 1463 "" +#line 1488 "" commidi_1.mcpitch[commidi_1.nmidcrd - 1] = ipsav; /* Save pitch for tie checks */ -#line 1467 "" +#line 1492 "" if (comslm_1.levson[*icm] == *nolev && ! comslm_1.slmon[*icm]) { -#line 1467 "" +#line 1492 "" comips_1.ipslon[*icm] = (shortint) ipsav; -#line 1467 "" +#line 1492 "" } -#line 1469 "" +#line 1494 "" } else { -#line 1470 "" +#line 1495 "" ++commidi_1.imidi[*icm]; -#line 1471 "" +#line 1496 "" if (ion == 0) { -#line 1472 "" +#line 1497 "" commidi_1.mmidi[*icm + commidi_1.imidi[*icm] * 25 - 25] = ( shortint) ipsav; -#line 1473 "" +#line 1498 "" if (comslm_1.levson[*icm] == *nolev && ! comslm_1.slmon[*icm]) { -#line 1473 "" +#line 1498 "" comips_1.ipslon[*icm] = (shortint) ipsav; -#line 1473 "" +#line 1498 "" } -#line 1475 "" +#line 1500 "" } else { -#line 1476 "" +#line 1501 "" commidi_1.mmidi[*icm + commidi_1.imidi[*icm] * 25 - 25] = ( shortint) commidi_1.mcpitch[ion - 1]; -#line 1477 "" +#line 1502 "" } -#line 1478 "" +#line 1503 "" } -#line 1479 "" +#line 1504 "" if (ion == 0) { /* Only record accids for non-chords, main chord note during chord iteration */ /* and chordnotes on first call but not during iteration */ -#line 1484 "" +#line 1509 "" if (*iacc > 0) { /* Set marker for accidental for possible continuations later this bar */ /* but first check and clear earlier ones on same note. */ -#line 1489 "" +#line 1514 "" i__2 = commidi_1.naccim[*icm]; -#line 1489 "" +#line 1514 "" for (kacc = 1; kacc <= i__2; ++kacc) { -#line 1490 "" +#line 1515 "" if (commidi_1.laccim[*icm + kacc * 25 - 25] == *nolev) { -#line 1491 "" +#line 1516 "" i__3 = commidi_1.naccim[*icm] - 1; -#line 1491 "" +#line 1516 "" for (macc = kacc; macc <= i__3; ++macc) { -#line 1492 "" +#line 1517 "" commidi_1.laccim[*icm + macc * 25 - 25] = commidi_1.laccim[*icm + (macc + 1) * 25 - 25]; -#line 1493 "" +#line 1518 "" commidi_1.jaccim[*icm + macc * 25 - 25] = commidi_1.jaccim[*icm + (macc + 1) * 25 - 25]; -#line 1494 "" +#line 1519 "" /* L24: */ -#line 1494 "" +#line 1519 "" } -#line 1495 "" +#line 1520 "" goto L25; -#line 1496 "" +#line 1521 "" } -#line 1497 "" +#line 1522 "" /* L23: */ -#line 1497 "" +#line 1522 "" } -#line 1498 "" +#line 1523 "" goto L26; -#line 1499 "" +#line 1524 "" L25: -#line 1500 "" +#line 1525 "" --commidi_1.naccim[*icm]; -#line 1501 "" +#line 1526 "" L26: /* Flag new accidental */ -#line 1505 "" +#line 1530 "" ++commidi_1.naccim[*icm]; -#line 1506 "" +#line 1531 "" commidi_1.laccim[*icm + commidi_1.naccim[*icm] * 25 - 25] = * nolev; -#line 1507 "" +#line 1532 "" commidi_1.jaccim[*icm + commidi_1.naccim[*icm] * 25 - 25] = iashft_(iacc); -#line 1508 "" +#line 1533 "" } /* Bail if this is a chord note on the first call (from docrd) */ -#line 1512 "" +#line 1537 "" if (commidi_1.notmain) { -#line 1513 "" +#line 1538 "" chkimidi_(icm); -#line 1514 "" +#line 1539 "" return 0; -#line 1515 "" +#line 1540 "" } -#line 1516 "" +#line 1541 "" } /* Vel */ -#line 1520 "" +#line 1545 "" ++commidi_1.imidi[*icm]; -/* mmidi(icm,imidi(icm)) = 127 */ -#line 1522 "" +#line 1546 "" commidi_1.mmidi[*icm + commidi_1.imidi[*icm] * 25 - 25] = (shortint) commvel_1.midvelc[*icm]; -#line 1523 "" +#line 1547 "" chkimidi_(icm); -#line 1524 "" +#line 1548 "" /* L7: */ -#line 1524 "" +#line 1548 "" } /* For tie checks */ -#line 1528 "" +#line 1552 "" if (comslm_1.levson[*icm] > 0 && ! comslm_1.slmon[*icm]) { -#line 1528 "" +#line 1552 "" comslm_1.imidso[*icm] = commidi_1.imidi[*icm]; -#line 1528 "" +#line 1552 "" } /* Entry point for special rests at section ends (endrest=T) */ -#line 1532 "" +#line 1556 "" L20: /* Now insert all the ends */ -#line 1536 "" +#line 1560 "" i__1 = commidi_1.nmidcrd; -#line 1536 "" +#line 1560 "" for (ioff = 0; ioff <= i__1; ++ioff) { -#line 1537 "" +#line 1561 "" if (ioff == 0) { /* time to end */ -#line 1541 "" +#line 1565 "" r__1 = *time * 15; -#line 1541 "" +#line 1565 "" idur1 = i_nint(&r__1); -#line 1542 "" +#line 1566 "" r__1 = commidi_1.trest[*icm] * 15; -#line 1542 "" +#line 1566 "" if (! (*endrest) || comevent_1.miditime == i_nint(&r__1)) { -#line 1543 "" +#line 1567 "" idur = idur1 - commidi_1.mgap; -#line 1544 "" +#line 1568 "" } else { -#line 1545 "" +#line 1569 "" idur = idur1; -#line 1546 "" +#line 1570 "" } /* Deal with roundoff problems with 7-tuplets on half or quarters */ -#line 1550 "" +#line 1574 "" if (idur1 == 69) { -#line 1551 "" +#line 1575 "" ++comdiag_1.n69[*icm]; /* if (mod(n69(icm)+6,7) .gt. 3) idur = 58 */ -#line 1553 "" +#line 1577 "" if ((comdiag_1.n69[*icm] + 6) % 7 > 3) { -#line 1553 "" +#line 1577 "" idur = idur1 - commidi_1.mgap - 1; -#line 1553 "" +#line 1577 "" } -#line 1554 "" +#line 1578 "" } else if (idur1 == 34) { -#line 1555 "" +#line 1579 "" ++comdiag_1.n34[*icm]; -#line 1556 "" +#line 1580 "" if ((comdiag_1.n34[*icm] + 6) % 7 > 4) { -#line 1556 "" +#line 1580 "" idur = idur1 - commidi_1.mgap + 1; -#line 1556 "" +#line 1580 "" } -#line 1557 "" +#line 1581 "" } -#line 1558 "" +#line 1582 "" idurvar = isetvarlen_(&idur, &nby2off); -#line 1559 "" +#line 1583 "" if (nby2off > 4) { -#line 1560 "" +#line 1584 "" s_wsle(&io___99); -#line 1560 "" +#line 1584 "" do_lio(&c__9, &c__1, "You got >4 bytes, something is bogus.", (ftnlen)37); -#line 1560 "" +#line 1584 "" e_wsle(); -#line 1561 "" +#line 1585 "" stop1_(); -#line 1562 "" +#line 1586 "" } -#line 1563 "" +#line 1587 "" ++commidi_1.imidi[*icm]; -#line 1564 "" +#line 1588 "" chkimidi_(icm); -#line 1565 "" +#line 1589 "" i__2 = nby2off; -#line 1565 "" +#line 1589 "" for (i__ = 1; i__ <= i__2; ++i__) { -#line 1566 "" +#line 1590 "" commidi_1.mmidi[*icm + (commidi_1.imidi[*icm] + nby2off - i__) * 25 - 25] = (shortint) (idurvar % 256); -#line 1567 "" +#line 1591 "" if (nby2off > 1) { -#line 1567 "" +#line 1591 "" idurvar /= 256; -#line 1567 "" +#line 1591 "" } -#line 1568 "" +#line 1592 "" /* L1: */ -#line 1568 "" +#line 1592 "" } -#line 1569 "" +#line 1593 "" commidi_1.imidi[*icm] = commidi_1.imidi[*icm] + nby2off - 1; -#line 1570 "" +#line 1594 "" } else { /* Inserting end of chord note, delta time is 0 */ -#line 1574 "" +#line 1598 "" ++commidi_1.imidi[*icm]; -#line 1575 "" +#line 1599 "" commidi_1.mmidi[*icm + commidi_1.imidi[*icm] * 25 - 25] = 0; -#line 1576 "" +#line 1600 "" } /* Note off */ -#line 1580 "" +#line 1604 "" ++commidi_1.imidi[*icm]; -/* mmidi(icm,imidi(icm)) = 8*16+icm */ -#line 1582 "" +#line 1605 "" commidi_1.mmidi[*icm + commidi_1.imidi[*icm] * 25 - 25] = (shortint) ( icmm[*icm] + 128); /* Pitch */ -#line 1586 "" +#line 1609 "" ++commidi_1.imidi[*icm]; -#line 1587 "" +#line 1610 "" if (ioff == 0) { -#line 1588 "" +#line 1611 "" commidi_1.mmidi[*icm + commidi_1.imidi[*icm] * 25 - 25] = ( shortint) ipsav; -#line 1589 "" +#line 1612 "" } else { -#line 1590 "" +#line 1613 "" commidi_1.mmidi[*icm + commidi_1.imidi[*icm] * 25 - 25] = ( shortint) commidi_1.mcpitch[ioff - 1]; -#line 1591 "" +#line 1614 "" } /* Vel */ -#line 1595 "" +#line 1618 "" ++commidi_1.imidi[*icm]; -#line 1596 "" +#line 1619 "" commidi_1.mmidi[*icm + commidi_1.imidi[*icm] * 25 - 25] = 0; -#line 1597 "" +#line 1620 "" chkimidi_(icm); -#line 1598 "" +#line 1621 "" if (*endrest) { -#line 1599 "" +#line 1622 "" return 0; -#line 1600 "" +#line 1623 "" } -#line 1601 "" +#line 1624 "" /* L8: */ -#line 1601 "" +#line 1624 "" } -#line 1602 "" +#line 1625 "" comslm_1.naccbl[*icm] = comslm_1.nusebl; -#line 1603 "" +#line 1626 "" if (comslm_1.nusebl > 0) { /* Fix tables of "bar-line" accids that are saved due to consecutive notes. */ -#line 1607 "" +#line 1630 "" i__1 = comslm_1.nusebl; -#line 1607 "" +#line 1630 "" for (kacc = 1; kacc <= i__1; ++kacc) { -#line 1608 "" +#line 1631 "" comslm_1.laccbl[*icm + kacc * 25 - 25] = comips_1.lusebl[kacc - 1] ; -#line 1609 "" +#line 1632 "" comslm_1.jaccbl[*icm + kacc * 25 - 25] = comips_1.jusebl[kacc - 1] ; -#line 1610 "" +#line 1633 "" /* L30: */ -#line 1610 "" +#line 1633 "" } -#line 1611 "" +#line 1634 "" comslm_1.nusebl = 0; -#line 1612 "" +#line 1635 "" } /* Begin tie checks */ -#line 1616 "" +#line 1639 "" if (comslm_1.slmon[*icm]) { /* Prior note had a slur start */ -#line 1620 "" +#line 1643 "" if (comslm_1.levson[*icm] == comslm_1.levsoff[*icm] && *iacc == 0) { /* We have a tie! (Assumed there would be no accidental on tie-ending note) */ @@ -3898,198 +3938,198 @@ L20: /* comparing pitches. Save the 4 pieces of data in itiesav(1...4,nsav4tie) */ /* Store actual time in itiesav(5,nsav4tie), using itiesav(1,1) as initial */ /* time. */ -#line 1628 "" +#line 1651 "" nsav4tie = 0; -#line 1629 "" +#line 1652 "" imidt = comslm_1.imidso[*icm]; -#line 1630 "" +#line 1653 "" L10: -#line 1630 "" +#line 1653 "" ++nsav4tie; -#line 1631 "" +#line 1654 "" itiesav[nsav4tie * 5 - 5] = igetvarlen_(commidi_1.mmidi, icm, & imidt, &nbytes); -#line 1632 "" +#line 1655 "" imidt += nbytes; -#line 1633 "" +#line 1656 "" for (j = 1; j <= 3; ++j) { -#line 1634 "" +#line 1657 "" itiesav[j + 1 + nsav4tie * 5 - 6] = commidi_1.mmidi[*icm + ( imidt + j) * 25 - 25]; -#line 1635 "" +#line 1658 "" /* L11: */ -#line 1635 "" +#line 1658 "" } -#line 1636 "" +#line 1659 "" imidt += 3; -#line 1637 "" +#line 1660 "" if (nsav4tie == 1) { -#line 1638 "" +#line 1661 "" itiesav[4] = itiesav[0]; -#line 1639 "" +#line 1662 "" } else { -#line 1640 "" +#line 1663 "" itiesav[nsav4tie * 5 - 1] = itiesav[nsav4tie * 5 - 5] + itiesav[(nsav4tie - 1) * 5 - 1]; -#line 1642 "" +#line 1665 "" } -#line 1643 "" +#line 1666 "" if (imidt != commidi_1.imidi[*icm]) { -#line 1643 "" +#line 1666 "" goto L10; -#line 1643 "" +#line 1666 "" } /* Find which two pitches agree with saved slur pitch. */ -#line 1647 "" +#line 1670 "" it1found = FALSE_; -#line 1648 "" +#line 1671 "" i__1 = nsav4tie; -#line 1648 "" +#line 1671 "" for (it2 = 1; it2 <= i__1; ++it2) { -#line 1649 "" +#line 1672 "" if (itiesav[it2 * 5 - 3] == comips_1.ipslon[*icm]) { -#line 1650 "" +#line 1673 "" if (it1found) { -#line 1650 "" +#line 1673 "" goto L13; -#line 1650 "" +#line 1673 "" } -#line 1651 "" +#line 1674 "" it1 = it2; -#line 1652 "" +#line 1675 "" it1found = TRUE_; -#line 1653 "" +#line 1676 "" } -#line 1654 "" +#line 1677 "" /* L12: */ -#line 1654 "" +#line 1677 "" } -#line 1655 "" +#line 1678 "" printl_("Program error, tied notes, send source to Dr. Don", ( ftnlen)49); -#line 1657 "" +#line 1680 "" it1 = nsav4tie + 1; -#line 1658 "" +#line 1681 "" it2 = nsav4tie + 1; -#line 1659 "" +#line 1682 "" L13: /* List the positions we want to keep */ -#line 1663 "" +#line 1686 "" jsav = 0; -#line 1664 "" +#line 1687 "" i__1 = nsav4tie; -#line 1664 "" +#line 1687 "" for (isav = 1; isav <= i__1; ++isav) { -#line 1665 "" +#line 1688 "" if (isav == it1 || isav == it2) { -#line 1665 "" +#line 1688 "" goto L14; -#line 1665 "" +#line 1688 "" } -#line 1666 "" +#line 1689 "" ++jsav; -#line 1667 "" +#line 1690 "" itk[jsav - 1] = (shortint) isav; -#line 1668 "" +#line 1691 "" L14: -#line 1668 "" +#line 1691 "" ; -#line 1668 "" +#line 1691 "" } -#line 1669 "" +#line 1692 "" nsav4tie += -2; /* Now dump events it1 & it2, recompute times, restack mmidi. */ -#line 1673 "" +#line 1696 "" commidi_1.imidi[*icm] = comslm_1.imidso[*icm]; -#line 1674 "" +#line 1697 "" i__1 = nsav4tie; -#line 1674 "" +#line 1697 "" for (isav = 1; isav <= i__1; ++isav) { -#line 1675 "" +#line 1698 "" if (isav == 1) { -#line 1676 "" +#line 1699 "" idurvar = isetvarlen_(&itiesav[itk[isav - 1] * 5 - 1], & nbytes); -#line 1677 "" +#line 1700 "" } else { -#line 1678 "" +#line 1701 "" i__2 = itiesav[itk[isav - 1] * 5 - 1] - itiesav[itk[isav - 2] * 5 - 1]; -#line 1678 "" +#line 1701 "" idurvar = isetvarlen_(&i__2, &nbytes); -#line 1680 "" +#line 1703 "" } -#line 1681 "" +#line 1704 "" ++commidi_1.imidi[*icm]; -#line 1682 "" +#line 1705 "" i__2 = nbytes; -#line 1682 "" +#line 1705 "" for (i__ = 1; i__ <= i__2; ++i__) { -#line 1683 "" +#line 1706 "" commidi_1.mmidi[*icm + (commidi_1.imidi[*icm] + nbytes - i__) * 25 - 25] = (shortint) (idurvar % 256); -#line 1684 "" +#line 1707 "" if (nbytes > 1) { -#line 1684 "" +#line 1707 "" idurvar /= 256; -#line 1684 "" +#line 1707 "" } -#line 1685 "" +#line 1708 "" /* L16: */ -#line 1685 "" +#line 1708 "" } -#line 1686 "" +#line 1709 "" commidi_1.imidi[*icm] = commidi_1.imidi[*icm] + nbytes - 1; -#line 1687 "" +#line 1710 "" for (i__ = 2; i__ <= 4; ++i__) { -#line 1688 "" +#line 1711 "" ++commidi_1.imidi[*icm]; -#line 1689 "" +#line 1712 "" commidi_1.mmidi[*icm + commidi_1.imidi[*icm] * 25 - 25] = (shortint) itiesav[i__ + itk[isav - 1] * 5 - 6]; -#line 1690 "" +#line 1713 "" /* L17: */ -#line 1690 "" +#line 1713 "" } -#line 1691 "" +#line 1714 "" /* L15: */ -#line 1691 "" +#line 1714 "" } -#line 1692 "" +#line 1715 "" } -#line 1693 "" +#line 1716 "" comslm_1.slmon[*icm] = FALSE_; -#line 1694 "" +#line 1717 "" comslm_1.levsoff[*icm] = 0; -#line 1695 "" +#line 1718 "" if (! comslm_1.dbltie) { -#line 1695 "" +#line 1718 "" comslm_1.levson[*icm] = 0; -#line 1695 "" +#line 1718 "" } -#line 1696 "" +#line 1719 "" } -#line 1697 "" +#line 1720 "" if (comslm_1.levson[*icm] > 0) { -#line 1697 "" +#line 1720 "" comslm_1.slmon[*icm] = TRUE_; -#line 1697 "" +#line 1720 "" } -#line 1698 "" +#line 1721 "" if (commidi_1.nmidcrd > 0) { -#line 1698 "" +#line 1721 "" commidi_1.nmidcrd = 0; -#line 1698 "" +#line 1721 "" } -#line 1699 "" +#line 1722 "" chkimidi_(icm); -#line 1700 "" +#line 1723 "" return 0; } /* addmidi_ */ @@ -4111,47 +4151,47 @@ L14: static cilist io___111 = { 0, 11, 0, "(a)", 0 }; -#line 1707 "" +#line 1730 "" if (*lsout + *lnote > 72) { -#line 1708 "" +#line 1731 "" if (comlast_1.islast) { -#line 1708 "" +#line 1731 "" s_wsfe(&io___111); /* Writing concatenation */ -#line 1708 "" +#line 1731 "" i__1[0] = *lsout, a__1[0] = soutq; -#line 1708 "" +#line 1731 "" i__1[1] = 1, a__1[1] = "%"; -#line 1708 "" +#line 1731 "" s_cat(ch__1, a__1, i__1, &c__2, (ftnlen)81); -#line 1708 "" +#line 1731 "" do_fio(&c__1, ch__1, *lsout + 1); -#line 1708 "" +#line 1731 "" e_wsfe(); -#line 1708 "" +#line 1731 "" } -#line 1709 "" +#line 1732 "" *lsout = 0; -#line 1710 "" +#line 1733 "" } -#line 1711 "" +#line 1734 "" if (*lsout > 0) { /* Writing concatenation */ -#line 1712 "" +#line 1735 "" i__1[0] = *lsout, a__1[0] = soutq; -#line 1712 "" +#line 1735 "" i__1[1] = *lnote, a__1[1] = notexq; -#line 1712 "" +#line 1735 "" s_cat(soutq, a__1, i__1, &c__2, (ftnlen)80); -#line 1713 "" +#line 1736 "" } else { -#line 1714 "" +#line 1737 "" s_copy(soutq, notexq, (ftnlen)80, (*lnote)); -#line 1715 "" +#line 1738 "" } -#line 1716 "" +#line 1739 "" *lsout += *lnote; -#line 1717 "" +#line 1740 "" return 0; } /* addstr_ */ @@ -4169,63 +4209,63 @@ L14: /* For block ib, this adds accidental spaces to eskz, for use in getting */ /* length of xtup bracket and slopes of brackets and beams. */ -#line 1743 "" +#line 1766 "" /* Parameter adjustments */ -#line 1743 "" +#line 1766 "" --istart; -#line 1743 "" +#line 1766 "" -#line 1743 "" +#line 1766 "" /* Function Body */ -#line 1743 "" +#line 1766 "" inmin = istart[*ib] + 1; -#line 1744 "" +#line 1767 "" i__1 = comas1_1.naskb; -#line 1744 "" +#line 1767 "" for (iaskb = 1; iaskb <= i__1; ++iaskb) { -#line 1745 "" +#line 1768 "" if (comas1_1.task[iaskb - 1] < all_1.to[istart[*ib] - 1] - comtol_1.tol) { -#line 1745 "" +#line 1768 "" goto L10; -#line 1745 "" +#line 1768 "" } -#line 1746 "" +#line 1769 "" eskadd = comas1_1.wask[iaskb - 1] / *poenom - comas1_1.elask[iaskb - 1]; -#line 1747 "" +#line 1770 "" i__2 = comntot_1.ntot; -#line 1747 "" +#line 1770 "" for (in = inmin; in <= i__2; ++in) { -#line 1748 "" +#line 1771 "" if (all_1.to[in - 1] > comas1_1.task[iaskb - 1] - comtol_1.tol) { -#line 1749 "" +#line 1772 "" comeskz2_1.eskz2[all_1.ivxo[in - 1] + all_1.ipo[in - 1] * 24 - 25] += eskadd; -#line 1750 "" +#line 1773 "" if ((r__1 = all_1.to[in - 1] - comas1_1.task[iaskb - 1], dabs( r__1)) < comtol_1.tol) { -#line 1750 "" +#line 1773 "" --inmin; -#line 1750 "" +#line 1773 "" } -#line 1751 "" +#line 1774 "" } else { -#line 1752 "" +#line 1775 "" ++inmin; -#line 1753 "" +#line 1776 "" } -#line 1754 "" +#line 1777 "" /* L11: */ -#line 1754 "" +#line 1777 "" } -#line 1755 "" +#line 1778 "" L10: -#line 1755 "" +#line 1778 "" ; -#line 1755 "" +#line 1778 "" } -#line 1756 "" +#line 1779 "" return 0; } /* adjusteskz_ */ @@ -4271,333 +4311,333 @@ L10: static cilist io___129 = { 0, 12, 0, "(a)", 0 }; -#line 1768 "" +#line 1791 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 1768 "" +#line 1791 "" *(unsigned char *)sq = *(unsigned char *)&ch__1[0]; -#line 1769 "" +#line 1792 "" o__1.oerr = 0; -#line 1769 "" +#line 1792 "" o__1.ounit = 12; -#line 1769 "" +#line 1792 "" o__1.ofnmlen = *lpath + *lbase + 4; /* Writing concatenation */ -#line 1769 "" +#line 1792 "" i__1[0] = *lpath, a__1[0] = pathnameq; -#line 1769 "" +#line 1792 "" i__1[1] = *lbase, a__1[1] = basenameq; -#line 1769 "" +#line 1792 "" i__1[2] = 4, a__1[2] = ".tex"; -#line 1769 "" +#line 1792 "" s_cat(ch__2, a__1, i__1, &c__3, (ftnlen)88); -#line 1769 "" +#line 1792 "" o__1.ofnm = ch__2; -#line 1769 "" +#line 1792 "" o__1.orl = 0; -#line 1769 "" +#line 1792 "" o__1.osta = 0; -#line 1769 "" +#line 1792 "" o__1.oacc = 0; -#line 1769 "" +#line 1792 "" o__1.ofm = 0; -#line 1769 "" +#line 1792 "" o__1.oblnk = 0; -#line 1769 "" +#line 1792 "" f_open(&o__1); /* Transfer first 5 lines of main internal TeX file */ -#line 1773 "" +#line 1796 "" for (il = 1; il <= 5; ++il) { -#line 1774 "" +#line 1797 "" moveln_(&c__11, &c__12, &done); -#line 1775 "" +#line 1798 "" /* L11: */ -#line 1775 "" +#line 1798 "" } -#line 1776 "" +#line 1799 "" if (*istype0) { /* Transfer literal TeX stuff from special scratch file */ -#line 1780 "" +#line 1803 "" al__1.aerr = 0; -#line 1780 "" +#line 1803 "" al__1.aunit = 17; -#line 1780 "" +#line 1803 "" f_rew(&al__1); -#line 1781 "" +#line 1804 "" L10: -#line 1781 "" +#line 1804 "" moveln_(&c__17, &c__12, &done); -#line 1782 "" +#line 1805 "" if (! done) { -#line 1782 "" +#line 1805 "" goto L10; -#line 1782 "" +#line 1805 "" } -#line 1783 "" +#line 1806 "" cl__1.cerr = 0; -#line 1783 "" +#line 1806 "" cl__1.cunit = 17; -#line 1783 "" +#line 1806 "" cl__1.csta = 0; -#line 1783 "" +#line 1806 "" f_clos(&cl__1); -#line 1784 "" +#line 1807 "" } /* Transfer next 2 lines from main scratch file */ -#line 1788 "" +#line 1811 "" for (il = 1; il <= 2; ++il) { -#line 1789 "" +#line 1812 "" moveln_(&c__11, &c__12, &done); -#line 1790 "" +#line 1813 "" /* L3: */ -#line 1790 "" +#line 1813 "" } -#line 1791 "" +#line 1814 "" if (compoi_1.ispoi) { -#line 1791 "" +#line 1814 "" s_wsfe(&io___119); /* Writing concatenation */ -#line 1791 "" +#line 1814 "" i__2[0] = 1, a__2[0] = sq; -#line 1791 "" +#line 1814 "" i__2[1] = 14, a__2[1] = "input musixpoi"; -#line 1791 "" +#line 1814 "" s_cat(ch__3, a__2, i__2, &c__2, (ftnlen)15); -#line 1791 "" +#line 1814 "" do_fio(&c__1, ch__3, (ftnlen)15); -#line 1791 "" +#line 1814 "" e_wsfe(); -#line 1791 "" +#line 1814 "" } -#line 1792 "" +#line 1815 "" if (combbm_1.isbbm) { -#line 1792 "" +#line 1815 "" s_wsfe(&io___120); /* Writing concatenation */ -#line 1792 "" +#line 1815 "" i__2[0] = 1, a__2[0] = sq; -#line 1792 "" +#line 1815 "" i__2[1] = 14, a__2[1] = "input musixbbm"; -#line 1792 "" +#line 1815 "" s_cat(ch__3, a__2, i__2, &c__2, (ftnlen)15); -#line 1792 "" +#line 1815 "" do_fio(&c__1, ch__3, (ftnlen)15); -#line 1792 "" +#line 1815 "" e_wsfe(); -#line 1792 "" +#line 1815 "" } -#line 1793 "" +#line 1816 "" if (*figbass) { /* Transfer .fig data from scratch (unit 14) into external .tex (unit 12) */ -#line 1797 "" +#line 1820 "" L4: -#line 1797 "" +#line 1820 "" moveln_(&c__14, &c__12, &done); -#line 1798 "" +#line 1821 "" if (! done) { -#line 1798 "" +#line 1821 "" goto L4; -#line 1798 "" +#line 1821 "" } -#line 1799 "" +#line 1822 "" cl__1.cerr = 0; -#line 1799 "" +#line 1822 "" cl__1.cunit = 14; -#line 1799 "" +#line 1822 "" cl__1.csta = 0; -#line 1799 "" +#line 1822 "" f_clos(&cl__1); -#line 1800 "" +#line 1823 "" } -#line 1801 "" +#line 1824 "" comas3_1.iask = 0; -#line 1802 "" +#line 1825 "" ihs = 0; -#line 1803 "" +#line 1826 "" L1: -#line 1803 "" +#line 1826 "" i__3 = s_rsfe(&io___122); -#line 1803 "" +#line 1826 "" if (i__3 != 0) { -#line 1803 "" +#line 1826 "" goto L999; -#line 1803 "" +#line 1826 "" } -#line 1803 "" +#line 1826 "" i__3 = do_fio(&c__1, outq, (ftnlen)129); -#line 1803 "" +#line 1826 "" if (i__3 != 0) { -#line 1803 "" +#line 1826 "" goto L999; -#line 1803 "" +#line 1826 "" } -#line 1803 "" +#line 1826 "" i__3 = e_rsfe(); -#line 1803 "" +#line 1826 "" if (i__3 != 0) { -#line 1803 "" +#line 1826 "" goto L999; -#line 1803 "" +#line 1826 "" } /* Hardspaces. */ /* Writing concatenation */ -#line 1807 "" +#line 1830 "" i__2[0] = 1, a__2[0] = sq; -#line 1807 "" +#line 1830 "" i__2[1] = 4, a__2[1] = "xard"; -#line 1807 "" +#line 1830 "" s_cat(ch__4, a__2, i__2, &c__2, (ftnlen)5); -#line 1807 "" +#line 1830 "" if (s_cmp(outq, ch__4, (ftnlen)5, (ftnlen)5) == 0) { -#line 1808 "" +#line 1831 "" ++ihs; -#line 1809 "" +#line 1832 "" *(unsigned char *)&outq[1] = 'h'; -#line 1810 "" +#line 1833 "" s_wsfi(&io___124); -#line 1810 "" +#line 1833 "" do_fio(&c__1, (char *)&comhsp_1.hpttot[ihs - 1], (ftnlen)sizeof(real)) ; -#line 1810 "" +#line 1833 "" e_wsfi(); -#line 1811 "" +#line 1834 "" lenout = 19; -#line 1812 "" +#line 1835 "" goto L9; -#line 1813 "" +#line 1836 "" } /* This part hard-wires ask's into new .tex file as ast's */ -#line 1817 "" +#line 1840 "" L2: /* Writing concatenation */ -#line 1817 "" +#line 1840 "" i__2[0] = 1, a__2[0] = sq; -#line 1817 "" +#line 1840 "" i__2[1] = 3, a__2[1] = "ask"; -#line 1817 "" +#line 1840 "" s_cat(ch__5, a__2, i__2, &c__2, (ftnlen)4); -#line 1817 "" +#line 1840 "" indxask = i_indx(outq, ch__5, (ftnlen)129, (ftnlen)4); -#line 1818 "" +#line 1841 "" if (indxask != 0) { -#line 1819 "" +#line 1842 "" ++comas3_1.iask; -#line 1820 "" +#line 1843 "" putast_(&comas3_1.ask[comas3_1.iask - 1], &indxask, outq, (ftnlen)129) ; -#line 1821 "" +#line 1844 "" goto L2; -#line 1822 "" +#line 1845 "" } -#line 1823 "" +#line 1846 "" lenout = llen_(outq, &c__129, (ftnlen)129); -#line 1824 "" +#line 1847 "" L9: -#line 1825 "" +#line 1848 "" s_wsfe(&io___127); -#line 1825 "" +#line 1848 "" do_fio(&c__1, outq, lenout); -#line 1825 "" +#line 1848 "" e_wsfe(); /* If this is the line with "readmod", check for topmods. */ -#line 1829 "" +#line 1852 "" if (comas3_1.topmods && s_cmp(outq + 1, "readmod", (ftnlen)7, (ftnlen)7) == 0) { -#line 1830 "" +#line 1853 "" comas3_1.topmods = FALSE_; -#line 1831 "" +#line 1854 "" al__1.aerr = 0; -#line 1831 "" +#line 1854 "" al__1.aunit = 16; -#line 1831 "" +#line 1854 "" f_rew(&al__1); -#line 1832 "" +#line 1855 "" for (il = 1; il <= 1000; ++il) { -#line 1833 "" +#line 1856 "" i__3 = s_rsfe(&io___128); -#line 1833 "" +#line 1856 "" if (i__3 != 0) { -#line 1833 "" +#line 1856 "" goto L8; -#line 1833 "" +#line 1856 "" } -#line 1833 "" +#line 1856 "" i__3 = do_fio(&c__1, outq, (ftnlen)129); -#line 1833 "" +#line 1856 "" if (i__3 != 0) { -#line 1833 "" +#line 1856 "" goto L8; -#line 1833 "" +#line 1856 "" } -#line 1833 "" +#line 1856 "" i__3 = e_rsfe(); -#line 1833 "" +#line 1856 "" if (i__3 != 0) { -#line 1833 "" +#line 1856 "" goto L8; -#line 1833 "" +#line 1856 "" } -#line 1834 "" +#line 1857 "" lenout = llen_(outq, &c__129, (ftnlen)129); /* We inserted the '%' in subroutine littex, to guarantee including blank. */ -#line 1838 "" +#line 1861 "" s_wsfe(&io___129); -#line 1838 "" +#line 1861 "" do_fio(&c__1, outq, lenout); -#line 1838 "" +#line 1861 "" e_wsfe(); -#line 1839 "" +#line 1862 "" /* L7: */ -#line 1839 "" +#line 1862 "" } -#line 1840 "" +#line 1863 "" L8: -#line 1841 "" +#line 1864 "" cl__1.cerr = 0; -#line 1841 "" +#line 1864 "" cl__1.cunit = 16; -#line 1841 "" +#line 1864 "" cl__1.csta = 0; -#line 1841 "" +#line 1864 "" f_clos(&cl__1); -#line 1842 "" +#line 1865 "" } -#line 1843 "" +#line 1866 "" goto L1; -#line 1844 "" +#line 1867 "" L999: -#line 1844 "" +#line 1867 "" cl__1.cerr = 0; -#line 1844 "" +#line 1867 "" cl__1.cunit = 11; -#line 1844 "" +#line 1867 "" cl__1.csta = 0; -#line 1844 "" +#line 1867 "" f_clos(&cl__1); -#line 1845 "" +#line 1868 "" cl__1.cerr = 0; -#line 1845 "" +#line 1868 "" cl__1.cunit = 12; -#line 1845 "" +#line 1868 "" cl__1.csta = 0; -#line 1845 "" +#line 1868 "" f_clos(&cl__1); -#line 1846 "" +#line 1869 "" return 0; } /* askfig_ */ @@ -4629,80 +4669,80 @@ L999: /* In iunit, looks backward for oldq, overwrites newq */ /* Safest if both are same length! */ -#line 1855 "" +#line 1878 "" linesback = 0; -#line 1856 "" +#line 1879 "" L1: -#line 1857 "" +#line 1880 "" al__1.aerr = 0; -#line 1857 "" +#line 1880 "" al__1.aunit = *iunit; -#line 1857 "" +#line 1880 "" f_back(&al__1); -#line 1858 "" +#line 1881 "" io___131.ciunit = *iunit; -#line 1858 "" +#line 1881 "" s_rsfe(&io___131); -#line 1858 "" +#line 1881 "" do_fio(&c__1, nowq, (ftnlen)128); -#line 1858 "" +#line 1881 "" e_rsfe(); -#line 1859 "" +#line 1882 "" ndx = i_indx(nowq, oldq, (ftnlen)128, (*lenold)); /* Save the line just read */ -#line 1863 "" +#line 1886 "" ++linesback; -#line 1864 "" +#line 1887 "" s_copy(lineq + (linesback - 1 << 7), nowq, (ftnlen)128, (ftnlen)128); -#line 1865 "" +#line 1888 "" if (ndx == 0) { -#line 1866 "" +#line 1889 "" al__1.aerr = 0; -#line 1866 "" +#line 1889 "" al__1.aunit = *iunit; -#line 1866 "" +#line 1889 "" f_back(&al__1); -#line 1867 "" +#line 1890 "" goto L1; -#line 1868 "" +#line 1891 "" } /* If here, it's replacement time. */ -#line 1872 "" +#line 1895 "" i__1 = ndx + *lenold - 1; /* Writing concatenation */ -#line 1872 "" +#line 1895 "" i__2[0] = ndx - 1, a__1[0] = nowq; -#line 1872 "" +#line 1895 "" i__2[1] = *lennew, a__1[1] = newq; -#line 1872 "" +#line 1895 "" i__2[2] = 128 - i__1, a__1[2] = nowq + i__1; -#line 1872 "" +#line 1895 "" s_cat(lineq + (linesback - 1 << 7), a__1, i__2, &c__3, (ftnlen)128); -#line 1874 "" +#line 1897 "" al__1.aerr = 0; -#line 1874 "" +#line 1897 "" al__1.aunit = *iunit; -#line 1874 "" +#line 1897 "" f_back(&al__1); -#line 1875 "" +#line 1898 "" for (line = linesback; line >= 1; --line) { -#line 1876 "" +#line 1899 "" io___136.ciunit = *iunit; -#line 1876 "" +#line 1899 "" s_wsfe(&io___136); -#line 1876 "" +#line 1899 "" do_fio(&c__1, lineq + (line - 1 << 7), (ftnlen)128); -#line 1876 "" +#line 1899 "" e_wsfe(); -#line 1877 "" +#line 1900 "" /* L2: */ -#line 1877 "" +#line 1900 "" } -#line 1878 "" +#line 1901 "" return 0; } /* backfill_ */ @@ -4759,394 +4799,392 @@ L1: static icilist io___159 = { 0, noteq, 0, "(i2)", 2, 1 }; -#line 1906 "" +#line 1929 "" ip = all_1.ipo[all_1.jn - 1]; -#line 1907 "" +#line 1930 "" multip = (all_1.mult[commvl_1.ivx + ip * 24 - 25] & 15) - 8; -#line 1908 "" +#line 1931 "" *lnote = 0; -#line 1909 "" +#line 1932 "" if (strtmid_1.ixrest[commvl_1.ivx - 1] == 4) { /* This is the LAST note in the xtup (i.e., all rests before). Make single. */ -#line 1913 "" +#line 1936 "" i__1 = 4 - multip; -#line 1913 "" +#line 1936 "" all_1.nodur[commvl_1.ivx + ip * 24 - 25] = pow_ii(&c__2, &i__1); -#line 1914 "" +#line 1937 "" notex_(notexq, lnote, (ftnlen)79); -#line 1915 "" +#line 1938 "" strtmid_1.ixrest[commvl_1.ivx - 1] = 0; -#line 1916 "" +#line 1939 "" return 0; -#line 1917 "" +#line 1940 "" } -#line 1918 "" +#line 1941 "" nole = all_1.nolev[commvl_1.ivx + ip * 24 - 25]; /* Check for special situations with 2nds (see precrd) */ -#line 1922 "" +#line 1945 "" if (bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],30)) { -#line 1923 "" +#line 1946 "" --nole; -#line 1924 "" +#line 1947 "" } else if (bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],31)) { -#line 1925 "" +#line 1948 "" ++nole; -#line 1926 "" +#line 1949 "" } /* Terminate indented beams for 2-note tremolo if needed */ -#line 1930 "" +#line 1953 "" if (bit_test(all_1.irest[commvl_1.ivx + (ip - 1) * 24 - 25],2) && igetbits_(&all_1.irest[commvl_1.ivx + (ip - 1) * 24 - 25], &c__2, &c__5) > 0) { -#line 1932 "" +#line 1955 "" nindent = igetbits_(&all_1.irest[commvl_1.ivx + (ip - 1) * 24 - 25], & c__2, &c__5); -#line 1933 "" +#line 1956 "" if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + all_1.ibmcnt[ commvl_1.ivx - 1] * 24 - 25] == 'u') { -#line 1934 "" +#line 1957 "" addoff = -1 - nindent * .5f; -#line 1935 "" +#line 1958 "" } else { -#line 1936 "" +#line 1959 "" addoff = nindent * .5f + 1; -#line 1937 "" +#line 1960 "" } /* addoff = addoff+(.595-.065*abs(islope(ivx)))*islope(ivx) */ -#line 1939 "" +#line 1962 "" addoff += comxtup_1.islope[commvl_1.ivx - 1] * .0822f; -#line 1940 "" +#line 1963 "" if (addoff < -.05f) { -#line 1941 "" +#line 1964 "" s_wsfi(&io___143); -#line 1941 "" +#line 1964 "" do_fio(&c__1, (char *)&addoff, (ftnlen)sizeof(real)); -#line 1941 "" +#line 1964 "" e_wsfi(); -#line 1942 "" +#line 1965 "" } else { -#line 1943 "" +#line 1966 "" s_wsfi(&io___144); -#line 1943 "" +#line 1966 "" do_fio(&c__1, (char *)&addoff, (ftnlen)sizeof(real)); -#line 1943 "" +#line 1966 "" e_wsfi(); -#line 1944 "" +#line 1967 "" } /* Writing concatenation */ -#line 1945 "" +#line 1968 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 1945 "" +#line 1968 "" i__2[1] = 5, a__1[1] = "raise"; -#line 1945 "" +#line 1968 "" i__2[2] = 4, a__1[2] = tempq; -#line 1945 "" +#line 1968 "" i__2[3] = 1, a__1[3] = all_1.sq; -#line 1945 "" +#line 1968 "" i__2[4] = 9, a__1[4] = "internote"; -#line 1945 "" +#line 1968 "" i__2[5] = 1, a__1[5] = all_1.sq; -#line 1945 "" +#line 1968 "" i__2[6] = 5, a__1[6] = "hbox{"; -#line 1945 "" +#line 1968 "" i__2[7] = 1, a__1[7] = all_1.sq; -#line 1945 "" +#line 1968 "" i__2[8] = 12, a__1[8] = "loffset{.7}{"; -#line 1945 "" +#line 1968 "" i__2[9] = 1, a__1[9] = all_1.sq; -#line 1945 "" +#line 1968 "" i__2[10] = 2, a__1[10] = "tb"; -#line 1945 "" +#line 1968 "" i__2[11] = 1, a__1[11] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[ commvl_1.ivx - 1] * 24 - 25); -#line 1945 "" +#line 1968 "" i__2[12] = 3, a__1[12] = "0}}"; -#line 1945 "" +#line 1968 "" s_cat(notexq, a__1, i__2, &c__13, (ftnlen)79); -#line 1948 "" +#line 1971 "" *lnote = 46; -#line 1949 "" +#line 1972 "" } -#line 1950 "" +#line 1973 "" if (! comdraw_1.drawbm[commvl_1.ivx - 1]) { /* Xtuplet with no beam, just put in the right kind of note */ -#line 1954 "" +#line 1977 "" if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],0)) { /* Rest at end of unbeamed xtup */ -#line 1958 "" +#line 1981 "" *lnote = 3; -#line 1959 "" +#line 1982 "" if (bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],29)) { /* Writing concatenation */ -#line 1960 "" +#line 1983 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 1960 "" +#line 1983 "" i__3[1] = 2, a__2[1] = "sk"; -#line 1960 "" +#line 1983 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); /* 180106 There was a problem with nolev(ivx,ip) not being set to 0 for */ /* a blank rest ending xtup, but hopefully returning from here will handle it. */ -#line 1965 "" +#line 1988 "" return 0; -#line 1966 "" +#line 1989 "" } else if (multip == 0) { /* Writing concatenation */ -#line 1967 "" +#line 1990 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 1967 "" +#line 1990 "" i__3[1] = 2, a__2[1] = "qp"; -#line 1967 "" +#line 1990 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 1968 "" +#line 1991 "" } else if (multip == -1) { /* Writing concatenation */ -#line 1969 "" +#line 1992 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 1969 "" +#line 1992 "" i__3[1] = 2, a__2[1] = "hp"; -#line 1969 "" +#line 1992 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 1970 "" +#line 1993 "" } else if (multip == 1) { /* Writing concatenation */ -#line 1971 "" +#line 1994 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 1971 "" +#line 1994 "" i__3[1] = 2, a__2[1] = "ds"; -#line 1971 "" +#line 1994 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 1972 "" +#line 1995 "" } else if (multip == 2) { /* Writing concatenation */ -#line 1973 "" +#line 1996 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 1973 "" +#line 1996 "" i__3[1] = 2, a__2[1] = "qs"; -#line 1973 "" +#line 1996 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 1974 "" +#line 1997 "" } else { /* Writing concatenation */ -#line 1975 "" +#line 1998 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 1975 "" +#line 1998 "" i__3[1] = 2, a__2[1] = "hs"; -#line 1975 "" +#line 1998 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 1976 "" +#line 1999 "" } /* 180106 Deal with possible level tweak */ -#line 1980 "" +#line 2003 "" nole = (all_1.nolev[commvl_1.ivx + ip * 24 - 25] + 50) % 100 - 50; -#line 1981 "" +#line 2004 "" if (nole != 0) { -#line 1982 "" +#line 2005 "" if (abs(nole) < 10) { -#line 1983 "" +#line 2006 "" i__1 = abs(nole) + 48; -#line 1983 "" +#line 2006 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 1983 "" +#line 2006 "" s_copy(noteq, ch__1, (ftnlen)8, (ftnlen)1); -#line 1984 "" +#line 2007 "" lnoten = 1; -#line 1985 "" +#line 2008 "" } else { -#line 1986 "" +#line 2009 "" s_wsfi(&io___147); -#line 1986 "" +#line 2009 "" i__1 = abs(nole); -#line 1986 "" +#line 2009 "" do_fio(&c__1, (char *)&i__1, (ftnlen)sizeof(integer)); -#line 1986 "" +#line 2009 "" e_wsfi(); -#line 1987 "" +#line 2010 "" lnoten = 2; -#line 1988 "" +#line 2011 "" } -#line 1989 "" +#line 2012 "" if (nole > 0) { /* Writing concatenation */ -#line 1990 "" +#line 2013 "" i__4[0] = 1, a__3[0] = all_1.sq; -#line 1990 "" +#line 2013 "" i__4[1] = 5, a__3[1] = "raise"; -#line 1990 "" +#line 2013 "" i__4[2] = lnoten, a__3[2] = noteq; -#line 1990 "" +#line 2013 "" i__4[3] = 1, a__3[3] = all_1.sq; -#line 1990 "" +#line 2013 "" i__4[4] = 9, a__3[4] = "internote"; -#line 1990 "" +#line 2013 "" i__4[5] = *lnote, a__3[5] = notexq; -#line 1990 "" +#line 2013 "" s_cat(notexq, a__3, i__4, &c__6, (ftnlen)79); -#line 1992 "" +#line 2015 "" } else { /* Writing concatenation */ -#line 1993 "" +#line 2016 "" i__4[0] = 1, a__3[0] = all_1.sq; -#line 1993 "" +#line 2016 "" i__4[1] = 5, a__3[1] = "lower"; -#line 1993 "" +#line 2016 "" i__4[2] = lnoten, a__3[2] = noteq; -#line 1993 "" +#line 2016 "" i__4[3] = 1, a__3[3] = all_1.sq; -#line 1993 "" +#line 2016 "" i__4[4] = 9, a__3[4] = "internote"; -#line 1993 "" +#line 2016 "" i__4[5] = *lnote, a__3[5] = notexq; -#line 1993 "" +#line 2016 "" s_cat(notexq, a__3, i__4, &c__6, (ftnlen)79); -#line 1995 "" +#line 2018 "" } -#line 1996 "" +#line 2019 "" *lnote = lnoten + 16 + *lnote; -#line 1997 "" +#line 2020 "" } -#line 1998 "" +#line 2021 "" return 0; -#line 1999 "" +#line 2022 "" } -#line 2000 "" +#line 2023 "" if (bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],30)) { /* Forced stem direction */ -#line 2004 "" +#line 2027 "" ndsav = all_1.nodur[commvl_1.ivx + ip * 24 - 25]; -#line 2005 "" +#line 2028 "" i__1 = 4 - multip; -#line 2005 "" +#line 2028 "" all_1.nodur[commvl_1.ivx + ip * 24 - 25] = pow_ii(&c__2, &i__1); -#line 2006 "" +#line 2029 "" if (bit_test(all_1.nacc[commvl_1.ivx + (ip - 1) * 24 - 25],27)) { -#line 2006 "" +#line 2029 "" all_1.nodur[commvl_1.ivx + ip * 24 - 25] /= 2; -#line 2006 "" +#line 2029 "" } -#line 2008 "" +#line 2031 "" notex_(notexq, lnote, (ftnlen)79); -#line 2009 "" +#line 2032 "" all_1.nodur[commvl_1.ivx + ip * 24 - 25] = ndsav; -#line 2010 "" +#line 2033 "" } else { -#line 2011 "" +#line 2034 "" i__1 = ncmid_(&all_1.iv, &ip); -#line 2011 "" +#line 2034 "" notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); -#line 2012 "" +#line 2035 "" if (lnoten == 1) { -#line 2012 "" +#line 2035 "" addblank_(noteq, &lnoten, (ftnlen)8); -#line 2012 "" +#line 2035 "" } /* To reduce confusion due to this early update of lnote, do it */ /* below, separately in each case/ */ /* lnote = lnoten+3 */ -#line 2017 "" +#line 2040 "" if (! bit_test(all_1.nacc[commvl_1.ivx + (ip - 1) * 24 - 25],27)) { /* Prior note is not regular-dotted */ -#line 2021 "" +#line 2044 "" if (bit_test(all_1.irest[commvl_1.ivx + (ip - 1) * 24 - 25],2) && igetbits_(&all_1.irest[commvl_1.ivx + (ip - 1) * 24 - 25], &c__2, &c__5) > 0) { /* Unbeamed tremolo with indented beams. Put termination in right here */ -#line 2026 "" +#line 2049 "" nindent = igetbits_(&all_1.irest[commvl_1.ivx + (ip - 1) * 24 - 25], &c__2, &c__5); -#line 2027 "" +#line 2050 "" if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25] == 'u') { -#line 2028 "" +#line 2051 "" addoff = -1 - nindent * .5f; -#line 2029 "" +#line 2052 "" } else { -#line 2030 "" +#line 2053 "" addoff = nindent * .5f + 1; -#line 2031 "" +#line 2054 "" } /* Is there an islope here, for unbeamed? */ -#line 2035 "" +#line 2058 "" if (addoff < -.05f) { -#line 2036 "" +#line 2059 "" s_wsfi(&io___149); -#line 2036 "" +#line 2059 "" do_fio(&c__1, (char *)&addoff, (ftnlen)sizeof(real)); -#line 2036 "" +#line 2059 "" e_wsfi(); -#line 2037 "" +#line 2060 "" } else { -#line 2038 "" +#line 2061 "" s_wsfi(&io___150); -#line 2038 "" +#line 2061 "" do_fio(&c__1, (char *)&addoff, (ftnlen)sizeof(real)); -#line 2038 "" +#line 2061 "" e_wsfi(); -#line 2039 "" +#line 2062 "" } /* Writing concatenation */ -#line 2040 "" +#line 2063 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2040 "" +#line 2063 "" i__2[1] = 5, a__1[1] = "raise"; -#line 2040 "" +#line 2063 "" i__2[2] = 4, a__1[2] = tempq; -#line 2040 "" +#line 2063 "" i__2[3] = 1, a__1[3] = all_1.sq; -#line 2040 "" +#line 2063 "" i__2[4] = 9, a__1[4] = "internote"; -#line 2040 "" +#line 2063 "" i__2[5] = 1, a__1[5] = all_1.sq; -#line 2040 "" +#line 2063 "" i__2[6] = 5, a__1[6] = "hbox{"; -#line 2040 "" +#line 2063 "" i__2[7] = 1, a__1[7] = all_1.sq; -#line 2040 "" +#line 2063 "" i__2[8] = 12, a__1[8] = "loffset{.7}{"; -#line 2040 "" +#line 2063 "" i__2[9] = 1, a__1[9] = all_1.sq; -#line 2040 "" +#line 2063 "" i__2[10] = 2, a__1[10] = "tb"; -#line 2040 "" +#line 2063 "" i__2[11] = 1, a__1[11] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2040 "" +#line 2063 "" i__2[12] = 3, a__1[12] = "0}}"; -#line 2040 "" +#line 2063 "" s_cat(notexq, a__1, i__2, &c__13, (ftnlen)79); -#line 2044 "" +#line 2067 "" *lnote = 46; -/* write(11,'(a)')notexq(1:lnote) */ -#line 2046 "" +#line 2068 "" } -#line 2047 "" +#line 2069 "" if (multip == 0) { -/* if (btest(irest(ivx,ip-1),2)) then */ -#line 2049 "" +#line 2070 "" if (bit_test(all_1.irest[commvl_1.ivx + (ip - 1) * 24 - 25],2) && all_1.nodur[commvl_1.ivx + ip * 24 - 25] > 24) { @@ -5155,45 +5193,45 @@ L1: /* But it's not clear if unbeamed half-note tremolo is Kosher, */ /* so don't worry about stem lengths here now. */ -#line 2056 "" +#line 2077 "" if (*lnote == 0) { /* Writing concatenation */ -#line 2057 "" +#line 2078 "" i__5[0] = 1, a__4[0] = all_1.sq; -#line 2057 "" +#line 2078 "" i__5[1] = 1, a__4[1] = "h"; -#line 2057 "" +#line 2078 "" i__5[2] = 1, a__4[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2057 "" +#line 2078 "" i__5[3] = 8, a__4[3] = noteq; -#line 2057 "" +#line 2078 "" s_cat(notexq, a__4, i__5, &c__4, (ftnlen)79); -#line 2058 "" +#line 2079 "" } else { /* Writing concatenation */ -#line 2059 "" +#line 2080 "" i__6[0] = 46, a__5[0] = notexq; -#line 2059 "" +#line 2080 "" i__6[1] = 1, a__5[1] = all_1.sq; -#line 2059 "" +#line 2080 "" i__6[2] = 1, a__5[2] = "h"; -#line 2059 "" +#line 2080 "" i__6[3] = 1, a__5[3] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2059 "" +#line 2080 "" i__6[4] = 8, a__5[4] = noteq; -#line 2059 "" +#line 2080 "" s_cat(notexq, a__5, i__6, &c__5, (ftnlen)79); -#line 2061 "" +#line 2082 "" *lnote = 46; -#line 2062 "" +#line 2083 "" } -#line 2063 "" +#line 2084 "" } else { -#line 2064 "" +#line 2085 "" if (bit_test(all_1.irest[commvl_1.ivx + (ip - 1) * 24 - 25],2) && all_1.nodur[commvl_1.ivx + ip * 24 - 25] == 24 || all_1.nodur[commvl_1.ivx + @@ -5201,64 +5239,34 @@ L1: /* Need a dot. */ -#line 2069 "" +#line 2090 "" *lnote = 46; -#line 2070 "" - if (lnoten == 1) { -/* Writing concatenation */ -#line 2071 "" - i__3[0] = 1, a__2[0] = " "; -#line 2071 "" - i__3[1] = 1, a__2[1] = noteq; -#line 2071 "" - s_cat(noteq, a__2, i__3, &c__2, (ftnlen)8); -#line 2072 "" - lnoten = 2; -#line 2073 "" - } -/* Writing concatenation */ -#line 2074 "" - i__5[0] = *lnote, a__4[0] = notexq; -#line 2074 "" - i__5[1] = 1, a__4[1] = all_1.sq; -#line 2074 "" - i__5[2] = 2, a__4[2] = "pt"; -#line 2074 "" - i__5[3] = lnoten, a__4[3] = noteq; -#line 2074 "" - s_cat(notexq, a__4, i__5, &c__4, (ftnlen)79); -#line 2075 "" - *lnote = *lnote + 3 + lnoten; -#line 2076 "" - i__1 = ncmid_(&all_1.iv, &ip); -#line 2076 "" - notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); -#line 2077 "" +#line 2091 "" if (lnoten == 1) { /* Writing concatenation */ -#line 2078 "" +#line 2092 "" i__3[0] = 1, a__2[0] = " "; -#line 2078 "" +#line 2092 "" i__3[1] = 1, a__2[1] = noteq; -#line 2078 "" +#line 2092 "" s_cat(noteq, a__2, i__3, &c__2, (ftnlen)8); -#line 2079 "" +#line 2093 "" lnoten = 2; -#line 2080 "" +#line 2094 "" } /* Insert stemlength stuff here for unbeamed dotted tremolo. */ /* May later combine with below to avoid repeat. But need to */ /* return to normal stem length after note is set. */ -#line 2086 "" +#line 2100 "" nindent = igetbits_(&all_1.irest[commvl_1.ivx + ( ip - 1) * 24 - 25], &c__2, &c__5); -#line 2087 "" +#line 2101 "" if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25] == 'u') { -#line 2088 "" +#line 2102 "" slen = (nindent + 4.5f + comxtup_1.nolev1[ commvl_1.ivx - 1] - nole + ( all_1.eskz[commvl_1.ivx + ip * 24 - @@ -5266,9 +5274,9 @@ L1: 1) * 24 - 25] - .7f) * 1.3f * comxtup_1.islope[commvl_1.ivx - 1] / all_1.slfac) * .6667f; -#line 2091 "" +#line 2105 "" } else { -#line 2092 "" +#line 2106 "" slen = (nindent + 4.5f - comxtup_1.nolev1[ commvl_1.ivx - 1] + nole - ( all_1.eskz[commvl_1.ivx + ip * 24 - @@ -5276,142 +5284,196 @@ L1: 1) * 24 - 25] - .7f) * 1.3f * comxtup_1.islope[commvl_1.ivx - 1] / all_1.slfac) * .6667f; -#line 2095 "" +#line 2109 "" } -#line 2096 "" +#line 2110 "" s_wsfi(&io___152); -#line 2096 "" +#line 2110 "" do_fio(&c__1, (char *)&slen, (ftnlen)sizeof(real)) ; -#line 2096 "" +#line 2110 "" e_wsfi(); /* Writing concatenation */ -#line 2097 "" +#line 2111 "" i__6[0] = 1, a__5[0] = all_1.sq; -#line 2097 "" +#line 2111 "" i__6[1] = 4, a__5[1] = "slx{"; -#line 2097 "" +#line 2111 "" i__6[2] = 4, a__5[2] = tempq; -#line 2097 "" +#line 2111 "" i__6[3] = 1, a__5[3] = "}"; -#line 2097 "" +#line 2111 "" i__6[4] = *lnote, a__5[4] = notexq; -#line 2097 "" +#line 2111 "" s_cat(notexq, a__5, i__6, &c__5, (ftnlen)79); -#line 2098 "" +#line 2112 "" *lnote += 10; -#line 2099 "" +#line 2113 "" } -#line 2100 "" - if (*lnote == 0) { + +/* Next steps are a historical kluge to distinguish dotted unbeamed 2-note trem */ +/* (needs \qup) from normal xtup on dotted note (eg e44dx2 f, wants no dot) */ + +#line 2118 "" + if (bit_test(all_1.irest[commvl_1.ivx + (ip - 1) * 24 + - 25],2)) { +#line 2119 "" + if (*lnote == 0) { +/* notexq = sq//'q'//ulq(ivx,ibmcnt(ivx)) */ /* Writing concatenation */ -#line 2101 "" - i__5[0] = 1, a__4[0] = all_1.sq; -#line 2101 "" - i__5[1] = 1, a__4[1] = "q"; -#line 2101 "" - i__5[2] = 1, a__4[2] = all_1.ulq + (commvl_1.ivx - + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - - 25); -#line 2101 "" - i__5[3] = lnoten, a__4[3] = noteq; -#line 2101 "" - s_cat(notexq, a__4, i__5, &c__4, (ftnlen)79); -#line 2103 "" +#line 2121 "" + i__6[0] = 1, a__5[0] = all_1.sq; +#line 2121 "" + i__6[1] = 1, a__5[1] = "q"; +#line 2121 "" + i__6[2] = 1, a__5[2] = all_1.ulq + ( + commvl_1.ivx + all_1.ibmcnt[ + commvl_1.ivx - 1] * 24 - 25); +#line 2121 "" + i__6[3] = 1, a__5[3] = "p"; +#line 2121 "" + i__6[4] = lnoten, a__5[4] = noteq; +#line 2121 "" + s_cat(notexq, a__5, i__6, &c__5, (ftnlen)79); +#line 2123 "" + } else { +/* Writing concatenation */ +#line 2124 "" + i__4[0] = *lnote, a__3[0] = notexq; +#line 2124 "" + i__4[1] = 1, a__3[1] = all_1.sq; +#line 2124 "" + i__4[2] = 1, a__3[2] = "q"; +#line 2124 "" + i__4[3] = 1, a__3[3] = all_1.ulq + ( + commvl_1.ivx + all_1.ibmcnt[ + commvl_1.ivx - 1] * 24 - 25); +#line 2124 "" + i__4[4] = 1, a__3[4] = "p"; +#line 2124 "" + i__4[5] = lnoten, a__3[5] = noteq; +#line 2124 "" + s_cat(notexq, a__3, i__4, &c__6, (ftnlen)79); +/* * //ulq(ivx,ibmcnt(ivx))//noteq(1:lnoten) */ +#line 2127 "" + } +/* lnote = lnote+3+lnoten */ +#line 2129 "" + *lnote = *lnote + 4 + lnoten; +#line 2130 "" } else { +#line 2131 "" + if (*lnote == 0) { /* Writing concatenation */ -#line 2104 "" - i__6[0] = *lnote, a__5[0] = notexq; -#line 2104 "" - i__6[1] = 1, a__5[1] = all_1.sq; -#line 2104 "" - i__6[2] = 1, a__5[2] = "q"; -#line 2104 "" - i__6[3] = 1, a__5[3] = all_1.ulq + (commvl_1.ivx - + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - - 25); -#line 2104 "" - i__6[4] = lnoten, a__5[4] = noteq; -#line 2104 "" - s_cat(notexq, a__5, i__6, &c__5, (ftnlen)79); -#line 2106 "" +#line 2132 "" + i__5[0] = 1, a__4[0] = all_1.sq; +#line 2132 "" + i__5[1] = 1, a__4[1] = "q"; +#line 2132 "" + i__5[2] = 1, a__4[2] = all_1.ulq + ( + commvl_1.ivx + all_1.ibmcnt[ + commvl_1.ivx - 1] * 24 - 25); +#line 2132 "" + i__5[3] = lnoten, a__4[3] = noteq; +#line 2132 "" + s_cat(notexq, a__4, i__5, &c__4, (ftnlen)79); +#line 2134 "" + } else { +/* Writing concatenation */ +#line 2135 "" + i__6[0] = *lnote, a__5[0] = notexq; +#line 2135 "" + i__6[1] = 1, a__5[1] = all_1.sq; +#line 2135 "" + i__6[2] = 1, a__5[2] = "q"; +#line 2135 "" + i__6[3] = 1, a__5[3] = all_1.ulq + ( + commvl_1.ivx + all_1.ibmcnt[ + commvl_1.ivx - 1] * 24 - 25); +#line 2135 "" + i__6[4] = lnoten, a__5[4] = noteq; +#line 2135 "" + s_cat(notexq, a__5, i__6, &c__5, (ftnlen)79); +#line 2137 "" + } +#line 2138 "" + *lnote = *lnote + 3 + lnoten; +#line 2139 "" } -#line 2107 "" - *lnote = *lnote + 3 + lnoten; -#line 2108 "" +#line 2140 "" if (bit_test(all_1.irest[commvl_1.ivx + (ip - 1) * 24 - 25],2) && all_1.nodur[commvl_1.ivx + ip * 24 - 25] == 24 || all_1.nodur[commvl_1.ivx + ip * 24 - 25] == 12) { /* Writing concatenation */ -#line 2110 "" +#line 2142 "" i__7[0] = *lnote, a__6[0] = notexq; -#line 2110 "" +#line 2142 "" i__7[1] = 1, a__6[1] = all_1.sq; -#line 2110 "" +#line 2142 "" i__7[2] = 3, a__6[2] = "slz"; -#line 2110 "" +#line 2142 "" s_cat(notexq, a__6, i__7, &c__3, (ftnlen)79); -#line 2111 "" +#line 2143 "" *lnote += 4; -#line 2112 "" +#line 2144 "" } -#line 2113 "" +#line 2145 "" } -#line 2114 "" +#line 2146 "" } else if (bit_test(all_1.irest[commvl_1.ivx + (ip - 1) * 24 - 25],2)) { /* 2nd note of unbeamed quarter or 8th trem; make quarter note */ /* Get stemlength change */ -#line 2119 "" +#line 2151 "" *lnote = 46; -#line 2120 "" +#line 2152 "" nindent = igetbits_(&all_1.irest[commvl_1.ivx + (ip - 1) * 24 - 25], &c__2, &c__5); -#line 2121 "" +#line 2153 "" if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25] == 'u') { -#line 2122 "" +#line 2154 "" slen = (nindent + 4.5f + comxtup_1.nolev1[ commvl_1.ivx - 1] - nole + (all_1.eskz[ commvl_1.ivx + ip * 24 - 25] - all_1.eskz[ commvl_1.ivx + (ip - 1) * 24 - 25] - .7f) * 1.3f * comxtup_1.islope[commvl_1.ivx - 1] / all_1.slfac) * .6667f; -#line 2125 "" +#line 2157 "" } else { -#line 2126 "" +#line 2158 "" slen = (nindent + 4.5f - comxtup_1.nolev1[ commvl_1.ivx - 1] + nole - (all_1.eskz[ commvl_1.ivx + ip * 24 - 25] - all_1.eskz[ commvl_1.ivx + (ip - 1) * 24 - 25] - .7f) * 1.3f * comxtup_1.islope[commvl_1.ivx - 1] / all_1.slfac) * .6667f; -#line 2129 "" +#line 2161 "" } -#line 2130 "" +#line 2162 "" s_wsfi(&io___153); -#line 2130 "" +#line 2162 "" do_fio(&c__1, (char *)&slen, (ftnlen)sizeof(real)); -#line 2130 "" +#line 2162 "" e_wsfi(); /* Writing concatenation */ -#line 2131 "" +#line 2163 "" i__6[0] = 46, a__5[0] = notexq; -#line 2131 "" +#line 2163 "" i__6[1] = 1, a__5[1] = all_1.sq; -#line 2131 "" +#line 2163 "" i__6[2] = 4, a__5[2] = "slx{"; -#line 2131 "" +#line 2163 "" i__6[3] = 4, a__5[3] = tempq; -#line 2131 "" +#line 2163 "" i__6[4] = 1, a__5[4] = "}"; -#line 2131 "" +#line 2163 "" s_cat(notexq, a__5, i__6, &c__5, (ftnlen)79); -#line 2132 "" +#line 2164 "" *lnote += 10; /* if (lnote .eq. 0) then */ /* notexq = sq//'h'//ulq(ivx,ibmcnt(ivx))//noteq */ @@ -5423,349 +5485,381 @@ L1: /* Check for dotted unbeamed tremolo */ -#line 2143 "" +#line 2175 "" if ((r__1 = all_1.nodur[commvl_1.ivx + ip * 24 - 25] / 12.f - all_1.nodur[commvl_1.ivx + ip * 24 - 25] / 12, dabs(r__1)) < .001f) { /* Need a dot */ -#line 2147 "" +#line 2179 "" if (lnoten == 1) { /* Writing concatenation */ -#line 2148 "" +#line 2180 "" i__3[0] = 1, a__2[0] = " "; -#line 2148 "" +#line 2180 "" i__3[1] = 1, a__2[1] = noteq; -#line 2148 "" +#line 2180 "" s_cat(noteq, a__2, i__3, &c__2, (ftnlen)8); -#line 2149 "" +#line 2181 "" lnoten = 2; -#line 2150 "" +#line 2182 "" } -#line 2151 "" +#line 2183 "" if (*lnote == 0) { /* Writing concatenation */ -#line 2152 "" +#line 2184 "" i__7[0] = 1, a__6[0] = all_1.sq; -#line 2152 "" +#line 2184 "" i__7[1] = 2, a__6[1] = "pt"; -#line 2152 "" +#line 2184 "" i__7[2] = lnoten, a__6[2] = noteq; -#line 2152 "" +#line 2184 "" s_cat(notexq, a__6, i__7, &c__3, (ftnlen)79); -#line 2153 "" +#line 2185 "" } else { /* Writing concatenation */ -#line 2154 "" +#line 2186 "" i__5[0] = *lnote, a__4[0] = notexq; -#line 2154 "" +#line 2186 "" i__5[1] = 1, a__4[1] = all_1.sq; -#line 2154 "" +#line 2186 "" i__5[2] = 2, a__4[2] = "pt"; -#line 2154 "" +#line 2186 "" i__5[3] = lnoten, a__4[3] = noteq; -#line 2154 "" +#line 2186 "" s_cat(notexq, a__4, i__5, &c__4, (ftnlen)79); -#line 2155 "" +#line 2187 "" } -#line 2156 "" +#line 2188 "" *lnote = *lnote + 3 + lnoten; -#line 2157 "" +#line 2189 "" i__1 = ncmid_(&all_1.iv, &ip); -#line 2157 "" +#line 2189 "" notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); -#line 2158 "" +#line 2190 "" if (lnoten == 1) { /* Writing concatenation */ -#line 2159 "" +#line 2191 "" i__3[0] = 1, a__2[0] = " "; -#line 2159 "" +#line 2191 "" i__3[1] = 1, a__2[1] = noteq; -#line 2159 "" +#line 2191 "" s_cat(noteq, a__2, i__3, &c__2, (ftnlen)8); -#line 2160 "" +#line 2192 "" lnoten = 2; -#line 2161 "" +#line 2193 "" } -#line 2162 "" +#line 2194 "" } /* Writing concatenation */ -#line 2163 "" +#line 2195 "" i__8[0] = *lnote, a__7[0] = notexq; -#line 2163 "" +#line 2195 "" i__8[1] = 1, a__7[1] = all_1.sq; -#line 2163 "" +#line 2195 "" i__8[2] = 1, a__7[2] = "q"; -#line 2163 "" +#line 2195 "" i__8[3] = 1, a__7[3] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2163 "" +#line 2195 "" i__8[4] = lnoten, a__7[4] = noteq; -#line 2163 "" +#line 2195 "" i__8[5] = 1, a__7[5] = all_1.sq; -#line 2163 "" +#line 2195 "" i__8[6] = 3, a__7[6] = "slz"; -#line 2163 "" +#line 2195 "" s_cat(notexq, a__7, i__8, &c__7, (ftnlen)79); /* * //sq//'stemcut' */ /* lnote=lnote+3+lnoten+8 */ -#line 2168 "" +#line 2200 "" *lnote = *lnote + 3 + lnoten + 4; -#line 2169 "" +#line 2201 "" } else if (multip == -1) { /* Writing concatenation */ -#line 2170 "" +#line 2202 "" i__5[0] = 1, a__4[0] = all_1.sq; -#line 2170 "" +#line 2202 "" i__5[1] = 1, a__4[1] = "h"; -#line 2170 "" +#line 2202 "" i__5[2] = 1, a__4[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2170 "" +#line 2202 "" i__5[3] = lnoten, a__4[3] = noteq; -#line 2170 "" +#line 2202 "" s_cat(notexq, a__4, i__5, &c__4, (ftnlen)79); -#line 2171 "" +#line 2203 "" *lnote = lnoten + 3; -#line 2172 "" +#line 2204 "" } else if (multip == 1) { /* Writing concatenation */ -#line 2173 "" +#line 2205 "" i__5[0] = 1, a__4[0] = all_1.sq; -#line 2173 "" +#line 2205 "" i__5[1] = 1, a__4[1] = "c"; -#line 2173 "" +#line 2205 "" i__5[2] = 1, a__4[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2173 "" +#line 2205 "" i__5[3] = lnoten, a__4[3] = noteq; -#line 2173 "" +#line 2205 "" s_cat(notexq, a__4, i__5, &c__4, (ftnlen)79); -#line 2174 "" +#line 2206 "" *lnote = lnoten + 3; -#line 2175 "" +#line 2207 "" } else if (multip == 2) { /* Writing concatenation */ -#line 2176 "" +#line 2208 "" i__5[0] = 1, a__4[0] = all_1.sq; -#line 2176 "" +#line 2208 "" i__5[1] = 2, a__4[1] = "cc"; -#line 2176 "" +#line 2208 "" i__5[2] = 1, a__4[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2176 "" +#line 2208 "" i__5[3] = lnoten, a__4[3] = noteq; -#line 2176 "" +#line 2208 "" s_cat(notexq, a__4, i__5, &c__4, (ftnlen)79); -#line 2177 "" +#line 2209 "" *lnote = lnoten + 4; -#line 2178 "" +#line 2210 "" } else if (multip == 3) { /* Writing concatenation */ -#line 2179 "" +#line 2211 "" i__5[0] = 1, a__4[0] = all_1.sq; -#line 2179 "" +#line 2211 "" i__5[1] = 3, a__4[1] = "ccc"; -#line 2179 "" +#line 2211 "" i__5[2] = 1, a__4[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2179 "" +#line 2211 "" i__5[3] = lnoten, a__4[3] = noteq; -#line 2179 "" +#line 2211 "" s_cat(notexq, a__4, i__5, &c__4, (ftnlen)79); -#line 2180 "" +#line 2212 "" *lnote = lnoten + 5; -#line 2181 "" +#line 2213 "" } else if (multip == -2) { /* Writing concatenation */ -#line 2182 "" +#line 2214 "" i__7[0] = 1, a__6[0] = all_1.sq; -#line 2182 "" +#line 2214 "" i__7[1] = 2, a__6[1] = "wh"; -#line 2182 "" +#line 2214 "" i__7[2] = lnoten, a__6[2] = noteq; -#line 2182 "" +#line 2214 "" s_cat(notexq, a__6, i__7, &c__3, (ftnlen)79); -#line 2183 "" +#line 2215 "" *lnote = lnoten + 3; -#line 2184 "" +#line 2216 "" } else if (multip == -3) { /* Writing concatenation */ -#line 2185 "" +#line 2217 "" i__7[0] = 1, a__6[0] = all_1.sq; -#line 2185 "" +#line 2217 "" i__7[1] = 5, a__6[1] = "breve"; -#line 2185 "" +#line 2217 "" i__7[2] = lnoten, a__6[2] = noteq; -#line 2185 "" +#line 2217 "" s_cat(notexq, a__6, i__7, &c__3, (ftnlen)79); -#line 2186 "" +#line 2218 "" *lnote = lnoten + 6; -#line 2187 "" +#line 2219 "" } else { -#line 2188 "" +#line 2220 "" s_wsle(&io___154); -#line 2188 "" +#line 2220 "" e_wsle(); -#line 2189 "" +#line 2221 "" s_wsle(&io___155); -#line 2189 "" +#line 2221 "" do_lio(&c__9, &c__1, "(Error in beamend, send source to "\ "Dr. Don)", (ftnlen)42); -#line 2189 "" +#line 2221 "" e_wsle(); -#line 2190 "" +#line 2222 "" stop1_(); -#line 2191 "" +#line 2223 "" } -#line 2192 "" +#line 2224 "" } else { /* Prior note is regular-dotted so this one is halved */ -#line 2196 "" +#line 2228 "" + *lnote = lnoten + 3; +#line 2229 "" if (multip == 0) { /* Writing concatenation */ -#line 2197 "" +#line 2230 "" i__5[0] = 1, a__4[0] = all_1.sq; -#line 2197 "" +#line 2230 "" i__5[1] = 1, a__4[1] = "c"; -#line 2197 "" +#line 2230 "" i__5[2] = 1, a__4[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2197 "" +#line 2230 "" i__5[3] = 8, a__4[3] = noteq; -#line 2197 "" +#line 2230 "" s_cat(notexq, a__4, i__5, &c__4, (ftnlen)79); -#line 2198 "" +#line 2231 "" } else if (multip == -1) { /* Writing concatenation */ -#line 2199 "" +#line 2232 "" i__5[0] = 1, a__4[0] = all_1.sq; -#line 2199 "" +#line 2232 "" i__5[1] = 1, a__4[1] = "q"; -#line 2199 "" +#line 2232 "" i__5[2] = 1, a__4[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2199 "" +#line 2232 "" i__5[3] = 8, a__4[3] = noteq; -#line 2199 "" +#line 2232 "" s_cat(notexq, a__4, i__5, &c__4, (ftnlen)79); -#line 2200 "" +#line 2233 "" } else if (multip == -2) { /* Writing concatenation */ -#line 2201 "" +#line 2234 "" i__5[0] = 1, a__4[0] = all_1.sq; -#line 2201 "" +#line 2234 "" i__5[1] = 1, a__4[1] = "h"; -#line 2201 "" +#line 2234 "" i__5[2] = 1, a__4[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2201 "" +#line 2234 "" i__5[3] = 8, a__4[3] = noteq; -#line 2201 "" +#line 2234 "" s_cat(notexq, a__4, i__5, &c__4, (ftnlen)79); -#line 2202 "" +#line 2235 "" + } else if (multip == 1) { +/* Writing concatenation */ +#line 2236 "" + i__5[0] = 1, a__4[0] = all_1.sq; +#line 2236 "" + i__5[1] = 2, a__4[1] = "cc"; +#line 2236 "" + i__5[2] = 1, a__4[2] = all_1.ulq + (commvl_1.ivx + + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); +#line 2236 "" + i__5[3] = 8, a__4[3] = noteq; +#line 2236 "" + s_cat(notexq, a__4, i__5, &c__4, (ftnlen)79); +#line 2237 "" + *lnote = lnoten + 4; +#line 2238 "" + } else if (multip == 2) { +/* Writing concatenation */ +#line 2239 "" + i__5[0] = 1, a__4[0] = all_1.sq; +#line 2239 "" + i__5[1] = 3, a__4[1] = "ccc"; +#line 2239 "" + i__5[2] = 1, a__4[2] = all_1.ulq + (commvl_1.ivx + + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); +#line 2239 "" + i__5[3] = 8, a__4[3] = noteq; +#line 2239 "" + s_cat(notexq, a__4, i__5, &c__4, (ftnlen)79); +#line 2240 "" + *lnote = lnoten + 5; +#line 2241 "" } -#line 2203 "" - *lnote = lnoten + 3; -#line 2204 "" +#line 2242 "" } -#line 2205 "" +#line 2243 "" } -#line 2206 "" +#line 2244 "" return 0; -#line 2207 "" +#line 2245 "" } /* End of block for unbeamed. Problem if beamed but ends w/ rest. Try just */ /* skipping the call in that case. */ -#line 2212 "" +#line 2250 "" if (! bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],0)) { -#line 2213 "" +#line 2251 "" i__1 = ncmid_(&all_1.iv, &ip); -#line 2213 "" +#line 2251 "" notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); -#line 2214 "" +#line 2252 "" } /* call notefq(noteq,lnoten,nole,ncmid(iv,ip)) */ /* lnote = 0 */ /* New way, with flipend, which was computed in beamstrt. */ -#line 2220 "" +#line 2258 "" if (strtmid_1.flipend[commvl_1.ivx - 1] && bit_test(all_1.ipl[ commvl_1.ivx + ip * 24 - 25],30)) { -#line 2221 "" +#line 2259 "" i__1 = 225 - *(unsigned char *)&all_1.ulq[commvl_1.ivx + all_1.ibmcnt[ commvl_1.ivx - 1] * 24 - 25]; -#line 2221 "" +#line 2259 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 2221 "" +#line 2259 "" *(unsigned char *)&all_1.ulq[commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25] = *(unsigned char *)&ch__1[0]; -#line 2222 "" +#line 2260 "" strtmid_1.flipend[commvl_1.ivx - 1] = FALSE_; -#line 2223 "" +#line 2261 "" } -#line 2224 "" +#line 2262 "" if (ip > all_1.ibm1[commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25]) { /* This is not a one-noter from beam-jump. Check if multiplicity has increased */ -#line 2228 "" +#line 2266 "" if (bit_test(all_1.irest[commvl_1.ivx + (ip - 1) * 24 - 25],0)) { /* Prior note is a rest, check one before that */ -#line 2232 "" +#line 2270 "" mp = (all_1.mult[commvl_1.ivx + (ip - 2) * 24 - 25] & 15) - 8; -#line 2233 "" +#line 2271 "" } else { -#line 2234 "" +#line 2272 "" mp = (all_1.mult[commvl_1.ivx + (ip - 1) * 24 - 25] & 15) - 8; -#line 2235 "" +#line 2273 "" } -#line 2236 "" +#line 2274 "" if (multip > mp) { /* Assume 1-3, 2-3, or 1-2 */ -#line 2240 "" +#line 2278 "" i__1 = mp + 1; -#line 2240 "" +#line 2278 "" for (imp = multip; imp >= i__1; --imp) { -#line 2241 "" +#line 2279 "" ntrbbb_(&imp, "t", all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[ commvl_1.ivx - 1] * 24 - 25), &commvl_1.ivx, notexq, lnote, (ftnlen)1, (ftnlen)1, (ftnlen)79); -#line 2242 "" +#line 2280 "" /* L2: */ -#line 2242 "" +#line 2280 "" } -#line 2243 "" +#line 2281 "" } else if (bit_test(all_1.nacc[commvl_1.ivx + (ip - 1) * 24 - 25],27)) { /* 2nd member of dotted xtup */ -#line 2247 "" +#line 2285 "" i__1 = multip + 1; -#line 2247 "" +#line 2285 "" ntrbbb_(&i__1, "t", all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[ commvl_1.ivx - 1] * 24 - 25), &commvl_1.ivx, notexq, lnote, (ftnlen)1, (ftnlen)1, (ftnlen)79); -#line 2249 "" +#line 2287 "" } -#line 2250 "" +#line 2288 "" } /* Beam termination and direction analysis */ -#line 2254 "" +#line 2292 "" if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],23) && ! combjmp_1.isbjmp) { @@ -5774,477 +5868,470 @@ L1: /* voice of the 2nd part of jumped beam. (May need special treatment for */ /* multi-segment jump-beams */ -#line 2261 "" +#line 2299 "" combjmp_1.isbjmp = TRUE_; -#line 2262 "" +#line 2300 "" combjmp_1.ivbj1 = commvl_1.ivx; -#line 2263 "" +#line 2301 "" + combjmp_1.multbj1 = 15 & all_1.mult[commvl_1.ivx + ip * 24 - 25] - 8; +#line 2302 "" combjmp_1.ivbj2 = 0; -#line 2264 "" +#line 2303 "" } -#line 2265 "" +#line 2304 "" if (! bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],23)) { /* This is either a normal beamend or end of a sequence of jump-beam segments, */ /* (170409) or rest at end of xtup */ /* so some sort of termination is required */ -#line 2271 "" +#line 2310 "" *(unsigned char *)ulqq = *(unsigned char *)&all_1.ulq[commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25]; -#line 2272 "" +#line 2311 "" if (! combjmp_1.isbjmp || commvl_1.ivx != combjmp_1.ivbj2) { -#line 2273 "" +#line 2312 "" if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],0)) { /* Xtup ends with rest */ -#line 2277 "" +#line 2316 "" if (multip == 1) { /* Writing concatenation */ -#line 2278 "" +#line 2317 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 2278 "" +#line 2317 "" i__3[1] = 2, a__2[1] = "ds"; -#line 2278 "" +#line 2317 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2279 "" +#line 2318 "" *lnote = 3; -#line 2280 "" +#line 2319 "" } else if (multip == 2) { /* Writing concatenation */ -#line 2281 "" +#line 2320 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 2281 "" +#line 2320 "" i__3[1] = 2, a__2[1] = "qs"; -#line 2281 "" +#line 2320 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2282 "" +#line 2321 "" *lnote = 3; -#line 2283 "" +#line 2322 "" } else if (multip == 3) { /* Writing concatenation */ -#line 2284 "" +#line 2323 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 2284 "" +#line 2323 "" i__3[1] = 2, a__2[1] = "hs"; -#line 2284 "" +#line 2323 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2285 "" +#line 2324 "" *lnote = 3; -#line 2286 "" +#line 2325 "" } /* 170801 Borrowed from main rest entry way down below to get level adjustment: */ /* BUT nole is like 102, not 2, so subtracted 100 for nole. Why different??? */ /* "... Now raise if necc." */ -#line 2292 "" +#line 2331 "" if (bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],29)) { /* Blank rest */ /* Writing concatenation */ -#line 2296 "" +#line 2335 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 2296 "" +#line 2335 "" i__3[1] = 2, a__2[1] = "sk"; -#line 2296 "" +#line 2335 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2297 "" +#line 2336 "" *lnote = 3; -#line 2298 "" +#line 2337 "" } else if (nole != 0) { /* Bandaid. Odd case with rests in xtups + 2 voices where came thru here with */ /* nolev=-4 but expected 100+/-. Try to fix. */ -#line 2303 "" +#line 2342 "" if (abs(nole) < 30) { -#line 2303 "" +#line 2342 "" nole += 100; -#line 2303 "" +#line 2342 "" } -#line 2305 "" +#line 2344 "" if ((i__1 = nole - 100, abs(i__1)) < 10) { -#line 2306 "" +#line 2345 "" i__9 = (i__1 = nole - 100, abs(i__1)) + 48; -#line 2306 "" +#line 2345 "" chax_(ch__1, (ftnlen)1, &i__9); -#line 2306 "" +#line 2345 "" s_copy(noteq, ch__1, (ftnlen)8, (ftnlen)1); -#line 2307 "" +#line 2346 "" lnoten = 1; -#line 2308 "" +#line 2347 "" } else { -#line 2309 "" +#line 2348 "" s_wsfi(&io___159); -#line 2309 "" +#line 2348 "" i__9 = (i__1 = nole - 100, abs(i__1)); -#line 2309 "" +#line 2348 "" do_fio(&c__1, (char *)&i__9, (ftnlen)sizeof(integer)); -#line 2309 "" +#line 2348 "" e_wsfi(); -#line 2310 "" +#line 2349 "" lnoten = 2; -#line 2311 "" +#line 2350 "" } /* ??? if (nole .gt. 0) then */ -#line 2313 "" +#line 2352 "" if (nole > 100) { /* Writing concatenation */ -#line 2314 "" +#line 2353 "" i__4[0] = 1, a__3[0] = all_1.sq; -#line 2314 "" +#line 2353 "" i__4[1] = 5, a__3[1] = "raise"; -#line 2314 "" +#line 2353 "" i__4[2] = lnoten, a__3[2] = noteq; -#line 2314 "" +#line 2353 "" i__4[3] = 1, a__3[3] = all_1.sq; -#line 2314 "" +#line 2353 "" i__4[4] = 9, a__3[4] = "internote"; -#line 2314 "" +#line 2353 "" i__4[5] = *lnote, a__3[5] = notexq; -#line 2314 "" +#line 2353 "" s_cat(notexq, a__3, i__4, &c__6, (ftnlen)79); -#line 2316 "" +#line 2355 "" } else { /* Writing concatenation */ -#line 2317 "" +#line 2356 "" i__4[0] = 1, a__3[0] = all_1.sq; -#line 2317 "" +#line 2356 "" i__4[1] = 5, a__3[1] = "lower"; -#line 2317 "" +#line 2356 "" i__4[2] = lnoten, a__3[2] = noteq; -#line 2317 "" +#line 2356 "" i__4[3] = 1, a__3[3] = all_1.sq; -#line 2317 "" +#line 2356 "" i__4[4] = 9, a__3[4] = "internote"; -#line 2317 "" +#line 2356 "" i__4[5] = *lnote, a__3[5] = notexq; -#line 2317 "" +#line 2356 "" s_cat(notexq, a__3, i__4, &c__6, (ftnlen)79); -#line 2319 "" +#line 2358 "" } -#line 2320 "" +#line 2359 "" *lnote = lnoten + 16 + *lnote; -#line 2321 "" +#line 2360 "" } -#line 2322 "" +#line 2361 "" return 0; -#line 2323 "" +#line 2362 "" } else { /* Normal termination */ -#line 2327 "" +#line 2366 "" i__1 = commvl_1.ivx % 24; -#line 2327 "" +#line 2366 "" ntrbbb_(&c__1, "t", ulqq, &i__1, notexq, lnote, (ftnlen)1, ( ftnlen)1, (ftnlen)79); -#line 2328 "" +#line 2367 "" } -#line 2329 "" +#line 2368 "" } else { /* Terminate a sequence of jump-beam segments. */ -#line 2333 "" +#line 2372 "" i__1 = 225 - *(unsigned char *)ulqq; -#line 2333 "" +#line 2372 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 2333 "" +#line 2372 "" *(unsigned char *)ulqq = *(unsigned char *)&ch__1[0]; -#line 2334 "" +#line 2373 "" i__1 = combjmp_1.ivbj1 % 24; -#line 2334 "" +#line 2373 "" ntrbbb_(&c__1, "t", ulqq, &i__1, notexq, lnote, (ftnlen)1, ( ftnlen)1, (ftnlen)79); -#line 2335 "" +#line 2374 "" } -#line 2336 "" +#line 2375 "" } /* Check for end of 2nd seg of staff-jump xtup chord blank rest */ /* if (isbjmp.and.ivx.eq.ivbj2 */ -#line 2341 "" +#line 2380 "" if (combjmp_1.isbjmp && bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25], 29)) { /* Writing concatenation */ -#line 2343 "" +#line 2382 "" i__7[0] = *lnote, a__6[0] = notexq; -#line 2343 "" +#line 2382 "" i__7[1] = 1, a__6[1] = all_1.sq; -#line 2343 "" +#line 2382 "" i__7[2] = 2, a__6[2] = "sk"; -#line 2343 "" +#line 2382 "" s_cat(notexq, a__6, i__7, &c__3, (ftnlen)79); -#line 2344 "" +#line 2383 "" return 0; -#line 2345 "" +#line 2384 "" } /* And now the note, checking for open-head beamed tremolo */ -#line 2349 "" +#line 2388 "" if (bit_test(all_1.irest[commvl_1.ivx + (ip - 1) * 24 - 25],2)) { /* Check for dotted tremolo */ -#line 2353 "" +#line 2392 "" if ((r__1 = all_1.nodur[commvl_1.ivx + ip * 24 - 25] / 12.f - all_1.nodur[commvl_1.ivx + ip * 24 - 25] / 12, dabs(r__1)) < .001f) { /* Need a dot */ -#line 2357 "" - if (lnoten == 1) { -/* Writing concatenation */ -#line 2358 "" - i__3[0] = 1, a__2[0] = " "; -#line 2358 "" - i__3[1] = 1, a__2[1] = noteq; -#line 2358 "" - s_cat(noteq, a__2, i__3, &c__2, (ftnlen)8); -#line 2359 "" - lnoten = 2; -#line 2360 "" - } -#line 2361 "" - if (*lnote == 0) { +#line 2396 "" + if (all_1.nodur[commvl_1.ivx + ip * 24 - 25] == 24 || all_1.nodur[ + commvl_1.ivx + ip * 24 - 25] == 12) { + +/* Solid notehead */ + /* Writing concatenation */ -#line 2362 "" - i__7[0] = 1, a__6[0] = all_1.sq; -#line 2362 "" - i__7[1] = 2, a__6[1] = "pt"; -#line 2362 "" - i__7[2] = lnoten, a__6[2] = noteq; -#line 2362 "" +#line 2400 "" + i__7[0] = *lnote, a__6[0] = notexq; +#line 2400 "" + i__7[1] = 1, a__6[1] = all_1.sq; +#line 2400 "" + i__7[2] = 3, a__6[2] = "qbp"; +#line 2400 "" s_cat(notexq, a__6, i__7, &c__3, (ftnlen)79); -#line 2363 "" +#line 2401 "" } else { + +/* Assuming open notehead and nodur = 48 */ + /* Writing concatenation */ -#line 2364 "" - i__5[0] = *lnote, a__4[0] = notexq; -#line 2364 "" - i__5[1] = 1, a__4[1] = all_1.sq; -#line 2364 "" - i__5[2] = 2, a__4[2] = "pt"; -#line 2364 "" - i__5[3] = lnoten, a__4[3] = noteq; -#line 2364 "" - s_cat(notexq, a__4, i__5, &c__4, (ftnlen)79); -#line 2365 "" - } -#line 2366 "" - *lnote = *lnote + 3 + lnoten; -#line 2367 "" - i__1 = ncmid_(&all_1.iv, &ip); -#line 2367 "" - notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); -/* Octave changes? */ -#line 2368 "" - } -#line 2369 "" - if (all_1.nodur[commvl_1.ivx + ip * 24 - 25] == 32 || all_1.nodur[ - commvl_1.ivx + ip * 24 - 25] == 48) { -#line 2370 "" - if (*lnote > 0) { -/* Writing concatenation */ -#line 2371 "" +#line 2405 "" i__7[0] = *lnote, a__6[0] = notexq; -#line 2371 "" +#line 2405 "" i__7[1] = 1, a__6[1] = all_1.sq; -#line 2371 "" - i__7[2] = 2, a__6[2] = "hb"; -#line 2371 "" +#line 2405 "" + i__7[2] = 3, a__6[2] = "hbp"; +#line 2405 "" s_cat(notexq, a__6, i__7, &c__3, (ftnlen)79); -#line 2372 "" - } else { -/* Writing concatenation */ -#line 2373 "" - i__3[0] = 1, a__2[0] = all_1.sq; -#line 2373 "" - i__3[1] = 2, a__2[1] = "hb"; -#line 2373 "" - s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2374 "" +#line 2406 "" } -#line 2375 "" +#line 2407 "" + *lnote += 4; +#line 2408 "" } else { -#line 2376 "" - if (*lnote > 0) { +#line 2409 "" + if (all_1.nodur[commvl_1.ivx + ip * 24 - 25] == 32 || all_1.nodur[ + commvl_1.ivx + ip * 24 - 25] == 48) { +#line 2410 "" + if (*lnote > 0) { /* Writing concatenation */ -#line 2377 "" - i__7[0] = *lnote, a__6[0] = notexq; -#line 2377 "" - i__7[1] = 1, a__6[1] = all_1.sq; -#line 2377 "" - i__7[2] = 2, a__6[2] = "qb"; -#line 2377 "" - s_cat(notexq, a__6, i__7, &c__3, (ftnlen)79); -#line 2378 "" +#line 2411 "" + i__7[0] = *lnote, a__6[0] = notexq; +#line 2411 "" + i__7[1] = 1, a__6[1] = all_1.sq; +#line 2411 "" + i__7[2] = 2, a__6[2] = "hb"; +#line 2411 "" + s_cat(notexq, a__6, i__7, &c__3, (ftnlen)79); +#line 2412 "" + } else { +/* Writing concatenation */ +#line 2413 "" + i__3[0] = 1, a__2[0] = all_1.sq; +#line 2413 "" + i__3[1] = 2, a__2[1] = "hb"; +#line 2413 "" + s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); +#line 2414 "" + } +#line 2415 "" } else { +#line 2416 "" + if (*lnote > 0) { /* Writing concatenation */ -#line 2379 "" - i__3[0] = 1, a__2[0] = all_1.sq; -#line 2379 "" - i__3[1] = 2, a__2[1] = "qb"; -#line 2379 "" - s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2380 "" +#line 2417 "" + i__7[0] = *lnote, a__6[0] = notexq; +#line 2417 "" + i__7[1] = 1, a__6[1] = all_1.sq; +#line 2417 "" + i__7[2] = 2, a__6[2] = "qb"; +#line 2417 "" + s_cat(notexq, a__6, i__7, &c__3, (ftnlen)79); +#line 2418 "" + } else { +/* Writing concatenation */ +#line 2419 "" + i__3[0] = 1, a__2[0] = all_1.sq; +#line 2419 "" + i__3[1] = 2, a__2[1] = "qb"; +#line 2419 "" + s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); +#line 2420 "" + } +#line 2421 "" } -#line 2381 "" +#line 2422 "" + *lnote += 3; +#line 2423 "" } -#line 2382 "" +#line 2424 "" } else { /* No tremolo */ -#line 2386 "" +#line 2428 "" if (*lnote > 0) { /* Writing concatenation */ -#line 2387 "" +#line 2429 "" i__7[0] = *lnote, a__6[0] = notexq; -#line 2387 "" +#line 2429 "" i__7[1] = 1, a__6[1] = all_1.sq; -#line 2387 "" +#line 2429 "" i__7[2] = 2, a__6[2] = "qb"; -#line 2387 "" +#line 2429 "" s_cat(notexq, a__6, i__7, &c__3, (ftnlen)79); -#line 2388 "" +#line 2430 "" } else { /* Writing concatenation */ -#line 2389 "" +#line 2431 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 2389 "" +#line 2431 "" i__3[1] = 2, a__2[1] = "qb"; -#line 2389 "" +#line 2431 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2390 "" +#line 2432 "" } -#line 2391 "" +#line 2433 "" + *lnote += 3; +#line 2434 "" } -#line 2392 "" - *lnote += 3; -#line 2393 "" +#line 2435 "" isdotm = FALSE_; -#line 2394 "" +#line 2436 "" if (! comxtup_1.vxtup[commvl_1.ivx - 1]) { -#line 2395 "" +#line 2437 "" i__1 = log2_(&all_1.nodur[commvl_1.ivx + ip * 24 - 25]); -#line 2395 "" +#line 2437 "" if (pow_ii(&c__2, &i__1) != all_1.nodur[commvl_1.ivx + ip * 24 - 25]) { -#line 2396 "" +#line 2438 "" if (! bit_test(all_1.iornq[commvl_1.ivx + ip * 24 - 1],13)) { /* Writing concatenation */ -#line 2397 "" +#line 2439 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 2397 "" +#line 2439 "" i__3[1] = 1, a__2[1] = "p"; -#line 2397 "" +#line 2439 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2398 "" +#line 2440 "" } else { /* Writing concatenation */ -#line 2399 "" +#line 2441 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 2399 "" +#line 2441 "" i__3[1] = 1, a__2[1] = "m"; -#line 2399 "" +#line 2441 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2400 "" +#line 2442 "" isdotm = TRUE_; -#line 2401 "" +#line 2443 "" } -#line 2402 "" +#line 2444 "" ++(*lnote); -#line 2403 "" +#line 2445 "" } -#line 2404 "" +#line 2446 "" } /* 5/25/08 Allow >12 */ /* 5/9/10 Up to 24; replace 24 with 0 */ -#line 2409 "" +#line 2451 "" if (! (combjmp_1.isbjmp && commvl_1.ivx == combjmp_1.ivbj2)) { -#line 2410 "" +#line 2452 "" i__1 = commvl_1.ivx % 24; -#line 2410 "" +#line 2452 "" istring_(&i__1, tempq, &len, (ftnlen)4); -#line 2411 "" +#line 2453 "" } else { -#line 2412 "" +#line 2454 "" i__1 = combjmp_1.ivbj1 % 24; -#line 2412 "" +#line 2454 "" istring_(&i__1, tempq, &len, (ftnlen)4); -#line 2413 "" +#line 2455 "" } -#line 2414 "" +#line 2456 "" if (combjmp_1.isbjmp && commvl_1.ivx == combjmp_1.ivbj2 && ! bit_test( all_1.irest[commvl_1.ivx + ip * 24 - 25],23)) { -#line 2414 "" +#line 2456 "" combjmp_1.isbjmp = FALSE_; -#line 2414 "" +#line 2456 "" } /* Writing concatenation */ -#line 2416 "" +#line 2458 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 2416 "" +#line 2458 "" i__3[1] = len, a__2[1] = tempq; -#line 2416 "" +#line 2458 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2417 "" +#line 2459 "" *lnote += len; /* Writing concatenation */ -#line 2418 "" +#line 2460 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 2418 "" +#line 2460 "" i__3[1] = lnoten, a__2[1] = noteq; -#line 2418 "" +#line 2460 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2419 "" +#line 2461 "" *lnote += lnoten; -#line 2420 "" +#line 2462 "" if (isdotm) { -#line 2421 "" +#line 2463 "" if (lnoten == 1) { /* Writing concatenation */ -#line 2422 "" +#line 2464 "" i__5[0] = *lnote, a__4[0] = notexq; -#line 2422 "" +#line 2464 "" i__5[1] = 1, a__4[1] = "{"; -#line 2422 "" +#line 2464 "" i__5[2] = 1, a__4[2] = noteq; -#line 2422 "" +#line 2464 "" i__5[3] = 1, a__4[3] = "}"; -#line 2422 "" +#line 2464 "" s_cat(notexq, a__4, i__5, &c__4, (ftnlen)79); -#line 2423 "" +#line 2465 "" *lnote += 3; -#line 2424 "" +#line 2466 "" } else { -#line 2425 "" +#line 2467 "" i__1 = lnoten - 2; /* Writing concatenation */ -#line 2425 "" +#line 2467 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 2425 "" +#line 2467 "" i__3[1] = lnoten - 1 - i__1, a__2[1] = noteq + i__1; -#line 2425 "" +#line 2467 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2426 "" +#line 2468 "" ++(*lnote); -#line 2427 "" +#line 2469 "" } -#line 2428 "" +#line 2470 "" } -#line 2429 "" +#line 2471 "" return 0; } /* beamend_ */ @@ -6291,28 +6378,28 @@ L1: extern /* Subroutine */ int istring_(integer *, char *, integer *, ftnlen) ; -#line 2459 "" +#line 2501 "" *lnote = 0; -#line 2460 "" +#line 2502 "" ip = all_1.ipo[all_1.jn - 1]; -#line 2461 "" +#line 2503 "" nole = all_1.nolev[commvl_1.ivx + ip * 24 - 25]; /* Check for special situations with 2nds (see precrd) */ -#line 2465 "" +#line 2507 "" if (bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],30)) { -#line 2466 "" +#line 2508 "" --nole; -#line 2467 "" +#line 2509 "" } else if (bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],31)) { -#line 2468 "" +#line 2510 "" ++nole; -#line 2469 "" +#line 2511 "" } -#line 2470 "" +#line 2512 "" if (! bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],0)) { -#line 2471 "" +#line 2513 "" multip = (all_1.mult[commvl_1.ivx + ip * 24 - 25] & 15) - 8; /* if (btest(islur(ivx,ip-1),3)) multip = multip+1 */ @@ -6322,371 +6409,373 @@ L1: /* embedded xtup with number, due to ordering/octave feature. */ /* call notefq(noteq,lnoten,nolev(ivx,ip),ncmid(iv,ip)) */ -#line 2480 "" +#line 2522 "" } -#line 2481 "" +#line 2523 "" if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],28)) { -#line 2481 "" +#line 2523 "" comxtup_1.vxtup[commvl_1.ivx - 1] = TRUE_; -#line 2481 "" +#line 2523 "" } -#line 2482 "" +#line 2524 "" if (comxtup_1.vxtup[commvl_1.ivx - 1]) { /* In an xtup */ -#line 2486 "" +#line 2528 "" if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],0)) { /* Intermediate rest in xtup, put in the rest. Reset nodur so notex works OK */ -#line 2490 "" +#line 2532 "" i__1 = 4 - ((all_1.mult[commvl_1.ivx + ip * 24 - 25] & 15) - 8); -#line 2490 "" +#line 2532 "" all_1.nodur[commvl_1.ivx + ip * 24 - 25] = pow_ii(&c__2, &i__1); -#line 2491 "" +#line 2533 "" notex_(notexq, lnote, (ftnlen)79); /* Re-zero so next note does not get confused */ -#line 2495 "" +#line 2537 "" all_1.nodur[commvl_1.ivx + ip * 24 - 25] = 0; -#line 2496 "" +#line 2538 "" return 0; -#line 2497 "" +#line 2539 "" } -#line 2498 "" +#line 2540 "" if (! comdraw_1.drawbm[commvl_1.ivx - 1]) { /* Xtuplet with no beam, just put in the right kind of note */ -#line 2502 "" +#line 2544 "" if (bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],30)) { /* Forced stem direction */ -#line 2506 "" +#line 2548 "" ndsav = all_1.nodur[commvl_1.ivx + ip * 24 - 25]; -#line 2507 "" +#line 2549 "" i__1 = 4 - multip; -#line 2507 "" +#line 2549 "" all_1.nodur[commvl_1.ivx + ip * 24 - 25] = pow_ii(&c__2, & i__1); -#line 2508 "" +#line 2550 "" if (bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],19) || bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],27)) { -#line 2510 "" +#line 2552 "" all_1.nodur[commvl_1.ivx + ip * 24 - 25] = all_1.nodur[ commvl_1.ivx + ip * 24 - 25] * 3 / 2; -#line 2511 "" +#line 2553 "" } else if (bit_test(all_1.nacc[commvl_1.ivx + (ip - 1) * 24 - 25],27)) { -#line 2512 "" +#line 2554 "" all_1.nodur[commvl_1.ivx + ip * 24 - 25] /= 2; -#line 2513 "" +#line 2555 "" } -#line 2514 "" +#line 2556 "" notex_(notexq, lnote, (ftnlen)79); -#line 2515 "" +#line 2557 "" all_1.nodur[commvl_1.ivx + ip * 24 - 25] = ndsav; -#line 2516 "" +#line 2558 "" } else { /* Use ulq for stem direction */ -#line 2520 "" +#line 2562 "" i__1 = ncmid_(&all_1.iv, &ip); -#line 2520 "" +#line 2562 "" notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); -#line 2521 "" +#line 2563 "" if (lnoten == 1) { -#line 2521 "" +#line 2563 "" addblank_(noteq, &lnoten, (ftnlen)8); -#line 2521 "" +#line 2563 "" } -#line 2522 "" +#line 2564 "" *lnote = 3; -#line 2523 "" +#line 2565 "" if (! bit_test(all_1.nacc[commvl_1.ivx + (ip - 1) * 24 - 25], 27)) { /* Prior note of xtup is not regular-dotted */ -#line 2527 "" +#line 2569 "" if (multip == 0) { /* Writing concatenation */ -#line 2528 "" +#line 2570 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2528 "" +#line 2570 "" i__2[1] = 1, a__1[1] = "q"; -#line 2528 "" +#line 2570 "" i__2[2] = 1, a__1[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2528 "" +#line 2570 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2529 "" +#line 2571 "" } else if (multip == -1) { /* Writing concatenation */ -#line 2530 "" +#line 2572 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2530 "" +#line 2572 "" i__2[1] = 1, a__1[1] = "h"; -#line 2530 "" +#line 2572 "" i__2[2] = 1, a__1[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2530 "" +#line 2572 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2531 "" +#line 2573 "" } else if (multip == 1) { /* Writing concatenation */ -#line 2532 "" +#line 2574 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2532 "" +#line 2574 "" i__2[1] = 1, a__1[1] = "c"; -#line 2532 "" +#line 2574 "" i__2[2] = 1, a__1[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2532 "" +#line 2574 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2533 "" +#line 2575 "" } else if (multip == 2) { /* Writing concatenation */ -#line 2534 "" +#line 2576 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2534 "" +#line 2576 "" i__2[1] = 2, a__1[1] = "cc"; -#line 2534 "" +#line 2576 "" i__2[2] = 1, a__1[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2534 "" +#line 2576 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2535 "" +#line 2577 "" *lnote = 4; -#line 2536 "" +#line 2578 "" } else if (multip == 3) { /* Writing concatenation */ -#line 2537 "" +#line 2579 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2537 "" +#line 2579 "" i__2[1] = 3, a__1[1] = "ccc"; -#line 2537 "" +#line 2579 "" i__2[2] = 1, a__1[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2537 "" +#line 2579 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2538 "" +#line 2580 "" *lnote = 5; -#line 2539 "" +#line 2581 "" } else if (multip == -2) { /* Writing concatenation */ -#line 2540 "" +#line 2582 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 2540 "" +#line 2582 "" i__3[1] = 2, a__2[1] = "wh"; -#line 2540 "" +#line 2582 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2541 "" +#line 2583 "" } -#line 2542 "" +#line 2584 "" if (bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],27)) { /* This xtup note is regular dotted non-beamed xtup */ +/* notexq = notexq(1:3)//'p' */ +/* lnote = 4 */ /* Writing concatenation */ -#line 2546 "" - i__3[0] = 3, a__2[0] = notexq; -#line 2546 "" +#line 2590 "" + i__3[0] = *lnote, a__2[0] = notexq; +#line 2590 "" i__3[1] = 1, a__2[1] = "p"; -#line 2546 "" +#line 2590 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2547 "" - *lnote = 4; -#line 2548 "" +#line 2591 "" + ++(*lnote); +#line 2592 "" } -#line 2549 "" +#line 2593 "" } else { /* Prior note of xtup is regular-dotted so this one is halved */ -#line 2553 "" +#line 2597 "" if (multip == 2) { /* Writing concatenation */ -#line 2554 "" +#line 2598 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2554 "" +#line 2598 "" i__2[1] = 3, a__1[1] = "ccc"; -#line 2554 "" +#line 2598 "" i__2[2] = 1, a__1[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2554 "" +#line 2598 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2555 "" +#line 2599 "" *lnote = 5; -#line 2556 "" +#line 2600 "" } else if (multip == 1) { /* Writing concatenation */ -#line 2557 "" +#line 2601 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2557 "" +#line 2601 "" i__2[1] = 2, a__1[1] = "cc"; -#line 2557 "" +#line 2601 "" i__2[2] = 1, a__1[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2557 "" +#line 2601 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2558 "" +#line 2602 "" *lnote = 4; -#line 2559 "" +#line 2603 "" } else if (multip == 0) { /* Writing concatenation */ -#line 2560 "" +#line 2604 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2560 "" +#line 2604 "" i__2[1] = 1, a__1[1] = "c"; -#line 2560 "" +#line 2604 "" i__2[2] = 1, a__1[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2560 "" +#line 2604 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2561 "" +#line 2605 "" } else if (multip == -1) { /* Writing concatenation */ -#line 2562 "" +#line 2606 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2562 "" +#line 2606 "" i__2[1] = 1, a__1[1] = "q"; -#line 2562 "" +#line 2606 "" i__2[2] = 1, a__1[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2562 "" +#line 2606 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2563 "" +#line 2607 "" } else if (multip == -2) { /* Writing concatenation */ -#line 2564 "" +#line 2608 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2564 "" +#line 2608 "" i__2[1] = 1, a__1[1] = "h"; -#line 2564 "" +#line 2608 "" i__2[2] = 1, a__1[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2564 "" +#line 2608 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2565 "" +#line 2609 "" } -#line 2566 "" +#line 2610 "" } /* Writing concatenation */ -#line 2567 "" +#line 2611 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 2567 "" +#line 2611 "" i__3[1] = 8, a__2[1] = noteq; -#line 2567 "" +#line 2611 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2568 "" +#line 2612 "" *lnote += lnoten; -#line 2569 "" +#line 2613 "" } -#line 2570 "" +#line 2614 "" return 0; -#line 2571 "" +#line 2615 "" } else if (all_1.nodur[commvl_1.ivx + ip * 24 - 25] == 0) { /* In the beamed xtup but not the last note */ -#line 2575 "" +#line 2619 "" if (all_1.nodur[commvl_1.ivx + (ip - 1) * 24 - 25] > 0) { /* Embedded Xtup, mult>0, starts here. Put in number if needed */ -#line 2579 "" +#line 2623 "" ++comxtup_1.nxtinbm[commvl_1.ivx - 1]; -#line 2580 "" +#line 2624 "" iud = 1; -#line 2581 "" +#line 2625 "" if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + all_1.ibmcnt[ commvl_1.ivx - 1] * 24 - 25] == 'u') { -#line 2581 "" +#line 2625 "" iud = -1; -#line 2581 "" +#line 2625 "" } /* Get ip#, notelevel of middle note (or gap) in xtup */ -#line 2585 "" +#line 2629 "" ipmid = ip + comxtup_1.ntupv[commvl_1.ivx + comxtup_1.nxtinbm[ commvl_1.ivx - 1] * 24 - 25] / 2; -#line 2586 "" +#line 2630 "" i__1 = ncmid_(&all_1.iv, &ipmid); -#line 2586 "" +#line 2630 "" i__4 = (15 & all_1.mult[commvl_1.ivx + ipmid * 24 - 25]) - 8; -#line 2586 "" +#line 2630 "" xnlmid = (real) levrn_(&all_1.nolev[commvl_1.ivx + ipmid * 24 - 25], &all_1.irest[commvl_1.ivx + ipmid * 24 - 25], & iud, &i__1, &i__4); -#line 2588 "" +#line 2632 "" if (comxtup_1.ntupv[commvl_1.ivx + comxtup_1.nxtinbm[ commvl_1.ivx - 1] * 24 - 25] % 2 == 0) { -#line 2588 "" +#line 2632 "" i__4 = ipmid - 1; -#line 2588 "" +#line 2632 "" i__1 = ncmid_(&all_1.iv, &i__4); -#line 2588 "" +#line 2632 "" i__5 = (15 & all_1.mult[commvl_1.ivx + (ipmid - 1) * 24 - 25]) - 8; -#line 2588 "" +#line 2632 "" xnlmid = (xnlmid + levrn_(&all_1.nolev[commvl_1.ivx + ( ipmid - 1) * 24 - 25], &all_1.irest[commvl_1.ivx + (ipmid - 1) * 24 - 25], &iud, &i__1, &i__5)) / 2; -#line 2588 "" +#line 2632 "" } -#line 2591 "" +#line 2635 "" iflop = 0; -#line 2592 "" +#line 2636 "" if ((r__1 = xnlmid - ncmid_(&all_1.iv, &ip), dabs(r__1)) < 3.f) { -#line 2592 "" +#line 2636 "" iflop = -iud; -#line 2592 "" +#line 2636 "" } -#line 2593 "" +#line 2637 "" iup = iud + (iflop << 1); -#line 2594 "" +#line 2638 "" if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],14)) { -#line 2595 "" +#line 2639 "" iup = -iup; -#line 2596 "" +#line 2640 "" iflop = 0; -#line 2597 "" +#line 2641 "" if (iud * iup < 0) { -#line 2597 "" +#line 2641 "" iflop = iup; -#line 2597 "" +#line 2641 "" } -#line 2598 "" +#line 2642 "" } /* Place number if needed */ -#line 2602 "" +#line 2646 "" if (! bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],31)) { -#line 2603 "" +#line 2647 "" mprint = igetbits_(&all_1.nacc[commvl_1.ivx + ip * 24 - 25], &c__5, &c__22); -#line 2604 "" +#line 2648 "" if (mprint == 0) { -#line 2604 "" +#line 2648 "" mprint = comxtup_1.mtupv[commvl_1.ivx + comxtup_1.nxtinbm[commvl_1.ivx - 1] * 24 - 25] ; -#line 2604 "" +#line 2648 "" } -#line 2605 "" +#line 2649 "" i__1 = ncmid_(&all_1.iv, &ip); -#line 2605 "" +#line 2649 "" putxtn_(&mprint, &iflop, &multip, &iud, &comask_1.wheadpt, &comask_1.poenom, &comxtup_1.nolev1[commvl_1.ivx - 1], &comxtup_1.islope[commvl_1.ivx - 1], & @@ -6697,47 +6786,47 @@ L1: commvl_1.ivx + ip * 24 - 25], &all_1.mult[ commvl_1.ivx + ip * 24 - 25], &c_false, (ftnlen) 79); -#line 2610 "" +#line 2654 "" } -#line 2611 "" +#line 2655 "" i__1 = ncmid_(&all_1.iv, &ip); -#line 2611 "" +#line 2655 "" notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); -#line 2612 "" +#line 2656 "" } else { /* Intermediate note of xtup */ -#line 2616 "" +#line 2660 "" i__1 = ncmid_(&all_1.iv, &ip); -#line 2616 "" +#line 2660 "" notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); -#line 2617 "" +#line 2661 "" } -#line 2618 "" +#line 2662 "" } else { /* Last note of xtup (but not last note of beam!) */ -#line 2622 "" +#line 2666 "" i__1 = ncmid_(&all_1.iv, &ip); -#line 2622 "" +#line 2666 "" notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); -#line 2623 "" +#line 2667 "" } -#line 2624 "" +#line 2668 "" } else if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],0)) { -#line 2625 "" +#line 2669 "" notex_(notexq, lnote, (ftnlen)79); -#line 2626 "" +#line 2670 "" return 0; -#line 2627 "" +#line 2671 "" } else { -#line 2628 "" +#line 2672 "" i__1 = ncmid_(&all_1.iv, &ip); -#line 2628 "" +#line 2672 "" notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); -#line 2629 "" +#line 2673 "" } /* Check for string of rests up to and including last note in xtup. */ @@ -6747,7 +6836,7 @@ L1: /* break some unaccounted non-chordal staff-jum xtup situations. */ /* if (vxtup(ivx) .and. btest(irest(ivx,ip+1),0) .and. */ /* * .not.btest(irest(ivx,ip),0)) then */ -#line 2638 "" +#line 2682 "" if (comxtup_1.vxtup[commvl_1.ivx - 1] && bit_test(all_1.irest[ commvl_1.ivx + (ip + 1) * 24 - 25],0) && ! bit_test(all_1.irest[ commvl_1.ivx + ip * 24 - 25],0) && ! (combjmp_1.isbjmp && @@ -6756,387 +6845,387 @@ L1: /* This note is not a rest but next is a rest. Do rests continue to */ /* end of xtup, where nodur>0 */ -#line 2645 "" +#line 2689 "" i__1 = ip + 24; -#line 2645 "" +#line 2689 "" for (ipnow = ip + 1; ipnow <= i__1; ++ipnow) { -#line 2646 "" +#line 2690 "" if (all_1.nodur[commvl_1.ivx + ipnow * 24 - 25] > 0) { -#line 2646 "" +#line 2690 "" goto L4; -#line 2646 "" +#line 2690 "" } /* This is last of xtup */ -#line 2647 "" +#line 2691 "" if (! bit_test(all_1.irest[commvl_1.ivx + (ipnow + 1) * 24 - 25], 0)) { -#line 2647 "" +#line 2691 "" goto L5; -#line 2647 "" +#line 2691 "" } /* If I don't go to 5, know next note IS a rest! */ /* Next is not */ -#line 2651 "" +#line 2695 "" /* L3: */ -#line 2651 "" +#line 2695 "" } -#line 2652 "" +#line 2696 "" L4: -#line 2653 "" +#line 2697 "" ntrbbb_(&c__1, "t", all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[ commvl_1.ivx - 1] * 24 - 25), &commvl_1.ivx, notexq, lnote, ( ftnlen)1, (ftnlen)1, (ftnlen)79); /* Writing concatenation */ -#line 2654 "" +#line 2698 "" i__2[0] = *lnote, a__1[0] = notexq; -#line 2654 "" +#line 2698 "" i__2[1] = 1, a__1[1] = all_1.sq; -#line 2654 "" +#line 2698 "" i__2[2] = 2, a__1[2] = "qb"; -#line 2654 "" +#line 2698 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2655 "" +#line 2699 "" *lnote += 3; -#line 2656 "" +#line 2700 "" istring_(&commvl_1.ivx, tempq, &len, (ftnlen)4); /* Writing concatenation */ -#line 2657 "" +#line 2701 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 2657 "" +#line 2701 "" i__3[1] = len, a__2[1] = tempq; -#line 2657 "" +#line 2701 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2658 "" +#line 2702 "" *lnote += len; /* Writing concatenation */ -#line 2659 "" +#line 2703 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 2659 "" +#line 2703 "" i__3[1] = lnoten, a__2[1] = noteq; -#line 2659 "" +#line 2703 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2660 "" +#line 2704 "" *lnote += lnoten; -#line 2661 "" +#line 2705 "" return 0; -#line 2662 "" +#line 2706 "" L5: /* Check if multiplicity changes in a way requiring action, */ /* unless (160211) it's blank rest on start of 2nd seg of joined beam */ -#line 2667 "" +#line 2711 "" ; -#line 2667 "" +#line 2711 "" } else if (! bit_test(all_1.irest[commvl_1.ivx + (ip - 1) * 24 - 25],24) || ! bit_test(all_1.islur[commvl_1.ivx + (ip - 1) * 24 - 25],29)) { -#line 2669 "" +#line 2713 "" ipleft = ip - 1; -#line 2670 "" +#line 2714 "" if (bit_test(all_1.irest[commvl_1.ivx + ipleft * 24 - 25],0)) { -#line 2670 "" +#line 2714 "" --ipleft; -#line 2670 "" +#line 2714 "" } -#line 2671 "" +#line 2715 "" if (! bit_test(all_1.islur[commvl_1.ivx + ipleft * 24 - 25],20)) { -#line 2672 "" +#line 2716 "" multl = (15 & all_1.mult[commvl_1.ivx + ipleft * 24 - 25]) - 8; -#line 2673 "" +#line 2717 "" } else { -#line 2674 "" +#line 2718 "" multl = 1; -#line 2675 "" +#line 2719 "" } -#line 2676 "" +#line 2720 "" mub = multip - multl; -#line 2677 "" +#line 2721 "" ipright = ip + 1; -#line 2678 "" +#line 2722 "" if (bit_test(all_1.irest[commvl_1.ivx + ipright * 24 - 25],0)) { -#line 2678 "" +#line 2722 "" ++ipright; -#line 2678 "" +#line 2722 "" } -#line 2679 "" +#line 2723 "" if (! bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],20)) { -#line 2680 "" +#line 2724 "" multr = (15 & all_1.mult[commvl_1.ivx + ipright * 24 - 25]) - 8; -#line 2681 "" +#line 2725 "" } else { -#line 2682 "" +#line 2726 "" multr = 1; -#line 2683 "" +#line 2727 "" } -#line 2684 "" +#line 2728 "" mua = multr - multip; -#line 2685 "" +#line 2729 "" if (mub > 0 || mua < 0) { /* Multiplicity has increased from left or will decrease to right. Need action. */ -#line 2689 "" +#line 2733 "" if (combjmp_1.isbjmp && commvl_1.ivx == combjmp_1.ivbj2) { -#line 2690 "" +#line 2734 "" ivb = combjmp_1.ivbj1; -#line 2691 "" +#line 2735 "" i__1 = 225 - *(unsigned char *)&all_1.ulq[commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25]; -#line 2691 "" +#line 2735 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 2691 "" +#line 2735 "" *(unsigned char *)ulqq = *(unsigned char *)&ch__1[0]; -#line 2692 "" +#line 2736 "" } else { -#line 2693 "" +#line 2737 "" ivb = commvl_1.ivx; -#line 2694 "" +#line 2738 "" *(unsigned char *)ulqq = *(unsigned char *)&all_1.ulq[ commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25]; -#line 2695 "" +#line 2739 "" } -#line 2696 "" +#line 2740 "" if (mua >= 0) { -#line 2697 "" +#line 2741 "" ntrbbb_(&multip, "n", ulqq, &ivb, notexq, lnote, (ftnlen)1, ( ftnlen)1, (ftnlen)79); -/* else if (multl .ge. multr) then */ + /* Test for next note being blank rest, assuming staff-crossing */ /* xtup chord */ -#line 2702 "" +#line 2746 "" } else if (multl >= multr && ! bit_test(all_1.islur[commvl_1.ivx + (ip + 1) * 24 - 25],29)) { -#line 2704 "" +#line 2748 "" i__1 = multr + 1; -#line 2704 "" +#line 2748 "" for (im = multip; im >= i__1; --im) { -#line 2705 "" +#line 2749 "" ntrbbb_(&im, "t", ulqq, &ivb, notexq, lnote, (ftnlen)1, ( ftnlen)1, (ftnlen)79); -#line 2706 "" +#line 2750 "" /* L1: */ -#line 2706 "" +#line 2750 "" } /* else */ /* Test for next note being blank rest, assuming staff-crossing */ /* xtup chord */ -#line 2711 "" +#line 2755 "" } else if (! bit_test(all_1.islur[commvl_1.ivx + (ip + 1) * 24 - 25],29)) { -#line 2712 "" +#line 2756 "" i__1 = multip; -#line 2712 "" +#line 2756 "" for (im = multr + 1; im <= i__1; ++im) { -#line 2713 "" +#line 2757 "" ntrbbb_(&im, "r", ulqq, &ivb, notexq, lnote, (ftnlen)1, ( ftnlen)1, (ftnlen)79); -#line 2714 "" +#line 2758 "" /* L2: */ -#line 2714 "" +#line 2758 "" } -#line 2715 "" +#line 2759 "" ntrbbb_(&multr, "n", ulqq, &ivb, notexq, lnote, (ftnlen)1, ( ftnlen)1, (ftnlen)79); -#line 2716 "" +#line 2760 "" } -#line 2717 "" +#line 2761 "" } else if (ip > 1) { /* Check for 2nd member of dotted xtup */ -#line 2721 "" +#line 2765 "" if (bit_test(all_1.nacc[commvl_1.ivx + (ip - 1) * 24 - 25],27)) { -#line 2721 "" +#line 2765 "" i__1 = multip + 1; -#line 2721 "" +#line 2765 "" ntrbbb_(&i__1, "t", all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[ commvl_1.ivx - 1] * 24 - 25), &commvl_1.ivx, notexq, lnote, (ftnlen)1, (ftnlen)1, (ftnlen)79); -#line 2721 "" +#line 2765 "" } -#line 2723 "" +#line 2767 "" } -#line 2724 "" +#line 2768 "" } /* Now put in the note */ -#line 2728 "" +#line 2772 "" if (*lnote > 0) { /* Writing concatenation */ -#line 2729 "" +#line 2773 "" i__2[0] = *lnote, a__1[0] = notexq; -#line 2729 "" +#line 2773 "" i__2[1] = 1, a__1[1] = all_1.sq; -#line 2729 "" +#line 2773 "" i__2[2] = 2, a__1[2] = "qb"; -#line 2729 "" +#line 2773 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2730 "" +#line 2774 "" } else { /* Writing concatenation */ -#line 2731 "" +#line 2775 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 2731 "" +#line 2775 "" i__3[1] = 2, a__2[1] = "qb"; -#line 2731 "" +#line 2775 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2732 "" +#line 2776 "" } -#line 2733 "" +#line 2777 "" *lnote += 3; -#line 2734 "" +#line 2778 "" isdotm = FALSE_; -#line 2735 "" +#line 2779 "" if (isdotted_(all_1.nodur, &commvl_1.ivx, &ip)) { /* rule out ')' */ -#line 2739 "" +#line 2783 "" if (! bit_test(all_1.iornq[commvl_1.ivx + ip * 24 - 1],13)) { -#line 2740 "" +#line 2784 "" if (! bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],3)) { /* Writing concatenation */ -#line 2741 "" +#line 2785 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 2741 "" +#line 2785 "" i__3[1] = 1, a__2[1] = "p"; -#line 2741 "" +#line 2785 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2742 "" +#line 2786 "" } else { /* Double dot */ /* Writing concatenation */ -#line 2746 "" +#line 2790 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 2746 "" +#line 2790 "" i__3[1] = 2, a__2[1] = "pp"; -#line 2746 "" +#line 2790 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2747 "" +#line 2791 "" ++(*lnote); -#line 2748 "" +#line 2792 "" } -#line 2749 "" +#line 2793 "" } else { /* Writing concatenation */ -#line 2750 "" +#line 2794 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 2750 "" +#line 2794 "" i__3[1] = 1, a__2[1] = "m"; -#line 2750 "" +#line 2794 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2751 "" +#line 2795 "" isdotm = TRUE_; -#line 2752 "" +#line 2796 "" } -#line 2753 "" +#line 2797 "" ++(*lnote); -#line 2754 "" +#line 2798 "" } else if (bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],19) || bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],27)) { /* Special dotted notation for 2:1 xtup, or normal dot in xtup */ /* Writing concatenation */ -#line 2759 "" +#line 2803 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 2759 "" +#line 2803 "" i__3[1] = 1, a__2[1] = "p"; -#line 2759 "" +#line 2803 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2760 "" +#line 2804 "" ++(*lnote); -#line 2761 "" +#line 2805 "" } /* 5/25/08 Allow >12 */ -#line 2765 "" +#line 2809 "" if (! (combjmp_1.isbjmp && commvl_1.ivx == combjmp_1.ivbj2)) { /* call istring(mod(ivx,12),tempq,len) */ -#line 2767 "" +#line 2811 "" i__1 = commvl_1.ivx % 24; -#line 2767 "" +#line 2811 "" istring_(&i__1, tempq, &len, (ftnlen)4); -#line 2768 "" +#line 2812 "" } else { /* call istring(mod(ivbj1,12),tempq,len) */ -#line 2770 "" +#line 2814 "" i__1 = combjmp_1.ivbj1 % 24; -#line 2770 "" +#line 2814 "" istring_(&i__1, tempq, &len, (ftnlen)4); -#line 2771 "" +#line 2815 "" } /* Writing concatenation */ -#line 2772 "" +#line 2816 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 2772 "" +#line 2816 "" i__3[1] = len, a__2[1] = tempq; -#line 2772 "" +#line 2816 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2773 "" +#line 2817 "" *lnote += len; /* Writing concatenation */ -#line 2774 "" +#line 2818 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 2774 "" +#line 2818 "" i__3[1] = lnoten, a__2[1] = noteq; -#line 2774 "" +#line 2818 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2775 "" +#line 2819 "" *lnote += lnoten; -#line 2776 "" +#line 2820 "" if (isdotm) { -#line 2777 "" +#line 2821 "" if (lnoten == 2) { /* Writing concatenation */ -#line 2778 "" +#line 2822 "" i__6[0] = *lnote, a__3[0] = notexq; -#line 2778 "" +#line 2822 "" i__6[1] = 1, a__3[1] = "{"; -#line 2778 "" +#line 2822 "" i__6[2] = 1, a__3[2] = noteq + 1; -#line 2778 "" +#line 2822 "" i__6[3] = 1, a__3[3] = "}"; -#line 2778 "" +#line 2822 "" s_cat(notexq, a__3, i__6, &c__4, (ftnlen)79); -#line 2779 "" +#line 2823 "" *lnote += 3; -#line 2780 "" +#line 2824 "" } else { -#line 2781 "" +#line 2825 "" i__1 = lnoten - 2; /* Writing concatenation */ -#line 2781 "" +#line 2825 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 2781 "" +#line 2825 "" i__3[1] = lnoten - 1 - i__1, a__2[1] = noteq + i__1; -#line 2781 "" +#line 2825 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2782 "" +#line 2826 "" ++(*lnote); -#line 2783 "" +#line 2827 "" } -#line 2784 "" +#line 2828 "" } -#line 2785 "" +#line 2829 "" return 0; } /* beamid_ */ /* Subroutine */ int beamn1_(char *notexq, integer *lnote, ftnlen notexq_len) { /* System generated locals */ - address a__1[3], a__2[2], a__3[4], a__4[5], a__5[7]; - integer i__1, i__2[3], i__3[2], i__4[4], i__5[5], i__6[7]; + address a__1[3], a__2[2], a__3[5], a__4[7], a__5[4]; + integer i__1, i__2[3], i__3[2], i__4[5], i__5[7], i__6[4]; real r__1; /* Builtin functions */ @@ -7153,6 +7242,8 @@ L5: extern integer log2_(integer *); static integer nole; static real slen; + static char numq[8]; + static integer ivxp; extern /* Subroutine */ int stop1_(void); extern integer ncmid_(integer *, integer *); static integer ndsav; @@ -7164,6 +7255,7 @@ L5: integer *, integer *, integer *, ftnlen); static logical isdotm; static integer lnoten, multip, nindent; + static logical gotnote; extern /* Subroutine */ int istring_(integer *, char *, integer *, ftnlen) ; @@ -7174,87 +7266,91 @@ L5: static cilist io___201 = { 0, 6, 0, 0, 0 }; -#line 2811 "" +#line 2856 "" + gotnote = FALSE_; +#line 2857 "" + lnoten = 0; +#line 2858 "" ip1 = all_1.ipo[all_1.jn - 1]; -#line 2812 "" +#line 2859 "" multip = (15 & all_1.mult[commvl_1.ivx + ip1 * 24 - 25]) - 8; -#line 2813 "" +#line 2860 "" if (! comdraw_1.drawbm[commvl_1.ivx - 1] && bit_test(all_1.irest[ commvl_1.ivx + ip1 * 24 - 25],0)) { -#line 2814 "" +#line 2861 "" *lnote = 0; /* The rest was already written in beamstrt, so just get out of here */ -#line 2818 "" +#line 2865 "" return 0; -#line 2819 "" +#line 2866 "" } -#line 2820 "" +#line 2867 "" nole = all_1.nolev[commvl_1.ivx + all_1.ipo[all_1.jn - 1] * 24 - 25]; /* Check for special situations with 2nds (see precrd) */ -#line 2824 "" +#line 2871 "" if (bit_test(all_1.nacc[commvl_1.ivx + all_1.ipo[all_1.jn - 1] * 24 - 25], 30)) { -#line 2825 "" +#line 2872 "" --nole; -#line 2826 "" +#line 2873 "" } else if (bit_test(all_1.nacc[commvl_1.ivx + all_1.ipo[all_1.jn - 1] * 24 - 25],31)) { -#line 2827 "" +#line 2874 "" ++nole; -#line 2828 "" +#line 2875 "" } -#line 2829 "" +#line 2876 "" if (comxtup_1.vxtup[commvl_1.ivx - 1] && ! comdraw_1.drawbm[commvl_1.ivx - 1]) { /* Xtuplet with no beam, just put in the right kind of note */ -#line 2833 "" +#line 2880 "" if (bit_test(all_1.islur[commvl_1.ivx + ip1 * 24 - 25],30)) { /* Forced stem direction */ -#line 2837 "" +#line 2884 "" ndsav = all_1.nodur[commvl_1.ivx + ip1 * 24 - 25]; -#line 2838 "" +#line 2885 "" i__1 = 4 - multip; -#line 2838 "" +#line 2885 "" all_1.nodur[commvl_1.ivx + ip1 * 24 - 25] = pow_ii(&c__2, &i__1); -#line 2839 "" +#line 2886 "" if (bit_test(all_1.nacc[commvl_1.ivx + ip1 * 24 - 25],19) || bit_test(all_1.nacc[commvl_1.ivx + ip1 * 24 - 25],27)) { -#line 2839 "" +#line 2886 "" all_1.nodur[commvl_1.ivx + ip1 * 24 - 25] = all_1.nodur[ commvl_1.ivx + ip1 * 24 - 25] * 3 / 2; -#line 2839 "" +#line 2886 "" } -#line 2841 "" +#line 2888 "" notex_(notexq, lnote, (ftnlen)79); -#line 2842 "" +#line 2889 "" all_1.nodur[commvl_1.ivx + ip1 * 24 - 25] = ndsav; -#line 2843 "" +#line 2890 "" } else { -#line 2844 "" +#line 2891 "" i__1 = ncmid_(&all_1.iv, &ip1); -#line 2844 "" +#line 2891 "" notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); -#line 2845 "" +#line 2892 "" + gotnote = TRUE_; +#line 2893 "" if (lnoten == 1) { -#line 2845 "" +#line 2893 "" addblank_(noteq, &lnoten, (ftnlen)8); -#line 2845 "" +#line 2893 "" } -#line 2846 "" +#line 2894 "" *lnote = 3; -#line 2847 "" +#line 2895 "" if (multip <= 0) { -/* if (btest(irest(ivx,ip1),2) .and. */ -/* * nodur(ivx,ip1+1).ge.32) then */ -#line 2850 "" +#line 2896 "" if (bit_test(all_1.irest[commvl_1.ivx + ip1 * 24 - 25],2) && all_1.nodur[commvl_1.ivx + (ip1 + 1) * 24 - 25] >= 32 || multip == -1) { @@ -7262,142 +7358,128 @@ L5: /* 1st note of unbeamed half-note trem; make open */ /* Writing concatenation */ -#line 2856 "" +#line 2902 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2856 "" +#line 2902 "" i__2[1] = 1, a__1[1] = "h"; -#line 2856 "" +#line 2902 "" i__2[2] = 1, a__1[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2856 "" +#line 2902 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2857 "" +#line 2903 "" } else if (multip == -2) { /* Writing concatenation */ -#line 2858 "" +#line 2904 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 2858 "" +#line 2904 "" i__3[1] = 2, a__2[1] = "wh"; -#line 2858 "" +#line 2904 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2859 "" +#line 2905 "" } else { /* Writing concatenation */ -#line 2860 "" +#line 2906 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2860 "" +#line 2906 "" i__2[1] = 1, a__1[1] = "q"; -#line 2860 "" +#line 2906 "" i__2[2] = 1, a__1[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2860 "" +#line 2906 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2861 "" +#line 2907 "" } /* Check for dot */ -#line 2865 "" +#line 2911 "" if (bit_test(all_1.irest[commvl_1.ivx + ip1 * 24 - 25],2) && ( r__1 = all_1.nodur[commvl_1.ivx + (ip1 + 1) * 24 - 25] / 12.f - all_1.nodur[commvl_1.ivx + (ip1 + 1) * 24 - 25] / 12, dabs(r__1)) < .001f) { -/* * abs(nodur(ivx,ip)/12.-nodur(ivx,ip)/12).lt..001) then */ /* Need a dot. already called addblank for noteq */ -#line 2871 "" +#line 2916 "" if (*lnote == 0) { /* Writing concatenation */ -#line 2872 "" +#line 2917 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2872 "" +#line 2917 "" i__2[1] = 2, a__1[1] = "pt"; -#line 2872 "" +#line 2917 "" i__2[2] = lnoten, a__1[2] = noteq; -#line 2872 "" +#line 2917 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2873 "" +#line 2918 "" + *lnote = lnoten + 3; +#line 2919 "" } else { /* Writing concatenation */ -#line 2874 "" - i__4[0] = 1, a__3[0] = all_1.sq; -#line 2874 "" - i__4[1] = 2, a__3[1] = "pt"; -#line 2874 "" - i__4[2] = lnoten, a__3[2] = noteq; -#line 2874 "" - i__4[3] = *lnote, a__3[3] = notexq; -#line 2874 "" - s_cat(notexq, a__3, i__4, &c__4, (ftnlen)79); -#line 2875 "" - } -#line 2876 "" - *lnote = *lnote + 3 + lnoten; -#line 2877 "" - i__1 = ncmid_(&all_1.iv, &ip); -#line 2877 "" - notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); -/* Octave chang */ -#line 2878 "" - if (lnoten == 1) { -#line 2878 "" - addblank_(noteq, &lnoten, (ftnlen)8); -#line 2878 "" +#line 2920 "" + i__3[0] = *lnote, a__2[0] = notexq; +#line 2920 "" + i__3[1] = 1, a__2[1] = "p"; +#line 2920 "" + s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); +#line 2921 "" + ++(*lnote); +#line 2922 "" } -#line 2879 "" +#line 2923 "" } /* Insert the stemlength calcs here for dotted, unbeamed. */ /* Later may combine with below to avoid repeat. */ -#line 2884 "" +#line 2928 "" if (bit_test(all_1.irest[commvl_1.ivx + ip1 * 24 - 25],2)) { -#line 2885 "" +#line 2929 "" nindent = igetbits_(&all_1.irest[commvl_1.ivx + ip1 * 24 - 25], &c__2, &c__5); -#line 2886 "" +#line 2930 "" if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25] == 'u') { -#line 2887 "" +#line 2931 "" slen = (nindent + 4.5f + comxtup_1.nolev1[ commvl_1.ivx - 1] - nole - comxtup_1.islope[ commvl_1.ivx - 1] * .4f / all_1.slfac) * .6667f; -#line 2889 "" +#line 2933 "" } else { -#line 2890 "" +#line 2934 "" slen = (nindent + 4.5f - comxtup_1.nolev1[ commvl_1.ivx - 1] + nole + comxtup_1.islope[ commvl_1.ivx - 1] * .4f / all_1.slfac) * .6667f; -#line 2892 "" +#line 2936 "" } -#line 2893 "" +#line 2937 "" s_wsfi(&io___198); -#line 2893 "" +#line 2937 "" do_fio(&c__1, (char *)&slen, (ftnlen)sizeof(real)); -#line 2893 "" +#line 2937 "" e_wsfi(); /* Writing concatenation */ -#line 2894 "" - i__5[0] = 1, a__4[0] = all_1.sq; -#line 2894 "" - i__5[1] = 4, a__4[1] = "slx{"; -#line 2894 "" - i__5[2] = 4, a__4[2] = tempq; -#line 2894 "" - i__5[3] = 1, a__4[3] = "}"; -#line 2894 "" - i__5[4] = *lnote, a__4[4] = notexq; -#line 2894 "" - s_cat(notexq, a__4, i__5, &c__5, (ftnlen)79); -#line 2896 "" +#line 2938 "" + i__4[0] = 1, a__3[0] = all_1.sq; +#line 2938 "" + i__4[1] = 4, a__3[1] = "slx{"; +#line 2938 "" + i__4[2] = 4, a__3[2] = tempq; +#line 2938 "" + i__4[3] = 1, a__3[3] = "}"; +#line 2938 "" + i__4[4] = *lnote, a__3[4] = notexq; +#line 2938 "" + s_cat(notexq, a__3, i__4, &c__5, (ftnlen)79); +#line 2940 "" *lnote += 10; -#line 2897 "" +#line 2941 "" } -#line 2898 "" +#line 2942 "" } else if (bit_test(all_1.irest[commvl_1.ivx + ip1 * 24 - 25],2)) { @@ -7406,564 +7488,568 @@ L5: /* Stem length calcs here. The .2 factor is empirical, but */ /* slfac accounts for musicsize. */ -#line 2905 "" +#line 2949 "" nindent = igetbits_(&all_1.irest[commvl_1.ivx + ip1 * 24 - 25] , &c__2, &c__5); -#line 2906 "" +#line 2950 "" if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + all_1.ibmcnt[ commvl_1.ivx - 1] * 24 - 25] == 'u') { -#line 2907 "" +#line 2951 "" slen = (nindent + 4.5f + comxtup_1.nolev1[commvl_1.ivx - 1] - nole - comxtup_1.islope[commvl_1.ivx - 1] * .4f / all_1.slfac) * .6667f; -#line 2909 "" +#line 2953 "" } else { -#line 2910 "" +#line 2954 "" slen = (nindent + 4.5f - comxtup_1.nolev1[commvl_1.ivx - 1] + nole + comxtup_1.islope[commvl_1.ivx - 1] * .4f / all_1.slfac) * .6667f; -#line 2912 "" +#line 2956 "" } -#line 2913 "" +#line 2957 "" s_wsfi(&io___199); -#line 2913 "" +#line 2957 "" do_fio(&c__1, (char *)&slen, (ftnlen)sizeof(real)); -#line 2913 "" +#line 2957 "" e_wsfi(); /* Writing concatenation */ -#line 2914 "" - i__6[0] = 1, a__5[0] = all_1.sq; -#line 2914 "" - i__6[1] = 4, a__5[1] = "slx{"; -#line 2914 "" - i__6[2] = 4, a__5[2] = tempq; -#line 2914 "" - i__6[3] = 1, a__5[3] = "}"; -#line 2914 "" - i__6[4] = 1, a__5[4] = all_1.sq; -#line 2914 "" - i__6[5] = 1, a__5[5] = "q"; -#line 2914 "" - i__6[6] = 1, a__5[6] = all_1.ulq + (commvl_1.ivx + +#line 2958 "" + i__5[0] = 1, a__4[0] = all_1.sq; +#line 2958 "" + i__5[1] = 4, a__4[1] = "slx{"; +#line 2958 "" + i__5[2] = 4, a__4[2] = tempq; +#line 2958 "" + i__5[3] = 1, a__4[3] = "}"; +#line 2958 "" + i__5[4] = 1, a__4[4] = all_1.sq; +#line 2958 "" + i__5[5] = 1, a__4[5] = "q"; +#line 2958 "" + i__5[6] = 1, a__4[6] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2914 "" - s_cat(notexq, a__5, i__6, &c__7, (ftnlen)79); -#line 2916 "" +#line 2958 "" + s_cat(notexq, a__4, i__5, &c__7, (ftnlen)79); +#line 2960 "" *lnote = 13; /* Check for dotted 2-note trem; prepend dot to notexq if needed */ -#line 2920 "" +#line 2964 "" if (all_1.nodur[commvl_1.ivx + (ip1 + 1) * 24 - 25] == 12 || all_1.nodur[commvl_1.ivx + (ip1 + 1) * 24 - 25] == 24) { -#line 2922 "" +#line 2966 "" if (lnoten == 1) { /* Writing concatenation */ -#line 2923 "" +#line 2967 "" i__3[0] = 1, a__2[0] = " "; -#line 2923 "" +#line 2967 "" i__3[1] = 1, a__2[1] = noteq; -#line 2923 "" +#line 2967 "" s_cat(noteq, a__2, i__3, &c__2, (ftnlen)8); -#line 2924 "" +#line 2968 "" lnoten = 2; -#line 2925 "" +#line 2969 "" } /* Writing concatenation */ -#line 2926 "" - i__4[0] = 1, a__3[0] = all_1.sq; -#line 2926 "" - i__4[1] = 2, a__3[1] = "pt"; -#line 2926 "" - i__4[2] = lnoten, a__3[2] = noteq; -#line 2926 "" - i__4[3] = *lnote, a__3[3] = notexq; -#line 2926 "" - s_cat(notexq, a__3, i__4, &c__4, (ftnlen)79); -#line 2927 "" +#line 2970 "" + i__6[0] = 1, a__5[0] = all_1.sq; +#line 2970 "" + i__6[1] = 2, a__5[1] = "pt"; +#line 2970 "" + i__6[2] = lnoten, a__5[2] = noteq; +#line 2970 "" + i__6[3] = *lnote, a__5[3] = notexq; +#line 2970 "" + s_cat(notexq, a__5, i__6, &c__4, (ftnlen)79); +#line 2971 "" *lnote = *lnote + 3 + lnoten; -#line 2928 "" +#line 2972 "" i__1 = ncmid_(&all_1.iv, &ip1); -#line 2928 "" +#line 2972 "" notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); -#line 2929 "" +#line 2973 "" + gotnote = TRUE_; +#line 2974 "" if (lnoten == 1) { /* Writing concatenation */ -#line 2930 "" +#line 2975 "" i__3[0] = 1, a__2[0] = " "; -#line 2930 "" +#line 2975 "" i__3[1] = 1, a__2[1] = noteq; -#line 2930 "" +#line 2975 "" s_cat(noteq, a__2, i__3, &c__2, (ftnlen)8); -#line 2931 "" +#line 2976 "" lnoten = 2; -#line 2932 "" +#line 2977 "" } -#line 2933 "" +#line 2978 "" } -#line 2934 "" +#line 2979 "" } else if (multip == -1) { /* Writing concatenation */ -#line 2935 "" +#line 2980 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2935 "" +#line 2980 "" i__2[1] = 1, a__1[1] = "h"; -#line 2935 "" +#line 2980 "" i__2[2] = 1, a__1[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2935 "" +#line 2980 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2936 "" +#line 2981 "" } else if (multip == 1) { /* Writing concatenation */ -#line 2937 "" +#line 2982 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2937 "" +#line 2982 "" i__2[1] = 1, a__1[1] = "c"; -#line 2937 "" +#line 2982 "" i__2[2] = 1, a__1[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2937 "" +#line 2982 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2938 "" +#line 2983 "" } else if (multip == 2) { /* Writing concatenation */ -#line 2939 "" +#line 2984 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2939 "" +#line 2984 "" i__2[1] = 2, a__1[1] = "cc"; -#line 2939 "" +#line 2984 "" i__2[2] = 1, a__1[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2939 "" +#line 2984 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2940 "" +#line 2985 "" *lnote = 4; -#line 2941 "" +#line 2986 "" } else if (multip == 3) { /* Writing concatenation */ -#line 2942 "" +#line 2987 "" i__2[0] = 1, a__1[0] = all_1.sq; -#line 2942 "" +#line 2987 "" i__2[1] = 3, a__1[1] = "ccc"; -#line 2942 "" +#line 2987 "" i__2[2] = 1, a__1[2] = all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25); -#line 2942 "" +#line 2987 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 2943 "" +#line 2988 "" *lnote = 5; -#line 2944 "" +#line 2989 "" } else if (multip == -2) { /* Writing concatenation */ -#line 2945 "" +#line 2990 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 2945 "" +#line 2990 "" i__3[1] = 2, a__2[1] = "wh"; -#line 2945 "" +#line 2990 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2946 "" +#line 2991 "" } else if (multip == -3) { /* Writing concatenation */ -#line 2947 "" +#line 2992 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 2947 "" +#line 2992 "" i__3[1] = 5, a__2[1] = "breve"; -#line 2947 "" +#line 2992 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2948 "" +#line 2993 "" *lnote = 6; -#line 2949 "" +#line 2994 "" } else { -#line 2950 "" +#line 2995 "" s_wsle(&io___200); -#line 2950 "" +#line 2995 "" e_wsle(); -#line 2951 "" +#line 2996 "" s_wsle(&io___201); -#line 2951 "" +#line 2996 "" do_lio(&c__9, &c__1, "(Error in beamn1, send source to Dr. D"\ "on)", (ftnlen)41); -#line 2951 "" +#line 2996 "" e_wsle(); -#line 2952 "" +#line 2997 "" stop1_(); -#line 2953 "" +#line 2998 "" } -#line 2954 "" +#line 2999 "" if (bit_test(all_1.nacc[commvl_1.ivx + ip1 * 24 - 25],19) || bit_test(all_1.nacc[commvl_1.ivx + ip1 * 24 - 25],27)) { /* notexq = notexq(1:3)//'p' */ /* lnote = 4 */ /* Writing concatenation */ -#line 2957 "" +#line 3002 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 2957 "" +#line 3002 "" i__3[1] = 1, a__2[1] = "p"; -#line 2957 "" +#line 3002 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2958 "" +#line 3003 "" ++(*lnote); -#line 2959 "" +#line 3004 "" } /* Writing concatenation */ -#line 2960 "" +#line 3005 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 2960 "" +#line 3005 "" i__3[1] = 8, a__2[1] = noteq; -#line 2960 "" +#line 3005 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 2961 "" +#line 3006 "" *lnote += lnoten; -#line 2962 "" +#line 3007 "" } -#line 2963 "" +#line 3008 "" return 0; -#line 2964 "" +#line 3009 "" } /* Check if mult. decreases from 1st note to 2nd */ -#line 2968 "" +#line 3013 "" if (all_1.ibm2[commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25] > ip1 || bit_test(all_1.islur[commvl_1.ivx + ip1 * 24 - 25],20)) { /* More than one note or single-note before a multiplicity-down-up "][" */ -#line 2973 "" +#line 3018 "" if (bit_test(all_1.islur[commvl_1.ivx + ip1 * 24 - 25],20)) { -#line 2974 "" +#line 3019 "" multr = 1; -#line 2975 "" +#line 3020 "" } else if (! bit_test(all_1.irest[commvl_1.ivx + (ip1 + 1) * 24 - 25], 0)) { -#line 2976 "" +#line 3021 "" multr = (15 & all_1.mult[commvl_1.ivx + (ip1 + 1) * 24 - 25]) - 8; -#line 2977 "" +#line 3022 "" } else { -#line 2978 "" +#line 3023 "" multr = (15 & all_1.mult[commvl_1.ivx + (ip1 + 2) * 24 - 25]) - 8; -#line 2979 "" +#line 3024 "" } -#line 2980 "" +#line 3025 "" *lnote = 0; -#line 2981 "" + +/* Check if staff-jumper */ + +#line 3029 "" + if (combjmp_1.isbjmp && combjmp_1.ivbj2 > 0) { +#line 3030 "" + ivxp = combjmp_1.ivbj1; +#line 3031 "" + } else { +#line 3032 "" + ivxp = commvl_1.ivx; +#line 3033 "" + } +#line 3034 "" if (multr < multip) { -#line 2982 "" +#line 3035 "" i__1 = multr + 1; -#line 2982 "" +#line 3035 "" for (im = multip; im >= i__1; --im) { -#line 2983 "" - ntrbbb_(&im, "r", all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[ - commvl_1.ivx - 1] * 24 - 25), &commvl_1.ivx, notexq, - lnote, (ftnlen)1, (ftnlen)1, (ftnlen)79); -#line 2984 "" + +/* Right-shifted 'termination' */ + +#line 3039 "" + if (combjmp_1.isbjmp && combjmp_1.ivbj2 > 0) { + +/* Jump beam */ + +#line 3043 "" + ntrbbb_(&im, "t", all_1.ulq + (ivxp + all_1.ibmcnt[ + commvl_1.ivx - 1] * 24 - 25), &ivxp, notexq, + lnote, (ftnlen)1, (ftnlen)1, (ftnlen)79); +#line 3045 "" + } else { + +/* Same staff */ + +#line 3049 "" + ntrbbb_(&im, "r", all_1.ulq + (commvl_1.ivx + + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25), &ivxp, + notexq, lnote, (ftnlen)1, (ftnlen)1, (ftnlen)79); +#line 3050 "" + } +#line 3051 "" /* L1: */ -#line 2984 "" +#line 3051 "" } -#line 2985 "" +#line 3052 "" } -#line 2986 "" +#line 3053 "" } /* Check for beamed, dotted 2-note tremolo */ -#line 2990 "" +#line 3057 "" if (bit_test(all_1.irest[commvl_1.ivx + ip1 * 24 - 25],2) && (r__1 = all_1.nodur[commvl_1.ivx + (ip1 + 1) * 24 - 25] / 12.f - all_1.nodur[commvl_1.ivx + (ip1 + 1) * 24 - 25] / 12, dabs(r__1)) < .001f) { -#line 2992 "" - i__1 = ncmid_(&all_1.iv, &ip); -#line 2992 "" - notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); -#line 2993 "" - if (lnoten == 1) { -/* Writing concatenation */ -#line 2994 "" - i__3[0] = 1, a__2[0] = " "; -#line 2994 "" - i__3[1] = 1, a__2[1] = noteq; -#line 2994 "" - s_cat(noteq, a__2, i__3, &c__2, (ftnlen)8); -#line 2995 "" - lnoten = 2; -#line 2996 "" - } -#line 2997 "" - if (lnoten == 1) { -/* Writing concatenation */ -#line 2998 "" - i__3[0] = 1, a__2[0] = " "; -#line 2998 "" - i__3[1] = 1, a__2[1] = noteq; -#line 2998 "" - s_cat(noteq, a__2, i__3, &c__2, (ftnlen)8); -#line 2999 "" - lnoten = 2; -#line 3000 "" - } -#line 3001 "" - if (*lnote == 0) { -/* Writing concatenation */ -#line 3002 "" - i__2[0] = 1, a__1[0] = all_1.sq; -#line 3002 "" - i__2[1] = 2, a__1[1] = "pt"; -#line 3002 "" - i__2[2] = lnoten, a__1[2] = noteq; -#line 3002 "" - s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 3003 "" - } else { -/* Writing concatenation */ -#line 3004 "" - i__4[0] = *lnote, a__3[0] = notexq; -#line 3004 "" - i__4[1] = 1, a__3[1] = all_1.sq; -#line 3004 "" - i__4[2] = 2, a__3[2] = "pt"; -#line 3004 "" - i__4[3] = lnoten, a__3[3] = noteq; -#line 3004 "" - s_cat(notexq, a__3, i__4, &c__4, (ftnlen)79); -#line 3005 "" - } -#line 3006 "" - *lnote = *lnote + 3 + lnoten; -#line 3007 "" +#line 3059 "" i__1 = ncmid_(&all_1.iv, &ip); -#line 3007 "" +#line 3059 "" notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); -#line 3008 "" +#line 3060 "" + gotnote = TRUE_; +#line 3061 "" if (lnoten == 1) { /* Writing concatenation */ -#line 3009 "" +#line 3062 "" i__3[0] = 1, a__2[0] = " "; -#line 3009 "" +#line 3062 "" i__3[1] = 1, a__2[1] = noteq; -#line 3009 "" +#line 3062 "" s_cat(noteq, a__2, i__3, &c__2, (ftnlen)8); -#line 3010 "" +#line 3063 "" lnoten = 2; -#line 3011 "" +#line 3064 "" } -#line 3012 "" +#line 3065 "" } /* Put in the note, but check first for open-head beamed tremolo. */ -#line 3016 "" +#line 3069 "" if (bit_test(all_1.irest[commvl_1.ivx + ip1 * 24 - 25],2) && all_1.nodur[ commvl_1.ivx + (ip1 + 1) * 24 - 25] >= 32) { -#line 3017 "" + +/* 2-note open head tremolo */ + +#line 3073 "" if (*lnote > 0) { /* Writing concatenation */ -#line 3018 "" +#line 3074 "" i__2[0] = *lnote, a__1[0] = notexq; -#line 3018 "" +#line 3074 "" i__2[1] = 1, a__1[1] = all_1.sq; -#line 3018 "" +#line 3074 "" i__2[2] = 2, a__1[2] = "hb"; -#line 3018 "" +#line 3074 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 3019 "" +#line 3075 "" } else { /* Writing concatenation */ -#line 3020 "" +#line 3076 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 3020 "" +#line 3076 "" i__3[1] = 2, a__2[1] = "hb"; -#line 3020 "" +#line 3076 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 3021 "" +#line 3077 "" } -#line 3022 "" +#line 3078 "" } else { -#line 3023 "" +#line 3079 "" if (*lnote > 0) { /* Writing concatenation */ -#line 3024 "" +#line 3080 "" i__2[0] = *lnote, a__1[0] = notexq; -#line 3024 "" +#line 3080 "" i__2[1] = 1, a__1[1] = all_1.sq; -#line 3024 "" +#line 3080 "" i__2[2] = 2, a__1[2] = "qb"; -#line 3024 "" +#line 3080 "" s_cat(notexq, a__1, i__2, &c__3, (ftnlen)79); -#line 3025 "" +#line 3081 "" } else { /* Writing concatenation */ -#line 3026 "" +#line 3082 "" i__3[0] = 1, a__2[0] = all_1.sq; -#line 3026 "" +#line 3082 "" i__3[1] = 2, a__2[1] = "qb"; -#line 3026 "" +#line 3082 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 3027 "" +#line 3083 "" } -#line 3028 "" +#line 3084 "" } -#line 3029 "" +#line 3085 "" *lnote += 3; +#line 3086 "" + if (bit_test(all_1.irest[commvl_1.ivx + ip1 * 24 - 25],2) && (all_1.nodur[ + commvl_1.ivx + (ip1 + 1) * 24 - 25] == 24 || all_1.nodur[ + commvl_1.ivx + (ip1 + 1) * 24 - 25] == 12 || all_1.nodur[ + commvl_1.ivx + (ip1 + 1) * 24 - 25] == 48)) { + +/* 2-note trem on dotted note */ + +/* Writing concatenation */ +#line 3092 "" + i__3[0] = *lnote, a__2[0] = notexq; +#line 3092 "" + i__3[1] = 1, a__2[1] = "p"; +#line 3092 "" + s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); +#line 3093 "" + ++(*lnote); +#line 3094 "" + } /* Check for dot */ -#line 3033 "" +#line 3098 "" isdotm = FALSE_; -#line 3034 "" +#line 3099 "" if (! comxtup_1.vxtup[commvl_1.ivx - 1]) { -#line 3035 "" +#line 3100 "" nd = all_1.nodur[commvl_1.ivx + all_1.ipo[all_1.jn - 1] * 24 - 25]; -#line 3036 "" +#line 3101 "" if (nd != 0) { -#line 3037 "" +#line 3102 "" i__1 = log2_(&nd); -#line 3037 "" +#line 3102 "" if (pow_ii(&c__2, &i__1) != nd) { -#line 3038 "" +#line 3103 "" if (! bit_test(all_1.iornq[commvl_1.ivx + ip1 * 24 - 1],13)) { -#line 3039 "" +#line 3104 "" if (! bit_test(all_1.islur[commvl_1.ivx + ip1 * 24 - 25], 3)) { /* Writing concatenation */ -#line 3040 "" +#line 3105 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 3040 "" +#line 3105 "" i__3[1] = 1, a__2[1] = "p"; -#line 3040 "" +#line 3105 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 3041 "" +#line 3106 "" } else { /* Double dot */ /* Writing concatenation */ -#line 3045 "" +#line 3110 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 3045 "" +#line 3110 "" i__3[1] = 2, a__2[1] = "pp"; -#line 3045 "" +#line 3110 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 3046 "" +#line 3111 "" ++(*lnote); -#line 3047 "" +#line 3112 "" } -#line 3048 "" +#line 3113 "" } else { /* Writing concatenation */ -#line 3049 "" +#line 3114 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 3049 "" +#line 3114 "" i__3[1] = 1, a__2[1] = "m"; -#line 3049 "" +#line 3114 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 3050 "" +#line 3115 "" isdotm = TRUE_; -#line 3051 "" +#line 3116 "" } -#line 3052 "" +#line 3117 "" ++(*lnote); -#line 3053 "" +#line 3118 "" } -#line 3054 "" +#line 3119 "" } -#line 3055 "" +#line 3120 "" } else if (bit_test(all_1.nacc[commvl_1.ivx + ip1 * 24 - 25],19) || bit_test(all_1.nacc[commvl_1.ivx + ip1 * 24 - 25],27)) { /* In an xtup with special 2:1 notation with a dot on 1st note, or normal dot */ /* Writing concatenation */ -#line 3060 "" +#line 3125 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 3060 "" +#line 3125 "" i__3[1] = 1, a__2[1] = "p"; -#line 3060 "" +#line 3125 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 3061 "" +#line 3126 "" ++(*lnote); -#line 3062 "" +#line 3127 "" } /* Do the number; 0 if 12 */ - /* 5/25/08 allow >12 */ -#line 3068 "" +#line 3132 "" if (! bit_test(all_1.irest[commvl_1.ivx + ip1 * 24 - 25],24)) { -/* call istring(mod(ivx,12),noteq,len) */ -#line 3070 "" +#line 3133 "" i__1 = commvl_1.ivx % 24; -#line 3070 "" - istring_(&i__1, noteq, &len, (ftnlen)8); -#line 3071 "" +#line 3133 "" + istring_(&i__1, numq, &len, (ftnlen)8); +#line 3134 "" } else { -/* call istring(mod(ivbj1,12),noteq,len) */ -#line 3073 "" + +/* 1st note of staff-jumping beam */ + +#line 3138 "" i__1 = combjmp_1.ivbj1 % 24; -#line 3073 "" - istring_(&i__1, noteq, &len, (ftnlen)8); -#line 3074 "" +#line 3138 "" + istring_(&i__1, numq, &len, (ftnlen)8); +#line 3139 "" } /* Writing concatenation */ -#line 3075 "" +#line 3140 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 3075 "" - i__3[1] = len, a__2[1] = noteq; -#line 3075 "" +#line 3140 "" + i__3[1] = len, a__2[1] = numq; +#line 3140 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 3076 "" +#line 3141 "" *lnote += len; -#line 3077 "" - i__1 = ncmid_(&all_1.iv, &ip1); -#line 3077 "" - notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); +#line 3142 "" + if (! gotnote) { +#line 3143 "" + i__1 = ncmid_(&all_1.iv, &ip1); +#line 3143 "" + notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); +#line 3144 "" + } /* Writing concatenation */ -#line 3078 "" +#line 3145 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 3078 "" +#line 3145 "" i__3[1] = lnoten, a__2[1] = noteq; -#line 3078 "" +#line 3145 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 3079 "" +#line 3146 "" *lnote += lnoten; -#line 3080 "" +#line 3147 "" if (isdotm) { -#line 3081 "" +#line 3148 "" if (lnoten == 1) { /* Writing concatenation */ -#line 3082 "" - i__4[0] = *lnote, a__3[0] = notexq; -#line 3082 "" - i__4[1] = 1, a__3[1] = "{"; -#line 3082 "" - i__4[2] = 1, a__3[2] = noteq; -#line 3082 "" - i__4[3] = 1, a__3[3] = "}"; -#line 3082 "" - s_cat(notexq, a__3, i__4, &c__4, (ftnlen)79); -#line 3083 "" +#line 3149 "" + i__6[0] = *lnote, a__5[0] = notexq; +#line 3149 "" + i__6[1] = 1, a__5[1] = "{"; +#line 3149 "" + i__6[2] = 1, a__5[2] = noteq; +#line 3149 "" + i__6[3] = 1, a__5[3] = "}"; +#line 3149 "" + s_cat(notexq, a__5, i__6, &c__4, (ftnlen)79); +#line 3150 "" *lnote += 3; -#line 3084 "" +#line 3151 "" } else { -#line 3085 "" +#line 3152 "" i__1 = lnoten - 2; /* Writing concatenation */ -#line 3085 "" +#line 3152 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 3085 "" +#line 3152 "" i__3[1] = lnoten - 1 - i__1, a__2[1] = noteq + i__1; -#line 3085 "" +#line 3152 "" s_cat(notexq, a__2, i__3, &c__2, (ftnlen)79); -#line 3086 "" +#line 3153 "" ++(*lnote); -#line 3087 "" +#line 3154 "" } -#line 3088 "" +#line 3155 "" } -#line 3089 "" +#line 3156 "" return 0; } /* beamn1_ */ @@ -8033,44 +8119,44 @@ L5: static integer nindent, maxdrop, numinit; /* Fortran I/O blocks */ - static icilist io___219 = { 0, noteq, 0, "(i1)", 8, 1 }; - static icilist io___221 = { 0, noteq, 0, "(a1,i2,a1)", 8, 1 }; - static icilist io___222 = { 0, noteq, 0, "(i1,a1)", 8, 1 }; - static icilist io___223 = { 0, noteq, 0, "(a1,i2,a2)", 8, 1 }; - static icilist io___239 = { 0, tempq, 0, "(i2)", 2, 1 }; + static icilist io___222 = { 0, noteq, 0, "(i1)", 8, 1 }; + static icilist io___224 = { 0, noteq, 0, "(a1,i2,a1)", 8, 1 }; + static icilist io___225 = { 0, noteq, 0, "(i1,a1)", 8, 1 }; + static icilist io___226 = { 0, noteq, 0, "(a1,i2,a2)", 8, 1 }; + static icilist io___242 = { 0, tempq, 0, "(i2)", 2, 1 }; /* The following is just to save the outputs from SetupB for the case of */ /* xtups starting with a rest, where beamstrt is called twice. */ -#line 3141 "" +#line 3208 "" /* Parameter adjustments */ -#line 3141 "" +#line 3208 "" --squez; -#line 3141 "" +#line 3208 "" --space; -#line 3141 "" +#line 3208 "" ihornb -= 25; -#line 3141 "" +#line 3208 "" --nornb; -#line 3141 "" +#line 3208 "" -#line 3141 "" +#line 3208 "" /* Function Body */ -#line 3141 "" +#line 3208 "" writebrests = TRUE_; -#line 3142 "" +#line 3209 "" ibc = all_1.ibmcnt[commvl_1.ivx - 1]; -#line 3143 "" +#line 3210 "" ipb1 = all_1.ibm1[commvl_1.ivx + ibc * 24 - 25]; -#line 3144 "" +#line 3211 "" multb = (15 & all_1.mult[commvl_1.ivx + ipb1 * 24 - 25]) - 8; -#line 3145 "" +#line 3212 "" ip = all_1.ipo[all_1.jn - 1]; -#line 3146 "" +#line 3213 "" *lnote = 0; -#line 3147 "" +#line 3214 "" nvtrem = 0; /* Compute slopes and note offsets from start of beam. Inside SetupB, for each */ @@ -8078,14 +8164,14 @@ L5: /* gets islope(ivx), transferred in common. */ /* Vertical adjustment beams for tremolo */ -#line 3153 "" +#line 3220 "" if (strtmid_1.ixrest[commvl_1.ivx - 1] == 0 && ! bit_test(all_1.nacc[ commvl_1.ivx + ip * 24 - 25],21)) { -#line 3153 "" +#line 3220 "" setupb_(comxtup_1.xelsk, &comipb_1.nnb, &comipb_1.sumx, & comipb_1.sumy, comipb_1.ipb, &comipb_1.smed, & strtmid_1.ixrest[commvl_1.ivx - 1]); -#line 3153 "" +#line 3220 "" } /* Will always come past here after entering beamstrt for 2-note tremolo, and */ @@ -8094,214 +8180,213 @@ L5: /* string, under the tacet assumption that there is no horizontal shift */ /* enacted by the action just before and after the call to beamstrt. */ -#line 3162 "" +#line 3229 "" if (bit_test(all_1.irest[commvl_1.ivx + ipb1 * 24 - 25],2) && igetbits_(& all_1.irest[commvl_1.ivx + ipb1 * 24 - 25], &c__2, &c__5) > 0) { -#line 3164 "" +#line 3231 "" nindent = igetbits_(&all_1.irest[commvl_1.ivx + ipb1 * 24 - 25], & c__2, &c__5); /* Writing concatenation */ -#line 3165 "" +#line 3232 "" i__1[0] = 1, a__1[0] = all_1.sq; -#line 3165 "" +#line 3232 "" i__1[1] = 12, a__1[1] = "roffset{.7}{"; -#line 3165 "" +#line 3232 "" i__1[2] = 1, a__1[2] = all_1.sq; -#line 3165 "" +#line 3232 "" i__1[3] = 2, a__1[3] = "ib"; -#line 3165 "" +#line 3232 "" s_cat(tempq, a__1, i__1, &c__4, (ftnlen)79); -#line 3166 "" +#line 3233 "" ltemp = 16; -#line 3167 "" +#line 3234 "" if (nindent == 2) { /* Writing concatenation */ -#line 3168 "" +#line 3235 "" i__2[0] = 16, a__2[0] = tempq; -#line 3168 "" +#line 3235 "" i__2[1] = 1, a__2[1] = "b"; -#line 3168 "" +#line 3235 "" s_cat(tempq, a__2, i__2, &c__2, (ftnlen)79); -#line 3169 "" +#line 3236 "" ltemp = 17; -#line 3170 "" +#line 3237 "" } else if (nindent == 3) { /* Writing concatenation */ -#line 3171 "" +#line 3238 "" i__2[0] = 16, a__2[0] = tempq; -#line 3171 "" +#line 3238 "" i__2[1] = 2, a__2[1] = "bb"; -#line 3171 "" +#line 3238 "" s_cat(tempq, a__2, i__2, &c__2, (ftnlen)79); -#line 3172 "" +#line 3239 "" ltemp = 18; -#line 3173 "" +#line 3240 "" } /* Use beam # 0 for indented beams */ /* Writing concatenation */ -#line 3177 "" +#line 3244 "" i__3[0] = ltemp, a__3[0] = tempq; -#line 3177 "" +#line 3244 "" i__3[1] = 1, a__3[1] = all_1.ulq + (commvl_1.ivx + ibc * 24 - 25); -#line 3177 "" +#line 3244 "" i__3[2] = 1, a__3[2] = "0"; -#line 3177 "" +#line 3244 "" s_cat(tempq, a__3, i__3, &c__3, (ftnlen)79); -#line 3178 "" +#line 3245 "" ltemp += 2; /* Get adjustment to nolev1 for main beam based on nindent */ -#line 3182 "" +#line 3249 "" if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + ibc * 24 - 25] == 'u') { -#line 3183 "" +#line 3250 "" nvtrem = nindent - 1; -#line 3184 "" +#line 3251 "" } else { -#line 3185 "" +#line 3252 "" nvtrem = 1 - nindent; -#line 3186 "" +#line 3253 "" } /* Get numerical position of initiation for main beam. Will adjust height at */ /* closing to account for nindent */ -/* numinit = nolev1(ivx)-ncmid(ivx,ipb1)+4 */ -#line 3192 "" +#line 3258 "" numinit = comxtup_1.nolev1[commvl_1.ivx - 1] - ncmid_(&all_1.iv, & ipb1) + 4; /* Get forced beam height tweak, apply here for indented beams */ -#line 3196 "" +#line 3262 "" iadj = igetbits_(&all_1.ipl[commvl_1.ivx + ipb1 * 24 - 25], &c__6, & c__11) - 30; -#line 3197 "" +#line 3263 "" if (iadj != -30) { -#line 3197 "" +#line 3263 "" numinit += iadj; -#line 3197 "" +#line 3263 "" } -#line 3198 "" +#line 3264 "" if (numinit >= 0 && numinit <= 9) { -#line 3199 "" - s_wsfi(&io___219); -#line 3199 "" +#line 3265 "" + s_wsfi(&io___222); +#line 3265 "" do_fio(&c__1, (char *)&numinit, (ftnlen)sizeof(integer)); -#line 3199 "" +#line 3265 "" e_wsfi(); -#line 3200 "" +#line 3266 "" lnoten = 1; -#line 3201 "" +#line 3267 "" } else { -#line 3202 "" - s_wsfi(&io___221); -#line 3202 "" +#line 3268 "" + s_wsfi(&io___224); +#line 3268 "" do_fio(&c__1, "{", (ftnlen)1); -#line 3202 "" +#line 3268 "" do_fio(&c__1, (char *)&numinit, (ftnlen)sizeof(integer)); -#line 3202 "" +#line 3268 "" do_fio(&c__1, "}", (ftnlen)1); -#line 3202 "" +#line 3268 "" e_wsfi(); -#line 3203 "" +#line 3269 "" lnoten = 4; -#line 3204 "" +#line 3270 "" } /* Writing concatenation */ -#line 3205 "" +#line 3271 "" i__2[0] = ltemp, a__2[0] = tempq; -#line 3205 "" +#line 3271 "" i__2[1] = lnoten, a__2[1] = noteq; -#line 3205 "" +#line 3271 "" s_cat(tempq, a__2, i__2, &c__2, (ftnlen)79); -#line 3206 "" +#line 3272 "" ltemp += lnoten; /* Now do the slope. */ /* 170408 Baseline is in islope(ivx). Apply slope tweak if present. */ -#line 3211 "" +#line 3277 "" numinit = comxtup_1.islope[commvl_1.ivx - 1]; -#line 3212 "" +#line 3278 "" iadj = igetbits_(&all_1.ipl[commvl_1.ivx + ipb1 * 24 - 25], &c__6, & c__17) - 30; -#line 3213 "" +#line 3279 "" if (iadj != -30) { -#line 3213 "" +#line 3279 "" numinit += iadj; -#line 3213 "" +#line 3279 "" } -#line 3214 "" +#line 3280 "" if (numinit >= 0 && numinit <= 9) { -#line 3215 "" - s_wsfi(&io___222); -#line 3215 "" +#line 3281 "" + s_wsfi(&io___225); +#line 3281 "" do_fio(&c__1, (char *)&numinit, (ftnlen)sizeof(integer)); -#line 3215 "" +#line 3281 "" do_fio(&c__1, "}", (ftnlen)1); -#line 3215 "" +#line 3281 "" e_wsfi(); -#line 3216 "" +#line 3282 "" lnoten = 2; -#line 3217 "" +#line 3283 "" } else { -#line 3218 "" - s_wsfi(&io___223); -#line 3218 "" +#line 3284 "" + s_wsfi(&io___226); +#line 3284 "" do_fio(&c__1, "{", (ftnlen)1); -#line 3218 "" +#line 3284 "" do_fio(&c__1, (char *)&numinit, (ftnlen)sizeof(integer)); -#line 3218 "" +#line 3284 "" do_fio(&c__1, "}}", (ftnlen)2); -#line 3218 "" +#line 3284 "" e_wsfi(); -#line 3219 "" +#line 3285 "" lnoten = 5; -#line 3220 "" +#line 3286 "" } /* Writing concatenation */ -#line 3221 "" +#line 3287 "" i__2[0] = ltemp, a__2[0] = tempq; -#line 3221 "" +#line 3287 "" i__2[1] = lnoten, a__2[1] = noteq; -#line 3221 "" +#line 3287 "" s_cat(tempq, a__2, i__2, &c__2, (ftnlen)79); -#line 3222 "" +#line 3288 "" ltemp += lnoten; -#line 3223 "" +#line 3289 "" s_copy(notexq, tempq, (ftnlen)79, (ftnlen)79); -#line 3224 "" +#line 3290 "" *lnote = ltemp; -#line 3225 "" +#line 3291 "" } -#line 3226 "" +#line 3292 "" if (bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],21)) { /* This is start of later segment of single-slope beam group so use slope and */ /* height from prior beam. Slope is already OK. */ -#line 3231 "" +#line 3297 "" ++comxtup_1.issb[commvl_1.ivx - 1]; -#line 3232 "" +#line 3298 "" comxtup_1.nolev1[commvl_1.ivx - 1] = comxtup_1.lev1ssb[commvl_1.ivx + comxtup_1.issb[commvl_1.ivx - 1] * 24 - 25]; -#line 3233 "" +#line 3299 "" } /* Move this up to before indented beams for tremolo */ /* lnote = 0 */ -#line 3237 "" +#line 3303 "" comdraw_1.drawbm[commvl_1.ivx - 1] = TRUE_; -#line 3238 "" +#line 3304 "" if (bit_test(all_1.irest[commvl_1.ivx + ipb1 * 24 - 25],28) && strtmid_1.ixrest[commvl_1.ivx - 1] != 2) { -#line 3239 "" +#line 3305 "" comxtup_1.vxtup[commvl_1.ivx - 1] = TRUE_; -#line 3240 "" +#line 3306 "" ++comxtup_1.nxtinbm[commvl_1.ivx - 1]; /* irest(28)=>Xtup starts on this note. Set up for xtuplet. */ @@ -8316,169 +8401,169 @@ L5: /* iflop 0 1 -1 0 ...direction of flop */ /* iup -1 1 -1 1 ...direction of number and bracket */ -#line 3254 "" +#line 3320 "" iud = 1; -#line 3255 "" +#line 3321 "" if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + ibc * 24 - 25] == 'u') { -#line 3255 "" +#line 3321 "" iud = -1; -#line 3255 "" +#line 3321 "" } /* Get ip#, note level of middle note (or gap) in xtup */ -#line 3259 "" +#line 3325 "" ipmid = ipb1 + comxtup_1.ntupv[commvl_1.ivx + comxtup_1.nxtinbm[ commvl_1.ivx - 1] * 24 - 25] / 2; /* 130129 If middle note is a rest, go to next note. Note last note cannot */ /* be a rest */ -#line 3264 "" +#line 3330 "" L14: -#line 3265 "" +#line 3331 "" if (bit_test(all_1.irest[commvl_1.ivx + ipmid * 24 - 25],0)) { -#line 3266 "" +#line 3332 "" ++ipmid; -#line 3267 "" +#line 3333 "" goto L14; -#line 3268 "" +#line 3334 "" } -#line 3269 "" +#line 3335 "" i__4 = ncmid_(&all_1.iv, &ipmid); -#line 3269 "" +#line 3335 "" i__5 = (15 & all_1.mult[commvl_1.ivx + ipmid * 24 - 25]) - 8; -#line 3269 "" +#line 3335 "" xnlmid = (real) levrn_(&all_1.nolev[commvl_1.ivx + ipmid * 24 - 25], & all_1.irest[commvl_1.ivx + ipmid * 24 - 25], &iud, &i__4, & i__5); -#line 3271 "" +#line 3337 "" if (comxtup_1.ntupv[commvl_1.ivx + comxtup_1.nxtinbm[commvl_1.ivx - 1] * 24 - 25] % 2 == 0) { -#line 3271 "" +#line 3337 "" i__5 = ipmid - 1; -#line 3271 "" +#line 3337 "" i__4 = ncmid_(&all_1.iv, &i__5); -#line 3271 "" +#line 3337 "" i__6 = (15 & all_1.mult[commvl_1.ivx + (ipmid - 1) * 24 - 25]) - 8; -#line 3271 "" +#line 3337 "" xnlmid = (xnlmid + levrn_(&all_1.nolev[commvl_1.ivx + (ipmid - 1) * 24 - 25], &all_1.irest[commvl_1.ivx + (ipmid - 1) * 24 - 25], &iud, &i__4, &i__6)) / 2; -#line 3271 "" +#line 3337 "" } -#line 3274 "" +#line 3340 "" iflop = 0; -#line 3275 "" +#line 3341 "" if ((r__1 = xnlmid - ncmid_(&all_1.iv, &ipb1), dabs(r__1)) < 3.f) { -#line 3275 "" +#line 3341 "" iflop = -iud; -#line 3275 "" +#line 3341 "" } -#line 3276 "" +#line 3342 "" iup = iud + (iflop << 1); -#line 3277 "" +#line 3343 "" if (bit_test(all_1.irest[commvl_1.ivx + ipb1 * 24 - 25],14)) { /* Alter iud, iflop, iup to flip number/bracket. (Stare at above pic) */ -#line 3281 "" +#line 3347 "" iup = -iup; -#line 3282 "" +#line 3348 "" iflop = 0; -#line 3283 "" +#line 3349 "" if (iud * iup < 0) { -#line 3283 "" +#line 3349 "" iflop = iup; -#line 3283 "" +#line 3349 "" } -#line 3284 "" +#line 3350 "" } /* Determine if a beam is to be drawn. */ /* Had problem w/ half-note 2-note xtups always F, so add a test */ -#line 3289 "" +#line 3355 "" if (igetbits_(&all_1.irest[commvl_1.ivx + ipb1 * 24 - 25], &c__2, & c__3) != 0) { -#line 3290 "" +#line 3356 "" comdraw_1.drawbm[commvl_1.ivx - 1] = TRUE_; -#line 3291 "" +#line 3357 "" goto L6; -#line 3292 "" +#line 3358 "" } -#line 3293 "" +#line 3359 "" i__4 = all_1.ibm2[commvl_1.ivx + ibc * 24 - 25]; -#line 3293 "" +#line 3359 "" for (ipp = all_1.ibm1[commvl_1.ivx + ibc * 24 - 25]; ipp <= i__4; ++ipp) { -#line 3294 "" +#line 3360 "" if ((15 & all_1.mult[commvl_1.ivx + ipp * 24 - 25]) - 8 <= 0) { -#line 3295 "" +#line 3361 "" comdraw_1.drawbm[commvl_1.ivx - 1] = FALSE_; -#line 3296 "" +#line 3362 "" goto L6; -#line 3297 "" +#line 3363 "" } -#line 3298 "" +#line 3364 "" /* L5: */ -#line 3298 "" +#line 3364 "" } -#line 3299 "" +#line 3365 "" comdraw_1.drawbm[commvl_1.ivx - 1] = ! bit_test(all_1.islur[ commvl_1.ivx + all_1.ibm1[commvl_1.ivx + ibc * 24 - 25] * 24 - 25],18); -#line 3300 "" +#line 3366 "" L6: /* Are we using tuplet.tex? */ -#line 3304 "" +#line 3370 "" usexnumt = comnvst_1.cstuplet && ! comdraw_1.drawbm[commvl_1.ivx - 1]; /* Check for single note xtup 171217 */ -#line 3308 "" +#line 3374 "" if (bit_test(all_1.irest[commvl_1.ivx + ipb1 * 24 - 25],28) && comipb_1.nnb == 1) { -#line 3309 "" +#line 3375 "" comdraw_1.drawbm[commvl_1.ivx - 1] = FALSE_; -#line 3310 "" +#line 3376 "" } /* Place xtup number if needed */ -#line 3314 "" +#line 3380 "" if (! bit_test(all_1.islur[commvl_1.ivx + ipb1 * 24 - 25],31) || multb <= 0) { -#line 3315 "" +#line 3381 "" mprint = igetbits_(&all_1.nacc[commvl_1.ivx + ip * 24 - 25], & c__5, &c__22); -#line 3316 "" +#line 3382 "" if (mprint == 0) { -#line 3316 "" +#line 3382 "" mprint = comxtup_1.mtupv[commvl_1.ivx + comxtup_1.nxtinbm[ commvl_1.ivx - 1] * 24 - 25]; -#line 3316 "" +#line 3382 "" } /* Stab in the dark! Note: tried setting unbeam flag islur18 but no go. */ -#line 3318 "" +#line 3384 "" if (comipb_1.nnb == 1) { -#line 3319 "" +#line 3385 "" xnlmid = (real) comxtup_1.nolev1[commvl_1.ivx - 1]; -#line 3320 "" +#line 3386 "" comxtup_1.islope[commvl_1.ivx - 1] = 0; /* Move up, outside number check block, so all 1-note xtups ar unbeamed */ /* drawbm(ivx) = .false. */ -#line 3325 "" +#line 3391 "" } -#line 3326 "" +#line 3392 "" i__4 = ncmid_(&all_1.iv, &ipb1); -#line 3326 "" +#line 3392 "" putxtn_(&mprint, &iflop, &multb, &iud, &comask_1.wheadpt, & comask_1.poenom, &comxtup_1.nolev1[commvl_1.ivx - 1], & comxtup_1.islope[commvl_1.ivx - 1], &all_1.slfac, &xnlmid, @@ -8487,329 +8572,329 @@ L6: comxtup_1.nxtinbm[commvl_1.ivx - 1] * 24 - 25], &iup, & all_1.irest[commvl_1.ivx + ipb1 * 24 - 25], &all_1.mult[ commvl_1.ivx + ipb1 * 24 - 25], &usexnumt, (ftnlen)79); -#line 3330 "" +#line 3396 "" } -#line 3331 "" +#line 3397 "" if (! comdraw_1.drawbm[commvl_1.ivx - 1]) { /* Xtuplet with no beam */ -#line 3335 "" +#line 3401 "" if (! bit_test(all_1.islur[commvl_1.ivx + ipb1 * 24 - 25],31)) { /* Number printing has not been suppressed, so put in the bracket. */ /* scale = stretch factor for bracket if there are asx's */ /* xnsk = length of the bracket in \noteskips = (\elemskips)/(eon) */ -#line 3341 "" +#line 3407 "" r__1 = space[*ib] / squez[*ib]; -#line 3341 "" +#line 3407 "" xnsk = (comeskz2_1.eskz2[commvl_1.ivx + (ipb1 + comxtup_1.ntupv[commvl_1.ivx + comxtup_1.nxtinbm[ commvl_1.ivx - 1] * 24 - 25] - 1) * 24 - 25] - comeskz2_1.eskz2[commvl_1.ivx + ipb1 * 24 - 25]) / squez[*ib] / feon_(&r__1); -#line 3343 "" +#line 3409 "" if (iup == 1) { -#line 3344 "" +#line 3410 "" if (*lnote > 0) { /* Writing concatenation */ -#line 3345 "" +#line 3411 "" i__3[0] = *lnote, a__3[0] = notexq; -#line 3345 "" +#line 3411 "" i__3[1] = 1, a__3[1] = all_1.sq; -#line 3345 "" +#line 3411 "" i__3[2] = 5, a__3[2] = "ovbkt"; -#line 3345 "" +#line 3411 "" s_cat(notexq, a__3, i__3, &c__3, (ftnlen)79); -#line 3346 "" +#line 3412 "" } else { /* Writing concatenation */ -#line 3347 "" +#line 3413 "" i__2[0] = 1, a__2[0] = all_1.sq; -#line 3347 "" +#line 3413 "" i__2[1] = 5, a__2[1] = "ovbkt"; -#line 3347 "" +#line 3413 "" s_cat(notexq, a__2, i__2, &c__2, (ftnlen)79); -#line 3348 "" +#line 3414 "" } -#line 3349 "" +#line 3415 "" } else { -#line 3350 "" +#line 3416 "" if (*lnote > 0) { /* Writing concatenation */ -#line 3351 "" +#line 3417 "" i__3[0] = *lnote, a__3[0] = notexq; -#line 3351 "" +#line 3417 "" i__3[1] = 1, a__3[1] = all_1.sq; -#line 3351 "" +#line 3417 "" i__3[2] = 5, a__3[2] = "unbkt"; -#line 3351 "" +#line 3417 "" s_cat(notexq, a__3, i__3, &c__3, (ftnlen)79); -#line 3352 "" +#line 3418 "" } else { /* Introduced 12/5/98, req'd due to possible presence of in-line TeX */ /* Writing concatenation */ -#line 3356 "" +#line 3422 "" i__2[0] = 1, a__2[0] = all_1.sq; -#line 3356 "" +#line 3422 "" i__2[1] = 5, a__2[1] = "unbkt"; -#line 3356 "" +#line 3422 "" s_cat(notexq, a__2, i__2, &c__2, (ftnlen)79); -#line 3357 "" +#line 3423 "" } -#line 3358 "" +#line 3424 "" } -#line 3359 "" +#line 3425 "" *lnote += 6; -#line 3360 "" +#line 3426 "" if (all_1.iline == 1) { -#line 3361 "" +#line 3427 "" comipb_1.smed /= 1.f - comtop_1.fracindent; -#line 3362 "" +#line 3428 "" } -#line 3363 "" +#line 3429 "" xslope = comipb_1.smed * 1.8f * all_1.slfac; -#line 3364 "" +#line 3430 "" comxtup_1.islope[commvl_1.ivx - 1] = i_nint(&xslope); -#line 3365 "" +#line 3431 "" r__1 = comipb_1.smed * comxtup_1.eloff[commvl_1.ivx - 1]; -#line 3365 "" +#line 3431 "" comxtup_1.nolev1[commvl_1.ivx - 1] = nlnum - i_nint(&r__1); -#line 3366 "" +#line 3432 "" if (comxtup_1.islope[commvl_1.ivx - 1] == 0) { -#line 3366 "" +#line 3432 "" --comxtup_1.nolev1[commvl_1.ivx - 1]; -#line 3366 "" +#line 3432 "" } -#line 3367 "" +#line 3433 "" if (iup == 1) { -#line 3367 "" +#line 3433 "" comxtup_1.nolev1[commvl_1.ivx - 1] += 4; -#line 3367 "" +#line 3433 "" } -#line 3368 "" +#line 3434 "" levbracket = comxtup_1.nolev1[commvl_1.ivx - 1]; -#line 3369 "" +#line 3435 "" if (iup == 1 && comnvst_1.cstuplet) { -#line 3369 "" +#line 3435 "" --levbracket; -#line 3369 "" +#line 3435 "" } -#line 3370 "" +#line 3436 "" i__4 = ncmid_(&all_1.iv, &ipb1); -#line 3370 "" +#line 3436 "" notefq_(noteq, &lnoten, &levbracket, &i__4, (ftnlen)8); -#line 3371 "" +#line 3437 "" if (lnoten == 1) { -#line 3371 "" +#line 3437 "" addblank_(noteq, &lnoten, (ftnlen)8); -#line 3371 "" +#line 3437 "" } /* Writing concatenation */ -#line 3372 "" +#line 3438 "" i__3[0] = *lnote, a__3[0] = notexq; -#line 3372 "" +#line 3438 "" i__3[1] = lnoten, a__3[1] = noteq; -#line 3372 "" +#line 3438 "" i__3[2] = 1, a__3[2] = "{"; -#line 3372 "" +#line 3438 "" s_cat(notexq, a__3, i__3, &c__3, (ftnlen)79); -#line 3373 "" +#line 3439 "" *lnote = *lnote + lnoten + 1; -#line 3374 "" +#line 3440 "" if (xnsk < .995f) { -#line 3375 "" +#line 3441 "" i__4 = *lnote; -#line 3375 "" +#line 3441 "" ici__1.icierr = 0; -#line 3375 "" +#line 3441 "" ici__1.icirnum = 1; -#line 3375 "" +#line 3441 "" ici__1.icirlen = *lnote + 4 - i__4; -#line 3375 "" +#line 3441 "" ici__1.iciunit = notexq + i__4; -#line 3375 "" +#line 3441 "" ici__1.icifmt = "(i1,f3.2)"; -#line 3375 "" +#line 3441 "" s_wsfi(&ici__1); -#line 3375 "" +#line 3441 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 3375 "" +#line 3441 "" do_fio(&c__1, (char *)&xnsk, (ftnlen)sizeof(real)); -#line 3375 "" +#line 3441 "" e_wsfi(); -#line 3376 "" +#line 3442 "" *lnote += 4; -#line 3377 "" +#line 3443 "" } else if (xnsk < 9.995f) { -#line 3378 "" +#line 3444 "" i__4 = *lnote; -#line 3378 "" +#line 3444 "" ici__1.icierr = 0; -#line 3378 "" +#line 3444 "" ici__1.icirnum = 1; -#line 3378 "" +#line 3444 "" ici__1.icirlen = *lnote + 4 - i__4; -#line 3378 "" +#line 3444 "" ici__1.iciunit = notexq + i__4; -#line 3378 "" +#line 3444 "" ici__1.icifmt = "(f4.2)"; -#line 3378 "" +#line 3444 "" s_wsfi(&ici__1); -#line 3378 "" +#line 3444 "" do_fio(&c__1, (char *)&xnsk, (ftnlen)sizeof(real)); -#line 3378 "" +#line 3444 "" e_wsfi(); -#line 3379 "" +#line 3445 "" *lnote += 4; -#line 3380 "" +#line 3446 "" } else { -#line 3381 "" +#line 3447 "" i__4 = *lnote; -#line 3381 "" +#line 3447 "" ici__1.icierr = 0; -#line 3381 "" +#line 3447 "" ici__1.icirnum = 1; -#line 3381 "" +#line 3447 "" ici__1.icirlen = *lnote + 5 - i__4; -#line 3381 "" +#line 3447 "" ici__1.iciunit = notexq + i__4; -#line 3381 "" +#line 3447 "" ici__1.icifmt = "(f5.2)"; -#line 3381 "" +#line 3447 "" s_wsfi(&ici__1); -#line 3381 "" +#line 3447 "" do_fio(&c__1, (char *)&xnsk, (ftnlen)sizeof(real)); -#line 3381 "" +#line 3447 "" e_wsfi(); -#line 3382 "" +#line 3448 "" *lnote += 5; -#line 3383 "" +#line 3449 "" } /* Writing concatenation */ -#line 3384 "" +#line 3450 "" i__2[0] = *lnote, a__2[0] = notexq; -#line 3384 "" +#line 3450 "" i__2[1] = 1, a__2[1] = "}"; -#line 3384 "" +#line 3450 "" s_cat(notexq, a__2, i__2, &c__2, (ftnlen)79); -#line 3385 "" +#line 3451 "" ++(*lnote); -#line 3386 "" +#line 3452 "" if (bit_test(all_1.mult[commvl_1.ivx + ipb1 * 24 - 25],4)) { /* Tweak slope of bracket */ -#line 3390 "" +#line 3456 "" comxtup_1.islope[commvl_1.ivx - 1] = comxtup_1.islope[ commvl_1.ivx - 1] + igetbits_(&all_1.mult[ commvl_1.ivx + ipb1 * 24 - 25], &c__5, &c__5) - 16; -#line 3391 "" +#line 3457 "" } -#line 3392 "" +#line 3458 "" if (comxtup_1.islope[commvl_1.ivx - 1] < 0 || comxtup_1.islope[commvl_1.ivx - 1] >= 10) { /* Writing concatenation */ -#line 3393 "" +#line 3459 "" i__2[0] = *lnote, a__2[0] = notexq; -#line 3393 "" +#line 3459 "" i__2[1] = 1, a__2[1] = "{"; -#line 3393 "" +#line 3459 "" s_cat(notexq, a__2, i__2, &c__2, (ftnlen)79); -#line 3394 "" +#line 3460 "" ++(*lnote); -#line 3395 "" +#line 3461 "" if (comxtup_1.islope[commvl_1.ivx - 1] < -9) { -#line 3396 "" +#line 3462 "" i__4 = *lnote; -#line 3396 "" +#line 3462 "" ici__1.icierr = 0; -#line 3396 "" +#line 3462 "" ici__1.icirnum = 1; -#line 3396 "" +#line 3462 "" ici__1.icirlen = *lnote + 3 - i__4; -#line 3396 "" +#line 3462 "" ici__1.iciunit = notexq + i__4; -#line 3396 "" +#line 3462 "" ici__1.icifmt = "(i3)"; -#line 3396 "" +#line 3462 "" s_wsfi(&ici__1); -#line 3396 "" +#line 3462 "" do_fio(&c__1, (char *)&comxtup_1.islope[commvl_1.ivx - 1], (ftnlen)sizeof(integer)); -#line 3396 "" +#line 3462 "" e_wsfi(); -#line 3397 "" +#line 3463 "" *lnote += 3; -#line 3398 "" +#line 3464 "" } else { -#line 3399 "" +#line 3465 "" i__4 = *lnote; -#line 3399 "" +#line 3465 "" ici__1.icierr = 0; -#line 3399 "" +#line 3465 "" ici__1.icirnum = 1; -#line 3399 "" +#line 3465 "" ici__1.icirlen = *lnote + 2 - i__4; -#line 3399 "" +#line 3465 "" ici__1.iciunit = notexq + i__4; -#line 3399 "" +#line 3465 "" ici__1.icifmt = "(i2)"; -#line 3399 "" +#line 3465 "" s_wsfi(&ici__1); -#line 3399 "" +#line 3465 "" do_fio(&c__1, (char *)&comxtup_1.islope[commvl_1.ivx - 1], (ftnlen)sizeof(integer)); -#line 3399 "" +#line 3465 "" e_wsfi(); -#line 3400 "" +#line 3466 "" *lnote += 2; -#line 3401 "" +#line 3467 "" } /* Writing concatenation */ -#line 3402 "" +#line 3468 "" i__2[0] = *lnote, a__2[0] = notexq; -#line 3402 "" +#line 3468 "" i__2[1] = 1, a__2[1] = "}"; -#line 3402 "" +#line 3468 "" s_cat(notexq, a__2, i__2, &c__2, (ftnlen)79); -#line 3403 "" +#line 3469 "" ++(*lnote); -#line 3404 "" +#line 3470 "" } else { -#line 3405 "" +#line 3471 "" i__4 = *lnote; -#line 3405 "" +#line 3471 "" ici__1.icierr = 0; -#line 3405 "" +#line 3471 "" ici__1.icirnum = 1; -#line 3405 "" +#line 3471 "" ici__1.icirlen = *lnote + 1 - i__4; -#line 3405 "" +#line 3471 "" ici__1.iciunit = notexq + i__4; -#line 3405 "" +#line 3471 "" ici__1.icifmt = "(i1)"; -#line 3405 "" +#line 3471 "" s_wsfi(&ici__1); -#line 3405 "" +#line 3471 "" do_fio(&c__1, (char *)&comxtup_1.islope[commvl_1.ivx - 1], (ftnlen)sizeof(integer)); -#line 3405 "" +#line 3471 "" e_wsfi(); -#line 3406 "" +#line 3472 "" ++(*lnote); -#line 3407 "" +#line 3473 "" } /* Done with bracket */ -#line 3411 "" +#line 3477 "" } -#line 3412 "" +#line 3478 "" if (strtmid_1.ixrest[commvl_1.ivx - 1] == 1) { /* Put in the rest. Possible problem: Rest is a spacing char, but between */ @@ -8817,71 +8902,71 @@ L6: /* 130126 Deal with vertical shifts of rest starting xtuplet */ -#line 3419 "" +#line 3485 "" lrest = 3; -#line 3420 "" +#line 3486 "" if (bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],29)) { /* Writing concatenation */ -#line 3421 "" +#line 3487 "" i__2[0] = 1, a__2[0] = all_1.sq; -#line 3421 "" +#line 3487 "" i__2[1] = 2, a__2[1] = "sk"; -#line 3421 "" +#line 3487 "" s_cat(restq, a__2, i__2, &c__2, (ftnlen)40); /* if (multb .eq. 0) then */ -#line 3423 "" +#line 3489 "" } else if (multb == 0) { /* Writing concatenation */ -#line 3424 "" +#line 3490 "" i__2[0] = 1, a__2[0] = all_1.sq; -#line 3424 "" +#line 3490 "" i__2[1] = 2, a__2[1] = "qp"; -#line 3424 "" +#line 3490 "" s_cat(restq, a__2, i__2, &c__2, (ftnlen)40); -#line 3425 "" +#line 3491 "" } else if (! comdraw_1.drawbm[commvl_1.ivx - 1] && multb == 1) { /* Writing concatenation */ -#line 3426 "" +#line 3492 "" i__2[0] = 1, a__2[0] = all_1.sq; -#line 3426 "" +#line 3492 "" i__2[1] = 2, a__2[1] = "ds"; -#line 3426 "" +#line 3492 "" s_cat(restq, a__2, i__2, &c__2, (ftnlen)40); -#line 3427 "" +#line 3493 "" } else if (! comdraw_1.drawbm[commvl_1.ivx - 1] && multb == 2) { /* Writing concatenation */ -#line 3428 "" +#line 3494 "" i__2[0] = 1, a__2[0] = all_1.sq; -#line 3428 "" +#line 3494 "" i__2[1] = 2, a__2[1] = "qs"; -#line 3428 "" +#line 3494 "" s_cat(restq, a__2, i__2, &c__2, (ftnlen)40); -#line 3429 "" +#line 3495 "" } else if (! comdraw_1.drawbm[commvl_1.ivx - 1] && multb == 3) { /* Writing concatenation */ -#line 3430 "" +#line 3496 "" i__2[0] = 1, a__2[0] = all_1.sq; -#line 3430 "" +#line 3496 "" i__2[1] = 2, a__2[1] = "hs"; -#line 3430 "" +#line 3496 "" s_cat(restq, a__2, i__2, &c__2, (ftnlen)40); -#line 3431 "" +#line 3497 "" } else { /* Writing concatenation */ -#line 3432 "" +#line 3498 "" i__2[0] = 1, a__2[0] = all_1.sq; -#line 3432 "" +#line 3498 "" i__2[1] = 6, a__2[1] = "hpause"; -#line 3432 "" +#line 3498 "" s_cat(restq, a__2, i__2, &c__2, (ftnlen)40); -#line 3433 "" +#line 3499 "" lrest = 7; -#line 3434 "" +#line 3500 "" } -#line 3435 "" +#line 3501 "" if (bit_test(all_1.nacc[commvl_1.ivx + ipb1 * 24 - 25],18) && bit_test(all_1.nacc[commvl_1.ivx + ipb1 * 24 - 25],19) ) { @@ -8889,561 +8974,561 @@ L6: /* VERY special case of rest at start of F-tuplet, needs dot */ /* Writing concatenation */ -#line 3440 "" +#line 3506 "" i__3[0] = 1, a__3[0] = all_1.sq; -#line 3440 "" +#line 3506 "" i__3[1] = 3, a__3[1] = "pt4"; -#line 3440 "" +#line 3506 "" i__3[2] = lrest, a__3[2] = restq; -#line 3440 "" +#line 3506 "" s_cat(restq, a__3, i__3, &c__3, (ftnlen)40); -#line 3441 "" +#line 3507 "" lrest += 4; -#line 3442 "" +#line 3508 "" } -#line 3444 "" +#line 3510 "" nole = (all_1.nolev[commvl_1.ivx + ip * 24 - 25] + 20) % 100 - 20; /* if (nole .eq. 0) then */ -#line 3446 "" +#line 3512 "" if (nole == 0 || bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],29)) { /* Rest blank or is not raised */ /* Writing concatenation */ -#line 3450 "" +#line 3516 "" i__2[0] = *lnote, a__2[0] = notexq; -#line 3450 "" +#line 3516 "" i__2[1] = 40, a__2[1] = restq; -#line 3450 "" +#line 3516 "" s_cat(notexq, a__2, i__2, &c__2, (ftnlen)79); -#line 3451 "" +#line 3517 "" *lnote += lrest; -#line 3452 "" +#line 3518 "" } else { -#line 3453 "" +#line 3519 "" if (abs(nole) < 10) { -#line 3454 "" +#line 3520 "" i__4 = abs(nole) + 48; -#line 3454 "" +#line 3520 "" chax_(ch__1, (ftnlen)1, &i__4); -#line 3454 "" +#line 3520 "" s_copy(tempq, ch__1, (ftnlen)79, (ftnlen)1); -#line 3455 "" +#line 3521 "" ltemp = 1; -#line 3456 "" +#line 3522 "" } else { -#line 3457 "" - s_wsfi(&io___239); -#line 3457 "" +#line 3523 "" + s_wsfi(&io___242); +#line 3523 "" i__4 = abs(nole); -#line 3457 "" +#line 3523 "" do_fio(&c__1, (char *)&i__4, (ftnlen)sizeof(integer)); -#line 3457 "" +#line 3523 "" e_wsfi(); -#line 3458 "" +#line 3524 "" ltemp = 2; -#line 3459 "" +#line 3525 "" } -#line 3460 "" +#line 3526 "" if (nole > 0) { /* Writing concatenation */ -#line 3461 "" +#line 3527 "" i__7[0] = 1, a__4[0] = all_1.sq; -#line 3461 "" +#line 3527 "" i__7[1] = 5, a__4[1] = "raise"; -#line 3461 "" +#line 3527 "" i__7[2] = ltemp, a__4[2] = tempq; -#line 3461 "" +#line 3527 "" i__7[3] = 1, a__4[3] = all_1.sq; -#line 3461 "" +#line 3527 "" i__7[4] = 9, a__4[4] = "internote"; -#line 3461 "" +#line 3527 "" s_cat(tempq, a__4, i__7, &c__5, (ftnlen)79); -#line 3462 "" +#line 3528 "" } else { /* Writing concatenation */ -#line 3463 "" +#line 3529 "" i__7[0] = 1, a__4[0] = all_1.sq; -#line 3463 "" +#line 3529 "" i__7[1] = 5, a__4[1] = "lower"; -#line 3463 "" +#line 3529 "" i__7[2] = ltemp, a__4[2] = tempq; -#line 3463 "" +#line 3529 "" i__7[3] = 1, a__4[3] = all_1.sq; -#line 3463 "" +#line 3529 "" i__7[4] = 9, a__4[4] = "internote"; -#line 3463 "" +#line 3529 "" s_cat(tempq, a__4, i__7, &c__5, (ftnlen)79); -#line 3464 "" +#line 3530 "" } -#line 3465 "" +#line 3531 "" ltemp += 16; /* Writing concatenation */ -#line 3466 "" +#line 3532 "" i__3[0] = *lnote, a__3[0] = notexq; -#line 3466 "" +#line 3532 "" i__3[1] = ltemp, a__3[1] = tempq; -#line 3466 "" +#line 3532 "" i__3[2] = lrest, a__3[2] = restq; -#line 3466 "" +#line 3532 "" s_cat(notexq, a__3, i__3, &c__3, (ftnlen)79); -#line 3467 "" +#line 3533 "" *lnote = *lnote + ltemp + lrest; -#line 3468 "" +#line 3534 "" } /* No need to come back through this subroutine (as would if rest starts bar */ /* & multb>0), so do not advance ibm1. But must check in beamn1 and do nothing. */ -#line 3473 "" +#line 3539 "" strtmid_1.ixrest[commvl_1.ivx - 1] = 0; -#line 3474 "" +#line 3540 "" } -#line 3475 "" +#line 3541 "" return 0; -#line 3476 "" +#line 3542 "" } /* End if block for non-beamed xtup start...note we returned */ -#line 3480 "" +#line 3546 "" if (strtmid_1.ixrest[commvl_1.ivx - 1] == 1) { /* Insert rest at start of beamed xtup. See above note for possible problem. */ /* But first check if blank rest and if in forced beam (assuming xtuplet), */ /* and if so, count rest from beginning, add \sk's AFTER starting beam '\ib*' */ -#line 3486 "" +#line 3552 "" if (bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],29) && bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],30)) { -#line 3487 "" +#line 3553 "" ++xjbeambrests_1.nbrests; -#line 3488 "" +#line 3554 "" writebrests = FALSE_; -#line 3489 "" +#line 3555 "" } else { -#line 3490 "" +#line 3556 "" i__4 = 4 - multb; -#line 3490 "" +#line 3556 "" all_1.nodur[commvl_1.ivx + ipb1 * 24 - 25] = pow_ii(&c__2, & i__4); -#line 3491 "" +#line 3557 "" notex_(tempq, <emp, (ftnlen)79); -#line 3492 "" +#line 3558 "" if (*lnote > 0) { /* Writing concatenation */ -#line 3493 "" +#line 3559 "" i__2[0] = *lnote, a__2[0] = notexq; -#line 3493 "" +#line 3559 "" i__2[1] = ltemp, a__2[1] = tempq; -#line 3493 "" +#line 3559 "" s_cat(notexq, a__2, i__2, &c__2, (ftnlen)79); -#line 3494 "" +#line 3560 "" } else { -#line 3495 "" +#line 3561 "" s_copy(notexq, tempq, (ftnlen)79, ltemp); -#line 3496 "" +#line 3562 "" } -#line 3497 "" +#line 3563 "" *lnote += ltemp; -#line 3498 "" +#line 3564 "" } /* Re-zero just in case! */ -#line 3502 "" +#line 3568 "" all_1.nodur[commvl_1.ivx + ipb1 * 24 - 25] = 0; -#line 3503 "" +#line 3569 "" ++all_1.ibm1[commvl_1.ivx + ibc * 24 - 25]; /* See if next note is a non-rest */ -#line 3507 "" +#line 3573 "" if (! bit_test(all_1.irest[commvl_1.ivx + (ipb1 + 1) * 24 - 25],0) ) { -#line 3508 "" +#line 3574 "" strtmid_1.ixrest[commvl_1.ivx - 1] = 2; -#line 3509 "" +#line 3575 "" } else { /* Suppress reprinting xtup number next time through beamstrt */ -#line 3513 "" +#line 3579 "" all_1.islur[commvl_1.ivx + (ipb1 + 1) * 24 - 25] = bit_set( all_1.islur[commvl_1.ivx + (ipb1 + 1) * 24 - 25],31); /* Set new xtup start flag */ -#line 3517 "" +#line 3583 "" all_1.irest[commvl_1.ivx + (ipb1 + 1) * 24 - 25] = bit_set( all_1.irest[commvl_1.ivx + (ipb1 + 1) * 24 - 25],28); -#line 3518 "" +#line 3584 "" } -#line 3519 "" +#line 3585 "" return 0; -#line 3520 "" +#line 3586 "" } -#line 3521 "" +#line 3587 "" } /* Just ended if block for xtups */ -#line 3525 "" +#line 3591 "" if (comxtup_1.vxtup[commvl_1.ivx - 1] && ipb1 == all_1.ibm2[commvl_1.ivx + ibc * 24 - 25]) { /* Move actual note writing to beamend */ -#line 3529 "" +#line 3595 "" strtmid_1.ixrest[commvl_1.ivx - 1] = 4; -#line 3530 "" +#line 3596 "" return 0; -#line 3531 "" +#line 3597 "" } -#line 3532 "" +#line 3598 "" if (comxtup_1.issb[commvl_1.ivx - 1] == 0) { /* 1st bmstrt in single-slope bm grp, Adjust start level(s) and slope if needed */ -#line 3536 "" +#line 3602 "" iadj = igetbits_(&all_1.ipl[commvl_1.ivx + ipb1 * 24 - 25], &c__6, & c__11) - 30; -#line 3537 "" +#line 3603 "" if (iadj != -30) { -#line 3538 "" +#line 3604 "" comxtup_1.nolev1[commvl_1.ivx - 1] += iadj; -#line 3539 "" +#line 3605 "" i__4 = comxtup_1.nssb[commvl_1.ivx - 1]; -#line 3539 "" +#line 3605 "" for (isssb = 1; isssb <= i__4; ++isssb) { -#line 3540 "" +#line 3606 "" comxtup_1.lev1ssb[commvl_1.ivx + isssb * 24 - 25] += iadj; -#line 3541 "" +#line 3607 "" /* L2: */ -#line 3541 "" +#line 3607 "" } -#line 3542 "" +#line 3608 "" } -#line 3543 "" +#line 3609 "" iadj = igetbits_(&all_1.ipl[commvl_1.ivx + ipb1 * 24 - 25], &c__6, & c__17) - 30; -#line 3544 "" +#line 3610 "" if (iadj != -30) { -#line 3545 "" +#line 3611 "" comxtup_1.islope[commvl_1.ivx - 1] += iadj; -#line 3546 "" +#line 3612 "" if ((i__4 = comxtup_1.islope[commvl_1.ivx - 1], abs(i__4)) > 9) { -#line 3546 "" +#line 3612 "" comxtup_1.islope[commvl_1.ivx - 1] = i_sign(&c__9, & comxtup_1.islope[commvl_1.ivx - 1]); -#line 3546 "" +#line 3612 "" } -#line 3547 "" +#line 3613 "" if (comxtup_1.nssb[commvl_1.ivx - 1] > 0) { /* Cycle thru non-rest notes in SSBG, looking for bmstrts. */ -#line 3551 "" +#line 3617 "" isssb = 0; -#line 3552 "" +#line 3618 "" i__4 = comipb_1.nnb; -#line 3552 "" +#line 3618 "" for (inb = 2; inb <= i__4; ++inb) { -#line 3553 "" +#line 3619 "" if (bit_test(all_1.nacc[commvl_1.ivx + comipb_1.ipb[inb - 1] * 24 - 25],21)) { /* Beam segment start. New start level */ -#line 3556 "" +#line 3622 "" ++isssb; -#line 3557 "" +#line 3623 "" comxtup_1.lev1ssb[commvl_1.ivx + isssb * 24 - 25] += comxtup_1.islope[commvl_1.ivx - 1] * comxtup_1.xelsk[inb - 1] / all_1.slfac; -#line 3559 "" +#line 3625 "" } -#line 3560 "" +#line 3626 "" /* L4: */ -#line 3560 "" +#line 3626 "" } -#line 3561 "" +#line 3627 "" } -#line 3562 "" +#line 3628 "" } -#line 3563 "" +#line 3629 "" } -#line 3564 "" +#line 3630 "" iadj = igetbits_(&all_1.islur[commvl_1.ivx + ipb1 * 24 - 25], &c__2, & c__27); -#line 3565 "" +#line 3631 "" addbrack = FALSE_; -#line 3566 "" +#line 3632 "" if (bit_test(all_1.ipl[commvl_1.ivx + ipb1 * 24 - 25],30)) { /* Check for altered starting polarity. Only in forced beams. Nominal start */ /* level is nolev1. So beam level is nolev1 +/- 6, to be compared w/ nolev(.,.). */ -#line 3571 "" +#line 3637 "" if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + ibc * 24 - 25] == 'u' && comxtup_1.nolev1[commvl_1.ivx - 1] + 6 < all_1.nolev[ commvl_1.ivx + ipb1 * 24 - 25]) { -#line 3573 "" +#line 3639 "" if (*lnote == 0) { /* Writing concatenation */ -#line 3574 "" +#line 3640 "" i__2[0] = 1, a__2[0] = all_1.sq; -#line 3574 "" +#line 3640 "" i__2[1] = 5, a__2[1] = "loff{"; -#line 3574 "" +#line 3640 "" s_cat(notexq, a__2, i__2, &c__2, (ftnlen)79); -#line 3575 "" +#line 3641 "" } else { /* Writing concatenation */ -#line 3576 "" +#line 3642 "" i__3[0] = *lnote, a__3[0] = notexq; -#line 3576 "" +#line 3642 "" i__3[1] = 1, a__3[1] = all_1.sq; -#line 3576 "" +#line 3642 "" i__3[2] = 5, a__3[2] = "loff{"; -#line 3576 "" +#line 3642 "" s_cat(notexq, a__3, i__3, &c__3, (ftnlen)79); -#line 3577 "" +#line 3643 "" } -#line 3578 "" +#line 3644 "" *lnote += 6; -#line 3579 "" +#line 3645 "" addbrack = TRUE_; -#line 3580 "" +#line 3646 "" } else if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + ibc * 24 - 25] == 'l' && comxtup_1.nolev1[commvl_1.ivx - 1] - 6 > all_1.nolev[commvl_1.ivx + ipb1 * 24 - 25]) { -#line 3582 "" +#line 3648 "" if (*lnote == 0) { /* Writing concatenation */ -#line 3583 "" +#line 3649 "" i__2[0] = 1, a__2[0] = all_1.sq; -#line 3583 "" +#line 3649 "" i__2[1] = 5, a__2[1] = "roff{"; -#line 3583 "" +#line 3649 "" s_cat(notexq, a__2, i__2, &c__2, (ftnlen)79); -#line 3584 "" +#line 3650 "" } else { /* Writing concatenation */ -#line 3585 "" +#line 3651 "" i__3[0] = *lnote, a__3[0] = notexq; -#line 3585 "" +#line 3651 "" i__3[1] = 1, a__3[1] = all_1.sq; -#line 3585 "" +#line 3651 "" i__3[2] = 5, a__3[2] = "roff{"; -#line 3585 "" +#line 3651 "" s_cat(notexq, a__3, i__3, &c__3, (ftnlen)79); -#line 3586 "" +#line 3652 "" } -#line 3587 "" +#line 3653 "" *lnote += 6; -#line 3588 "" +#line 3654 "" addbrack = TRUE_; -#line 3589 "" +#line 3655 "" } /* Check end level for possible flipping in forced beam. Have to do it */ /* here since with multiple voices, xelsk will not be preserved. */ -#line 3594 "" +#line 3660 "" if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + all_1.ibmcnt[ commvl_1.ivx - 1] * 24 - 25] == 'u') { -#line 3595 "" +#line 3661 "" bmlev = comxtup_1.nolev1[commvl_1.ivx - 1] + 6 + comxtup_1.islope[ commvl_1.ivx - 1] * comxtup_1.xelsk[comipb_1.nnb - 1] / all_1.slfac; -#line 3596 "" +#line 3662 "" strtmid_1.flipend[commvl_1.ivx - 1] = bmlev < (real) all_1.nolev[ commvl_1.ivx + all_1.ibm2[commvl_1.ivx + ibc * 24 - 25] * 24 - 25]; -#line 3597 "" +#line 3663 "" } else if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + all_1.ibmcnt[ commvl_1.ivx - 1] * 24 - 25] == 'l') { -#line 3598 "" +#line 3664 "" bmlev = comxtup_1.nolev1[commvl_1.ivx - 1] - 6 + comxtup_1.islope[ commvl_1.ivx - 1] * comxtup_1.xelsk[comipb_1.nnb - 1] / all_1.slfac; -#line 3599 "" +#line 3665 "" strtmid_1.flipend[commvl_1.ivx - 1] = bmlev > (real) all_1.nolev[ commvl_1.ivx + all_1.ibm2[commvl_1.ivx + ibc * 24 - 25] * 24 - 25]; -#line 3600 "" +#line 3666 "" } -#line 3601 "" +#line 3667 "" } -#line 3602 "" +#line 3668 "" multbb = multb + iadj; /* Tremolo starting? */ -#line 3606 "" +#line 3672 "" if (bit_test(all_1.irest[commvl_1.ivx + ipb1 * 24 - 25],2)) { -#line 3606 "" +#line 3672 "" multbb = igetbits_(&all_1.irest[commvl_1.ivx + ipb1 * 24 - 25], &c__2, &c__3); -#line 3606 "" +#line 3672 "" } -#line 3608 "" +#line 3674 "" ntrbbb_(&multbb, "i", all_1.ulq + (commvl_1.ivx + ibc * 24 - 25), & commvl_1.ivx, notexq, lnote, (ftnlen)1, (ftnlen)1, (ftnlen)79); /* Put in name of start level and slope, after correcting nolev1 if xtup */ /* started with a rest. */ -#line 3613 "" +#line 3679 "" if (strtmid_1.ixrest[commvl_1.ivx - 1] == 2) { -#line 3613 "" +#line 3679 "" r__1 = comxtup_1.nolev1[commvl_1.ivx - 1] + comxtup_1.xelsk[0] * comxtup_1.islope[commvl_1.ivx - 1] / all_1.slfac; -#line 3613 "" +#line 3679 "" comxtup_1.nolev1[commvl_1.ivx - 1] = i_nint(&r__1); -#line 3613 "" +#line 3679 "" } /* Add adjustment nvtrem to main beam to account for tremolo indented beams */ -#line 3618 "" +#line 3684 "" i__4 = comxtup_1.nolev1[commvl_1.ivx - 1] + nvtrem; -#line 3618 "" +#line 3684 "" i__5 = ncmid_(&all_1.iv, &ipb1); -#line 3618 "" +#line 3684 "" notefq_(noteq, &lnoten, &i__4, &i__5, (ftnlen)8); -#line 3619 "" +#line 3685 "" if (comxtup_1.islope[commvl_1.ivx - 1] < 0) { /* Writing concatenation */ -#line 3620 "" +#line 3686 "" i__3[0] = *lnote, a__3[0] = notexq; -#line 3620 "" +#line 3686 "" i__3[1] = lnoten, a__3[1] = noteq; -#line 3620 "" +#line 3686 "" i__3[2] = 1, a__3[2] = "{"; -#line 3620 "" +#line 3686 "" s_cat(notexq, a__3, i__3, &c__3, (ftnlen)79); -#line 3621 "" +#line 3687 "" *lnote = *lnote + 4 + lnoten; -#line 3622 "" +#line 3688 "" i__4 = *lnote - 3; -#line 3622 "" +#line 3688 "" ici__1.icierr = 0; -#line 3622 "" +#line 3688 "" ici__1.icirnum = 1; -#line 3622 "" +#line 3688 "" ici__1.icirlen = *lnote - i__4; -#line 3622 "" +#line 3688 "" ici__1.iciunit = notexq + i__4; -#line 3622 "" +#line 3688 "" ici__1.icifmt = "(i2,a1)"; -#line 3622 "" +#line 3688 "" s_wsfi(&ici__1); -#line 3622 "" +#line 3688 "" do_fio(&c__1, (char *)&comxtup_1.islope[commvl_1.ivx - 1], (ftnlen) sizeof(integer)); -#line 3622 "" +#line 3688 "" do_fio(&c__1, "}", (ftnlen)1); -#line 3622 "" +#line 3688 "" e_wsfi(); -#line 3623 "" +#line 3689 "" } else { /* Writing concatenation */ -#line 3624 "" +#line 3690 "" i__2[0] = *lnote, a__2[0] = notexq; -#line 3624 "" +#line 3690 "" i__2[1] = lnoten, a__2[1] = noteq; -#line 3624 "" +#line 3690 "" s_cat(notexq, a__2, i__2, &c__2, (ftnlen)79); -#line 3625 "" +#line 3691 "" *lnote = *lnote + 1 + lnoten; -#line 3626 "" +#line 3692 "" ici__1.icierr = 0; -#line 3626 "" +#line 3692 "" ici__1.icirnum = 1; -#line 3626 "" +#line 3692 "" ici__1.icirlen = 1; -#line 3626 "" +#line 3692 "" ici__1.iciunit = notexq + (*lnote - 1); -#line 3626 "" +#line 3692 "" ici__1.icifmt = "(i1)"; -#line 3626 "" +#line 3692 "" s_wsfi(&ici__1); -#line 3626 "" +#line 3692 "" do_fio(&c__1, (char *)&comxtup_1.islope[commvl_1.ivx - 1], (ftnlen) sizeof(integer)); -#line 3626 "" +#line 3692 "" e_wsfi(); -#line 3627 "" +#line 3693 "" } /* Check for beam-thk fine-tuning */ -#line 3631 "" +#line 3697 "" if (iadj > 0) { -#line 3632 "" +#line 3698 "" i__4 = multb + 1; -#line 3632 "" +#line 3698 "" for (imp = multb + iadj; imp >= i__4; --imp) { -#line 3633 "" +#line 3699 "" ntrbbb_(&imp, "t", all_1.ulq + (commvl_1.ivx + ibc * 24 - 25), & commvl_1.ivx, notexq, lnote, (ftnlen)1, (ftnlen)1, ( ftnlen)79); -#line 3634 "" +#line 3700 "" /* L1: */ -#line 3634 "" +#line 3700 "" } -#line 3635 "" +#line 3701 "" } /* If we shifted, must close with right bracket */ -#line 3639 "" +#line 3705 "" if (addbrack) { /* Writing concatenation */ -#line 3640 "" +#line 3706 "" i__2[0] = *lnote, a__2[0] = notexq; -#line 3640 "" +#line 3706 "" i__2[1] = 1, a__2[1] = "}"; -#line 3640 "" +#line 3706 "" s_cat(notexq, a__2, i__2, &c__2, (ftnlen)79); -#line 3641 "" +#line 3707 "" ++(*lnote); -#line 3642 "" +#line 3708 "" } /* Add in \sk's for very special case of staff-crossing xtup chords */ /* Assumes we are in lower (first) voice of up-to-both beamed xtup */ /* that starts with blank rests (notes in upper voice here). */ -#line 3648 "" +#line 3714 "" if (xjbeambrests_1.nbrests > 0 && writebrests) { -#line 3649 "" +#line 3715 "" i__4 = xjbeambrests_1.nbrests; -#line 3649 "" +#line 3715 "" for (isk = 1; isk <= i__4; ++isk) { /* Writing concatenation */ -#line 3650 "" +#line 3716 "" i__3[0] = *lnote, a__3[0] = notexq; -#line 3650 "" +#line 3716 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 3650 "" +#line 3716 "" i__3[1] = 1, a__3[1] = ch__1; -#line 3650 "" +#line 3716 "" i__3[2] = 2, a__3[2] = "sk"; -#line 3650 "" +#line 3716 "" s_cat(notexq, a__3, i__3, &c__3, (ftnlen)79); -#line 3651 "" +#line 3717 "" *lnote += 3; -#line 3652 "" +#line 3718 "" /* L7: */ -#line 3652 "" +#line 3718 "" } -#line 3653 "" +#line 3719 "" xjbeambrests_1.nbrests = 0; -#line 3654 "" +#line 3720 "" } /* Get 'floor' zmin for figures */ @@ -9451,100 +9536,100 @@ L6: /* won't be adjusted. If anyone ever needs that, need to duplicate this */ /* functionality up above, before exiting. */ -#line 3661 "" +#line 3727 "" if (all_1.figbass && (commvl_1.ivx == 1 || commvl_1.ivx == comfig_1.ivxfig2)) { -#line 3662 "" +#line 3728 "" if (commvl_1.ivx == 1) { -#line 3663 "" +#line 3729 "" ivf = 1; -#line 3664 "" +#line 3730 "" } else { -#line 3665 "" +#line 3731 "" ivf = comfig_1.ivxfig2; -#line 3666 "" +#line 3732 "" } -#line 3667 "" +#line 3733 "" zmult = (multb - 1) * 1.2f; -#line 3668 "" +#line 3734 "" ymin = 100.f; -#line 3669 "" +#line 3735 "" i__4 = comipb_1.nnb; -#line 3669 "" +#line 3735 "" for (inb = 1; inb <= i__4; ++inb) { -#line 3670 "" +#line 3736 "" if (all_1.isfig[ivf + (comipb_1.ipb[inb - 1] << 1) - 3]) { -#line 3671 "" +#line 3737 "" if (*(unsigned char *)&all_1.ulq[all_1.iv + ibc * 24 - 25] == 'u') { -#line 3672 "" +#line 3738 "" ybot = (real) all_1.nolev[all_1.iv + comipb_1.ipb[inb - 1] * 24 - 25]; -#line 3673 "" +#line 3739 "" } else { -#line 3674 "" +#line 3740 "" ybot = comxtup_1.islope[commvl_1.ivx - 1] / all_1.slfac * comxtup_1.xelsk[inb - 1] + comxtup_1.nolev1[ commvl_1.ivx - 1] - all_1.stemlen - zmult; -#line 3676 "" +#line 3742 "" } -#line 3677 "" +#line 3743 "" ymin = dmin(ymin,ybot); -#line 3678 "" +#line 3744 "" } -#line 3679 "" +#line 3745 "" /* L3: */ -#line 3679 "" +#line 3745 "" } -#line 3680 "" +#line 3746 "" maxdrop = ncmid_(&all_1.iv, &ipb1) - 4 - ymin + 5.01f; /* Computing MAX */ -#line 3681 "" +#line 3747 "" i__4 = all_1.ifigdr[ivf + (all_1.iline << 1) - 3]; -#line 3681 "" +#line 3747 "" all_1.ifigdr[ivf + (all_1.iline << 1) - 3] = max(i__4,maxdrop); -#line 3682 "" +#line 3748 "" } /* Compute ornament levels if needed */ -#line 3686 "" +#line 3752 "" nomornlev = ncmid_(&all_1.iv, &ipb1) + 5; -#line 3687 "" +#line 3753 "" iorn = 0; -#line 3688 "" +#line 3754 "" i__4 = comipb_1.nnb; -#line 3688 "" +#line 3754 "" for (inb = 1; inb <= i__4; ++inb) { -#line 3689 "" +#line 3755 "" ip = comipb_1.ipb[inb - 1]; -#line 3690 "" +#line 3756 "" if (! bit_test(all_1.iornq[commvl_1.ivx + ip * 24 - 1],23)) { -#line 3690 "" +#line 3756 "" goto L8; -#line 3690 "" +#line 3756 "" } -#line 3691 "" +#line 3757 "" if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],26) && *( unsigned char *)&all_1.ulq[commvl_1.ivx + ibc * 24 - 25] == 'l') { /* letter-dynamic or hairpin ending under down-beamed */ -#line 3695 "" +#line 3761 "" ++iorn; -#line 3696 "" +#line 3762 "" ybeam = comxtup_1.nolev1[commvl_1.ivx - 1] - all_1.stemlen + comxtup_1.islope[commvl_1.ivx - 1] * comxtup_1.xelsk[inb - 1] / all_1.slfac + 1 - (multb - 1) * 1.2f; /* Computing MIN */ -#line 3698 "" +#line 3764 "" r__1 = ybeam - 3.f; -#line 3698 "" +#line 3764 "" i__5 = i_nint(&r__1), i__6 = nomornlev - 10; -#line 3698 "" +#line 3764 "" ihornb[commvl_1.ivx + iorn * 24] = min(i__5,i__6); -#line 3699 "" +#line 3765 "" } else if (! bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],10)) { /* Bits 0-13: (stmgx+Tupf._) , 14: Down fermata, was F */ @@ -9553,52 +9638,52 @@ L6: /* Non-chord. There IS an ornament. Need ihornb only if upbeam, and if */ /* ornament is 1,2,3,5,6,7,8,9,10,15-21 (up- but not domn ferm.) */ -#line 3707 "" +#line 3773 "" if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + ibc * 24 - 25] == 'u' && (all_1.iornq[commvl_1.ivx + comipb_1.ipb[inb - 1] * 24 - 1] & 4163566) > 0) { -#line 3709 "" +#line 3775 "" ++iorn; -#line 3710 "" +#line 3776 "" all_1.iornq[commvl_1.ivx + ip * 24 - 1] = bit_set(all_1.iornq[ commvl_1.ivx + ip * 24 - 1],22); -#line 3711 "" +#line 3777 "" ybeam = comxtup_1.nolev1[commvl_1.ivx - 1] + all_1.stemlen + comxtup_1.islope[commvl_1.ivx - 1] * comxtup_1.xelsk[ inb - 1] / all_1.slfac - 1 + (multb - 1) * 1.2f; /* Computing MAX */ -#line 3713 "" +#line 3779 "" r__1 = ybeam + 3.f; -#line 3713 "" +#line 3779 "" i__5 = i_nint(&r__1); -#line 3713 "" +#line 3779 "" ihornb[commvl_1.ivx + iorn * 24] = max(i__5,nomornlev); -#line 3714 "" +#line 3780 "" } -#line 3715 "" +#line 3781 "" } else { /* In a chord. Orn may be on main note or non-main or both. Set ihornb if */ /* upbeam and highest note has orn, or down beam and lowest. Find 1st chord note */ -#line 3720 "" +#line 3786 "" i__5 = comtrill_1.ncrd; -#line 3720 "" +#line 3786 "" for (comtrill_1.icrd1 = 1; comtrill_1.icrd1 <= i__5; ++comtrill_1.icrd1) { -#line 3721 "" +#line 3787 "" if ((255 & comtrill_1.icrdat[comtrill_1.icrd1 - 1]) == ip && ( 15 & lbit_shift(comtrill_1.icrdat[comtrill_1.icrd1 - 1], (ftnlen)-8)) == commvl_1.ivx) { -#line 3721 "" +#line 3787 "" goto L11; -#line 3721 "" +#line 3787 "" } -#line 3723 "" +#line 3789 "" /* L10: */ -#line 3723 "" +#line 3789 "" } -#line 3724 "" +#line 3790 "" L11: /* Find outermost note, min or max depending on beam direction ulq. xto is true */ @@ -9606,126 +9691,126 @@ L11: /* on extreme chord note in beam, will move. */ /* So ornaments are all except 0,4,13 (,g,) */ -#line 3731 "" +#line 3797 "" levx = all_1.nolev[commvl_1.ivx + ip * 24 - 25]; -#line 3732 "" +#line 3798 "" xto = (all_1.iornq[commvl_1.ivx + comipb_1.ipb[inb - 1] * 24 - 1] & 4186094) > 0; -#line 3733 "" +#line 3799 "" icrdx = 0; -#line 3734 "" +#line 3800 "" i__5 = comtrill_1.ncrd; -#line 3734 "" +#line 3800 "" for (icrd = comtrill_1.icrd1; icrd <= i__5; ++icrd) { -#line 3735 "" +#line 3801 "" if ((255 & comtrill_1.icrdat[icrd - 1]) != ip || (15 & lbit_shift(comtrill_1.icrdat[icrd - 1], (ftnlen)-8)) != commvl_1.ivx) { -#line 3735 "" +#line 3801 "" goto L13; -#line 3735 "" +#line 3801 "" } -#line 3737 "" +#line 3803 "" levc = 127 & lbit_shift(comtrill_1.icrdat[icrd - 1], (ftnlen) -12); -#line 3738 "" +#line 3804 "" if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + ibc * 24 - 25] == 'u' && levc > levx || *(unsigned char *)& all_1.ulq[commvl_1.ivx + ibc * 24 - 25] == 'l' && levc < levx) { -#line 3740 "" +#line 3806 "" levx = levc; -#line 3741 "" +#line 3807 "" icrdx = icrd; -#line 3742 "" +#line 3808 "" xto = (comtrill_1.icrdorn[icrd - 1] & 4186094) > 0; -#line 3743 "" +#line 3809 "" } -#line 3744 "" +#line 3810 "" /* L12: */ -#line 3744 "" +#line 3810 "" } -#line 3745 "" +#line 3811 "" L13: /* If there's orn on extreme note, do stuff */ -#line 3749 "" +#line 3815 "" if (xto) { -#line 3750 "" +#line 3816 "" ++iorn; -#line 3751 "" +#line 3817 "" if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + ibc * 24 - 25] == 'u') { -#line 3752 "" +#line 3818 "" ybeam = comxtup_1.nolev1[commvl_1.ivx - 1] + all_1.stemlen + comxtup_1.islope[commvl_1.ivx - 1] * comxtup_1.xelsk[inb - 1] / all_1.slfac - 1 + ( multb - 1) * 1.2f; /* Computing MAX */ -#line 3754 "" +#line 3820 "" r__1 = ybeam + 3.f; -#line 3754 "" +#line 3820 "" i__5 = i_nint(&r__1); -#line 3754 "" +#line 3820 "" ihornb[commvl_1.ivx + iorn * 24] = max(i__5,nomornlev); -#line 3755 "" +#line 3821 "" } else { -#line 3756 "" +#line 3822 "" ybeam = comxtup_1.nolev1[commvl_1.ivx - 1] - all_1.stemlen + comxtup_1.islope[commvl_1.ivx - 1] * comxtup_1.xelsk[inb - 1] / all_1.slfac + 1 - ( multb - 1) * 1.2f; /* Computing MIN */ -#line 3758 "" +#line 3824 "" r__1 = ybeam - 3.f; -#line 3758 "" +#line 3824 "" i__5 = i_nint(&r__1), i__6 = nomornlev - 10; -#line 3758 "" +#line 3824 "" ihornb[commvl_1.ivx + iorn * 24] = min(i__5,i__6); -#line 3759 "" +#line 3825 "" } -#line 3760 "" +#line 3826 "" if (icrdx == 0) { /* Affected ornament is on main note */ -#line 3764 "" +#line 3830 "" all_1.iornq[commvl_1.ivx + ip * 24 - 1] = bit_set( all_1.iornq[commvl_1.ivx + ip * 24 - 1],22); -#line 3765 "" +#line 3831 "" } else { -#line 3766 "" +#line 3832 "" comtrill_1.icrdorn[icrdx - 1] = bit_set( comtrill_1.icrdorn[icrdx - 1],22); -#line 3767 "" +#line 3833 "" } -#line 3768 "" +#line 3834 "" } -#line 3769 "" +#line 3835 "" } -#line 3770 "" +#line 3836 "" L8: -#line 3770 "" +#line 3836 "" ; -#line 3770 "" +#line 3836 "" } /* Henceforth nornb will be a counter. */ -#line 3774 "" +#line 3840 "" if (iorn > 0) { -#line 3774 "" +#line 3840 "" nornb[commvl_1.ivx] = 1; -#line 3774 "" +#line 3840 "" } -#line 3775 "" +#line 3841 "" if (strtmid_1.ixrest[commvl_1.ivx - 1] == 2) { -#line 3775 "" +#line 3841 "" strtmid_1.ixrest[commvl_1.ivx - 1] = 0; -#line 3775 "" +#line 3841 "" } -#line 3776 "" +#line 3842 "" return 0; } /* beamstrt_ */ @@ -9749,45 +9834,45 @@ L8: /* * ibaroff,udsp(nkb),wheadpt,gotclef,sqzb(maxblks) */ /* logical gotclef */ -#line 3860 "" +#line 3926 "" i__1 = c1omnotes_1.nptr[c1omnotes_1.ibarcnt] - 1; -#line 3860 "" +#line 3926 "" for (iptr = c1omnotes_1.nptr[c1omnotes_1.ibarcnt - 1]; iptr <= i__1; ++iptr) { -#line 3861 "" +#line 3927 "" if ((r__1 = *space - c1omnotes_1.durb[iptr - 1], dabs(r__1)) < comtol_1.tol) { -#line 3862 "" +#line 3928 "" if ((r__1 = *squez - c1omnotes_1.sqzb[iptr - 1], dabs(r__1)) < comtol_1.tol) { /* Increment pre-existing entry */ -#line 3866 "" +#line 3932 "" c1omnotes_1.nnpd[iptr - 1] += *nnsk; -#line 3867 "" +#line 3933 "" return 0; -#line 3868 "" +#line 3934 "" } -#line 3869 "" +#line 3935 "" } -#line 3870 "" +#line 3936 "" /* L16: */ -#line 3870 "" +#line 3936 "" } /* Didn't find current duration & squez, so add a new entry. */ /* No particular reason to keep in order, so add at the end. */ -#line 3875 "" +#line 3941 "" c1omnotes_1.nnpd[c1omnotes_1.nptr[c1omnotes_1.ibarcnt] - 1] = *nnsk; -#line 3876 "" +#line 3942 "" c1omnotes_1.durb[c1omnotes_1.nptr[c1omnotes_1.ibarcnt] - 1] = *space; -#line 3877 "" +#line 3943 "" c1omnotes_1.sqzb[c1omnotes_1.nptr[c1omnotes_1.ibarcnt] - 1] = *squez; -#line 3878 "" +#line 3944 "" ++c1omnotes_1.nptr[c1omnotes_1.ibarcnt]; -#line 3879 "" +#line 3945 "" return 0; } /* catspace_ */ @@ -9797,9 +9882,9 @@ L8: /* The only reason for this seemingly do-nothing function is to get around an */ /* apparent bug in the Visual Fortran Standard Edition 5.0.A compiler! */ -#line 3886 "" +#line 3952 "" *(unsigned char *)ret_val = (char) (*n); -#line 3887 "" +#line 3953 "" return ; } /* chax_ */ @@ -9834,238 +9919,238 @@ L8: ftnlen, ftnlen); static char dynsymq[4]; -#line 3894 "" +#line 3960 "" txtdyn = FALSE_; /* On entry, iccount is on "D" */ -#line 3898 "" +#line 3964 "" i__1 = *iccount; -#line 3898 "" +#line 3964 "" if (s_cmp(lineq + i__1, "\"", *iccount + 1 - i__1, (ftnlen)1) == 0) { /* Dynamic text */ -#line 3903 "" +#line 3969 "" istart = *iccount + 2; /* 1 past 1st quote */ -#line 3904 "" +#line 3970 "" L3: -#line 3905 "" +#line 3971 "" iend = i_indx(lineq + (istart - 1), "\"", 128 - (istart - 1), (ftnlen) 1); -#line 3906 "" +#line 3972 "" i__1 = istart + iend - 3; -#line 3906 "" +#line 3972 "" if (s_cmp(lineq + i__1, "\\", istart + iend - 2 - i__1, (ftnlen)1) == 0) { -#line 3907 "" +#line 3973 "" istart = *iccount + iend + 2; -#line 3908 "" +#line 3974 "" goto L3; -#line 3909 "" +#line 3975 "" } -#line 3910 "" +#line 3976 "" if (iend == 0) { -#line 3911 "" +#line 3977 "" i__1 = *iccount + 1; -#line 3911 "" +#line 3977 "" errmsg_(lineq, &i__1, ibar, "Dynamic text must be terminated wit"\ "h double quote!", (ftnlen)128, (ftnlen)50); -#line 3913 "" +#line 3979 "" stop1_(); -#line 3914 "" +#line 3980 "" } /* Set iccount to character after 2nd ", and set ipm */ /* iccount = iccount+iend+2 */ -#line 3919 "" +#line 3985 "" *iccount = istart + iend; -#line 3920 "" +#line 3986 "" ipm = i_indx("- +", lineq + (*iccount - 1), (ftnlen)3, (ftnlen)1); -#line 3921 "" +#line 3987 "" if (ipm == 0) { -#line 3922 "" +#line 3988 "" errmsg_(lineq, iccount, ibar, "Expected \"-\", \"+\", or blank h"\ "ere!", (ftnlen)128, (ftnlen)33); -#line 3924 "" +#line 3990 "" stop1_(); -#line 3925 "" +#line 3991 "" } -#line 3926 "" +#line 3992 "" } else { /* Expect ordinary dynamic */ -#line 3930 "" +#line 3996 "" for (iend = *iccount + 2; iend <= 128; ++iend) { -#line 3931 "" +#line 3997 "" ipm = i_indx("- +", lineq + (iend - 1), (ftnlen)3, (ftnlen)1); -#line 3932 "" +#line 3998 "" if (ipm > 0) { -#line 3932 "" +#line 3998 "" goto L2; -#line 3932 "" +#line 3998 "" } -#line 3933 "" +#line 3999 "" /* L1: */ -#line 3933 "" +#line 3999 "" } -#line 3934 "" +#line 4000 "" L2: -#line 3935 "" +#line 4001 "" if (iend - *iccount > 5 || iend - *iccount < 2) { -#line 3936 "" +#line 4002 "" i__1 = iend - 1; -#line 3936 "" +#line 4002 "" errmsg_(lineq, &i__1, ibar, "Wrong length for dynamic mark!", ( ftnlen)128, (ftnlen)30); -#line 3938 "" +#line 4004 "" stop1_(); -#line 3939 "" +#line 4005 "" } -#line 3940 "" +#line 4006 "" i__1 = *iccount; -#line 3940 "" +#line 4006 "" ici__1.icierr = 0; -#line 3940 "" +#line 4006 "" ici__1.iciend = 0; -#line 3940 "" +#line 4006 "" ici__1.icirnum = 1; -#line 3940 "" +#line 4006 "" ici__1.icirlen = iend - 1 - i__1; -#line 3940 "" +#line 4006 "" ici__1.iciunit = lineq + i__1; /* Writing concatenation */ -#line 3940 "" +#line 4006 "" i__2[0] = 2, a__1[0] = "(a"; -#line 3940 "" +#line 4006 "" i__3 = iend + 47 - *iccount; -#line 3940 "" +#line 4006 "" chax_(ch__2, (ftnlen)1, &i__3); -#line 3940 "" +#line 4006 "" i__2[1] = 1, a__1[1] = ch__2; -#line 3940 "" +#line 4006 "" i__2[2] = 1, a__1[2] = ")"; -#line 3940 "" +#line 4006 "" ici__1.icifmt = (s_cat(ch__1, a__1, i__2, &c__3, (ftnlen)4), ch__1); -#line 3940 "" +#line 4006 "" s_rsfi(&ici__1); -#line 3940 "" +#line 4006 "" do_fio(&c__1, dynsymq, (ftnlen)4); -#line 3940 "" +#line 4006 "" e_rsfi(); -#line 3942 "" +#line 4008 "" idno = (i_indx("ppppppp pp p mp mf f fp sfz ff fff ffff< "\ "> ", dynsymq, (ftnlen)56, (ftnlen)4) + 3) / 4; -#line 3945 "" +#line 4011 "" if (idno == 0) { -#line 3946 "" +#line 4012 "" i__1 = *iccount + 1; -#line 3946 "" +#line 4012 "" errmsg_(lineq, &i__1, ibar, "Illegal dynamic mark!", (ftnlen)128, (ftnlen)21); -#line 3947 "" +#line 4013 "" stop1_(); -#line 3948 "" +#line 4014 "" } -#line 3949 "" +#line 4015 "" *iccount = iend; -#line 3950 "" +#line 4016 "" } -#line 3951 "" +#line 4017 "" if (ipm != 2) { /* There is a vertical shift, have "+" or "-" */ -#line 3955 "" +#line 4021 "" ++(*iccount); -#line 3956 "" +#line 4022 "" if (i_indx("0123456789", lineq + (*iccount - 1), (ftnlen)10, (ftnlen) 1) == 0) { -#line 3957 "" +#line 4023 "" errmsg_(lineq, iccount, ibar, "Expected integer here for vertica"\ "l offset!", (ftnlen)128, (ftnlen)42); -#line 3959 "" +#line 4025 "" stop1_(); -#line 3960 "" +#line 4026 "" } -#line 3961 "" +#line 4027 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 3962 "" +#line 4028 "" idno = i_nint(&fnum); -#line 3963 "" +#line 4029 "" if (idno > 63) { -#line 3964 "" +#line 4030 "" i__1 = *iccount - 1; -#line 3964 "" +#line 4030 "" errmsg_(lineq, &i__1, ibar, "Vertical offset for dynamic mark mu"\ "st be (-63,63)!", (ftnlen)128, (ftnlen)50); -#line 3966 "" +#line 4032 "" stop1_(); -#line 3967 "" +#line 4033 "" } -#line 3968 "" +#line 4034 "" ipm = i_indx("- +", durq, (ftnlen)3, (ftnlen)1); -#line 3969 "" +#line 4035 "" if (ipm == 0) { -#line 3970 "" +#line 4036 "" errmsg_(lineq, iccount, ibar, "Expected \"+\", \"-\", or blank h"\ "ere!", (ftnlen)128, (ftnlen)33); -#line 3972 "" +#line 4038 "" stop1_(); -#line 3973 "" +#line 4039 "" } -#line 3974 "" +#line 4040 "" if (ipm != 2) { /* There is a horizontal shift */ -#line 3978 "" +#line 4044 "" ++(*iccount); -#line 3979 "" +#line 4045 "" if (i_indx(".0123456789", lineq + (*iccount - 1), (ftnlen)11, ( ftnlen)1) == 0) { -#line 3980 "" +#line 4046 "" errmsg_(lineq, iccount, ibar, "Expected number here for hori"\ "zontal offset!", (ftnlen)128, (ftnlen)43); -#line 3982 "" +#line 4048 "" stop1_(); -#line 3983 "" +#line 4049 "" } -#line 3984 "" +#line 4050 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 3985 "" +#line 4051 "" r__1 = fnum * 10; -#line 3985 "" +#line 4051 "" idno = i_nint(&r__1); -#line 3986 "" +#line 4052 "" if (idno > 255) { -#line 3987 "" +#line 4053 "" i__1 = *iccount - 1; -#line 3987 "" +#line 4053 "" errmsg_(lineq, &i__1, ibar, "Horizontal offset for dynamic m"\ "ark must be (-25.5,25.5)!", (ftnlen)128, (ftnlen)56); -#line 3989 "" +#line 4055 "" stop1_(); -#line 3990 "" +#line 4056 "" } else if (*(unsigned char *)durq != ' ') { -#line 3991 "" +#line 4057 "" errmsg_(lineq, iccount, ibar, "There should be a blank here!", (ftnlen)128, (ftnlen)29); -#line 3993 "" +#line 4059 "" stop1_(); -#line 3994 "" +#line 4060 "" } -#line 3995 "" +#line 4061 "" } /* iccount should be on the blank at the end of the entire symbol */ -#line 3999 "" +#line 4065 "" } -#line 4000 "" +#line 4066 "" return 0; } /* checkdyn_ */ @@ -10084,15 +10169,15 @@ L2: /* subroutine chkarp(found1,ncrd,icrdat,icrdot,ivx,ip,isacc,isarp, */ /* * icashft) */ -#line 4007 "" +#line 4073 "" /* Parameter adjustments */ -#line 4007 "" +#line 4073 "" --icrdat; -#line 4007 "" +#line 4073 "" -#line 4007 "" +#line 4073 "" /* Function Body */ -#line 4007 "" +#line 4073 "" found1 = FALSE_; /* icashft will be max left shift of accid's in chord notes. */ @@ -10100,19 +10185,19 @@ L2: /* Will include left shift of chord note itself. */ /* Rezero after use. */ -#line 4014 "" +#line 4080 "" i__1 = *ncrd; -#line 4014 "" +#line 4080 "" for (icrd = 1; icrd <= i__1; ++icrd) { /* This if block cycles thru all chord notes on ivx,ip; then returns. */ -#line 4018 "" +#line 4084 "" if ((255 & icrdat[icrd]) == *ip && (15 & lbit_shift(icrdat[icrd], ( ftnlen)-8)) == *ivx) { -#line 4020 "" +#line 4086 "" found1 = TRUE_; -#line 4021 "" +#line 4087 "" *iscacc = *iscacc || bit_test(icrdat[icrd],19) && ! bit_test( icrdat[icrd],27); @@ -10136,19 +10221,19 @@ L2: /* if (irshft .lt. 64) icashft = max(icashft,64-irshft) */ /* end if */ /* end if */ -#line 4044 "" +#line 4110 "" *isarp = *isarp || bit_test(icrdat[icrd],25); -#line 4045 "" +#line 4111 "" } else if (found1) { -#line 4046 "" +#line 4112 "" return 0; -#line 4047 "" +#line 4113 "" } -#line 4048 "" +#line 4114 "" /* L18: */ -#line 4048 "" +#line 4114 "" } -#line 4049 "" +#line 4115 "" return 0; } /* chkarp_ */ @@ -10160,41 +10245,41 @@ L2: e_wsfe(void); /* Fortran I/O blocks */ - static cilist io___271 = { 0, 6, 0, 0, 0 }; - static cilist io___272 = { 0, 6, 0, 0, 0 }; - static cilist io___273 = { 0, 6, 0, "(a6,2x,4i8)", 0 }; + static cilist io___274 = { 0, 6, 0, 0, 0 }; + static cilist io___275 = { 0, 6, 0, 0, 0 }; + static cilist io___276 = { 0, 6, 0, "(a6,2x,4i8)", 0 }; -#line 4062 "" +#line 4128 "" if (commidi_1.imidi[*icm] >= 24576) { -#line 4063 "" - s_wsle(&io___271); -#line 4063 "" +#line 4129 "" + s_wsle(&io___274); +#line 4129 "" e_wsle(); -#line 4064 "" - s_wsle(&io___272); -#line 4064 "" +#line 4130 "" + s_wsle(&io___275); +#line 4130 "" do_lio(&c__9, &c__1, "Midi file is too long! It will be corrupted or"\ " worse", (ftnlen)52); -#line 4064 "" +#line 4130 "" e_wsle(); -#line 4065 "" - s_wsfe(&io___273); -#line 4065 "" +#line 4131 "" + s_wsfe(&io___276); +#line 4131 "" do_fio(&c__1, "imidi:", (ftnlen)6); -#line 4065 "" +#line 4131 "" do_fio(&c__1, (char *)&commidi_1.imidi[0], (ftnlen)sizeof(integer)); -#line 4065 "" +#line 4131 "" do_fio(&c__1, (char *)&commidi_1.imidi[1], (ftnlen)sizeof(integer)); -#line 4065 "" +#line 4131 "" do_fio(&c__1, (char *)&commidi_1.imidi[2], (ftnlen)sizeof(integer)); -#line 4065 "" +#line 4131 "" do_fio(&c__1, (char *)&commidi_1.imidi[3], (ftnlen)sizeof(integer)); -#line 4065 "" +#line 4131 "" e_wsfe(); -#line 4067 "" +#line 4133 "" } -#line 4068 "" +#line 4134 "" return 0; } /* chkimidi_ */ @@ -10232,223 +10317,223 @@ L2: /* otherwise next prior note. Relative to bottom line. */ /* if (ip.ne.nn(ivx).and..not.btest(iornq(ivx,ip),30)) then */ -#line 4090 "" +#line 4156 "" /* Parameter adjustments */ -#line 4090 "" +#line 4156 "" ipl -= 25; -#line 4090 "" +#line 4156 "" mult -= 25; -#line 4090 "" +#line 4156 "" --levbotr; -#line 4090 "" +#line 4156 "" --levtopr; -#line 4090 "" +#line 4156 "" nodur -= 25; -#line 4090 "" +#line 4156 "" nib -= 25; -#line 4090 "" +#line 4156 "" ivmx -= 25; -#line 4090 "" +#line 4156 "" nolev -= 25; -#line 4090 "" +#line 4156 "" irest -= 25; -#line 4090 "" +#line 4156 "" islur -= 25; -#line 4090 "" +#line 4156 "" --nn; -#line 4090 "" +#line 4156 "" -#line 4090 "" +#line 4156 "" /* Function Body */ -#line 4090 "" +#line 4156 "" if (*ip != nn[*ivx] && ! bit_test(ipl[*ivx + *ip * 24],1)) { /* Not the last note and not "look-left" for level */ -#line 4094 "" +#line 4160 "" i__1 = nn[*ivx]; -#line 4094 "" +#line 4160 "" for (kkp = *ip + 1; kkp <= i__1; ++kkp) { -#line 4095 "" +#line 4161 "" if (bit_test(islur[*ivx + kkp * 24],29)) { -#line 4095 "" +#line 4161 "" goto L4; -#line 4095 "" +#line 4161 "" } -#line 4096 "" +#line 4162 "" if (! bit_test(irest[*ivx + kkp * 24],0)) { -#line 4097 "" +#line 4163 "" levnext = nolev[*ivx + kkp * 24] - ncmid_(iv, &kkp) + 4; /* Relative to botto */ -#line 4098 "" +#line 4164 "" goto L9; -#line 4099 "" +#line 4165 "" } -#line 4100 "" +#line 4166 "" /* L8: */ -#line 4100 "" +#line 4166 "" } -#line 4101 "" +#line 4167 "" } -#line 4102 "" +#line 4168 "" L4: /* If here, there were no following notes or came to a blank rest, or */ /* "look-left" option set. So look before */ /* if (ip .eq. 1) go to 2 ! Get out if this is the first note. */ -#line 4108 "" +#line 4174 "" if (*ip == 1) { -#line 4108 "" +#line 4174 "" return 0; -#line 4108 "" +#line 4174 "" } /* Get out if this is the first note. */ -#line 4109 "" +#line 4175 "" for (kkp = *ip - 1; kkp >= 1; --kkp) { -#line 4110 "" +#line 4176 "" if (! bit_test(irest[*ivx + kkp * 24],0)) { -#line 4111 "" +#line 4177 "" levnext = nolev[*ivx + kkp * 24] - ncmid_(iv, &kkp) + 4; /* Relative to bottom */ -#line 4112 "" +#line 4178 "" goto L9; -#line 4113 "" +#line 4179 "" } -#line 4114 "" +#line 4180 "" /* L3: */ -#line 4114 "" +#line 4180 "" } /* go to 2 ! Pretty odd, should never be here, but get out if so. */ -#line 4116 "" +#line 4182 "" return 0; /* Pretty odd, should never be here, but get out if so. */ -#line 4117 "" +#line 4183 "" L9: /* Find note in other voice at same time */ -#line 4121 "" +#line 4187 "" i__1 = *ivx - *nv - 1; -#line 4121 "" +#line 4187 "" iupdown = i_sign(&c__1, &i__1); -#line 4122 "" +#line 4188 "" ivother = ivmx[*iv + (3 - iupdown) / 2 * 24]; -#line 4123 "" +#line 4189 "" tother = 0.f; -#line 4124 "" +#line 4190 "" i__1 = nib[ivother + *ibar * 24]; -#line 4124 "" +#line 4190 "" for (kkp = 1; kkp <= i__1; ++kkp) { -#line 4125 "" +#line 4191 "" if ((r__1 = tother - *tnow, dabs(r__1)) < *tol) { -#line 4125 "" +#line 4191 "" goto L6; -#line 4125 "" +#line 4191 "" } -#line 4126 "" +#line 4192 "" tother += nodur[ivother + kkp * 24]; -#line 4127 "" +#line 4193 "" /* L5: */ -#line 4127 "" +#line 4193 "" } /* If here, then no note starts in other voice at same time, so set default */ -#line 4131 "" +#line 4197 "" levother = -iupdown * 50; -#line 4132 "" +#line 4198 "" goto L7; -#line 4133 "" +#line 4199 "" L6: /* If here, have just identified a simultaneous note or rest in other voice */ -#line 4137 "" +#line 4203 "" if (! bit_test(irest[ivother + kkp * 24],0)) { /* Not a rest, use it */ -#line 4138 "" +#line 4204 "" levother = nolev[ivother + kkp * 24] - ncmid_(iv, ip) + 4; -#line 4139 "" +#line 4205 "" } else { -#line 4140 "" +#line 4206 "" if (nodur[ivother + kkp * 24] == nodur[*ivx + *ip * 24]) { /* Rest in other voice has same duration, get out (so defualt spacing is used) */ /* go to 2 */ -#line 4145 "" +#line 4211 "" return 0; -#line 4146 "" +#line 4212 "" } -#line 4147 "" +#line 4213 "" levother = -iupdown * 50; -#line 4148 "" +#line 4214 "" } -#line 4149 "" +#line 4215 "" L7: -#line 4150 "" +#line 4216 "" if (*mode == 1) { -#line 4151 "" +#line 4217 "" indxr = log2_(&nodur[*ivx + *ip * 24]) + 1; -#line 4152 "" +#line 4218 "" } else { /* nodu = 2**(4-(iand(mult(ivx,ip),15)-8)) */ -#line 4154 "" +#line 4220 "" indxr = 4 - ((mult[*ivx + *ip * 24] & 15) - 8) + 1; -#line 4155 "" +#line 4221 "" } -#line 4156 "" +#line 4222 "" if (iupdown < 0) { -#line 4157 "" +#line 4223 "" levtop = levtopr[indxr]; -#line 4158 "" +#line 4224 "" iraise1 = levother - levtop - 3; /* Based on other note */ -#line 4159 "" +#line 4225 "" iraise2 = levnext - levtop; /* Based on following note */ -#line 4160 "" +#line 4226 "" if (indxr == 5 && levnext < 1) { -#line 4160 "" +#line 4226 "" iraise2 += 2; -#line 4160 "" +#line 4226 "" } -#line 4161 "" +#line 4227 "" iraise = min(iraise1,iraise2); -#line 4162 "" +#line 4228 "" if ((iraise + 50) % 2 == 1 && iraise + levtop > -1) { -#line 4162 "" +#line 4228 "" --iraise; -#line 4162 "" +#line 4228 "" } -#line 4164 "" +#line 4230 "" } else { -#line 4165 "" +#line 4231 "" levbot = levbotr[indxr]; -#line 4166 "" +#line 4232 "" iraise1 = levother - levbot + 3; -#line 4167 "" +#line 4233 "" iraise2 = levnext - levbot; -#line 4168 "" +#line 4234 "" if (indxr == 5 && levnext > 8) { -#line 4168 "" +#line 4234 "" --iraise2; -#line 4168 "" +#line 4234 "" } -#line 4169 "" +#line 4235 "" iraise = max(iraise1,iraise2); -#line 4170 "" +#line 4236 "" if ((iraise + 50) % 2 == 1 && iraise + levbot <= 9) { -#line 4170 "" +#line 4236 "" --iraise; -#line 4170 "" +#line 4236 "" } -#line 4172 "" +#line 4238 "" } -#line 4173 "" +#line 4239 "" nolev[*ivx + *ip * 24] = iraise + 100; -#line 4174 "" +#line 4240 "" return 0; } /* chkkbdrests_ */ @@ -10465,80 +10550,80 @@ L7: extern /* Subroutine */ int g1etchar_(char *, integer *, char *, ftnlen, ftnlen); -#line 4179 "" +#line 4245 "" *literr = 0; -#line 4180 "" +#line 4246 "" itype = 1; -#line 4181 "" +#line 4247 "" L17: -#line 4181 "" +#line 4247 "" g1etchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 4182 "" +#line 4248 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 4182 "" +#line 4248 "" if (*(unsigned char *)charq == *(unsigned char *)&ch__1[0]) { -#line 4183 "" +#line 4249 "" ++itype; -#line 4184 "" +#line 4250 "" if (itype > 3) { -#line 4185 "" +#line 4251 "" *literr = 1; -#line 4186 "" +#line 4252 "" return 0; -#line 4187 "" +#line 4253 "" } -#line 4188 "" +#line 4254 "" goto L17; -#line 4189 "" +#line 4255 "" } -#line 4190 "" +#line 4256 "" lenlit = itype; -#line 4191 "" +#line 4257 "" L18: -#line 4191 "" +#line 4257 "" g1etchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 4192 "" +#line 4258 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 4192 "" +#line 4258 "" if (*(unsigned char *)charq == *(unsigned char *)&ch__1[0]) { -#line 4193 "" +#line 4259 "" g1etchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 4194 "" +#line 4260 "" if (*(unsigned char *)charq != ' ') { /* Starting a new tex command withing the string */ -#line 4198 "" +#line 4264 "" lenlit += 2; -#line 4199 "" +#line 4265 "" if (lenlit > 128) { -#line 4200 "" +#line 4266 "" *literr = 2; -#line 4201 "" +#line 4267 "" return 0; -#line 4202 "" +#line 4268 "" } -#line 4203 "" +#line 4269 "" goto L18; -#line 4204 "" +#line 4270 "" } -#line 4205 "" +#line 4271 "" } else { -#line 4206 "" +#line 4272 "" ++lenlit; -#line 4207 "" +#line 4273 "" if (lenlit > 128) { -#line 4208 "" +#line 4274 "" *literr = 2; -#line 4209 "" +#line 4275 "" return 0; -#line 4210 "" +#line 4276 "" } -#line 4211 "" +#line 4277 "" goto L18; -#line 4212 "" +#line 4278 "" } -#line 4213 "" +#line 4279 "" return 0; } /* chklit_ */ @@ -10570,11 +10655,11 @@ L18: /* numbers. If moved=.true., iccount on exit is on end of last number. */ /* If moved=.false., iccount still on +/- */ -#line 4226 "" +#line 4292 "" i__1 = *iccount - 2; -#line 4226 "" +#line 4292 "" i__2 = *iccount; -#line 4226 "" +#line 4292 "" if (i_indx("sfnA", lineq + i__1, (ftnlen)4, *iccount - 1 - i__1) > 0 && i_indx("0123456789.", lineq + i__2, (ftnlen)11, *iccount + 1 - i__2) > 0) { @@ -10582,100 +10667,100 @@ L18: /* Prior char was accid & next is #; this may be start of accidental shift. */ /* Must test for "." above in case we get "<" or ">" */ -#line 4232 "" +#line 4298 "" ipm = i_indx("- +< >", lineq + (*iccount - 1), (ftnlen)6, (ftnlen)1) - 2; -#line 4233 "" +#line 4299 "" i__1 = *iccount + 1; -#line 4233 "" +#line 4299 "" i__2 = *iccount; -#line 4233 "" +#line 4299 "" if (s_cmp(lineq + i__2, ".", *iccount + 1 - i__2, (ftnlen)1) == 0 && i_indx("0123456789", lineq + i__1, (ftnlen)10, *iccount + 2 - i__1) == 0) { /* Rare case of [accid][+/-].[letter]. Bail out */ -#line 4238 "" +#line 4304 "" *moved = FALSE_; -#line 4239 "" +#line 4305 "" return 0; -#line 4240 "" +#line 4306 "" } -#line 4241 "" +#line 4307 "" ishorz = ipm > 1; /* Save iccount in case it's not accid shift and we have to reset. */ -#line 4245 "" +#line 4311 "" icsav = *iccount; -#line 4246 "" +#line 4312 "" ++(*iccount); -#line 4247 "" +#line 4313 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 4248 "" +#line 4314 "" if (ishorz || i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { /* This has to be accidental shift. Set vert. shift. */ -#line 4252 "" +#line 4318 "" if (! ishorz) { /* +/- syntax, both shifts set, vertical first */ -#line 4256 "" +#line 4322 "" i__1 = (integer) (ipm * fnum + 32.5f); -#line 4256 "" +#line 4322 "" setbits_(nacc, &c__6, &c__4, &i__1); -#line 4257 "" +#line 4323 "" ipm = i_indx("- +", durq, (ftnlen)3, (ftnlen)1) - 2; -#line 4258 "" +#line 4324 "" ++(*iccount); -#line 4259 "" +#line 4325 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 4260 "" +#line 4326 "" } else { /* </> syntax, only horiz set */ -#line 4264 "" +#line 4330 "" ipm += -3; -#line 4265 "" +#line 4331 "" } /* Set horiz. shift */ -#line 4269 "" +#line 4335 "" r__1 = (ipm * fnum + 5.35f) * 20; -#line 4269 "" +#line 4335 "" i__1 = i_nint(&r__1); -#line 4269 "" +#line 4335 "" setbits_(nacc, &c__7, &c__10, &i__1); -#line 4270 "" +#line 4336 "" --(*iccount); -#line 4271 "" +#line 4337 "" *moved = TRUE_; -#line 4272 "" +#line 4338 "" } else { /* False alarm. Reset everything and flow onward */ -#line 4276 "" +#line 4342 "" *moved = FALSE_; -#line 4277 "" +#line 4343 "" *iccount = icsav; -#line 4278 "" +#line 4344 "" } -#line 4279 "" +#line 4345 "" } else { /* Either prior char was not 'sfn' or next was not digit, so take no action */ -#line 4283 "" +#line 4349 "" *moved = FALSE_; -#line 4284 "" +#line 4350 "" } -#line 4285 "" +#line 4351 "" return 0; } /* chkpm4ac_ */ @@ -10698,62 +10783,62 @@ L18: /* Returns string calling Don's TeX macro \pmxclef, for drawing small clefs. */ -#line 4293 "" +#line 4359 "" *nclef = lbit_shift(*isl, (ftnlen)-12) & 7; -#line 4294 "" +#line 4360 "" if (*nclef == 0) { /* treble */ -#line 4298 "" +#line 4364 "" nlev = 2; -#line 4299 "" +#line 4365 "" } else if (*nclef > 6) { /* French violin */ -#line 4303 "" +#line 4369 "" nlev = 0; -#line 4304 "" +#line 4370 "" } else if (*nclef < 5) { /* C-clef */ -#line 4308 "" +#line 4374 "" nlev = (*nclef << 1) - 2; -#line 4309 "" +#line 4375 "" } else { /* F-clef */ -#line 4313 "" +#line 4379 "" nlev = (*nclef << 1) - 6; -#line 4314 "" +#line 4380 "" } /* Writing concatenation */ -#line 4315 "" +#line 4381 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 4315 "" +#line 4381 "" i__1[0] = 1, a__1[0] = ch__1; -#line 4315 "" +#line 4381 "" i__1[1] = 7, a__1[1] = "pmxclef"; -#line 4315 "" +#line 4381 "" i__2 = min(*nclef,7) + 48; -#line 4315 "" +#line 4381 "" chax_(ch__2, (ftnlen)1, &i__2); -#line 4315 "" +#line 4381 "" i__1[2] = 1, a__1[2] = ch__2; -#line 4315 "" +#line 4381 "" i__3 = nlev + 48; -#line 4315 "" +#line 4381 "" chax_(ch__3, (ftnlen)1, &i__3); -#line 4315 "" +#line 4381 "" i__1[3] = 1, a__1[3] = ch__3; -#line 4315 "" +#line 4381 "" s_cat(notexq, a__1, i__1, &c__4, notexq_len); -#line 4317 "" +#line 4383 "" *lnote = 10; -#line 4318 "" +#line 4384 "" return 0; } /* clefsym_ */ @@ -10808,8 +10893,8 @@ L18: integer *); /* Fortran I/O blocks */ - static cilist io___320 = { 0, 6, 0, 0, 0 }; - static cilist io___321 = { 0, 6, 0, 0, 0 }; + static cilist io___323 = { 0, 6, 0, 0, 0 }; + static cilist io___324 = { 0, 6, 0, 0, 0 }; @@ -10828,17 +10913,17 @@ L18: /* icrdot(icrd)(27-29) = level rank of chord-note among accid-notes */ /* twooftwo will be true 2nd time thru; signal to store shifts w/ notes */ -#line 4345 "" +#line 4411 "" /* Parameter adjustments */ -#line 4345 "" +#line 4411 "" --ksegrb0; -#line 4345 "" +#line 4411 "" segrb0 -= 3; -#line 4345 "" +#line 4411 "" --micrd; -#line 4345 "" +#line 4411 "" -#line 4345 "" +#line 4411 "" /* Function Body */ /* Fancy sharp boundary. fl,sh,na,dfl,dsh */ @@ -10855,152 +10940,152 @@ L18: /* Set up barrier segrb(iseg,ipoint) to define coords of corner points */ /* on stem+notes */ -#line 4376 "" +#line 4442 "" i__1 = *nsegrb0; -#line 4376 "" +#line 4442 "" for (iseg = 1; iseg <= i__1; ++iseg) { -#line 4377 "" +#line 4443 "" segrb[(iseg << 1) - 2] = segrb0[(iseg << 1) + 1]; -#line 4378 "" +#line 4444 "" segrb[(iseg << 1) - 1] = segrb0[(iseg << 1) + 2]; -#line 4379 "" +#line 4445 "" ksegrb[iseg - 1] = ksegrb0[iseg]; -#line 4380 "" +#line 4446 "" /* L11: */ -#line 4380 "" +#line 4446 "" } -#line 4381 "" +#line 4447 "" nsegrb = *nsegrb0; -#line 4382 "" +#line 4448 "" *rmsshift = 0.f; -#line 4383 "" +#line 4449 "" shiftmin = 1e3f; -#line 4384 "" +#line 4450 "" i__1 = *naccid; -#line 4384 "" +#line 4450 "" for (iwa = 1; iwa <= i__1; ++iwa) { /* Initialize shift for this note */ -#line 4388 "" +#line 4454 "" shift = 0.f; -#line 4389 "" +#line 4455 "" mainnote = micrd[iwa] == 0; -#line 4390 "" +#line 4456 "" isetshft[iwa - 1] = -1; /* Get note level and accidental type */ -#line 4394 "" +#line 4460 "" if (mainnote) { -#line 4395 "" +#line 4461 "" nolev = *nolevm; -#line 4396 "" +#line 4462 "" iacctype = iacctbl[igetbits_(nacc, &c__3, &c__0) - 1]; -#line 4397 "" +#line 4463 "" } else { -#line 4398 "" +#line 4464 "" nolev = igetbits_(&comtrill_1.icrdat[micrd[iwa] - 1], &c__7, & c__12); -#line 4399 "" +#line 4465 "" iacctype = iacctbl[igetbits_(&comtrill_1.icrdat[micrd[iwa] - 1], & c__3, &c__20) - 1]; -#line 4400 "" +#line 4466 "" } /* Cycle thru segments on right edge of this accidental */ -#line 4404 "" +#line 4470 "" i__2 = nsegar[iacctype - 1] - 1; -#line 4404 "" +#line 4470 "" for (isega = 1; isega <= i__2; ++isega) { -#line 4405 "" +#line 4471 "" ybotaseg = nolev + segar[iacctype + ((isega << 1) + 2) * 5 - 16]; -#line 4406 "" +#line 4472 "" ytopaseg = nolev + segar[iacctype + ((isega + 1 << 1) + 2) * 5 - 16]; /* Cycle thru segments of right-hand barrier */ -#line 4410 "" +#line 4476 "" i__3 = nsegrb - 1; -#line 4410 "" +#line 4476 "" for (isegrb = 1; isegrb <= i__3; ++isegrb) { /* Must find all barrier segments that start below ytopseg & end above ybotseg */ -#line 4414 "" +#line 4480 "" if (segrb[(isegrb << 1) - 1] < ytopaseg) { /* Barrier seg starts below top of accid */ /* Check if barrier seg ends above bottom of accid */ -#line 4419 "" +#line 4485 "" if (segrb[(isegrb + 1 << 1) - 1] > ybotaseg) { -#line 4420 "" +#line 4486 "" if (shift > segrb[(isegrb << 1) - 2] - segar[iacctype + ((isega << 1) + 1) * 5 - 16]) { -#line 4422 "" +#line 4488 "" shift = segrb[(isegrb << 1) - 2] - segar[iacctype + ((isega << 1) + 1) * 5 - 16]; /* Record the cause of the shift */ -#line 4426 "" +#line 4492 "" isetshft[iwa - 1] = ksegrb[isegrb - 1]; -#line 4427 "" +#line 4493 "" } -#line 4428 "" +#line 4494 "" } /* Does barrier segment end above top of accid seg? */ -#line 4432 "" +#line 4498 "" if (segrb[(isegrb + 1 << 1) - 1] > ytopaseg) { -#line 4432 "" +#line 4498 "" goto L4; -#line 4432 "" +#line 4498 "" } -#line 4433 "" +#line 4499 "" } -#line 4434 "" +#line 4500 "" /* L3: */ -#line 4434 "" +#line 4500 "" } -#line 4435 "" +#line 4501 "" L4: -#line 4436 "" +#line 4502 "" /* L2: */ -#line 4436 "" +#line 4502 "" ; -#line 4436 "" +#line 4502 "" } -#line 4437 "" +#line 4503 "" if (! bit_test(*nacc,28) && dabs(shift) > 1e-4f && ! (*lasttime)) { /* if (nolev .eq. levmaxacc) then */ -#line 4440 "" +#line 4506 "" if (nolev == *levmaxacc && isetshft[iwa - 1] == -1) { -#line 4441 "" +#line 4507 "" *rmsshift = 1e3f; -#line 4442 "" +#line 4508 "" return 0; -#line 4443 "" +#line 4509 "" } /* Does the following properly account for left-shifted noteheads? */ /* Top-down rank of this note we just shifted */ -#line 4449 "" +#line 4515 "" if (mainnote) { -#line 4450 "" +#line 4516 "" irank = *icrdot0; -#line 4451 "" +#line 4517 "" } else { -#line 4452 "" +#line 4518 "" irank = igetbits_(&comtrill_1.icrdot[micrd[iwa] - 1], &c__3, & c__27); -#line 4453 "" +#line 4519 "" } /* Compare level-rank of this note vs. that of note that caused the shift. */ @@ -11013,264 +11098,264 @@ L4: /* icrd: Chord-note accidental */ /* isetshft(i),i=1,naccid: what set shift for this accid, same codes */ -#line 4465 "" +#line 4531 "" if (isetshft[iwa - 1] < 0) { -#line 4466 "" +#line 4532 "" iranksetter = 0; -#line 4467 "" +#line 4533 "" } else if (isetshft[iwa - 1] == 0) { -#line 4468 "" +#line 4534 "" iranksetter = *icrdot0; -#line 4469 "" +#line 4535 "" } else { -#line 4470 "" +#line 4536 "" iranksetter = igetbits_(&comtrill_1.icrdot[isetshft[iwa - 1] - 1], &c__3, &c__27); -#line 4471 "" +#line 4537 "" } -#line 4472 "" +#line 4538 "" if (iranksetter != 0 && irank != iranksetter + 1) { -#line 4473 "" +#line 4539 "" *rmsshift = 1e3f; -#line 4474 "" +#line 4540 "" return 0; -#line 4475 "" +#line 4541 "" } -#line 4476 "" +#line 4542 "" } /* Computing 2nd power */ -#line 4477 "" +#line 4543 "" r__1 = shift; -#line 4477 "" +#line 4543 "" *rmsshift += r__1 * r__1; -#line 4478 "" +#line 4544 "" if (*lasttime && dabs(shift) > 1e-4f) { -#line 4479 "" +#line 4545 "" if (mainnote) { -#line 4480 "" +#line 4546 "" if (! bit_test(*nacc,29)) { -#line 4480 "" +#line 4546 "" goto L10; -#line 4480 "" +#line 4546 "" } -#line 4481 "" +#line 4547 "" } else { -#line 4482 "" +#line 4548 "" if (! bit_test(comtrill_1.icrdat[micrd[iwa] - 1],29)) { -#line 4482 "" +#line 4548 "" goto L10; -#line 4482 "" +#line 4548 "" } -#line 4483 "" +#line 4549 "" } /* If here, "A" was set on a manual shift, so must cumulate the shift. Note that if there */ /* was a manual shift but auto-shift was zero, will not come thru here, but shift value */ /* will be left intact. */ -#line 4489 "" +#line 4555 "" if (mainnote) { -#line 4490 "" +#line 4556 "" shift += (igetbits_(nacc, &c__7, &c__10) - 107) * .05f; -#line 4491 "" +#line 4557 "" } else { -#line 4492 "" +#line 4558 "" shift += (igetbits_(&comtrill_1.icrdot[micrd[iwa] - 1], &c__7, &c__20) - 107) * .05f; -#line 4493 "" +#line 4559 "" } -#line 4494 "" +#line 4560 "" L10: -#line 4495 "" +#line 4561 "" if (*twooftwo) { /* Record the shift for this accidental */ -#line 4499 "" +#line 4565 "" if (shift < -5.35f) { -#line 4500 "" +#line 4566 "" printl_(" ", (ftnlen)1); -#line 4501 "" +#line 4567 "" printl_("WARNING: auto-generated accidental shift too bi"\ "g for PMX, ignoring", (ftnlen)66); -#line 4503 "" +#line 4569 "" } else { -#line 4504 "" +#line 4570 "" r__1 = (shift + 5.35f) * 20; -#line 4504 "" +#line 4570 "" ishift = i_nint(&r__1); -#line 4505 "" +#line 4571 "" if (mainnote) { -#line 4506 "" +#line 4572 "" setbits_(nacc, &c__7, &c__10, &ishift); -#line 4507 "" +#line 4573 "" } else { -#line 4508 "" +#line 4574 "" setbits_(&comtrill_1.icrdot[micrd[iwa] - 1], &c__7, & c__20, &ishift); -#line 4509 "" +#line 4575 "" } -#line 4510 "" +#line 4576 "" } -#line 4511 "" +#line 4577 "" } else { /* This is the earlier call to precrd, so need minimum shift */ -#line 4515 "" +#line 4581 "" shiftmin = dmin(shiftmin,shift); -#line 4516 "" +#line 4582 "" } -#line 4517 "" +#line 4583 "" } /* Bail out if this is the last accidental to check */ -#line 4521 "" +#line 4587 "" if (iwa == *naccid) { -#line 4521 "" +#line 4587 "" goto L1; -#line 4521 "" +#line 4587 "" } /* Add this accidental to the right barrier! Count down from highest barrier segment, */ /* find 1st one starting below top of accid, and first one starting below bot. */ -#line 4526 "" +#line 4592 "" for (ibelowtop = nsegrb; ibelowtop >= 1; --ibelowtop) { -#line 4527 "" +#line 4593 "" if (segrb[(ibelowtop << 1) - 1] < nolev + segal[iacctype + (( nsegal[iacctype - 1] << 1) + 2) * 5 - 16]) { -#line 4529 "" +#line 4595 "" for (ibelowbot = ibelowtop; ibelowbot >= 1; --ibelowbot) { -#line 4530 "" +#line 4596 "" if (segrb[(ibelowbot << 1) - 1] < nolev + segal[iacctype + 4]) { -#line 4530 "" +#line 4596 "" goto L6; -#line 4530 "" +#line 4596 "" } -#line 4532 "" +#line 4598 "" /* L9: */ -#line 4532 "" +#line 4598 "" } -#line 4533 "" - s_wsle(&io___320); -#line 4533 "" +#line 4599 "" + s_wsle(&io___323); +#line 4599 "" do_lio(&c__9, &c__1, "Oops2!", (ftnlen)6); -#line 4533 "" +#line 4599 "" e_wsle(); -#line 4534 "" +#line 4600 "" stop1_(); -#line 4535 "" +#line 4601 "" } -#line 4536 "" +#line 4602 "" /* L5: */ -#line 4536 "" +#line 4602 "" } -#line 4537 "" - s_wsle(&io___321); -#line 4537 "" +#line 4603 "" + s_wsle(&io___324); +#line 4603 "" do_lio(&c__9, &c__1, "Ugh0! in crdaccs", (ftnlen)16); -#line 4537 "" +#line 4603 "" e_wsle(); -#line 4538 "" +#line 4604 "" stop1_(); -#line 4539 "" +#line 4605 "" L6: -#line 4540 "" +#line 4606 "" netgain = nsegal[iacctype - 1] - ibelowtop + ibelowbot; /* Shift high segments up */ -#line 4544 "" +#line 4610 "" if (netgain >= 0) { -#line 4545 "" +#line 4611 "" i__2 = ibelowtop + 1; -#line 4545 "" +#line 4611 "" for (isegrb = nsegrb; isegrb >= i__2; --isegrb) { -#line 4546 "" +#line 4612 "" segrb[(isegrb + netgain << 1) - 2] = segrb[(isegrb << 1) - 2]; -#line 4547 "" +#line 4613 "" segrb[(isegrb + netgain << 1) - 1] = segrb[(isegrb << 1) - 1]; -#line 4548 "" +#line 4614 "" ksegrb[isegrb + netgain - 1] = ksegrb[isegrb - 1]; -#line 4549 "" +#line 4615 "" /* L7: */ -#line 4549 "" +#line 4615 "" } /* Set up 1st segment above accid */ -#line 4553 "" +#line 4619 "" segrb[(ibelowtop + netgain << 1) - 2] = segrb[(ibelowtop << 1) - 2]; -#line 4554 "" +#line 4620 "" segrb[(ibelowtop + netgain << 1) - 1] = nolev + segal[iacctype + ( (nsegal[iacctype - 1] << 1) + 2) * 5 - 16]; -#line 4556 "" +#line 4622 "" ksegrb[ibelowtop + netgain - 1] = ksegrb[ibelowtop - 1]; -#line 4557 "" +#line 4623 "" } else { /* netgain<0, must remove segments. Use same coding but reverse order, */ /* work from bottom up */ -#line 4562 "" +#line 4628 "" segrb[(ibelowtop + netgain << 1) - 2] = segrb[(ibelowtop << 1) - 2]; -#line 4563 "" +#line 4629 "" segrb[(ibelowtop + netgain << 1) - 1] = nolev + segal[iacctype + ( (nsegal[iacctype - 1] << 1) + 2) * 5 - 16]; -#line 4565 "" +#line 4631 "" ksegrb[ibelowtop + netgain - 1] = ksegrb[ibelowtop - 1]; -#line 4566 "" +#line 4632 "" i__2 = nsegrb; -#line 4566 "" +#line 4632 "" for (isegrb = ibelowtop + 1; isegrb <= i__2; ++isegrb) { -#line 4567 "" +#line 4633 "" segrb[(isegrb + netgain << 1) - 2] = segrb[(isegrb << 1) - 2]; -#line 4568 "" +#line 4634 "" segrb[(isegrb + netgain << 1) - 1] = segrb[(isegrb << 1) - 1]; -#line 4569 "" +#line 4635 "" ksegrb[isegrb + netgain - 1] = ksegrb[isegrb - 1]; -#line 4570 "" +#line 4636 "" /* L12: */ -#line 4570 "" +#line 4636 "" } -#line 4571 "" +#line 4637 "" } /* Insert new segments */ -#line 4575 "" +#line 4641 "" i__2 = nsegal[iacctype - 1] - 1; -#line 4575 "" +#line 4641 "" for (isega = 1; isega <= i__2; ++isega) { -#line 4576 "" +#line 4642 "" segrb[(ibelowbot + isega << 1) - 2] = shift + segal[iacctype + (( isega << 1) + 1) * 5 - 16]; -#line 4577 "" +#line 4643 "" segrb[(ibelowbot + isega << 1) - 1] = nolev + segal[iacctype + (( isega << 1) + 2) * 5 - 16]; -#line 4578 "" +#line 4644 "" if (mainnote) { -#line 4579 "" +#line 4645 "" ksegrb[ibelowbot + isega - 1] = 0; -#line 4580 "" +#line 4646 "" } else { -#line 4581 "" +#line 4647 "" ksegrb[ibelowbot + isega - 1] = micrd[iwa]; -#line 4582 "" +#line 4648 "" } -#line 4583 "" +#line 4649 "" /* L8: */ -#line 4583 "" +#line 4649 "" } /* Update number of barrier segments */ -#line 4587 "" +#line 4653 "" nsegrb += netgain; /* c */ /* c Temporary printout for boundary segments as built up */ @@ -11281,23 +11366,23 @@ L6: /* write(15,'(a/(2i5))')' micrd isetshft', */ /* * (micrd(iwa1),isetshft(iwa1),iwa1=1,iwa) */ /* c */ -#line 4597 "" +#line 4663 "" L1: -#line 4597 "" +#line 4663 "" ; -#line 4597 "" +#line 4663 "" } /* next accidental */ -#line 4598 "" +#line 4664 "" if (*lasttime && ! (*twooftwo)) { /* This is the final call on the pre-ask pass, so compute left-shift rqmt. */ -#line 4602 "" +#line 4668 "" r__1 = shiftmin * -20; -#line 4602 "" +#line 4668 "" *icashft = i_nint(&r__1); -#line 4603 "" +#line 4669 "" } /* c */ /* c Temporary printout for boundary segments */ @@ -11310,7 +11395,7 @@ L1: /* * (micrd(iwa),isetshft(iwa),iwa=1,naccid) */ /* end if */ /* c */ -#line 4615 "" +#line 4681 "" return 0; } /* crdacc_ */ @@ -11347,7 +11432,7 @@ L1: integer *); /* Fortran I/O blocks */ - static cilist io___350 = { 0, 6, 0, 0, 0 }; + static cilist io___353 = { 0, 6, 0, 0, 0 }; @@ -11380,27 +11465,27 @@ L1: /* Initialize right-barrier */ -#line 4655 "" +#line 4721 "" /* Parameter adjustments */ -#line 4655 "" +#line 4721 "" --kicrd; -#line 4655 "" +#line 4721 "" -#line 4655 "" +#line 4721 "" /* Function Body */ -#line 4655 "" +#line 4721 "" segrb0[0] = 0.f; -#line 4656 "" +#line 4722 "" segrb0[1] = -1e3f; -#line 4657 "" +#line 4723 "" segrb0[2] = 0.f; -#line 4658 "" +#line 4724 "" segrb0[3] = 1e3f; -#line 4659 "" +#line 4725 "" nsegrb0 = 2; -#line 4660 "" +#line 4726 "" ksegrb0[0] = -1; -#line 4661 "" +#line 4727 "" ksegrb0[1] = -1; /* Search for left-shifted notes, Make up the initial right-barrier, which */ @@ -11408,124 +11493,124 @@ L1: /* irest()(27) is set if any notes are left-shifted */ /* Must use ALL chord notes, not just ones w/ accid's. */ -#line 4668 "" +#line 4734 "" if (bit_test(*irest,27)) { -#line 4669 "" +#line 4735 "" i__1 = comtrill_1.icrd2; -#line 4669 "" +#line 4735 "" for (icrd = comtrill_1.icrd1 - 1; icrd <= i__1; ++icrd) { -#line 4670 "" +#line 4736 "" if (icrd == comtrill_1.icrd1 - 1) { /* Main note */ /* lshift = btest(ipl,8) */ -#line 4675 "" +#line 4741 "" lshift = bit_test(*ipl,8) || bit_test(*nacc,31); -#line 4676 "" +#line 4742 "" if (lshift) { -#line 4676 "" +#line 4742 "" nolev = *nolevm; -#line 4676 "" +#line 4742 "" } -#line 4677 "" +#line 4743 "" } else { /* Chord note */ -#line 4681 "" +#line 4747 "" lshift = bit_test(comtrill_1.icrdat[icrd - 1],23); /* if (lshift) nolev = igetbits(icrdat(icrd),7,12) */ -#line 4683 "" +#line 4749 "" if (lshift) { -#line 4684 "" +#line 4750 "" nolev = igetbits_(&comtrill_1.icrdat[icrd - 1], &c__7, & c__12); -#line 4685 "" +#line 4751 "" if (bit_test(*nacc,31) && nolev == *nolevm + 1) { /* This note is not really shifted, It is the upper of a 2nd with the main */ /* note on an upstem, and Main note must be shifted. */ /* nacc(31) signals the real truth. */ -#line 4691 "" +#line 4757 "" lshift = FALSE_; -#line 4692 "" +#line 4758 "" } -#line 4693 "" +#line 4759 "" } -#line 4694 "" +#line 4760 "" } -#line 4695 "" +#line 4761 "" if (lshift) { -#line 4696 "" +#line 4762 "" i__2 = nsegrb0 - 1; -#line 4696 "" +#line 4762 "" for (isegrb = 1; isegrb <= i__2; ++isegrb) { -#line 4697 "" +#line 4763 "" if (segrb0[(isegrb + 1 << 1) - 1] > (real) (nolev - 1)) { /* Add this notehead to the right boundary here. Move all higher segs up 2. */ -#line 4701 "" +#line 4767 "" i__3 = isegrb + 1; -#line 4701 "" +#line 4767 "" for (iiseg = nsegrb0; iiseg >= i__3; --iiseg) { -#line 4702 "" +#line 4768 "" segrb0[(iiseg + 2 << 1) - 2] = segrb0[(iiseg << 1) - 2]; -#line 4703 "" +#line 4769 "" segrb0[(iiseg + 2 << 1) - 1] = segrb0[(iiseg << 1) - 1]; -#line 4704 "" +#line 4770 "" ksegrb0[iiseg + 1] = ksegrb0[iiseg - 1]; -#line 4705 "" +#line 4771 "" /* L17: */ -#line 4705 "" +#line 4771 "" } -#line 4706 "" +#line 4772 "" goto L18; -#line 4707 "" +#line 4773 "" } -#line 4708 "" +#line 4774 "" /* L16: */ -#line 4708 "" +#line 4774 "" } -#line 4709 "" +#line 4775 "" L18: /* Insert notehead into list. Set kseg=-2 to signal notehead shift. */ -#line 4713 "" +#line 4779 "" iiseg = isegrb + 1; -#line 4714 "" +#line 4780 "" segrb0[(iiseg << 1) - 2] = -1.2f; -#line 4715 "" +#line 4781 "" segrb0[(iiseg << 1) - 1] = nolev - 1.f; -#line 4716 "" +#line 4782 "" ksegrb0[iiseg - 1] = -2; -#line 4717 "" +#line 4783 "" segrb0[(iiseg + 1 << 1) - 2] = 0.f; -#line 4718 "" +#line 4784 "" segrb0[(iiseg + 1 << 1) - 1] = nolev + 1.f; -#line 4719 "" +#line 4785 "" ksegrb0[iiseg] = -1; -#line 4720 "" +#line 4786 "" nsegrb0 += 2; -#line 4721 "" +#line 4787 "" } -#line 4722 "" +#line 4788 "" /* L15: */ -#line 4722 "" +#line 4788 "" } -#line 4723 "" +#line 4789 "" } /* Done setting right barrier for left-shifted noteheads */ -#line 4727 "" +#line 4793 "" tagged = FALSE_; -#line 4728 "" +#line 4794 "" manual = FALSE_; /* Preprocess to check for manual shifts. */ @@ -11539,302 +11624,302 @@ L18: /* End if */ /* End if */ -#line 4741 "" +#line 4807 "" maxmanshft = 0; -#line 4742 "" +#line 4808 "" i__1 = *naccid; -#line 4742 "" +#line 4808 "" for (i__ = 1; i__ <= i__1; ++i__) { -#line 4743 "" +#line 4809 "" if (kicrd[i__] == 0) { /* Main note */ -#line 4747 "" +#line 4813 "" manshft = igetbits_(nacc, &c__7, &c__10); -#line 4748 "" +#line 4814 "" if (manshft != 0) { -#line 4749 "" +#line 4815 "" manual = TRUE_; -#line 4750 "" +#line 4816 "" if (bit_test(*nacc,29)) { -#line 4751 "" +#line 4817 "" tagged = TRUE_; -#line 4752 "" +#line 4818 "" } else { /* maxmanshft = max(maxmanshft,64-manshft) */ /* Computing MAX */ -#line 4754 "" +#line 4820 "" i__2 = maxmanshft, i__3 = 107 - manshft; -#line 4754 "" +#line 4820 "" maxmanshft = max(i__2,i__3); -#line 4755 "" +#line 4821 "" } -#line 4756 "" +#line 4822 "" } -#line 4757 "" +#line 4823 "" } else { /* Chord note */ -#line 4761 "" +#line 4827 "" manshft = igetbits_(&comtrill_1.icrdot[kicrd[i__] - 1], &c__7, & c__20); -#line 4762 "" +#line 4828 "" if (manshft != 0) { -#line 4763 "" +#line 4829 "" manual = TRUE_; -#line 4764 "" +#line 4830 "" if (bit_test(comtrill_1.icrdat[kicrd[i__] - 1],29)) { -#line 4765 "" +#line 4831 "" tagged = TRUE_; -#line 4766 "" +#line 4832 "" } else { /* maxmanshft = max(maxmanshft,64-manshft) */ /* Computing MAX */ -#line 4768 "" +#line 4834 "" i__2 = maxmanshft, i__3 = 107 - manshft; -#line 4768 "" +#line 4834 "" maxmanshft = max(i__2,i__3); -#line 4769 "" +#line 4835 "" } -#line 4770 "" +#line 4836 "" } -#line 4771 "" +#line 4837 "" } -#line 4772 "" +#line 4838 "" /* L13: */ -#line 4772 "" +#line 4838 "" } -#line 4773 "" +#line 4839 "" if (manual) { -#line 4774 "" +#line 4840 "" if (tagged) { /* zero out all untagged shifts */ -#line 4778 "" +#line 4844 "" i__1 = *naccid; -#line 4778 "" +#line 4844 "" for (i__ = 1; i__ <= i__1; ++i__) { -#line 4779 "" +#line 4845 "" if (kicrd[i__] == 0) { -#line 4780 "" +#line 4846 "" if (! bit_test(*nacc,29)) { -#line 4780 "" +#line 4846 "" setbits_(nacc, &c__7, &c__10, &c__0); -#line 4780 "" +#line 4846 "" } -#line 4781 "" +#line 4847 "" } else { -#line 4782 "" +#line 4848 "" if (! bit_test(comtrill_1.icrdat[kicrd[i__] - 1],29)) { -#line 4782 "" +#line 4848 "" setbits_(&comtrill_1.icrdot[kicrd[i__] - 1], &c__7, & c__20, &c__0); -#line 4782 "" +#line 4848 "" } -#line 4784 "" +#line 4850 "" } -#line 4785 "" +#line 4851 "" /* L14: */ -#line 4785 "" +#line 4851 "" } -#line 4786 "" +#line 4852 "" } else { /* There are manual shifts but none tagged. Only proceed if "Ao" was entered */ -#line 4790 "" +#line 4856 "" if (! bit_test(*nacc,28)) { -#line 4791 "" +#line 4857 "" *icashft = maxmanshft; -#line 4792 "" +#line 4858 "" return 0; -#line 4793 "" +#line 4859 "" } -#line 4794 "" +#line 4860 "" } -#line 4795 "" +#line 4861 "" } -#line 4796 "" +#line 4862 "" if (bit_test(*nacc,28)) { /* Take the accidentals in order as originally input, then exit. */ -#line 4800 "" +#line 4866 "" crdacc_(nacc, naccid, &kicrd[1], nolevm, &rmsshift, &c_true, &idummy, &idummy, segrb0, ksegrb0, &nsegrb0, twooftwo, icashft); -#line 4802 "" +#line 4868 "" return 0; /* end if */ -#line 4804 "" +#line 4870 "" } else if (*naccid == 3) { /* Special treatment if 3 accidentals in chord. If there aren't accids on a 2nd */ /* then place in order top, bottom, middle. */ -#line 4809 "" +#line 4875 "" for (i__ = 1; i__ <= 3; ++i__) { -#line 4810 "" +#line 4876 "" if (kicrd[i__] == 0) { -#line 4811 "" +#line 4877 "" irank = *icrdot0; -#line 4812 "" +#line 4878 "" nolev = *nolevm; -#line 4813 "" +#line 4879 "" } else { -#line 4814 "" +#line 4880 "" irank = igetbits_(&comtrill_1.icrdot[kicrd[i__] - 1], &c__3, & c__27); -#line 4815 "" +#line 4881 "" nolev = igetbits_(&comtrill_1.icrdat[kicrd[i__] - 1], &c__7, & c__12); -#line 4816 "" +#line 4882 "" } -#line 4817 "" +#line 4883 "" if (irank == 1) { -#line 4818 "" +#line 4884 "" micrd[0] = kicrd[i__]; -#line 4819 "" +#line 4885 "" } else { -#line 4820 "" +#line 4886 "" micrd[5 - irank - 1] = kicrd[i__]; -#line 4821 "" +#line 4887 "" } -#line 4822 "" +#line 4888 "" if (irank == 2) { -#line 4823 "" +#line 4889 "" levmidacc = nolev; -#line 4824 "" +#line 4890 "" } -#line 4825 "" +#line 4891 "" /* L20: */ -#line 4825 "" +#line 4891 "" } -#line 4826 "" +#line 4892 "" if (*levmaxacc != levmidacc + 1 && levmidacc != *levminacc + 1) { -#line 4828 "" +#line 4894 "" crdacc_(nacc, naccid, micrd, nolevm, &rmsshift, &c_true, &idummy, &idummy, segrb0, ksegrb0, &nsegrb0, twooftwo, icashft); -#line 4830 "" +#line 4896 "" return 0; -#line 4831 "" +#line 4897 "" } -#line 4832 "" +#line 4898 "" } -#line 4833 "" +#line 4899 "" rmsmin = 1e5f; /* Initialize permutation array */ -#line 4837 "" +#line 4903 "" i__1 = *naccid; -#line 4837 "" +#line 4903 "" for (i__ = 1; i__ <= i__1; ++i__) { -#line 4838 "" +#line 4904 "" iperm[i__ - 1] = i__; -#line 4839 "" +#line 4905 "" /* L7: */ -#line 4839 "" +#line 4905 "" } /* Start looping over permutations */ -#line 4843 "" +#line 4909 "" for (ip = 1; ip <= 5041; ++ip) { -#line 4844 "" +#line 4910 "" if (ip != 1) { /* Work the magic algorithm to get the next permutation */ -#line 4848 "" +#line 4914 "" for (k = *naccid - 1; k >= 1; --k) { -#line 4849 "" +#line 4915 "" if (iperm[k - 1] <= iperm[k]) { -#line 4849 "" +#line 4915 "" goto L2; -#line 4849 "" +#line 4915 "" } -#line 4850 "" +#line 4916 "" /* L1: */ -#line 4850 "" +#line 4916 "" } /* If here, we just got the last permutation, so exit the loop over permutations */ -#line 4854 "" +#line 4920 "" goto L10; -#line 4855 "" +#line 4921 "" L2: -#line 4856 "" +#line 4922 "" for (j = *naccid; j >= 1; --j) { -#line 4857 "" +#line 4923 "" if (iperm[k - 1] <= iperm[j - 1]) { -#line 4857 "" +#line 4923 "" goto L4; -#line 4857 "" +#line 4923 "" } -#line 4858 "" +#line 4924 "" /* L3: */ -#line 4858 "" +#line 4924 "" } -#line 4859 "" +#line 4925 "" L4: -#line 4860 "" +#line 4926 "" it = iperm[j - 1]; -#line 4861 "" +#line 4927 "" iperm[j - 1] = iperm[k - 1]; -#line 4862 "" +#line 4928 "" iperm[k - 1] = it; -#line 4863 "" +#line 4929 "" is = k + 1; -#line 4864 "" +#line 4930 "" for (ir = *naccid; ir >= 1; --ir) { -#line 4865 "" +#line 4931 "" if (ir <= is) { -#line 4865 "" +#line 4931 "" goto L6; -#line 4865 "" +#line 4931 "" } -#line 4866 "" +#line 4932 "" it = iperm[ir - 1]; -#line 4867 "" +#line 4933 "" iperm[ir - 1] = iperm[is - 1]; -#line 4868 "" +#line 4934 "" iperm[is - 1] = it; -#line 4869 "" +#line 4935 "" ++is; -#line 4870 "" +#line 4936 "" /* L5: */ -#line 4870 "" +#line 4936 "" } -#line 4871 "" +#line 4937 "" L6: -#line 4872 "" +#line 4938 "" ; -#line 4872 "" +#line 4938 "" } /* New we have a permutation. Take icrd values out of kicrd and put them into */ /* micrd in the order of the permutation */ -#line 4877 "" +#line 4943 "" i__1 = *naccid; -#line 4877 "" +#line 4943 "" for (i__ = 1; i__ <= i__1; ++i__) { -#line 4878 "" +#line 4944 "" micrd[i__ - 1] = kicrd[iperm[i__ - 1]]; -#line 4879 "" +#line 4945 "" /* L9: */ -#line 4879 "" +#line 4945 "" } /* c */ /* c Temporary printout */ /* c */ /* write(15,'(/a6,10i3)')'perm:',(iperm(i),i=1,naccid) */ /* c */ -#line 4885 "" +#line 4951 "" crdacc_(nacc, naccid, micrd, nolevm, &rmsshift, &c_false, levmaxacc, icrdot0, segrb0, ksegrb0, &nsegrb0, twooftwo, icashft); /* c */ @@ -11842,61 +11927,61 @@ L6: /* c */ /* write(15,*)'perm done, rmsshift:',rmsshift */ /* c */ -#line 4892 "" +#line 4958 "" if (rmsshift < rmsmin) { /* Save this permutation, reset minrms */ -#line 4896 "" +#line 4962 "" i__1 = *naccid; -#line 4896 "" +#line 4962 "" for (i__ = 1; i__ <= i__1; ++i__) { -#line 4897 "" +#line 4963 "" ipermsav[i__ - 1] = iperm[i__ - 1]; -#line 4898 "" +#line 4964 "" rmsmin = rmsshift; -#line 4899 "" +#line 4965 "" /* L11: */ -#line 4899 "" +#line 4965 "" } -#line 4900 "" +#line 4966 "" } -#line 4901 "" +#line 4967 "" /* L8: */ -#line 4901 "" +#line 4967 "" } -#line 4902 "" - s_wsle(&io___350); -#line 4902 "" +#line 4968 "" + s_wsle(&io___353); +#line 4968 "" do_lio(&c__9, &c__1, "Should not BEEEEEE here!", (ftnlen)24); -#line 4902 "" +#line 4968 "" e_wsle(); -#line 4903 "" +#line 4969 "" stop1_(); -#line 4904 "" +#line 4970 "" L10: /* Done looping, get info for the final choice */ -#line 4908 "" +#line 4974 "" i__1 = *naccid; -#line 4908 "" +#line 4974 "" for (i__ = 1; i__ <= i__1; ++i__) { -#line 4909 "" +#line 4975 "" micrd[i__ - 1] = kicrd[ipermsav[i__ - 1]]; -#line 4910 "" +#line 4976 "" /* L12: */ -#line 4910 "" +#line 4976 "" } /* c */ /* c Temporary printout */ /* c */ /* write(15,'(/a6,10i3)')'Final perm:',(ipermsav(i),i=1,naccid) */ /* c */ -#line 4916 "" +#line 4982 "" crdacc_(nacc, naccid, micrd, nolevm, &rmsshift, &c_true, &idummy, &idummy, segrb0, ksegrb0, &nsegrb0, twooftwo, icashft); -#line 4918 "" +#line 4984 "" return 0; } /* crdaccs_ */ @@ -11930,191 +12015,191 @@ L10: static char acsymq[3]; static integer lnoten; -#line 4926 "" +#line 4992 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 4926 "" +#line 4992 "" *(unsigned char *)sq = *(unsigned char *)&ch__1[0]; -#line 4927 "" +#line 4993 "" if (*ihshft == -107) { -#line 4927 "" +#line 4993 "" *ihshft = 0; -#line 4927 "" +#line 4993 "" } /* c */ /* c If main note shifted left, so shift accid. Terminate below, when acc. is done. */ /* c */ -#line 4931 "" +#line 4997 "" if (*ihshft != 0) { /* Accid must be shifted horizontally */ -#line 4935 "" +#line 5001 "" if (*ihshft < 0) { /* Writing concatenation */ -#line 4936 "" +#line 5002 "" i__1[0] = 1, a__1[0] = sq; -#line 4936 "" +#line 5002 "" i__1[1] = 8, a__1[1] = "loffset{"; -#line 4936 "" +#line 5002 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)79); -#line 4937 "" +#line 5003 "" *ihshft = -(*ihshft); -#line 4938 "" +#line 5004 "" } else { /* Writing concatenation */ -#line 4939 "" +#line 5005 "" i__1[0] = 1, a__1[0] = sq; -#line 4939 "" +#line 5005 "" i__1[1] = 8, a__1[1] = "roffset{"; -#line 4939 "" +#line 5005 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)79); -#line 4940 "" +#line 5006 "" } -#line 4941 "" +#line 5007 "" hshft = *ihshft * .05f; -#line 4942 "" +#line 5008 "" if (hshft < 1.f) { -#line 4943 "" +#line 5009 "" ici__1.icierr = 0; -#line 4943 "" +#line 5009 "" ici__1.icirnum = 1; -#line 4943 "" +#line 5009 "" ici__1.icirlen = 3; -#line 4943 "" +#line 5009 "" ici__1.iciunit = notexq + 9; -#line 4943 "" +#line 5009 "" ici__1.icifmt = "(f3.2)"; -#line 4943 "" +#line 5009 "" s_wsfi(&ici__1); -#line 4943 "" +#line 5009 "" do_fio(&c__1, (char *)&hshft, (ftnlen)sizeof(real)); -#line 4943 "" +#line 5009 "" e_wsfi(); -#line 4944 "" +#line 5010 "" *lnote = 12; -#line 4945 "" +#line 5011 "" } else { -#line 4946 "" +#line 5012 "" ici__1.icierr = 0; -#line 4946 "" +#line 5012 "" ici__1.icirnum = 1; -#line 4946 "" +#line 5012 "" ici__1.icirlen = 4; -#line 4946 "" +#line 5012 "" ici__1.iciunit = notexq + 9; -#line 4946 "" +#line 5012 "" ici__1.icifmt = "(f4.2)"; -#line 4946 "" +#line 5012 "" s_wsfi(&ici__1); -#line 4946 "" +#line 5012 "" do_fio(&c__1, (char *)&hshft, (ftnlen)sizeof(real)); -#line 4946 "" +#line 5012 "" e_wsfi(); -#line 4947 "" +#line 5013 "" *lnote = 13; -#line 4948 "" +#line 5014 "" } /* Writing concatenation */ -#line 4949 "" +#line 5015 "" i__2[0] = *lnote, a__2[0] = notexq; -#line 4949 "" +#line 5015 "" i__2[1] = 2, a__2[1] = "}{"; -#line 4949 "" +#line 5015 "" i__2[2] = 1, a__2[2] = sq; -#line 4949 "" +#line 5015 "" s_cat(notexq, a__2, i__2, &c__3, (ftnlen)79); -#line 4950 "" +#line 5016 "" *lnote += 3; -#line 4951 "" +#line 5017 "" } else { -#line 4952 "" +#line 5018 "" s_copy(notexq, sq, (ftnlen)79, (ftnlen)1); -#line 4953 "" +#line 5019 "" *lnote = 1; -#line 4954 "" +#line 5020 "" } -#line 4955 "" +#line 5021 "" if (bit_test(*nacc,3)) { /* Writing concatenation */ -#line 4956 "" +#line 5022 "" i__1[0] = *lnote, a__1[0] = notexq; -#line 4956 "" +#line 5022 "" i__1[1] = 3, a__1[1] = "big"; -#line 4956 "" +#line 5022 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)79); -#line 4957 "" +#line 5023 "" *lnote += 3; -#line 4958 "" +#line 5024 "" } -#line 4959 "" +#line 5025 "" if (*caut) { /* Cautionary accidental. Need to define bigcna,... in pmx.tex */ /* Writing concatenation */ -#line 4963 "" +#line 5029 "" i__1[0] = *lnote, a__1[0] = notexq; -#line 4963 "" +#line 5029 "" i__1[1] = 1, a__1[1] = "c"; -#line 4963 "" +#line 5029 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)79); -#line 4964 "" +#line 5030 "" ++(*lnote); -#line 4965 "" +#line 5031 "" } -#line 4966 "" +#line 5032 "" accsym_(nacc, acsymq, &lacc, (ftnlen)3); /* Writing concatenation */ -#line 4967 "" +#line 5033 "" i__1[0] = *lnote, a__1[0] = notexq; -#line 4967 "" +#line 5033 "" i__1[1] = lacc, a__1[1] = acsymq; -#line 4967 "" +#line 5033 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)79); -#line 4968 "" +#line 5034 "" *lnote += lacc; -#line 4969 "" +#line 5035 "" noleva = *nolev; -#line 4970 "" +#line 5036 "" if (*ivshft != 0) { -#line 4970 "" +#line 5036 "" noleva = noleva + *ivshft - 32; -#line 4970 "" +#line 5036 "" } -#line 4971 "" +#line 5037 "" notefq_(noteq, &lnoten, &noleva, ncm, (ftnlen)8); -#line 4972 "" +#line 5038 "" if (lnoten == 1) { -#line 4972 "" +#line 5038 "" addblank_(noteq, &lnoten, (ftnlen)8); -#line 4972 "" +#line 5038 "" } /* Writing concatenation */ -#line 4973 "" +#line 5039 "" i__1[0] = *lnote, a__1[0] = notexq; -#line 4973 "" +#line 5039 "" i__1[1] = lnoten, a__1[1] = noteq; -#line 4973 "" +#line 5039 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)79); -#line 4974 "" +#line 5040 "" *lnote += lnoten; -#line 4975 "" +#line 5041 "" if (*ihshft != 0) { /* Terminate horizontal shift */ /* Writing concatenation */ -#line 4979 "" +#line 5045 "" i__1[0] = *lnote, a__1[0] = notexq; -#line 4979 "" +#line 5045 "" i__1[1] = 1, a__1[1] = "}"; -#line 4979 "" +#line 5045 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)79); -#line 4980 "" +#line 5046 "" ++(*lnote); -#line 4981 "" +#line 5047 "" } -#line 4982 "" +#line 5048 "" return 0; } /* doacc_ */ @@ -12180,8 +12265,8 @@ L10: integer *); /* Fortran I/O blocks */ - static cilist io___378 = { 0, 6, 0, 0, 0 }; - static cilist io___379 = { 0, 6, 0, 0, 0 }; + static cilist io___381 = { 0, 6, 0, 0, 0 }; + static cilist io___382 = { 0, 6, 0, 0, 0 }; @@ -12193,43 +12278,43 @@ L10: /* Set counter (for this note) for chord notes present. Set notmain=T. */ /* Will test for notmain=.true. in addmidi to tell whether to save pitch. */ -#line 5036 "" +#line 5102 "" /* Parameter adjustments */ -#line 5036 "" +#line 5102 "" irest -= 25; -#line 5036 "" +#line 5102 "" --nornb; -#line 5036 "" +#line 5102 "" ihornb -= 25; -#line 5036 "" +#line 5102 "" ulq -= 25; -#line 5036 "" +#line 5102 "" -#line 5036 "" +#line 5102 "" /* Function Body */ -#line 5036 "" +#line 5102 "" commidi_1.nmidcrd = 0; -#line 5037 "" +#line 5103 "" commidi_1.notmain = TRUE_; -#line 5038 "" +#line 5104 "" commidi_1.crdacc = FALSE_; -#line 5039 "" +#line 5105 "" i__1 = comtrill_1.icrd2; -#line 5039 "" +#line 5105 "" for (icrd = comtrill_1.icrd1; icrd <= i__1; ++icrd) { -#line 5040 "" +#line 5106 "" lnote = 0; -#line 5041 "" +#line 5107 "" nolev = igetbits_(&comtrill_1.icrdat[icrd - 1], &c__7, &c__12); /* 3/8/03 save original pitch to use in midi, in case 2nds alter things. */ -#line 5045 "" +#line 5111 "" nolevo = nolev; /* Check for special situations with 2nds (see precrd). */ -#line 5049 "" +#line 5115 "" if (bit_test(*nacc,30) && nolev == *nolevm - 1) { /* Upstem, 2nd with upper as main, interchange pitches, */ @@ -12237,87 +12322,87 @@ L10: /* if dotted, probably had shifted dot, dot parameters must be moved */ /* from chord to main */ -#line 5056 "" +#line 5122 "" nolev = *nolevm; -#line 5057 "" +#line 5123 "" if (bit_test(comtrill_1.icrdat[icrd - 1],26)) { /* Orig. chord note dot shift, must transfer to main. */ -#line 5061 "" +#line 5127 "" icrdotsav = comtrill_1.icrdot[icrd - 1]; -#line 5062 "" +#line 5128 "" icrdatsav = comtrill_1.icrdat[icrd - 1]; -#line 5063 "" +#line 5129 "" if (bit_test(irest[*ivx + *ip * 24],19)) { /* Main note (upper) had a dot shift, must move it to chord */ -#line 5067 "" +#line 5133 "" setbits_(&comtrill_1.icrdat[icrd - 1], &c__1, &c__26, & c__1); -#line 5068 "" +#line 5134 "" r__1 = comcc_1.updot[*ivx + (comcc_1.ndotmv[*ivx - 1] + 1) * 24 - 25] * 10; -#line 5068 "" +#line 5134 "" i__2 = i_nint(&r__1) + 64; -#line 5068 "" +#line 5134 "" setbits_(&comtrill_1.icrdot[icrd - 1], &c__7, &c__0, & i__2); -#line 5070 "" +#line 5136 "" r__1 = comcc_1.rtdot[*ivx + (comcc_1.ndotmv[*ivx - 1] + 1) * 24 - 25] * 10; -#line 5070 "" +#line 5136 "" i__2 = i_nint(&r__1) + 64; -#line 5070 "" +#line 5136 "" setbits_(&comtrill_1.icrdot[icrd - 1], &c__7, &c__7, & i__2); /* May need to worry about other chord params (accid shefts etc) later */ -#line 5075 "" +#line 5141 "" } else { -#line 5076 "" +#line 5142 "" comtrill_1.icrdat[icrd - 1] = bit_clear(comtrill_1.icrdat[ icrd - 1],26); -#line 5077 "" +#line 5143 "" } /* We are adding a main note dot shift, so push any later ones back */ -#line 5082 "" +#line 5148 "" if (! bit_test(irest[*ivx + *ip * 24],19)) { -#line 5083 "" +#line 5149 "" ++comcc_1.maxdotmv[*ivx - 1]; -#line 5084 "" +#line 5150 "" i__2 = comcc_1.ndotmv[*ivx - 1] + 2; -#line 5084 "" +#line 5150 "" for (indm = comcc_1.maxdotmv[*ivx - 1]; indm >= i__2; --indm) { -#line 5085 "" +#line 5151 "" comcc_1.updot[*ivx + indm * 24 - 25] = comcc_1.updot[* ivx + (indm - 1) * 24 - 25]; -#line 5086 "" +#line 5152 "" comcc_1.rtdot[*ivx + indm * 24 - 25] = comcc_1.rtdot[* ivx + (indm - 1) * 24 - 25]; -#line 5087 "" +#line 5153 "" /* L1: */ -#line 5087 "" +#line 5153 "" } -#line 5088 "" +#line 5154 "" } -#line 5089 "" +#line 5155 "" irest[*ivx + *ip * 24] = bit_set(irest[*ivx + *ip * 24],19); -#line 5090 "" +#line 5156 "" comcc_1.updot[*ivx + (comcc_1.ndotmv[*ivx - 1] + 1) * 24 - 25] = ((127 & icrdotsav) - 64) * .1f; -#line 5091 "" +#line 5157 "" comcc_1.rtdot[*ivx + (comcc_1.ndotmv[*ivx - 1] + 1) * 24 - 25] = ((127 & lbit_shift(icrdotsav, (ftnlen)-7)) - 64) * .1f; -#line 5093 "" +#line 5159 "" } -#line 5094 "" +#line 5160 "" } else if (bit_test(*nacc,31) && nolev == *nolevm + 1) { /* Downstem, 2nd with lower as main, interchange pitches, */ @@ -12325,63 +12410,63 @@ L10: /* probably had shifted dot, dot parameters must be moved from */ /* main to chord */ -#line 5101 "" +#line 5167 "" nolev = *nolevm; -#line 5102 "" +#line 5168 "" if (bit_test(irest[*ivx + *ip * 24],19)) { -#line 5103 "" +#line 5169 "" icrdotsav = comtrill_1.icrdot[icrd - 1]; -#line 5104 "" +#line 5170 "" icrdatsav = comtrill_1.icrdat[icrd - 1]; -#line 5105 "" +#line 5171 "" comtrill_1.icrdat[icrd - 1] = bit_set(comtrill_1.icrdat[icrd - 1],26); /* bits in icrdot */ /* 0-6 10*abs(vertical dot shift in \internote) + 64 */ /* 7-13 10*abs(horizontal dot shift in \internote) + 64 */ /* Assuming >0 for now! */ -#line 5110 "" +#line 5176 "" r__1 = comcc_1.updot[*ivx + (comcc_1.ndotmv[*ivx - 1] + 1) * 24 - 25] * 10; -#line 5110 "" +#line 5176 "" i__2 = i_nint(&r__1) + 64; -#line 5110 "" +#line 5176 "" setbits_(&comtrill_1.icrdot[icrd - 1], &c__7, &c__0, &i__2); -#line 5112 "" +#line 5178 "" r__1 = comcc_1.rtdot[*ivx + (comcc_1.ndotmv[*ivx - 1] + 1) * 24 - 25] * 10; -#line 5112 "" +#line 5178 "" i__2 = i_nint(&r__1) + 64; -#line 5112 "" +#line 5178 "" setbits_(&comtrill_1.icrdot[icrd - 1], &c__7, &c__7, &i__2); /* Must also set dot shift for (now) main note (orig. chord note). */ -#line 5117 "" +#line 5183 "" if (bit_test(icrdatsav,26)) { -#line 5118 "" +#line 5184 "" comcc_1.updot[*ivx + (comcc_1.ndotmv[*ivx - 1] + 1) * 24 - 25] = ((127 & icrdotsav) - 64) * .1f; -#line 5119 "" +#line 5185 "" comcc_1.rtdot[*ivx + (comcc_1.ndotmv[*ivx - 1] + 1) * 24 - 25] = ((127 & lbit_shift(icrdotsav, (ftnlen)-7)) - 64) * .1f; -#line 5121 "" +#line 5187 "" } else { /* No dot move on original chord (now main) note, */ -#line 5125 "" +#line 5191 "" comcc_1.updot[*ivx + (comcc_1.ndotmv[*ivx - 1] + 1) * 24 - 25] = 0.f; -#line 5126 "" +#line 5192 "" comcc_1.rtdot[*ivx + (comcc_1.ndotmv[*ivx - 1] + 1) * 24 - 25] = 0.f; -#line 5127 "" +#line 5193 "" } -#line 5128 "" +#line 5194 "" } -#line 5129 "" +#line 5195 "" } /* Lower dot for lower-voice notes?. Conditions are: */ @@ -12391,282 +12476,282 @@ L10: /* 4. Not a rest (cannot be a rest in a chord!) */ /* . 5. Flag (lowdot) is set to true */ -#line 5138 "" +#line 5204 "" if (comarp_1.lowdot && *nvmx == 2 && *ivx <= *nv) { -#line 5139 "" +#line 5205 "" i__2 = log2_(nodu); -#line 5139 "" +#line 5205 "" if (pow_ii(&c__2, &i__2) != *nodu && (nolev - *ncm) % 2 == 0) { -#line 5140 "" +#line 5206 "" if (bit_test(comtrill_1.icrdat[icrd - 1],26)) { /* Note already in movdot list. Drop by 2. */ -#line 5144 "" +#line 5210 "" i__2 = igetbits_(&comtrill_1.icrdot[icrd - 1], &c__7, & c__0) - 20; -#line 5144 "" +#line 5210 "" setbits_(&comtrill_1.icrdot[icrd - 1], &c__7, &c__0, & i__2); -#line 5146 "" +#line 5212 "" } else { /* Not in list so just move it right now */ -#line 5150 "" +#line 5216 "" i__2 = igetbits_(islur, &c__1, &c__3); -#line 5150 "" - dotmov_(&c_b1008, &c_b1009, soutq, lsout, &i__2, (ftnlen) +#line 5216 "" + dotmov_(&c_b1007, &c_b1008, soutq, lsout, &i__2, (ftnlen) 80); -#line 5151 "" +#line 5217 "" } -#line 5152 "" +#line 5218 "" } -#line 5153 "" +#line 5219 "" } -#line 5154 "" +#line 5220 "" if (bit_test(comtrill_1.icrdat[icrd - 1],26)) { /* Move the dot. Basic call for chord notes, not main note. */ -#line 5158 "" +#line 5224 "" updotc = ((127 & comtrill_1.icrdot[icrd - 1]) - 64) * .1f; -#line 5159 "" +#line 5225 "" rtdotc = ((127 & lbit_shift(comtrill_1.icrdot[icrd - 1], (ftnlen) -7)) - 64) * .1f; -#line 5160 "" +#line 5226 "" i__2 = igetbits_(islur, &c__1, &c__3); -#line 5160 "" +#line 5226 "" dotmov_(&updotc, &rtdotc, soutq, lsout, &i__2, (ftnlen)80); -#line 5161 "" +#line 5227 "" } -#line 5162 "" +#line 5228 "" isleft = bit_test(comtrill_1.icrdat[icrd - 1],23); -#line 5163 "" +#line 5229 "" isright = bit_test(comtrill_1.icrdat[icrd - 1],24); /* Check for ornament in chord. */ -#line 5167 "" +#line 5233 "" if (comtrill_1.icrdorn[icrd - 1] > 0) { -#line 5168 "" +#line 5234 "" putorn_(&comtrill_1.icrdorn[icrd - 1], &nolev, nolevm, nodu, & nornb[1], ulq + 25, ibmcnt, ivx, ncm, islur, nvmx, nv, & ihornb[25], stemlen, outq, &lout, ip, &c__0, beamon, & c_true, (ftnlen)1, (ftnlen)79); -#line 5171 "" +#line 5237 "" addstr_(outq, &lout, soutq, lsout, (ftnlen)79, (ftnlen)80); -#line 5172 "" +#line 5238 "" } /* Chord-note symbol. First check for breve */ -#line 5176 "" +#line 5242 "" if (*nodu == 128) { /* Writing concatenation */ -#line 5177 "" +#line 5243 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 5177 "" +#line 5243 "" i__3[0] = 1, a__1[0] = ch__1; -#line 5177 "" +#line 5243 "" i__3[1] = 6, a__1[1] = "zbreve"; -#line 5177 "" +#line 5243 "" s_cat(nosymq, a__1, i__3, &c__2, (ftnlen)7); -#line 5178 "" +#line 5244 "" lsym = 7; -#line 5179 "" +#line 5245 "" } else { /* Not a breve chord. Get first letters in chord-note symbol */ -#line 5183 "" +#line 5249 "" if (isleft) { /* Writing concatenation */ -#line 5184 "" +#line 5250 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 5184 "" +#line 5250 "" i__3[0] = 1, a__1[0] = ch__1; -#line 5184 "" +#line 5250 "" i__3[1] = 1, a__1[1] = "l"; -#line 5184 "" +#line 5250 "" s_cat(nosymq, a__1, i__3, &c__2, (ftnlen)7); -#line 5185 "" +#line 5251 "" } else if (isright) { /* Writing concatenation */ -#line 5186 "" +#line 5252 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 5186 "" +#line 5252 "" i__3[0] = 1, a__1[0] = ch__1; -#line 5186 "" +#line 5252 "" i__3[1] = 1, a__1[1] = "r"; -#line 5186 "" +#line 5252 "" s_cat(nosymq, a__1, i__3, &c__2, (ftnlen)7); -#line 5187 "" +#line 5253 "" } else { /* Writing concatenation */ -#line 5188 "" +#line 5254 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 5188 "" +#line 5254 "" i__3[0] = 1, a__1[0] = ch__1; -#line 5188 "" +#line 5254 "" i__3[1] = 1, a__1[1] = "z"; -#line 5188 "" +#line 5254 "" s_cat(nosymq, a__1, i__3, &c__2, (ftnlen)7); -#line 5189 "" +#line 5255 "" } -#line 5190 "" +#line 5256 "" if (*nodu >= 64) { /* Writing concatenation */ -#line 5191 "" +#line 5257 "" i__3[0] = 2, a__1[0] = nosymq; -#line 5191 "" +#line 5257 "" i__3[1] = 1, a__1[1] = "w"; -#line 5191 "" +#line 5257 "" s_cat(nosymq, a__1, i__3, &c__2, (ftnlen)7); -#line 5192 "" +#line 5258 "" } else if (*nodu >= 32) { /* Writing concatenation */ -#line 5193 "" +#line 5259 "" i__3[0] = 2, a__1[0] = nosymq; -#line 5193 "" +#line 5259 "" i__3[1] = 1, a__1[1] = "h"; -#line 5193 "" +#line 5259 "" s_cat(nosymq, a__1, i__3, &c__2, (ftnlen)7); -#line 5194 "" +#line 5260 "" } else { /* Writing concatenation */ -#line 5195 "" +#line 5261 "" i__3[0] = 2, a__1[0] = nosymq; -#line 5195 "" +#line 5261 "" i__3[1] = 1, a__1[1] = "q"; -#line 5195 "" +#line 5261 "" s_cat(nosymq, a__1, i__3, &c__2, (ftnlen)7); -#line 5196 "" +#line 5262 "" } -#line 5197 "" +#line 5263 "" i__2 = log2_(nodu); -#line 5197 "" +#line 5263 "" if (pow_ii(&c__2, &i__2) == *nodu && ! (*dotxtup)) { -#line 5198 "" +#line 5264 "" lsym = 3; -#line 5199 "" +#line 5265 "" } else if (! bit_test(*islur,3) || *dotxtup) { /* Single dot */ /* Writing concatenation */ -#line 5203 "" +#line 5269 "" i__3[0] = 3, a__1[0] = nosymq; -#line 5203 "" +#line 5269 "" i__3[1] = 1, a__1[1] = "p"; -#line 5203 "" +#line 5269 "" s_cat(nosymq, a__1, i__3, &c__2, (ftnlen)7); -#line 5204 "" +#line 5270 "" lsym = 4; -#line 5205 "" +#line 5271 "" } else { /* Double dot */ /* Writing concatenation */ -#line 5209 "" +#line 5275 "" i__3[0] = 3, a__1[0] = nosymq; -#line 5209 "" +#line 5275 "" i__3[1] = 2, a__1[1] = "pp"; -#line 5209 "" +#line 5275 "" s_cat(nosymq, a__1, i__3, &c__2, (ftnlen)7); -#line 5210 "" +#line 5276 "" lsym = 5; -#line 5211 "" +#line 5277 "" } -#line 5212 "" +#line 5278 "" } -#line 5213 "" +#line 5279 "" if (bit_test(comtrill_1.icrdat[icrd - 1],19) && ! bit_test( comtrill_1.icrdat[icrd - 1],27)) { /* Accidental and not MIDI-only. Build up bits 0-3 of nacc */ -#line 5217 "" +#line 5283 "" nactmp = igetbits_(&comtrill_1.icrdat[icrd - 1], &c__3, &c__20); /* Kluge for bigness. Only means 'As' has not been issued */ -#line 5221 "" +#line 5287 "" if (spfacs_1.bacfac != 1e6f) { -#line 5221 "" +#line 5287 "" nactmp += 8; -#line 5221 "" +#line 5287 "" } -#line 5222 "" +#line 5288 "" i__2 = igetbits_(&comtrill_1.icrdot[icrd - 1], &c__7, &c__20) - 107; -#line 5222 "" +#line 5288 "" i__4 = igetbits_(&comtrill_1.icrdot[icrd - 1], &c__6, &c__14); -#line 5222 "" +#line 5288 "" i__5 = igetbits_(&comtrill_1.icrdat[icrd - 1], &c__7, &c__12); -#line 5222 "" +#line 5288 "" i__6 = ncmid_(iv, ip); -#line 5222 "" +#line 5288 "" L__1 = bit_test(comtrill_1.icrdat[icrd - 1],31); -#line 5222 "" +#line 5288 "" doacc_(&i__2, &i__4, notexq, &lnote, &nactmp, &i__5, &i__6, &L__1, (ftnlen)79); /* * notexq,lnote,nactmp,nolev,ncmid(iv,ip)) */ /* Get original nolev, not altered to deal with 2nds */ /* * ncmid(iv,ip)) */ /* Writing concatenation */ -#line 5229 "" +#line 5295 "" i__3[0] = lnote, a__1[0] = notexq; -#line 5229 "" +#line 5295 "" i__3[1] = 7, a__1[1] = nosymq; -#line 5229 "" +#line 5295 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 5230 "" +#line 5296 "" commidi_1.crdacc = TRUE_; -#line 5231 "" +#line 5297 "" } else { -#line 5232 "" +#line 5298 "" s_copy(notexq, nosymq, (ftnlen)79, (ftnlen)7); -#line 5233 "" +#line 5299 "" } -#line 5234 "" +#line 5300 "" lnote += lsym; /* Get note name (again if accid, due to possible octave jump) */ -#line 5238 "" +#line 5304 "" notefq_(noteq, &lnoten, &nolev, ncm, (ftnlen)8); -#line 5239 "" +#line 5305 "" if (lnoten == 1) { -#line 5239 "" +#line 5305 "" addblank_(noteq, &lnoten, (ftnlen)8); -#line 5239 "" +#line 5305 "" } /* Put in note name */ /* Writing concatenation */ -#line 5243 "" +#line 5309 "" i__3[0] = lnote, a__1[0] = notexq; -#line 5243 "" +#line 5309 "" i__3[1] = 8, a__1[1] = noteq; -#line 5243 "" +#line 5309 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 5244 "" +#line 5310 "" lnote += lnoten; -#line 5245 "" +#line 5311 "" if (bit_test(comtrill_1.icrdat[icrd - 1],25)) { /* Arpeggio signal */ -#line 5249 "" +#line 5315 "" putarp_(tnow, ivx, ip, &nolev, ncm, soutq, lsout, (ftnlen)80); -#line 5250 "" +#line 5316 "" } -#line 5251 "" +#line 5317 "" addstr_(notexq, &lnote, soutq, lsout, (ftnlen)79, (ftnlen)80); -#line 5252 "" +#line 5318 "" if (commidi_1.ismidi) { /* Here is where we collect MIDI pitch info for the chord note. By checking */ @@ -12674,53 +12759,53 @@ L10: /* pitch number and store it in mcpitch(nmidcrd). Then on call to addmidi() */ /* for MAIN note, will put in note codes for all chord notes + main note. */ -#line 5259 "" +#line 5325 "" kv = 1; -#line 5260 "" +#line 5326 "" if (*ivx > *iv) { -#line 5260 "" +#line 5326 "" kv = 2; -#line 5260 "" +#line 5326 "" } -#line 5261 "" +#line 5327 "" ++commidi_1.nmidcrd; -#line 5262 "" +#line 5328 "" if (commidi_1.nmidcrd > 20) { -#line 5263 "" - s_wsle(&io___378); -#line 5263 "" +#line 5329 "" + s_wsle(&io___381); +#line 5329 "" e_wsle(); -#line 5264 "" - s_wsle(&io___379); -#line 5264 "" +#line 5330 "" + s_wsle(&io___382); +#line 5330 "" do_lio(&c__9, &c__1, "21 chord notes is too many for midi pr"\ "ocessor", (ftnlen)45); -#line 5264 "" +#line 5330 "" e_wsle(); -#line 5265 "" +#line 5331 "" stop1_(); -#line 5266 "" +#line 5332 "" } /* Use original saved pitch level, unaltered by 2nds logic. */ -#line 5270 "" +#line 5336 "" i__2 = nolevo + commvel_1.miditran[cominsttrans_1.instno[*iv - 1] - 1]; -#line 5270 "" +#line 5336 "" i__4 = igetbits_(&comtrill_1.icrdat[icrd - 1], &c__3, &c__20); -#line 5270 "" +#line 5336 "" addmidi_(&commidi_1.midchan[*iv + kv * 24 - 25], &i__2, &i__4, & - commidisig_1.midisig, &c_b1054, &c_false, &c_false); -#line 5273 "" + commidisig_1.midisig, &c_b1053, &c_false, &c_false); +#line 5339 "" } -#line 5274 "" +#line 5340 "" /* L5: */ -#line 5274 "" +#line 5340 "" } -#line 5275 "" +#line 5341 "" commidi_1.notmain = FALSE_; -#line 5276 "" +#line 5342 "" return 0; } /* docrd_ */ @@ -12783,208 +12868,208 @@ L10: static integer jtxtdyn, ltxtdyn; /* Fortran I/O blocks */ - static icilist io___401 = { 0, numpq+1, 0, "(i2)", 2, 1 }; - static icilist io___403 = { 0, numpq+1, 0, "(i2)", 2, 1 }; - static icilist io___404 = { 0, numpq+1, 0, "(i3)", 3, 1 }; - static icilist io___411 = { 0, numpq+1, 0, "(i2)", 2, 1 }; - static icilist io___412 = { 0, numpq+1, 0, "(i2)", 2, 1 }; - static icilist io___413 = { 0, numpq+1, 0, "(i3)", 3, 1 }; - static cilist io___416 = { 0, 11, 0, "(a)", 0 }; + static icilist io___404 = { 0, numpq+1, 0, "(i2)", 2, 1 }; + static icilist io___406 = { 0, numpq+1, 0, "(i2)", 2, 1 }; + static icilist io___407 = { 0, numpq+1, 0, "(i3)", 3, 1 }; + static icilist io___414 = { 0, numpq+1, 0, "(i2)", 2, 1 }; + static icilist io___415 = { 0, numpq+1, 0, "(i2)", 2, 1 }; + static icilist io___416 = { 0, numpq+1, 0, "(i3)", 3, 1 }; + static cilist io___419 = { 0, 11, 0, "(a)", 0 }; /* Inputs are array *elements* except ihornb,nornb,ulq */ -#line 5304 "" +#line 5370 "" /* Parameter adjustments */ -#line 5304 "" +#line 5370 "" ulq -= 25; -#line 5304 "" +#line 5370 "" --nornb; -#line 5304 "" +#line 5370 "" ihornb -= 25; -#line 5304 "" +#line 5370 "" -#line 5304 "" +#line 5370 "" /* Function Body */ -#line 5305 "" +#line 5371 "" numdyn = 0; /* Find dynamics for (ivx,ip) in list. May be as many as 4. Store idyn values */ /* in idynn(1...4) */ -#line 5310 "" +#line 5376 "" i__1 = comdyn_1.ndyn; -#line 5310 "" +#line 5376 "" for (idyn = 1; idyn <= i__1; ++idyn) { -#line 5311 "" +#line 5377 "" ivxtent = (comdyn_1.idyndat[idyn - 1] & 15) + (igetbits_(& comdyn_1.idynda2[idyn - 1], &c__1, &c__10) << 4); -#line 5313 "" +#line 5379 "" if (ivxtent == *ivx) { -#line 5314 "" +#line 5380 "" iptent = igetbits_(&comdyn_1.idyndat[idyn - 1], &c__8, &c__4); -#line 5315 "" +#line 5381 "" if (iptent == *ip) { -#line 5316 "" +#line 5382 "" ++numdyn; -#line 5317 "" +#line 5383 "" idynn[numdyn - 1] = idyn; -#line 5318 "" +#line 5384 "" } else if (iptent > *ip) { /* I don't think there are any more possible for this ivx,ip, so exit loop */ -#line 5322 "" +#line 5388 "" goto L2; -#line 5323 "" +#line 5389 "" } -#line 5324 "" +#line 5390 "" } -#line 5325 "" +#line 5391 "" /* L1: */ -#line 5325 "" +#line 5391 "" } -#line 5326 "" +#line 5392 "" L2: /* At this point there is a list of idyn's in idynn(1...numdyn) */ /* Compute level, and stem-dir'n-based horizontal tweaks */ -#line 5331 "" +#line 5397 "" hoffsd = 0.f; /* Set upstem to false as default */ -#line 5335 "" +#line 5401 "" upstem = FALSE_; -#line 5336 "" +#line 5402 "" if (bit_test(*irest,0)) { /* It's a rest. Assume it doesn't go below the staff */ -#line 5340 "" +#line 5406 "" lbot = *ncm - 4; -#line 5341 "" +#line 5407 "" } else if (! (*beamon)) { -#line 5342 "" +#line 5408 "" udqq_(ch__1, (ftnlen)1, nolev, ncm, islur, nvmx, ivx, nv); -#line 5342 "" +#line 5408 "" if (*(unsigned char *)&ch__1[0] == 'u' || *nostem) { -#line 5343 "" +#line 5409 "" upstem = TRUE_; -#line 5344 "" +#line 5410 "" if (! bit_test(*ipl,10)) { /* Computing MIN */ -#line 5345 "" +#line 5411 "" i__1 = *nolev - 1, i__2 = *ncm - 4; -#line 5345 "" +#line 5411 "" lbot = min(i__1,i__2); -#line 5346 "" +#line 5412 "" } else { /* Computing MIN */ -#line 5347 "" +#line 5413 "" i__1 = comtrill_1.minlev - 1, i__2 = *ncm - 4; -#line 5347 "" +#line 5413 "" lbot = min(i__1,i__2); -#line 5348 "" +#line 5414 "" } -#line 5349 "" +#line 5415 "" } else { -#line 5350 "" +#line 5416 "" hoffsd = -.5f; -#line 5351 "" +#line 5417 "" if (! bit_test(*ipl,10)) { /* Computing MIN */ -#line 5352 "" +#line 5418 "" i__1 = *nolev - 7, i__2 = *ncm - 4; -#line 5352 "" +#line 5418 "" lbot = min(i__1,i__2); -#line 5353 "" +#line 5419 "" } else { /* Computing MIN */ -#line 5354 "" +#line 5420 "" i__1 = comtrill_1.minlev - 7, i__2 = *ncm - 4; -#line 5354 "" +#line 5420 "" lbot = min(i__1,i__2); -#line 5355 "" +#line 5421 "" } -#line 5356 "" +#line 5422 "" } -#line 5357 "" +#line 5423 "" } else { -#line 5358 "" +#line 5424 "" if (*(unsigned char *)&ulq[*ivx + *ibmcnt * 24] == 'u') { -#line 5359 "" +#line 5425 "" upstem = TRUE_; -#line 5360 "" +#line 5426 "" if (! bit_test(*ipl,10)) { /* Computing MIN */ -#line 5361 "" +#line 5427 "" i__1 = *nolev - 1, i__2 = *ncm - 4; -#line 5361 "" +#line 5427 "" lbot = min(i__1,i__2); -#line 5362 "" +#line 5428 "" } else { /* Computing MIN */ -#line 5363 "" +#line 5429 "" i__1 = comtrill_1.minlev - 1, i__2 = *ncm - 4; -#line 5363 "" +#line 5429 "" lbot = min(i__1,i__2); -#line 5364 "" +#line 5430 "" } -#line 5365 "" +#line 5431 "" } else { -#line 5366 "" +#line 5432 "" hoffsd = -.5f; /* 171230 Desperation */ /* lbot = ihornb(ivx,nornb(ivx))+1 */ -#line 5370 "" +#line 5436 "" if (nornb[*ivx] == 0) { -#line 5371 "" +#line 5437 "" lbot = 1; -#line 5372 "" +#line 5438 "" } else { -#line 5373 "" +#line 5439 "" lbot = ihornb[*ivx + nornb[*ivx] * 24] + 1; -#line 5374 "" +#line 5440 "" } -#line 5375 "" +#line 5441 "" if (lbot == 1) { /* Kluge for non-beamed, down xtup, for which ihorb was never set. */ /* Assumes stem is shortened. */ -#line 5380 "" +#line 5446 "" lbot = *nolev - 5; -#line 5381 "" +#line 5447 "" } -#line 5382 "" +#line 5448 "" ++nornb[*ivx]; -#line 5383 "" +#line 5449 "" } -#line 5384 "" +#line 5450 "" } -#line 5385 "" +#line 5451 "" lbot += -5; -#line 5386 "" +#line 5452 "" jtxtdyn1 = 1; /* Now ready to loop over current dyn's */ -#line 5390 "" +#line 5456 "" i__1 = numdyn; -#line 5390 "" +#line 5456 "" for (icntdyn = 1; icntdyn <= i__1; ++icntdyn) { -#line 5391 "" +#line 5457 "" idynd = comdyn_1.idyndat[idynn[icntdyn - 1] - 1]; -#line 5392 "" +#line 5458 "" idynd2 = comdyn_1.idynda2[idynn[icntdyn - 1] - 1]; -#line 5393 "" +#line 5459 "" idno = igetbits_(&idynd, &c__4, &c__12); /* ivx = iand(15,idynd) */ -#line 5395 "" +#line 5461 "" *ivx = (15 & idynd) + (igetbits_(&idynd2, &c__1, &c__10) << 4); /* Build the command into notex in stages. Insert name & rq'd args in order: */ @@ -13000,366 +13085,366 @@ L2: /* d-mark */ /* X */ -#line 5410 "" +#line 5476 "" if (idno == 0) { /* Text-dynamic */ /* Writing concatenation */ -#line 5414 "" +#line 5480 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 5414 "" +#line 5480 "" i__3[0] = 1, a__1[0] = ch__1; -#line 5414 "" +#line 5480 "" i__3[1] = 6, a__1[1] = "txtdyn"; -#line 5414 "" +#line 5480 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 5415 "" +#line 5481 "" lnote = 7; -#line 5416 "" +#line 5482 "" } else if (idno <= 12) { /* Letter-group */ /* Writing concatenation */ -#line 5420 "" +#line 5486 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 5420 "" +#line 5486 "" i__3[0] = 1, a__1[0] = ch__1; -#line 5420 "" +#line 5486 "" i__3[1] = 6, a__1[1] = "pmxdyn"; -#line 5420 "" +#line 5486 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 5421 "" +#line 5487 "" lnote = 7; -#line 5422 "" +#line 5488 "" } else if (comslur_1.fontslur) { -#line 5423 "" +#line 5489 "" lnote = 7; -#line 5424 "" +#line 5490 "" if (idno == 13) { /* Start a font-based hairpin */ /* Writing concatenation */ -#line 5428 "" +#line 5494 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 5428 "" +#line 5494 "" i__3[0] = 1, a__1[0] = ch__1; -#line 5428 "" +#line 5494 "" i__3[1] = 6, a__1[1] = "hpstrt"; -#line 5428 "" +#line 5494 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 5429 "" +#line 5495 "" } else if (idno == 14) { /* End crescendo */ /* Writing concatenation */ -#line 5433 "" +#line 5499 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 5433 "" +#line 5499 "" i__3[0] = 1, a__1[0] = ch__1; -#line 5433 "" +#line 5499 "" i__3[1] = 6, a__1[1] = "hpcend"; -#line 5433 "" +#line 5499 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 5434 "" +#line 5500 "" } else { /* End decrescendo */ /* Writing concatenation */ -#line 5438 "" +#line 5504 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 5438 "" +#line 5504 "" i__3[0] = 1, a__1[0] = ch__1; -#line 5438 "" +#line 5504 "" i__3[1] = 6, a__1[1] = "hpdend"; -#line 5438 "" +#line 5504 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 5439 "" +#line 5505 "" } /* Put in voice number as ID for font-based hairpin */ -#line 5443 "" +#line 5509 "" if (*ivx <= 9) { /* Writing concatenation */ -#line 5444 "" +#line 5510 "" i__3[0] = lnote, a__1[0] = notexq; -#line 5444 "" +#line 5510 "" *(unsigned char *)&ch__1[0] = *ivx + 48; -#line 5444 "" +#line 5510 "" i__3[1] = 1, a__1[1] = ch__1; -#line 5444 "" +#line 5510 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 5445 "" +#line 5511 "" ++lnote; -#line 5446 "" +#line 5512 "" } else if (*ivx <= 19) { /* Writing concatenation */ -#line 5447 "" +#line 5513 "" i__4[0] = lnote, a__2[0] = notexq; -#line 5447 "" +#line 5513 "" i__4[1] = 2, a__2[1] = "{1"; -#line 5447 "" +#line 5513 "" *(unsigned char *)&ch__1[0] = *ivx + 38; -#line 5447 "" +#line 5513 "" i__4[2] = 1, a__2[2] = ch__1; -#line 5447 "" +#line 5513 "" i__4[3] = 1, a__2[3] = "}"; -#line 5447 "" +#line 5513 "" s_cat(notexq, a__2, i__4, &c__4, (ftnlen)79); -#line 5448 "" +#line 5514 "" lnote += 4; -#line 5449 "" +#line 5515 "" } else { /* Writing concatenation */ -#line 5450 "" +#line 5516 "" i__4[0] = lnote, a__2[0] = notexq; -#line 5450 "" +#line 5516 "" i__4[1] = 2, a__2[1] = "{2"; -#line 5450 "" +#line 5516 "" *(unsigned char *)&ch__1[0] = *ivx + 28; -#line 5450 "" +#line 5516 "" i__4[2] = 1, a__2[2] = ch__1; -#line 5450 "" +#line 5516 "" i__4[3] = 1, a__2[3] = "}"; -#line 5450 "" +#line 5516 "" s_cat(notexq, a__2, i__4, &c__4, (ftnlen)79); -#line 5451 "" +#line 5517 "" lnote += 4; -#line 5452 "" +#line 5518 "" } -#line 5453 "" +#line 5519 "" } else { /* Postscript hairpins */ -#line 5457 "" +#line 5523 "" lnote = 7; -#line 5458 "" +#line 5524 "" if (idno == 13) { /* Writing concatenation */ -#line 5459 "" +#line 5525 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 5459 "" +#line 5525 "" i__3[0] = 1, a__1[0] = ch__1; -#line 5459 "" +#line 5525 "" i__3[1] = 6, a__1[1] = "Icresc"; -#line 5459 "" +#line 5525 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 5460 "" +#line 5526 "" } else if (idno == 14) { /* Writing concatenation */ -#line 5461 "" +#line 5527 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 5461 "" +#line 5527 "" i__3[0] = 1, a__1[0] = ch__1; -#line 5461 "" +#line 5527 "" i__3[1] = 8, a__1[1] = "Idecresc"; -#line 5461 "" +#line 5527 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 5462 "" +#line 5528 "" lnote = 9; -#line 5463 "" +#line 5529 "" } else { /* Writing concatenation */ -#line 5464 "" +#line 5530 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 5464 "" +#line 5530 "" i__3[0] = 1, a__1[0] = ch__1; -#line 5464 "" +#line 5530 "" i__3[1] = 6, a__1[1] = "Tcresc"; -#line 5464 "" +#line 5530 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 5465 "" +#line 5531 "" } -#line 5466 "" +#line 5532 "" if (idno <= 14) { /* Get and record ID no for start of ps hairpin */ /* Find first unused ID */ -#line 5471 "" +#line 5537 "" for (idh = 1; idh <= 24; ++idh) { -#line 5472 "" +#line 5538 "" if (! bit_test(comhair_1.ihairuse,idh)) { -#line 5472 "" +#line 5538 "" goto L9; -#line 5472 "" +#line 5538 "" } -#line 5473 "" +#line 5539 "" /* L8: */ -#line 5473 "" +#line 5539 "" } -#line 5474 "" +#line 5540 "" printl_("Bad place in putdyn, call Dr. Don", (ftnlen)33); -#line 5475 "" +#line 5541 "" stop1_(); -#line 5476 "" +#line 5542 "" L9: -#line 5477 "" +#line 5543 "" comhair_1.ihairuse = bit_set(comhair_1.ihairuse,idh); -#line 5478 "" +#line 5544 "" comhair_1.idhair[*ivx - 1] = idh; -#line 5479 "" +#line 5545 "" } else { /* Unrecord ID no for end of ps hairpin */ -#line 5483 "" +#line 5549 "" setbits_(&comhair_1.ihairuse, &c__1, &comhair_1.idhair[*ivx - 1], &c__0); -#line 5484 "" +#line 5550 "" } /* Write ID # for start or end of ps hairpin */ -#line 5488 "" +#line 5554 "" idh = comhair_1.idhair[*ivx - 1]; -#line 5489 "" +#line 5555 "" if (idh <= 9) { /* Writing concatenation */ -#line 5490 "" +#line 5556 "" i__3[0] = lnote, a__1[0] = notexq; -#line 5490 "" +#line 5556 "" *(unsigned char *)&ch__1[0] = idh + 48; -#line 5490 "" +#line 5556 "" i__3[1] = 1, a__1[1] = ch__1; -#line 5490 "" +#line 5556 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 5491 "" +#line 5557 "" ++lnote; -#line 5492 "" +#line 5558 "" } else if (idh <= 19) { /* Writing concatenation */ -#line 5493 "" +#line 5559 "" i__4[0] = lnote, a__2[0] = notexq; -#line 5493 "" +#line 5559 "" i__4[1] = 2, a__2[1] = "{1"; -#line 5493 "" +#line 5559 "" *(unsigned char *)&ch__1[0] = idh + 38; -#line 5493 "" +#line 5559 "" i__4[2] = 1, a__2[2] = ch__1; -#line 5493 "" +#line 5559 "" i__4[3] = 1, a__2[3] = "}"; -#line 5493 "" +#line 5559 "" s_cat(notexq, a__2, i__4, &c__4, (ftnlen)79); -#line 5494 "" +#line 5560 "" lnote += 4; -#line 5495 "" +#line 5561 "" } else { /* Writing concatenation */ -#line 5496 "" +#line 5562 "" i__4[0] = lnote, a__2[0] = notexq; -#line 5496 "" +#line 5562 "" i__4[1] = 2, a__2[1] = "{2"; -#line 5496 "" +#line 5562 "" *(unsigned char *)&ch__1[0] = idh + 28; -#line 5496 "" +#line 5562 "" i__4[2] = 1, a__2[2] = ch__1; -#line 5496 "" +#line 5562 "" i__4[3] = 1, a__2[3] = "}"; -#line 5496 "" +#line 5562 "" s_cat(notexq, a__2, i__4, &c__4, (ftnlen)79); -#line 5497 "" +#line 5563 "" lnote += 4; -#line 5498 "" +#line 5564 "" } -#line 5499 "" +#line 5565 "" } /* Begin setting level */ -#line 5503 "" +#line 5569 "" lbot1 = lbot; -#line 5504 "" +#line 5570 "" if (idno > 0 && idno <= 5) { /* All letters are short so raise a bit. */ -#line 5508 "" +#line 5574 "" ++lbot1; -#line 5509 "" +#line 5575 "" } else if (idno >= 13) { -#line 5510 "" +#line 5576 "" lbot1 += 2; -#line 5511 "" +#line 5577 "" } /* Convert so reference is bottom line */ -#line 5515 "" +#line 5581 "" lbot1 = lbot1 - *ncm + 4; -#line 5516 "" +#line 5582 "" if (comslur_1.fontslur && idno == 13 || ! comslur_1.fontslur && (idno == 13 || idno == 14)) { /* Hairpin start. Save level and user-tweak before applying user tweak. */ -#line 5521 "" +#line 5587 "" comdyn_1.levdsav[*ivx - 1] = lbot1; -#line 5522 "" +#line 5588 "" comdyn_1.levhssav[*ivx - 1] = 0; -#line 5523 "" +#line 5589 "" if (bit_test(idynd,16)) { -#line 5523 "" +#line 5589 "" comdyn_1.levhssav[*ivx - 1] = igetbits_(&idynd, &c__7, &c__17) - 64; -#line 5523 "" +#line 5589 "" } -#line 5524 "" +#line 5590 "" } else if (comslur_1.fontslur && idno >= 14 || idno == 15) { /* Hairpin end; Compare level with saved start level before user-tweaks */ /* Computing MIN */ -#line 5528 "" +#line 5594 "" i__2 = lbot1, i__5 = comdyn_1.levdsav[*ivx - 1]; -#line 5528 "" +#line 5594 "" lbot1 = min(i__2,i__5); /* Save pre-tweak level */ -#line 5532 "" +#line 5598 "" lpretweak = lbot1; -#line 5533 "" +#line 5599 "" } /* Check for user-defined vertical tweak */ -#line 5537 "" +#line 5603 "" if (bit_test(idynd,16)) { -#line 5537 "" +#line 5603 "" lbot1 = lbot1 - 64 + igetbits_(&idynd, &c__7, &c__17); -#line 5537 "" +#line 5603 "" } /* Now horizontal stuff */ -#line 5541 "" +#line 5607 "" hoff = hoffsd; /* Some special horizontal tweaks */ -#line 5545 "" +#line 5611 "" if (upstem && idno > 0 && (idno <= 4 || idno == 8 || idno == 9)) { -#line 5545 "" +#line 5611 "" hoff += .4f; -#line 5545 "" +#line 5611 "" } /* User-defined tweaks */ -#line 5550 "" +#line 5616 "" if (bit_test(idynd2,0)) { -#line 5550 "" +#line 5616 "" hoff += (igetbits_(&idynd2, &c__9, &c__1) - 256) * .1f; -#line 5550 "" +#line 5616 "" } -#line 5552 "" +#line 5618 "" if (numdyn > 1) { /* Horizontal-interaction-based tweaks. */ @@ -13371,23 +13456,23 @@ L9: /* 2 hrpnend hrpnstrt - hoh2h1(1...2) */ /* 3 hrpnend wrd-grp hrpnstrt ivowg,hoh2,hoh1 */ -#line 5563 "" +#line 5629 "" if (idno > 0 && idno <= 12) { /* Word-group, may need vertical tweak to line up. */ -#line 5567 "" +#line 5633 "" lbot1 += comdyn_1.ivowg[idno - 1]; /* Protecting against hp start-stop on same note */ -#line 5571 "" +#line 5637 "" } else if ((comslur_1.fontslur && idno >= 14 || idno == 15) && icntdyn < numdyn) { /* Hairpin ending, check next type */ -#line 5576 "" +#line 5642 "" if (comslur_1.fontslur && igetbits_(&comdyn_1.idyndat[idynn[ icntdyn] - 1], &c__4, &c__12) == 13 || ! comslur_1.fontslur && (igetbits_(&comdyn_1.idyndat[ @@ -13397,28 +13482,28 @@ L9: /* Hairpin end then hairpin start, no words, (remember dealing with end now) */ -#line 5586 "" +#line 5652 "" hoff += comdyn_1.hoh2h1[0]; -#line 5587 "" +#line 5653 "" } else { /* Hairpin end then word-group, need idno for w-g to set hp offset */ -#line 5591 "" +#line 5657 "" hoff += comdyn_1.hoh2[igetbits_(&comdyn_1.idyndat[idynn[ icntdyn] - 1], &c__4, &c__12) - 1]; -#line 5593 "" +#line 5659 "" } /* Protecting against hp start-stop on same note */ -#line 5597 "" +#line 5663 "" } else if (icntdyn > 1 && idno > 0 && (comslur_1.fontslur && idno < 14 || ! comslur_1.fontslur && idno < 15)) { /* Hairpin start, check prior type */ -#line 5603 "" +#line 5669 "" if (comslur_1.fontslur && igetbits_(&comdyn_1.idyndat[idynn[ icntdyn - 2] - 1], &c__4, &c__12) >= 14 || ! comslur_1.fontslur && igetbits_(&comdyn_1.idyndat[ @@ -13426,30 +13511,30 @@ L9: /* Hairpin end then hairpin start, (remember dealing with start now) */ -#line 5612 "" +#line 5678 "" hoff += comdyn_1.hoh2h1[1]; -#line 5613 "" +#line 5679 "" } else { /* Hairpin start after word-group, need idno for w-g to set hp offset */ -#line 5617 "" +#line 5683 "" hoff += comdyn_1.hoh1[igetbits_(&comdyn_1.idyndat[idynn[ icntdyn - 2] - 1], &c__4, &c__12) - 1]; -#line 5619 "" +#line 5685 "" } -#line 5620 "" +#line 5686 "" } -#line 5621 "" +#line 5687 "" } /* End of if-block for 2- or 3-way interactions. */ -#line 5625 "" +#line 5691 "" if (! comslur_1.fontslur && idno >= 13) { -#line 5625 "" +#line 5691 "" hoff = (hoff + .5f) * 6.f / 2.5f; -#line 5625 "" +#line 5691 "" } /* Slur font and hairpin. Add hoff, and change from \interneote to \qn@width */ @@ -13457,217 +13542,217 @@ L9: /* Position corrections all done now. Put in the level. */ -#line 5633 "" +#line 5699 "" if (comslur_1.fontslur && idno == 13 || ! comslur_1.fontslur && (idno == 13 || idno == 14)) { /* Hairpin start. */ -#line 5638 "" +#line 5704 "" if (! comslur_1.fontslur) { /* Postscript hairpin start...inset placeholder for start level. */ /* Writing concatenation */ -#line 5642 "" +#line 5708 "" i__3[0] = lnote, a__1[0] = notexq; -#line 5642 "" +#line 5708 "" i__3[1] = 5, a__1[1] = "{ }"; -#line 5642 "" +#line 5708 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 5643 "" +#line 5709 "" lnote += 5; -#line 5644 "" +#line 5710 "" } -#line 5645 "" +#line 5711 "" } else { /* Insert actual level in all cases except hairpin start */ /* Create string with level in it */ -#line 5650 "" +#line 5716 "" if (lbot1 > 9) { -#line 5651 "" +#line 5717 "" s_copy(numpq, "{", (ftnlen)5, (ftnlen)1); -#line 5652 "" - s_wsfi(&io___401); -#line 5652 "" +#line 5718 "" + s_wsfi(&io___404); +#line 5718 "" do_fio(&c__1, (char *)&lbot1, (ftnlen)sizeof(integer)); -#line 5652 "" +#line 5718 "" e_wsfi(); /* Writing concatenation */ -#line 5653 "" +#line 5719 "" i__3[0] = 3, a__1[0] = numpq; -#line 5653 "" +#line 5719 "" i__3[1] = 1, a__1[1] = "}"; -#line 5653 "" +#line 5719 "" s_cat(numpq, a__1, i__3, &c__2, (ftnlen)5); -#line 5654 "" +#line 5720 "" lnumpq = 4; -#line 5655 "" +#line 5721 "" } else if (lbot1 > -1) { -#line 5656 "" +#line 5722 "" *(unsigned char *)&ch__1[0] = lbot1 + 48; -#line 5656 "" +#line 5722 "" s_copy(numpq, ch__1, (ftnlen)5, (ftnlen)1); -#line 5657 "" +#line 5723 "" lnumpq = 1; -#line 5658 "" +#line 5724 "" } else if (lbot1 > -10) { -#line 5659 "" +#line 5725 "" s_copy(numpq, "{", (ftnlen)5, (ftnlen)1); -#line 5660 "" - s_wsfi(&io___403); -#line 5660 "" +#line 5726 "" + s_wsfi(&io___406); +#line 5726 "" do_fio(&c__1, (char *)&lbot1, (ftnlen)sizeof(integer)); -#line 5660 "" +#line 5726 "" e_wsfi(); /* Writing concatenation */ -#line 5661 "" +#line 5727 "" i__3[0] = 3, a__1[0] = numpq; -#line 5661 "" +#line 5727 "" i__3[1] = 1, a__1[1] = "}"; -#line 5661 "" +#line 5727 "" s_cat(numpq, a__1, i__3, &c__2, (ftnlen)5); -#line 5662 "" +#line 5728 "" lnumpq = 4; -#line 5663 "" +#line 5729 "" } else { -#line 5664 "" +#line 5730 "" s_copy(numpq, "{", (ftnlen)5, (ftnlen)1); -#line 5665 "" - s_wsfi(&io___404); -#line 5665 "" +#line 5731 "" + s_wsfi(&io___407); +#line 5731 "" do_fio(&c__1, (char *)&lbot1, (ftnlen)sizeof(integer)); -#line 5665 "" +#line 5731 "" e_wsfi(); /* Writing concatenation */ -#line 5666 "" +#line 5732 "" i__3[0] = 4, a__1[0] = numpq; -#line 5666 "" +#line 5732 "" i__3[1] = 1, a__1[1] = "}"; -#line 5666 "" +#line 5732 "" s_cat(numpq, a__1, i__3, &c__2, (ftnlen)5); -#line 5667 "" +#line 5733 "" lnumpq = 5; -#line 5668 "" +#line 5734 "" } /* Level has now been computed and stored in numpq */ /* Append the level */ /* Writing concatenation */ -#line 5673 "" +#line 5739 "" i__3[0] = lnote, a__1[0] = notexq; -#line 5673 "" +#line 5739 "" i__3[1] = lnumpq, a__1[1] = numpq; -#line 5673 "" +#line 5739 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 5674 "" +#line 5740 "" lnote += lnumpq; -#line 5675 "" +#line 5741 "" } -#line 5676 "" +#line 5742 "" if (dabs(hoff) < .001f) { /* No horiz offset */ /* Writing concatenation */ -#line 5680 "" +#line 5746 "" i__3[0] = lnote, a__1[0] = notexq; -#line 5680 "" +#line 5746 "" i__3[1] = 1, a__1[1] = "0"; -#line 5680 "" +#line 5746 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 5681 "" +#line 5747 "" ++lnote; -#line 5682 "" +#line 5748 "" } else { /* Horizontal tweak */ -#line 5686 "" +#line 5752 "" lform = lfmt1_(&hoff); /* Writing concatenation */ -#line 5687 "" +#line 5753 "" i__3[0] = lnote, a__1[0] = notexq; -#line 5687 "" +#line 5753 "" i__3[1] = 1, a__1[1] = "{"; -#line 5687 "" +#line 5753 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 5688 "" +#line 5754 "" ++lnote; -#line 5689 "" +#line 5755 "" i__2 = lnote; -#line 5689 "" +#line 5755 "" ici__1.icierr = 0; -#line 5689 "" +#line 5755 "" ici__1.icirnum = 1; -#line 5689 "" +#line 5755 "" ici__1.icirlen = lnote + lform - i__2; -#line 5689 "" +#line 5755 "" ici__1.iciunit = notexq + i__2; /* Writing concatenation */ -#line 5689 "" +#line 5755 "" i__6[0] = 2, a__3[0] = "(f"; -#line 5689 "" +#line 5755 "" i__5 = lform + 48; -#line 5689 "" +#line 5755 "" chax_(ch__1, (ftnlen)1, &i__5); -#line 5689 "" +#line 5755 "" i__6[1] = 1, a__3[1] = ch__1; -#line 5689 "" +#line 5755 "" i__6[2] = 3, a__3[2] = ".1)"; -#line 5689 "" +#line 5755 "" ici__1.icifmt = (s_cat(ch__2, a__3, i__6, &c__3, (ftnlen)6), ch__2); -#line 5689 "" +#line 5755 "" s_wsfi(&ici__1); -#line 5689 "" +#line 5755 "" do_fio(&c__1, (char *)&hoff, (ftnlen)sizeof(real)); -#line 5689 "" +#line 5755 "" e_wsfi(); -#line 5691 "" +#line 5757 "" lnote += lform; /* Writing concatenation */ -#line 5692 "" +#line 5758 "" i__3[0] = lnote, a__1[0] = notexq; -#line 5692 "" +#line 5758 "" i__3[1] = 1, a__1[1] = "}"; -#line 5692 "" +#line 5758 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 5693 "" +#line 5759 "" ++lnote; -#line 5694 "" +#line 5760 "" } -#line 5695 "" +#line 5761 "" if (idno == 0) { /* text-dynamic. Find the string and append it */ -#line 5699 "" +#line 5765 "" i__2 = comdyn_1.ntxtdyn; -#line 5699 "" +#line 5765 "" for (jtxtdyn = jtxtdyn1; jtxtdyn <= i__2; ++jtxtdyn) { /* ivxip = ivx+16*ip */ -#line 5701 "" +#line 5767 "" ivxip = *ivx + (*ip << 5); -#line 5702 "" +#line 5768 "" if (ivxip == comdyn_1.ivxiptxt[jtxtdyn - 1]) { -#line 5702 "" +#line 5768 "" goto L5; -#line 5702 "" +#line 5768 "" } -#line 5703 "" +#line 5769 "" /* L4: */ -#line 5703 "" +#line 5769 "" } -#line 5704 "" +#line 5770 "" printl_("Abnormal stop in putdyn", (ftnlen)23); -#line 5705 "" +#line 5771 "" stop1_(); -#line 5706 "" +#line 5772 "" L5: -#line 5707 "" +#line 5773 "" ltxtdyn = lenstr_(comdyn_1.txtdynq + (jtxtdyn - 1 << 7), &c__128, (ftnlen)128); @@ -13693,264 +13778,264 @@ L5: /* Do this to insert 1st 2 args of \txtdyn, allow 3rd to be longer (on next line) */ -#line 5731 "" +#line 5797 "" addstr_(notexq, &lnote, soutq, lsout, lnote, (ftnlen)80); -#line 5732 "" +#line 5798 "" if (commus_1.musize == 20) { -#line 5733 "" +#line 5799 "" s_copy(notexq, "{\\medtype\\it ", (ftnlen)79, (ftnlen)13); -#line 5734 "" +#line 5800 "" lnote = 13; -#line 5735 "" +#line 5801 "" } else if (commus_1.musize == 16) { -#line 5736 "" +#line 5802 "" s_copy(notexq, "{\\normtype\\it ", (ftnlen)79, (ftnlen)14); -#line 5737 "" +#line 5803 "" lnote = 14; -#line 5738 "" +#line 5804 "" } else if (commus_1.musize == 24) { -#line 5739 "" +#line 5805 "" s_copy(notexq, "{\\bigtype\\it ", (ftnlen)79, (ftnlen)13); -#line 5740 "" +#line 5806 "" lnote = 13; -#line 5741 "" +#line 5807 "" } else if (commus_1.musize == 29) { -#line 5742 "" +#line 5808 "" s_copy(notexq, "{\\Bigtype\\it ", (ftnlen)79, (ftnlen)13); -#line 5743 "" +#line 5809 "" lnote = 13; -#line 5744 "" +#line 5810 "" } /* Writing concatenation */ -#line 5746 "" +#line 5812 "" i__6[0] = lnote, a__3[0] = notexq; -#line 5746 "" +#line 5812 "" i__6[1] = ltxtdyn, a__3[1] = comdyn_1.txtdynq + (jtxtdyn - 1 << 7) ; -#line 5746 "" +#line 5812 "" i__6[2] = 1, a__3[2] = "}"; -#line 5746 "" +#line 5812 "" s_cat(notexq, a__3, i__6, &c__3, (ftnlen)79); -#line 5747 "" +#line 5813 "" lnote = lnote + ltxtdyn + 1; /* Reset jtxtdyn1 just in case >1 txtdyn on same note. */ -#line 5751 "" +#line 5817 "" jtxtdyn1 = jtxtdyn + 1; -#line 5752 "" +#line 5818 "" } else if (idno <= 12) { /* Letter-group dynamic. Append the letter-group command */ -#line 5756 "" +#line 5822 "" id = idno << 2; -#line 5757 "" +#line 5823 "" i__2 = id - 4; -#line 5757 "" +#line 5823 "" s_copy(dynstrq, dyntablq + i__2, (ftnlen)4, id - i__2); -#line 5758 "" +#line 5824 "" id = lenstr_(dynstrq, &c__4, (ftnlen)4); /* Writing concatenation */ -#line 5759 "" +#line 5825 "" i__6[0] = lnote, a__3[0] = notexq; -#line 5759 "" +#line 5825 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 5759 "" +#line 5825 "" i__6[1] = 1, a__3[1] = ch__1; -#line 5759 "" +#line 5825 "" i__6[2] = id, a__3[2] = dynstrq; -#line 5759 "" +#line 5825 "" s_cat(notexq, a__3, i__6, &c__3, (ftnlen)79); -#line 5760 "" +#line 5826 "" lnote = lnote + 1 + id; -#line 5761 "" +#line 5827 "" } -#line 5762 "" +#line 5828 "" addstr_(notexq, &lnote, soutq, lsout, lnote, (ftnlen)80); -#line 5763 "" +#line 5829 "" if (! comslur_1.fontslur && idno == 15) { /* PS slurs on, hairpin is ending. Go back and set height at beginning. */ /* Add user-defined tweak to default level */ -#line 5768 "" +#line 5834 "" lbot1 = lpretweak + comdyn_1.levhssav[*ivx - 1]; -#line 5769 "" +#line 5835 "" if (lbot1 > 9) { -#line 5770 "" +#line 5836 "" s_copy(numpq, "{", (ftnlen)5, (ftnlen)1); -#line 5771 "" - s_wsfi(&io___411); -#line 5771 "" +#line 5837 "" + s_wsfi(&io___414); +#line 5837 "" do_fio(&c__1, (char *)&lbot1, (ftnlen)sizeof(integer)); -#line 5771 "" +#line 5837 "" e_wsfi(); /* Writing concatenation */ -#line 5772 "" +#line 5838 "" i__3[0] = 3, a__1[0] = numpq; -#line 5772 "" +#line 5838 "" i__3[1] = 1, a__1[1] = "}"; -#line 5772 "" +#line 5838 "" s_cat(numpq, a__1, i__3, &c__2, (ftnlen)5); -#line 5773 "" +#line 5839 "" lnumpq = 4; -#line 5774 "" +#line 5840 "" } else if (lbot1 > -1) { -#line 5775 "" +#line 5841 "" *(unsigned char *)&ch__1[0] = lbot1 + 48; -#line 5775 "" +#line 5841 "" s_copy(numpq, ch__1, (ftnlen)5, (ftnlen)1); -#line 5776 "" +#line 5842 "" lnumpq = 1; -#line 5777 "" +#line 5843 "" } else if (lbot1 > -10) { -#line 5778 "" +#line 5844 "" s_copy(numpq, "{", (ftnlen)5, (ftnlen)1); -#line 5779 "" - s_wsfi(&io___412); -#line 5779 "" +#line 5845 "" + s_wsfi(&io___415); +#line 5845 "" do_fio(&c__1, (char *)&lbot1, (ftnlen)sizeof(integer)); -#line 5779 "" +#line 5845 "" e_wsfi(); /* Writing concatenation */ -#line 5780 "" +#line 5846 "" i__3[0] = 3, a__1[0] = numpq; -#line 5780 "" +#line 5846 "" i__3[1] = 1, a__1[1] = "}"; -#line 5780 "" +#line 5846 "" s_cat(numpq, a__1, i__3, &c__2, (ftnlen)5); -#line 5781 "" +#line 5847 "" lnumpq = 4; -#line 5782 "" +#line 5848 "" } else { -#line 5783 "" +#line 5849 "" s_copy(numpq, "{", (ftnlen)5, (ftnlen)1); -#line 5784 "" - s_wsfi(&io___413); -#line 5784 "" +#line 5850 "" + s_wsfi(&io___416); +#line 5850 "" do_fio(&c__1, (char *)&lbot1, (ftnlen)sizeof(integer)); -#line 5784 "" +#line 5850 "" e_wsfi(); /* Writing concatenation */ -#line 5785 "" +#line 5851 "" i__3[0] = 4, a__1[0] = numpq; -#line 5785 "" +#line 5851 "" i__3[1] = 1, a__1[1] = "}"; -#line 5785 "" +#line 5851 "" s_cat(numpq, a__1, i__3, &c__2, (ftnlen)5); -#line 5786 "" +#line 5852 "" lnumpq = 5; -#line 5787 "" +#line 5853 "" } /* Construct string to search backwards for placeholder */ -#line 5791 "" +#line 5857 "" if (idh <= 9) { /* Writing concatenation */ -#line 5792 "" +#line 5858 "" i__6[0] = 5, a__3[0] = "cresc"; -#line 5792 "" +#line 5858 "" *(unsigned char *)&ch__1[0] = idh + 48; -#line 5792 "" +#line 5858 "" i__6[1] = 1, a__3[1] = ch__1; -#line 5792 "" +#line 5858 "" i__6[2] = 5, a__3[2] = "{ }"; -#line 5792 "" +#line 5858 "" s_cat(tempq, a__3, i__6, &c__3, (ftnlen)48); -#line 5793 "" +#line 5859 "" ltemp = 11; -#line 5794 "" +#line 5860 "" } else if (idh <= 19) { /* Writing concatenation */ -#line 5795 "" +#line 5861 "" i__6[0] = 7, a__3[0] = "cresc{1"; -#line 5795 "" +#line 5861 "" *(unsigned char *)&ch__1[0] = idh + 38; -#line 5795 "" +#line 5861 "" i__6[1] = 1, a__3[1] = ch__1; -#line 5795 "" +#line 5861 "" i__6[2] = 6, a__3[2] = "}{ }"; -#line 5795 "" +#line 5861 "" s_cat(tempq, a__3, i__6, &c__3, (ftnlen)48); -#line 5796 "" +#line 5862 "" ltemp = 14; -#line 5797 "" +#line 5863 "" } else { /* Writing concatenation */ -#line 5798 "" +#line 5864 "" i__6[0] = 7, a__3[0] = "cresc{2"; -#line 5798 "" +#line 5864 "" *(unsigned char *)&ch__1[0] = idh + 28; -#line 5798 "" +#line 5864 "" i__6[1] = 1, a__3[1] = ch__1; -#line 5798 "" +#line 5864 "" i__6[2] = 6, a__3[2] = "}{ }"; -#line 5798 "" +#line 5864 "" s_cat(tempq, a__3, i__6, &c__3, (ftnlen)48); -#line 5799 "" +#line 5865 "" ltemp = 14; -#line 5800 "" +#line 5866 "" } -#line 5801 "" - s_wsfe(&io___416); +#line 5867 "" + s_wsfe(&io___419); /* Writing concatenation */ -#line 5801 "" +#line 5867 "" i__3[0] = *lsout, a__1[0] = soutq; -#line 5801 "" +#line 5867 "" i__3[1] = 1, a__1[1] = "%"; -#line 5801 "" +#line 5867 "" s_cat(ch__3, a__1, i__3, &c__2, (ftnlen)81); -#line 5801 "" +#line 5867 "" do_fio(&c__1, ch__3, *lsout + 1); -#line 5801 "" +#line 5867 "" e_wsfe(); -#line 5802 "" +#line 5868 "" *lsout = 0; /* Writing concatenation */ -#line 5803 "" +#line 5869 "" i__3[0] = ltemp - 5, a__1[0] = tempq; -#line 5803 "" +#line 5869 "" i__3[1] = lnumpq, a__1[1] = numpq; -#line 5803 "" +#line 5869 "" s_cat(ch__4, a__1, i__3, &c__2, (ftnlen)53); -#line 5803 "" +#line 5869 "" i__2 = ltemp - 5 + lnumpq; -#line 5803 "" +#line 5869 "" backfill_(&c__11, tempq, <emp, ch__4, &i__2, (ftnlen)48, ltemp - 5 + lnumpq); -#line 5805 "" +#line 5871 "" } -#line 5806 "" +#line 5872 "" /* L3: */ -#line 5806 "" +#line 5872 "" } /* Shrink arrays, decrease ndyn 111109 */ -#line 5810 "" +#line 5876 "" for (icntdyn = numdyn; icntdyn >= 1; --icntdyn) { -#line 5811 "" +#line 5877 "" i__1 = comdyn_1.ndyn - 1; -#line 5811 "" +#line 5877 "" for (jdyn = idynn[icntdyn - 1]; jdyn <= i__1; ++jdyn) { -#line 5812 "" +#line 5878 "" comdyn_1.idyndat[jdyn - 1] = comdyn_1.idyndat[jdyn]; -#line 5813 "" +#line 5879 "" comdyn_1.idynda2[jdyn - 1] = comdyn_1.idynda2[jdyn]; -#line 5814 "" +#line 5880 "" /* L7: */ -#line 5814 "" +#line 5880 "" } -#line 5815 "" +#line 5881 "" --comdyn_1.ndyn; -#line 5816 "" +#line 5882 "" /* L6: */ -#line 5816 "" +#line 5882 "" } -#line 5817 "" +#line 5883 "" return 0; } /* dodyn_ */ @@ -14017,15 +14102,15 @@ L5: static real wheadpt1; /* Fortran I/O blocks */ - static cilist io___422 = { 0, 6, 0, 0, 0 }; - static cilist io___426 = { 0, 6, 0, 0, 0 }; - static cilist io___427 = { 0, 6, 0, 0, 0 }; - static cilist io___428 = { 0, 15, 0, "(/,a)", 0 }; - static icilist io___431 = { 0, notexq, 0, "(i2)", 2, 1 }; - static cilist io___432 = { 0, 6, 0, 0, 0 }; - static icilist io___456 = { 0, notexq+13, 0, "(a1,f4.1)", 5, 1 }; - static icilist io___458 = { 0, notexq+13, 0, "(f4.1)", 4, 1 }; - static icilist io___460 = { 0, notexq+5, 0, "(f3.1)", 3, 1 }; + static cilist io___425 = { 0, 6, 0, 0, 0 }; + static cilist io___429 = { 0, 6, 0, 0, 0 }; + static cilist io___430 = { 0, 6, 0, 0, 0 }; + static cilist io___431 = { 0, 15, 0, "(/,a)", 0 }; + static icilist io___434 = { 0, notexq, 0, "(i2)", 2, 1 }; + static cilist io___435 = { 0, 6, 0, 0, 0 }; + static icilist io___459 = { 0, notexq+13, 0, "(a1,f4.1)", 5, 1 }; + static icilist io___461 = { 0, notexq+13, 0, "(f4.1)", 4, 1 }; + static icilist io___463 = { 0, notexq+5, 0, "(f3.1)", 3, 1 }; @@ -14033,1426 +14118,1426 @@ L5: /* It is only used to find ig. */ /* ig is returned to makeabar in case there's a slur that needs to be ended */ -#line 5856 "" +#line 5922 "" /* Parameter adjustments */ -#line 5856 "" +#line 5922 "" ulq -= 25; -#line 5856 "" +#line 5922 "" --ptgr; -#line 5856 "" +#line 5922 "" -#line 5856 "" +#line 5922 "" /* Function Body */ -#line 5856 "" +#line 5922 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 5856 "" +#line 5922 "" *(unsigned char *)sq = *(unsigned char *)&ch__1[0]; -#line 5857 "" +#line 5923 "" isgaft = bit_test(*ipl,29); -#line 5858 "" +#line 5924 "" iswaft = bit_test(*ipl,31); -#line 5859 "" +#line 5925 "" normsp = ! isgaft; /* Find ig. */ -#line 5863 "" +#line 5929 "" i__1 = comgrace_1.ngrace; -#line 5863 "" +#line 5929 "" for (*ig = 1; *ig <= i__1; ++(*ig)) { -#line 5864 "" +#line 5930 "" if (comgrace_1.ipg[*ig - 1] == *ip && comgrace_1.ivg[*ig - 1] == *ivx) { -#line 5864 "" +#line 5930 "" goto L121; -#line 5864 "" +#line 5930 "" } -#line 5865 "" +#line 5931 "" /* L120: */ -#line 5865 "" +#line 5931 "" } -#line 5866 "" - s_wsle(&io___422); -#line 5866 "" +#line 5932 "" + s_wsle(&io___425); +#line 5932 "" do_lio(&c__9, &c__1, "Problem finding grace index in dograce", (ftnlen)38) ; -#line 5866 "" +#line 5932 "" e_wsle(); -#line 5867 "" +#line 5933 "" s_stop("", (ftnlen)0); -#line 5868 "" +#line 5934 "" L121: -#line 5869 "" +#line 5935 "" ngs = comgrace_1.ngstrt[*ig - 1]; -#line 5870 "" +#line 5936 "" mg = comgrace_1.multg[*ig - 1]; /* wheadpt1 = wheadpt*fullsize(ivx) */ -#line 5872 "" +#line 5938 "" wheadpt1 = comask_1.wheadpt * comfig_1.fullsize[*instno - 1]; /* For way-after-graces at end of bar, must set the octave. */ -#line 5876 "" +#line 5942 "" if (*farend) { -#line 5877 "" +#line 5943 "" comoct_1.noctup = 0; -#line 5878 "" +#line 5944 "" if (*ncm == 23) { -#line 5878 "" +#line 5944 "" comoct_1.noctup = -2; -#line 5878 "" +#line 5944 "" } -#line 5879 "" +#line 5945 "" } -#line 5880 "" +#line 5946 "" if (comgrace_1.slurg[*ig - 1] && ! iswaft && ! isgaft) { -#line 5881 "" +#line 5947 "" if (comslur_1.listslur == 16777215) { -#line 5882 "" - s_wsle(&io___426); -#line 5882 "" +#line 5948 "" + s_wsle(&io___429); +#line 5948 "" e_wsle(); -#line 5883 "" - s_wsle(&io___427); -#line 5883 "" +#line 5949 "" + s_wsle(&io___430); +#line 5949 "" do_lio(&c__9, &c__1, "You defined the twentyfifth slur, one too "\ "many!", (ftnlen)47); -#line 5883 "" +#line 5949 "" e_wsle(); -#line 5884 "" - s_wsfe(&io___428); -#line 5884 "" +#line 5950 "" + s_wsfe(&io___431); +#line 5950 "" do_fio(&c__1, "You defined the twentyfifth slur, one too many!", ( ftnlen)47); -#line 5884 "" +#line 5950 "" e_wsfe(); -#line 5886 "" +#line 5952 "" stop1_(); -#line 5887 "" +#line 5953 "" } /* Slur on fore-grace. Get index of next slur not in use, from 23 down. */ -#line 5891 "" +#line 5957 "" i__1 = 16777215 - comslur_1.listslur; -#line 5891 "" +#line 5957 "" comslur_1.ndxslur = log2_(&i__1); -#line 5893 "" +#line 5959 "" } -#line 5894 "" +#line 5960 "" if (comgrace_1.nng[*ig - 1] == 1) { /* Single grace. */ -#line 5898 "" +#line 5964 "" if (normsp) { /* Anything but GA */ /* Writing concatenation */ -#line 5902 "" +#line 5968 "" i__2[0] = 1, a__1[0] = sq; -#line 5902 "" +#line 5968 "" i__2[1] = 5, a__1[1] = "shlft"; -#line 5902 "" +#line 5968 "" s_cat(ch__2, a__1, i__2, &c__2, (ftnlen)6); -#line 5902 "" +#line 5968 "" addstr_(ch__2, &c__6, soutq, lsout, (ftnlen)6, (ftnlen)80); -#line 5903 "" +#line 5969 "" niptgr = i_nint(&ptgr[*ig]); /* Empirical tweak for postscript. */ /* if (.not.fontslur) niptgr = niptgr+nint(wheadpt*.3) */ /* ++ */ -#line 5909 "" +#line 5975 "" if (niptgr < 10) { /* Writing concatenation */ -#line 5910 "" +#line 5976 "" i__1 = niptgr + 48; -#line 5910 "" +#line 5976 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 5910 "" +#line 5976 "" i__2[0] = 1, a__1[0] = ch__1; -#line 5910 "" +#line 5976 "" i__2[1] = 1, a__1[1] = "{"; -#line 5910 "" +#line 5976 "" s_cat(ch__3, a__1, i__2, &c__2, (ftnlen)2); -#line 5910 "" +#line 5976 "" addstr_(ch__3, &c__2, soutq, lsout, (ftnlen)2, (ftnlen)80); -#line 5911 "" +#line 5977 "" } else if (niptgr < 100) { -#line 5912 "" - s_wsfi(&io___431); -#line 5912 "" +#line 5978 "" + s_wsfi(&io___434); +#line 5978 "" do_fio(&c__1, (char *)&niptgr, (ftnlen)sizeof(integer)); -#line 5912 "" +#line 5978 "" e_wsfi(); /* Writing concatenation */ -#line 5913 "" +#line 5979 "" i__3[0] = 1, a__2[0] = "{"; -#line 5913 "" +#line 5979 "" i__3[1] = 2, a__2[1] = notexq; -#line 5913 "" +#line 5979 "" i__3[2] = 2, a__2[2] = "}{"; -#line 5913 "" +#line 5979 "" s_cat(ch__4, a__2, i__3, &c__3, (ftnlen)5); -#line 5913 "" +#line 5979 "" addstr_(ch__4, &c__5, soutq, lsout, (ftnlen)5, (ftnlen)80); -#line 5914 "" +#line 5980 "" } else { -#line 5915 "" - s_wsle(&io___432); -#line 5915 "" +#line 5981 "" + s_wsle(&io___435); +#line 5981 "" do_lio(&c__9, &c__1, "Call Dr. Don if you really want grace "\ "note group > 99 pt", (ftnlen)56); -#line 5915 "" +#line 5981 "" e_wsle(); -#line 5917 "" +#line 5983 "" s_stop("", (ftnlen)0); -#line 5918 "" +#line 5984 "" } -#line 5919 "" +#line 5985 "" } else { /* Writing concatenation */ -#line 5920 "" +#line 5986 "" i__2[0] = 1, a__1[0] = sq; -#line 5920 "" +#line 5986 "" i__2[1] = 10, a__1[1] = "gaft{1.5}{"; -#line 5920 "" +#line 5986 "" s_cat(ch__5, a__1, i__2, &c__2, (ftnlen)11); -#line 5920 "" +#line 5986 "" addstr_(ch__5, &c__11, soutq, lsout, (ftnlen)11, (ftnlen)80); /* GA. Compute aftshft, for later use. */ -#line 5924 "" +#line 5990 "" comgrace_1.aftshft = spfacs_1.grafac; -#line 5925 "" +#line 5991 "" if (comgrace_1.naccg[comgrace_1.ngstrt[*ig - 1] - 1] > 0) { -#line 5925 "" +#line 5991 "" comgrace_1.aftshft += spfacs_1.agc1fac; -#line 5925 "" +#line 5991 "" } -#line 5926 "" +#line 5992 "" comgrace_1.aftshft *= comask_1.wheadpt; -#line 5927 "" +#line 5993 "" } -#line 5928 "" +#line 5994 "" if (comgrace_1.slurg[*ig - 1] && ! isgaft && ! iswaft) { /* Start slur on pre-grace. No accounting needed since will be ended very soon. */ -#line 5932 "" +#line 5998 "" notefq_(noteq, &lnoten, &comgrace_1.nolevg[ngs - 1], ncm, (ftnlen) 8); -#line 5933 "" +#line 5999 "" if (comslur_1.fontslur) { -#line 5934 "" +#line 6000 "" if (comgrace_1.upg[*ig - 1]) { /* Writing concatenation */ -#line 5935 "" +#line 6001 "" i__2[0] = 1, a__1[0] = sq; -#line 5935 "" +#line 6001 "" i__2[1] = 6, a__1[1] = "islurd"; -#line 5935 "" +#line 6001 "" s_cat(ch__6, a__1, i__2, &c__2, (ftnlen)7); -#line 5935 "" +#line 6001 "" addstr_(ch__6, &c__7, soutq, lsout, (ftnlen)7, (ftnlen)80) ; -#line 5936 "" +#line 6002 "" } else { /* Writing concatenation */ -#line 5937 "" +#line 6003 "" i__2[0] = 1, a__1[0] = sq; -#line 5937 "" +#line 6003 "" i__2[1] = 6, a__1[1] = "isluru"; -#line 5937 "" +#line 6003 "" s_cat(ch__6, a__1, i__2, &c__2, (ftnlen)7); -#line 5937 "" +#line 6003 "" addstr_(ch__6, &c__7, soutq, lsout, (ftnlen)7, (ftnlen)80) ; -#line 5938 "" +#line 6004 "" } -#line 5939 "" +#line 6005 "" } else { /* Start Postscript slur. */ -#line 5943 "" +#line 6009 "" if (comgrace_1.upg[*ig - 1]) { /* Writing concatenation */ -#line 5944 "" +#line 6010 "" i__2[0] = 1, a__1[0] = sq; -#line 5944 "" +#line 6010 "" i__2[1] = 3, a__1[1] = "isd"; -#line 5944 "" +#line 6010 "" s_cat(ch__7, a__1, i__2, &c__2, (ftnlen)4); -#line 5944 "" +#line 6010 "" addstr_(ch__7, &c__4, soutq, lsout, (ftnlen)4, (ftnlen)80) ; -#line 5945 "" +#line 6011 "" } else { /* Writing concatenation */ -#line 5946 "" +#line 6012 "" i__2[0] = 1, a__1[0] = sq; -#line 5946 "" +#line 6012 "" i__2[1] = 3, a__1[1] = "isu"; -#line 5946 "" +#line 6012 "" s_cat(ch__7, a__1, i__2, &c__2, (ftnlen)4); -#line 5946 "" +#line 6012 "" addstr_(ch__7, &c__4, soutq, lsout, (ftnlen)4, (ftnlen)80) ; -#line 5947 "" +#line 6013 "" } -#line 5948 "" +#line 6014 "" } /* Print slur number, 23-ndxslur */ -#line 5952 "" +#line 6018 "" lnote = 0; -#line 5953 "" +#line 6019 "" if (23 - comslur_1.ndxslur < 10) { /* notexq = notexq(1:lnote)//chax(59-ndxslur) */ -#line 5955 "" +#line 6021 "" i__1 = 71 - comslur_1.ndxslur; -#line 5955 "" +#line 6021 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 5955 "" +#line 6021 "" s_copy(notexq, ch__1, (ftnlen)79, (ftnlen)1); -#line 5956 "" +#line 6022 "" lnote = 1; -#line 5957 "" +#line 6023 "" } else if (23 - comslur_1.ndxslur < 20) { /* notexq = notexq(1:lnote)//'{1'//chax(49-ndxslur)//'}' */ /* Writing concatenation */ -#line 5959 "" +#line 6025 "" i__3[0] = 2, a__2[0] = "{1"; -#line 5959 "" +#line 6025 "" i__1 = 61 - comslur_1.ndxslur; -#line 5959 "" +#line 6025 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 5959 "" +#line 6025 "" i__3[1] = 1, a__2[1] = ch__1; -#line 5959 "" +#line 6025 "" i__3[2] = 1, a__2[2] = "}"; -#line 5959 "" +#line 6025 "" s_cat(notexq, a__2, i__3, &c__3, (ftnlen)79); -#line 5960 "" +#line 6026 "" lnote = 4; -#line 5961 "" +#line 6027 "" } else { /* Writing concatenation */ -#line 5962 "" +#line 6028 "" i__4[0] = lnote, a__3[0] = notexq; -#line 5962 "" +#line 6028 "" i__4[1] = 2, a__3[1] = "{2"; -#line 5962 "" +#line 6028 "" i__1 = 51 - comslur_1.ndxslur; -#line 5962 "" +#line 6028 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 5962 "" +#line 6028 "" i__4[2] = 1, a__3[2] = ch__1; -#line 5962 "" +#line 6028 "" i__4[3] = 1, a__3[3] = "}"; -#line 5962 "" +#line 6028 "" s_cat(notexq, a__3, i__4, &c__4, (ftnlen)79); -#line 5963 "" +#line 6029 "" lnote = 4; -#line 5964 "" +#line 6030 "" } /* Writing concatenation */ -#line 5965 "" +#line 6031 "" i__2[0] = lnote, a__1[0] = notexq; -#line 5965 "" +#line 6031 "" i__2[1] = lnoten, a__1[1] = noteq; -#line 5965 "" +#line 6031 "" s_cat(ch__8, a__1, i__2, &c__2, (ftnlen)87); -#line 5965 "" +#line 6031 "" i__1 = lnote + lnoten; -#line 5965 "" +#line 6031 "" addstr_(ch__8, &i__1, soutq, lsout, lnote + lnoten, (ftnlen)80); -#line 5967 "" +#line 6033 "" if (! comslur_1.fontslur) { /* Horizontal tweaks for postscript slur on single grace */ -#line 5971 "" +#line 6037 "" stemup = TRUE_; -#line 5972 "" +#line 6038 "" if (comgrace_1.upg[*ig - 1]) { /* Check for up-grace + down stem. Get stem direction */ -#line 5976 "" +#line 6042 "" if (! (*beamon)) { /* Separate note. Get stem direction. */ -#line 5980 "" +#line 6046 "" udqq_(ch__1, (ftnlen)1, nolev, ncmidx, islur, nvmx, ivx, nv); -#line 5980 "" +#line 6046 "" stemup = *(unsigned char *)&ch__1[0] == 'u'; -#line 5982 "" +#line 6048 "" } else { /* In a beam */ -#line 5986 "" +#line 6052 "" stemup = *(unsigned char *)&ulq[*ivx + *ibmcnt * 24] == 'u'; -#line 5987 "" +#line 6053 "" } /* Stop the shift if whole note */ -#line 5991 "" +#line 6057 "" stemup = stemup || *tnote > 63.f; -#line 5992 "" +#line 6058 "" } -#line 5993 "" +#line 6059 "" if (stemup) { -#line 5994 "" +#line 6060 "" addstr_("{-.3}", &c__5, soutq, lsout, (ftnlen)5, (ftnlen) 80); -#line 5995 "" +#line 6061 "" } else { -#line 5996 "" +#line 6062 "" addstr_("{-.8}", &c__5, soutq, lsout, (ftnlen)5, (ftnlen) 80); -#line 5997 "" +#line 6063 "" } -#line 5998 "" +#line 6064 "" } -#line 5999 "" +#line 6065 "" } -#line 6000 "" +#line 6066 "" if (comgrace_1.naccg[ngs - 1] > 0) { -#line 6001 "" +#line 6067 "" notefq_(noteq, &lnoten, &comgrace_1.nolevg[ngs - 1], ncm, (ftnlen) 8); /* Save for checking octave shifts in GA */ -#line 6005 "" +#line 6071 "" if (isgaft) { -#line 6006 "" +#line 6072 "" lnotenga = lnoten; -#line 6007 "" +#line 6073 "" s_copy(noteqga, noteq, (ftnlen)8, (ftnlen)8); -#line 6008 "" +#line 6074 "" } -#line 6010 "" +#line 6076 "" if (lnoten == 1) { -#line 6010 "" +#line 6076 "" addblank_(noteq, &lnoten, (ftnlen)8); -#line 6010 "" +#line 6076 "" } -#line 6011 "" +#line 6077 "" accsym_(&comgrace_1.naccg[ngs - 1], acsymq, &lacc, (ftnlen)3); /* Writing concatenation */ -#line 6012 "" +#line 6078 "" i__4[0] = 1, a__3[0] = sq; -#line 6012 "" +#line 6078 "" i__4[1] = 3, a__3[1] = "big"; -#line 6012 "" +#line 6078 "" i__4[2] = lacc, a__3[2] = acsymq; -#line 6012 "" +#line 6078 "" i__4[3] = lnoten, a__3[3] = noteq; -#line 6012 "" +#line 6078 "" s_cat(ch__9, a__3, i__4, &c__4, (ftnlen)15); -#line 6012 "" +#line 6078 "" i__1 = lacc + 4 + lnoten; -#line 6012 "" +#line 6078 "" addstr_(ch__9, &i__1, soutq, lsout, lacc + 4 + lnoten, (ftnlen)80) ; -#line 6014 "" +#line 6080 "" } -#line 6015 "" +#line 6081 "" if (comgrace_1.slashg[*ig - 1]) { /* Writing concatenation */ -#line 6016 "" +#line 6082 "" i__2[0] = 1, a__1[0] = sq; -#line 6016 "" +#line 6082 "" i__2[1] = 3, a__1[1] = "grc"; -#line 6016 "" +#line 6082 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 6017 "" +#line 6083 "" lnote = 4; -#line 6018 "" +#line 6084 "" } else if (mg == 0) { /* Writing concatenation */ -#line 6019 "" +#line 6085 "" i__2[0] = 1, a__1[0] = sq; -#line 6019 "" +#line 6085 "" i__2[1] = 2, a__1[1] = "zq"; -#line 6019 "" +#line 6085 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 6020 "" +#line 6086 "" lnote = 3; -#line 6021 "" +#line 6087 "" } else { /* Writing concatenation */ -#line 6022 "" +#line 6088 "" i__2[0] = 1, a__1[0] = sq; -#line 6022 "" +#line 6088 "" i__2[1] = 2, a__1[1] = "zc"; -#line 6022 "" +#line 6088 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 6023 "" +#line 6089 "" i__1 = mg; -#line 6023 "" +#line 6089 "" for (i__ = 2; i__ <= i__1; ++i__) { /* Writing concatenation */ -#line 6024 "" +#line 6090 "" i__2[0] = i__ + 1, a__1[0] = notexq; -#line 6024 "" +#line 6090 "" i__2[1] = 1, a__1[1] = "c"; -#line 6024 "" +#line 6090 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 6025 "" +#line 6091 "" /* L61: */ -#line 6025 "" +#line 6091 "" } -#line 6026 "" +#line 6092 "" lnote = mg + 2; -#line 6027 "" +#line 6093 "" } -#line 6028 "" +#line 6094 "" if (comgrace_1.upg[*ig - 1]) { /* Writing concatenation */ -#line 6029 "" +#line 6095 "" i__2[0] = lnote, a__1[0] = notexq; -#line 6029 "" +#line 6095 "" i__2[1] = 1, a__1[1] = "u"; -#line 6029 "" +#line 6095 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 6030 "" +#line 6096 "" } else { /* Writing concatenation */ -#line 6031 "" +#line 6097 "" i__2[0] = lnote, a__1[0] = notexq; -#line 6031 "" +#line 6097 "" i__2[1] = 1, a__1[1] = "l"; -#line 6031 "" +#line 6097 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 6032 "" +#line 6098 "" } -#line 6033 "" +#line 6099 "" i__1 = lnote + 1; -#line 6033 "" +#line 6099 "" addstr_(notexq, &i__1, soutq, lsout, (ftnlen)79, (ftnlen)80); -#line 6034 "" +#line 6100 "" notefq_(noteq, &lnoten, &comgrace_1.nolevg[ngs - 1], ncm, (ftnlen)8); -#line 6036 "" +#line 6102 "" if (isgaft && comgrace_1.naccg[ngs - 1] == 0) { -#line 6037 "" +#line 6103 "" lnotenga = lnoten; -#line 6038 "" +#line 6104 "" s_copy(noteqga, noteq, (ftnlen)8, (ftnlen)8); -#line 6039 "" +#line 6105 "" } -#line 6041 "" +#line 6107 "" if (lnoten == 1) { -#line 6041 "" +#line 6107 "" addblank_(noteq, &lnoten, (ftnlen)8); -#line 6041 "" +#line 6107 "" } -#line 6042 "" +#line 6108 "" addstr_(noteq, &lnoten, soutq, lsout, (ftnlen)8, (ftnlen)80); -#line 6043 "" +#line 6109 "" if (comgrace_1.slashg[*ig - 1]) { /* Writing concatenation */ -#line 6043 "" +#line 6109 "" i__4[0] = 1, a__3[0] = sq; -#line 6043 "" +#line 6109 "" i__4[1] = 5, a__3[1] = "off{-"; -#line 6043 "" +#line 6109 "" i__4[2] = 1, a__3[2] = sq; -#line 6043 "" +#line 6109 "" i__4[3] = 9, a__3[3] = "noteskip}"; -#line 6043 "" +#line 6109 "" s_cat(ch__10, a__3, i__4, &c__4, (ftnlen)16); -#line 6043 "" +#line 6109 "" addstr_(ch__10, &c__16, soutq, lsout, (ftnlen)16, (ftnlen)80); -#line 6043 "" +#line 6109 "" } /* Above code needed since slashg causes spacing */ -#line 6048 "" +#line 6114 "" if (comgrace_1.slurg[*ig - 1] && (iswaft || isgaft)) { /* Terminate slur on single after-grace */ -#line 6052 "" +#line 6118 "" comslur_1.ndxslur = igetbits_(ipl, &c__5, &c__23); -#line 6053 "" +#line 6119 "" notefq_(noteq, &lnoten, &comgrace_1.nolevg[ngs - 1], ncm, (ftnlen) 8); /* Writing concatenation */ -#line 6054 "" +#line 6120 "" i__2[0] = 1, a__1[0] = sq; -#line 6054 "" +#line 6120 "" i__2[1] = 5, a__1[1] = "tslur"; -#line 6054 "" +#line 6120 "" s_cat(ch__2, a__1, i__2, &c__2, (ftnlen)6); -#line 6054 "" +#line 6120 "" addstr_(ch__2, &c__6, soutq, lsout, (ftnlen)6, (ftnlen)80); /* Print 24-ndxslur */ /* if (11-ndxslur .lt. 10) then */ -#line 6059 "" +#line 6125 "" if (23 - comslur_1.ndxslur < 10) { /* call addstr(chax(59-ndxslur)//noteq(1:lnoten), */ /* Writing concatenation */ -#line 6061 "" +#line 6127 "" i__1 = 71 - comslur_1.ndxslur; -#line 6061 "" +#line 6127 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 6061 "" +#line 6127 "" i__2[0] = 1, a__1[0] = ch__1; -#line 6061 "" +#line 6127 "" i__2[1] = lnoten, a__1[1] = noteq; -#line 6061 "" +#line 6127 "" s_cat(ch__11, a__1, i__2, &c__2, (ftnlen)9); -#line 6061 "" +#line 6127 "" i__5 = lnoten + 1; -#line 6061 "" +#line 6127 "" addstr_(ch__11, &i__5, soutq, lsout, lnoten + 1, (ftnlen)80); -#line 6063 "" +#line 6129 "" } else if (23 - comslur_1.ndxslur < 20) { /* Writing concatenation */ -#line 6064 "" +#line 6130 "" i__4[0] = 2, a__3[0] = "{2"; -#line 6064 "" +#line 6130 "" i__1 = 61 - comslur_1.ndxslur; -#line 6064 "" +#line 6130 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 6064 "" +#line 6130 "" i__4[1] = 1, a__3[1] = ch__1; -#line 6064 "" +#line 6130 "" i__4[2] = 1, a__3[2] = "}"; -#line 6064 "" +#line 6130 "" i__4[3] = lnoten, a__3[3] = noteq; -#line 6064 "" +#line 6130 "" s_cat(ch__12, a__3, i__4, &c__4, (ftnlen)12); -#line 6064 "" +#line 6130 "" i__5 = lnoten + 4; -#line 6064 "" +#line 6130 "" addstr_(ch__12, &i__5, soutq, lsout, lnoten + 4, (ftnlen)80); -#line 6066 "" +#line 6132 "" } else { /* call addstr('{1'//chax(49-ndxslur)//'}'//noteq(1:lnoten), */ /* Writing concatenation */ -#line 6068 "" +#line 6134 "" i__4[0] = 2, a__3[0] = "{1"; -#line 6068 "" +#line 6134 "" i__1 = 51 - comslur_1.ndxslur; -#line 6068 "" +#line 6134 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 6068 "" +#line 6134 "" i__4[1] = 1, a__3[1] = ch__1; -#line 6068 "" +#line 6134 "" i__4[2] = 1, a__3[2] = "}"; -#line 6068 "" +#line 6134 "" i__4[3] = lnoten, a__3[3] = noteq; -#line 6068 "" +#line 6134 "" s_cat(ch__12, a__3, i__4, &c__4, (ftnlen)12); -#line 6068 "" +#line 6134 "" i__5 = lnoten + 4; -#line 6068 "" +#line 6134 "" addstr_(ch__12, &i__5, soutq, lsout, lnoten + 4, (ftnlen)80); -#line 6070 "" +#line 6136 "" } -#line 6071 "" +#line 6137 "" comgrace_1.slurg[*ig - 1] = FALSE_; -#line 6072 "" +#line 6138 "" comslur_1.listslur = bit_clear(comslur_1.listslur, comslur_1.ndxslur); -#line 6073 "" +#line 6139 "" } -#line 6074 "" +#line 6140 "" addstr_("}", &c__1, soutq, lsout, (ftnlen)1, (ftnlen)80); /* +++ Try to fix loss of octave with single gaft */ -#line 6078 "" +#line 6144 "" if (isgaft) { -#line 6079 "" +#line 6145 "" itrans = 0; -#line 6080 "" +#line 6146 "" i__1 = lnotenga; -#line 6080 "" +#line 6146 "" for (i__ = 1; i__ <= i__1; ++i__) { -#line 6081 "" +#line 6147 "" chax_(ch__1, (ftnlen)1, &c__39); -#line 6081 "" +#line 6147 "" if (*(unsigned char *)¬eqga[i__ - 1] == *(unsigned char *)& ch__1[0]) { -#line 6082 "" +#line 6148 "" itrans += 7; -#line 6083 "" +#line 6149 "" } else /* if(complicated condition) */ { -#line 6083 "" +#line 6149 "" chax_(ch__1, (ftnlen)1, &c__96); -#line 6083 "" +#line 6149 "" if (*(unsigned char *)¬eqga[i__ - 1] == *(unsigned char *)&ch__1[0]) { -#line 6084 "" +#line 6150 "" itrans += -7; -#line 6085 "" +#line 6151 "" } -#line 6085 "" +#line 6151 "" } -#line 6086 "" +#line 6152 "" /* L1: */ -#line 6086 "" +#line 6152 "" } -#line 6087 "" +#line 6153 "" if (itrans == -14) { /* Writing concatenation */ -#line 6088 "" +#line 6154 "" i__4[0] = 1, a__3[0] = sq; -#line 6088 "" +#line 6154 "" i__4[1] = 7, a__3[1] = "advance"; -#line 6088 "" +#line 6154 "" i__4[2] = 1, a__3[2] = sq; -#line 6088 "" +#line 6154 "" i__4[3] = 12, a__3[3] = "transpose-14"; -#line 6088 "" +#line 6154 "" s_cat(ch__13, a__3, i__4, &c__4, (ftnlen)21); -#line 6088 "" +#line 6154 "" addstr_(ch__13, &c__21, soutq, lsout, (ftnlen)21, (ftnlen)80); -#line 6090 "" +#line 6156 "" } else if (itrans == -7) { /* Writing concatenation */ -#line 6091 "" +#line 6157 "" i__4[0] = 1, a__3[0] = sq; -#line 6091 "" +#line 6157 "" i__4[1] = 7, a__3[1] = "advance"; -#line 6091 "" +#line 6157 "" i__4[2] = 1, a__3[2] = sq; -#line 6091 "" +#line 6157 "" i__4[3] = 11, a__3[3] = "transpose-7"; -#line 6091 "" +#line 6157 "" s_cat(ch__14, a__3, i__4, &c__4, (ftnlen)20); -#line 6091 "" +#line 6157 "" addstr_(ch__14, &c__20, soutq, lsout, (ftnlen)20, (ftnlen)80); -#line 6093 "" +#line 6159 "" } else if (itrans == 7) { /* Writing concatenation */ -#line 6094 "" +#line 6160 "" i__4[0] = 1, a__3[0] = sq; -#line 6094 "" +#line 6160 "" i__4[1] = 7, a__3[1] = "advance"; -#line 6094 "" +#line 6160 "" i__4[2] = 1, a__3[2] = sq; -#line 6094 "" +#line 6160 "" i__4[3] = 10, a__3[3] = "transpose7"; -#line 6094 "" +#line 6160 "" s_cat(ch__15, a__3, i__4, &c__4, (ftnlen)19); -#line 6094 "" +#line 6160 "" addstr_(ch__15, &c__19, soutq, lsout, (ftnlen)19, (ftnlen)80); -#line 6096 "" +#line 6162 "" } else if (itrans == 14) { /* Writing concatenation */ -#line 6097 "" +#line 6163 "" i__4[0] = 1, a__3[0] = sq; -#line 6097 "" +#line 6163 "" i__4[1] = 7, a__3[1] = "advance"; -#line 6097 "" +#line 6163 "" i__4[2] = 1, a__3[2] = sq; -#line 6097 "" +#line 6163 "" i__4[3] = 11, a__3[3] = "transpose14"; -#line 6097 "" +#line 6163 "" s_cat(ch__14, a__3, i__4, &c__4, (ftnlen)20); -#line 6097 "" +#line 6163 "" addstr_(ch__14, &c__20, soutq, lsout, (ftnlen)20, (ftnlen)80); -#line 6099 "" +#line 6165 "" } -#line 6100 "" +#line 6166 "" } -#line 6101 "" +#line 6167 "" } else { /* Multiple grace. Put in literally. Compute beam stuff */ -#line 6105 "" +#line 6171 "" sumx = 0.f; -#line 6106 "" +#line 6172 "" sumy = 0.f; -#line 6107 "" +#line 6173 "" sumxy = 0.f; -#line 6108 "" +#line 6174 "" sumxx = 0.f; -#line 6109 "" +#line 6175 "" sumyy = 0.f; -#line 6110 "" +#line 6176 "" x = 0.f; -#line 6111 "" +#line 6177 "" i__1 = ngs + comgrace_1.nng[*ig - 1] - 1; -#line 6111 "" +#line 6177 "" for (ing = ngs; ing <= i__1; ++ing) { -#line 6112 "" +#line 6178 "" if (ing > ngs && comgrace_1.naccg[ing - 1] > 0) { -#line 6112 "" +#line 6178 "" x += spfacs_1.acgfac; -#line 6112 "" +#line 6178 "" } -#line 6113 "" +#line 6179 "" y = (real) comgrace_1.nolevg[ing - 1]; -#line 6114 "" +#line 6180 "" sumx += x; -#line 6115 "" +#line 6181 "" sumy += y; -#line 6116 "" +#line 6182 "" sumxy += x * y; -#line 6117 "" +#line 6183 "" sumxx += x * x; -#line 6118 "" +#line 6184 "" sumyy += y * y; -#line 6119 "" +#line 6185 "" x += spfacs_1.emgfac; -#line 6120 "" +#line 6186 "" /* L118: */ -#line 6120 "" +#line 6186 "" } -#line 6121 "" +#line 6187 "" delta = comgrace_1.nng[*ig - 1] * sumxx - sumx * sumx; -#line 6122 "" +#line 6188 "" em = (comgrace_1.nng[*ig - 1] * sumxy - sumx * sumy) / delta; -#line 6123 "" +#line 6189 "" r__1 = em * .5f * spfacs_1.gslfac; -#line 6123 "" +#line 6189 "" islope = i_nint(&r__1); -#line 6124 "" +#line 6190 "" if (abs(islope) > 9) { -#line 6124 "" +#line 6190 "" islope = i_sign(&c__9, &islope); -#line 6124 "" +#line 6190 "" } -#line 6125 "" +#line 6191 "" beta = (sumy - islope / spfacs_1.gslfac * sumx) / comgrace_1.nng[*ig - 1]; -#line 6126 "" +#line 6192 "" nolev1 = i_nint(&beta); /* Back up */ /* Writing concatenation */ -#line 6130 "" +#line 6196 "" i__4[0] = 1, a__3[0] = sq; -#line 6130 "" +#line 6196 "" i__4[1] = 7, a__3[1] = "settiny"; -#line 6130 "" +#line 6196 "" i__4[2] = 1, a__3[2] = sq; -#line 6130 "" +#line 6196 "" i__4[3] = 4, a__3[3] = "off{"; -#line 6130 "" +#line 6196 "" s_cat(notexq, a__3, i__4, &c__4, (ftnlen)79); -#line 6131 "" +#line 6197 "" if (normsp) { -#line 6132 "" - s_wsfi(&io___456); -#line 6132 "" +#line 6198 "" + s_wsfi(&io___459); +#line 6198 "" do_fio(&c__1, "-", (ftnlen)1); -#line 6132 "" +#line 6198 "" do_fio(&c__1, (char *)&ptgr[*ig], (ftnlen)sizeof(real)); -#line 6132 "" +#line 6198 "" e_wsfi(); /* Writing concatenation */ -#line 6133 "" +#line 6199 "" i__2[0] = 18, a__1[0] = notexq; -#line 6133 "" +#line 6199 "" i__2[1] = 3, a__1[1] = "pt}"; -#line 6133 "" +#line 6199 "" s_cat(ch__13, a__1, i__2, &c__2, (ftnlen)21); -#line 6133 "" +#line 6199 "" addstr_(ch__13, &c__21, soutq, lsout, (ftnlen)21, (ftnlen)80); -#line 6134 "" +#line 6200 "" finalshift = ptgr[*ig]; -#line 6135 "" +#line 6201 "" } else { -#line 6136 "" +#line 6202 "" comgrace_1.aftshft = comask_1.wheadpt * 1.33f; -#line 6137 "" +#line 6203 "" if (comgrace_1.naccg[comgrace_1.ngstrt[*ig - 1] - 1] > 0) { -#line 6137 "" +#line 6203 "" comgrace_1.aftshft += comask_1.wheadpt * .5f; -#line 6137 "" +#line 6203 "" } -#line 6138 "" - s_wsfi(&io___458); -#line 6138 "" +#line 6204 "" + s_wsfi(&io___461); +#line 6204 "" do_fio(&c__1, (char *)&comgrace_1.aftshft, (ftnlen)sizeof(real)); -#line 6138 "" +#line 6204 "" e_wsfi(); /* Writing concatenation */ -#line 6139 "" +#line 6205 "" i__4[0] = 17, a__3[0] = notexq; -#line 6139 "" +#line 6205 "" i__4[1] = 3, a__3[1] = "pt}"; -#line 6139 "" +#line 6205 "" i__4[2] = 1, a__3[2] = sq; -#line 6139 "" +#line 6205 "" i__4[3] = 3, a__3[3] = "bsk"; -#line 6139 "" +#line 6205 "" s_cat(ch__16, a__3, i__4, &c__4, (ftnlen)24); -#line 6139 "" +#line 6205 "" addstr_(ch__16, &c__24, soutq, lsout, (ftnlen)24, (ftnlen)80); -#line 6140 "" +#line 6206 "" } /* Start the beam */ /* Writing concatenation */ -#line 6144 "" +#line 6210 "" i__2[0] = 1, a__1[0] = sq; -#line 6144 "" +#line 6210 "" i__2[1] = 2, a__1[1] = "ib"; -#line 6144 "" +#line 6210 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 6145 "" +#line 6211 "" i__1 = mg; -#line 6145 "" +#line 6211 "" for (ing = 2; ing <= i__1; ++ing) { /* Writing concatenation */ -#line 6146 "" +#line 6212 "" i__2[0] = ing + 1, a__1[0] = notexq; -#line 6146 "" +#line 6212 "" i__2[1] = 1, a__1[1] = "b"; -#line 6146 "" +#line 6212 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 6147 "" +#line 6213 "" /* L119: */ -#line 6147 "" +#line 6213 "" } -#line 6148 "" +#line 6214 "" if (comgrace_1.upg[*ig - 1]) { /* Writing concatenation */ -#line 6149 "" +#line 6215 "" i__2[0] = mg + 2, a__1[0] = notexq; -#line 6149 "" +#line 6215 "" i__2[1] = 1, a__1[1] = "u"; -#line 6149 "" +#line 6215 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 6150 "" +#line 6216 "" } else { /* Writing concatenation */ -#line 6151 "" +#line 6217 "" i__2[0] = mg + 2, a__1[0] = notexq; -#line 6151 "" +#line 6217 "" i__2[1] = 1, a__1[1] = "l"; -#line 6151 "" +#line 6217 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 6152 "" +#line 6218 "" } /* Writing concatenation */ -#line 6153 "" +#line 6219 "" i__2[0] = mg + 3, a__1[0] = notexq; -#line 6153 "" +#line 6219 "" i__2[1] = 1, a__1[1] = "0"; -#line 6153 "" +#line 6219 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); /* Get starting note for beam */ -#line 6157 "" +#line 6223 "" notefq_(noteq, &lnoten, &nolev1, ncm, (ftnlen)8); /* Writing concatenation */ -#line 6158 "" +#line 6224 "" i__2[0] = mg + 4, a__1[0] = notexq; -#line 6158 "" +#line 6224 "" i__2[1] = lnoten, a__1[1] = noteq; -#line 6158 "" +#line 6224 "" s_cat(ch__8, a__1, i__2, &c__2, (ftnlen)87); -#line 6158 "" +#line 6224 "" i__1 = mg + 4 + lnoten; -#line 6158 "" +#line 6224 "" addstr_(ch__8, &i__1, soutq, lsout, mg + 4 + lnoten, (ftnlen)80); /* Put in the slope */ -#line 6163 "" +#line 6229 "" if (islope >= 0) { -#line 6164 "" +#line 6230 "" i__1 = islope + 48; -#line 6164 "" +#line 6230 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 6164 "" +#line 6230 "" addstr_(ch__1, &c__1, soutq, lsout, (ftnlen)1, (ftnlen)80); -#line 6165 "" +#line 6231 "" } else { /* Writing concatenation */ -#line 6166 "" +#line 6232 "" i__3[0] = 2, a__2[0] = "{-"; -#line 6166 "" +#line 6232 "" i__1 = 48 - islope; -#line 6166 "" +#line 6232 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 6166 "" +#line 6232 "" i__3[1] = 1, a__2[1] = ch__1; -#line 6166 "" +#line 6232 "" i__3[2] = 1, a__2[2] = "}"; -#line 6166 "" +#line 6232 "" s_cat(ch__7, a__2, i__3, &c__3, (ftnlen)4); -#line 6166 "" +#line 6232 "" addstr_(ch__7, &c__4, soutq, lsout, (ftnlen)4, (ftnlen)80); -#line 6167 "" +#line 6233 "" } /* Start a slur on multiple fore-grace */ -#line 6171 "" +#line 6237 "" if (comgrace_1.slurg[*ig - 1] && ! isgaft && ! iswaft) { -#line 6172 "" +#line 6238 "" notefq_(noteq, &lnoten, &comgrace_1.nolevg[ngs - 1], ncm, (ftnlen) 8); -#line 6173 "" +#line 6239 "" if (comslur_1.fontslur) { -#line 6174 "" +#line 6240 "" if (comgrace_1.upg[*ig - 1]) { /* Writing concatenation */ -#line 6175 "" +#line 6241 "" i__2[0] = 1, a__1[0] = sq; -#line 6175 "" +#line 6241 "" i__2[1] = 6, a__1[1] = "islurd"; -#line 6175 "" +#line 6241 "" s_cat(ch__6, a__1, i__2, &c__2, (ftnlen)7); -#line 6175 "" +#line 6241 "" addstr_(ch__6, &c__7, soutq, lsout, (ftnlen)7, (ftnlen)80) ; -#line 6176 "" +#line 6242 "" } else { /* Writing concatenation */ -#line 6177 "" +#line 6243 "" i__2[0] = 1, a__1[0] = sq; -#line 6177 "" +#line 6243 "" i__2[1] = 6, a__1[1] = "isluru"; -#line 6177 "" +#line 6243 "" s_cat(ch__6, a__1, i__2, &c__2, (ftnlen)7); -#line 6177 "" +#line 6243 "" addstr_(ch__6, &c__7, soutq, lsout, (ftnlen)7, (ftnlen)80) ; -#line 6178 "" +#line 6244 "" } -#line 6179 "" +#line 6245 "" } else { /* Need a tweak for postscript slur */ -#line 6183 "" +#line 6249 "" if (comgrace_1.upg[*ig - 1]) { /* Writing concatenation */ -#line 6184 "" +#line 6250 "" i__2[0] = 1, a__1[0] = sq; -#line 6184 "" +#line 6250 "" i__2[1] = 3, a__1[1] = "isd"; -#line 6184 "" +#line 6250 "" s_cat(ch__7, a__1, i__2, &c__2, (ftnlen)4); -#line 6184 "" +#line 6250 "" addstr_(ch__7, &c__4, soutq, lsout, (ftnlen)4, (ftnlen)80) ; -#line 6185 "" +#line 6251 "" } else { /* Writing concatenation */ -#line 6186 "" +#line 6252 "" i__2[0] = 1, a__1[0] = sq; -#line 6186 "" +#line 6252 "" i__2[1] = 3, a__1[1] = "isu"; -#line 6186 "" +#line 6252 "" s_cat(ch__7, a__1, i__2, &c__2, (ftnlen)4); -#line 6186 "" +#line 6252 "" addstr_(ch__7, &c__4, soutq, lsout, (ftnlen)4, (ftnlen)80) ; -#line 6187 "" +#line 6253 "" } -#line 6188 "" +#line 6254 "" } /* Print 23-ndxslur */ -#line 6192 "" +#line 6258 "" if (23 - comslur_1.ndxslur < 10) { /* Writing concatenation */ -#line 6193 "" +#line 6259 "" i__1 = 71 - comslur_1.ndxslur; -#line 6193 "" +#line 6259 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 6193 "" +#line 6259 "" i__2[0] = 1, a__1[0] = ch__1; -#line 6193 "" +#line 6259 "" i__2[1] = lnoten, a__1[1] = noteq; -#line 6193 "" +#line 6259 "" s_cat(ch__11, a__1, i__2, &c__2, (ftnlen)9); -#line 6193 "" +#line 6259 "" i__5 = lnoten + 1; -#line 6193 "" +#line 6259 "" addstr_(ch__11, &i__5, soutq, lsout, lnoten + 1, (ftnlen)80); -#line 6195 "" +#line 6261 "" } else if (23 - comslur_1.ndxslur < 2) { /* Writing concatenation */ -#line 6196 "" +#line 6262 "" i__4[0] = 2, a__3[0] = "{1"; -#line 6196 "" +#line 6262 "" i__1 = 61 - comslur_1.ndxslur; -#line 6196 "" +#line 6262 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 6196 "" +#line 6262 "" i__4[1] = 1, a__3[1] = ch__1; -#line 6196 "" +#line 6262 "" i__4[2] = 1, a__3[2] = "}"; -#line 6196 "" +#line 6262 "" i__4[3] = lnoten, a__3[3] = noteq; -#line 6196 "" +#line 6262 "" s_cat(ch__12, a__3, i__4, &c__4, (ftnlen)12); -#line 6196 "" +#line 6262 "" i__5 = lnoten + 4; -#line 6196 "" +#line 6262 "" addstr_(ch__12, &i__5, soutq, lsout, lnoten + 4, (ftnlen)80); -#line 6198 "" +#line 6264 "" } else { /* Writing concatenation */ -#line 6199 "" +#line 6265 "" i__4[0] = 2, a__3[0] = "{1"; -#line 6199 "" +#line 6265 "" i__1 = 51 - comslur_1.ndxslur; -#line 6199 "" +#line 6265 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 6199 "" +#line 6265 "" i__4[1] = 1, a__3[1] = ch__1; -#line 6199 "" +#line 6265 "" i__4[2] = 1, a__3[2] = "}"; -#line 6199 "" +#line 6265 "" i__4[3] = lnoten, a__3[3] = noteq; -#line 6199 "" +#line 6265 "" s_cat(ch__12, a__3, i__4, &c__4, (ftnlen)12); -#line 6199 "" +#line 6265 "" i__5 = lnoten + 4; -#line 6199 "" +#line 6265 "" addstr_(ch__12, &i__5, soutq, lsout, lnoten + 4, (ftnlen)80); -#line 6201 "" +#line 6267 "" } /* Put in tweak for postscript slur */ -#line 6205 "" +#line 6271 "" if (! comslur_1.fontslur) { -#line 6205 "" +#line 6271 "" addstr_("{-.3}", &c__5, soutq, lsout, (ftnlen)5, (ftnlen)80); -#line 6205 "" +#line 6271 "" } -#line 6206 "" +#line 6272 "" } /* Put in first note. Call notefq again in case octave changed */ -#line 6210 "" +#line 6276 "" notefq_(noteq, &lnoten, &comgrace_1.nolevg[ngs - 1], ncm, (ftnlen)8); -#line 6211 "" +#line 6277 "" if (comgrace_1.naccg[ngs - 1] == 0) { /* Writing concatenation */ -#line 6212 "" +#line 6278 "" i__3[0] = 1, a__2[0] = sq; -#line 6212 "" +#line 6278 "" i__3[1] = 4, a__2[1] = "zqb0"; -#line 6212 "" +#line 6278 "" i__3[2] = lnoten, a__2[2] = noteq; -#line 6212 "" +#line 6278 "" s_cat(notexq, a__2, i__3, &c__3, (ftnlen)79); -#line 6213 "" +#line 6279 "" lnote = lnoten + 5; -#line 6214 "" +#line 6280 "" } else { -#line 6215 "" +#line 6281 "" if (lnoten == 1) { -#line 6215 "" +#line 6281 "" addblank_(noteq, &lnoten, (ftnlen)8); -#line 6215 "" +#line 6281 "" } -#line 6216 "" +#line 6282 "" accsym_(&comgrace_1.naccg[ngs - 1], acsymq, &lacc, (ftnlen)3); /* Writing concatenation */ -#line 6217 "" +#line 6283 "" i__4[0] = 1, a__3[0] = sq; -#line 6217 "" +#line 6283 "" i__4[1] = 3, a__3[1] = "big"; -#line 6217 "" +#line 6283 "" i__4[2] = lacc, a__3[2] = acsymq; -#line 6217 "" +#line 6283 "" i__4[3] = lnoten, a__3[3] = noteq; -#line 6217 "" +#line 6283 "" s_cat(notexq, a__3, i__4, &c__4, (ftnlen)79); -#line 6218 "" +#line 6284 "" lnote = lacc + 4 + lnoten; -#line 6219 "" +#line 6285 "" notefq_(noteq, &lnoten, &comgrace_1.nolevg[ngs - 1], ncm, (ftnlen) 8); /* Writing concatenation */ -#line 6220 "" +#line 6286 "" i__4[0] = lnote, a__3[0] = notexq; -#line 6220 "" +#line 6286 "" i__4[1] = 1, a__3[1] = sq; -#line 6220 "" +#line 6286 "" i__4[2] = 4, a__3[2] = "zqb0"; -#line 6220 "" +#line 6286 "" i__4[3] = lnoten, a__3[3] = noteq; -#line 6220 "" +#line 6286 "" s_cat(notexq, a__3, i__4, &c__4, (ftnlen)79); -#line 6221 "" +#line 6287 "" lnote = lnote + 5 + lnoten; -#line 6222 "" +#line 6288 "" } -#line 6223 "" +#line 6289 "" addstr_(notexq, &lnote, soutq, lsout, (ftnlen)79, (ftnlen)80); -#line 6224 "" +#line 6290 "" i__1 = ngs + comgrace_1.nng[*ig - 1] - 1; -#line 6224 "" +#line 6290 "" for (ing = ngs + 1; ing <= i__1; ++ing) { /* Skip */ -#line 6228 "" +#line 6294 "" ptoff = wheadpt1 * spfacs_1.emgfac; -#line 6229 "" +#line 6295 "" if (comgrace_1.naccg[ing - 1] > 0) { -#line 6229 "" +#line 6295 "" ptoff += wheadpt1 * spfacs_1.acgfac; -#line 6229 "" +#line 6295 "" } -#line 6230 "" +#line 6296 "" if (isgaft && ! iswaft) { -#line 6230 "" +#line 6296 "" comgrace_1.aftshft += ptoff; -#line 6230 "" +#line 6296 "" } /* Writing concatenation */ -#line 6231 "" +#line 6297 "" i__2[0] = 1, a__1[0] = sq; -#line 6231 "" +#line 6297 "" i__2[1] = 4, a__1[1] = "off{"; -#line 6231 "" +#line 6297 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 6232 "" - s_wsfi(&io___460); -#line 6232 "" +#line 6298 "" + s_wsfi(&io___463); +#line 6298 "" do_fio(&c__1, (char *)&ptoff, (ftnlen)sizeof(real)); -#line 6232 "" +#line 6298 "" e_wsfi(); -#line 6233 "" +#line 6299 "" if (normsp) { -#line 6233 "" +#line 6299 "" finalshift -= ptoff; -#line 6233 "" +#line 6299 "" } /* Writing concatenation */ -#line 6234 "" +#line 6300 "" i__2[0] = 8, a__1[0] = notexq; -#line 6234 "" +#line 6300 "" i__2[1] = 3, a__1[1] = "pt}"; -#line 6234 "" +#line 6300 "" s_cat(ch__5, a__1, i__2, &c__2, (ftnlen)11); -#line 6234 "" +#line 6300 "" addstr_(ch__5, &c__11, soutq, lsout, (ftnlen)11, (ftnlen)80); -#line 6235 "" +#line 6301 "" if (ing == ngs + comgrace_1.nng[*ig - 1] - 1) { /* Terminate beam if needed */ -#line 6239 "" +#line 6305 "" if (comgrace_1.upg[*ig - 1]) { /* Writing concatenation */ -#line 6240 "" +#line 6306 "" i__2[0] = 1, a__1[0] = sq; -#line 6240 "" +#line 6306 "" i__2[1] = 4, a__1[1] = "tbu0"; -#line 6240 "" +#line 6306 "" s_cat(ch__4, a__1, i__2, &c__2, (ftnlen)5); -#line 6240 "" +#line 6306 "" addstr_(ch__4, &c__5, soutq, lsout, (ftnlen)5, (ftnlen)80) ; -#line 6241 "" +#line 6307 "" } else { /* Writing concatenation */ -#line 6242 "" +#line 6308 "" i__2[0] = 1, a__1[0] = sq; -#line 6242 "" +#line 6308 "" i__2[1] = 4, a__1[1] = "tbl0"; -#line 6242 "" +#line 6308 "" s_cat(ch__4, a__1, i__2, &c__2, (ftnlen)5); -#line 6242 "" +#line 6308 "" addstr_(ch__4, &c__5, soutq, lsout, (ftnlen)5, (ftnlen)80) ; -#line 6243 "" +#line 6309 "" } /* Terminate after slur if needed */ -#line 6247 "" +#line 6313 "" if ((isgaft || iswaft) && comgrace_1.slurg[*ig - 1]) { /* if (iswaft) ndxslur = igetbits(ipl,4,23) */ -#line 6249 "" +#line 6315 "" if (iswaft) { -#line 6249 "" +#line 6315 "" comslur_1.ndxslur = igetbits_(ipl, &c__5, &c__23); -#line 6249 "" +#line 6315 "" } -#line 6250 "" +#line 6316 "" notefq_(noteq, &lnoten, &comgrace_1.nolevg[ing - 1], ncm, (ftnlen)8); /* Writing concatenation */ -#line 6251 "" +#line 6317 "" i__2[0] = 1, a__1[0] = sq; -#line 6251 "" +#line 6317 "" i__2[1] = 5, a__1[1] = "tslur"; -#line 6251 "" +#line 6317 "" s_cat(ch__2, a__1, i__2, &c__2, (ftnlen)6); -#line 6251 "" +#line 6317 "" addstr_(ch__2, &c__6, soutq, lsout, (ftnlen)6, (ftnlen)80) ; /* Print 11-ndxslur */ /* c Print 23-ndxslur */ -#line 6256 "" +#line 6322 "" if (23 - comslur_1.ndxslur < 10) { /* Writing concatenation */ -#line 6257 "" +#line 6323 "" i__5 = 71 - comslur_1.ndxslur; -#line 6257 "" +#line 6323 "" chax_(ch__1, (ftnlen)1, &i__5); -#line 6257 "" +#line 6323 "" i__2[0] = 1, a__1[0] = ch__1; -#line 6257 "" +#line 6323 "" i__2[1] = lnoten, a__1[1] = noteq; -#line 6257 "" +#line 6323 "" s_cat(ch__11, a__1, i__2, &c__2, (ftnlen)9); -#line 6257 "" +#line 6323 "" i__6 = lnoten + 1; -#line 6257 "" +#line 6323 "" addstr_(ch__11, &i__6, soutq, lsout, lnoten + 1, ( ftnlen)80); -#line 6259 "" +#line 6325 "" } else if (23 - comslur_1.ndxslur < 20) { /* Writing concatenation */ -#line 6260 "" +#line 6326 "" i__4[0] = 2, a__3[0] = "{2"; -#line 6260 "" +#line 6326 "" i__5 = 61 - comslur_1.ndxslur; -#line 6260 "" +#line 6326 "" chax_(ch__1, (ftnlen)1, &i__5); -#line 6260 "" +#line 6326 "" i__4[1] = 1, a__3[1] = ch__1; -#line 6260 "" +#line 6326 "" i__4[2] = 1, a__3[2] = "}"; -#line 6260 "" +#line 6326 "" i__4[3] = lnoten, a__3[3] = noteq; -#line 6260 "" +#line 6326 "" s_cat(ch__12, a__3, i__4, &c__4, (ftnlen)12); -#line 6260 "" +#line 6326 "" i__6 = lnoten + 4; -#line 6260 "" +#line 6326 "" addstr_(ch__12, &i__6, soutq, lsout, lnoten + 4, ( ftnlen)80); -#line 6262 "" +#line 6328 "" } else { /* Writing concatenation */ -#line 6263 "" +#line 6329 "" i__4[0] = 2, a__3[0] = "{1"; -#line 6263 "" +#line 6329 "" i__5 = 51 - comslur_1.ndxslur; -#line 6263 "" +#line 6329 "" chax_(ch__1, (ftnlen)1, &i__5); -#line 6263 "" +#line 6329 "" i__4[1] = 1, a__3[1] = ch__1; -#line 6263 "" +#line 6329 "" i__4[2] = 1, a__3[2] = "}"; -#line 6263 "" +#line 6329 "" i__4[3] = lnoten, a__3[3] = noteq; -#line 6263 "" +#line 6329 "" s_cat(ch__12, a__3, i__4, &c__4, (ftnlen)12); -#line 6263 "" +#line 6329 "" i__6 = lnoten + 4; -#line 6263 "" +#line 6329 "" addstr_(ch__12, &i__6, soutq, lsout, lnoten + 4, ( ftnlen)80); -#line 6265 "" +#line 6331 "" } /* Stop slur terminator after exit from this subroutine */ -#line 6269 "" +#line 6335 "" comslur_1.listslur = bit_clear(comslur_1.listslur, comslur_1.ndxslur); -#line 6270 "" +#line 6336 "" comgrace_1.slurg[*ig - 1] = FALSE_; -#line 6271 "" +#line 6337 "" } -#line 6272 "" +#line 6338 "" } /* Accidental if needed */ -#line 6276 "" +#line 6342 "" if (comgrace_1.naccg[ing - 1] > 0) { -#line 6277 "" +#line 6343 "" notefq_(noteq, &lnoten, &comgrace_1.nolevg[ing - 1], ncm, ( ftnlen)8); -#line 6278 "" +#line 6344 "" if (lnoten == 1) { -#line 6278 "" +#line 6344 "" addblank_(noteq, &lnoten, (ftnlen)8); -#line 6278 "" +#line 6344 "" } -#line 6279 "" +#line 6345 "" accsym_(&comgrace_1.naccg[ing - 1], acsymq, &lacc, (ftnlen)3); /* Writing concatenation */ -#line 6280 "" +#line 6346 "" i__4[0] = 1, a__3[0] = sq; -#line 6280 "" +#line 6346 "" i__4[1] = 3, a__3[1] = "big"; -#line 6280 "" +#line 6346 "" i__4[2] = lacc, a__3[2] = acsymq; -#line 6280 "" +#line 6346 "" i__4[3] = lnoten, a__3[3] = noteq; -#line 6280 "" +#line 6346 "" s_cat(ch__9, a__3, i__4, &c__4, (ftnlen)15); -#line 6280 "" +#line 6346 "" i__5 = lacc + 4 + lnoten; -#line 6280 "" +#line 6346 "" addstr_(ch__9, &i__5, soutq, lsout, lacc + 4 + lnoten, ( ftnlen)80); -#line 6282 "" +#line 6348 "" } /* Put in the (beamed) grace note */ -#line 6286 "" +#line 6352 "" notefq_(noteq, &lnoten, &comgrace_1.nolevg[ing - 1], ncm, (ftnlen) 8); /* Writing concatenation */ -#line 6287 "" +#line 6353 "" i__3[0] = 1, a__2[0] = sq; -#line 6287 "" +#line 6353 "" i__3[1] = 4, a__2[1] = "zqb0"; -#line 6287 "" +#line 6353 "" i__3[2] = lnoten, a__2[2] = noteq; -#line 6287 "" +#line 6353 "" s_cat(ch__17, a__2, i__3, &c__3, (ftnlen)13); -#line 6287 "" +#line 6353 "" i__5 = lnoten + 5; -#line 6287 "" +#line 6353 "" addstr_(ch__17, &i__5, soutq, lsout, lnoten + 5, (ftnlen)80); -#line 6289 "" +#line 6355 "" /* L127: */ -#line 6289 "" +#line 6355 "" } /* Terminate the grace */ @@ -15462,147 +15547,147 @@ L121: /* notexq = '}'//sq//'off{' */ /* lnote = 6 */ /* Writing concatenation */ -#line 6297 "" +#line 6363 "" i__2[0] = 1, a__1[0] = sq; -#line 6297 "" +#line 6363 "" i__2[1] = 4, a__1[1] = "off{"; -#line 6297 "" +#line 6363 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 6298 "" +#line 6364 "" lnote = 5; -#line 6299 "" +#line 6365 "" ptoff = comask_1.wheadpt * spfacs_1.emgfac; -#line 6300 "" +#line 6366 "" if ((*nacc & 3) > 0 && ! bit_test(*nacc,17)) { -#line 6300 "" +#line 6366 "" ptoff += comask_1.wheadpt * spfacs_1.accfac; -#line 6300 "" +#line 6366 "" } -#line 6302 "" +#line 6368 "" if (isgaft && ! iswaft) { /* Writing concatenation */ -#line 6303 "" +#line 6369 "" i__2[0] = 5, a__1[0] = notexq; -#line 6303 "" +#line 6369 "" i__2[1] = 1, a__1[1] = "-"; -#line 6303 "" +#line 6369 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 6304 "" +#line 6370 "" lnote = 6; -#line 6305 "" +#line 6371 "" ptoff = comgrace_1.aftshft; -#line 6306 "" +#line 6372 "" } -#line 6307 "" +#line 6373 "" if (normsp) { -#line 6307 "" +#line 6373 "" ptoff = finalshift; -#line 6307 "" +#line 6373 "" } -#line 6308 "" +#line 6374 "" if (ptoff < 9.95f) { -#line 6309 "" +#line 6375 "" i__1 = lnote; -#line 6309 "" +#line 6375 "" ici__1.icierr = 0; -#line 6309 "" +#line 6375 "" ici__1.icirnum = 1; -#line 6309 "" +#line 6375 "" ici__1.icirlen = lnote + 3 - i__1; -#line 6309 "" +#line 6375 "" ici__1.iciunit = notexq + i__1; -#line 6309 "" +#line 6375 "" ici__1.icifmt = "(f3.1)"; -#line 6309 "" +#line 6375 "" s_wsfi(&ici__1); -#line 6309 "" +#line 6375 "" do_fio(&c__1, (char *)&ptoff, (ftnlen)sizeof(real)); -#line 6309 "" +#line 6375 "" e_wsfi(); -#line 6310 "" +#line 6376 "" lnote += 3; -#line 6311 "" +#line 6377 "" } else if (ptoff < 99.95f) { -#line 6312 "" +#line 6378 "" i__1 = lnote; -#line 6312 "" +#line 6378 "" ici__1.icierr = 0; -#line 6312 "" +#line 6378 "" ici__1.icirnum = 1; -#line 6312 "" +#line 6378 "" ici__1.icirlen = lnote + 4 - i__1; -#line 6312 "" +#line 6378 "" ici__1.iciunit = notexq + i__1; -#line 6312 "" +#line 6378 "" ici__1.icifmt = "(f4.1)"; -#line 6312 "" +#line 6378 "" s_wsfi(&ici__1); -#line 6312 "" +#line 6378 "" do_fio(&c__1, (char *)&ptoff, (ftnlen)sizeof(real)); -#line 6312 "" +#line 6378 "" e_wsfi(); -#line 6313 "" +#line 6379 "" lnote += 4; -#line 6314 "" +#line 6380 "" } else { -#line 6315 "" +#line 6381 "" i__1 = lnote; -#line 6315 "" +#line 6381 "" ici__1.icierr = 0; -#line 6315 "" +#line 6381 "" ici__1.icirnum = 1; -#line 6315 "" +#line 6381 "" ici__1.icirlen = lnote + 5 - i__1; -#line 6315 "" +#line 6381 "" ici__1.iciunit = notexq + i__1; -#line 6315 "" +#line 6381 "" ici__1.icifmt = "(f5.1)"; -#line 6315 "" +#line 6381 "" s_wsfi(&ici__1); -#line 6315 "" +#line 6381 "" do_fio(&c__1, (char *)&ptoff, (ftnlen)sizeof(real)); -#line 6315 "" +#line 6381 "" e_wsfi(); -#line 6316 "" +#line 6382 "" lnote += 5; -#line 6317 "" +#line 6383 "" } /* Writing concatenation */ -#line 6318 "" +#line 6384 "" i__2[0] = lnote, a__1[0] = notexq; -#line 6318 "" +#line 6384 "" i__2[1] = 3, a__1[1] = "pt}"; -#line 6318 "" +#line 6384 "" s_cat(ch__18, a__1, i__2, &c__2, (ftnlen)82); -#line 6318 "" +#line 6384 "" i__1 = lnote + 3; -#line 6318 "" +#line 6384 "" addstr_(ch__18, &i__1, soutq, lsout, lnote + 3, (ftnlen)80); -#line 6319 "" +#line 6385 "" if (isgaft && ! iswaft) { /* Writing concatenation */ -#line 6319 "" +#line 6385 "" i__2[0] = 1, a__1[0] = sq; -#line 6319 "" +#line 6385 "" i__2[1] = 2, a__1[1] = "sk"; -#line 6319 "" +#line 6385 "" s_cat(ch__19, a__1, i__2, &c__2, (ftnlen)3); -#line 6319 "" +#line 6385 "" addstr_(ch__19, &c__3, soutq, lsout, (ftnlen)3, (ftnlen)80); -#line 6319 "" +#line 6385 "" } /* Writing concatenation */ -#line 6320 "" +#line 6386 "" i__2[0] = 1, a__1[0] = sq; -#line 6320 "" +#line 6386 "" i__2[1] = 9, a__1[1] = "resetsize"; -#line 6320 "" +#line 6386 "" s_cat(ch__20, a__1, i__2, &c__2, (ftnlen)10); -#line 6320 "" +#line 6386 "" addstr_(ch__20, &c__10, soutq, lsout, (ftnlen)10, (ftnlen)80); -#line 6321 "" +#line 6387 "" } -#line 6322 "" +#line 6388 "" return 0; } /* dograce_ */ @@ -15660,10 +15745,10 @@ L121: static char slurudq[1]; /* Fortran I/O blocks */ - static cilist io___474 = { 0, 6, 0, 0, 0 }; - static cilist io___475 = { 0, 6, 0, 0, 0 }; - static cilist io___476 = { 0, 15, 0, "(/,a)", 0 }; - static cilist io___484 = { 0, 6, 0, 0, 0 }; + static cilist io___477 = { 0, 6, 0, 0, 0 }; + static cilist io___478 = { 0, 6, 0, 0, 0 }; + static cilist io___479 = { 0, 15, 0, "(/,a)", 0 }; + static cilist io___487 = { 0, 6, 0, 0, 0 }; @@ -15724,67 +15809,67 @@ L121: /* If highest note has upslur, save slur height in islhgt in case */ /* ornament must be moved. */ -#line 6419 "" +#line 6485 "" /* Parameter adjustments */ -#line 6419 "" +#line 6485 "" --isdat4; -#line 6419 "" +#line 6485 "" --isdat3; -#line 6419 "" +#line 6485 "" --isdat2; -#line 6419 "" +#line 6485 "" --isdat1; -#line 6419 "" +#line 6485 "" -#line 6419 "" +#line 6485 "" /* Function Body */ -#line 6419 "" +#line 6485 "" *islhgt = 0; -#line 6420 "" +#line 6486 "" if (*beamon) { -#line 6421 "" +#line 6487 "" stemup = *(unsigned char *)ulq == 'u'; -#line 6422 "" +#line 6488 "" } else if (commvl_1.nvmx[*iv - 1] == 2) { -#line 6423 "" +#line 6489 "" if (! bit_test(*islur,30)) { /* Single note, 2 lines of music, stem direction not forced */ -#line 6427 "" +#line 6493 "" stemup = commvl_1.ivx > *nv; -#line 6428 "" +#line 6494 "" } else { -#line 6429 "" +#line 6495 "" stemup = bit_test(*islur,17); -#line 6430 "" +#line 6496 "" } -#line 6431 "" +#line 6497 "" } else { -#line 6432 "" +#line 6498 "" udqq_(ch__1, (ftnlen)1, nolev, ncm, islur, &commvl_1.nvmx[*iv - 1], & commvl_1.ivx, nv); -#line 6432 "" +#line 6498 "" stemup = *(unsigned char *)&ch__1[0] == 'u'; -#line 6433 "" +#line 6499 "" } -#line 6434 "" +#line 6500 "" iscrd = bit_test(*ipl,10); -#line 6435 "" +#line 6501 "" if (commidi_1.ismidi) { -#line 6436 "" +#line 6502 "" settie = FALSE_; -#line 6437 "" +#line 6503 "" comslm_1.dbltie = FALSE_; -#line 6438 "" +#line 6504 "" } -#line 6439 "" +#line 6505 "" i__1 = *nsdat; -#line 6439 "" +#line 6505 "" for (isdat = 1; isdat <= i__1; ++isdat) { -#line 6440 "" +#line 6506 "" isdata = isdat1[isdat]; -#line 6441 "" +#line 6507 "" if (*iv == igetbits_(&isdata, &c__5, &c__13) && *ip == igetbits_(& isdata, &c__8, &c__3) && (*kv == igetbits_(&isdata, &c__1, & c__12) + 1 || bit_test(isdata,1))) { @@ -15792,217 +15877,217 @@ L121: /* Since iv and kv match, ivx will be correct */ -#line 6449 "" +#line 6515 "" idcode = igetbits_(&isdata, &c__7, &c__19); -#line 6450 "" +#line 6516 "" ivoff = igetbits_(&isdat2[isdat], &c__6, &c__6) - 32; -#line 6451 "" +#line 6517 "" ihoff = igetbits_(&isdat2[isdat], &c__7, &c__12) - 64; -#line 6452 "" +#line 6518 "" iupdn = 0; -#line 6453 "" +#line 6519 "" *(unsigned char *)slurudq = 'd'; -#line 6454 "" +#line 6520 "" nolevs = igetbits_(&isdat2[isdat], &c__7, &c__19); -#line 6455 "" +#line 6521 "" pstie = bit_test(isdat2[isdat],3) || idcode == 1; -#line 6456 "" +#line 6522 "" if (bit_test(isdata,11)) { /* Turnon */ /* Get slur direction */ -#line 6461 "" +#line 6527 "" if (bit_test(isdata,26)) { /* Force slur direction */ -#line 6465 "" +#line 6531 "" if (bit_test(isdata,27)) { -#line 6465 "" +#line 6531 "" *(unsigned char *)slurudq = 'u'; -#line 6465 "" +#line 6531 "" } -#line 6466 "" +#line 6532 "" } else if (commvl_1.nvmx[*iv - 1] == 1) { /* Only one voice per line */ -#line 6470 "" +#line 6536 "" if (! (*beamon)) { /* Separate note. */ -#line 6474 "" +#line 6540 "" udfq_(ch__1, (ftnlen)1, nolev, ncm); -#line 6474 "" +#line 6540 "" *(unsigned char *)slurudq = *(unsigned char *)&ch__1[ 0]; -#line 6475 "" +#line 6541 "" } else { /* In a beam */ -#line 6479 "" +#line 6545 "" if (*(unsigned char *)ulq != 'u') { -#line 6479 "" +#line 6545 "" *(unsigned char *)slurudq = 'u'; -#line 6479 "" +#line 6545 "" } -#line 6480 "" +#line 6546 "" } -#line 6481 "" +#line 6547 "" if (iscrd) { -#line 6482 "" +#line 6548 "" if (nolevs > *ncm) { -#line 6483 "" +#line 6549 "" *(unsigned char *)slurudq = 'u'; -#line 6484 "" +#line 6550 "" } else { -#line 6485 "" +#line 6551 "" *(unsigned char *)slurudq = 'd'; -#line 6486 "" +#line 6552 "" } -#line 6487 "" +#line 6553 "" } -#line 6488 "" +#line 6554 "" } else { /* Two voices per line. Get default */ -#line 6492 "" +#line 6558 "" if (commvl_1.ivx > *nv) { -#line 6492 "" +#line 6558 "" *(unsigned char *)slurudq = 'u'; -#line 6492 "" +#line 6558 "" } /* Upper voice of the two, so up slur */ -#line 6496 "" +#line 6562 "" } -#line 6497 "" +#line 6563 "" if (bit_test(isdata,2)) { /* ADjust for stem slur. ASSUME this is the ONLY pos'n adjustment. */ -#line 6501 "" +#line 6567 "" if (stemup) { -#line 6502 "" +#line 6568 "" *(unsigned char *)slurudq = 'u'; -#line 6503 "" +#line 6569 "" ivoff += 4; -#line 6504 "" +#line 6570 "" } else { -#line 6505 "" +#line 6571 "" *(unsigned char *)slurudq = 'd'; -#line 6506 "" +#line 6572 "" ivoff += -4; -#line 6507 "" +#line 6573 "" } -#line 6508 "" +#line 6574 "" } /* Set level for slur starting on rest */ -#line 6512 "" +#line 6578 "" if (nolevs == 0 || nolevs > 60) { -#line 6513 "" +#line 6579 "" if (*(unsigned char *)slurudq == 'u') { -#line 6514 "" +#line 6580 "" nolevs = *ncm + 2; -#line 6515 "" +#line 6581 "" } else { -#line 6516 "" +#line 6582 "" nolevs = *ncm - 2; -#line 6517 "" +#line 6583 "" } -#line 6518 "" +#line 6584 "" } /* Save up/down-ness for use at termination */ -#line 6522 "" +#line 6588 "" if (*(unsigned char *)slurudq == 'u') { -#line 6522 "" +#line 6588 "" isdata = bit_set(isdata,27); -#line 6522 "" +#line 6588 "" } /* End of section for setting slur direction, still in "Turnon" if-block. */ -#line 6526 "" +#line 6592 "" if (bit_test(*iornq,11) || bit_test(*iornq,12)) { /* Raise or lower slur by one unit provided . or _ is on same side as slur */ -#line 6530 "" +#line 6596 "" ivoffinc = 0; -#line 6531 "" +#line 6597 "" if (stemup && *(unsigned char *)slurudq == 'd' || ! stemup && *(unsigned char *)slurudq == 'u') { /* Must move the slur for _ or . */ -#line 6536 "" +#line 6602 "" if (stemup) { -#line 6537 "" +#line 6603 "" ivoffinc = -1; -#line 6538 "" +#line 6604 "" } else { -#line 6539 "" +#line 6605 "" ivoffinc = 1; -#line 6540 "" +#line 6606 "" } -#line 6541 "" +#line 6607 "" if ((stemup && *nolev >= *ncm - 2 || ! stemup && * nolev <= *ncm + 2) && (i__2 = *ncm - *nolev, abs(i__2)) % 2 == 0) { -#line 6541 "" +#line 6607 "" ivoffinc <<= 1; -#line 6541 "" +#line 6607 "" } -#line 6544 "" +#line 6610 "" ivoff += ivoffinc; -#line 6545 "" +#line 6611 "" } -#line 6546 "" +#line 6612 "" } -#line 6547 "" +#line 6613 "" if (comslur_1.listslur == 16777215) { -#line 6548 "" - s_wsle(&io___474); -#line 6548 "" +#line 6614 "" + s_wsle(&io___477); +#line 6614 "" e_wsle(); -#line 6549 "" - s_wsle(&io___475); -#line 6549 "" +#line 6615 "" + s_wsle(&io___478); +#line 6615 "" do_lio(&c__9, &c__1, "You1 defined the twentyfifth slur,"\ " one too many!", (ftnlen)48); -#line 6549 "" +#line 6615 "" e_wsle(); -#line 6550 "" - s_wsfe(&io___476); -#line 6550 "" +#line 6616 "" + s_wsfe(&io___479); +#line 6616 "" do_fio(&c__1, "You defined the twentyfifth slur, one too"\ " many!", (ftnlen)47); -#line 6550 "" +#line 6616 "" e_wsfe(); -#line 6552 "" +#line 6618 "" stop1_(); -#line 6553 "" +#line 6619 "" } /* Get index of next slur not in use, starting from 12 down */ -#line 6557 "" +#line 6623 "" i__2 = 16777215 - comslur_1.listslur; -#line 6557 "" +#line 6623 "" comslur_1.ndxslur = log2_(&i__2); /* Record slur index */ -#line 6561 "" +#line 6627 "" comslur_1.listslur = bit_set(comslur_1.listslur, comslur_1.ndxslur); @@ -16010,206 +16095,206 @@ L121: /* call setbits(isdata,4,28,ndxslur) */ /* 080531 Allow >16 slurs */ -#line 6567 "" +#line 6633 "" i__2 = comslur_1.ndxslur % 16; -#line 6567 "" +#line 6633 "" setbits_(&isdata, &c__4, &c__28, &i__2); -#line 6568 "" +#line 6634 "" i__2 = comslur_1.ndxslur / 16; -#line 6568 "" +#line 6634 "" setbits_(&isdata, &c__1, &c__18, &i__2); /* Shift for stem? */ -#line 6572 "" +#line 6638 "" if (stemup && *(unsigned char *)slurudq == 'u' && *tno < 63.f) { -#line 6573 "" +#line 6639 "" if (! pstie) { -#line 6574 "" +#line 6640 "" ihoff += 8; -#line 6575 "" +#line 6641 "" } else { -#line 6576 "" +#line 6642 "" ihoff += 2; -#line 6577 "" +#line 6643 "" } -#line 6578 "" +#line 6644 "" } -#line 6579 "" +#line 6645 "" if (iscrd) { /* Additional horiz shifts for h-shifted noteheads? */ -#line 6583 "" +#line 6649 "" if (bit_test(isdat2[isdat],1)) { /* Slur start on left-shifted chord notehead. ASSUME downstem. */ -#line 6587 "" +#line 6653 "" if (nolevs == comtrill_1.minlev && *(unsigned char *) slurudq == 'd') { -#line 6588 "" +#line 6654 "" ihoff += -2; -#line 6589 "" +#line 6655 "" } else { -#line 6590 "" +#line 6656 "" ihoff += -10; -#line 6591 "" +#line 6657 "" } -#line 6592 "" +#line 6658 "" } else if (bit_test(isdat2[isdat],2)) { /* Right shifted chord notehead. ASSUME upstem. */ -#line 6596 "" +#line 6662 "" if (nolevs == comtrill_1.maxlev && *(unsigned char *) slurudq == 'u') { -#line 6597 "" +#line 6663 "" ihoff += 2; -#line 6598 "" +#line 6664 "" } else { -#line 6599 "" +#line 6665 "" ihoff += 10; -#line 6600 "" +#line 6666 "" } -#line 6601 "" +#line 6667 "" } -#line 6602 "" +#line 6668 "" } -#line 6603 "" +#line 6669 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 6603 "" +#line 6669 "" s_copy(notexq, ch__1, (ftnlen)79, (ftnlen)1); -#line 6604 "" +#line 6670 "" lnote = 1; /* Check for local adjustment default changes */ -#line 6608 "" +#line 6674 "" if (bit_test(isdat2[isdat],26)) { /* Writing concatenation */ -#line 6609 "" +#line 6675 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 6609 "" +#line 6675 "" i__3[0] = 1, a__1[0] = ch__1; -#line 6609 "" +#line 6675 "" i__3[1] = 10, a__1[1] = "sluradjust"; -#line 6609 "" +#line 6675 "" chax_(ch__2, (ftnlen)1, &c__92); -#line 6609 "" +#line 6675 "" i__3[2] = 1, a__1[2] = ch__2; -#line 6609 "" +#line 6675 "" s_cat(notexq, a__1, i__3, &c__3, (ftnlen)79); -#line 6610 "" +#line 6676 "" lnote = 12; -#line 6611 "" +#line 6677 "" } else if (bit_test(isdat2[isdat],27)) { /* Writing concatenation */ -#line 6612 "" +#line 6678 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 6612 "" +#line 6678 "" i__3[0] = 1, a__1[0] = ch__1; -#line 6612 "" +#line 6678 "" i__3[1] = 12, a__1[1] = "nosluradjust"; -#line 6612 "" +#line 6678 "" chax_(ch__2, (ftnlen)1, &c__92); -#line 6612 "" +#line 6678 "" i__3[2] = 1, a__1[2] = ch__2; -#line 6612 "" +#line 6678 "" s_cat(notexq, a__1, i__3, &c__3, (ftnlen)79); -#line 6613 "" +#line 6679 "" lnote = 14; -#line 6614 "" +#line 6680 "" } else if (bit_test(isdat2[isdat],28)) { /* Writing concatenation */ -#line 6615 "" +#line 6681 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 6615 "" +#line 6681 "" i__3[0] = 1, a__1[0] = ch__1; -#line 6615 "" +#line 6681 "" i__3[1] = 9, a__1[1] = "tieadjust"; -#line 6615 "" +#line 6681 "" chax_(ch__2, (ftnlen)1, &c__92); -#line 6615 "" +#line 6681 "" i__3[2] = 1, a__1[2] = ch__2; -#line 6615 "" +#line 6681 "" s_cat(notexq, a__1, i__3, &c__3, (ftnlen)79); -#line 6616 "" +#line 6682 "" lnote = 11; -#line 6617 "" +#line 6683 "" } else if (bit_test(isdat2[isdat],29)) { /* Writing concatenation */ -#line 6618 "" +#line 6684 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 6618 "" +#line 6684 "" i__3[0] = 1, a__1[0] = ch__1; -#line 6618 "" +#line 6684 "" i__3[1] = 11, a__1[1] = "notieadjust"; -#line 6618 "" +#line 6684 "" chax_(ch__2, (ftnlen)1, &c__92); -#line 6618 "" +#line 6684 "" i__3[2] = 1, a__1[2] = ch__2; -#line 6618 "" +#line 6684 "" s_cat(notexq, a__1, i__3, &c__3, (ftnlen)79); -#line 6619 "" +#line 6685 "" lnote = 13; -#line 6620 "" +#line 6686 "" } -#line 6621 "" +#line 6687 "" if (ihoff == 0) { /* Write stuff for non-shifted start */ /* Writing concatenation */ -#line 6625 "" +#line 6691 "" i__3[0] = lnote, a__1[0] = notexq; -#line 6625 "" +#line 6691 "" i__3[1] = 5, a__1[1] = "islur"; -#line 6625 "" +#line 6691 "" i__3[2] = 1, a__1[2] = slurudq; -#line 6625 "" +#line 6691 "" s_cat(notexq, a__1, i__3, &c__3, (ftnlen)79); -#line 6626 "" +#line 6692 "" lnote += 6; -#line 6627 "" +#line 6693 "" } else { /* Writing concatenation */ -#line 6628 "" +#line 6694 "" i__3[0] = lnote, a__1[0] = notexq; -#line 6628 "" +#line 6694 "" i__3[1] = 2, a__1[1] = "is"; -#line 6628 "" +#line 6694 "" i__3[2] = 1, a__1[2] = slurudq; -#line 6628 "" +#line 6694 "" s_cat(notexq, a__1, i__3, &c__3, (ftnlen)79); -#line 6629 "" +#line 6695 "" lnote += 3; -#line 6630 "" +#line 6696 "" } /* Prepend postscript tie switch */ -#line 6634 "" +#line 6700 "" if (pstie) { /* Writing concatenation */ -#line 6635 "" +#line 6701 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 6635 "" +#line 6701 "" i__4[0] = 1, a__2[0] = ch__1; -#line 6635 "" +#line 6701 "" i__4[1] = 8, a__2[1] = "tieforis"; -#line 6635 "" +#line 6701 "" i__4[2] = 1, a__2[2] = slurudq; -#line 6635 "" +#line 6701 "" i__4[3] = lnote, a__2[3] = notexq; -#line 6635 "" +#line 6701 "" s_cat(notexq, a__2, i__4, &c__4, (ftnlen)79); -#line 6636 "" +#line 6702 "" lnote += 10; -#line 6637 "" +#line 6703 "" } -#line 6638 "" +#line 6704 "" if (bit_test(isdat2[isdat],4)) { /* Dotted slur */ @@ -16217,289 +16302,288 @@ L121: /* noteq = notexq */ /* notexq = chax(92)//'dotted'//noteq */ /* Writing concatenation */ -#line 6644 "" +#line 6710 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 6644 "" +#line 6710 "" i__3[0] = 1, a__1[0] = ch__1; -#line 6644 "" +#line 6710 "" i__3[1] = 6, a__1[1] = "dotted"; -#line 6644 "" +#line 6710 "" i__3[2] = lnote, a__1[2] = notexq; -#line 6644 "" +#line 6710 "" s_cat(notexq, a__1, i__3, &c__3, (ftnlen)79); -#line 6645 "" +#line 6711 "" lnote += 7; -#line 6646 "" +#line 6712 "" } /* Add slur index to string */ /* Print 23-ndxslur */ -#line 6651 "" +#line 6717 "" if (23 - comslur_1.ndxslur < 10) { /* 5/25/08 Allow 24 slurs */ /* Writing concatenation */ -#line 6655 "" +#line 6721 "" i__5[0] = lnote, a__3[0] = notexq; -#line 6655 "" +#line 6721 "" i__2 = 71 - comslur_1.ndxslur; -#line 6655 "" +#line 6721 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 6655 "" +#line 6721 "" i__5[1] = 1, a__3[1] = ch__1; -#line 6655 "" +#line 6721 "" s_cat(notexq, a__3, i__5, &c__2, (ftnlen)79); -#line 6656 "" +#line 6722 "" ++lnote; -#line 6657 "" +#line 6723 "" } else if (23 - comslur_1.ndxslur < 20) { /* Writing concatenation */ -#line 6658 "" +#line 6724 "" i__4[0] = lnote, a__2[0] = notexq; -#line 6658 "" +#line 6724 "" i__4[1] = 2, a__2[1] = "{1"; -#line 6658 "" +#line 6724 "" i__2 = 61 - comslur_1.ndxslur; -#line 6658 "" +#line 6724 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 6658 "" +#line 6724 "" i__4[2] = 1, a__2[2] = ch__1; -#line 6658 "" +#line 6724 "" i__4[3] = 1, a__2[3] = "}"; -#line 6658 "" +#line 6724 "" s_cat(notexq, a__2, i__4, &c__4, (ftnlen)79); -#line 6659 "" +#line 6725 "" lnote += 4; -#line 6660 "" +#line 6726 "" } else { /* Writing concatenation */ -#line 6661 "" +#line 6727 "" i__4[0] = lnote, a__2[0] = notexq; -#line 6661 "" +#line 6727 "" i__4[1] = 2, a__2[1] = "{2"; -#line 6661 "" +#line 6727 "" i__2 = 51 - comslur_1.ndxslur; -#line 6661 "" +#line 6727 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 6661 "" +#line 6727 "" i__4[2] = 1, a__2[2] = ch__1; -#line 6661 "" +#line 6727 "" i__4[3] = 1, a__2[3] = "}"; -#line 6661 "" +#line 6727 "" s_cat(notexq, a__2, i__4, &c__4, (ftnlen)79); -#line 6662 "" +#line 6728 "" lnote += 4; -#line 6663 "" +#line 6729 "" } /* Add note name to string */ -#line 6667 "" +#line 6733 "" *islhgt = nolevs + iupdn + ivoff; -#line 6668 "" +#line 6734 "" notefq_(noteq, &lnoten, islhgt, ncm, (ftnlen)8); /* Writing concatenation */ -#line 6669 "" +#line 6735 "" i__5[0] = lnote, a__3[0] = notexq; -#line 6669 "" +#line 6735 "" i__5[1] = lnoten, a__3[1] = noteq; -#line 6669 "" +#line 6735 "" s_cat(notexq, a__3, i__5, &c__2, (ftnlen)79); -#line 6670 "" +#line 6736 "" lnote += lnoten; /* Store height and staff mid level for use with LineBreakTies */ -#line 6674 "" +#line 6740 "" setbits_(&isdat3[isdat], &c__8, &c__14, islhgt); -#line 6675 "" +#line 6741 "" setbits_(&isdat3[isdat], &c__8, &c__22, ncm); /* Save height (for ornament and barnobox interference) if topmost slur is up */ -#line 6679 "" +#line 6745 "" if (*(unsigned char *)slurudq == 'u' && (! bit_test(isdat2[ isdat],0) || nolevs == comtrill_1.maxlev)) { -#line 6681 "" +#line 6747 "" *islhgt = nolevs + iupdn + ivoff; /* Save height & idcode if top voice and slur start */ -#line 6685 "" +#line 6751 "" if (commvl_1.ivx == commvl_1.ivmx[*nv + commvl_1.nvmx[*nv - 1] * 24 - 25] && *islhgt > comsln_1.is1n1) { -#line 6686 "" +#line 6752 "" comsln_1.is1n1 = *islhgt; -#line 6687 "" +#line 6753 "" comsln_1.is2n1 = idcode; -#line 6688 "" +#line 6754 "" } -#line 6689 "" +#line 6755 "" } -#line 6690 "" +#line 6756 "" if ((real) ihoff != 0.f) { -#line 6691 "" +#line 6757 "" shift = ihoff * .1f; /* Writing concatenation */ -#line 6692 "" +#line 6758 "" i__5[0] = lnote, a__3[0] = notexq; -#line 6692 "" +#line 6758 "" i__5[1] = 1, a__3[1] = "{"; -#line 6692 "" +#line 6758 "" s_cat(notexq, a__3, i__5, &c__2, (ftnlen)79); -#line 6693 "" +#line 6759 "" ++lnote; -#line 6694 "" +#line 6760 "" lform = lfmt1_(&shift); -#line 6695 "" +#line 6761 "" i__2 = lnote; -#line 6695 "" +#line 6761 "" ici__1.icierr = 0; -#line 6695 "" +#line 6761 "" ici__1.icirnum = 1; -#line 6695 "" +#line 6761 "" ici__1.icirlen = lnote + lform - i__2; -#line 6695 "" +#line 6761 "" ici__1.iciunit = notexq + i__2; /* Writing concatenation */ -#line 6695 "" +#line 6761 "" i__3[0] = 2, a__1[0] = "(f"; -#line 6695 "" +#line 6761 "" i__6 = lform + 48; -#line 6695 "" +#line 6761 "" chax_(ch__1, (ftnlen)1, &i__6); -#line 6695 "" +#line 6761 "" i__3[1] = 1, a__1[1] = ch__1; -#line 6695 "" +#line 6761 "" i__3[2] = 3, a__1[2] = ".1)"; -#line 6695 "" +#line 6761 "" ici__1.icifmt = (s_cat(ch__3, a__1, i__3, &c__3, (ftnlen) 6), ch__3); -#line 6695 "" +#line 6761 "" s_wsfi(&ici__1); -#line 6695 "" +#line 6761 "" do_fio(&c__1, (char *)&shift, (ftnlen)sizeof(real)); -#line 6695 "" +#line 6761 "" e_wsfi(); -#line 6697 "" +#line 6763 "" lnote += lform; /* Writing concatenation */ -#line 6698 "" +#line 6764 "" i__5[0] = lnote, a__3[0] = notexq; -#line 6698 "" +#line 6764 "" i__5[1] = 1, a__3[1] = "}"; -#line 6698 "" +#line 6764 "" s_cat(notexq, a__3, i__5, &c__2, (ftnlen)79); -#line 6699 "" +#line 6765 "" ++lnote; -#line 6700 "" +#line 6766 "" } -#line 6701 "" +#line 6767 "" addstr_(notexq, &lnote, soutq, lsout, (ftnlen)79, (ftnlen)80); /* Zero out ip1 to avoid problems if slur goes to next input blk. */ -#line 6705 "" +#line 6771 "" setbits_(&isdata, &c__8, &c__3, &c__0); /* Set slur-on data for midi. Only treat null-index slurs and ps ties for now. */ -#line 6709 "" +#line 6775 "" if (commidi_1.ismidi && (idcode == 32 || idcode == 1)) { /* levson(midchan(iv,kv)) = nolevs */ /* 130316 */ -/* levson(midchan(iv,kv)) = nolevs-iTransAmt(instno(iv)) */ -#line 6713 "" +#line 6778 "" comslm_1.levson[commidi_1.midchan[*iv + *kv * 24 - 25]] = nolevs + commvel_1.miditran[cominsttrans_1.instno[ *iv - 1] - 1]; -#line 6714 "" +#line 6779 "" if (settie) { -#line 6714 "" +#line 6779 "" comslm_1.dbltie = TRUE_; -#line 6714 "" +#line 6779 "" } /* Only way settie=T is if we just set a tie ending. So there's also a slur */ /* start here, so set a flag telling addmidi not to zero out levson */ -#line 6719 "" +#line 6784 "" } -#line 6720 "" +#line 6785 "" } else { /* Slur is ending. Back thru list to find starting slur */ -#line 6724 "" +#line 6789 "" for (j = isdat - 1; j >= 1; --j) { -#line 6725 "" +#line 6790 "" if (*iv == igetbits_(&isdat1[j], &c__5, &c__13) && (*kv == igetbits_(&isdat1[j], &c__1, &c__12) + 1 || bit_test(isdat1[j],1))) { /* * kv.eq.igetbits(isdat1(j),1,12)+1) then */ -#line 6729 "" +#line 6794 "" if (idcode == igetbits_(&isdat1[j], &c__7, &c__19)) { -#line 6730 "" +#line 6795 "" comslur_1.ndxslur = igetbits_(&isdat1[j], &c__4, & c__28) + (igetbits_(&isdat1[j], &c__1, & c__18) << 4); /* 080531 Allow >16 slurs */ -#line 6735 "" +#line 6800 "" if (bit_test(isdat1[j],27)) { -#line 6735 "" +#line 6800 "" *(unsigned char *)slurudq = 'u'; -#line 6735 "" +#line 6800 "" } -#line 6736 "" +#line 6801 "" goto L4; -#line 6737 "" +#line 6802 "" } -#line 6738 "" +#line 6803 "" } -#line 6739 "" +#line 6804 "" /* L3: */ -#line 6739 "" +#line 6804 "" } -#line 6740 "" - s_wsle(&io___484); -#line 6740 "" +#line 6805 "" + s_wsle(&io___487); +#line 6805 "" do_lio(&c__9, &c__1, "Bad place in doslur", (ftnlen)19); -#line 6740 "" +#line 6805 "" e_wsle(); -#line 6741 "" +#line 6806 "" stop1_(); -#line 6742 "" +#line 6807 "" L4: /* Bugfix 070901 for slur ending on rest in 2-voice staff */ -#line 6746 "" +#line 6811 "" if (nolevs <= 2 || nolevs > 60) { /* Ending is on a rest, reset nolevs to default starting height */ -#line 6750 "" +#line 6815 "" nolevs = igetbits_(&isdat2[j], &c__7, &c__19); -#line 6751 "" +#line 6816 "" } -#line 6752 "" +#line 6817 "" if (bit_test(isdat3[isdat],0) || bit_test(isdat3[j],0)) { /* Deal with \curve or \midslur. isdat is ending, j is start. */ -#line 6756 "" +#line 6821 "" if (bit_test(isdat3[isdat],0)) { -#line 6757 "" +#line 6822 "" imid = igetbits_(&isdat3[isdat], &c__6, &c__2) - 32; -#line 6758 "" +#line 6823 "" } else { -#line 6759 "" +#line 6824 "" imid = igetbits_(&isdat3[j], &c__6, &c__2) - 32; -#line 6760 "" +#line 6825 "" } /* Postscript slurs, and \midslur adjustment is needed. Invoke macro */ @@ -16512,464 +16596,458 @@ L4: /* 6+ HH */ /* Writing concatenation */ -#line 6771 "" +#line 6836 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 6771 "" +#line 6836 "" i__3[0] = 1, a__1[0] = ch__1; -#line 6771 "" +#line 6836 "" i__3[1] = 7, a__1[1] = "psforts"; /* Computing MIN */ -#line 6771 "" +#line 6836 "" i__6 = abs(imid); -#line 6771 "" +#line 6836 "" i__2 = min(i__6,6) + 48; -#line 6771 "" +#line 6836 "" chax_(ch__2, (ftnlen)1, &i__2); -#line 6771 "" +#line 6836 "" i__3[2] = 1, a__1[2] = ch__2; -#line 6771 "" +#line 6836 "" s_cat(ch__4, a__1, i__3, &c__3, (ftnlen)9); -#line 6771 "" +#line 6836 "" addstr_(ch__4, &c__9, soutq, lsout, (ftnlen)9, (ftnlen)80) ; -#line 6773 "" +#line 6838 "" } -#line 6774 "" +#line 6839 "" if (bit_test(isdata,2)) { /* ADjust for stem slur. */ -#line 6778 "" +#line 6843 "" if (stemup) { -#line 6779 "" +#line 6844 "" *(unsigned char *)slurudq = 'u'; -#line 6780 "" +#line 6845 "" ivoff += 4; -#line 6781 "" +#line 6846 "" } else { -#line 6782 "" +#line 6847 "" *(unsigned char *)slurudq = 'd'; -#line 6783 "" +#line 6848 "" ivoff += -4; -#line 6784 "" +#line 6849 "" } -#line 6785 "" +#line 6850 "" } /* Shift slur ending for stem on any note? */ -#line 6789 "" +#line 6854 "" if (! stemup && *(unsigned char *)slurudq == 'd' && *tno < 63.f) { -#line 6790 "" +#line 6855 "" if (! pstie) { -#line 6791 "" +#line 6856 "" ihoff += -8; -#line 6792 "" +#line 6857 "" } else { -#line 6793 "" +#line 6858 "" ihoff += -3; -#line 6794 "" +#line 6859 "" } -#line 6795 "" +#line 6860 "" } -#line 6796 "" +#line 6861 "" if (iscrd) { /* Shift termination for shifted notehead? */ -#line 6800 "" +#line 6865 "" if (bit_test(isdat2[isdat],1)) { /* Left-shifted chord notehead. ASSUME downstem. */ -#line 6804 "" +#line 6869 "" if (nolevs == comtrill_1.minlev && *(unsigned char *) slurudq == 'd') { -#line 6805 "" +#line 6870 "" ihoff += -2; -#line 6806 "" +#line 6871 "" } else { -#line 6807 "" +#line 6872 "" ihoff += -10; -#line 6808 "" +#line 6873 "" } -#line 6809 "" +#line 6874 "" } else if (bit_test(isdat2[isdat],2)) { /* Right shifted chord notehead. ASSUME upstem. */ -#line 6813 "" +#line 6878 "" if (nolevs == comtrill_1.maxlev && *(unsigned char *) slurudq == 'u') { -#line 6814 "" +#line 6879 "" ihoff += 2; -#line 6815 "" +#line 6880 "" } else { -#line 6816 "" +#line 6881 "" ihoff += 10; -#line 6817 "" +#line 6882 "" } -#line 6818 "" +#line 6883 "" } -#line 6819 "" +#line 6884 "" } -#line 6820 "" +#line 6885 "" if (ihoff == 0) { /* Writing concatenation */ -#line 6821 "" +#line 6886 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 6821 "" +#line 6886 "" i__5[0] = 1, a__3[0] = ch__1; -#line 6821 "" +#line 6886 "" i__5[1] = 5, a__3[1] = "tslur"; -#line 6821 "" +#line 6886 "" s_cat(notexq, a__3, i__5, &c__2, (ftnlen)79); -#line 6822 "" +#line 6887 "" lnote = 6; -#line 6823 "" +#line 6888 "" } else { /* Shift needed */ /* Writing concatenation */ -#line 6827 "" +#line 6892 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 6827 "" +#line 6892 "" i__5[0] = 1, a__3[0] = ch__1; -#line 6827 "" +#line 6892 "" i__5[1] = 2, a__3[1] = "ts"; -#line 6827 "" +#line 6892 "" s_cat(notexq, a__3, i__5, &c__2, (ftnlen)79); -#line 6828 "" +#line 6893 "" lnote = 3; -#line 6829 "" +#line 6894 "" } /* Switch to postscript tie */ -#line 6833 "" +#line 6898 "" if (pstie) { /* Writing concatenation */ -#line 6834 "" +#line 6899 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 6834 "" +#line 6899 "" i__3[0] = 1, a__1[0] = ch__1; -#line 6834 "" +#line 6899 "" i__3[1] = 8, a__1[1] = "tieforts"; -#line 6834 "" +#line 6899 "" i__3[2] = lnote, a__1[2] = notexq; -#line 6834 "" +#line 6899 "" s_cat(notexq, a__1, i__3, &c__3, (ftnlen)79); -#line 6835 "" +#line 6900 "" lnote += 9; -#line 6836 "" +#line 6901 "" } /* Print 13-ndxslur */ /* 5/25/08 Allow 14 slurs */ -#line 6841 "" +#line 6906 "" if (23 - comslur_1.ndxslur < 10) { /* Writing concatenation */ -#line 6842 "" +#line 6907 "" i__5[0] = lnote, a__3[0] = notexq; -#line 6842 "" +#line 6907 "" i__2 = 71 - comslur_1.ndxslur; -#line 6842 "" +#line 6907 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 6842 "" +#line 6907 "" i__5[1] = 1, a__3[1] = ch__1; -#line 6842 "" +#line 6907 "" s_cat(notexq, a__3, i__5, &c__2, (ftnlen)79); -#line 6843 "" +#line 6908 "" ++lnote; -#line 6844 "" +#line 6909 "" } else if (23 - comslur_1.ndxslur < 20) { /* Writing concatenation */ -#line 6845 "" +#line 6910 "" i__4[0] = lnote, a__2[0] = notexq; -#line 6845 "" +#line 6910 "" i__4[1] = 2, a__2[1] = "{1"; -#line 6845 "" +#line 6910 "" i__2 = 61 - comslur_1.ndxslur; -#line 6845 "" +#line 6910 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 6845 "" +#line 6910 "" i__4[2] = 1, a__2[2] = ch__1; -#line 6845 "" +#line 6910 "" i__4[3] = 1, a__2[3] = "}"; -#line 6845 "" +#line 6910 "" s_cat(notexq, a__2, i__4, &c__4, (ftnlen)79); -#line 6846 "" +#line 6911 "" lnote += 4; -#line 6847 "" +#line 6912 "" } else { /* Writing concatenation */ -#line 6848 "" +#line 6913 "" i__4[0] = lnote, a__2[0] = notexq; -#line 6848 "" +#line 6913 "" i__4[1] = 2, a__2[1] = "{2"; -#line 6848 "" +#line 6913 "" i__2 = 51 - comslur_1.ndxslur; -#line 6848 "" +#line 6913 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 6848 "" +#line 6913 "" i__4[2] = 1, a__2[2] = ch__1; -#line 6848 "" +#line 6913 "" i__4[3] = 1, a__2[3] = "}"; -#line 6848 "" +#line 6913 "" s_cat(notexq, a__2, i__4, &c__4, (ftnlen)79); -#line 6849 "" +#line 6914 "" lnote += 4; -#line 6850 "" +#line 6915 "" } -#line 6851 "" +#line 6916 "" if (bit_test(*iornq,11) || bit_test(*iornq,12)) { /* Raise or lower slur by one unit provided . or _ is on same side as slur */ -#line 6855 "" +#line 6920 "" ivoffinc = 0; -#line 6856 "" +#line 6921 "" if (stemup && *(unsigned char *)slurudq == 'd' || ! stemup && *(unsigned char *)slurudq == 'u') { -#line 6858 "" +#line 6923 "" if (stemup) { -#line 6859 "" +#line 6924 "" ivoffinc = -1; -#line 6860 "" +#line 6925 "" } else { -#line 6861 "" +#line 6926 "" ivoffinc = 1; -#line 6862 "" +#line 6927 "" } -#line 6863 "" +#line 6928 "" if ((stemup && *nolev >= *ncm - 2 || ! stemup && * nolev <= *ncm + 2) && (i__2 = *ncm - *nolev, abs(i__2)) % 2 == 0) { -#line 6863 "" +#line 6928 "" ivoffinc <<= 1; -#line 6863 "" +#line 6928 "" } -#line 6866 "" +#line 6931 "" } -#line 6867 "" +#line 6932 "" ivoff += ivoffinc; -#line 6868 "" +#line 6933 "" } -#line 6869 "" +#line 6934 "" i__2 = nolevs + iupdn + ivoff; -#line 6869 "" +#line 6934 "" notefq_(noteq, &lnoten, &i__2, ncm, (ftnlen)8); -#line 6870 "" +#line 6935 "" if (*(unsigned char *)slurudq == 'u' && (! bit_test(isdat2[ isdat],0) || nolevs == comtrill_1.maxlev)) { -#line 6872 "" +#line 6937 "" *islhgt = nolevs + iupdn + ivoff; /* If topvoice, upslur, and idcode checks, no more need to keep hgt for barno. */ -#line 6876 "" +#line 6941 "" if (commvl_1.ivx == commvl_1.ivmx[*nv + commvl_1.nvmx[*nv - 1] * 24 - 25] && comsln_1.is1n1 > 0) { -#line 6877 "" +#line 6942 "" if (idcode == comsln_1.is2n1) { -#line 6877 "" +#line 6942 "" comsln_1.is1n1 = 0; -#line 6877 "" +#line 6942 "" } -#line 6878 "" +#line 6943 "" } -#line 6879 "" +#line 6944 "" } /* Writing concatenation */ -#line 6880 "" +#line 6945 "" i__5[0] = lnote, a__3[0] = notexq; -#line 6880 "" +#line 6945 "" i__5[1] = lnoten, a__3[1] = noteq; -#line 6880 "" +#line 6945 "" s_cat(notexq, a__3, i__5, &c__2, (ftnlen)79); -#line 6881 "" +#line 6946 "" lnote += lnoten; -#line 6882 "" +#line 6947 "" if (ihoff != 0) { -#line 6883 "" +#line 6948 "" shift = ihoff * .1f; /* Writing concatenation */ -#line 6884 "" +#line 6949 "" i__5[0] = lnote, a__3[0] = notexq; -#line 6884 "" +#line 6949 "" i__5[1] = 1, a__3[1] = "{"; -#line 6884 "" +#line 6949 "" s_cat(notexq, a__3, i__5, &c__2, (ftnlen)79); -#line 6885 "" +#line 6950 "" ++lnote; -#line 6886 "" +#line 6951 "" lform = lfmt1_(&shift); -#line 6887 "" +#line 6952 "" i__2 = lnote; -#line 6887 "" +#line 6952 "" ici__1.icierr = 0; -#line 6887 "" +#line 6952 "" ici__1.icirnum = 1; -#line 6887 "" +#line 6952 "" ici__1.icirlen = lnote + lform - i__2; -#line 6887 "" +#line 6952 "" ici__1.iciunit = notexq + i__2; /* Writing concatenation */ -#line 6887 "" +#line 6952 "" i__3[0] = 2, a__1[0] = "(f"; -#line 6887 "" +#line 6952 "" i__6 = lform + 48; -#line 6887 "" +#line 6952 "" chax_(ch__1, (ftnlen)1, &i__6); -#line 6887 "" +#line 6952 "" i__3[1] = 1, a__1[1] = ch__1; -#line 6887 "" +#line 6952 "" i__3[2] = 3, a__1[2] = ".1)"; -#line 6887 "" +#line 6952 "" ici__1.icifmt = (s_cat(ch__3, a__1, i__3, &c__3, (ftnlen) 6), ch__3); -#line 6887 "" +#line 6952 "" s_wsfi(&ici__1); -#line 6887 "" +#line 6952 "" do_fio(&c__1, (char *)&shift, (ftnlen)sizeof(real)); -#line 6887 "" +#line 6952 "" e_wsfi(); -#line 6889 "" +#line 6954 "" lnote += lform; /* Writing concatenation */ -#line 6890 "" +#line 6955 "" i__5[0] = lnote, a__3[0] = notexq; -#line 6890 "" +#line 6955 "" i__5[1] = 1, a__3[1] = "}"; -#line 6890 "" +#line 6955 "" s_cat(notexq, a__3, i__5, &c__2, (ftnlen)79); -#line 6891 "" +#line 6956 "" ++lnote; -#line 6892 "" +#line 6957 "" } -#line 6893 "" +#line 6958 "" addstr_(notexq, &lnote, soutq, lsout, (ftnlen)79, (ftnlen)80); /* Clear the bit from list of slurs in use */ -#line 6897 "" +#line 6962 "" comslur_1.listslur = bit_clear(comslur_1.listslur, comslur_1.ndxslur); /* Zero out the entire strings for start and stop */ -#line 6901 "" +#line 6966 "" isdata = 0; -#line 6902 "" +#line 6967 "" isdat2[isdat] = 0; -#line 6903 "" +#line 6968 "" isdat3[isdat] = 0; -#line 6904 "" +#line 6969 "" isdat4[isdat] = 0; -#line 6905 "" +#line 6970 "" isdat1[j] = 0; -#line 6906 "" +#line 6971 "" isdat2[j] = 0; -#line 6907 "" +#line 6972 "" isdat3[j] = 0; -#line 6908 "" +#line 6973 "" isdat4[j] = 0; /* Set midi info for slur ending */ -#line 6912 "" +#line 6977 "" if (commidi_1.ismidi && (idcode == 32 || idcode == 1)) { -#line 6913 "" +#line 6978 "" icm = commidi_1.midchan[*iv + *kv * 24 - 25]; -#line 6914 "" +#line 6979 "" if (comslm_1.slmon[icm]) { -/* if (nolevs.eq.levson(icm) .and. iand(7,nacc).eq.0) then */ -/* 130316 */ -/* if (nolevs-iTransAmt(instno(iv)).eq.levson(icm) .and. */ -#line 6918 "" +#line 6980 "" if (nolevs + commvel_1.miditran[cominsttrans_1.instno[ *iv - 1] - 1] == comslm_1.levson[icm] && (7 & *nacc) == 0) { /* There is a tie here. NB!!! assumed no accidental on 2nd member of tie. */ -/* levsoff(icm) = nolevs */ -/* 130316 */ -/* levsoff(icm) = nolevs-iTransAmt(instno(iv)) */ -#line 6926 "" +#line 6985 "" comslm_1.levsoff[icm] = nolevs + commvel_1.miditran[cominsttrans_1.instno[* iv - 1] - 1]; -#line 6927 "" +#line 6986 "" settie = TRUE_; -#line 6928 "" +#line 6987 "" } else { -#line 6929 "" +#line 6988 "" comslm_1.levsoff[icm] = 0; -#line 6930 "" +#line 6989 "" comslm_1.levson[icm] = 0; -#line 6931 "" +#line 6990 "" comslm_1.slmon[icm] = FALSE_; -#line 6932 "" +#line 6991 "" } -#line 6933 "" +#line 6992 "" } -#line 6934 "" +#line 6993 "" } -#line 6935 "" +#line 6994 "" } -#line 6936 "" +#line 6995 "" isdat1[isdat] = isdata; -#line 6937 "" +#line 6996 "" } -#line 6938 "" +#line 6997 "" /* L1: */ -#line 6938 "" +#line 6997 "" } /* Clear and collapse the slur data list */ -#line 6942 "" +#line 7001 "" numdrop = 0; -#line 6943 "" +#line 7002 "" i__1 = *nsdat; -#line 6943 "" +#line 7002 "" for (isdat = 1; isdat <= i__1; ++isdat) { -#line 6944 "" +#line 7003 "" if (isdat1[isdat] == 0) { -#line 6945 "" +#line 7004 "" ++numdrop; -#line 6946 "" +#line 7005 "" } else if (numdrop > 0) { -#line 6947 "" +#line 7006 "" isdat1[isdat - numdrop] = isdat1[isdat]; -#line 6948 "" +#line 7007 "" isdat2[isdat - numdrop] = isdat2[isdat]; -#line 6949 "" +#line 7008 "" isdat3[isdat - numdrop] = isdat3[isdat]; -#line 6950 "" +#line 7009 "" isdat4[isdat - numdrop] = isdat4[isdat]; -#line 6951 "" +#line 7010 "" isdat1[isdat] = 0; -#line 6952 "" +#line 7011 "" isdat2[isdat] = 0; -#line 6953 "" +#line 7012 "" isdat3[isdat] = 0; -#line 6954 "" +#line 7013 "" isdat4[isdat] = 0; -#line 6955 "" +#line 7014 "" } -#line 6956 "" +#line 7015 "" /* L2: */ -#line 6956 "" +#line 7015 "" } -#line 6957 "" +#line 7016 "" *nsdat -= numdrop; /* call report(nsdat,isdat1,isdat2) */ -#line 6959 "" +#line 7018 "" return 0; } /* dopsslur_ */ @@ -17031,11 +17109,11 @@ L4: static char slurudq[1]; /* Fortran I/O blocks */ - static cilist io___505 = { 0, 6, 0, 0, 0 }; - static cilist io___507 = { 0, 6, 0, 0, 0 }; static cilist io___508 = { 0, 6, 0, 0, 0 }; - static cilist io___509 = { 0, 15, 0, "(/,a)", 0 }; - static cilist io___517 = { 0, 6, 0, 0, 0 }; + static cilist io___510 = { 0, 6, 0, 0, 0 }; + static cilist io___511 = { 0, 6, 0, 0, 0 }; + static cilist io___512 = { 0, 15, 0, "(/,a)", 0 }; + static cilist io___520 = { 0, 6, 0, 0, 0 }; @@ -17079,129 +17157,129 @@ L4: /* If highest note has upslur, save slur height in islhgt in case */ /* ornament must be moved. */ -#line 7037 "" +#line 7096 "" /* Parameter adjustments */ -#line 7037 "" +#line 7096 "" --isdat3; -#line 7037 "" +#line 7096 "" --isdat2; -#line 7037 "" +#line 7096 "" --isdat1; -#line 7037 "" +#line 7096 "" -#line 7037 "" +#line 7096 "" /* Function Body */ -#line 7037 "" +#line 7096 "" *islhgt = 0; -#line 7038 "" +#line 7097 "" if (*beamon) { -#line 7039 "" +#line 7098 "" stemup = *(unsigned char *)ulq == 'u'; -#line 7040 "" +#line 7099 "" } else if (commvl_1.nvmx[*iv - 1] == 2) { -#line 7041 "" +#line 7100 "" if (! bit_test(*islur,30)) { /* Single note, 2 lines of music, stem direction not forced */ -#line 7045 "" +#line 7104 "" stemup = commvl_1.ivx > *nv; -#line 7046 "" +#line 7105 "" } else { -#line 7047 "" +#line 7106 "" stemup = bit_test(*islur,17); -#line 7048 "" +#line 7107 "" } -#line 7049 "" +#line 7108 "" } else { -#line 7050 "" +#line 7109 "" udqq_(ch__1, (ftnlen)1, nolev, ncm, islur, &commvl_1.nvmx[*iv - 1], & commvl_1.ivx, nv); -#line 7050 "" +#line 7109 "" stemup = *(unsigned char *)&ch__1[0] == 'u'; -#line 7051 "" +#line 7110 "" } -#line 7052 "" +#line 7111 "" iscrd = bit_test(*ipl,10); -#line 7053 "" +#line 7112 "" if (bit_test(*islur,1)) { /* 't'-slur (idcode=1) somewhere on this note. Find it, check height against */ /* 's'-slur (idcode=32) */ -#line 7058 "" +#line 7117 "" sfound = FALSE_; -#line 7059 "" +#line 7118 "" tfound = FALSE_; -#line 7060 "" +#line 7119 "" tmove = FALSE_; -#line 7061 "" +#line 7120 "" i__1 = *nsdat; -#line 7061 "" +#line 7120 "" for (isdat = 1; isdat <= i__1; ++isdat) { -#line 7062 "" +#line 7121 "" if (*iv == igetbits_(&isdat1[isdat], &c__5, &c__13) && *ip == igetbits_(&isdat1[isdat], &c__8, &c__3) && *kv == igetbits_(&isdat1[isdat], &c__1, &c__12) + 1) { -#line 7065 "" +#line 7124 "" if (! tfound) { -#line 7066 "" +#line 7125 "" tfound = igetbits_(&isdat1[isdat], &c__7, &c__19) == 1; -#line 7067 "" +#line 7126 "" if (tfound) { -#line 7068 "" +#line 7127 "" nolevt = igetbits_(&isdat2[isdat], &c__7, &c__19); -#line 7069 "" +#line 7128 "" isdatt = isdat; -#line 7070 "" +#line 7129 "" if (sfound) { -#line 7070 "" +#line 7129 "" goto L6; -#line 7070 "" +#line 7129 "" } -#line 7071 "" +#line 7130 "" } -#line 7072 "" +#line 7131 "" } -#line 7073 "" +#line 7132 "" if (! sfound) { -#line 7074 "" +#line 7133 "" sfound = igetbits_(&isdat1[isdat], &c__7, &c__19) == 32; -#line 7075 "" +#line 7134 "" if (sfound) { -#line 7076 "" +#line 7135 "" nolevs = igetbits_(&isdat2[isdat], &c__7, &c__19); -#line 7077 "" +#line 7136 "" isdats = isdat; -#line 7078 "" +#line 7137 "" if (tfound) { -#line 7078 "" +#line 7137 "" goto L6; -#line 7078 "" +#line 7137 "" } -#line 7079 "" +#line 7138 "" } -#line 7080 "" +#line 7139 "" } -#line 7081 "" +#line 7140 "" } -#line 7082 "" +#line 7141 "" /* L5: */ -#line 7082 "" +#line 7141 "" } /* Will come thru here if there is a t with no s, so comment out the following */ /* print*,'Did not find s+t-slurs in doslur' */ -#line 7087 "" +#line 7146 "" L6: -#line 7088 "" +#line 7147 "" if (sfound && tfound) { -#line 7088 "" +#line 7147 "" tmove = nolevs == nolevt && (bit_test(isdat1[isdats],11) && bit_test(isdat1[isdatt],11) || ! bit_test(isdat1[isdats], 11) && ! bit_test(isdat1[isdatt],11)); -#line 7088 "" +#line 7147 "" } /* Check if 2 starts or two stops */ @@ -17209,229 +17287,229 @@ L6: /* This is a flag for later changing slur level, after we know slur dir'n. */ -#line 7099 "" +#line 7158 "" } -#line 7100 "" +#line 7159 "" if (commidi_1.ismidi) { -#line 7101 "" +#line 7160 "" settie = FALSE_; -#line 7102 "" +#line 7161 "" comslm_1.dbltie = FALSE_; -#line 7103 "" +#line 7162 "" } -#line 7104 "" +#line 7163 "" i__1 = *nsdat; -#line 7104 "" +#line 7163 "" for (isdat = 1; isdat <= i__1; ++isdat) { -#line 7105 "" +#line 7164 "" isdata = isdat1[isdat]; -#line 7106 "" +#line 7165 "" if (*iv == igetbits_(&isdata, &c__5, &c__13) && *ip == igetbits_(& isdata, &c__8, &c__3) && *kv == igetbits_(&isdata, &c__1, & c__12) + 1) { /* Since iv and kv match, ivx will be correct */ -#line 7112 "" +#line 7171 "" idcode = igetbits_(&isdata, &c__7, &c__19); -#line 7113 "" +#line 7172 "" ivoff = igetbits_(&isdat2[isdat], &c__6, &c__6) - 32; -#line 7114 "" +#line 7173 "" ihoff = igetbits_(&isdat2[isdat], &c__7, &c__12) - 64; -#line 7115 "" +#line 7174 "" iupdn = 0; -#line 7116 "" +#line 7175 "" *(unsigned char *)slurudq = 'd'; -#line 7117 "" +#line 7176 "" nolevs = igetbits_(&isdat2[isdat], &c__7, &c__19); -#line 7118 "" +#line 7177 "" if (bit_test(isdata,11)) { /* Turnon, */ -#line 7122 "" +#line 7181 "" if (nolevs == 0 || nolevs > 60) { /* Note was a rest, cannot start slur on rest. */ -#line 7126 "" - s_wsle(&io___505); -#line 7126 "" +#line 7185 "" + s_wsle(&io___508); +#line 7185 "" e_wsle(); -#line 7127 "" +#line 7186 "" printl_("Cannot start slur on a rest", (ftnlen)27); -#line 7128 "" +#line 7187 "" stop1_(); -#line 7129 "" +#line 7188 "" } /* Get slur direction */ -#line 7133 "" +#line 7192 "" if (bit_test(isdata,26)) { /* Force slur direction */ -#line 7137 "" +#line 7196 "" if (bit_test(isdata,27)) { -#line 7137 "" +#line 7196 "" *(unsigned char *)slurudq = 'u'; -#line 7137 "" +#line 7196 "" } -#line 7138 "" +#line 7197 "" } else if (commvl_1.nvmx[*iv - 1] == 1) { /* Only one voice per line */ -#line 7142 "" +#line 7201 "" if (! (*beamon)) { /* Separate note. */ -#line 7146 "" +#line 7205 "" udfq_(ch__1, (ftnlen)1, nolev, ncm); -#line 7146 "" +#line 7205 "" *(unsigned char *)slurudq = *(unsigned char *)&ch__1[ 0]; -#line 7147 "" +#line 7206 "" } else { /* In a beam */ -#line 7151 "" +#line 7210 "" if (*(unsigned char *)ulq != 'u') { -#line 7151 "" +#line 7210 "" *(unsigned char *)slurudq = 'u'; -#line 7151 "" +#line 7210 "" } -#line 7152 "" +#line 7211 "" } -#line 7153 "" +#line 7212 "" if (iscrd) { -#line 7154 "" +#line 7213 "" if (nolevs > *ncm) { -#line 7155 "" +#line 7214 "" *(unsigned char *)slurudq = 'u'; -#line 7156 "" +#line 7215 "" } else { -#line 7157 "" +#line 7216 "" *(unsigned char *)slurudq = 'd'; -#line 7158 "" +#line 7217 "" } -#line 7159 "" +#line 7218 "" } -#line 7160 "" +#line 7219 "" } else { /* Two voices per line. Get default */ -#line 7164 "" +#line 7223 "" if (commvl_1.ivx > *nv) { -#line 7164 "" +#line 7223 "" *(unsigned char *)slurudq = 'u'; -#line 7164 "" +#line 7223 "" } /* Upper voice of the two, so up slur */ -#line 7168 "" +#line 7227 "" } /* Save up/down-ness for use at termination */ -#line 7172 "" +#line 7231 "" if (*(unsigned char *)slurudq == 'u') { -#line 7172 "" +#line 7231 "" isdata = bit_set(isdata,27); -#line 7172 "" +#line 7231 "" } /* End of section for setting slur direction, still in "Turnon" if-block. */ -#line 7176 "" +#line 7235 "" if (idcode == 1 && tmove) { -#line 7177 "" +#line 7236 "" iupdn = 1; -#line 7178 "" +#line 7237 "" if (*(unsigned char *)slurudq == 'd') { -#line 7178 "" +#line 7237 "" iupdn = -1; -#line 7178 "" +#line 7237 "" } -#line 7179 "" +#line 7238 "" } -#line 7180 "" +#line 7239 "" if (bit_test(*iornq,11) || bit_test(*iornq,12)) { /* Raise or lower slur by one unit provided . or _ is on same side as slur */ -#line 7184 "" +#line 7243 "" ivoffinc = 0; -#line 7185 "" +#line 7244 "" if (stemup && *(unsigned char *)slurudq == 'd' || ! stemup && *(unsigned char *)slurudq == 'u') { /* Must move the slur for _ or . */ -#line 7190 "" +#line 7249 "" if (stemup) { -#line 7191 "" +#line 7250 "" ivoffinc = -1; -#line 7192 "" +#line 7251 "" } else { -#line 7193 "" +#line 7252 "" ivoffinc = 1; -#line 7194 "" +#line 7253 "" } -#line 7195 "" +#line 7254 "" if ((stemup && *nolev >= *ncm - 2 || ! stemup && * nolev <= *ncm + 2) && (i__2 = *ncm - *nolev, abs(i__2)) % 2 == 0) { -#line 7195 "" +#line 7254 "" ivoffinc <<= 1; -#line 7195 "" +#line 7254 "" } -#line 7198 "" +#line 7257 "" ivoff += ivoffinc; -#line 7199 "" +#line 7258 "" } -#line 7200 "" +#line 7259 "" } -#line 7201 "" +#line 7260 "" if (comslur_1.listslur == 16777215) { -#line 7202 "" - s_wsle(&io___507); -#line 7202 "" +#line 7261 "" + s_wsle(&io___510); +#line 7261 "" e_wsle(); -#line 7203 "" - s_wsle(&io___508); -#line 7203 "" +#line 7262 "" + s_wsle(&io___511); +#line 7262 "" do_lio(&c__9, &c__1, "You1 defined the twenty-fifth slur"\ ", one too many!", (ftnlen)49); -#line 7203 "" +#line 7262 "" e_wsle(); -#line 7204 "" - s_wsfe(&io___509); -#line 7204 "" +#line 7263 "" + s_wsfe(&io___512); +#line 7263 "" do_fio(&c__1, "You2 defined the twenty-fifth slur, one t"\ "oo many!", (ftnlen)49); -#line 7204 "" +#line 7263 "" e_wsfe(); -#line 7206 "" +#line 7265 "" stop1_(); -#line 7207 "" +#line 7266 "" } /* Get index of next slur not in use, starting from ? down */ -#line 7211 "" +#line 7270 "" i__2 = 16777215 - comslur_1.listslur; -#line 7211 "" +#line 7270 "" comslur_1.ndxslur = log2_(&i__2); /* Record slur index */ -#line 7215 "" +#line 7274 "" comslur_1.listslur = bit_set(comslur_1.listslur, comslur_1.ndxslur); @@ -17439,149 +17517,149 @@ L6: /* call setbits(isdata,4,28,ndxslur) */ /* 080531 Allow >16 slurs */ -#line 7221 "" +#line 7280 "" i__2 = comslur_1.ndxslur % 16; -#line 7221 "" +#line 7280 "" setbits_(&isdata, &c__4, &c__28, &i__2); -#line 7222 "" +#line 7281 "" i__2 = comslur_1.ndxslur / 16; -#line 7222 "" +#line 7281 "" setbits_(&isdata, &c__1, &c__18, &i__2); /* Shift for stem? */ -#line 7226 "" +#line 7285 "" if (stemup && *(unsigned char *)slurudq == 'u' && *tno < 63.f) { -#line 7226 "" +#line 7285 "" ihoff += 8; -#line 7226 "" +#line 7285 "" } -#line 7228 "" +#line 7287 "" if (bit_test(isdat2[isdat],3)) { /* Tie spacing, (slur start) */ -#line 7232 "" +#line 7291 "" if (*(unsigned char *)slurudq == 'd') { -#line 7233 "" +#line 7292 "" ++ivoff; -#line 7234 "" +#line 7293 "" ihoff += 8; -#line 7235 "" +#line 7294 "" } else if (*(unsigned char *)slurudq == 'u') { -#line 7236 "" +#line 7295 "" --ivoff; -#line 7237 "" +#line 7296 "" if (! (stemup && *tno < 63.f)) { -#line 7237 "" +#line 7296 "" ihoff += 8; -#line 7237 "" +#line 7296 "" } /* (already shifted if (stemup.and.tno.gt.63.) and slurudq='u') */ -#line 7241 "" +#line 7300 "" } -#line 7242 "" +#line 7301 "" } -#line 7243 "" +#line 7302 "" if (iscrd) { /* Additional horiz shifts for h-shifted noteheads? */ -#line 7247 "" +#line 7306 "" if (bit_test(isdat2[isdat],1)) { /* Slur start on left-shifted chord notehead. ASSUME downstem. */ -#line 7251 "" +#line 7310 "" if (nolevs == comtrill_1.minlev && *(unsigned char *) slurudq == 'd') { -#line 7252 "" +#line 7311 "" ihoff += -2; -#line 7253 "" +#line 7312 "" } else { -#line 7254 "" +#line 7313 "" ihoff += -10; -#line 7255 "" +#line 7314 "" } -#line 7256 "" +#line 7315 "" } else if (bit_test(isdat2[isdat],2)) { /* Right shifted chord notehead. ASSUME upstem. */ -#line 7260 "" +#line 7319 "" if (nolevs == comtrill_1.maxlev && *(unsigned char *) slurudq == 'u') { -#line 7261 "" +#line 7320 "" ihoff += 2; -#line 7262 "" +#line 7321 "" } else { -#line 7263 "" +#line 7322 "" ihoff += 10; -#line 7264 "" +#line 7323 "" } -#line 7265 "" +#line 7324 "" } -#line 7266 "" +#line 7325 "" } -#line 7267 "" +#line 7326 "" if (ihoff == 0) { /* Write stuff for non-shifted start */ /* Writing concatenation */ -#line 7271 "" +#line 7330 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 7271 "" +#line 7330 "" i__3[0] = 1, a__1[0] = ch__1; -#line 7271 "" +#line 7330 "" i__3[1] = 5, a__1[1] = "islur"; -#line 7271 "" +#line 7330 "" i__3[2] = 1, a__1[2] = slurudq; -#line 7271 "" +#line 7330 "" s_cat(notexq, a__1, i__3, &c__3, (ftnlen)79); -#line 7272 "" +#line 7331 "" lnote = 7; -#line 7273 "" +#line 7332 "" } else { /* Writing concatenation */ -#line 7274 "" +#line 7333 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 7274 "" +#line 7333 "" i__3[0] = 1, a__1[0] = ch__1; -#line 7274 "" +#line 7333 "" i__3[1] = 2, a__1[1] = "is"; -#line 7274 "" +#line 7333 "" i__3[2] = 1, a__1[2] = slurudq; -#line 7274 "" +#line 7333 "" s_cat(notexq, a__1, i__3, &c__3, (ftnlen)79); -#line 7275 "" +#line 7334 "" lnote = 4; -#line 7276 "" +#line 7335 "" } -#line 7277 "" +#line 7336 "" if (bit_test(isdat2[isdat],4)) { /* Dotted slur */ -#line 7281 "" +#line 7340 "" s_copy(noteq, notexq, (ftnlen)8, (ftnlen)79); /* Writing concatenation */ -#line 7282 "" +#line 7341 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 7282 "" +#line 7341 "" i__3[0] = 1, a__1[0] = ch__1; -#line 7282 "" +#line 7341 "" i__3[1] = 6, a__1[1] = "dotted"; -#line 7282 "" +#line 7341 "" i__3[2] = 8, a__1[2] = noteq; -#line 7282 "" +#line 7341 "" s_cat(notexq, a__1, i__3, &c__3, (ftnlen)79); -#line 7283 "" +#line 7342 "" lnote += 7; -#line 7284 "" +#line 7343 "" } /* Add slur index to string */ @@ -17589,253 +17667,250 @@ L6: /* Print 23-ndxslur */ /* if (11-ndxslur .lt. 10) then */ -#line 7291 "" +#line 7350 "" if (23 - comslur_1.ndxslur < 10) { /* 5/25/08 Allow 24 slurs */ /* notexq = notexq(1:lnote)//chax(59-ndxslur) */ /* Writing concatenation */ -#line 7296 "" +#line 7355 "" i__4[0] = lnote, a__2[0] = notexq; -#line 7296 "" +#line 7355 "" i__2 = 71 - comslur_1.ndxslur; -#line 7296 "" +#line 7355 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 7296 "" +#line 7355 "" i__4[1] = 1, a__2[1] = ch__1; -#line 7296 "" +#line 7355 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 7297 "" +#line 7356 "" ++lnote; -#line 7298 "" +#line 7357 "" } else if (23 - comslur_1.ndxslur < 20) { /* notexq = notexq(1:lnote)//'{1'//chax(49-ndxslur)//'}' */ /* Writing concatenation */ -#line 7300 "" +#line 7359 "" i__5[0] = lnote, a__3[0] = notexq; -#line 7300 "" +#line 7359 "" i__5[1] = 2, a__3[1] = "{1"; -#line 7300 "" +#line 7359 "" i__2 = 61 - comslur_1.ndxslur; -#line 7300 "" +#line 7359 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 7300 "" +#line 7359 "" i__5[2] = 1, a__3[2] = ch__1; -#line 7300 "" +#line 7359 "" i__5[3] = 1, a__3[3] = "}"; -#line 7300 "" +#line 7359 "" s_cat(notexq, a__3, i__5, &c__4, (ftnlen)79); -#line 7301 "" +#line 7360 "" lnote += 4; -#line 7302 "" +#line 7361 "" } else { /* Writing concatenation */ -#line 7303 "" +#line 7362 "" i__5[0] = lnote, a__3[0] = notexq; -#line 7303 "" +#line 7362 "" i__5[1] = 2, a__3[1] = "{2"; -#line 7303 "" +#line 7362 "" i__2 = 51 - comslur_1.ndxslur; -#line 7303 "" +#line 7362 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 7303 "" +#line 7362 "" i__5[2] = 1, a__3[2] = ch__1; -#line 7303 "" +#line 7362 "" i__5[3] = 1, a__3[3] = "}"; -#line 7303 "" +#line 7362 "" s_cat(notexq, a__3, i__5, &c__4, (ftnlen)79); -#line 7304 "" +#line 7363 "" lnote += 4; -#line 7305 "" +#line 7364 "" } /* Add note name to string */ -#line 7309 "" +#line 7368 "" i__2 = nolevs + iupdn + ivoff; -#line 7309 "" +#line 7368 "" notefq_(noteq, &lnoten, &i__2, ncm, (ftnlen)8); /* Writing concatenation */ -#line 7310 "" +#line 7369 "" i__4[0] = lnote, a__2[0] = notexq; -#line 7310 "" +#line 7369 "" i__4[1] = lnoten, a__2[1] = noteq; -#line 7310 "" +#line 7369 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 7311 "" +#line 7370 "" lnote += lnoten; /* Save height (for ornament and barnobox interference) if topmost slur is up */ -#line 7315 "" +#line 7374 "" if (*(unsigned char *)slurudq == 'u' && (! bit_test(isdat2[ isdat],0) || nolevs == comtrill_1.maxlev)) { -#line 7317 "" +#line 7376 "" *islhgt = nolevs + iupdn + ivoff; /* Save height & idcode if top voice and slur start */ -#line 7321 "" +#line 7380 "" if (commvl_1.ivx == commvl_1.ivmx[*nv + commvl_1.nvmx[*nv - 1] * 24 - 25] && *islhgt > comsln_1.is1n1) { -#line 7322 "" +#line 7381 "" comsln_1.is1n1 = *islhgt; -#line 7323 "" +#line 7382 "" comsln_1.is2n1 = idcode; -#line 7324 "" +#line 7383 "" } -#line 7325 "" +#line 7384 "" } -#line 7326 "" +#line 7385 "" if ((real) ihoff != 0.f) { -#line 7327 "" +#line 7386 "" shift = ihoff * .1f; /* Writing concatenation */ -#line 7328 "" +#line 7387 "" i__4[0] = lnote, a__2[0] = notexq; -#line 7328 "" +#line 7387 "" i__4[1] = 1, a__2[1] = "{"; -#line 7328 "" +#line 7387 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 7329 "" +#line 7388 "" ++lnote; -#line 7330 "" +#line 7389 "" lform = lfmt1_(&shift); -#line 7331 "" +#line 7390 "" i__2 = lnote; -#line 7331 "" +#line 7390 "" ici__1.icierr = 0; -#line 7331 "" +#line 7390 "" ici__1.icirnum = 1; -#line 7331 "" +#line 7390 "" ici__1.icirlen = lnote + lform - i__2; -#line 7331 "" +#line 7390 "" ici__1.iciunit = notexq + i__2; /* Writing concatenation */ -#line 7331 "" +#line 7390 "" i__3[0] = 2, a__1[0] = "(f"; -#line 7331 "" +#line 7390 "" i__6 = lform + 48; -#line 7331 "" +#line 7390 "" chax_(ch__1, (ftnlen)1, &i__6); -#line 7331 "" +#line 7390 "" i__3[1] = 1, a__1[1] = ch__1; -#line 7331 "" +#line 7390 "" i__3[2] = 3, a__1[2] = ".1)"; -#line 7331 "" +#line 7390 "" ici__1.icifmt = (s_cat(ch__2, a__1, i__3, &c__3, (ftnlen) 6), ch__2); -#line 7331 "" +#line 7390 "" s_wsfi(&ici__1); -#line 7331 "" +#line 7390 "" do_fio(&c__1, (char *)&shift, (ftnlen)sizeof(real)); -#line 7331 "" +#line 7390 "" e_wsfi(); -#line 7333 "" +#line 7392 "" lnote += lform; /* Writing concatenation */ -#line 7334 "" +#line 7393 "" i__4[0] = lnote, a__2[0] = notexq; -#line 7334 "" +#line 7393 "" i__4[1] = 1, a__2[1] = "}"; -#line 7334 "" +#line 7393 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 7335 "" +#line 7394 "" ++lnote; -#line 7336 "" +#line 7395 "" } -#line 7337 "" +#line 7396 "" addstr_(notexq, &lnote, soutq, lsout, (ftnlen)79, (ftnlen)80); /* Zero out ip1 to avoid problems if slur goes to next input blk. */ -#line 7341 "" +#line 7400 "" setbits_(&isdata, &c__8, &c__3, &c__0); /* Set slur-on data for midi. Only treat null-index slurs and ps ties for now. */ -#line 7345 "" +#line 7404 "" if (commidi_1.ismidi && idcode == 32) { -/* levson(midchan(iv,kv)) = nolevs */ -/* 130316 */ -/* levson(midchan(iv,kv)) = nolevs-iTransAmt(instno(iv)) */ -#line 7349 "" +#line 7405 "" comslm_1.levson[commidi_1.midchan[*iv + *kv * 24 - 25]] = nolevs + commvel_1.miditran[cominsttrans_1.instno[ *iv - 1] - 1]; -#line 7350 "" +#line 7406 "" if (settie) { -#line 7350 "" +#line 7406 "" comslm_1.dbltie = TRUE_; -#line 7350 "" +#line 7406 "" } /* Only way settie=T is if we just set a tie ending. So there's also a slur */ /* start here, so set a flag telling addmidi not to zero out levson */ -#line 7355 "" +#line 7411 "" } -#line 7356 "" +#line 7412 "" } else { /* Slur is ending. Back thru list to find starting slur */ -#line 7360 "" +#line 7416 "" for (j = isdat - 1; j >= 1; --j) { -#line 7361 "" +#line 7417 "" if (*iv == igetbits_(&isdat1[j], &c__5, &c__13) && *kv == igetbits_(&isdat1[j], &c__1, &c__12) + 1) { -#line 7363 "" +#line 7419 "" if (idcode == igetbits_(&isdat1[j], &c__7, &c__19)) { -#line 7364 "" +#line 7420 "" comslur_1.ndxslur = igetbits_(&isdat1[j], &c__4, & c__28) + (igetbits_(&isdat1[j], &c__1, & c__18) << 4); /* 080531 Allow >16 slurs */ -#line 7369 "" +#line 7425 "" if (bit_test(isdat1[j],27)) { -#line 7369 "" +#line 7425 "" *(unsigned char *)slurudq = 'u'; -#line 7369 "" +#line 7425 "" } -#line 7370 "" +#line 7426 "" goto L4; -#line 7371 "" +#line 7427 "" } -#line 7372 "" +#line 7428 "" } -#line 7373 "" +#line 7429 "" /* L3: */ -#line 7373 "" +#line 7429 "" } -#line 7374 "" - s_wsle(&io___517); -#line 7374 "" +#line 7430 "" + s_wsle(&io___520); +#line 7430 "" do_lio(&c__9, &c__1, "Bad place in doslur", (ftnlen)19); -#line 7374 "" +#line 7430 "" e_wsle(); -#line 7375 "" +#line 7431 "" stop1_(); -#line 7376 "" +#line 7432 "" L4: -#line 7377 "" +#line 7433 "" if (nolevs == 0 || nolevs > 60) { /* Ending is on a rest, reset nolevs to default starting height */ -#line 7381 "" +#line 7437 "" nolevs = igetbits_(&isdat2[j], &c__7, &c__19); -#line 7382 "" +#line 7438 "" } -#line 7383 "" +#line 7439 "" if (bit_test(isdat3[isdat],0)) { /* Deal with \curve or \midslur */ -#line 7387 "" +#line 7443 "" imid = igetbits_(&isdat3[isdat], &c__6, &c__2) - 32; /* Remember, only dealing with non-ps slurs */ @@ -17845,604 +17920,598 @@ L4: /* if (slurudq .eq. 'd') imid = -imid */ /* 3/8/03 added the following */ -#line 7396 "" +#line 7452 "" if (*(unsigned char *)slurudq == 'd') { -#line 7396 "" +#line 7452 "" imid = -abs(imid); -#line 7396 "" +#line 7452 "" } -#line 7398 "" +#line 7454 "" if (bit_test(isdat3[isdat],1)) { /* Writing concatenation */ -#line 7399 "" +#line 7455 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 7399 "" +#line 7455 "" i__4[0] = 1, a__2[0] = ch__1; -#line 7399 "" +#line 7455 "" i__4[1] = 5, a__2[1] = "curve"; -#line 7399 "" +#line 7455 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 7400 "" +#line 7456 "" lnote = 6; -#line 7401 "" +#line 7457 "" } else { /* Writing concatenation */ -#line 7402 "" +#line 7458 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 7402 "" +#line 7458 "" i__4[0] = 1, a__2[0] = ch__1; -#line 7402 "" +#line 7458 "" i__4[1] = 7, a__2[1] = "midslur"; -#line 7402 "" +#line 7458 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 7403 "" +#line 7459 "" lnote = 8; -#line 7404 "" +#line 7460 "" } -#line 7405 "" +#line 7461 "" if (imid < 0 || imid > 9) { /* Need brackets */ /* Writing concatenation */ -#line 7409 "" +#line 7465 "" i__4[0] = lnote, a__2[0] = notexq; -#line 7409 "" +#line 7465 "" i__4[1] = 1, a__2[1] = "{"; -#line 7409 "" +#line 7465 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 7410 "" +#line 7466 "" ++lnote; -#line 7411 "" +#line 7467 "" if (imid < -9) { -#line 7412 "" +#line 7468 "" i__2 = lnote; -#line 7412 "" +#line 7468 "" ici__1.icierr = 0; -#line 7412 "" +#line 7468 "" ici__1.icirnum = 1; -#line 7412 "" +#line 7468 "" ici__1.icirlen = lnote + 3 - i__2; -#line 7412 "" +#line 7468 "" ici__1.iciunit = notexq + i__2; -#line 7412 "" +#line 7468 "" ici__1.icifmt = "(i3)"; -#line 7412 "" +#line 7468 "" s_wsfi(&ici__1); -#line 7412 "" +#line 7468 "" do_fio(&c__1, (char *)&imid, (ftnlen)sizeof( integer)); -#line 7412 "" +#line 7468 "" e_wsfi(); -#line 7413 "" +#line 7469 "" lnote += 3; -#line 7414 "" +#line 7470 "" } else if (imid < 0 || imid > 9) { -#line 7415 "" +#line 7471 "" i__2 = lnote; -#line 7415 "" +#line 7471 "" ici__1.icierr = 0; -#line 7415 "" +#line 7471 "" ici__1.icirnum = 1; -#line 7415 "" +#line 7471 "" ici__1.icirlen = lnote + 2 - i__2; -#line 7415 "" +#line 7471 "" ici__1.iciunit = notexq + i__2; -#line 7415 "" +#line 7471 "" ici__1.icifmt = "(i2)"; -#line 7415 "" +#line 7471 "" s_wsfi(&ici__1); -#line 7415 "" +#line 7471 "" do_fio(&c__1, (char *)&imid, (ftnlen)sizeof( integer)); -#line 7415 "" +#line 7471 "" e_wsfi(); -#line 7416 "" +#line 7472 "" lnote += 2; -#line 7417 "" +#line 7473 "" } else { -#line 7418 "" +#line 7474 "" i__2 = lnote; -#line 7418 "" +#line 7474 "" ici__1.icierr = 0; -#line 7418 "" +#line 7474 "" ici__1.icirnum = 1; -#line 7418 "" +#line 7474 "" ici__1.icirlen = lnote + 1 - i__2; -#line 7418 "" +#line 7474 "" ici__1.iciunit = notexq + i__2; -#line 7418 "" +#line 7474 "" ici__1.icifmt = "(i1)"; -#line 7418 "" +#line 7474 "" s_wsfi(&ici__1); -#line 7418 "" +#line 7474 "" do_fio(&c__1, (char *)&imid, (ftnlen)sizeof( integer)); -#line 7418 "" +#line 7474 "" e_wsfi(); -#line 7419 "" +#line 7475 "" ++lnote; -#line 7420 "" +#line 7476 "" } /* Writing concatenation */ -#line 7421 "" +#line 7477 "" i__4[0] = lnote, a__2[0] = notexq; -#line 7421 "" +#line 7477 "" i__4[1] = 1, a__2[1] = "}"; -#line 7421 "" +#line 7477 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 7422 "" +#line 7478 "" ++lnote; -#line 7423 "" +#line 7479 "" } else { /* 1=<imid=<9, no brackets */ /* Writing concatenation */ -#line 7427 "" +#line 7483 "" i__4[0] = lnote, a__2[0] = notexq; -#line 7427 "" +#line 7483 "" *(unsigned char *)&ch__1[0] = imid + 48; -#line 7427 "" +#line 7483 "" i__4[1] = 1, a__2[1] = ch__1; -#line 7427 "" +#line 7483 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 7428 "" +#line 7484 "" ++lnote; -#line 7429 "" +#line 7485 "" } -#line 7430 "" +#line 7486 "" if (bit_test(isdat3[isdat],1)) { /* \curve; 3 args */ /* Writing concatenation */ -#line 7434 "" +#line 7490 "" i__4[0] = lnote, a__2[0] = notexq; -#line 7434 "" +#line 7490 "" *(unsigned char *)&ch__1[0] = igetbits_(&isdat3[isdat] , &c__3, &c__8) + 48; -#line 7434 "" +#line 7490 "" i__4[1] = 1, a__2[1] = ch__1; -#line 7434 "" +#line 7490 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); /* Writing concatenation */ -#line 7436 "" +#line 7492 "" i__4[0] = lnote + 1, a__2[0] = notexq; -#line 7436 "" +#line 7492 "" *(unsigned char *)&ch__1[0] = igetbits_(&isdat3[isdat] , &c__3, &c__11) + 48; -#line 7436 "" +#line 7492 "" i__4[1] = 1, a__2[1] = ch__1; -#line 7436 "" +#line 7492 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 7438 "" +#line 7494 "" lnote += 2; -#line 7439 "" +#line 7495 "" } -#line 7440 "" +#line 7496 "" addstr_(notexq, &lnote, soutq, lsout, (ftnlen)79, (ftnlen) 80); -#line 7441 "" +#line 7497 "" } /* Shift slur ending for stem on any note? */ -#line 7445 "" +#line 7501 "" if (! stemup && *(unsigned char *)slurudq == 'd' && *tno < 63.f) { -#line 7445 "" +#line 7501 "" ihoff += -8; -#line 7445 "" +#line 7501 "" } -#line 7447 "" +#line 7503 "" if (bit_test(isdat2[isdat],3)) { /* Shift ending for tie spacing */ -#line 7451 "" +#line 7507 "" if (*(unsigned char *)slurudq == 'u') { -#line 7452 "" +#line 7508 "" ihoff += -8; -#line 7453 "" +#line 7509 "" --ivoff; -#line 7454 "" +#line 7510 "" } else if (*(unsigned char *)slurudq == 'd') { -#line 7455 "" +#line 7511 "" ++ivoff; -#line 7456 "" +#line 7512 "" if (stemup || *tno > 63.f) { -#line 7456 "" +#line 7512 "" ihoff += -8; -#line 7456 "" +#line 7512 "" } -#line 7457 "" +#line 7513 "" } -#line 7458 "" +#line 7514 "" } -#line 7459 "" +#line 7515 "" if (iscrd) { /* Shift termination for shifted notehead? */ -#line 7463 "" +#line 7519 "" if (bit_test(isdat2[isdat],1)) { /* Left-shifted chord notehead. ASSUME downstem. */ -#line 7467 "" +#line 7523 "" if (nolevs == comtrill_1.minlev && *(unsigned char *) slurudq == 'd') { -#line 7468 "" +#line 7524 "" ihoff += -2; -#line 7469 "" +#line 7525 "" } else { -#line 7470 "" +#line 7526 "" ihoff += -10; -#line 7471 "" +#line 7527 "" } -#line 7472 "" +#line 7528 "" } else if (bit_test(isdat2[isdat],2)) { /* Right shifted chord notehead. ASSUME upstem. */ -#line 7476 "" +#line 7532 "" if (nolevs == comtrill_1.maxlev && *(unsigned char *) slurudq == 'u') { -#line 7477 "" +#line 7533 "" ihoff += 2; -#line 7478 "" +#line 7534 "" } else { -#line 7479 "" +#line 7535 "" ihoff += 10; -#line 7480 "" +#line 7536 "" } -#line 7481 "" +#line 7537 "" } -#line 7482 "" +#line 7538 "" } -#line 7483 "" +#line 7539 "" if (ihoff == 0) { /* Writing concatenation */ -#line 7484 "" +#line 7540 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 7484 "" +#line 7540 "" i__4[0] = 1, a__2[0] = ch__1; -#line 7484 "" +#line 7540 "" i__4[1] = 5, a__2[1] = "tslur"; -#line 7484 "" +#line 7540 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 7485 "" +#line 7541 "" lnote = 6; -#line 7486 "" +#line 7542 "" } else { /* Shift needed */ /* Writing concatenation */ -#line 7490 "" +#line 7546 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 7490 "" +#line 7546 "" i__4[0] = 1, a__2[0] = ch__1; -#line 7490 "" +#line 7546 "" i__4[1] = 2, a__2[1] = "ts"; -#line 7490 "" +#line 7546 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 7491 "" +#line 7547 "" lnote = 3; -#line 7492 "" +#line 7548 "" } /* Print 23-ndxslur */ /* 5/25/08 Allow 14 slurs (???????????) */ -#line 7497 "" +#line 7553 "" if (23 - comslur_1.ndxslur < 10) { /* Writing concatenation */ -#line 7498 "" +#line 7554 "" i__4[0] = lnote, a__2[0] = notexq; -#line 7498 "" +#line 7554 "" i__2 = 71 - comslur_1.ndxslur; -#line 7498 "" +#line 7554 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 7498 "" +#line 7554 "" i__4[1] = 1, a__2[1] = ch__1; -#line 7498 "" +#line 7554 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 7499 "" +#line 7555 "" ++lnote; -#line 7500 "" +#line 7556 "" } else if (23 - comslur_1.ndxslur < 20) { /* Writing concatenation */ -#line 7501 "" +#line 7557 "" i__5[0] = lnote, a__3[0] = notexq; -#line 7501 "" +#line 7557 "" i__5[1] = 2, a__3[1] = "{1"; -#line 7501 "" +#line 7557 "" i__2 = 61 - comslur_1.ndxslur; -#line 7501 "" +#line 7557 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 7501 "" +#line 7557 "" i__5[2] = 1, a__3[2] = ch__1; -#line 7501 "" +#line 7557 "" i__5[3] = 1, a__3[3] = "}"; -#line 7501 "" +#line 7557 "" s_cat(notexq, a__3, i__5, &c__4, (ftnlen)79); -#line 7502 "" +#line 7558 "" lnote += 4; -#line 7503 "" +#line 7559 "" } else { /* Writing concatenation */ -#line 7504 "" +#line 7560 "" i__5[0] = lnote, a__3[0] = notexq; -#line 7504 "" +#line 7560 "" i__5[1] = 2, a__3[1] = "{2"; -#line 7504 "" +#line 7560 "" i__2 = 51 - comslur_1.ndxslur; -#line 7504 "" +#line 7560 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 7504 "" +#line 7560 "" i__5[2] = 1, a__3[2] = ch__1; -#line 7504 "" +#line 7560 "" i__5[3] = 1, a__3[3] = "}"; -#line 7504 "" +#line 7560 "" s_cat(notexq, a__3, i__5, &c__4, (ftnlen)79); -#line 7505 "" +#line 7561 "" lnote += 4; -#line 7506 "" +#line 7562 "" } -#line 7507 "" +#line 7563 "" if (bit_test(*iornq,11) || bit_test(*iornq,12)) { /* Raise or lower slur by one unit provided . or _ is on same side as slur */ -#line 7511 "" +#line 7567 "" ivoffinc = 0; -#line 7512 "" +#line 7568 "" if (stemup && *(unsigned char *)slurudq == 'd' || ! stemup && *(unsigned char *)slurudq == 'u') { -#line 7514 "" +#line 7570 "" if (stemup) { -#line 7515 "" +#line 7571 "" ivoffinc = -1; -#line 7516 "" +#line 7572 "" } else { -#line 7517 "" +#line 7573 "" ivoffinc = 1; -#line 7518 "" +#line 7574 "" } -#line 7519 "" +#line 7575 "" if ((stemup && *nolev >= *ncm - 2 || ! stemup && * nolev <= *ncm + 2) && (i__2 = *ncm - *nolev, abs(i__2)) % 2 == 0) { -#line 7519 "" +#line 7575 "" ivoffinc <<= 1; -#line 7519 "" +#line 7575 "" } -#line 7522 "" +#line 7578 "" } -#line 7523 "" +#line 7579 "" ivoff += ivoffinc; -#line 7524 "" +#line 7580 "" } -#line 7525 "" +#line 7581 "" if (idcode == 1 && tmove) { /* t-slur height adjustment */ -#line 7529 "" +#line 7585 "" iupdn = 1; -#line 7530 "" +#line 7586 "" if (*(unsigned char *)slurudq == 'd') { -#line 7530 "" +#line 7586 "" iupdn = -1; -#line 7530 "" +#line 7586 "" } -#line 7531 "" +#line 7587 "" } -#line 7532 "" +#line 7588 "" i__2 = nolevs + iupdn + ivoff; -#line 7532 "" +#line 7588 "" notefq_(noteq, &lnoten, &i__2, ncm, (ftnlen)8); -#line 7533 "" +#line 7589 "" if (*(unsigned char *)slurudq == 'u' && (! bit_test(isdat2[ isdat],0) || nolevs == comtrill_1.maxlev)) { -#line 7535 "" +#line 7591 "" *islhgt = nolevs + iupdn + ivoff; /* If topvoice, upslur, and idcode checks, no more need to keep hgt for barno. */ -#line 7539 "" +#line 7595 "" if (commvl_1.ivx == commvl_1.ivmx[*nv + commvl_1.nvmx[*nv - 1] * 24 - 25] && comsln_1.is1n1 > 0) { -#line 7540 "" +#line 7596 "" if (idcode == comsln_1.is2n1) { -#line 7540 "" +#line 7596 "" comsln_1.is1n1 = 0; -#line 7540 "" +#line 7596 "" } -#line 7541 "" +#line 7597 "" } -#line 7542 "" +#line 7598 "" } /* Writing concatenation */ -#line 7543 "" +#line 7599 "" i__4[0] = lnote, a__2[0] = notexq; -#line 7543 "" +#line 7599 "" i__4[1] = lnoten, a__2[1] = noteq; -#line 7543 "" +#line 7599 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 7544 "" +#line 7600 "" lnote += lnoten; -#line 7545 "" +#line 7601 "" if (ihoff != 0) { -#line 7546 "" +#line 7602 "" shift = ihoff * .1f; /* Writing concatenation */ -#line 7547 "" +#line 7603 "" i__4[0] = lnote, a__2[0] = notexq; -#line 7547 "" +#line 7603 "" i__4[1] = 1, a__2[1] = "{"; -#line 7547 "" +#line 7603 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 7548 "" +#line 7604 "" ++lnote; -#line 7549 "" +#line 7605 "" lform = lfmt1_(&shift); -#line 7550 "" +#line 7606 "" i__2 = lnote; -#line 7550 "" +#line 7606 "" ici__1.icierr = 0; -#line 7550 "" +#line 7606 "" ici__1.icirnum = 1; -#line 7550 "" +#line 7606 "" ici__1.icirlen = lnote + lform - i__2; -#line 7550 "" +#line 7606 "" ici__1.iciunit = notexq + i__2; /* Writing concatenation */ -#line 7550 "" +#line 7606 "" i__3[0] = 2, a__1[0] = "(f"; -#line 7550 "" +#line 7606 "" i__6 = lform + 48; -#line 7550 "" +#line 7606 "" chax_(ch__1, (ftnlen)1, &i__6); -#line 7550 "" +#line 7606 "" i__3[1] = 1, a__1[1] = ch__1; -#line 7550 "" +#line 7606 "" i__3[2] = 3, a__1[2] = ".1)"; -#line 7550 "" +#line 7606 "" ici__1.icifmt = (s_cat(ch__2, a__1, i__3, &c__3, (ftnlen) 6), ch__2); -#line 7550 "" +#line 7606 "" s_wsfi(&ici__1); -#line 7550 "" +#line 7606 "" do_fio(&c__1, (char *)&shift, (ftnlen)sizeof(real)); -#line 7550 "" +#line 7606 "" e_wsfi(); -#line 7552 "" +#line 7608 "" lnote += lform; /* Writing concatenation */ -#line 7553 "" +#line 7609 "" i__4[0] = lnote, a__2[0] = notexq; -#line 7553 "" +#line 7609 "" i__4[1] = 1, a__2[1] = "}"; -#line 7553 "" +#line 7609 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 7554 "" +#line 7610 "" ++lnote; -#line 7555 "" +#line 7611 "" } -#line 7556 "" +#line 7612 "" addstr_(notexq, &lnote, soutq, lsout, (ftnlen)79, (ftnlen)80); /* Clear the bit from list of slurs in use */ -#line 7560 "" +#line 7616 "" comslur_1.listslur = bit_clear(comslur_1.listslur, comslur_1.ndxslur); /* Zero out the entire strings for start and stop */ -#line 7564 "" +#line 7620 "" isdata = 0; -#line 7565 "" +#line 7621 "" isdat2[isdat] = 0; -#line 7566 "" +#line 7622 "" isdat1[j] = 0; -#line 7567 "" +#line 7623 "" isdat2[j] = 0; -#line 7568 "" +#line 7624 "" isdat3[isdat] = 0; /* Set midi info for slur ending */ -#line 7572 "" +#line 7628 "" if (commidi_1.ismidi && idcode == 32) { -#line 7573 "" +#line 7629 "" icm = commidi_1.midchan[*iv + *kv * 24 - 25]; -#line 7574 "" +#line 7630 "" if (comslm_1.slmon[icm]) { -/* if (nolevs.eq.levson(icm) .and. iand(7,nacc).eq.0) then */ -/* 130316 */ -/* if (nolevs-iTransAmt(instno(iv)).eq.levson(icm) .and. */ -#line 7578 "" +#line 7631 "" if (nolevs + commvel_1.miditran[cominsttrans_1.instno[ *iv - 1] - 1] == comslm_1.levson[icm] && (7 & *nacc) == 0) { /* There is a tie here. NB!!! assumed no accidental on 2nd member of tie. */ -/* levsoff(icm) = nolevs */ -/* 130316 */ -/* levsoff(icm) = nolevs-iTransAmt(instno(iv)) */ -#line 7586 "" +#line 7636 "" comslm_1.levsoff[icm] = nolevs + commvel_1.miditran[cominsttrans_1.instno[* iv - 1] - 1]; -#line 7587 "" +#line 7637 "" settie = TRUE_; -#line 7588 "" +#line 7638 "" } else { -#line 7589 "" +#line 7639 "" comslm_1.levsoff[icm] = 0; -#line 7590 "" +#line 7640 "" comslm_1.levson[icm] = 0; -#line 7591 "" +#line 7641 "" comslm_1.slmon[icm] = FALSE_; -#line 7592 "" +#line 7642 "" } -#line 7593 "" +#line 7643 "" } -#line 7594 "" +#line 7644 "" } -#line 7595 "" +#line 7645 "" } -#line 7596 "" +#line 7646 "" isdat1[isdat] = isdata; -#line 7597 "" +#line 7647 "" } -#line 7598 "" +#line 7648 "" /* L1: */ -#line 7598 "" +#line 7648 "" } /* Clear and collapse the slur data list */ -#line 7602 "" +#line 7652 "" numdrop = 0; -#line 7603 "" +#line 7653 "" i__1 = *nsdat; -#line 7603 "" +#line 7653 "" for (isdat = 1; isdat <= i__1; ++isdat) { -#line 7604 "" +#line 7654 "" if (isdat1[isdat] == 0) { -#line 7605 "" +#line 7655 "" ++numdrop; -#line 7606 "" +#line 7656 "" } else if (numdrop > 0) { -#line 7607 "" +#line 7657 "" isdat1[isdat - numdrop] = isdat1[isdat]; -#line 7608 "" +#line 7658 "" isdat2[isdat - numdrop] = isdat2[isdat]; -#line 7609 "" +#line 7659 "" isdat3[isdat - numdrop] = isdat3[isdat]; -#line 7610 "" +#line 7660 "" isdat1[isdat] = 0; -#line 7611 "" +#line 7661 "" isdat2[isdat] = 0; -#line 7612 "" +#line 7662 "" isdat3[isdat] = 0; -#line 7613 "" +#line 7663 "" } -#line 7614 "" +#line 7664 "" /* L2: */ -#line 7614 "" +#line 7664 "" } -#line 7615 "" +#line 7665 "" *nsdat -= numdrop; /* call report(nsdat,isdat1,isdat2) */ -#line 7617 "" +#line 7667 "" return 0; } /* doslur_ */ @@ -18473,102 +18542,102 @@ L4: /* iddot = 0 for single dot, 1 for double */ -#line 7625 "" +#line 7675 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 7625 "" +#line 7675 "" *(unsigned char *)sq = *(unsigned char *)&ch__1[0]; -#line 7626 "" +#line 7676 "" lfmtup = lfmt1_(updot); -#line 7627 "" +#line 7677 "" lfmtrt = lfmt1_(rtdot); -#line 7628 "" +#line 7678 "" ici__1.icierr = 0; -#line 7628 "" +#line 7678 "" ici__1.icirnum = 1; -#line 7628 "" +#line 7678 "" ici__1.icirlen = 80; -#line 7628 "" +#line 7678 "" ici__1.iciunit = notexq; /* Writing concatenation */ -#line 7628 "" +#line 7678 "" i__1[0] = 6, a__1[0] = "(a37,f"; -#line 7628 "" +#line 7678 "" i__2 = lfmtup + 48; -#line 7628 "" +#line 7678 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 7628 "" +#line 7678 "" i__1[1] = 1, a__1[1] = ch__1; -#line 7628 "" +#line 7678 "" i__1[2] = 7, a__1[2] = ".1,a2,f"; -#line 7628 "" +#line 7678 "" i__3 = lfmtrt + 48; -#line 7628 "" +#line 7678 "" chax_(ch__3, (ftnlen)1, &i__3); -#line 7628 "" +#line 7678 "" i__1[3] = 1, a__1[3] = ch__3; -#line 7628 "" +#line 7678 "" i__1[4] = 7, a__1[4] = ".1,a15)"; -#line 7628 "" +#line 7678 "" ici__1.icifmt = (s_cat(ch__2, a__1, i__1, &c__5, (ftnlen)22), ch__2); -#line 7628 "" +#line 7678 "" s_wsfi(&ici__1); /* Writing concatenation */ -#line 7628 "" +#line 7678 "" i__4[0] = 1, a__2[0] = sq; -#line 7628 "" +#line 7678 "" i__4[1] = 12, a__2[1] = "makeatletter"; -#line 7628 "" +#line 7678 "" i__4[2] = 1, a__2[2] = sq; -#line 7628 "" +#line 7678 "" i__4[3] = 3, a__2[3] = "def"; -#line 7628 "" +#line 7678 "" i__4[4] = 1, a__2[4] = sq; -#line 7628 "" +#line 7678 "" i__4[5] = 12, a__2[5] = "C@Point#1#2{"; -#line 7628 "" +#line 7678 "" i__4[6] = 1, a__2[6] = sq; -#line 7628 "" +#line 7678 "" i__4[7] = 6, a__2[7] = "PMXpt{"; -#line 7628 "" +#line 7678 "" s_cat(ch__4, a__2, i__4, &c__8, (ftnlen)37); -#line 7628 "" +#line 7678 "" do_fio(&c__1, ch__4, (ftnlen)37); -#line 7628 "" +#line 7678 "" do_fio(&c__1, (char *)&(*updot), (ftnlen)sizeof(real)); -#line 7628 "" +#line 7678 "" do_fio(&c__1, "}{", (ftnlen)2); -#line 7628 "" +#line 7678 "" do_fio(&c__1, (char *)&(*rtdot), (ftnlen)sizeof(real)); /* Writing concatenation */ -#line 7628 "" +#line 7678 "" i__5[0] = 1, a__3[0] = "}"; -#line 7628 "" +#line 7678 "" i__6 = *iddot + 48; -#line 7628 "" +#line 7678 "" chax_(ch__6, (ftnlen)1, &i__6); -#line 7628 "" +#line 7678 "" i__5[1] = 1, a__3[1] = ch__6; -#line 7628 "" +#line 7678 "" i__5[2] = 1, a__3[2] = "}"; -#line 7628 "" +#line 7678 "" i__5[3] = 1, a__3[3] = sq; -#line 7628 "" +#line 7678 "" i__5[4] = 11, a__3[4] = "makeatother"; -#line 7628 "" +#line 7678 "" s_cat(ch__5, a__3, i__5, &c__5, (ftnlen)15); -#line 7628 "" +#line 7678 "" do_fio(&c__1, ch__5, (ftnlen)15); -#line 7628 "" +#line 7678 "" e_wsfi(); /* Example of string just created: */ /* \makeatletter\def\C@Point#1#2{\PMXpt{.5}{.5}}\makeatother\ */ -#line 7637 "" +#line 7687 "" lnote = lfmtup + 54 + lfmtrt; -#line 7638 "" +#line 7688 "" addstr_(notexq, &lnote, soutq, lsout, lnote, (ftnlen)80); -#line 7639 "" +#line 7689 "" return 0; } /* dotmov_ */ @@ -18597,165 +18666,165 @@ L4: static logical tronly; /* Fortran I/O blocks */ - static cilist io___527 = { 0, 6, 0, 0, 0 }; + static cilist io___530 = { 0, 6, 0, 0, 0 }; -#line 7649 "" +#line 7699 "" i__1 = comtrill_1.ntrill; -#line 7649 "" +#line 7699 "" for (itr = 1; itr <= i__1; ++itr) { -#line 7650 "" +#line 7700 "" if (*iv == comtrill_1.ivtrill[itr - 1] && *ip == comtrill_1.iptrill[ itr - 1]) { -#line 7650 "" +#line 7700 "" goto L2; -#line 7650 "" +#line 7700 "" } -#line 7651 "" +#line 7701 "" /* L1: */ -#line 7651 "" +#line 7701 "" } -#line 7652 "" - s_wsle(&io___527); -#line 7652 "" +#line 7702 "" + s_wsle(&io___530); +#line 7702 "" do_lio(&c__9, &c__1, "Problem in dotrill. Call Dr. Don", (ftnlen)33); -#line 7652 "" +#line 7702 "" e_wsle(); -#line 7653 "" +#line 7703 "" s_stop("", (ftnlen)0); -#line 7654 "" +#line 7704 "" L2: -#line 7655 "" +#line 7705 "" tronly = comtrill_1.xnsktr[itr - 1] < .01f; -#line 7656 "" +#line 7706 "" if (tronly) { /* Writing concatenation */ -#line 7657 "" +#line 7707 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 7657 "" +#line 7707 "" i__2[0] = 1, a__1[0] = ch__1; -#line 7657 "" +#line 7707 "" i__2[1] = 9, a__1[1] = "zcharnote"; -#line 7657 "" +#line 7707 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 7658 "" +#line 7708 "" *lnote = 10; -#line 7659 "" +#line 7709 "" } else if (bit_test(*iornq,7)) { /* Writing concatenation */ -#line 7660 "" +#line 7710 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 7660 "" +#line 7710 "" i__2[0] = 1, a__1[0] = ch__1; -#line 7660 "" +#line 7710 "" i__2[1] = 6, a__1[1] = "Trille"; -#line 7660 "" +#line 7710 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 7661 "" +#line 7711 "" *lnote = 7; -#line 7662 "" +#line 7712 "" } else { /* Writing concatenation */ -#line 7663 "" +#line 7713 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 7663 "" +#line 7713 "" i__2[0] = 1, a__1[0] = ch__1; -#line 7663 "" +#line 7713 "" i__2[1] = 6, a__1[1] = "trille"; -#line 7663 "" +#line 7713 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 7664 "" +#line 7714 "" *lnote = 7; -#line 7665 "" +#line 7715 "" } /* Writing concatenation */ -#line 7666 "" +#line 7716 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 7666 "" +#line 7716 "" i__3[1] = *lnoten, a__2[1] = noteq; -#line 7666 "" +#line 7716 "" i__3[2] = 1, a__2[2] = "{"; -#line 7666 "" +#line 7716 "" s_cat(notexq, a__2, i__3, &c__3, (ftnlen)79); -#line 7667 "" +#line 7717 "" *lnote = *lnote + *lnoten + 1; /* Write trill duration to nearest tenth of a noteskip */ -#line 7671 "" +#line 7721 "" if (tronly) { /* Writing concatenation */ -#line 7672 "" +#line 7722 "" i__3[0] = *lnote, a__2[0] = notexq; -#line 7672 "" +#line 7722 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 7672 "" +#line 7722 "" i__3[1] = 1, a__2[1] = ch__1; -#line 7672 "" +#line 7722 "" i__3[2] = 6, a__2[2] = "it tr}"; -#line 7672 "" +#line 7722 "" s_cat(notexq, a__2, i__3, &c__3, (ftnlen)79); -#line 7673 "" +#line 7723 "" *lnote += 7; -#line 7674 "" +#line 7724 "" return 0; -#line 7675 "" +#line 7725 "" } -#line 7676 "" +#line 7726 "" if (comtrill_1.xnsktr[itr - 1] < .95f) { -#line 7677 "" +#line 7727 "" nfmt = 2; -#line 7678 "" +#line 7728 "" } else if (comtrill_1.xnsktr[itr - 1] < 9.95f) { -#line 7679 "" +#line 7729 "" nfmt = 3; -#line 7680 "" +#line 7730 "" } else { -#line 7681 "" +#line 7731 "" nfmt = 4; -#line 7682 "" +#line 7732 "" } -#line 7683 "" +#line 7733 "" i__1 = *lnote; -#line 7683 "" +#line 7733 "" ici__1.icierr = 0; -#line 7683 "" +#line 7733 "" ici__1.icirnum = 1; -#line 7683 "" +#line 7733 "" ici__1.icirlen = *lnote + nfmt - i__1; -#line 7683 "" +#line 7733 "" ici__1.iciunit = notexq + i__1; /* Writing concatenation */ -#line 7683 "" +#line 7733 "" i__3[0] = 2, a__2[0] = "(f"; -#line 7683 "" +#line 7733 "" i__4 = nfmt + 48; -#line 7683 "" +#line 7733 "" chax_(ch__1, (ftnlen)1, &i__4); -#line 7683 "" +#line 7733 "" i__3[1] = 1, a__2[1] = ch__1; -#line 7683 "" +#line 7733 "" i__3[2] = 3, a__2[2] = ".1)"; -#line 7683 "" +#line 7733 "" ici__1.icifmt = (s_cat(ch__2, a__2, i__3, &c__3, (ftnlen)6), ch__2); -#line 7683 "" +#line 7733 "" s_wsfi(&ici__1); -#line 7683 "" +#line 7733 "" do_fio(&c__1, (char *)&comtrill_1.xnsktr[itr - 1], (ftnlen)sizeof(real)); -#line 7683 "" +#line 7733 "" e_wsfi(); -#line 7685 "" +#line 7735 "" *lnote += nfmt; /* Writing concatenation */ -#line 7686 "" +#line 7736 "" i__2[0] = *lnote, a__1[0] = notexq; -#line 7686 "" +#line 7736 "" i__2[1] = 1, a__1[1] = "}"; -#line 7686 "" +#line 7736 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 7687 "" +#line 7737 "" ++(*lnote); -#line 7688 "" +#line 7738 "" return 0; } /* dotrill_ */ @@ -18785,41 +18854,41 @@ L2: /* Only called to end slur started in dograce. */ -#line 7700 "" +#line 7750 "" shift = ! (*stemup) && ! (*upslur); -#line 7701 "" +#line 7751 "" if (! shift) { /* No shift needed */ /* Writing concatenation */ -#line 7705 "" +#line 7755 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 7705 "" +#line 7755 "" i__1[0] = 1, a__1[0] = ch__1; -#line 7705 "" +#line 7755 "" i__1[1] = 5, a__1[1] = "tslur"; -#line 7705 "" +#line 7755 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)79); -#line 7706 "" +#line 7756 "" lnote = 6; -#line 7707 "" +#line 7757 "" } else { /* Shift needed */ /* Writing concatenation */ -#line 7711 "" +#line 7761 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 7711 "" +#line 7761 "" i__1[0] = 1, a__1[0] = ch__1; -#line 7711 "" +#line 7761 "" i__1[1] = 2, a__1[1] = "ts"; -#line 7711 "" +#line 7761 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)79); -#line 7712 "" +#line 7762 "" lnote = 3; -#line 7713 "" +#line 7763 "" } /* if (ndxslur .lt. 10) then */ /* notexq = notexq(1:lnote)//chax(48+ndxslur) */ @@ -18833,105 +18902,105 @@ L2: /* Print 23-ndxslur */ /* if (11-ndxslur .lt. 10) then */ -#line 7726 "" +#line 7776 "" if (23 - *ndxslur < 10) { /* notexq = notexq(1:lnote)//chax(59-ndxslur) */ /* Writing concatenation */ -#line 7728 "" +#line 7778 "" i__1[0] = lnote, a__1[0] = notexq; -#line 7728 "" +#line 7778 "" i__2 = 71 - *ndxslur; -#line 7728 "" +#line 7778 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 7728 "" +#line 7778 "" i__1[1] = 1, a__1[1] = ch__1; -#line 7728 "" +#line 7778 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)79); -#line 7729 "" +#line 7779 "" ++lnote; -#line 7730 "" +#line 7780 "" } else if (23 - *ndxslur < 20) { /* notexq = notexq(1:lnote)//'{1'//chax(49-ndxslur)//'}' */ /* Writing concatenation */ -#line 7732 "" +#line 7782 "" i__3[0] = lnote, a__2[0] = notexq; -#line 7732 "" +#line 7782 "" i__3[1] = 2, a__2[1] = "{1"; -#line 7732 "" +#line 7782 "" i__2 = 61 - *ndxslur; -#line 7732 "" +#line 7782 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 7732 "" +#line 7782 "" i__3[2] = 1, a__2[2] = ch__1; -#line 7732 "" +#line 7782 "" i__3[3] = 1, a__2[3] = "}"; -#line 7732 "" +#line 7782 "" s_cat(notexq, a__2, i__3, &c__4, (ftnlen)79); -#line 7733 "" +#line 7783 "" lnote += 4; -#line 7734 "" +#line 7784 "" } else { /* Writing concatenation */ -#line 7735 "" +#line 7785 "" i__3[0] = lnote, a__2[0] = notexq; -#line 7735 "" +#line 7785 "" i__3[1] = 2, a__2[1] = "{2"; -#line 7735 "" +#line 7785 "" i__2 = 51 - *ndxslur; -#line 7735 "" +#line 7785 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 7735 "" +#line 7785 "" i__3[2] = 1, a__2[2] = ch__1; -#line 7735 "" +#line 7785 "" i__3[3] = 1, a__2[3] = "}"; -#line 7735 "" +#line 7785 "" s_cat(notexq, a__2, i__3, &c__4, (ftnlen)79); -#line 7736 "" +#line 7786 "" lnote += 4; -#line 7737 "" +#line 7787 "" } -#line 7738 "" +#line 7788 "" i__2 = *nolev + *iupdn + *ivoff; -#line 7738 "" +#line 7788 "" notefq_(noteq, &lnoten, &i__2, ncm, (ftnlen)8); /* Writing concatenation */ -#line 7739 "" +#line 7789 "" i__1[0] = lnote, a__1[0] = notexq; -#line 7739 "" +#line 7789 "" i__1[1] = lnoten, a__1[1] = noteq; -#line 7739 "" +#line 7789 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)79); -#line 7740 "" +#line 7790 "" lnote += lnoten; -#line 7741 "" +#line 7791 "" if (shift) { -#line 7742 "" +#line 7792 "" if (*fontslur) { /* Writing concatenation */ -#line 7743 "" +#line 7793 "" i__1[0] = lnote, a__1[0] = notexq; -#line 7743 "" +#line 7793 "" i__1[1] = 5, a__1[1] = "{-.6}"; -#line 7743 "" +#line 7793 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)79); -#line 7744 "" +#line 7794 "" } else { /* Writing concatenation */ -#line 7745 "" +#line 7795 "" i__1[0] = lnote, a__1[0] = notexq; -#line 7745 "" +#line 7795 "" i__1[1] = 5, a__1[1] = "{-.8}"; -#line 7745 "" +#line 7795 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)79); -#line 7746 "" +#line 7796 "" } -#line 7747 "" +#line 7797 "" lnote += 5; -#line 7748 "" +#line 7798 "" } -#line 7749 "" +#line 7799 "" addstr_(notexq, &lnote, soutq, lsout, (ftnlen)79, (ftnlen)80); -#line 7750 "" +#line 7800 "" return 0; } /* endslur_ */ @@ -18966,40 +19035,40 @@ L2: static integer ibarnop; /* Fortran I/O blocks */ - static cilist io___537 = { 0, 6, 0, 0, 0 }; - static cilist io___540 = { 0, 19, 0, "(i6)", 0 }; - static cilist io___544 = { 0, 6, 0, "(1x,a)", 0 }; - static cilist io___545 = { 0, 15, 0, "(a)", 0 }; - static cilist io___548 = { 0, 6, 0, 0, 0 }; - static cilist io___549 = { 0, 15, 0, "(a)", 0 }; + static cilist io___540 = { 0, 6, 0, 0, 0 }; + static cilist io___543 = { 0, 19, 0, "(i6)", 0 }; + static cilist io___547 = { 0, 6, 0, "(1x,a)", 0 }; + static cilist io___548 = { 0, 15, 0, "(a)", 0 }; + static cilist io___551 = { 0, 6, 0, 0, 0 }; + static cilist io___552 = { 0, 15, 0, "(a)", 0 }; -#line 7762 "" +#line 7812 "" if (*iccount <= 78) { -#line 7763 "" +#line 7813 "" s_copy(outq, lineq, (ftnlen)78, (ftnlen)78); -#line 7764 "" +#line 7814 "" iposn = *iccount; -#line 7765 "" +#line 7815 "" } else { /* Writing concatenation */ -#line 7766 "" +#line 7816 "" i__1[0] = 4, a__1[0] = "... "; -#line 7766 "" +#line 7816 "" i__1[1] = 74, a__1[1] = lineq + 54; -#line 7766 "" +#line 7816 "" s_cat(outq, a__1, i__1, &c__2, (ftnlen)78); -#line 7767 "" +#line 7817 "" iposn = *iccount - 50; -#line 7768 "" +#line 7818 "" } -#line 7769 "" - s_wsle(&io___537); -#line 7769 "" +#line 7819 "" + s_wsle(&io___540); +#line 7819 "" e_wsle(); -#line 7770 "" +#line 7820 "" ibarnop = *ibarno; -#line 7771 "" +#line 7821 "" if (c1omget_1.linesinpmxmod == 0 || c1omget_1.nline > c1omget_1.line1pmxmod + c1omget_1.linesinpmxmod) { @@ -19007,299 +19076,299 @@ L2: /* nlinep = nline-linesinpmxmod */ /* Correct for comments not copied into buffer */ -#line 7778 "" +#line 7828 "" nlinep = truelinecount_1.linewcom[c1omget_1.nline - 1] - c1omget_1.linesinpmxmod; -#line 7779 "" +#line 7829 "" } else { /* Error is in include file */ -#line 7783 "" +#line 7833 "" ibarnop = 0; -#line 7784 "" +#line 7834 "" nlinep = c1omget_1.nline - c1omget_1.line1pmxmod + 1; -#line 7785 "" +#line 7835 "" printl_("ERROR in include file named above, description given below", (ftnlen)58); -#line 7787 "" +#line 7837 "" } -#line 7788 "" +#line 7838 "" o__1.oerr = 0; -#line 7788 "" +#line 7838 "" o__1.ounit = 19; -#line 7788 "" +#line 7838 "" o__1.ofnmlen = 11; -#line 7788 "" +#line 7838 "" o__1.ofnm = "pmxaerr.dat"; -#line 7788 "" +#line 7838 "" o__1.orl = 0; -#line 7788 "" +#line 7838 "" o__1.osta = 0; -#line 7788 "" +#line 7838 "" o__1.oacc = 0; -#line 7788 "" +#line 7838 "" o__1.ofm = 0; -#line 7788 "" +#line 7838 "" o__1.oblnk = 0; -#line 7788 "" +#line 7838 "" f_open(&o__1); -#line 7789 "" - s_wsfe(&io___540); -#line 7789 "" +#line 7839 "" + s_wsfe(&io___543); +#line 7839 "" do_fio(&c__1, (char *)&nlinep, (ftnlen)sizeof(integer)); -#line 7789 "" +#line 7839 "" e_wsfe(); -#line 7790 "" +#line 7840 "" cl__1.cerr = 0; -#line 7790 "" +#line 7840 "" cl__1.cunit = 19; -#line 7790 "" +#line 7840 "" cl__1.csta = 0; -#line 7790 "" +#line 7840 "" f_clos(&cl__1); /* Computing MAX */ -#line 7791 "" +#line 7841 "" r__1 = ibarnop + .1f; -#line 7791 "" +#line 7841 "" i__2 = 1, i__3 = (integer) (r_lg10(&r__1) + 1); -#line 7791 "" +#line 7841 "" ndigbn = max(i__2,i__3); -#line 7792 "" +#line 7842 "" r__1 = nlinep + .1f; -#line 7792 "" +#line 7842 "" ndignl = (integer) (r_lg10(&r__1) + 1); -#line 7793 "" +#line 7843 "" lenmsg = i_indx(msgq, "!", msgq_len, (ftnlen)1) - 1; /* Split off msgq(..) since UNIX compilers don't allow concat substring!!! */ -#line 7797 "" +#line 7847 "" ci__1.cierr = 0; -#line 7797 "" +#line 7847 "" ci__1.ciunit = 6; /* Writing concatenation */ -#line 7797 "" +#line 7847 "" i__4[0] = 8, a__2[0] = "(/,a15,i"; -#line 7797 "" +#line 7847 "" i__2 = ndignl + 48; -#line 7797 "" +#line 7847 "" chax_(ch__2, (ftnlen)1, &i__2); -#line 7797 "" +#line 7847 "" i__4[1] = 1, a__2[1] = ch__2; -#line 7797 "" +#line 7847 "" i__4[2] = 5, a__2[2] = ",a6,i"; -#line 7797 "" +#line 7847 "" i__3 = ndigbn + 48; -#line 7797 "" +#line 7847 "" chax_(ch__3, (ftnlen)1, &i__3); -#line 7797 "" +#line 7847 "" i__4[3] = 1, a__2[3] = ch__3; -#line 7797 "" +#line 7847 "" i__4[4] = 3, a__2[4] = ",$)"; -#line 7797 "" +#line 7847 "" ci__1.cifmt = (s_cat(ch__1, a__2, i__4, &c__5, (ftnlen)18), ch__1); -#line 7797 "" +#line 7847 "" s_wsfe(&ci__1); -#line 7797 "" +#line 7847 "" do_fio(&c__1, " ERROR in line ", (ftnlen)15); -#line 7797 "" +#line 7847 "" do_fio(&c__1, (char *)&nlinep, (ftnlen)sizeof(integer)); -#line 7797 "" +#line 7847 "" do_fio(&c__1, ", bar ", (ftnlen)6); -#line 7797 "" +#line 7847 "" do_fio(&c__1, (char *)&ibarnop, (ftnlen)sizeof(integer)); -#line 7797 "" +#line 7847 "" e_wsfe(); -#line 7799 "" - s_wsfe(&io___544); -#line 7799 "" +#line 7849 "" + s_wsfe(&io___547); +#line 7849 "" do_fio(&c__1, msgq, lenmsg); -#line 7799 "" +#line 7849 "" e_wsfe(); -#line 7800 "" +#line 7850 "" ci__1.cierr = 0; -#line 7800 "" +#line 7850 "" ci__1.ciunit = 15; /* Writing concatenation */ -#line 7800 "" +#line 7850 "" i__4[0] = 8, a__2[0] = "(/,a15,i"; -#line 7800 "" +#line 7850 "" i__2 = ndignl + 48; -#line 7800 "" +#line 7850 "" chax_(ch__2, (ftnlen)1, &i__2); -#line 7800 "" +#line 7850 "" i__4[1] = 1, a__2[1] = ch__2; -#line 7800 "" +#line 7850 "" i__4[2] = 5, a__2[2] = ",a6,i"; -#line 7800 "" +#line 7850 "" i__3 = ndigbn + 48; -#line 7800 "" +#line 7850 "" chax_(ch__3, (ftnlen)1, &i__3); -#line 7800 "" +#line 7850 "" i__4[3] = 1, a__2[3] = ch__3; -#line 7800 "" +#line 7850 "" i__4[4] = 3, a__2[4] = ",$)"; -#line 7800 "" +#line 7850 "" ci__1.cifmt = (s_cat(ch__1, a__2, i__4, &c__5, (ftnlen)18), ch__1); -#line 7800 "" +#line 7850 "" s_wsfe(&ci__1); -#line 7800 "" +#line 7850 "" do_fio(&c__1, " ERROR in line ", (ftnlen)15); -#line 7800 "" +#line 7850 "" do_fio(&c__1, (char *)&nlinep, (ftnlen)sizeof(integer)); -#line 7800 "" +#line 7850 "" do_fio(&c__1, ", bar ", (ftnlen)6); -#line 7800 "" +#line 7850 "" do_fio(&c__1, (char *)&ibarnop, (ftnlen)sizeof(integer)); -#line 7800 "" +#line 7850 "" e_wsfe(); -#line 7802 "" - s_wsfe(&io___545); -#line 7802 "" +#line 7852 "" + s_wsfe(&io___548); +#line 7852 "" do_fio(&c__1, msgq, lenmsg); -#line 7802 "" +#line 7852 "" e_wsfe(); -#line 7803 "" +#line 7853 "" i10 = iposn / 10; -#line 7804 "" +#line 7854 "" i1 = iposn - i10 * 10; -#line 7805 "" +#line 7855 "" ci__1.cierr = 0; -#line 7805 "" +#line 7855 "" ci__1.ciunit = 6; /* Writing concatenation */ -#line 7805 "" +#line 7855 "" i__5[0] = 1, a__3[0] = "("; -#line 7805 "" +#line 7855 "" i__2 = i10 + 48; -#line 7805 "" +#line 7855 "" chax_(ch__2, (ftnlen)1, &i__2); -#line 7805 "" +#line 7855 "" i__5[1] = 1, a__3[1] = ch__2; -#line 7805 "" +#line 7855 "" i__3 = i1 + 48; -#line 7805 "" +#line 7855 "" chax_(ch__3, (ftnlen)1, &i__3); -#line 7805 "" +#line 7855 "" i__5[2] = 1, a__3[2] = ch__3; -#line 7805 "" +#line 7855 "" i__5[3] = 4, a__3[3] = "x,a)"; -#line 7805 "" +#line 7855 "" ci__1.cifmt = (s_cat(ch__4, a__3, i__5, &c__4, (ftnlen)7), ch__4); -#line 7805 "" +#line 7855 "" s_wsfe(&ci__1); -#line 7805 "" +#line 7855 "" do_fio(&c__1, "v", (ftnlen)1); -#line 7805 "" +#line 7855 "" e_wsfe(); -#line 7806 "" +#line 7856 "" ci__1.cierr = 0; -#line 7806 "" +#line 7856 "" ci__1.ciunit = 15; /* Writing concatenation */ -#line 7806 "" +#line 7856 "" i__5[0] = 1, a__3[0] = "("; -#line 7806 "" +#line 7856 "" i__2 = i10 + 48; -#line 7806 "" +#line 7856 "" chax_(ch__2, (ftnlen)1, &i__2); -#line 7806 "" +#line 7856 "" i__5[1] = 1, a__3[1] = ch__2; -#line 7806 "" +#line 7856 "" i__3 = i1 + 48; -#line 7806 "" +#line 7856 "" chax_(ch__3, (ftnlen)1, &i__3); -#line 7806 "" +#line 7856 "" i__5[2] = 1, a__3[2] = ch__3; -#line 7806 "" +#line 7856 "" i__5[3] = 4, a__3[3] = "x,a)"; -#line 7806 "" +#line 7856 "" ci__1.cifmt = (s_cat(ch__4, a__3, i__5, &c__4, (ftnlen)7), ch__4); -#line 7806 "" +#line 7856 "" s_wsfe(&ci__1); -#line 7806 "" +#line 7856 "" do_fio(&c__1, "v", (ftnlen)1); -#line 7806 "" +#line 7856 "" e_wsfe(); -#line 7807 "" - s_wsle(&io___548); -#line 7807 "" +#line 7857 "" + s_wsle(&io___551); +#line 7857 "" do_lio(&c__9, &c__1, outq, (ftnlen)78); -#line 7807 "" +#line 7857 "" e_wsle(); -#line 7808 "" - s_wsfe(&io___549); +#line 7858 "" + s_wsfe(&io___552); /* Writing concatenation */ -#line 7808 "" +#line 7858 "" i__1[0] = 1, a__1[0] = " "; -#line 7808 "" +#line 7858 "" i__1[1] = 78, a__1[1] = outq; -#line 7808 "" +#line 7858 "" s_cat(ch__5, a__1, i__1, &c__2, (ftnlen)79); -#line 7808 "" +#line 7858 "" do_fio(&c__1, ch__5, (ftnlen)79); -#line 7808 "" +#line 7858 "" e_wsfe(); -#line 7809 "" +#line 7859 "" ci__1.cierr = 0; -#line 7809 "" +#line 7859 "" ci__1.ciunit = 6; /* Writing concatenation */ -#line 7809 "" +#line 7859 "" i__5[0] = 1, a__3[0] = "("; -#line 7809 "" +#line 7859 "" i__2 = i10 + 48; -#line 7809 "" +#line 7859 "" chax_(ch__2, (ftnlen)1, &i__2); -#line 7809 "" +#line 7859 "" i__5[1] = 1, a__3[1] = ch__2; -#line 7809 "" +#line 7859 "" i__3 = i1 + 48; -#line 7809 "" +#line 7859 "" chax_(ch__3, (ftnlen)1, &i__3); -#line 7809 "" +#line 7859 "" i__5[2] = 1, a__3[2] = ch__3; -#line 7809 "" +#line 7859 "" i__5[3] = 4, a__3[3] = "x,a)"; -#line 7809 "" +#line 7859 "" ci__1.cifmt = (s_cat(ch__4, a__3, i__5, &c__4, (ftnlen)7), ch__4); -#line 7809 "" +#line 7859 "" s_wsfe(&ci__1); -#line 7809 "" +#line 7859 "" do_fio(&c__1, "^", (ftnlen)1); -#line 7809 "" +#line 7859 "" e_wsfe(); -#line 7810 "" +#line 7860 "" ci__1.cierr = 0; -#line 7810 "" +#line 7860 "" ci__1.ciunit = 15; /* Writing concatenation */ -#line 7810 "" +#line 7860 "" i__5[0] = 1, a__3[0] = "("; -#line 7810 "" +#line 7860 "" i__2 = i10 + 48; -#line 7810 "" +#line 7860 "" chax_(ch__2, (ftnlen)1, &i__2); -#line 7810 "" +#line 7860 "" i__5[1] = 1, a__3[1] = ch__2; -#line 7810 "" +#line 7860 "" i__3 = i1 + 48; -#line 7810 "" +#line 7860 "" chax_(ch__3, (ftnlen)1, &i__3); -#line 7810 "" +#line 7860 "" i__5[2] = 1, a__3[2] = ch__3; -#line 7810 "" +#line 7860 "" i__5[3] = 4, a__3[3] = "x,a)"; -#line 7810 "" +#line 7860 "" ci__1.cifmt = (s_cat(ch__4, a__3, i__5, &c__4, (ftnlen)7), ch__4); -#line 7810 "" +#line 7860 "" s_wsfe(&ci__1); -#line 7810 "" +#line 7860 "" do_fio(&c__1, "^", (ftnlen)1); -#line 7810 "" +#line 7860 "" e_wsfe(); -#line 7811 "" +#line 7861 "" return 0; } /* errmsg_ */ @@ -19320,82 +19389,82 @@ L2: static integer itnd, nnsk, itprev; /* Fortran I/O blocks */ - static cilist io___554 = { 0, 6, 0, 0, 0 }; + static cilist io___557 = { 0, 6, 0, 0, 0 }; /* Get elemskips to previous note. Called only for graces, no xtups involved. */ -#line 7831 "" +#line 7881 "" /* Parameter adjustments */ -#line 7831 "" +#line 7881 "" --tstart; -#line 7831 "" +#line 7881 "" --space; -#line 7831 "" +#line 7881 "" -#line 7831 "" +#line 7881 "" /* Function Body */ -#line 7831 "" +#line 7881 "" itnd = i_nint(&all_1.to[*in - 1]); -#line 7832 "" +#line 7882 "" if (*ip == 1 || itnd == *itrpt) { /* Start of bar or after rpt. */ -#line 7836 "" +#line 7886 "" *esk = *fbar; -#line 7837 "" +#line 7887 "" return 0; -#line 7838 "" +#line 7888 "" } else { -#line 7839 "" +#line 7889 "" *esk = 0.f; -#line 7840 "" +#line 7890 "" itprev = itnd - all_1.nodur[*ivx + (*ip - 1) * 24 - 25]; -#line 7841 "" +#line 7891 "" for (iib = *ib; iib >= 1; --iib) { -#line 7842 "" +#line 7892 "" if (tstart[iib] < itprev + comtol_1.tol) { /* This is the block */ -#line 7846 "" +#line 7896 "" r__1 = (real) (itnd - itprev) / space[iib]; -#line 7846 "" +#line 7896 "" nnsk = i_nint(&r__1); -#line 7847 "" +#line 7897 "" *esk += nnsk * feon_(&space[iib]); -#line 7848 "" +#line 7898 "" return 0; -#line 7849 "" +#line 7899 "" } else { -#line 7850 "" +#line 7900 "" r__1 = (itnd - tstart[iib]) / space[iib]; -#line 7850 "" +#line 7900 "" nnsk = i_nint(&r__1); -#line 7851 "" +#line 7901 "" *esk += nnsk * feon_(&space[iib]); -#line 7852 "" +#line 7902 "" itnd = i_nint(&tstart[iib]); -#line 7853 "" +#line 7903 "" } -#line 7854 "" +#line 7904 "" /* L1: */ -#line 7854 "" +#line 7904 "" } -#line 7855 "" +#line 7905 "" } -#line 7856 "" - s_wsle(&io___554); -#line 7856 "" +#line 7906 "" + s_wsle(&io___557); +#line 7906 "" do_lio(&c__9, &c__1, "Problem in eskb4. Send files to Dr. Don", (ftnlen) 40); -#line 7856 "" +#line 7906 "" e_wsle(); -#line 7857 "" +#line 7907 "" s_stop("", (ftnlen)0); -#line 7858 "" +#line 7908 "" return 0; } /* eskb4_ */ @@ -19407,9 +19476,9 @@ doublereal f1eon_(real *time) /* Builtin functions */ double sqrt(doublereal); -#line 7860 "" +#line 7910 "" ret_val = sqrt(*time / 2); -#line 7861 "" +#line 7911 "" return ret_val; } /* f1eon_ */ @@ -19422,13 +19491,13 @@ doublereal feon_(real *time) /* Builtin functions */ double sqrt(doublereal), pow_dd(doublereal *, doublereal *); -#line 7865 "" +#line 7915 "" d__1 = (doublereal) sqrt(*time / 2); -#line 7865 "" +#line 7915 "" d__2 = (doublereal) (1.f - comeon_1.eonk); -#line 7865 "" +#line 7915 "" ret_val = pow_dd(&d__1, &d__2) * comeon_1.ewmxk; -#line 7866 "" +#line 7916 "" return ret_val; } /* feon_ */ @@ -19501,7 +19570,7 @@ doublereal feon_(real *time) static integer masknow; /* Fortran I/O blocks */ - static cilist io___588 = { 0, 6, 0, 0, 0 }; + static cilist io___591 = { 0, 6, 0, 0, 0 }; @@ -19510,425 +19579,425 @@ doublereal feon_(real *time) /* integer numbms(nm),ipr(48),nip1(0:47),nip2(0:47),mapfb(16), */ /* * itr(48),nodue(48) */ /* logical short(48),eqonly */ -#line 7896 "" +#line 7946 "" /* Parameter adjustments */ -#line 7896 "" +#line 7946 "" --mapfb; -#line 7896 "" +#line 7946 "" --numbms; -#line 7896 "" +#line 7946 "" -#line 7896 "" +#line 7946 "" /* Function Body */ -#line 7917 "" +#line 7967 "" ip = 0; -#line 7918 "" +#line 7968 "" nreal = 0; -#line 7919 "" +#line 7969 "" itnow = 0; -#line 7920 "" +#line 7970 "" L1: -#line 7921 "" +#line 7971 "" ++ip; -#line 7922 "" +#line 7972 "" if (ip > all_1.nn[commvl_1.ivx - 1]) { -#line 7922 "" +#line 7972 "" goto L9; -#line 7922 "" +#line 7972 "" } -#line 7923 "" +#line 7973 "" L11: -#line 7923 "" +#line 7973 "" if (all_1.nodur[commvl_1.ivx + ip * 24 - 25] == 0) { /* Ignore all xtup notes except the last, the one with nodur > 0 . */ /* Xtups are irrelevant here since they are already all in forced beams. */ /* Will update itnow by nodur at the END of this loop */ -#line 7929 "" +#line 7979 "" ++ip; -#line 7930 "" +#line 7980 "" goto L11; -#line 7931 "" +#line 7981 "" } -#line 7932 "" +#line 7982 "" ++nreal; -#line 7933 "" +#line 7983 "" nodue[nreal - 1] = all_1.nodur[commvl_1.ivx + ip * 24 - 25]; -#line 7934 "" +#line 7984 "" short__[nreal - 1] = nodue[nreal - 1] < 16 && ! bit_test(all_1.irest[ commvl_1.ivx + ip * 24 - 25],0) && ! bit_test(all_1.islur[ commvl_1.ivx + ip * 24 - 25],18); /* Rule out notes that have 'alone'-flag set */ -#line 7940 "" +#line 7990 "" ipr[nreal - 1] = ip; -#line 7941 "" +#line 7991 "" itr[nreal - 1] = itnow; -#line 7942 "" +#line 7992 "" if (nodue[nreal - 1] == 1) { /* 64th gap */ -#line 7946 "" +#line 7996 "" if (itnow % 2 == 0) { /* Start of 32nd gap, lump with following note */ -#line 7950 "" +#line 8000 "" ++ip; -#line 7951 "" +#line 8001 "" nodue[nreal - 1] = all_1.nodur[commvl_1.ivx + ip * 24 - 25] + 1; -#line 7952 "" +#line 8002 "" itnow += nodue[nreal - 1]; -#line 7953 "" +#line 8003 "" } else { /* End of 32nd gap, lump with preceeding note */ -#line 7957 "" +#line 8007 "" --nreal; -#line 7958 "" +#line 8008 "" ++nodue[nreal - 1]; -#line 7959 "" +#line 8009 "" ++itnow; -#line 7960 "" +#line 8010 "" } -#line 7961 "" +#line 8011 "" } else { -#line 7962 "" +#line 8012 "" itnow += all_1.nodur[commvl_1.ivx + ip * 24 - 25]; -#line 7963 "" +#line 8013 "" } -#line 7964 "" +#line 8014 "" goto L1; -#line 7965 "" +#line 8015 "" L9: -#line 7966 "" +#line 8016 "" ir1 = 1; -#line 7967 "" +#line 8017 "" itseg = all_1.lenbar / *ibmrep; -#line 7968 "" +#line 8018 "" i__1 = *ibmrep; -#line 7968 "" +#line 8018 "" for (irep = 1; irep <= i__1; ++irep) { /* Set bitmaps for all shorts neighbored by a short. Each bit represents a */ /* span of 32nd note. maps, mapm, mape record start, full duration, and end */ /* of consecutive span of beamable (<1/4) notes. */ -#line 7974 "" +#line 8024 "" maps = 0; -#line 7975 "" +#line 8025 "" mapm = 0; -#line 7976 "" +#line 8026 "" mape = 0; -#line 7977 "" +#line 8027 "" itend = itseg * irep; -#line 7978 "" +#line 8028 "" itoff = itend - itseg; -#line 7979 "" +#line 8029 "" i__2 = nreal; -#line 7979 "" +#line 8029 "" for (ir = ir1; ir <= i__2; ++ir) { -#line 7980 "" +#line 8030 "" it2 = itr[ir - 1] + nodue[ir - 1] - 2; -#line 7981 "" +#line 8031 "" if (it2 >= itend) { -#line 7982 "" +#line 8032 "" ir1 = ir; -#line 7983 "" +#line 8033 "" goto L14; -#line 7984 "" +#line 8034 "" } /* if (short(ir).and.((ir.gt.1.and.short(ir-1)).or.(ir.lt.nreal */ /* Computing MAX */ -#line 7986 "" +#line 8036 "" i__3 = ir - 1; -#line 7986 "" +#line 8036 "" if (short__[ir - 1] && (ir > 1 && short__[max(i__3,1) - 1] || ir < nreal && short__[ir])) { -#line 7988 "" +#line 8038 "" ib1 = (itr[ir - 1] - itoff) / 2; -#line 7989 "" +#line 8039 "" ib2 = (it2 - itoff) / 2; -#line 7990 "" +#line 8040 "" if (max(ib1,ib2) > 47 || ir > 48 || min(ib1,ib2) < 0) { -#line 7990 "" +#line 8040 "" return 0; -#line 7990 "" +#line 8040 "" } /* Must have an odd number obe beats in a long bar. Auto-beam won't work */ -#line 7995 "" +#line 8045 "" nip1[ib1] = ipr[ir - 1]; -#line 7996 "" +#line 8046 "" nip2[ib2] = ipr[ir - 1]; /* nip1,2(ib) = 0 unless a real note starts,ends on bit ib; then = ip */ -#line 8000 "" +#line 8050 "" maps = bit_set(maps,ib1); -#line 8001 "" +#line 8051 "" mape = bit_set(mape,ib2); -#line 8002 "" +#line 8052 "" i__3 = ib2; -#line 8002 "" +#line 8052 "" for (ib = ib1; ib <= i__3; ++ib) { -#line 8003 "" +#line 8053 "" mapm = bit_set(mapm,ib); -#line 8004 "" +#line 8054 "" /* L3: */ -#line 8004 "" +#line 8054 "" } -#line 8005 "" +#line 8055 "" } -#line 8006 "" +#line 8056 "" /* L2: */ -#line 8006 "" +#line 8056 "" } -#line 8007 "" +#line 8057 "" L14: -#line 8008 "" +#line 8058 "" if (mapm == 0) { -#line 8008 "" +#line 8058 "" goto L13; -#line 8008 "" +#line 8058 "" } /* Zero out bits from forced beams */ -#line 8012 "" +#line 8062 "" maps &= ~ mapfb[irep]; -#line 8013 "" +#line 8063 "" mapm &= ~ mapfb[irep]; -#line 8014 "" +#line 8064 "" mape &= ~ mapfb[irep]; /* Compare map with template. */ -#line 8018 "" +#line 8068 "" i__2 = nummask[combeam_1.ibmtyp - 1]; -#line 8018 "" +#line 8068 "" for (it = 1; it <= i__2; ++it) { -#line 8019 "" +#line 8069 "" masknow = mask[it + combeam_1.ibmtyp * 49 - 50]; -#line 8020 "" +#line 8070 "" if ((masknow & mapm) == masknow) { /* Find least significant bit in the mask to check start time */ -#line 8024 "" +#line 8074 "" mtemp = masknow; -#line 8025 "" +#line 8075 "" maskm = masknow; -#line 8026 "" +#line 8076 "" for (is1 = 0; is1 <= 47; ++is1) { -#line 8027 "" +#line 8077 "" if ((1 & mtemp) == 1) { -#line 8027 "" +#line 8077 "" goto L6; -#line 8027 "" +#line 8077 "" } -#line 8028 "" +#line 8078 "" mtemp = lbit_shift(mtemp, (ftnlen)-1); -#line 8029 "" +#line 8079 "" /* L5: */ -#line 8029 "" +#line 8079 "" } -#line 8030 "" +#line 8080 "" L6: -#line 8031 "" +#line 8081 "" if ((lbit_shift((ftnlen)1, is1) & maps) == 0) { -#line 8031 "" +#line 8081 "" goto L4; -#line 8031 "" +#line 8081 "" } /* is1 is the bit where the beam starts. Continue shifting to */ /* find most significant bit in the mask to check ending time */ -#line 8036 "" +#line 8086 "" for (is2 = is1; is2 <= 47; ++is2) { -#line 8037 "" +#line 8087 "" mtemp = lbit_shift(mtemp, (ftnlen)-1); -#line 8038 "" +#line 8088 "" if ((1 & ~ mtemp) == 1) { -#line 8038 "" +#line 8088 "" goto L8; -#line 8038 "" +#line 8088 "" } -#line 8039 "" +#line 8089 "" /* L7: */ -#line 8039 "" +#line 8089 "" } -#line 8040 "" +#line 8090 "" L8: /* is2 is now the bit on which the beam ends. */ -#line 8044 "" +#line 8094 "" if ((lbit_shift((ftnlen)1, is2) & mape) == 0) { -#line 8044 "" +#line 8094 "" goto L4; -#line 8044 "" +#line 8094 "" } /* Did we pick out a single note from the middle of a longer sequence? */ -#line 8048 "" +#line 8098 "" if (nip1[is1] == nip2[is2]) { -#line 8048 "" +#line 8098 "" goto L4; -#line 8048 "" +#line 8098 "" } /* We almost have a beam. Check equality of notes if needed. */ -#line 8052 "" +#line 8102 "" if (eqonly[it + combeam_1.ibmtyp * 49 - 50]) { -#line 8053 "" +#line 8103 "" i__3 = nip2[is2]; -#line 8053 "" +#line 8103 "" for (ip = nip1[is1]; ip <= i__3; ++ip) { -#line 8054 "" +#line 8104 "" if (all_1.nodur[commvl_1.ivx + ip * 24 - 25] != 8) { /* There is a non-1/8th note in this beam. Exit if not 2 quarters */ -#line 8058 "" +#line 8108 "" if (is2 - is1 != 15) { -#line 8058 "" +#line 8108 "" goto L4; -#line 8058 "" +#line 8108 "" } /* Beam is 2 quarters long. Check if can split in half. */ -#line 8062 "" +#line 8112 "" ithalf = 0; -#line 8063 "" +#line 8113 "" i__4 = nip2[is2]; -#line 8063 "" +#line 8113 "" for (iip = nip1[is1]; iip <= i__4; ++iip) { -#line 8064 "" +#line 8114 "" ithalf += all_1.nodur[commvl_1.ivx + iip * 24 - 25]; -#line 8065 "" +#line 8115 "" if (ithalf > 16) { -#line 8065 "" +#line 8115 "" goto L4; -#line 8065 "" +#line 8115 "" } -#line 8066 "" +#line 8116 "" if (ithalf == 16) { -#line 8066 "" +#line 8116 "" goto L21; -#line 8066 "" +#line 8116 "" } -#line 8067 "" +#line 8117 "" /* L20: */ -#line 8067 "" +#line 8117 "" } -#line 8068 "" - s_wsle(&io___588); -#line 8068 "" +#line 8118 "" + s_wsle(&io___591); +#line 8118 "" do_lio(&c__9, &c__1, "Problem in findbeam, pleas"\ "e call Dr. Don", (ftnlen)40); -#line 8068 "" +#line 8118 "" e_wsle(); -#line 8069 "" +#line 8119 "" goto L4; -#line 8070 "" +#line 8120 "" L21: /* Otherwise, split in half by keeping only the first half. Other half will */ /* be picked up later, assuming masks are listed longest first. */ -#line 8075 "" +#line 8125 "" is2 = is1 + 7; /* Reset maskm (since only used part of mask), used later to zero out */ /* bits that contain beams */ -#line 8080 "" +#line 8130 "" maskm = 0; -#line 8081 "" +#line 8131 "" i__4 = is2; -#line 8081 "" +#line 8131 "" for (is = is1; is <= i__4; ++is) { -#line 8082 "" +#line 8132 "" maskm = bit_set(maskm,is); -#line 8083 "" +#line 8133 "" /* L15: */ -#line 8083 "" +#line 8133 "" } -#line 8084 "" +#line 8134 "" goto L16; -#line 8085 "" +#line 8135 "" } -#line 8086 "" +#line 8136 "" /* L10: */ -#line 8086 "" +#line 8136 "" } -#line 8087 "" +#line 8137 "" } -#line 8088 "" +#line 8138 "" L16: /* This is a beam. If last "effective" ends on odd 64th, add 1 more */ /* if (abs(mod(to(iand(255,ipl(ivx,nip2(is2)))) */ /* * +nodur(ivx,nip2(is2)),2.)) .gt. tol) then */ -#line 8094 "" +#line 8144 "" r__2 = all_1.to[comipl2_1.ipl2[commvl_1.ivx + nip2[is2] * 24 - 25] - 1] + all_1.nodur[commvl_1.ivx + nip2[is2] * 24 - 25] + comtol_1.tol * .5f; -#line 8094 "" - if ((r__1 = r_mod(&r__2, &c_b1902), dabs(r__1)) > +#line 8144 "" + if ((r__1 = r_mod(&r__2, &c_b1901), dabs(r__1)) > comtol_1.tol) { -#line 8096 "" +#line 8146 "" ++nip2[is2]; -#line 8097 "" +#line 8147 "" } -#line 8098 "" +#line 8148 "" ++numbms[commvl_1.ivx]; -#line 8099 "" +#line 8149 "" numnew = numbms[commvl_1.ivx]; -#line 8100 "" +#line 8150 "" logbeam_(&numnew, &nip1[is1], &nip2[is2]); /* Zero out the appropriate bits so these notes don't get used again */ -#line 8104 "" +#line 8154 "" mapm &= ~ maskm; -#line 8105 "" +#line 8155 "" if (mapm == 0) { -#line 8105 "" +#line 8155 "" goto L13; -#line 8105 "" +#line 8155 "" } -#line 8106 "" +#line 8156 "" maps &= ~ maskm; -#line 8107 "" +#line 8157 "" mape &= ~ maskm; -#line 8108 "" +#line 8158 "" } -#line 8109 "" +#line 8159 "" L4: -#line 8109 "" +#line 8159 "" ; -#line 8109 "" +#line 8159 "" } -#line 8110 "" +#line 8160 "" L13: -#line 8110 "" +#line 8160 "" ; -#line 8110 "" +#line 8160 "" } -#line 8111 "" +#line 8161 "" return 0; } /* findbeam_ */ @@ -19961,83 +20030,83 @@ L13: /* logical gotclef */ /* * ibaroff,udsp(nkb),wheadpt,gotclef,sqzb(maxblks) */ -#line 8126 "" +#line 8176 "" comeon_1.eonk = *eonk0; -#line 8127 "" +#line 8177 "" niter = 0; -#line 8128 "" +#line 8178 "" L1: -#line 8129 "" +#line 8179 "" d__1 = (doublereal) f1eon_(dtmax); -#line 8129 "" +#line 8179 "" d__2 = (doublereal) comeon_1.eonk; -#line 8129 "" +#line 8179 "" comeon_1.ewmxk = pow_dd(&d__1, &d__2); -#line 8130 "" +#line 8180 "" ++niter; -#line 8131 "" +#line 8181 "" esum = 0.f; -#line 8132 "" +#line 8182 "" desum = 0.f; -#line 8133 "" +#line 8183 "" i__1 = *nptr2; -#line 8133 "" +#line 8183 "" for (iptr = *nptr1; iptr <= i__1; ++iptr) { -#line 8134 "" +#line 8184 "" targ = c1omnotes_1.durb[iptr - 1] / c1omnotes_1.sqzb[iptr - 1]; -#line 8135 "" +#line 8185 "" esum += c1omnotes_1.nnpd[iptr - 1] * c1omnotes_1.sqzb[iptr - 1] * feon_(&targ); -#line 8136 "" +#line 8186 "" d__1 = (doublereal) (*dtmax / targ); -#line 8136 "" +#line 8186 "" d__2 = (doublereal) comeon_1.eonk; -#line 8136 "" +#line 8186 "" detarg = sqrt(targ / 2 * pow_dd(&d__1, &d__2)) * log(*dtmax / targ); -#line 8137 "" +#line 8187 "" desum += c1omnotes_1.nnpd[iptr - 1] * c1omnotes_1.sqzb[iptr - 1] * detarg; -#line 8138 "" +#line 8188 "" /* L2: */ -#line 8138 "" +#line 8188 "" } -#line 8139 "" +#line 8189 "" f = *wovera * feon_(dtmin) - *xelsk - esum; -#line 8140 "" +#line 8190 "" d__1 = (doublereal) (*dtmax / *dtmin); -#line 8140 "" +#line 8190 "" d__2 = (doublereal) comeon_1.eonk; -#line 8140 "" +#line 8190 "" fp = *wovera * sqrt(*dtmin / 2 * pow_dd(&d__1, &d__2)) * log(*dtmax / * dtmin) - desum; -#line 8142 "" +#line 8192 "" if (dabs(fp) < comtol_1.tol || (r__1 = comeon_1.eonk - .5f, dabs(r__1)) > .5f || niter > 100) { -#line 8143 "" +#line 8193 "" printl_("Error in findeonk. Please send source to Dr. Don", (ftnlen) 49); -#line 8145 "" +#line 8195 "" comeon_1.eonk = 0.f; -#line 8146 "" +#line 8196 "" comeon_1.ewmxk = 1.f; -#line 8147 "" +#line 8197 "" return 0; -#line 8148 "" +#line 8198 "" } -#line 8149 "" +#line 8199 "" dsoln = -f / fp; -#line 8150 "" +#line 8200 "" if (dabs(dsoln) < comtol_1.tol * .1f) { -#line 8150 "" +#line 8200 "" return 0; -#line 8150 "" +#line 8200 "" } /* Not converged yet, try again */ -#line 8154 "" +#line 8204 "" comeon_1.eonk += dsoln; -#line 8155 "" +#line 8205 "" goto L1; } /* findeonk_ */ @@ -20057,143 +20126,143 @@ doublereal fnote_(integer *nodur, integer *ivx, integer *ip, integer *nacc) extern /* Subroutine */ int printl_(char *, ftnlen); /* Fortran I/O blocks */ - static cilist io___604 = { 0, 6, 0, 0, 0 }; - static cilist io___605 = { 0, 6, 0, 0, 0 }; + static cilist io___607 = { 0, 6, 0, 0, 0 }; + static cilist io___608 = { 0, 6, 0, 0, 0 }; /* This return the real duration of a note */ -#line 8164 "" +#line 8214 "" /* Parameter adjustments */ -#line 8164 "" +#line 8214 "" nacc -= 25; -#line 8164 "" +#line 8214 "" nodur -= 25; -#line 8164 "" +#line 8214 "" -#line 8164 "" +#line 8214 "" /* Function Body */ -#line 8164 "" +#line 8214 "" ipback = *ip; -#line 8165 "" +#line 8215 "" if (nodur[*ivx + *ip * 24] > 0) { -#line 8166 "" +#line 8216 "" if (*ip > 1) { /* Check if this is last note of xtup */ -#line 8170 "" +#line 8220 "" if (nodur[*ivx + (*ip - 1) * 24] == 0) { -#line 8171 "" +#line 8221 "" ipback = *ip - 1; -#line 8172 "" +#line 8222 "" goto L2; -#line 8173 "" +#line 8223 "" } -#line 8174 "" +#line 8224 "" } -#line 8175 "" +#line 8225 "" ret_val = (real) nodur[*ivx + *ip * 24]; -#line 8176 "" +#line 8226 "" return ret_val; -#line 8177 "" +#line 8227 "" } -#line 8178 "" +#line 8228 "" L2: /* Count back to prior non zero note. Start at ip to avoid neg index if ip=1. */ /* Count how many doubled xtups notes there are from ip-1 to first note. */ -#line 8183 "" +#line 8233 "" ndoub = 0; -#line 8184 "" +#line 8234 "" for (ip1m1 = ipback; ip1m1 >= 1; --ip1m1) { -#line 8185 "" +#line 8235 "" if (nodur[*ivx + ip1m1 * 24] > 0) { -#line 8185 "" +#line 8235 "" goto L4; -#line 8185 "" +#line 8235 "" } -#line 8186 "" +#line 8236 "" if (ip1m1 < *ip && bit_test(nacc[*ivx + ip1m1 * 24],18)) { -#line 8186 "" +#line 8236 "" ++ndoub; -#line 8186 "" +#line 8236 "" } -#line 8187 "" +#line 8237 "" /* L1: */ -#line 8187 "" +#line 8237 "" } -#line 8188 "" +#line 8238 "" L4: /* count forward to next non-0 nodur. Start at ip in case last note of xtup. */ -#line 8192 "" +#line 8242 "" for (iip = *ip; iip <= 200; ++iip) { /* Count doubled xtup notes from ip to end. */ -#line 8196 "" +#line 8246 "" if (bit_test(nacc[*ivx + iip * 24],18)) { -#line 8196 "" +#line 8246 "" ++ndoub; -#line 8196 "" +#line 8246 "" } -#line 8197 "" +#line 8247 "" if (nodur[*ivx + iip * 24] > 0) { /* fnote = nodur(ivx,iip)/float(iip-ip1m1) */ -#line 8199 "" +#line 8249 "" ret_val = nodur[*ivx + iip * 24] / (real) (iip - ip1m1 + ndoub); -#line 8200 "" +#line 8250 "" if (bit_test(nacc[*ivx + *ip * 24],18)) { -#line 8201 "" +#line 8251 "" ret_val *= 2; -#line 8202 "" +#line 8252 "" } else if (bit_test(nacc[*ivx + *ip * 24],27)) { -#line 8203 "" +#line 8253 "" ret_val *= 1.5f; -#line 8204 "" +#line 8254 "" } else if (*ip > 1) { -#line 8205 "" +#line 8255 "" if (bit_test(nacc[*ivx + (*ip - 1) * 24],27)) { -#line 8205 "" +#line 8255 "" ret_val *= .5f; -#line 8205 "" +#line 8255 "" } -#line 8206 "" +#line 8256 "" } -#line 8207 "" +#line 8257 "" return ret_val; -#line 8208 "" +#line 8258 "" } -#line 8209 "" +#line 8259 "" /* L3: */ -#line 8209 "" +#line 8259 "" } -#line 8210 "" - s_wsle(&io___604); -#line 8210 "" +#line 8260 "" + s_wsle(&io___607); +#line 8260 "" do_lio(&c__9, &c__1, " ", (ftnlen)1); -#line 8210 "" +#line 8260 "" e_wsle(); -#line 8211 "" +#line 8261 "" printl_("Probable misplaced barline or incorrect meter, stopping", ( ftnlen)55); -#line 8213 "" - s_wsle(&io___605); -#line 8213 "" +#line 8263 "" + s_wsle(&io___608); +#line 8263 "" do_lio(&c__9, &c__1, "ivx,ip:", (ftnlen)7); -#line 8213 "" +#line 8263 "" do_lio(&c__3, &c__1, (char *)&(*ivx), (ftnlen)sizeof(integer)); -#line 8213 "" +#line 8263 "" do_lio(&c__3, &c__1, (char *)&(*ip), (ftnlen)sizeof(integer)); -#line 8213 "" +#line 8263 "" e_wsle(); -#line 8214 "" +#line 8264 "" stop1_(); -#line 8215 "" +#line 8265 "" return ret_val; } /* fnote_ */ @@ -20214,50 +20283,50 @@ L4: /* Gets the next character out of lineq*128. If pointer iccount=128 on entry, */ /* then reads in a new line. Resets iccount. Ends program if no more input. */ -#line 8229 "" +#line 8279 "" if (*iccount == 128) { -#line 8230 "" +#line 8280 "" read10_(lineq, &c1omget_1.lastchar, (ftnlen)128); -#line 8231 "" +#line 8281 "" if (c1omget_1.lastchar) { -#line 8231 "" +#line 8281 "" return 0; -#line 8231 "" +#line 8281 "" } -#line 8232 "" +#line 8282 "" if (! commac_1.endmac) { -#line 8233 "" +#line 8283 "" *iccount = 0; -#line 8234 "" +#line 8284 "" if (! commac_1.mplay) { -#line 8234 "" +#line 8284 "" ++c1omget_1.nline; -#line 8234 "" +#line 8284 "" } -#line 8235 "" +#line 8285 "" } else { -#line 8236 "" +#line 8286 "" commac_1.endmac = FALSE_; -#line 8237 "" +#line 8287 "" *iccount = commac_1.icchold; -#line 8238 "" +#line 8288 "" s_copy(lineq, commac_1.lnholdq, (ftnlen)128, (ftnlen)128); -#line 8239 "" +#line 8289 "" } -#line 8240 "" +#line 8290 "" if (commac_1.mrecord) { -#line 8241 "" +#line 8291 "" m1rec1_(lineq, iccount, &ibarcnt, &ibaroff, &nbars, &ndxm, ( ftnlen)128); -#line 8242 "" +#line 8292 "" } -#line 8243 "" +#line 8293 "" } -#line 8244 "" +#line 8294 "" ++(*iccount); -#line 8245 "" +#line 8295 "" *(unsigned char *)charq = *(unsigned char *)&lineq[*iccount - 1]; -#line 8246 "" +#line 8296 "" return 0; } /* g1etchar_ */ @@ -20329,4559 +20398,4671 @@ L4: static logical fulbrp; extern /* Subroutine */ int errmsg_(char *, integer *, integer *, char *, ftnlen, ftnlen); - static integer literr, mtrdnp; - static real sysflb; - static integer numint, numnum; + static integer literr, numint, numnum; static logical ztrans; - static integer lyrerr, mtrnmp; - static real fnsyst; + static integer lyrerr, mtrnmp, mtrdnp; + static real fnsyst, sysflb; static integer lenbeat; extern /* Subroutine */ int getchar_(char *, integer *, char *, ftnlen, ftnlen), getmidi_(integer *, char *, integer *, integer *, - integer *, integer *, integer *, integer *, logical *, ftnlen), - readnum_(char *, integer *, char *, real *, ftnlen, ftnlen); + integer *, integer *, integer *, integer *, integer *, logical *, + ftnlen), readnum_(char *, integer *, char *, real *, ftnlen, + ftnlen); static integer mtrdenl, lenmult, numshft; static logical plusmin; static real tintstf; extern /* Subroutine */ int g1etchar_(char *, integer *, char *, ftnlen, ftnlen); + static logical twotrem; static integer lvoltxt; /* Fortran I/O blocks */ - static cilist io___616 = { 0, 6, 0, 0, 0 }; - static cilist io___617 = { 0, 6, 0, 0, 0 }; - static cilist io___618 = { 0, 6, 0, 0, 0 }; - static cilist io___619 = { 0, 6, 0, 0, 0 }; - static cilist io___620 = { 0, 15, 0, "(/a)", 0 }; - static cilist io___621 = { 0, 15, 0, "(a11,2x,i3)", 0 }; - static cilist io___622 = { 0, 15, 0, 0, 0 }; + static cilist io___620 = { 0, 6, 0, 0, 0 }; + static cilist io___621 = { 0, 6, 0, 0, 0 }; + static cilist io___622 = { 0, 6, 0, 0, 0 }; static cilist io___623 = { 0, 6, 0, 0, 0 }; - static cilist io___631 = { 0, 6, 0, 0, 0 }; - static cilist io___632 = { 0, 6, 0, 0, 0 }; - static cilist io___633 = { 0, 6, 0, 0, 0 }; - static cilist io___638 = { 0, 6, 0, 0, 0 }; - static cilist io___639 = { 0, 6, 0, 0, 0 }; - static cilist io___640 = { 0, 6, 0, 0, 0 }; - static cilist io___654 = { 0, 6, 0, 0, 0 }; - static cilist io___657 = { 0, 6, 0, 0, 0 }; + static cilist io___624 = { 0, 15, 0, "(/a)", 0 }; + static cilist io___625 = { 0, 15, 0, "(a11,2x,i3)", 0 }; + static cilist io___626 = { 0, 15, 0, 0, 0 }; + static cilist io___627 = { 0, 6, 0, 0, 0 }; + static cilist io___635 = { 0, 6, 0, 0, 0 }; + static cilist io___636 = { 0, 6, 0, 0, 0 }; + static cilist io___637 = { 0, 6, 0, 0, 0 }; + static cilist io___642 = { 0, 6, 0, 0, 0 }; + static cilist io___643 = { 0, 6, 0, 0, 0 }; + static cilist io___644 = { 0, 6, 0, 0, 0 }; static cilist io___658 = { 0, 6, 0, 0, 0 }; - static cilist io___659 = { 0, 6, 0, 0, 0 }; + static cilist io___661 = { 0, 6, 0, 0, 0 }; static cilist io___662 = { 0, 6, 0, 0, 0 }; - static cilist io___668 = { 0, 6, 0, 0, 0 }; - static cilist io___669 = { 0, 6, 0, 0, 0 }; - static cilist io___670 = { 0, 15, 0, "(/,a)", 0 }; - static cilist io___671 = { 0, 6, 0, 0, 0 }; + static cilist io___663 = { 0, 6, 0, 0, 0 }; + static cilist io___666 = { 0, 6, 0, 0, 0 }; static cilist io___672 = { 0, 6, 0, 0, 0 }; - static cilist io___673 = { 0, 15, 0, "(a)", 0 }; - static cilist io___674 = { 0, 15, 0, "(a)", 0 }; - static cilist io___679 = { 0, 6, 0, 0, 0 }; - static cilist io___680 = { 0, 15, 0, "(a)", 0 }; - static cilist io___684 = { 0, 6, 0, 0, 0 }; - static cilist io___685 = { 0, 6, 0, 0, 0 }; - static cilist io___686 = { 0, 6, 0, 0, 0 }; - static cilist io___687 = { 0, 6, 0, "(1x,a21,i3,a23)", 0 }; - static cilist io___691 = { 0, 6, 0, 0, 0 }; - static cilist io___692 = { 0, 6, 0, 0, 0 }; - static cilist io___693 = { 0, 5, 0, "(a)", 0 }; - static cilist io___697 = { 0, 6, 0, 0, 0 }; - static cilist io___698 = { 0, 6, 0, 0, 0 }; + static cilist io___673 = { 0, 6, 0, 0, 0 }; + static cilist io___674 = { 0, 15, 0, "(/,a)", 0 }; + static cilist io___675 = { 0, 6, 0, 0, 0 }; + static cilist io___676 = { 0, 6, 0, 0, 0 }; + static cilist io___677 = { 0, 15, 0, "(a)", 0 }; + static cilist io___678 = { 0, 15, 0, "(a)", 0 }; + static cilist io___683 = { 0, 6, 0, 0, 0 }; + static cilist io___684 = { 0, 15, 0, "(a)", 0 }; + static cilist io___688 = { 0, 6, 0, 0, 0 }; + static cilist io___689 = { 0, 6, 0, 0, 0 }; + static cilist io___690 = { 0, 6, 0, 0, 0 }; + static cilist io___691 = { 0, 6, 0, "(1x,a21,i3,a23)", 0 }; + static cilist io___695 = { 0, 6, 0, 0, 0 }; + static cilist io___696 = { 0, 6, 0, 0, 0 }; + static cilist io___697 = { 0, 5, 0, "(a)", 0 }; + static cilist io___701 = { 0, 6, 0, 0, 0 }; + static cilist io___702 = { 0, 6, 0, 0, 0 }; + static cilist io___703 = { 0, 6, 0, 0, 0 }; /* * ibaroff,udsp(nkb),wheadpt,gotclef,sqzb(maxblks) */ -#line 8315 "" +#line 8370 "" cdot = FALSE_; -#line 8316 "" +#line 8371 "" + twotrem = FALSE_; +#line 8372 "" L1: -#line 8316 "" +#line 8372 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 8317 "" +#line 8373 "" if (*(unsigned char *)charq != ' ') { -#line 8317 "" +#line 8373 "" *(unsigned char *)charlq = *(unsigned char *)charq; -#line 8317 "" +#line 8373 "" } -#line 8318 "" +#line 8374 "" if (c1omget_1.lastchar) { -#line 8319 "" +#line 8375 "" if (i_indx("/%", charlq, (ftnlen)2, (ftnlen)1) == 0) { -#line 8320 "" - s_wsle(&io___616); -#line 8320 "" +#line 8376 "" + s_wsle(&io___620); +#line 8376 "" e_wsle(); -#line 8321 "" - s_wsle(&io___617); -#line 8321 "" +#line 8377 "" + s_wsle(&io___621); +#line 8377 "" do_lio(&c__9, &c__1, "WARNING:", (ftnlen)8); -#line 8321 "" +#line 8377 "" e_wsle(); -#line 8322 "" - s_wsle(&io___618); -#line 8322 "" +#line 8378 "" + s_wsle(&io___622); +#line 8378 "" do_lio(&c__9, &c__1, "Last non-blank character is \"", (ftnlen)29) ; -#line 8322 "" +#line 8378 "" do_lio(&c__9, &c__1, charlq, (ftnlen)1); -#line 8322 "" +#line 8378 "" do_lio(&c__9, &c__1, "\", not \"/,%\"", (ftnlen)12); -#line 8322 "" +#line 8378 "" e_wsle(); -#line 8323 "" - s_wsle(&io___619); -#line 8323 "" +#line 8379 "" + s_wsle(&io___623); +#line 8379 "" do_lio(&c__9, &c__1, "ASCII code:", (ftnlen)11); -#line 8323 "" +#line 8379 "" i__1 = *(unsigned char *)charlq; -#line 8323 "" +#line 8379 "" do_lio(&c__3, &c__1, (char *)&i__1, (ftnlen)sizeof(integer)); -#line 8323 "" +#line 8379 "" e_wsle(); -#line 8324 "" - s_wsfe(&io___620); +#line 8380 "" + s_wsfe(&io___624); /* Writing concatenation */ -#line 8324 "" +#line 8380 "" i__2[0] = 29, a__1[0] = "Last non-blank character is \""; -#line 8324 "" +#line 8380 "" i__2[1] = 1, a__1[1] = charlq; -#line 8324 "" +#line 8380 "" i__2[2] = 12, a__1[2] = "\", not \"/,%\""; -#line 8324 "" +#line 8380 "" s_cat(ch__1, a__1, i__2, &c__3, (ftnlen)42); -#line 8324 "" +#line 8380 "" do_fio(&c__1, ch__1, (ftnlen)42); -#line 8324 "" +#line 8380 "" e_wsfe(); -#line 8326 "" - s_wsfe(&io___621); -#line 8326 "" +#line 8382 "" + s_wsfe(&io___625); +#line 8382 "" do_fio(&c__1, "ASCII code:", (ftnlen)11); -#line 8326 "" +#line 8382 "" i__1 = *(unsigned char *)charlq; -#line 8326 "" +#line 8382 "" do_fio(&c__1, (char *)&i__1, (ftnlen)sizeof(integer)); -#line 8326 "" +#line 8382 "" e_wsfe(); /* Append " /" to last line. NB lastchar=.true. => ilbuf=nlbuf+1. */ -#line 8330 "" +#line 8386 "" --inbuff_1.ilbuf; -#line 8331 "" +#line 8387 "" inbuff_1.lbuf[inbuff_1.ilbuf - 1] = (shortint) (inbuff_1.lbuf[ inbuff_1.ilbuf - 1] + 2); /* Writing concatenation */ -#line 8332 "" +#line 8388 "" i__3[0] = inbuff_1.ipbuf, a__2[0] = inbuff_1.bufq; -#line 8332 "" +#line 8388 "" i__3[1] = 2, a__2[1] = " /"; -#line 8332 "" +#line 8388 "" s_cat(inbuff_1.bufq, a__2, i__3, &c__2, (ftnlen)131072); -#line 8333 "" - s_wsle(&io___622); -#line 8333 "" +#line 8389 "" + s_wsle(&io___626); +#line 8389 "" do_lio(&c__9, &c__1, "appending <blank>/", (ftnlen)18); -#line 8333 "" +#line 8389 "" e_wsle(); -#line 8334 "" - s_wsle(&io___623); -#line 8334 "" +#line 8390 "" + s_wsle(&io___627); +#line 8390 "" do_lio(&c__9, &c__1, "appending <blank>/", (ftnlen)18); -#line 8334 "" +#line 8390 "" e_wsle(); /* Writing concatenation */ -#line 8335 "" +#line 8391 "" i__3[0] = a1ll_2.iccount, a__2[0] = lineq; -#line 8335 "" +#line 8391 "" i__3[1] = 2, a__2[1] = " /"; -#line 8335 "" +#line 8391 "" s_cat(lineq, a__2, i__3, &c__2, (ftnlen)128); -#line 8336 "" +#line 8392 "" c1omget_1.lastchar = FALSE_; -#line 8337 "" +#line 8393 "" goto L1; -#line 8338 "" +#line 8394 "" } -#line 8339 "" +#line 8395 "" return 0; -#line 8340 "" +#line 8396 "" } -#line 8341 "" +#line 8397 "" if (*(unsigned char *)charq == ' ') { -#line 8342 "" +#line 8398 "" goto L1; -#line 8343 "" +#line 8399 "" } else if (*(unsigned char *)charq == '%' && a1ll_2.iccount == 1) { -#line 8344 "" +#line 8400 "" a1ll_2.iccount = 128; -#line 8345 "" +#line 8401 "" goto L1; /* Replacement 1/22/12 since gfortran 4.7 with -O was choking here! */ /* else if ((ichar(charq).ge.97.and.ichar(charq).le.103) .or. */ -#line 8350 "" +#line 8406 "" } else if (i_indx("abcdefg", charq, (ftnlen)7, (ftnlen)1) > 0 || *( unsigned char *)charq == 'r') { /* This is a note/rest. gotclef is only used for checking for clef before "/" */ -#line 8355 "" +#line 8411 "" if (cdot) { -#line 8355 "" +#line 8411 "" goto L28; -#line 8355 "" +#line 8411 "" } /* if (gotclef) gotclef=.false. */ -#line 8357 "" +#line 8413 "" idotform = 0; -#line 8358 "" +#line 8414 "" numnum = 0; -#line 8359 "" +#line 8415 "" plusmin = FALSE_; -#line 8360 "" +#line 8416 "" L28: -#line 8360 "" +#line 8416 "" ++a1ll_2.nnl[c1ommvl_1.ivx - 1]; -#line 8361 "" +#line 8417 "" if (a1ll_2.nnl[c1ommvl_1.ivx - 1] > 200) { -#line 8362 "" +#line 8418 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8362 "" +#line 8418 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, ">200 notes in line of mu"\ "sic. Use smaller blocks!", (ftnlen)128, (ftnlen)48); -#line 8364 "" +#line 8420 "" stop1_(); -#line 8365 "" +#line 8421 "" } -#line 8366 "" +#line 8422 "" *(unsigned char *)dotq = 'x'; /* Check if this is 'r ' and previous note was full-bar-pause */ -#line 8370 "" +#line 8426 "" i__1 = a1ll_2.iccount; /* Computing MAX */ -#line 8370 "" +#line 8426 "" i__4 = 1, i__5 = a1ll_2.nnl[c1ommvl_1.ivx - 1] - 1; /* Computing MAX */ -#line 8370 "" +#line 8426 "" i__6 = 1, i__7 = a1ll_2.nnl[c1ommvl_1.ivx - 1] - 1; -#line 8370 "" +#line 8426 "" fulbrp = *(unsigned char *)charq == 'r' && s_cmp(lineq + i__1, " ", a1ll_2.iccount + 1 - i__1, (ftnlen)1) == 0 && a1ll_2.nnl[ c1ommvl_1.ivx - 1] > 1 && a1ll_2.rest[c1ommvl_1.ivx + max( i__4,i__5) * 24 - 25] && a1ll_2.nodur[c1ommvl_1.ivx + max( i__6,i__7) * 24 - 25] == a1ll_2.lenbar; -#line 8373 "" +#line 8429 "" L2: -#line 8373 "" +#line 8429 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 8374 "" +#line 8430 "" ic = *(unsigned char *)durq; -#line 8375 "" +#line 8431 "" if (ic <= 57 && ic >= 48) { /* Digit */ -#line 8379 "" +#line 8435 "" if (numnum == 0) { -#line 8380 "" +#line 8436 "" c1omnotes_1.nnodur = ic - 48; -#line 8381 "" +#line 8437 "" numnum = 1; -#line 8382 "" +#line 8438 "" goto L2; -#line 8383 "" +#line 8439 "" } else if (numnum == 1) { -#line 8384 "" +#line 8440 "" if (*(unsigned char *)charq == 'r') { -#line 8385 "" +#line 8441 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8385 "" +#line 8441 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Only one digit a"\ "llowed after rest symbol \"r\"!", (ftnlen)128, ( ftnlen)45); -#line 8387 "" +#line 8443 "" stop1_(); -#line 8388 "" +#line 8444 "" } -#line 8389 "" +#line 8445 "" numnum = 2; -#line 8390 "" +#line 8446 "" if (plusmin) { -#line 8391 "" - s_wsle(&io___631); -#line 8391 "" +#line 8447 "" + s_wsle(&io___635); +#line 8447 "" e_wsle(); -#line 8392 "" - s_wsle(&io___632); -#line 8392 "" +#line 8448 "" + s_wsle(&io___636); +#line 8448 "" do_lio(&c__9, &c__1, "*********WARNING*********", (ftnlen) 25); -#line 8392 "" +#line 8448 "" e_wsle(); -#line 8393 "" +#line 8449 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8393 "" +#line 8449 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Before version 1"\ ".2, +/- was ignored if octave was!", (ftnlen)128, (ftnlen)50); -#line 8395 "" - s_wsle(&io___633); -#line 8395 "" +#line 8451 "" + s_wsle(&io___637); +#line 8451 "" do_lio(&c__9, &c__1, "explicitly specified. May need to"\ " edit old editions", (ftnlen)52); -#line 8395 "" +#line 8451 "" e_wsle(); -#line 8397 "" +#line 8453 "" } -#line 8398 "" +#line 8454 "" goto L2; -#line 8399 "" +#line 8455 "" } else { -#line 8400 "" +#line 8456 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8400 "" +#line 8456 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, ">2 digits in note sy"\ "mbol!", (ftnlen)128, (ftnlen)25); -#line 8402 "" +#line 8458 "" stop1_(); -#line 8403 "" +#line 8459 "" } -#line 8404 "" +#line 8460 "" } else if (*(unsigned char *)durq == 'd') { -#line 8405 "" +#line 8461 "" *(unsigned char *)dotq = *(unsigned char *)durq; -#line 8406 "" +#line 8462 "" i__1 = a1ll_2.iccount; -#line 8406 "" +#line 8462 "" if (s_cmp(lineq + i__1, "d", a1ll_2.iccount + 1 - i__1, (ftnlen)1) == 0) { -#line 8407 "" +#line 8463 "" c1omnotes_1.iddot = 1; -#line 8408 "" +#line 8464 "" ++a1ll_2.iccount; /* Since we flow out, double dots won't work with other dot options */ -#line 8412 "" +#line 8468 "" } -#line 8413 "" +#line 8469 "" i__1 = a1ll_2.iccount; -#line 8413 "" +#line 8469 "" if (i_indx("+-", lineq + i__1, (ftnlen)2, a1ll_2.iccount + 1 - i__1) > 0) { /* move a dot, provided a number follows. */ -#line 8417 "" +#line 8473 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 8418 "" +#line 8474 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 8419 "" +#line 8475 "" if (i_indx("0123456789-.", durq, (ftnlen)12, (ftnlen)1) == 0) { /* Backup, exit the loop normally */ -#line 8423 "" +#line 8479 "" a1ll_2.iccount += -2; -#line 8424 "" +#line 8480 "" goto L2; -#line 8425 "" +#line 8481 "" } -#line 8426 "" +#line 8482 "" readnum_(lineq, &a1ll_2.iccount, dumq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 8427 "" +#line 8483 "" if (i_indx("+-", dumq, (ftnlen)2, (ftnlen)1) > 0) { /* Vertical shift also */ -#line 8431 "" +#line 8487 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 8432 "" +#line 8488 "" if (i_indx("0123456789-.", durq, (ftnlen)12, (ftnlen)1) == 0) { -#line 8433 "" +#line 8489 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8433 "" +#line 8489 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Expected num"\ "ber after 2nd +/- (shift dot)!", (ftnlen)128, (ftnlen)42); -#line 8435 "" +#line 8491 "" stop1_(); -#line 8436 "" +#line 8492 "" } -#line 8437 "" +#line 8493 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 8438 "" +#line 8494 "" } -#line 8439 "" +#line 8495 "" --a1ll_2.iccount; -#line 8440 "" +#line 8496 "" } -#line 8441 "" +#line 8497 "" goto L2; -#line 8442 "" +#line 8498 "" } else if (i_indx("<>", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Accidental shift */ /* if (index('fsn',lineq(iccount-1:iccount-1)) .eq. 0) then */ -#line 8447 "" +#line 8503 "" i__1 = a1ll_2.iccount - 2; -#line 8447 "" +#line 8503 "" if (i_indx("fsnA", lineq + i__1, (ftnlen)4, a1ll_2.iccount - 1 - i__1) == 0) { -#line 8448 "" +#line 8504 "" i__1 = a1ll_2.iccount - 1; -#line 8448 "" +#line 8504 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8448 "" +#line 8504 "" errmsg_(lineq, &i__1, &i__4, "Expected \"f\", \"s\", \"n\" o"\ "r \"A\" before \"<\" or \">\"!", (ftnlen)128, (ftnlen) 48); /* * 'Expected "f", "s", or "n" before "<" or ">"!') */ -#line 8451 "" +#line 8507 "" stop1_(); -#line 8452 "" +#line 8508 "" } -#line 8453 "" +#line 8509 "" ipm = 1; -#line 8454 "" +#line 8510 "" if (*(unsigned char *)durq == '<') { -#line 8454 "" +#line 8510 "" ipm = -1; -#line 8454 "" +#line 8510 "" } -#line 8455 "" +#line 8511 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 8456 "" +#line 8512 "" if (i_indx("123456789.0", durq, (ftnlen)11, (ftnlen)1) == 0) { -#line 8457 "" +#line 8513 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8457 "" +#line 8513 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Expected number afte"\ "r </> (accidental shift)!", (ftnlen)128, (ftnlen)45); -#line 8459 "" +#line 8515 "" stop1_(); -#line 8460 "" +#line 8516 "" } -#line 8461 "" +#line 8517 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 8462 "" +#line 8518 "" fnum = ipm * fnum; -#line 8463 "" +#line 8519 "" if (fnum < -5.35f || fnum > 1.f) { -#line 8464 "" +#line 8520 "" i__1 = a1ll_2.iccount - 1; -#line 8464 "" +#line 8520 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8464 "" +#line 8520 "" errmsg_(lineq, &i__1, &i__4, "Horizontal accidental shift mu"\ "st be >-5.35 and <1.0!", (ftnlen)128, (ftnlen)52); -#line 8466 "" +#line 8522 "" stop1_(); -#line 8467 "" +#line 8523 "" } -#line 8468 "" +#line 8524 "" --a1ll_2.iccount; -#line 8469 "" +#line 8525 "" goto L2; -#line 8470 "" +#line 8526 "" } else if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { -#line 8471 "" +#line 8527 "" if (*(unsigned char *)charq != 'r') { -#line 8472 "" +#line 8528 "" i__1 = a1ll_2.iccount - 2; -#line 8472 "" +#line 8528 "" if (i_indx("fsnA", lineq + i__1, (ftnlen)4, a1ll_2.iccount - 1 - i__1) > 0) { -#line 8473 "" +#line 8529 "" ipm = 1; -#line 8474 "" +#line 8530 "" if (*(unsigned char *)durq == '-') { -#line 8474 "" +#line 8530 "" ipm = -1; -#line 8474 "" +#line 8530 "" } -#line 8475 "" +#line 8531 "" i__1 = a1ll_2.iccount; -#line 8475 "" +#line 8531 "" if (i_indx("0123456789", lineq + i__1, (ftnlen)10, a1ll_2.iccount + 1 - i__1) > 0) { /* This may be start of accidental shift, but may be octave jump; then duration */ -#line 8480 "" +#line 8536 "" icsav = a1ll_2.iccount; -#line 8481 "" +#line 8537 "" ++a1ll_2.iccount; -#line 8482 "" +#line 8538 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen) 128, (ftnlen)1); -#line 8483 "" +#line 8539 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { /* This is an accid shift since there's a 2nd consecutive signed number. */ /* Check size of 1st number. */ -#line 8488 "" +#line 8544 "" if (fnum > 30.5f) { -#line 8489 "" +#line 8545 "" i__1 = a1ll_2.iccount - 1; -#line 8489 "" +#line 8545 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8489 "" +#line 8545 "" errmsg_(lineq, &i__1, &i__4, "Vertical accid"\ "ental shift must be less than 31!", ( ftnlen)128, (ftnlen)47); -#line 8491 "" +#line 8547 "" stop1_(); -#line 8492 "" +#line 8548 "" } -#line 8493 "" +#line 8549 "" ipm = 1; -#line 8494 "" +#line 8550 "" if (*(unsigned char *)durq == '-') { -#line 8494 "" +#line 8550 "" ipm = -1; -#line 8494 "" +#line 8550 "" } -#line 8495 "" +#line 8551 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen) 128, (ftnlen)1); -#line 8496 "" +#line 8552 "" if (i_indx("1234567890.", durq, (ftnlen)11, ( ftnlen)1) == 0) { -#line 8497 "" +#line 8553 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8497 "" +#line 8553 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Expe"\ "cted 2nd number of accidental shift)!" , (ftnlen)128, (ftnlen)41); -#line 8499 "" +#line 8555 "" stop1_(); -#line 8500 "" +#line 8556 "" } -#line 8501 "" +#line 8557 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, ( ftnlen)128, (ftnlen)1); -#line 8502 "" +#line 8558 "" fnum = ipm * fnum; -#line 8503 "" +#line 8559 "" if (fnum < -5.35f || fnum > 1.f) { -#line 8504 "" +#line 8560 "" i__1 = a1ll_2.iccount - 1; -#line 8504 "" +#line 8560 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8504 "" +#line 8560 "" errmsg_(lineq, &i__1, &i__4, "Horiz. acciden"\ "tal shift must be >-5.35 and <1.0!", ( ftnlen)128, (ftnlen)48); -#line 8506 "" +#line 8562 "" stop1_(); -#line 8507 "" +#line 8563 "" } -#line 8508 "" +#line 8564 "" --a1ll_2.iccount; -#line 8509 "" +#line 8565 "" goto L2; -#line 8510 "" +#line 8566 "" } else { /* Not accid shift, reset, then flow out */ -#line 8514 "" +#line 8570 "" a1ll_2.iccount = icsav; -#line 8515 "" +#line 8571 "" } -#line 8516 "" +#line 8572 "" } -#line 8517 "" +#line 8573 "" } -#line 8518 "" +#line 8574 "" plusmin = TRUE_; -#line 8519 "" +#line 8575 "" if (numnum == 2) { -#line 8520 "" - s_wsle(&io___638); -#line 8520 "" +#line 8576 "" + s_wsle(&io___642); +#line 8576 "" e_wsle(); -#line 8521 "" - s_wsle(&io___639); -#line 8521 "" +#line 8577 "" + s_wsle(&io___643); +#line 8577 "" do_lio(&c__9, &c__1, "*********WARNING*********", (ftnlen) 25); -#line 8521 "" +#line 8577 "" e_wsle(); -#line 8522 "" +#line 8578 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8522 "" +#line 8578 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Before version 1"\ ".2, +/- was ignored if octave was!", (ftnlen)128, (ftnlen)50); -#line 8524 "" - s_wsle(&io___640); -#line 8524 "" +#line 8580 "" + s_wsle(&io___644); +#line 8580 "" do_lio(&c__9, &c__1, "explicitly specified. May need to"\ " edit old editions", (ftnlen)52); -#line 8524 "" +#line 8580 "" e_wsle(); -#line 8526 "" +#line 8582 "" } -#line 8527 "" +#line 8583 "" goto L2; /* It's a rest containing +|- . Must refer to a vertical shift. Read past. */ -#line 8531 "" +#line 8587 "" } else { -#line 8532 "" +#line 8588 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 8533 "" +#line 8589 "" readnum_(lineq, &a1ll_2.iccount, durq, &dum, (ftnlen)128, ( ftnlen)1); -#line 8534 "" +#line 8590 "" i__1 = a1ll_2.iccount - 2; -#line 8534 "" +#line 8590 "" if (s_cmp(lineq + i__1, ".", a1ll_2.iccount - 1 - i__1, ( ftnlen)1) == 0) { -#line 8534 "" +#line 8590 "" --a1ll_2.iccount; -#line 8534 "" +#line 8590 "" } -#line 8535 "" +#line 8591 "" --a1ll_2.iccount; -#line 8536 "" +#line 8592 "" goto L2; -#line 8537 "" +#line 8593 "" } /* else if (index('ulare',durq) .gt. 0) then */ -#line 8539 "" +#line 8595 "" } else if (i_indx("ularec", durq, (ftnlen)6, (ftnlen)1) > 0) { -#line 8540 "" +#line 8596 "" goto L2; -#line 8541 "" +#line 8597 "" } else if (i_indx("LS", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Stemlength change */ -#line 8545 "" +#line 8601 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 8546 "" +#line 8602 "" if (i_indx(".0123456789:", durq, (ftnlen)12, (ftnlen)1) == 0) { -#line 8547 "" +#line 8603 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8547 "" +#line 8603 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "There must be a numb"\ "er or colon here!", (ftnlen)128, (ftnlen)37); -#line 8549 "" +#line 8605 "" stop1_(); -#line 8550 "" +#line 8606 "" } -#line 8551 "" +#line 8607 "" if (*(unsigned char *)durq == ':') { -#line 8552 "" +#line 8608 "" if (! comkeys_1.stickys) { -#line 8553 "" +#line 8609 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8553 "" +#line 8609 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Turned off stick"\ "y stemlegth changes without turning on!", (ftnlen) 128, (ftnlen)55); -#line 8555 "" +#line 8611 "" stop1_(); -#line 8556 "" +#line 8612 "" } -#line 8557 "" +#line 8613 "" comkeys_1.stickys = FALSE_; -#line 8558 "" +#line 8614 "" goto L2; -#line 8559 "" +#line 8615 "" } -#line 8560 "" +#line 8616 "" readnum_(lineq, &a1ll_2.iccount, durq, &dum, (ftnlen)128, (ftnlen) 1); /* if (dum.lt..5 .or. dum.gt.4.) then */ -#line 8562 "" +#line 8618 "" if (*(unsigned char *)durq == 'L' && dum > 20.f || *(unsigned char *)durq == 'S' && dum > 4.f) { -#line 8564 "" +#line 8620 "" i__1 = a1ll_2.iccount - 1; -#line 8564 "" +#line 8620 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8564 "" +#line 8620 "" errmsg_(lineq, &i__1, &i__4, "Stemlength change amount too b"\ "ig!", (ftnlen)128, (ftnlen)33); -#line 8566 "" +#line 8622 "" stop1_(); -#line 8567 "" +#line 8623 "" } -#line 8568 "" +#line 8624 "" if (*(unsigned char *)durq != ':') { -#line 8569 "" +#line 8625 "" --a1ll_2.iccount; -#line 8570 "" +#line 8626 "" } else { -#line 8571 "" +#line 8627 "" if (comkeys_1.stickys) { -#line 8572 "" +#line 8628 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8572 "" +#line 8628 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Turned on sticky"\ " stemshrinks when already on!", (ftnlen)128, ( ftnlen)45); -#line 8574 "" +#line 8630 "" stop1_(); -#line 8575 "" +#line 8631 "" } -#line 8576 "" +#line 8632 "" comkeys_1.stickys = TRUE_; -#line 8577 "" +#line 8633 "" } -#line 8578 "" +#line 8634 "" goto L2; -#line 8579 "" +#line 8635 "" } else if (i_indx("fsn", durq, (ftnlen)3, (ftnlen)1) > 0) { /* Check for midi-only accid. CANNOT coesist with accidental position tweaks, so */ /* MUST come right after "f,s,n" */ -#line 8584 "" +#line 8640 "" i__1 = a1ll_2.iccount; -#line 8584 "" +#line 8640 "" if (s_cmp(lineq + i__1, "i", a1ll_2.iccount + 1 - i__1, (ftnlen)1) == 0) { -#line 8584 "" +#line 8640 "" ++a1ll_2.iccount; -#line 8584 "" +#line 8640 "" } -#line 8585 "" +#line 8641 "" goto L2; -#line 8586 "" +#line 8642 "" } else if (*(unsigned char *)durq == 'p') { -#line 8587 "" +#line 8643 "" fulbrp = *(unsigned char *)charq == 'r'; -#line 8588 "" +#line 8644 "" if (! fulbrp) { -#line 8589 "" +#line 8645 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8589 "" +#line 8645 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "The option \"p\" onl"\ "y works with \"r\" (rest)!", (ftnlen)128, (ftnlen)42); -#line 8591 "" +#line 8647 "" stop1_(); -#line 8592 "" +#line 8648 "" } -#line 8593 "" +#line 8649 "" goto L2; -#line 8594 "" +#line 8650 "" } else if (*(unsigned char *)durq == 'b') { -#line 8595 "" +#line 8651 "" if (*(unsigned char *)charq != 'r') { -#line 8596 "" +#line 8652 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8596 "" +#line 8652 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "You entered \"b\"; I"\ " expected \"rb\"!", (ftnlen)128, (ftnlen)33); -#line 8598 "" +#line 8654 "" stop1_(); -#line 8599 "" +#line 8655 "" } else if (numnum == 2) { -#line 8600 "" +#line 8656 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8600 "" +#line 8656 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "You entered \"r\" &"\ " \"b\" with two numbers!", (ftnlen)128, (ftnlen)39); -#line 8602 "" +#line 8658 "" } -#line 8603 "" +#line 8659 "" goto L2; -#line 8604 "" +#line 8660 "" } else if (*(unsigned char *)durq == 'x') { /* Xtuplet. Count number of doubled notes (for unequal xtups) */ -#line 8608 "" +#line 8664 "" if (bit_test(c1ommvl_1.nacc[c1ommvl_1.ivx + a1ll_2.nnl[ c1ommvl_1.ivx - 1] * 24 - 25],18)) { -#line 8609 "" +#line 8665 "" ndoub = 1; -#line 8610 "" +#line 8666 "" } else { -#line 8611 "" +#line 8667 "" ndoub = 0; -#line 8612 "" +#line 8668 "" } /* Will set all durations to 0 except last one. */ -#line 8616 "" +#line 8672 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 8617 "" +#line 8673 "" if (i_indx("123456789T", durq, (ftnlen)10, (ftnlen)1) == 0) { -#line 8618 "" +#line 8674 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8618 "" +#line 8674 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "First char after \""\ "x\" in xtuplet must be \"1\"-\"9\" or \"T\"!", ( ftnlen)128, (ftnlen)55); -#line 8620 "" +#line 8676 "" stop1_(); -#line 8621 "" +#line 8677 "" } -#line 8622 "" +#line 8678 "" if (*(unsigned char *)durq == 'T') { +/* Set a flag for checking 2nd note inputs if dot is moved */ + +#line 8682 "" + twotrem = TRUE_; + /* Check all x-tremolo inputs here; set fnum=2 */ -#line 8626 "" +#line 8686 "" fnum = 2.f; -#line 8627 "" +#line 8687 "" getchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1) ; -#line 8628 "" +#line 8688 "" if (i_indx("0123 ", durq, (ftnlen)5, (ftnlen)1) == 0) { -#line 8629 "" +#line 8689 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8629 "" +#line 8689 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "First char aft"\ "er \"T\" in xtuplet must be \"0\"-\"3\" or blank!" , (ftnlen)128, (ftnlen)57); -#line 8631 "" +#line 8691 "" stop1_(); -#line 8632 "" +#line 8692 "" } else if (*(unsigned char *)durq != ' ') { -#line 8633 "" +#line 8693 "" getchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 8634 "" +#line 8694 "" if (i_indx("0123 ", durq, (ftnlen)5, (ftnlen)1) == 0) { -#line 8635 "" +#line 8695 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8635 "" +#line 8695 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "This char mu"\ "st be \"0\"-\"3\" or blank!", (ftnlen)128, ( ftnlen)35); -#line 8637 "" +#line 8697 "" stop1_(); -#line 8638 "" +#line 8698 "" } else if (*(unsigned char *)durq != ' ') { -#line 8639 "" +#line 8699 "" getchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); /* Probably blank unles other options entered */ -#line 8643 "" +#line 8703 "" } -#line 8644 "" +#line 8704 "" } -#line 8645 "" +#line 8705 "" } else { /* durq is digit, normal xtup */ -#line 8649 "" +#line 8709 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); /* Leaves durq at next char after number */ -#line 8653 "" +#line 8713 "" if (fnum > 99.f) { -#line 8654 "" +#line 8714 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8654 "" +#line 8714 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Xtuplet cannot h"\ "ave more than 99 notes!", (ftnlen)128, (ftnlen)39) ; -#line 8656 "" +#line 8716 "" stop1_(); -#line 8657 "" +#line 8717 "" } else if (i_indx(" DFnd", durq, (ftnlen)5, (ftnlen)1) == 0) { -#line 8658 "" +#line 8718 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8658 "" +#line 8718 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Only legal chara"\ "cters here are \" \",\"D\",\"F\",\"n\"!", (ftnlen) 128, (ftnlen)47); -#line 8660 "" +#line 8720 "" stop1_(); -#line 8661 "" +#line 8721 "" } -#line 8662 "" +#line 8722 "" } /* End of mandatory xtup inputs. Check for options. Note D,F,d must precede n. */ -#line 8666 "" +#line 8726 "" if (i_indx("DF", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Double xtup note to make an un= xtup. Here, number already set, but may also */ /* have used this before number was set. */ -#line 8671 "" +#line 8731 "" c1ommvl_1.nacc[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25] = bit_set(c1ommvl_1.nacc[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25],18); -#line 8672 "" +#line 8732 "" ndoub = 1; -#line 8673 "" +#line 8733 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 8674 "" +#line 8734 "" } else if (*(unsigned char *)durq == 'd') { -#line 8675 "" +#line 8735 "" c1ommvl_1.nacc[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25] = bit_set(c1ommvl_1.nacc[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25],27); -#line 8676 "" +#line 8736 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 8677 "" +#line 8737 "" } -#line 8678 "" +#line 8738 "" if (*(unsigned char *)durq == 'n') { /* Number alteration stuff. After 'n', require '+-123456789fs ', no more 'DF'. */ -#line 8682 "" +#line 8742 "" numshft = 0; -#line 8683 "" +#line 8743 "" L30: -#line 8683 "" +#line 8743 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 8684 "" +#line 8744 "" if (*(unsigned char *)durq == 'f') { -#line 8685 "" +#line 8745 "" goto L30; -#line 8686 "" +#line 8746 "" } else if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { -#line 8687 "" +#line 8747 "" ++numshft; -#line 8688 "" +#line 8748 "" if (numshft == 3) { -#line 8689 "" +#line 8749 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8689 "" +#line 8749 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Only 2 shift"\ "s are allowed after \"n\" in xtup!", (ftnlen) 128, (ftnlen)44); -#line 8691 "" +#line 8751 "" stop1_(); -#line 8692 "" +#line 8752 "" } -#line 8693 "" +#line 8753 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 8694 "" +#line 8754 "" if (i_indx("0123456789.", durq, (ftnlen)11, (ftnlen)1) == 0) { -#line 8695 "" +#line 8755 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8695 "" +#line 8755 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "This charact"\ "er should be a digit or \".\"!", (ftnlen)128, (ftnlen)40); -#line 8697 "" +#line 8757 "" stop1_(); -#line 8698 "" +#line 8758 "" } -#line 8699 "" +#line 8759 "" readnum_(lineq, &a1ll_2.iccount, durq, &snum, (ftnlen)128, (ftnlen)1); -#line 8700 "" +#line 8760 "" --a1ll_2.iccount; /* if ((numshft.eq.1 .and. snum.gt.15.1) .or. */ -#line 8702 "" +#line 8762 "" if (numshft == 1 && snum > 64.f || numshft == 2 && snum > 1.51f) { -#line 8704 "" +#line 8764 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8704 "" +#line 8764 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Shift number"\ " after \"n\" in xtup is out of range!", ( ftnlen)128, (ftnlen)47); -#line 8706 "" +#line 8766 "" stop1_(); -#line 8707 "" +#line 8767 "" } -#line 8708 "" +#line 8768 "" goto L30; -#line 8709 "" +#line 8769 "" } else if (*(unsigned char *)durq == 's') { /* Slope alteration for bracket */ -#line 8713 "" +#line 8773 "" getchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 8714 "" +#line 8774 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) == 0) { -#line 8715 "" +#line 8775 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8715 "" +#line 8775 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "For slope ad"\ "justment, this character must be \"+\" or \"-"\ "\"!", (ftnlen)128, (ftnlen)56); -#line 8717 "" +#line 8777 "" stop1_(); -#line 8718 "" +#line 8778 "" } -#line 8719 "" +#line 8779 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 8720 "" +#line 8780 "" if (i_indx("123456789", durq, (ftnlen)9, (ftnlen)1) == 0) { -#line 8721 "" +#line 8781 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8721 "" +#line 8781 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "This charact"\ "er should be a digit!", (ftnlen)128, (ftnlen) 33); -#line 8723 "" +#line 8783 "" stop1_(); -#line 8724 "" +#line 8784 "" } -#line 8725 "" +#line 8785 "" readnum_(lineq, &a1ll_2.iccount, durq, &snum, (ftnlen)128, (ftnlen)1); -#line 8726 "" +#line 8786 "" --a1ll_2.iccount; -#line 8727 "" +#line 8787 "" if (i_nint(&snum) > 15) { -#line 8728 "" +#line 8788 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8728 "" +#line 8788 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Slope adjust"\ "ment cannot exceed 15!", (ftnlen)128, (ftnlen) 34); -#line 8730 "" +#line 8790 "" stop1_(); -#line 8731 "" +#line 8791 "" } -#line 8732 "" +#line 8792 "" goto L30; -#line 8733 "" +#line 8793 "" } else if (i_indx("123456789", durq, (ftnlen)9, (ftnlen)1) > 0) { /* Unsigned integer => alternate printed number */ -#line 8737 "" +#line 8797 "" readnum_(lineq, &a1ll_2.iccount, durq, &snum, (ftnlen)128, (ftnlen)1); -#line 8738 "" +#line 8798 "" if (snum > 15.1f) { -#line 8739 "" +#line 8799 "" i__1 = a1ll_2.iccount - 1; -#line 8739 "" +#line 8799 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8739 "" +#line 8799 "" errmsg_(lineq, &i__1, &i__4, "Alternate xtup number "\ "after \"n\" must be <16!", (ftnlen)128, ( ftnlen)44); -#line 8741 "" +#line 8801 "" stop1_(); -#line 8742 "" +#line 8802 "" } -#line 8743 "" +#line 8803 "" --a1ll_2.iccount; -#line 8744 "" +#line 8804 "" goto L30; -#line 8745 "" +#line 8805 "" } else if (*(unsigned char *)durq != ' ') { -#line 8746 "" +#line 8806 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8746 "" +#line 8806 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal characte"\ "r after \"n\" in xtup!", (ftnlen)128, (ftnlen)36); -#line 8748 "" +#line 8808 "" stop1_(); -#line 8749 "" +#line 8809 "" } -#line 8750 "" +#line 8810 "" } -#line 8751 "" +#line 8811 "" ntup = i_nint(&fnum); -#line 8752 "" +#line 8812 "" i__1 = ntup; -#line 8752 "" +#line 8812 "" for (itup = 2; itup <= i__1; ++itup) { -#line 8753 "" +#line 8813 "" a1ll_2.nodur[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25] = 0; -#line 8754 "" +#line 8814 "" ++a1ll_2.nnl[c1ommvl_1.ivx - 1]; -#line 8755 "" +#line 8815 "" L110: -#line 8755 "" +#line 8815 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 8756 "" +#line 8816 "" if (*(unsigned char *)durq == ' ') { -#line 8757 "" +#line 8817 "" goto L110; -#line 8758 "" +#line 8818 "" } else if (*(unsigned char *)durq == 'o') { /* Ornament in xtup. "o" symbol must come AFTER the affected note */ -#line 8762 "" +#line 8822 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, ( ftnlen)1); -#line 8763 "" +#line 8823 "" if (i_indx("(stmx+Tup._)e:>^bc", dumq, (ftnlen)18, ( ftnlen)1) == 0) { -#line 8764 "" +#line 8824 "" if (i_indx("fg", dumq, (ftnlen)2, (ftnlen)1) > 0) { -#line 8765 "" +#line 8825 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8765 "" +#line 8825 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Fermata "\ "or segno not allowed in xtuplet!", ( ftnlen)128, (ftnlen)40); -#line 8767 "" +#line 8827 "" } else { -#line 8768 "" +#line 8828 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8768 "" +#line 8828 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Illegal "\ "ornament!", (ftnlen)128, (ftnlen)17); -#line 8770 "" +#line 8830 "" } -#line 8771 "" +#line 8831 "" stop1_(); -#line 8772 "" +#line 8832 "" } -#line 8773 "" +#line 8833 "" if (*(unsigned char *)dumq == 'T') { /* Trill. may be followed by 't' and/or number. read 'til blank */ -#line 8777 "" +#line 8837 "" L29: -#line 8777 "" +#line 8837 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, ( ftnlen)1); -#line 8778 "" +#line 8838 "" if (*(unsigned char *)dumq != ' ') { -#line 8778 "" +#line 8838 "" goto L29; -#line 8778 "" +#line 8838 "" } -#line 8779 "" +#line 8839 "" } else if (*(unsigned char *)dumq == 'e') { -#line 8780 "" +#line 8840 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, ( ftnlen)1); -#line 8781 "" +#line 8841 "" if (i_indx("sfn?", dumq, (ftnlen)4, (ftnlen)1) == 0) { -#line 8782 "" +#line 8842 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8782 "" +#line 8842 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Illegal "\ "character after \"e\" in edit. accid. sy"\ "mbol!", (ftnlen)128, (ftnlen)51); -#line 8784 "" +#line 8844 "" stop1_(); -#line 8785 "" +#line 8845 "" } -#line 8786 "" +#line 8846 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, ( ftnlen)1); -#line 8787 "" +#line 8847 "" if (*(unsigned char *)dumq == '?') { -#line 8787 "" +#line 8847 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen) 128, (ftnlen)1); -#line 8787 "" +#line 8847 "" } -#line 8788 "" +#line 8848 "" } else if (*(unsigned char *)dumq == ':') { -#line 8789 "" +#line 8849 "" i__4 = a1ll_2.iccount; -#line 8789 "" +#line 8849 "" if (s_cmp(lineq + i__4, " ", a1ll_2.iccount + 1 - i__4, (ftnlen)1) != 0) { -#line 8790 "" +#line 8850 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8790 "" +#line 8850 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "\":\" mu"\ "st be followed by blank in \"o: \"!", ( ftnlen)128, (ftnlen)39); -#line 8792 "" +#line 8852 "" stop1_(); -#line 8793 "" +#line 8853 "" } else if (! comkeys_1.ornrpt) { -#line 8794 "" +#line 8854 "" i__4 = a1ll_2.iccount - 1; -#line 8794 "" +#line 8854 "" i__5 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8794 "" +#line 8854 "" errmsg_(lineq, &i__4, &i__5, "Turned off repeate"\ "d ornaments before they were on!", ( ftnlen)128, (ftnlen)50); -#line 8796 "" +#line 8856 "" stop1_(); -#line 8797 "" +#line 8857 "" } -#line 8798 "" +#line 8858 "" comkeys_1.ornrpt = FALSE_; -#line 8799 "" +#line 8859 "" } else { -#line 8800 "" +#line 8860 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, ( ftnlen)1); -#line 8801 "" +#line 8861 "" } -#line 8802 "" +#line 8862 "" if (i_indx("+- :", dumq, (ftnlen)4, (ftnlen)1) == 0) { -#line 8803 "" +#line 8863 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8803 "" +#line 8863 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Illegal char"\ "acter in ornament symbol!", (ftnlen)128, ( ftnlen)37); -#line 8805 "" +#line 8865 "" stop1_(); -#line 8806 "" +#line 8866 "" } -#line 8807 "" +#line 8867 "" if (*(unsigned char *)dumq == ':') { -#line 8808 "" +#line 8868 "" i__4 = a1ll_2.iccount; -#line 8808 "" +#line 8868 "" if (s_cmp(lineq + i__4, " ", a1ll_2.iccount + 1 - i__4, (ftnlen)1) != 0) { -#line 8809 "" +#line 8869 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8809 "" +#line 8869 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "\":\" mu"\ "st be followed by blank in \"o: \"!", ( ftnlen)128, (ftnlen)39); -#line 8811 "" +#line 8871 "" stop1_(); -#line 8812 "" +#line 8872 "" } else if (comkeys_1.ornrpt) { -#line 8813 "" +#line 8873 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8813 "" +#line 8873 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Turned o"\ "n repeated ornaments but already on!", ( ftnlen)128, (ftnlen)44); -#line 8815 "" +#line 8875 "" stop1_(); -#line 8816 "" +#line 8876 "" } -#line 8817 "" +#line 8877 "" comkeys_1.ornrpt = TRUE_; -#line 8818 "" +#line 8878 "" } -#line 8819 "" +#line 8879 "" if (i_indx("+-", dumq, (ftnlen)2, (ftnlen)1) > 0) { -#line 8820 "" +#line 8880 "" i__4 = a1ll_2.iccount; -#line 8820 "" +#line 8880 "" if (i_indx("0123456789", lineq + i__4, (ftnlen)10, a1ll_2.iccount + 1 - i__4) == 0) { -#line 8822 "" +#line 8882 "" i__4 = a1ll_2.iccount + 1; -#line 8822 "" +#line 8882 "" i__5 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8822 "" +#line 8882 "" errmsg_(lineq, &i__4, &i__5, "There should be an"\ " integer here!", (ftnlen)128, (ftnlen)32); -#line 8824 "" +#line 8884 "" stop1_(); -#line 8825 "" +#line 8885 "" } -#line 8826 "" +#line 8886 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen) 128, (ftnlen)1); -#line 8827 "" +#line 8887 "" if (*(unsigned char *)durq == ':') { -#line 8828 "" +#line 8888 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8828 "" +#line 8888 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Cannot s"\ "hift AND repeat an ornament!", (ftnlen) 128, (ftnlen)36); -#line 8830 "" +#line 8890 "" stop1_(); -#line 8831 "" +#line 8891 "" } /* 12/7/03 Allow horizontal shift on any ornament, not just breath and ceas. */ -#line 8835 "" +#line 8895 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { -#line 8836 "" +#line 8896 "" i__4 = a1ll_2.iccount; -#line 8836 "" +#line 8896 "" if (i_indx(".0123456789", lineq + i__4, (ftnlen) 11, a1ll_2.iccount + 1 - i__4) == 0) { -#line 8838 "" +#line 8898 "" i__4 = a1ll_2.iccount + 1; -#line 8838 "" +#line 8898 "" i__5 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8838 "" +#line 8898 "" errmsg_(lineq, &i__4, &i__5, "There should b"\ "e a number here!", (ftnlen)128, ( ftnlen)30); -#line 8841 "" +#line 8901 "" stop1_(); -#line 8842 "" +#line 8902 "" } -#line 8843 "" +#line 8903 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, ( ftnlen)128, (ftnlen)1); -#line 8844 "" +#line 8904 "" } -#line 8845 "" +#line 8905 "" } -#line 8846 "" +#line 8906 "" goto L110; -#line 8847 "" +#line 8907 "" } else if (i_indx("st(){}", durq, (ftnlen)6, (ftnlen)1) > 0) { /* Slur in xtup */ -#line 8851 "" +#line 8911 "" iposn = 0; -#line 8852 "" +#line 8912 "" numint = 0; -#line 8853 "" +#line 8913 "" L15: -#line 8853 "" +#line 8913 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, ( ftnlen)1); -#line 8854 "" +#line 8914 "" ++iposn; -#line 8855 "" +#line 8915 "" if (i_indx("udlbfnhtv", dumq, (ftnlen)9, (ftnlen)1) > 0) { -#line 8856 "" +#line 8916 "" if (*(unsigned char *)dumq == 't' && *(unsigned char * )durq == 't') { -#line 8857 "" +#line 8917 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8857 "" +#line 8917 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Cannot u"\ "se \"t\" as an option on a tie!", (ftnlen) 128, (ftnlen)37); -#line 8859 "" +#line 8919 "" stop1_(); -#line 8860 "" +#line 8920 "" } -#line 8861 "" +#line 8921 "" goto L15; -#line 8862 "" +#line 8922 "" } else if (i_indx("+-", dumq, (ftnlen)2, (ftnlen)1) > 0) { -#line 8863 "" +#line 8923 "" ++numint; -#line 8864 "" +#line 8924 "" ++a1ll_2.iccount; -#line 8865 "" +#line 8925 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen) 128, (ftnlen)1); -#line 8866 "" +#line 8926 "" if (numint == 1) { -#line 8867 "" +#line 8927 "" if (i_nint(&fnum) > 30) { -#line 8868 "" +#line 8928 "" i__4 = a1ll_2.iccount - 1; -#line 8868 "" +#line 8928 "" i__5 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8868 "" +#line 8928 "" errmsg_(lineq, &i__4, &i__5, "Magnitude of s"\ "lur height adjustment cannot exceed "\ "30!", (ftnlen)128, (ftnlen)53); -#line 8870 "" +#line 8930 "" stop1_(); -#line 8871 "" +#line 8931 "" } -#line 8872 "" +#line 8932 "" } else if (numint == 2) { -#line 8873 "" +#line 8933 "" if (dabs(fnum) > 6.3f) { -#line 8874 "" +#line 8934 "" i__4 = a1ll_2.iccount - 1; -#line 8874 "" +#line 8934 "" i__5 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8874 "" +#line 8934 "" errmsg_(lineq, &i__4, &i__5, "Slur horiz shi"\ "ft must be in the range (-6.3,6.3)!", (ftnlen)128, (ftnlen)49); -#line 8876 "" +#line 8936 "" stop1_(); -#line 8877 "" +#line 8937 "" } -#line 8878 "" +#line 8938 "" } else { /* Third signed integer, must be a midslur or curve spec. */ -#line 8882 "" +#line 8942 "" if (dabs(fnum) > 31.f) { -#line 8883 "" +#line 8943 "" i__4 = a1ll_2.iccount - 1; -#line 8883 "" +#line 8943 "" i__5 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8883 "" +#line 8943 "" errmsg_(lineq, &i__4, &i__5, "Slur midheight"\ " must be in the range (-31,31)!", ( ftnlen)128, (ftnlen)45); -#line 8885 "" +#line 8945 "" stop1_(); -#line 8886 "" +#line 8946 "" } -#line 8887 "" +#line 8947 "" if (*(unsigned char *)durq == ':') { /* Expecting curve parameters. Get two numbers */ -#line 8891 "" +#line 8951 "" for (i__ = 1; i__ <= 2; ++i__) { -#line 8892 "" +#line 8952 "" ++a1ll_2.iccount; -#line 8893 "" +#line 8953 "" fnum = (real) (*(unsigned char *)&lineq[ a1ll_2.iccount - 1] - 48); -#line 8894 "" +#line 8954 "" if ((r__1 = fnum - 3.5f, dabs(r__1)) > 3.6f) { -#line 8895 "" +#line 8955 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8895 "" +#line 8955 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Slur curve parameter must "\ "be in range (0,7)!", (ftnlen) 128, (ftnlen)44); -#line 8898 "" +#line 8958 "" stop1_(); -#line 8899 "" +#line 8959 "" } -#line 8900 "" +#line 8960 "" /* L40: */ -#line 8900 "" +#line 8960 "" } -#line 8901 "" +#line 8961 "" ++a1ll_2.iccount; -#line 8902 "" +#line 8962 "" } -#line 8903 "" +#line 8963 "" } -#line 8904 "" +#line 8964 "" --a1ll_2.iccount; -#line 8905 "" +#line 8965 "" goto L15; -#line 8907 "" +#line 8967 "" } else if (*(unsigned char *)dumq == 's') { /* What follows should be one or two signed numbers for adjustment of line break */ /* slur, end of 1st segment or start of second. */ -#line 8912 "" +#line 8972 "" if (comslur_1.fontslur) { -#line 8913 "" +#line 8973 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8913 "" +#line 8973 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "May not "\ "use linebreak slur options with font-bas"\ "ed slurs!", (ftnlen)128, (ftnlen)57); -#line 8915 "" +#line 8975 "" stop1_(); -#line 8916 "" +#line 8976 "" } -#line 8917 "" +#line 8977 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, ( ftnlen)1); -#line 8918 "" +#line 8978 "" if (i_indx("+-", dumq, (ftnlen)2, (ftnlen)1) == 0) { -#line 8919 "" +#line 8979 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8919 "" +#line 8979 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "This cha"\ "racter must be \"+\" or \"-\"!", (ftnlen) 128, (ftnlen)34); -#line 8921 "" +#line 8981 "" stop1_(); -#line 8922 "" +#line 8982 "" } -#line 8923 "" +#line 8983 "" ++a1ll_2.iccount; -#line 8924 "" +#line 8984 "" readnum_(lineq, &a1ll_2.iccount, dumq, &fnum, (ftnlen) 128, (ftnlen)1); -#line 8925 "" +#line 8985 "" if (i_nint(&fnum) > 30) { -#line 8926 "" +#line 8986 "" i__4 = a1ll_2.iccount - 1; -#line 8926 "" +#line 8986 "" i__5 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8926 "" +#line 8986 "" errmsg_(lineq, &i__4, &i__5, "Magnitude of slur "\ "height adjustment cannot exceed 30!", ( ftnlen)128, (ftnlen)53); -#line 8928 "" +#line 8988 "" stop1_(); -#line 8929 "" +#line 8989 "" } -#line 8930 "" +#line 8990 "" if (i_indx("+-", dumq, (ftnlen)2, (ftnlen)1) > 0) { -#line 8931 "" +#line 8991 "" ++a1ll_2.iccount; -#line 8932 "" +#line 8992 "" readnum_(lineq, &a1ll_2.iccount, dumq, &fnum, ( ftnlen)128, (ftnlen)1); -#line 8933 "" +#line 8993 "" if (dabs(fnum) > 6.3f) { -#line 8934 "" +#line 8994 "" i__4 = a1ll_2.iccount - 1; -#line 8934 "" +#line 8994 "" i__5 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8934 "" +#line 8994 "" errmsg_(lineq, &i__4, &i__5, "Slur horiz shi"\ "ft must be in range (-6.3,6.3)!", ( ftnlen)128, (ftnlen)45); -#line 8936 "" +#line 8996 "" stop1_(); -#line 8937 "" +#line 8997 "" } -#line 8938 "" +#line 8998 "" } -#line 8939 "" +#line 8999 "" --a1ll_2.iccount; -#line 8940 "" +#line 9000 "" goto L15; -#line 8941 "" +#line 9001 "" } else if (*(unsigned char *)dumq == 'H' && iposn > 1) { -#line 8942 "" +#line 9002 "" i__4 = a1ll_2.iccount; -#line 8942 "" +#line 9002 "" if (s_cmp(lineq + i__4, "H", a1ll_2.iccount + 1 - i__4, (ftnlen)1) == 0) { -#line 8942 "" +#line 9002 "" ++a1ll_2.iccount; -#line 8942 "" +#line 9002 "" } -#line 8944 "" +#line 9004 "" goto L15; -#line 8945 "" +#line 9005 "" } else if (*(unsigned char *)dumq == 'p') { /* local change in postscript slur/tie adjustment default */ -#line 8949 "" +#line 9009 "" if (comslur_1.fontslur) { -#line 8950 "" +#line 9010 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8950 "" +#line 9010 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Must use"\ " postscript slurs (\"Ap\") to use this o"\ "ption!", (ftnlen)128, (ftnlen)52); -#line 8952 "" +#line 9012 "" stop1_(); -#line 8953 "" +#line 9013 "" } -#line 8954 "" +#line 9014 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, ( ftnlen)1); -#line 8955 "" +#line 9015 "" if (i_indx("+-", dumq, (ftnlen)2, (ftnlen)1) == 0) { -#line 8956 "" +#line 9016 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8956 "" +#line 9016 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Expect"\ "ed \"+\" or \"-\" here!", (ftnlen)128, ( ftnlen)25); -#line 8958 "" +#line 9018 "" stop1_(); -#line 8959 "" +#line 9019 "" } -#line 8960 "" +#line 9020 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, ( ftnlen)1); -#line 8961 "" +#line 9021 "" if (i_indx("st", dumq, (ftnlen)2, (ftnlen)1) == 0) { -#line 8962 "" +#line 9022 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8962 "" +#line 9022 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Expect"\ "ed \"s\" or \"t\" here!", (ftnlen)128, ( ftnlen)25); -#line 8964 "" +#line 9024 "" stop1_(); -#line 8965 "" +#line 9025 "" } -#line 8966 "" +#line 9026 "" goto L15; -#line 8967 "" +#line 9027 "" } else if (*(unsigned char *)dumq != ' ') { -#line 8968 "" +#line 9028 "" ic = *(unsigned char *)dumq; -#line 8969 "" +#line 9029 "" if (ic >= 48 && ic <= 57 || ic >= 65 && ic <= 90) { -#line 8971 "" +#line 9031 "" if (iposn == 1) { -#line 8972 "" +#line 9032 "" if (*(unsigned char *)durq == 't' && comslur_1.fontslur) { -#line 8973 "" +#line 9033 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8973 "" +#line 9033 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Slur ID not allowed on non-post"\ "script tie!", (ftnlen)128, ( ftnlen)42); -#line 8975 "" +#line 9035 "" stop1_(); -#line 8976 "" +#line 9036 "" } -#line 8977 "" +#line 9037 "" i__4 = a1ll_2.iccount; -#line 8977 "" +#line 9037 "" if (s_cmp(lineq + i__4, "x", a1ll_2.iccount + 1 - i__4, (ftnlen)1) == 0) { -#line 8977 "" +#line 9037 "" ++a1ll_2.iccount; -#line 8977 "" +#line 9037 "" } -#line 8979 "" +#line 9039 "" goto L15; -#line 8980 "" +#line 9040 "" } -#line 8981 "" +#line 9041 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8981 "" +#line 9041 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Slur ID "\ "must be 2nd character in slur symbol!", ( ftnlen)128, (ftnlen)45); -#line 8983 "" +#line 9043 "" stop1_(); -#line 8984 "" +#line 9044 "" } -#line 8985 "" +#line 9045 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8985 "" +#line 9045 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Illegal char"\ "acter in slur symbol!", (ftnlen)128, (ftnlen) 33); -#line 8987 "" +#line 9047 "" stop1_(); -#line 8988 "" +#line 9048 "" } -#line 8989 "" +#line 9049 "" goto L110; -#line 8990 "" +#line 9050 "" } else if (i_indx("0123456789#-nx_", durq, (ftnlen)15, ( ftnlen)1) > 0) { /* We have a figure. Only allow on 1st note of xtup */ -#line 8994 "" +#line 9054 "" if (itup != 2) { -#line 8995 "" +#line 9055 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8995 "" +#line 9055 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Figure in xt"\ "up only allowed on 1st note!", (ftnlen)128, ( ftnlen)40); -#line 8997 "" +#line 9057 "" stop1_(); -#line 8998 "" +#line 9058 "" } else if (*(unsigned char *)durq == 'x') { -#line 8999 "" +#line 9059 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 8999 "" +#line 9059 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "No floating "\ "figures in xtuplets!", (ftnlen)128, (ftnlen) 32); -#line 9001 "" +#line 9061 "" stop1_(); -#line 9002 "" +#line 9062 "" } -#line 9003 "" +#line 9063 "" if (compage_1.usefig && c1ommvl_1.ivx == 1) { -#line 9003 "" +#line 9063 "" *ifig = 1; -#line 9003 "" +#line 9063 "" } -#line 9004 "" +#line 9064 "" L26: -#line 9004 "" +#line 9064 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); /* if (index('0123456789#-n_.:',durq) .gt. 0) then */ -#line 9006 "" +#line 9066 "" if (i_indx("0123456789#-n_.:v", durq, (ftnlen)17, (ftnlen) 1) > 0) { -#line 9007 "" +#line 9067 "" goto L26; -#line 9008 "" +#line 9068 "" } else if (*(unsigned char *)durq == 's') { -#line 9009 "" +#line 9069 "" comligfont_1.isligfont = TRUE_; -#line 9010 "" +#line 9070 "" goto L26; -#line 9011 "" +#line 9071 "" } else if (*(unsigned char *)durq == '+') { /* vertical offset, must be integer then blank */ -#line 9015 "" +#line 9075 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 9016 "" +#line 9076 "" if (i_indx("123456789", durq, (ftnlen)9, (ftnlen)1) != 0) { -#line 9017 "" +#line 9077 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9017 "" +#line 9077 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Integer "\ "for vertical offset expected here!", ( ftnlen)128, (ftnlen)42); -#line 9019 "" +#line 9079 "" stop1_(); -#line 9020 "" +#line 9080 "" } -#line 9021 "" +#line 9081 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen) 128, (ftnlen)1); -#line 9022 "" +#line 9082 "" if (*(unsigned char *)durq != ' ') { -#line 9023 "" +#line 9083 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9023 "" +#line 9083 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Vertical"\ " offset must terminate figure!", (ftnlen) 128, (ftnlen)38); -#line 9025 "" +#line 9085 "" stop1_(); -#line 9026 "" +#line 9086 "" } -#line 9027 "" +#line 9087 "" --a1ll_2.iccount; -#line 9028 "" +#line 9088 "" goto L26; -#line 9029 "" +#line 9089 "" } else if (*(unsigned char *)durq != ' ') { -#line 9030 "" +#line 9090 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9030 "" +#line 9090 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Illegal char"\ "acter in figure in xtuplet!", (ftnlen)128, ( ftnlen)39); -#line 9032 "" +#line 9092 "" stop1_(); -#line 9033 "" +#line 9093 "" } -#line 9034 "" +#line 9094 "" goto L110; -#line 9035 "" +#line 9095 "" } else if (*(unsigned char *)durq == 'G') { -#line 9036 "" +#line 9096 "" ngr = 1; -#line 9037 "" +#line 9097 "" L79: -#line 9037 "" +#line 9097 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen)128, ( ftnlen)1); -#line 9038 "" +#line 9098 "" if (i_indx("123456789", charq, (ftnlen)9, (ftnlen)1) > 0) { -#line 9039 "" +#line 9099 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen) 128, (ftnlen)1); -#line 9040 "" +#line 9100 "" ngr = i_nint(&fnum); -#line 9041 "" +#line 9101 "" --a1ll_2.iccount; -#line 9042 "" +#line 9102 "" goto L79; -#line 9043 "" +#line 9103 "" } else if (i_indx("AWulxs", charq, (ftnlen)6, (ftnlen)1) > 0) { -#line 9044 "" +#line 9104 "" goto L79; -#line 9045 "" +#line 9105 "" } else if (*(unsigned char *)charq == 'm') { -#line 9046 "" +#line 9106 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 9047 "" +#line 9107 "" if (i_indx("01234", charq, (ftnlen)5, (ftnlen)1) == 0) { -#line 9048 "" +#line 9108 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9048 "" +#line 9108 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "A digit "\ "less than 5 must follow \"m\" in a grace"\ " note!", (ftnlen)128, (ftnlen)52); -#line 9050 "" +#line 9110 "" stop1_(); -#line 9051 "" +#line 9111 "" } -#line 9052 "" +#line 9112 "" goto L79; -#line 9053 "" +#line 9113 "" } else if (*(unsigned char *)charq == 'X') { /* Space before main note */ -#line 9057 "" +#line 9117 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 9058 "" +#line 9118 "" if (i_indx("0123456789.", charq, (ftnlen)11, (ftnlen) 1) > 0) { -#line 9059 "" +#line 9119 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, ( ftnlen)128, (ftnlen)1); -#line 9060 "" +#line 9120 "" --a1ll_2.iccount; -#line 9061 "" +#line 9121 "" goto L79; -#line 9062 "" +#line 9122 "" } else { -#line 9063 "" +#line 9123 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9063 "" +#line 9123 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "A number"\ " must follow \"X\" in a grace note!", ( ftnlen)128, (ftnlen)41); -#line 9065 "" +#line 9125 "" stop1_(); -#line 9066 "" +#line 9126 "" } -#line 9067 "" +#line 9127 "" } /* At this point, charq is first note name in rest (grace?) */ -#line 9071 "" +#line 9131 "" i__4 = ngr; -#line 9071 "" +#line 9131 "" for (igr = 1; igr <= i__4; ++igr) { -#line 9072 "" +#line 9132 "" numnum = 0; -#line 9073 "" +#line 9133 "" if (igr > 1) { -#line 9074 "" +#line 9134 "" L75: -#line 9074 "" +#line 9134 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen) 128, (ftnlen)1); -#line 9075 "" +#line 9135 "" if (*(unsigned char *)charq == ' ') { -#line 9075 "" +#line 9135 "" goto L75; -#line 9075 "" +#line 9135 "" } -#line 9076 "" +#line 9136 "" } -#line 9077 "" +#line 9137 "" if (i_indx("abcdefg", charq, (ftnlen)7, (ftnlen)1) == 0) { -#line 9078 "" +#line 9138 "" i__5 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9078 "" +#line 9138 "" errmsg_(lineq, &a1ll_2.iccount, &i__5, "In grace"\ ", expected \"a\"-\"g\"!", (ftnlen)128, ( ftnlen)27); -#line 9080 "" +#line 9140 "" stop1_(); -#line 9081 "" +#line 9141 "" } -#line 9082 "" +#line 9142 "" L78: -#line 9082 "" +#line 9142 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 9083 "" +#line 9143 "" if (*(unsigned char *)charq != ' ') { -#line 9084 "" +#line 9144 "" if (i_indx("1234567", charq, (ftnlen)7, (ftnlen)1) > 0) { -#line 9085 "" +#line 9145 "" if (numnum == 1) { -#line 9086 "" +#line 9146 "" i__5 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9086 "" +#line 9146 "" errmsg_(lineq, &a1ll_2.iccount, &i__5, "Only one of \"+-1234567\" allow"\ "ed here in grace!", (ftnlen)128, ( ftnlen)46); -#line 9088 "" +#line 9148 "" stop1_(); -#line 9089 "" +#line 9149 "" } -#line 9090 "" +#line 9150 "" numnum = 1; -#line 9091 "" +#line 9151 "" goto L78; -#line 9092 "" +#line 9152 "" } else if (i_indx("+-nfs", charq, (ftnlen)5, ( ftnlen)1) > 0) { -#line 9093 "" +#line 9153 "" goto L78; -#line 9094 "" +#line 9154 "" } /* Digits are possible octave numbers */ -#line 9098 "" +#line 9158 "" i__5 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9098 "" +#line 9158 "" errmsg_(lineq, &a1ll_2.iccount, &i__5, "Illegal "\ "character after note name in grace!", ( ftnlen)128, (ftnlen)43); -#line 9100 "" +#line 9160 "" stop1_(); -#line 9101 "" +#line 9161 "" } -#line 9102 "" +#line 9162 "" /* L71: */ -#line 9102 "" +#line 9162 "" } -#line 9103 "" +#line 9163 "" goto L110; -#line 9104 "" +#line 9164 "" } else /* if(complicated condition) */ { -#line 9104 "" +#line 9164 "" chax_(ch__2, (ftnlen)1, &c__92); -#line 9104 "" +#line 9164 "" if (*(unsigned char *)durq == *(unsigned char *)&ch__2[0]) { -#line 9105 "" +#line 9165 "" chklit_(lineq, &a1ll_2.iccount, &literr, (ftnlen)128); -#line 9106 "" +#line 9166 "" if (literr > 0) { -#line 9107 "" +#line 9167 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9107 "" +#line 9167 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, literq + ( literr - 1) * 51, (ftnlen)128, (ftnlen)51) ; -#line 9109 "" +#line 9169 "" stop1_(); -#line 9110 "" +#line 9170 "" } -#line 9111 "" +#line 9171 "" goto L110; -#line 9112 "" +#line 9172 "" } else if (*(unsigned char *)durq == '"') { /* pmx lyric */ -#line 9116 "" +#line 9176 "" chkpmxlyr_(lineq, &a1ll_2.iccount, &lyrerr, (ftnlen) 128); -#line 9117 "" +#line 9177 "" if (lyrerr > 0) { -#line 9118 "" +#line 9178 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9118 "" +#line 9178 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, lyrerq + ( lyrerr - 1) * 51, (ftnlen)128, (ftnlen)51) ; -#line 9120 "" +#line 9180 "" stop1_(); -#line 9121 "" +#line 9181 "" } -#line 9122 "" +#line 9182 "" goto L110; -#line 9123 "" +#line 9183 "" } else if (*(unsigned char *)durq == 'M') { /* Temporary trap until I get around putting this in pmxb */ -#line 9127 "" +#line 9187 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9127 "" +#line 9187 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Macros not y"\ "et allowed in xtuplets!", (ftnlen)128, ( ftnlen)35); -#line 9129 "" +#line 9189 "" stop1_(); -#line 9130 "" +#line 9190 "" } else if (*(unsigned char *)durq == 'X') { -#line 9131 "" +#line 9191 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9131 "" +#line 9191 "" g1etx_(lineq, &a1ll_2.iccount, &comkeys_1.shifton, & i__4, &c1omnotes_1.udsp[c1omnotes_1.ibarcnt + a1ll_2.nbars], &c1omnotes_1.wheadpt, (ftnlen) 128); -#line 9133 "" +#line 9193 "" goto L110; -#line 9134 "" +#line 9194 "" } else if (*(unsigned char *)durq == 'z') { /* Chord note in xtup. Read past for now. */ -#line 9138 "" +#line 9198 "" L33: -#line 9138 "" +#line 9198 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 9139 "" +#line 9199 "" if (*(unsigned char *)durq != ' ') { -#line 9139 "" +#line 9199 "" goto L33; -#line 9139 "" +#line 9199 "" } -#line 9140 "" +#line 9200 "" goto L110; -#line 9141 "" +#line 9201 "" } else if (*(unsigned char *)durq == 'D') { /* Dynamic mark */ -#line 9145 "" +#line 9205 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9145 "" +#line 9205 "" checkdyn_(lineq, &a1ll_2.iccount, &i__4, (ftnlen)128); -#line 9146 "" +#line 9206 "" goto L110; -#line 9147 "" +#line 9207 "" } else if (*(unsigned char *)durq == '%') { -#line 9148 "" +#line 9208 "" if (a1ll_2.iccount != 1) { -#line 9149 "" +#line 9209 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9149 "" +#line 9209 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Comment "\ "must have \"%\" in column 1!", (ftnlen) 128, (ftnlen)34); -#line 9151 "" +#line 9211 "" stop1_(); -#line 9152 "" +#line 9212 "" } -#line 9153 "" +#line 9213 "" a1ll_2.iccount = 128; -#line 9154 "" +#line 9214 "" goto L110; -#line 9155 "" +#line 9215 "" } else if (*(unsigned char *)durq == '?') { -#line 9156 "" +#line 9216 "" getchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 9157 "" +#line 9217 "" if (*(unsigned char *)durq == ' ') { -#line 9158 "" +#line 9218 "" --a1ll_2.iccount; -#line 9159 "" +#line 9219 "" goto L110; -#line 9160 "" +#line 9220 "" } -#line 9161 "" +#line 9221 "" if (*(unsigned char *)durq != '-') { -#line 9162 "" +#line 9222 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9162 "" +#line 9222 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Expectin"\ "g \"-\"", (ftnlen)128, (ftnlen)13); -#line 9164 "" +#line 9224 "" stop1_(); -#line 9165 "" +#line 9225 "" } -#line 9166 "" +#line 9226 "" getchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 9167 "" +#line 9227 "" if (i_indx("0123456789.", durq, (ftnlen)11, (ftnlen)1) == 0) { -#line 9168 "" +#line 9228 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9168 "" +#line 9228 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Expectin"\ "g number", (ftnlen)128, (ftnlen)16); -#line 9170 "" +#line 9230 "" stop1_(); -#line 9171 "" +#line 9231 "" } -#line 9172 "" +#line 9232 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen) 128, (ftnlen)1); -#line 9173 "" +#line 9233 "" --a1ll_2.iccount; -#line 9174 "" +#line 9234 "" goto L110; /* 140215 Allow clef change inside xtup */ -#line 9178 "" +#line 9238 "" } else if (*(unsigned char *)durq == 'C') { -#line 9179 "" +#line 9239 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 9180 "" +#line 9240 "" if (! (i_indx("tsmanrbf", durq, (ftnlen)8, (ftnlen)1) > 0 || *(unsigned char *)durq >= 48 && *( unsigned char *)durq <= 56)) { /* * (ichar(durq).ge.48 .and. ichar(durq).le.55))) then */ -#line 9183 "" +#line 9243 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9183 "" +#line 9243 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Must hav"\ "e t,s,m,a,n,r,b,f or 0-8 after C!", ( ftnlen)128, (ftnlen)41); -#line 9185 "" +#line 9245 "" stop1_(); -#line 9186 "" +#line 9246 "" } /* gotclef = .true. */ -#line 9188 "" +#line 9248 "" goto L110; /* +++ */ -#line 9190 "" +#line 9250 "" } else /* if(complicated condition) */ { -#line 9190 "" +#line 9250 "" i__4 = a1ll_2.iccount; -#line 9190 "" +#line 9250 "" i__5 = a1ll_2.iccount + 1; -#line 9190 "" +#line 9250 "" if (*(unsigned char *)durq == ']' && s_cmp(lineq + i__4, "[", a1ll_2.iccount + 1 - i__4, (ftnlen) 1) == 0 && s_cmp(lineq + i__5, " ", a1ll_2.iccount + 2 - i__5, (ftnlen)1) == 0) { -#line 9192 "" +#line 9252 "" a1ll_2.iccount += 2; -#line 9193 "" +#line 9253 "" goto L110; /* +++ */ -#line 9195 "" + +/* Added 200118 to allow dot to be moved on 2nd note of 2-note tremolo */ + +#line 9258 "" } -#line 9195 "" +#line 9258 "" } -#line 9195 "" +#line 9258 "" } /* End of xtup options. At this point symbol can only be note or rest */ -#line 9199 "" +#line 9262 "" if (i_indx("abcdefgr", durq, (ftnlen)8, (ftnlen)1) == 0) { -#line 9200 "" +#line 9263 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9200 "" +#line 9263 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "In xtup, this ch"\ "aracter is not allowed!", (ftnlen)128, (ftnlen)39) ; -#line 9202 "" +#line 9265 "" stop1_(); -#line 9203 "" +#line 9266 "" } -#line 9204 "" +#line 9267 "" L7: -#line 9204 "" +#line 9267 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -/* if (index('2345678ulcb',durq) .gt. 0) then */ -#line 9206 "" +#line 9268 "" if (i_indx("12345678ulcb", durq, (ftnlen)12, (ftnlen)1) > 0) { -#line 9207 "" +#line 9269 "" goto L7; -#line 9208 "" +#line 9270 "" } else if (i_indx("sfn", durq, (ftnlen)3, (ftnlen)1) > 0) { /* Check for MIDI-only accidental. Cannot coexist with accid. pos'n shift. */ -#line 9212 "" +#line 9274 "" i__4 = a1ll_2.iccount; -#line 9212 "" +#line 9274 "" if (s_cmp(lineq + i__4, "i", a1ll_2.iccount + 1 - i__4, ( ftnlen)1) == 0) { -#line 9212 "" +#line 9274 "" ++a1ll_2.iccount; -#line 9212 "" +#line 9274 "" } -#line 9213 "" +#line 9275 "" goto L7; -#line 9214 "" +#line 9276 "" } else if (i_indx("+-<>", durq, (ftnlen)4, (ftnlen)1) > 0) { /* May have either octave jump or shifted accid. on main xtup note */ -#line 9218 "" +#line 9280 "" i__4 = a1ll_2.iccount; -#line 9218 "" +#line 9280 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0 && i_indx("01234567890", lineq + i__4, (ftnlen)11, a1ll_2.iccount + 1 - i__4) == 0) { -#line 9218 "" +#line 9280 "" goto L7; -#line 9218 "" +#line 9280 "" } -#line 9221 "" +#line 9283 "" ++a1ll_2.iccount; -#line 9222 "" +#line 9284 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 9223 "" +#line 9285 "" --a1ll_2.iccount; -#line 9224 "" +#line 9286 "" goto L7; -#line 9225 "" +#line 9287 "" } else if (i_indx("DF", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Double an xtup note to make an unequal xtup */ -#line 9229 "" +#line 9291 "" c1ommvl_1.nacc[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25] = bit_set(c1ommvl_1.nacc[ c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25],18); -#line 9230 "" +#line 9292 "" ++ndoub; -#line 9231 "" +#line 9293 "" goto L7; -#line 9232 "" +#line 9294 "" } else if (*(unsigned char *)durq == 'd') { -#line 9233 "" - c1ommvl_1.nacc[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - - 1] * 24 - 25] = bit_set(c1ommvl_1.nacc[ - c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * - 24 - 25],27); -#line 9234 "" +#line 9295 "" + if (twotrem) { + +/* 2-note trem, get shift */ + +#line 9299 "" + g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( + ftnlen)1); +#line 9300 "" + if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) == 0) { +#line 9301 "" + i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + + a1ll_2.nbars + 1; +#line 9301 "" + errmsg_(lineq, &a1ll_2.iccount, &i__4, "Expected"\ + " +/- for shifted dot on end of 2-note tr"\ + "em!", (ftnlen)128, (ftnlen)51); +#line 9303 "" + stop1_(); +#line 9304 "" + } +#line 9305 "" + g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( + ftnlen)1); +#line 9306 "" + if (i_indx("0123456789.", durq, (ftnlen)11, (ftnlen)1) + == 0) { +#line 9307 "" + i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + + a1ll_2.nbars + 1; +#line 9307 "" + errmsg_(lineq, &a1ll_2.iccount, &i__4, "Expected"\ + " number here!", (ftnlen)128, (ftnlen)21); +#line 9309 "" + stop1_(); +#line 9310 "" + } +#line 9311 "" + readnum_(lineq, &a1ll_2.iccount, dumq, &fnum, (ftnlen) + 128, (ftnlen)1); +#line 9312 "" + if (i_indx("+-", dumq, (ftnlen)2, (ftnlen)1) > 0) { + +/* Vertical shift also */ + +#line 9316 "" + g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen) + 128, (ftnlen)1); +#line 9317 "" + if (i_indx("0123456789-.", durq, (ftnlen)12, ( + ftnlen)1) == 0) { +#line 9318 "" + i__4 = c1omnotes_1.ibarcnt - + c1omnotes_1.ibaroff + a1ll_2.nbars + + 1; +#line 9318 "" + errmsg_(lineq, &a1ll_2.iccount, &i__4, "Expe"\ + "cted number after 2nd +/- (shift dot"\ + ")!", (ftnlen)128, (ftnlen)42); +#line 9320 "" + stop1_(); +#line 9321 "" + } +#line 9322 "" + readnum_(lineq, &a1ll_2.iccount, durq, &fnum, ( + ftnlen)128, (ftnlen)1); +#line 9323 "" + } +#line 9324 "" + --a1ll_2.iccount; +#line 9325 "" + goto L7; +#line 9326 "" + } else { +#line 9327 "" + c1ommvl_1.nacc[c1ommvl_1.ivx + a1ll_2.nnl[ + c1ommvl_1.ivx - 1] * 24 - 25] = bit_set( + c1ommvl_1.nacc[c1ommvl_1.ivx + a1ll_2.nnl[ + c1ommvl_1.ivx - 1] * 24 - 25],27); +#line 9328 "" + } +#line 9329 "" goto L7; -#line 9235 "" +#line 9330 "" } else if (*(unsigned char *)durq != ' ') { -#line 9236 "" +#line 9331 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9236 "" +#line 9331 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Illegal option o"\ "n xtuplet note!", (ftnlen)128, (ftnlen)31); -#line 9238 "" +#line 9333 "" stop1_(); -#line 9239 "" +#line 9334 "" } -#line 9240 "" +#line 9335 "" if (itup == ntup - ndoub) { -#line 9240 "" +#line 9335 "" goto L3; -#line 9240 "" +#line 9335 "" } -#line 9241 "" +#line 9336 "" /* L6: */ -#line 9241 "" +#line 9336 "" } -#line 9242 "" +#line 9337 "" L3: /* 6==End of loop for xtuplet input */ -#line 9246 "" +#line 9341 "" ; -#line 9246 "" +#line 9341 "" } else if (*(unsigned char *)durq == 'm') { /* Multi-bar rest: next 1 or two digits are # of bars. */ -#line 9250 "" +#line 9345 "" if (a1ll_2.itsofar[a1ll_2.iv - 1] % a1ll_2.lenbar != 0) { -#line 9251 "" +#line 9346 "" i__1 = a1ll_2.iccount - 1; -#line 9251 "" +#line 9346 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9251 "" +#line 9346 "" errmsg_(lineq, &i__1, &i__4, "Multibar rest must start at be"\ "ginning of bar!", (ftnlen)128, (ftnlen)45); -#line 9253 "" +#line 9348 "" stop1_(); -#line 9254 "" +#line 9349 "" } else if (a1ll_2.iv == 1 && c1omnotes_1.ibarmbr > 0) { -#line 9255 "" +#line 9350 "" i__1 = a1ll_2.iccount - 1; -#line 9255 "" +#line 9350 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9255 "" +#line 9350 "" errmsg_(lineq, &i__1, &i__4, "Multibar rest only OK at one t"\ "ime per block!", (ftnlen)128, (ftnlen)44); -#line 9257 "" +#line 9352 "" stop1_(); -#line 9258 "" +#line 9353 "" } /* For some purposes, pretend its one bar only */ -#line 9262 "" +#line 9357 "" a1ll_2.nodur[a1ll_2.iv + a1ll_2.nnl[a1ll_2.iv - 1] * 24 - 25] = a1ll_2.lenbar; -#line 9263 "" +#line 9358 "" c1omnotes_1.ibarmbr = a1ll_2.nbars + 1; -#line 9264 "" +#line 9359 "" c1omnotes_1.mbrest = 0; /* 20 call g1etchar(lineq,iccount,durq) */ -#line 9266 "" +#line 9361 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 9267 "" +#line 9362 "" if (i_indx("123456789", durq, (ftnlen)9, (ftnlen)1) == 0) { -#line 9268 "" +#line 9363 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9268 "" +#line 9363 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Expected an integer "\ "after \"rm\"!", (ftnlen)128, (ftnlen)31); -#line 9270 "" +#line 9365 "" stop1_(); -#line 9271 "" +#line 9366 "" } -#line 9272 "" +#line 9367 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 9273 "" +#line 9368 "" c1omnotes_1.mbrest = i_nint(&fnum); -#line 9274 "" - --a1ll_2.iccount; -/* if (ichar(durq).ge.48.and.ichar(durq).le.57) then */ -/* mbrest = 10*mbrest+ichar(durq)-48 */ -/* go to 20 */ -/* end if */ -#line 9279 "" +/* iccount = iccount-1 */ +#line 9370 "" if (a1ll_2.nv > 1) { -#line 9280 "" +#line 9371 "" if (a1ll_2.iv == 1) { -#line 9281 "" +#line 9372 "" comkeys_1.mbrestsav = c1omnotes_1.mbrest; -#line 9282 "" +#line 9373 "" } else { -#line 9283 "" +#line 9374 "" if (c1omnotes_1.mbrest != comkeys_1.mbrestsav) { -#line 9284 "" +#line 9375 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9284 "" +#line 9375 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Must enter s"\ "ame multi-bar rest in every voice!", (ftnlen) 128, (ftnlen)46); -#line 9286 "" +#line 9377 "" stop1_(); -#line 9287 "" +#line 9378 "" } -#line 9288 "" +#line 9379 "" } /* Zero out mbrestsav so can check at end of input block whether */ /* all voices have one */ -#line 9293 "" +#line 9384 "" if (a1ll_2.iv == a1ll_2.nv) { -#line 9293 "" +#line 9384 "" comkeys_1.mbrestsav = 0; -#line 9293 "" +#line 9384 "" } -#line 9294 "" +#line 9385 "" } -#line 9295 "" +#line 9386 "" + if (*(unsigned char *)durq == 'n') { + +/* Get new height */ + +#line 9390 "" + g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) + 1); +#line 9391 "" + if (i_indx("+-123456789", durq, (ftnlen)11, (ftnlen)1) == 0) { +#line 9392 "" + i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + + a1ll_2.nbars + 1; +#line 9392 "" + errmsg_(lineq, &a1ll_2.iccount, &i__1, "Expected an inte"\ + "ger after \"rm[x]n\"!", (ftnlen)128, (ftnlen)35); +#line 9394 "" + stop1_(); +#line 9395 "" + } +#line 9396 "" + if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) != 0) { +#line 9396 "" + ++a1ll_2.iccount; +#line 9396 "" + } +#line 9397 "" + readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( + ftnlen)1); +#line 9398 "" + } +#line 9399 "" if (*(unsigned char *)durq != ' ') { -#line 9296 "" +#line 9400 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9296 "" +#line 9400 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal character af"\ "ter \"rm\"!", (ftnlen)128, (ftnlen)29); -#line 9298 "" +#line 9402 "" stop1_(); -#line 9299 "" +#line 9403 "" } -#line 9300 "" +#line 9404 "" } else if (*(unsigned char *)durq == '.') { /* Dotted pattern. Close out note. Mult time by 3/4. */ /* Set time for next note to 1/4. Start the note. */ -#line 9305 "" +#line 9409 "" idotform = 1; -#line 9306 "" +#line 9410 "" } else if (*(unsigned char *)durq == ',') { -#line 9307 "" +#line 9411 "" idotform = 3; /* Now flow to duration setting, as if durq=' ' */ -#line 9311 "" +#line 9415 "" } else if (i_indx("oL", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Suppress full bar rest, or look left for height */ -#line 9315 "" +#line 9419 "" if (*(unsigned char *)charq != 'r') { -#line 9316 "" +#line 9420 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9316 "" +#line 9420 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "\"o\",\"L\" options "\ "only legal for rest, not note!", (ftnlen)128, (ftnlen) 46); -#line 9318 "" +#line 9422 "" stop1_(); -#line 9319 "" +#line 9423 "" } -#line 9320 "" +#line 9424 "" goto L2; -#line 9321 "" +#line 9425 "" } else if (i_indx("DF", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Double note for xtup. Must check here in case "D" or "F" came before "x" or on */ /* last note of xtup. Need to flag it in pmxa since affects horiz. spacing. */ -#line 9326 "" +#line 9430 "" c1ommvl_1.nacc[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25] = bit_set(c1ommvl_1.nacc[c1ommvl_1.ivx + a1ll_2.nnl[ c1ommvl_1.ivx - 1] * 24 - 25],18); -#line 9327 "" +#line 9431 "" goto L2; -#line 9328 "" +#line 9432 "" } else if (*(unsigned char *)durq == 'A') { /* Main note accidental option */ -#line 9332 "" +#line 9436 "" getchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 9333 "" +#line 9437 "" if (i_indx("o+-<>", durq, (ftnlen)5, (ftnlen)1) == 0) { -#line 9334 "" +#line 9438 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9334 "" +#line 9438 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "\"o\",+\",\"-\",\""\ "<\",\">\" are the only legal options here!", (ftnlen) 128, (ftnlen)51); -#line 9336 "" +#line 9440 "" stop1_(); -#line 9337 "" +#line 9441 "" } /* Need more stuff here */ -#line 9341 "" +#line 9445 "" if (*(unsigned char *)durq != 'o') { /* Back up 1, flow out, will get +|-|<|> next loop preceded by "A", and will */ /* proceed to number input checking */ -#line 9346 "" +#line 9450 "" --a1ll_2.iccount; -#line 9347 "" +#line 9451 "" } -#line 9348 "" +#line 9452 "" goto L2; -#line 9349 "" +#line 9453 "" } else if (*(unsigned char *)durq == 'T') { /* Single stem tremolo. Only option (optional) is 1,2,3, or 4. */ -#line 9353 "" +#line 9457 "" getchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 9354 "" +#line 9458 "" if (i_indx("1234", durq, (ftnlen)4, (ftnlen)1) == 0) { -#line 9354 "" +#line 9458 "" --a1ll_2.iccount; -#line 9354 "" +#line 9458 "" } -#line 9355 "" +#line 9459 "" goto L2; -#line 9356 "" +#line 9460 "" } else if (*(unsigned char *)durq != ' ') { -#line 9357 "" +#line 9461 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9357 "" +#line 9461 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal character!", ( ftnlen)128, (ftnlen)18); -#line 9359 "" - s_wsle(&io___654); -#line 9359 "" +#line 9463 "" + s_wsle(&io___658); +#line 9463 "" do_lio(&c__9, &c__1, "ASCII code:", (ftnlen)11); -#line 9359 "" +#line 9463 "" i__1 = *(unsigned char *)durq; -#line 9359 "" +#line 9463 "" do_lio(&c__3, &c__1, (char *)&i__1, (ftnlen)sizeof(integer)); -#line 9359 "" +#line 9463 "" e_wsle(); -#line 9360 "" +#line 9464 "" stop1_(); -#line 9361 "" +#line 9465 "" } /* End of block for note options. */ /* Set the duration */ -#line 9367 "" +#line 9471 "" if (idotform > 0) { -#line 9368 "" +#line 9472 "" if (idotform == 1) { -#line 9369 "" +#line 9473 "" a1ll_2.nodur[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25] = i1fnodur_(&c1omnotes_1.nnodur, dotq, ( ftnlen)1) * 3 / 2; -#line 9370 "" +#line 9474 "" } else if (idotform == 2) { -#line 9371 "" +#line 9475 "" a1ll_2.nodur[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25] = a1ll_2.nodur[c1ommvl_1.ivx + (a1ll_2.nnl[ c1ommvl_1.ivx - 1] - 1) * 24 - 25] / 3; -#line 9372 "" +#line 9476 "" } else if (idotform == 3) { -#line 9373 "" +#line 9477 "" a1ll_2.nodur[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25] = i1fnodur_(&c1omnotes_1.nnodur, dotq, ( ftnlen)1); -#line 9374 "" +#line 9478 "" } else if (idotform == 4) { -#line 9375 "" +#line 9479 "" a1ll_2.nodur[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25] = a1ll_2.nodur[c1ommvl_1.ivx + (a1ll_2.nnl[ c1ommvl_1.ivx - 1] - 1) * 24 - 25] / 2; -#line 9376 "" +#line 9480 "" } -#line 9377 "" +#line 9481 "" } else if (c1omnotes_1.ibarmbr != a1ll_2.nbars + 1 && ! fulbrp) { -#line 9378 "" +#line 9482 "" a1ll_2.nodur[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25] = i1fnodur_(&c1omnotes_1.nnodur, dotq, (ftnlen)1); /* Check for double dot */ -#line 9382 "" +#line 9486 "" if (c1omnotes_1.iddot == 1) { -#line 9383 "" +#line 9487 "" a1ll_2.nodur[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25] = a1ll_2.nodur[c1ommvl_1.ivx + a1ll_2.nnl[ c1ommvl_1.ivx - 1] * 24 - 25] * 7 / 6; -#line 9384 "" +#line 9488 "" c1omnotes_1.iddot = 0; -#line 9385 "" +#line 9489 "" } -#line 9386 "" +#line 9490 "" } else if (fulbrp) { -#line 9387 "" +#line 9491 "" a1ll_2.nodur[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25] = a1ll_2.lenbar; /* Use a one-line function to set nnodur. It gives inverse of ifnodur. */ -#line 9391 "" +#line 9495 "" i__1 = (integer) (log(a1ll_2.lenbar + .1f) / .69315f) + 48; -#line 9391 "" +#line 9495 "" chax_(ch__2, (ftnlen)1, &i__1); -#line 9391 "" +#line 9495 "" c1omnotes_1.nnodur = i_indx("62514x0x37", ch__2, (ftnlen)10, ( ftnlen)1) - 1; -#line 9393 "" +#line 9497 "" fulbrp = FALSE_; -#line 9394 "" +#line 9498 "" } -#line 9395 "" +#line 9499 "" a1ll_2.rest[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25] = *(unsigned char *)charq == 'r'; /* If inside forced beam, check if note is beamable */ -#line 9399 "" +#line 9503 "" if (c1omget_1.fbon) { -#line 9400 "" +#line 9504 "" if (a1ll_2.nodur[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25] < 16) { -#line 9400 "" +#line 9504 "" goto L120; -#line 9400 "" +#line 9504 "" } -#line 9401 "" +#line 9505 "" if (a1ll_2.nnl[c1ommvl_1.ivx - 1] > 1) { -#line 9402 "" +#line 9506 "" if (a1ll_2.nodur[c1ommvl_1.ivx + (a1ll_2.nnl[c1ommvl_1.ivx - 1] - 1) * 24 - 25] == 0) { -#line 9402 "" +#line 9506 "" goto L120; -#line 9402 "" +#line 9506 "" } -#line 9403 "" +#line 9507 "" } -#line 9404 "" +#line 9508 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9404 "" +#line 9508 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Unbeamable thing in forc"\ "ed beam!", (ftnlen)128, (ftnlen)32); -#line 9406 "" +#line 9510 "" stop1_(); -#line 9407 "" +#line 9511 "" } -#line 9408 "" +#line 9512 "" L120: /* Get number of prior bars for later check on whether note spans bar line */ -#line 9412 "" +#line 9516 "" nbb4 = a1ll_2.itsofar[c1ommvl_1.ivx - 1] / a1ll_2.lenbar; -#line 9413 "" +#line 9517 "" a1ll_2.itsofar[c1ommvl_1.ivx - 1] += a1ll_2.nodur[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25]; -#line 9414 "" +#line 9518 "" if (a1ll_2.itsofar[c1ommvl_1.ivx - 1] % a1ll_2.lenbar == 0) { -#line 9415 "" +#line 9519 "" ++a1ll_2.nbars; -#line 9416 "" +#line 9520 "" if (comkeys_1.shifton) { -#line 9416 "" +#line 9520 "" comkeys_1.barend = TRUE_; -#line 9416 "" +#line 9520 "" } /* Will check barend when 1st note of next bar is entered. */ -#line 9420 "" +#line 9524 "" if (a1ll_2.nbars > 15) { -#line 9421 "" +#line 9525 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9421 "" +#line 9525 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Cannot have more tha"\ "n 15 bars in an input block!", (ftnlen)128, (ftnlen) 48); -#line 9423 "" +#line 9527 "" stop1_(); -#line 9424 "" +#line 9528 "" } -#line 9425 "" +#line 9529 "" a1ll_2.nib[c1ommvl_1.ivx + a1ll_2.nbars * 24 - 25] = a1ll_2.nnl[ c1ommvl_1.ivx - 1]; -#line 9426 "" +#line 9530 "" if (a1ll_2.firstline && a1ll_2.lenbar != a1ll_2.lenbr1) { /* Just finished the pickup bar for this voice. */ -#line 9430 "" +#line 9534 "" if (a1ll_2.itsofar[c1ommvl_1.ivx - 1] != a1ll_2.lenbr0) { -#line 9431 "" +#line 9535 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9431 "" +#line 9535 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Pickup bar lengt"\ "h disagrees with mtrnum0!", (ftnlen)128, (ftnlen) 41); -#line 9433 "" +#line 9537 "" stop1_(); -#line 9434 "" +#line 9538 "" } -#line 9435 "" +#line 9539 "" a1ll_2.lenbar = a1ll_2.lenbr1; -#line 9436 "" +#line 9540 "" a1ll_2.itsofar[c1ommvl_1.ivx - 1] = 0; -#line 9437 "" +#line 9541 "" } -#line 9438 "" +#line 9542 "" } else if (comkeys_1.barend) { -#line 9439 "" +#line 9543 "" if (comkeys_1.shifton) { -#line 9440 "" +#line 9544 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9440 "" +#line 9544 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Bar ended with user-"\ "defined shift still on!", (ftnlen)128, (ftnlen)43); -#line 9442 "" +#line 9546 "" stop1_(); -#line 9443 "" +#line 9547 "" } -#line 9444 "" +#line 9548 "" comkeys_1.barend = FALSE_; -#line 9445 "" +#line 9549 "" } else if (a1ll_2.itsofar[c1ommvl_1.ivx - 1] / a1ll_2.lenbar > nbb4) { -#line 9446 "" +#line 9550 "" i__1 = a1ll_2.iccount - 1; -#line 9446 "" +#line 9550 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9446 "" +#line 9550 "" errmsg_(lineq, &i__1, &i__4, "This note spans a bar line!", ( ftnlen)128, (ftnlen)27); -#line 9448 "" +#line 9552 "" stop1_(); -#line 9449 "" +#line 9553 "" } -#line 9450 "" +#line 9554 "" if (idotform == 1 || idotform == 3) { -#line 9451 "" +#line 9555 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 9452 "" +#line 9556 "" if (i_indx("abcedfgr", charq, (ftnlen)8, (ftnlen)1) == 0) { -#line 9453 "" +#line 9557 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9453 "" +#line 9557 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Expected note name o"\ "r \"r\" here!", (ftnlen)128, (ftnlen)31); -#line 9455 "" +#line 9559 "" stop1_(); -#line 9456 "" +#line 9560 "" } -#line 9457 "" +#line 9561 "" ++idotform; -#line 9458 "" +#line 9562 "" numnum = 1; -#line 9459 "" +#line 9563 "" goto L28; -#line 9460 "" +#line 9564 "" } /* End of sub block for note-rest */ -#line 9464 "" +#line 9568 "" } else if (*(unsigned char *)charq == 'z') { -#line 9465 "" +#line 9569 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 9466 "" +#line 9570 "" if (i_indx("abcdefg", charq, (ftnlen)7, (ftnlen)1) == 0) { -#line 9467 "" +#line 9571 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9467 "" +#line 9571 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Expected chord note name"\ " here!", (ftnlen)128, (ftnlen)30); -#line 9469 "" +#line 9573 "" stop1_(); -#line 9470 "" +#line 9574 "" } -#line 9471 "" +#line 9575 "" L25: -#line 9471 "" +#line 9575 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); /* if (index('dre12345678',durq) .gt. 0) then */ -#line 9473 "" +#line 9577 "" if (i_indx("dre12345678c", durq, (ftnlen)12, (ftnlen)1) > 0) { -#line 9474 "" +#line 9578 "" goto L25; -#line 9475 "" +#line 9579 "" } else if (i_indx("fsn", durq, (ftnlen)3, (ftnlen)1) > 0) { /* Check for midi-only accid. CANNOT coesist with accidental position tweaks, so */ /* MUST come right after "f,s,n" */ -#line 9480 "" +#line 9584 "" i__1 = a1ll_2.iccount; -#line 9480 "" +#line 9584 "" if (s_cmp(lineq + i__1, "i", a1ll_2.iccount + 1 - i__1, (ftnlen)1) == 0) { -#line 9480 "" +#line 9584 "" ++a1ll_2.iccount; -#line 9480 "" +#line 9584 "" } -#line 9481 "" +#line 9585 "" goto L25; -#line 9482 "" +#line 9586 "" } else if (*(unsigned char *)durq == 'A') { -#line 9483 "" +#line 9587 "" i__1 = a1ll_2.iccount - 2; -#line 9483 "" +#line 9587 "" if (i_indx("fsn", lineq + i__1, (ftnlen)3, a1ll_2.iccount - 1 - i__1) == 0) { -#line 9484 "" +#line 9588 "" i__1 = a1ll_2.iccount - 1; -#line 9484 "" +#line 9588 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9484 "" +#line 9588 "" errmsg_(lineq, &i__1, &i__4, "Must have \"f,s,n\" before \""\ "A\" in chord note!", (ftnlen)128, (ftnlen)43); -#line 9486 "" +#line 9590 "" stop1_(); -#line 9487 "" +#line 9591 "" } -#line 9488 "" +#line 9592 "" goto L25; -#line 9489 "" +#line 9593 "" } else if (i_indx("<>", durq, (ftnlen)2, (ftnlen)1) > 0) { -#line 9490 "" +#line 9594 "" i__1 = a1ll_2.iccount - 2; -#line 9490 "" +#line 9594 "" if (i_indx("fsnA", lineq + i__1, (ftnlen)4, a1ll_2.iccount - 1 - i__1) == 0) { /* if (index('fsncA',lineq(iccount-1:iccount-1)) .eq. 0) then ! Causes problems */ -#line 9492 "" +#line 9596 "" i__1 = a1ll_2.iccount - 1; -#line 9492 "" +#line 9596 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9492 "" +#line 9596 "" errmsg_(lineq, &i__1, &i__4, "Must have \"f,s,n,A\" before"\ " \"<\" or \">\"!", (ftnlen)128, (ftnlen)38); -#line 9494 "" +#line 9598 "" stop1_(); -#line 9495 "" +#line 9599 "" } -#line 9496 "" +#line 9600 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 9497 "" +#line 9601 "" if (i_indx("1234567890.", durq, (ftnlen)11, (ftnlen)1) == 0) { -#line 9498 "" +#line 9602 "" i__1 = a1ll_2.iccount - 1; -#line 9498 "" +#line 9602 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9498 "" +#line 9602 "" errmsg_(lineq, &i__1, &i__4, "Expected a number to start her"\ "e for accidental shift!", (ftnlen)128, (ftnlen)53); -#line 9500 "" +#line 9604 "" stop1_(); -#line 9501 "" +#line 9605 "" } -#line 9502 "" +#line 9606 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 9503 "" +#line 9607 "" --a1ll_2.iccount; -#line 9504 "" +#line 9608 "" goto L25; -#line 9505 "" +#line 9609 "" } else if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { -#line 9506 "" +#line 9610 "" i__1 = a1ll_2.iccount; -#line 9506 "" +#line 9610 "" if (i_indx("1234567890.", lineq + i__1, (ftnlen)11, a1ll_2.iccount + 1 - i__1) == 0) { -#line 9506 "" +#line 9610 "" goto L25; -#line 9506 "" +#line 9610 "" } /* Number or '.' (durq) follows +/- . Get it. */ -#line 9511 "" +#line 9615 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 9512 "" +#line 9616 "" i__1 = a1ll_2.iccount; -#line 9512 "" +#line 9616 "" if (*(unsigned char *)durq == '.' && i_indx("1234567890", lineq + i__1, (ftnlen)10, a1ll_2.iccount + 1 - i__1) == 0) { -#line 9514 "" +#line 9618 "" i__1 = a1ll_2.iccount - 1; -#line 9514 "" +#line 9618 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9514 "" +#line 9618 "" errmsg_(lineq, &i__1, &i__4, "\".\" here must be followed by"\ " a digit!", (ftnlen)128, (ftnlen)37); -#line 9516 "" +#line 9620 "" stop1_(); -#line 9517 "" +#line 9621 "" } else /* if(complicated condition) */ { -#line 9517 "" +#line 9621 "" i__1 = a1ll_2.iccount - 3; -#line 9517 "" +#line 9621 "" if (i_indx("sfndA", lineq + i__1, (ftnlen)5, a1ll_2.iccount - 2 - i__1) == 0) { -#line 9518 "" +#line 9622 "" i__1 = a1ll_2.iccount - 1; -#line 9518 "" +#line 9622 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9518 "" +#line 9622 "" errmsg_(lineq, &i__1, &i__4, "Number after +/- must foll"\ "ow \"d,s,f,n,A\"!", (ftnlen)128, (ftnlen)41); -#line 9520 "" +#line 9624 "" stop1_(); -#line 9521 "" +#line 9625 "" } -#line 9521 "" +#line 9625 "" } -#line 9522 "" +#line 9626 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 9523 "" +#line 9627 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) == 0) { -#line 9524 "" +#line 9628 "" --a1ll_2.iccount; -#line 9525 "" +#line 9629 "" goto L25; -#line 9526 "" +#line 9630 "" } /* 2nd +/- */ -#line 9530 "" +#line 9634 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 9531 "" +#line 9635 "" if (*(unsigned char *)durq == '.') { -#line 9531 "" +#line 9635 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 9531 "" +#line 9635 "" } -#line 9532 "" +#line 9636 "" if (i_indx("1234567890", durq, (ftnlen)10, (ftnlen)1) == 0) { -#line 9533 "" +#line 9637 "" i__1 = a1ll_2.iccount - 1; -#line 9533 "" +#line 9637 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9533 "" +#line 9637 "" errmsg_(lineq, &i__1, &i__4, "Expected a number here!", ( ftnlen)128, (ftnlen)23); -#line 9535 "" +#line 9639 "" stop1_(); -#line 9536 "" +#line 9640 "" } -#line 9537 "" +#line 9641 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 9538 "" +#line 9642 "" --a1ll_2.iccount; -#line 9539 "" +#line 9643 "" goto L25; -#line 9540 "" +#line 9644 "" } else if (*(unsigned char *)durq != ' ') { -#line 9541 "" +#line 9645 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9541 "" +#line 9645 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal character in cho"\ "rd note!", (ftnlen)128, (ftnlen)32); -#line 9543 "" +#line 9647 "" stop1_(); -#line 9544 "" +#line 9648 "" } -#line 9545 "" +#line 9649 "" } else if (*(unsigned char *)charq == 'G') { -#line 9546 "" +#line 9650 "" ngr = 1; -#line 9547 "" +#line 9651 "" L9: -#line 9547 "" +#line 9651 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 9548 "" +#line 9652 "" if (i_indx("123456789", charq, (ftnlen)9, (ftnlen)1) > 0) { -#line 9549 "" +#line 9653 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 9550 "" +#line 9654 "" ngr = i_nint(&fnum); -#line 9551 "" +#line 9655 "" --a1ll_2.iccount; -#line 9552 "" +#line 9656 "" goto L9; -#line 9553 "" +#line 9657 "" } else if (i_indx("AWulxs", charq, (ftnlen)6, (ftnlen)1) > 0) { -#line 9554 "" +#line 9658 "" goto L9; -#line 9555 "" +#line 9659 "" } else if (*(unsigned char *)charq == 'm') { -#line 9556 "" +#line 9660 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 9557 "" +#line 9661 "" if (i_indx("01234", charq, (ftnlen)5, (ftnlen)1) == 0) { -#line 9558 "" +#line 9662 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9558 "" +#line 9662 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "A digit less than 5 "\ "must follow \"m\" in a grace note!", (ftnlen)128, ( ftnlen)52); -#line 9560 "" +#line 9664 "" stop1_(); -#line 9561 "" +#line 9665 "" } -#line 9562 "" +#line 9666 "" goto L9; -#line 9563 "" +#line 9667 "" } else if (*(unsigned char *)charq == 'X') { /* Space before main note */ -#line 9567 "" +#line 9671 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 9568 "" +#line 9672 "" if (i_indx("0123456789.", charq, (ftnlen)11, (ftnlen)1) > 0) { -#line 9569 "" +#line 9673 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 9570 "" +#line 9674 "" --a1ll_2.iccount; -#line 9571 "" +#line 9675 "" goto L9; -#line 9572 "" +#line 9676 "" } else { -#line 9573 "" +#line 9677 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9573 "" +#line 9677 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "A number must foll"\ "ow \"X\" in a grace note!", (ftnlen)128, (ftnlen)41); -#line 9575 "" +#line 9679 "" stop1_(); -#line 9576 "" +#line 9680 "" } -#line 9577 "" +#line 9681 "" } /* At this point, charq is first note name in rest (grace?) */ -#line 9581 "" +#line 9685 "" i__1 = ngr; -#line 9581 "" +#line 9685 "" for (igr = 1; igr <= i__1; ++igr) { -#line 9582 "" +#line 9686 "" numnum = 0; -#line 9583 "" +#line 9687 "" if (igr > 1) { -#line 9584 "" +#line 9688 "" L55: -#line 9584 "" +#line 9688 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen)128, (ftnlen) 1); -#line 9585 "" +#line 9689 "" if (*(unsigned char *)charq == ' ') { -#line 9585 "" +#line 9689 "" goto L55; -#line 9585 "" +#line 9689 "" } -#line 9586 "" +#line 9690 "" } -#line 9587 "" +#line 9691 "" if (i_indx("abcdefg", charq, (ftnlen)7, (ftnlen)1) == 0) { -#line 9588 "" +#line 9692 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9588 "" +#line 9692 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "In grace, expected"\ " \"a\"-\"g\"!", (ftnlen)128, (ftnlen)27); -#line 9590 "" +#line 9694 "" stop1_(); -#line 9591 "" +#line 9695 "" } -#line 9592 "" +#line 9696 "" L18: -#line 9592 "" +#line 9696 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 9593 "" +#line 9697 "" if (*(unsigned char *)charq != ' ') { -#line 9594 "" +#line 9698 "" if (i_indx("1234567", charq, (ftnlen)7, (ftnlen)1) > 0) { -#line 9595 "" +#line 9699 "" if (numnum == 1) { -#line 9596 "" +#line 9700 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9596 "" +#line 9700 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Only one of"\ " \"+-1234567\" allowed here in grace!", ( ftnlen)128, (ftnlen)46); -#line 9598 "" +#line 9702 "" stop1_(); -#line 9599 "" +#line 9703 "" } -#line 9600 "" +#line 9704 "" numnum = 1; -#line 9601 "" +#line 9705 "" goto L18; /* else if (index('nfs',charq) .gt. 0) then */ -#line 9603 "" +#line 9707 "" } else if (i_indx("+-nfs", charq, (ftnlen)5, (ftnlen)1) > 0) { -#line 9604 "" +#line 9708 "" goto L18; -#line 9605 "" +#line 9709 "" } /* Digits are possible octave numbers */ -#line 9609 "" +#line 9713 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9609 "" +#line 9713 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Illegal character af"\ "ter note name in grace!", (ftnlen)128, (ftnlen)43); -#line 9611 "" +#line 9715 "" stop1_(); -#line 9612 "" +#line 9716 "" } -#line 9613 "" +#line 9717 "" /* L19: */ -#line 9613 "" +#line 9717 "" } -#line 9614 "" +#line 9718 "" } else /* if(complicated condition) */ { -#line 9614 "" +#line 9718 "" chax_(ch__2, (ftnlen)1, &c__92); -#line 9614 "" +#line 9718 "" if (*(unsigned char *)charq == *(unsigned char *)&ch__2[0]) { -#line 9615 "" +#line 9719 "" chklit_(lineq, &a1ll_2.iccount, &literr, (ftnlen)128); -#line 9616 "" +#line 9720 "" if (literr > 0) { -#line 9617 "" +#line 9721 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9617 "" +#line 9721 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, literq + (literr - 1) * 51, (ftnlen)128, (ftnlen)51); -#line 9619 "" +#line 9723 "" stop1_(); -#line 9620 "" +#line 9724 "" } -#line 9621 "" +#line 9725 "" } else if (*(unsigned char *)charq == '"') { /* pmx lyric */ -#line 9625 "" +#line 9729 "" chkpmxlyr_(lineq, &a1ll_2.iccount, &lyrerr, (ftnlen)128); -#line 9626 "" +#line 9730 "" if (lyrerr > 0) { -#line 9627 "" +#line 9731 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9627 "" +#line 9731 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, lyrerq + (lyrerr - 1) * 51, (ftnlen)128, (ftnlen)51); -#line 9629 "" +#line 9733 "" stop1_(); -#line 9630 "" +#line 9734 "" } -#line 9631 "" +#line 9735 "" } else if (*(unsigned char *)charq == 'o') { /* Ornament on non-xtup note. "o" symbol must come AFTER the affected note */ -#line 9635 "" +#line 9739 "" if (a1ll_2.nnl[c1ommvl_1.ivx - 1] == 0) { -#line 9636 "" +#line 9740 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9636 "" +#line 9740 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "\"o\" must be in sam"\ "e input block, after affected note!", (ftnlen)128, ( ftnlen)53); -#line 9638 "" +#line 9742 "" stop1_(); -#line 9639 "" +#line 9743 "" } -#line 9640 "" +#line 9744 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, (ftnlen)1); /* if (index('(stmgx+Tupf._)e:>^bc',dumq) .eq. 0 ) then */ -#line 9642 "" +#line 9746 "" if (i_indx("(stmgx+Tupf._)e:>^bcCG", dumq, (ftnlen)22, (ftnlen)1) == 0) { -#line 9643 "" +#line 9747 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9643 "" +#line 9747 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal ornament!", ( ftnlen)128, (ftnlen)17); -#line 9645 "" +#line 9749 "" stop1_(); -#line 9646 "" +#line 9750 "" } -#line 9647 "" +#line 9751 "" if (*(unsigned char *)dumq == ':') { -#line 9648 "" +#line 9752 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, (ftnlen) 1); -#line 9649 "" +#line 9753 "" if (*(unsigned char *)dumq != ' ') { -#line 9650 "" +#line 9754 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9650 "" +#line 9754 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Expected blank a"\ "fter \"o:\"!", (ftnlen)128, (ftnlen)26); -#line 9652 "" +#line 9756 "" stop1_(); -#line 9653 "" +#line 9757 "" } else if (! comkeys_1.ornrpt) { -#line 9654 "" +#line 9758 "" i__1 = a1ll_2.iccount - 1; -#line 9654 "" +#line 9758 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9654 "" +#line 9758 "" errmsg_(lineq, &i__1, &i__4, "Turned off repeated orname"\ "nts before they were on!", (ftnlen)128, (ftnlen) 50); -#line 9656 "" +#line 9760 "" stop1_(); -#line 9657 "" +#line 9761 "" } -#line 9658 "" +#line 9762 "" comkeys_1.ornrpt = FALSE_; -#line 9659 "" +#line 9763 "" } else if (*(unsigned char *)dumq == 'g') { -#line 9660 "" +#line 9764 "" if (c1omget_1.issegno) { -#line 9661 "" +#line 9765 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9661 "" +#line 9765 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Sorry, only one"\ " \"segno\" per input block!", (ftnlen)128, ( ftnlen)40); -#line 9663 "" +#line 9767 "" stop1_(); -#line 9664 "" +#line 9768 "" } else if (c1ommvl_1.ivx != 1) { -#line 9665 "" +#line 9769 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9665 "" +#line 9769 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "segno can only b"\ "e in voice 1!", (ftnlen)128, (ftnlen)29); -#line 9667 "" +#line 9771 "" stop1_(); -#line 9668 "" +#line 9772 "" } -#line 9669 "" +#line 9773 "" c1omget_1.issegno = TRUE_; -#line 9670 "" +#line 9774 "" L12: -#line 9670 "" +#line 9774 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, (ftnlen) 1); -#line 9671 "" +#line 9775 "" if (*(unsigned char *)dumq == '-' || *(unsigned char *)dumq >= 48 && *(unsigned char *)dumq <= 58) { -#line 9671 "" +#line 9775 "" goto L12; -#line 9671 "" +#line 9775 "" } -#line 9673 "" +#line 9777 "" if (*(unsigned char *)dumq != ' ') { -#line 9674 "" +#line 9778 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9674 "" +#line 9778 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal characte"\ "r in segno ornament symbol!", (ftnlen)128, ( ftnlen)43); -#line 9676 "" +#line 9780 "" stop1_(); -#line 9677 "" +#line 9781 "" } -#line 9678 "" +#line 9782 "" } else if (*(unsigned char *)dumq == 'T') { /* Trill. may be followed by 't' and/or number. read 'til blank */ -#line 9682 "" +#line 9786 "" L22: -#line 9682 "" +#line 9786 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, (ftnlen) 1); -#line 9683 "" +#line 9787 "" if (*(unsigned char *)dumq == ':') { -#line 9684 "" +#line 9788 "" i__1 = a1ll_2.iccount; -#line 9684 "" +#line 9788 "" if (s_cmp(lineq + i__1, " ", a1ll_2.iccount + 1 - i__1, ( ftnlen)1) != 0) { -#line 9685 "" +#line 9789 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9685 "" +#line 9789 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Expected bla"\ "nk after \":\"!", (ftnlen)128, (ftnlen)25); -#line 9687 "" +#line 9791 "" stop1_(); -#line 9688 "" +#line 9792 "" } -#line 9689 "" +#line 9793 "" goto L32; -#line 9690 "" +#line 9794 "" } else if (*(unsigned char *)dumq != ' ') { -#line 9691 "" +#line 9795 "" goto L22; -#line 9692 "" +#line 9796 "" } -#line 9693 "" +#line 9797 "" } else if (*(unsigned char *)dumq == 'f') { -#line 9694 "" +#line 9798 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, (ftnlen) 1); -#line 9695 "" +#line 9799 "" if (i_indx(" d+-:", dumq, (ftnlen)5, (ftnlen)1) == 0) { -#line 9696 "" +#line 9800 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9696 "" +#line 9800 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal characte"\ "r after \"f\" in fermata ornament symbol!", ( ftnlen)128, (ftnlen)55); -#line 9698 "" +#line 9802 "" stop1_(); -#line 9699 "" +#line 9803 "" } -#line 9700 "" +#line 9804 "" if (*(unsigned char *)dumq == 'd') { -#line 9700 "" +#line 9804 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, ( ftnlen)1); -#line 9700 "" +#line 9804 "" } -#line 9701 "" +#line 9805 "" if (*(unsigned char *)dumq == ':') { -#line 9701 "" +#line 9805 "" goto L32; -#line 9701 "" +#line 9805 "" } -#line 9702 "" +#line 9806 "" } else if (*(unsigned char *)dumq == 'e') { -#line 9703 "" +#line 9807 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, (ftnlen) 1); -#line 9704 "" +#line 9808 "" if (i_indx("sfn?", dumq, (ftnlen)4, (ftnlen)1) == 0) { -#line 9705 "" +#line 9809 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9705 "" +#line 9809 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal characte"\ "r after \"e\" in edit. accid. symbol!", (ftnlen) 128, (ftnlen)51); -#line 9707 "" +#line 9811 "" stop1_(); -#line 9708 "" +#line 9812 "" } -#line 9709 "" +#line 9813 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, (ftnlen) 1); -#line 9710 "" +#line 9814 "" if (*(unsigned char *)dumq == '?') { -#line 9710 "" +#line 9814 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, ( ftnlen)1); -#line 9710 "" +#line 9814 "" } -#line 9711 "" +#line 9815 "" } else { -#line 9712 "" +#line 9816 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, (ftnlen) 1); -#line 9713 "" +#line 9817 "" } -#line 9714 "" +#line 9818 "" if (i_indx("+- :", dumq, (ftnlen)4, (ftnlen)1) == 0) { -#line 9715 "" +#line 9819 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9715 "" +#line 9819 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal character in"\ " ornament symbol!", (ftnlen)128, (ftnlen)37); -#line 9717 "" +#line 9821 "" stop1_(); -#line 9718 "" +#line 9822 "" } -#line 9719 "" +#line 9823 "" if (i_indx("+-", dumq, (ftnlen)2, (ftnlen)1) > 0) { -#line 9720 "" +#line 9824 "" i__1 = a1ll_2.iccount; -#line 9720 "" +#line 9824 "" if (i_indx("0123456789", lineq + i__1, (ftnlen)10, a1ll_2.iccount + 1 - i__1) == 0) { -#line 9721 "" +#line 9825 "" i__1 = a1ll_2.iccount + 1; -#line 9721 "" +#line 9825 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9721 "" +#line 9825 "" errmsg_(lineq, &i__1, &i__4, "There should be an integer"\ " here!", (ftnlen)128, (ftnlen)32); -#line 9723 "" +#line 9827 "" stop1_(); -#line 9724 "" +#line 9828 "" } -#line 9725 "" +#line 9829 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 9726 "" +#line 9830 "" if (*(unsigned char *)durq == ':') { -#line 9727 "" +#line 9831 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9727 "" +#line 9831 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Cannot shift AND"\ " repeat an ornament!", (ftnlen)128, (ftnlen)36); -#line 9729 "" +#line 9833 "" stop1_(); -#line 9730 "" +#line 9834 "" } /* 12/7/03 Allow horizontal shift on any ornament, not just breath and caes. */ -#line 9734 "" +#line 9838 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { -#line 9735 "" +#line 9839 "" i__1 = a1ll_2.iccount; -#line 9735 "" +#line 9839 "" if (i_indx(".0123456789", lineq + i__1, (ftnlen)11, a1ll_2.iccount + 1 - i__1) == 0) { -#line 9737 "" +#line 9841 "" i__1 = a1ll_2.iccount + 1; -#line 9737 "" +#line 9841 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9737 "" +#line 9841 "" errmsg_(lineq, &i__1, &i__4, "There should be a numb"\ "er here!", (ftnlen)128, (ftnlen)30); -#line 9739 "" +#line 9843 "" stop1_(); -#line 9740 "" +#line 9844 "" } -#line 9741 "" +#line 9845 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 9742 "" +#line 9846 "" } -#line 9743 "" +#line 9847 "" } -#line 9744 "" +#line 9848 "" L32: -#line 9745 "" +#line 9849 "" if (*(unsigned char *)dumq == ':') { -#line 9746 "" +#line 9850 "" i__1 = a1ll_2.iccount; -#line 9746 "" +#line 9850 "" if (s_cmp(lineq + i__1, " ", a1ll_2.iccount + 1 - i__1, ( ftnlen)1) != 0) { -#line 9747 "" +#line 9851 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9747 "" +#line 9851 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "\":\" must be fo"\ "llowed by blank in \"o: \"!", (ftnlen)128, ( ftnlen)39); -#line 9749 "" +#line 9853 "" stop1_(); -#line 9750 "" +#line 9854 "" } else if (comkeys_1.ornrpt) { -#line 9751 "" +#line 9855 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9751 "" +#line 9855 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Turned on repeat"\ "ed ornaments but already on!", (ftnlen)128, ( ftnlen)44); -#line 9753 "" +#line 9857 "" stop1_(); -#line 9754 "" +#line 9858 "" } -#line 9755 "" +#line 9859 "" comkeys_1.ornrpt = TRUE_; -#line 9756 "" +#line 9860 "" } -#line 9757 "" +#line 9861 "" } else if (i_indx("st(){}", charq, (ftnlen)6, (ftnlen)1) > 0) { -#line 9758 "" +#line 9862 "" numint = 0; -#line 9759 "" +#line 9863 "" iposn = 0; -#line 9760 "" +#line 9864 "" L8: -#line 9760 "" +#line 9864 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, (ftnlen)1); -#line 9761 "" +#line 9865 "" ++iposn; -#line 9762 "" +#line 9866 "" if (*(unsigned char *)charq == 't' && *(unsigned char *)dumq == 't') { -#line 9763 "" +#line 9867 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9763 "" +#line 9867 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Cannot use \"t\" as "\ "an option on a tie!", (ftnlen)128, (ftnlen)37); -#line 9765 "" +#line 9869 "" stop1_(); -#line 9766 "" +#line 9870 "" } -#line 9767 "" +#line 9871 "" if (i_indx("udltb+-fnhHpsv ", dumq, (ftnlen)15, (ftnlen)1) == 0) { /* Check for explicit ID code. */ -#line 9771 "" +#line 9875 "" ic = *(unsigned char *)dumq; -#line 9772 "" +#line 9876 "" if (ic < 48 || ic > 57 && ic < 65 || ic > 90) { /* Not 0-9 or A-Z, so exit */ -#line 9777 "" +#line 9881 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9777 "" +#line 9881 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal characte"\ "r in slur symbol!", (ftnlen)128, (ftnlen)33); -#line 9779 "" +#line 9883 "" stop1_(); -#line 9780 "" +#line 9884 "" } else { /* It is a possible ID code. Right place? */ -#line 9784 "" +#line 9888 "" if (iposn != 1) { /* Slur ID is not 2nd! */ -#line 9788 "" +#line 9892 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9788 "" +#line 9892 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Slur ID must"\ " be second character in slur symbol!", ( ftnlen)128, (ftnlen)48); -#line 9790 "" +#line 9894 "" stop1_(); -#line 9791 "" +#line 9895 "" } else if (*(unsigned char *)charq == 't' && comslur_1.fontslur) { -#line 9792 "" +#line 9896 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9792 "" +#line 9896 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Slur ID not "\ "allowed on non-postscript tie!", (ftnlen)128, (ftnlen)42); -#line 9794 "" +#line 9898 "" stop1_(); -#line 9795 "" +#line 9899 "" } else /* if(complicated condition) */ { -#line 9795 "" +#line 9899 "" i__1 = a1ll_2.iccount; -#line 9795 "" +#line 9899 "" if (s_cmp(lineq + i__1, "x", a1ll_2.iccount + 1 - i__1, (ftnlen)1) == 0) { -#line 9796 "" +#line 9900 "" ++a1ll_2.iccount; -#line 9797 "" +#line 9901 "" } -#line 9797 "" +#line 9901 "" } -#line 9798 "" +#line 9902 "" } /* Slur ID is OK. Note it cannot be "H" at this point.. */ -#line 9802 "" +#line 9906 "" goto L8; -#line 9803 "" +#line 9907 "" } else if (*(unsigned char *)dumq == 'H') { -#line 9804 "" +#line 9908 "" if (iposn == 1) { -#line 9804 "" +#line 9908 "" goto L8; -#line 9804 "" +#line 9908 "" } /* "H" is NOT an ID code. */ -#line 9808 "" +#line 9912 "" if (! comslur_1.fontslur && *(unsigned char *)charq == 't') { -#line 9809 "" +#line 9913 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9809 "" +#line 9913 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Cannot reshape p"\ "ostscript ties this way!", (ftnlen)128, (ftnlen) 40); -#line 9811 "" +#line 9915 "" stop1_(); -#line 9812 "" +#line 9916 "" } -#line 9813 "" +#line 9917 "" i__1 = a1ll_2.iccount; -#line 9813 "" +#line 9917 "" if (s_cmp(lineq + i__1, "H", a1ll_2.iccount + 1 - i__1, ( ftnlen)1) == 0) { -#line 9814 "" +#line 9918 "" ++a1ll_2.iccount; -#line 9815 "" +#line 9919 "" ++iposn; -#line 9816 "" +#line 9920 "" } -#line 9817 "" +#line 9921 "" goto L8; -#line 9818 "" +#line 9922 "" } else if (i_indx("fh", dumq, (ftnlen)2, (ftnlen)1) > 0 && ! comslur_1.fontslur && *(unsigned char *)charq == 't') { /* 3/9/03 Can't reshape postscript tie. */ -#line 9823 "" +#line 9927 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9823 "" +#line 9927 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Cannot reshape posts"\ "cript ties this way!", (ftnlen)128, (ftnlen)40); -#line 9825 "" +#line 9929 "" stop1_(); -#line 9826 "" +#line 9930 "" } else if (*(unsigned char *)dumq == 'p') { /* local change in postscript slur/tie adjustment default */ -#line 9830 "" +#line 9934 "" if (comslur_1.fontslur) { -#line 9831 "" +#line 9935 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9831 "" +#line 9935 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Must use postscr"\ "ipt slurs (\"Ap\") to use this option!", (ftnlen) 128, (ftnlen)52); -#line 9833 "" +#line 9937 "" stop1_(); -#line 9834 "" +#line 9938 "" } -#line 9835 "" +#line 9939 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, (ftnlen) 1); -#line 9836 "" +#line 9940 "" if (i_indx("+-", dumq, (ftnlen)2, (ftnlen)1) == 0) { -#line 9837 "" +#line 9941 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9837 "" +#line 9941 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Expected \"+\" o"\ "r \"-\" here!", (ftnlen)128, (ftnlen)25); -#line 9839 "" +#line 9943 "" stop1_(); -#line 9840 "" +#line 9944 "" } -#line 9841 "" +#line 9945 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, (ftnlen) 1); -#line 9842 "" +#line 9946 "" if (i_indx("st", dumq, (ftnlen)2, (ftnlen)1) == 0) { -#line 9843 "" +#line 9947 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9843 "" +#line 9947 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Expected \"s\" o"\ "r \"t\" here!", (ftnlen)128, (ftnlen)25); -#line 9845 "" +#line 9949 "" stop1_(); -#line 9846 "" +#line 9950 "" } -#line 9847 "" +#line 9951 "" iposn += 2; -#line 9848 "" +#line 9952 "" goto L8; -#line 9849 "" +#line 9953 "" } -#line 9850 "" +#line 9954 "" if (i_indx("udltbfnh", dumq, (ftnlen)8, (ftnlen)1) > 0) { -#line 9851 "" +#line 9955 "" goto L8; -#line 9852 "" +#line 9956 "" } else if (i_indx("+-", dumq, (ftnlen)2, (ftnlen)1) > 0) { -#line 9853 "" +#line 9957 "" ++numint; -#line 9854 "" +#line 9958 "" if (comslur_1.fontslur && *(unsigned char *)charq == 't') { -#line 9855 "" +#line 9959 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9855 "" +#line 9959 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "\"+|-\" for slur"\ " height only allowed in \"s\"-slurs!", (ftnlen) 128, (ftnlen)48); -#line 9857 "" +#line 9961 "" stop1_(); -#line 9858 "" +#line 9962 "" } -#line 9859 "" +#line 9963 "" ++a1ll_2.iccount; -#line 9860 "" +#line 9964 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 9861 "" +#line 9965 "" if (numint == 1) { -#line 9862 "" +#line 9966 "" if (i_nint(&fnum) > 30) { -#line 9863 "" +#line 9967 "" i__1 = a1ll_2.iccount - 1; -#line 9863 "" +#line 9967 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9863 "" +#line 9967 "" errmsg_(lineq, &i__1, &i__4, "Magnitude of slur heig"\ "ht adjustment cannot exceed 30!", (ftnlen)128, (ftnlen)53); -#line 9865 "" +#line 9969 "" stop1_(); -#line 9866 "" +#line 9970 "" } -#line 9867 "" +#line 9971 "" } else if (numint == 2) { -#line 9868 "" +#line 9972 "" if (dabs(fnum) > 6.3f) { -#line 9869 "" +#line 9973 "" i__1 = a1ll_2.iccount - 1; -#line 9869 "" +#line 9973 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9869 "" +#line 9973 "" errmsg_(lineq, &i__1, &i__4, "Slur horiz shift must "\ "be in range (-6.3,6.3)!", (ftnlen)128, ( ftnlen)45); -#line 9871 "" +#line 9975 "" stop1_(); -#line 9872 "" +#line 9976 "" } -#line 9873 "" +#line 9977 "" } else { /* Third signed integer, must be a midslur or curve spec. */ -#line 9877 "" +#line 9981 "" if (dabs(fnum) > 31.f) { -#line 9878 "" +#line 9982 "" i__1 = a1ll_2.iccount - 1; -#line 9878 "" +#line 9982 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9878 "" +#line 9982 "" errmsg_(lineq, &i__1, &i__4, "Slur midheight must be"\ " in the range (-31,31)!", (ftnlen)128, ( ftnlen)45); -#line 9880 "" +#line 9984 "" stop1_(); -#line 9881 "" +#line 9985 "" } -#line 9882 "" +#line 9986 "" if (*(unsigned char *)durq == ':') { /* Expecting curve parameters. Get two numbers */ -#line 9886 "" +#line 9990 "" for (i__ = 1; i__ <= 2; ++i__) { -#line 9887 "" +#line 9991 "" ++a1ll_2.iccount; -#line 9888 "" +#line 9992 "" fnum = (real) (*(unsigned char *)&lineq[ a1ll_2.iccount - 1] - 48); -#line 9889 "" +#line 9993 "" if ((r__1 = fnum - 3.5f, dabs(r__1)) > 3.6f) { -#line 9890 "" +#line 9994 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9890 "" +#line 9994 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Slur"\ " curve parameter must be in range (0"\ ",7)!", (ftnlen)128, (ftnlen)44); -#line 9892 "" +#line 9996 "" stop1_(); -#line 9893 "" +#line 9997 "" } -#line 9894 "" +#line 9998 "" /* L41: */ -#line 9894 "" +#line 9998 "" } -#line 9895 "" +#line 9999 "" ++a1ll_2.iccount; -#line 9896 "" +#line 10000 "" } -#line 9897 "" +#line 10001 "" } -#line 9898 "" +#line 10002 "" --a1ll_2.iccount; -#line 9899 "" +#line 10003 "" goto L8; -#line 9900 "" +#line 10004 "" } else if (*(unsigned char *)dumq == 's') { /* What follows should be one or two signed numbers for adjustment of line break */ /* slur, end of 1st segment or start of second. */ -#line 9905 "" +#line 10009 "" if (comslur_1.fontslur) { -#line 9906 "" +#line 10010 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9906 "" +#line 10010 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "May not use line"\ "break slur options with font-based slurs!", ( ftnlen)128, (ftnlen)57); -#line 9908 "" +#line 10012 "" stop1_(); -#line 9909 "" +#line 10013 "" } -#line 9910 "" +#line 10014 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, (ftnlen) 1); -#line 9911 "" +#line 10015 "" if (i_indx("+-", dumq, (ftnlen)2, (ftnlen)1) == 0) { -#line 9912 "" +#line 10016 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9912 "" +#line 10016 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "This character m"\ "ust be \"+\" or \"-\"!", (ftnlen)128, (ftnlen)34); -#line 9914 "" +#line 10018 "" stop1_(); -#line 9915 "" +#line 10019 "" } -#line 9916 "" +#line 10020 "" ++a1ll_2.iccount; -#line 9917 "" +#line 10021 "" readnum_(lineq, &a1ll_2.iccount, dumq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 9918 "" +#line 10022 "" if (i_nint(&fnum) > 30) { -#line 9919 "" +#line 10023 "" i__1 = a1ll_2.iccount - 1; -#line 9919 "" +#line 10023 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9919 "" +#line 10023 "" errmsg_(lineq, &i__1, &i__4, "Magnitude of slur height a"\ "djustment cannot exceed 30!", (ftnlen)128, ( ftnlen)53); -#line 9921 "" +#line 10025 "" stop1_(); -#line 9922 "" +#line 10026 "" } -#line 9923 "" +#line 10027 "" if (i_indx("+-", dumq, (ftnlen)2, (ftnlen)1) > 0) { -#line 9924 "" +#line 10028 "" ++a1ll_2.iccount; -#line 9925 "" +#line 10029 "" readnum_(lineq, &a1ll_2.iccount, dumq, &fnum, (ftnlen)128, (ftnlen)1); -#line 9926 "" +#line 10030 "" if (dabs(fnum) > 6.3f) { -#line 9927 "" +#line 10031 "" i__1 = a1ll_2.iccount - 1; -#line 9927 "" +#line 10031 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9927 "" +#line 10031 "" errmsg_(lineq, &i__1, &i__4, "Slur horiz shift must "\ "be in range (-6.3,6.3)!", (ftnlen)128, ( ftnlen)45); -#line 9929 "" +#line 10033 "" stop1_(); -#line 9930 "" +#line 10034 "" } -#line 9931 "" +#line 10035 "" } -#line 9932 "" +#line 10036 "" --a1ll_2.iccount; -#line 9933 "" +#line 10037 "" goto L8; -#line 9934 "" +#line 10038 "" } else if (*(unsigned char *)dumq == 'H' && iposn > 1) { -#line 9935 "" +#line 10039 "" i__1 = a1ll_2.iccount; -#line 9935 "" +#line 10039 "" if (s_cmp(lineq + i__1, "H", a1ll_2.iccount + 1 - i__1, ( ftnlen)1) == 0) { -#line 9935 "" +#line 10039 "" ++a1ll_2.iccount; -#line 9935 "" +#line 10039 "" } -#line 9936 "" +#line 10040 "" goto L8; -#line 9937 "" +#line 10041 "" } -#line 9938 "" +#line 10042 "" } else if (*(unsigned char *)charq == '?') { -#line 9939 "" +#line 10043 "" getchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 9940 "" +#line 10044 "" if (*(unsigned char *)durq == ' ') { -#line 9941 "" +#line 10045 "" --a1ll_2.iccount; -#line 9942 "" +#line 10046 "" } else { -#line 9943 "" +#line 10047 "" if (*(unsigned char *)durq != '-') { -#line 9944 "" +#line 10048 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9944 "" +#line 10048 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Expecting \"-\"!", (ftnlen)128, (ftnlen)14); -#line 9946 "" +#line 10050 "" stop1_(); -#line 9947 "" +#line 10051 "" } -#line 9948 "" +#line 10052 "" getchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1) ; -#line 9949 "" +#line 10053 "" if (i_indx("0123456789.", durq, (ftnlen)11, (ftnlen)1) == 0) { -#line 9950 "" +#line 10054 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9950 "" +#line 10054 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Expecting number!" , (ftnlen)128, (ftnlen)17); -#line 9952 "" +#line 10056 "" stop1_(); -#line 9953 "" +#line 10057 "" } -#line 9954 "" +#line 10058 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 9955 "" +#line 10059 "" --a1ll_2.iccount; -#line 9956 "" +#line 10060 "" } -#line 9957 "" +#line 10061 "" } else if (*(unsigned char *)charq >= 48 && *(unsigned char *)charq <= 57 || i_indx("#-nx_", charq, (ftnlen)5, (ftnlen)1) > 0) { /* We have a figure. Must come AFTER the note it goes under */ -#line 9962 "" +#line 10066 "" if (a1ll_2.itsofar[c1ommvl_1.ivx - 1] == 0 && (! a1ll_2.firstline || a1ll_2.lenbr0 == 0 || a1ll_2.lenbar == a1ll_2.lenbr0)) { /* Figure before first note in block */ -#line 9967 "" +#line 10071 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9967 "" +#line 10071 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Cannot put figure be"\ "fore first note in block!", (ftnlen)128, (ftnlen)45); -#line 9969 "" +#line 10073 "" stop1_(); -#line 9970 "" +#line 10074 "" } -#line 9971 "" +#line 10075 "" if (*(unsigned char *)charq == 'x') { -#line 9972 "" +#line 10076 "" indxb = i_indx(lineq + (a1ll_2.iccount - 1), " ", 128 - ( a1ll_2.iccount - 1), (ftnlen)1); -#line 9973 "" +#line 10077 "" if (indxb < 5) { -#line 9974 "" +#line 10078 "" i__1 = a1ll_2.iccount + indxb - 1; -#line 9974 "" +#line 10078 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9974 "" +#line 10078 "" errmsg_(lineq, &i__1, &i__4, "Cannot have a blank here i"\ "n floating figure!", (ftnlen)128, (ftnlen)44); -#line 9976 "" +#line 10080 "" stop1_(); -#line 9977 "" +#line 10081 "" } -#line 9978 "" +#line 10082 "" } -#line 9979 "" +#line 10083 "" if (compage_1.usefig) { -#line 9979 "" +#line 10083 "" *ifig = 1; -#line 9979 "" +#line 10083 "" } -#line 9980 "" +#line 10084 "" L5: -#line 9980 "" +#line 10084 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 9981 "" +#line 10085 "" if (i_indx(" 0123456789#-nx_.:+sv", charq, (ftnlen)21, (ftnlen)1) == 0) { -#line 9982 "" +#line 10086 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9982 "" +#line 10086 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal character in"\ " figure!", (ftnlen)128, (ftnlen)28); -#line 9984 "" +#line 10088 "" stop1_(); -#line 9985 "" +#line 10089 "" } else if (*(unsigned char *)charq == '+') { /* vertical offset, must be integer, then blank */ -#line 9989 "" +#line 10093 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen)128, (ftnlen) 1); -#line 9990 "" +#line 10094 "" if (i_indx("123456789", charq, (ftnlen)9, (ftnlen)1) == 0) { -#line 9991 "" +#line 10095 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9991 "" +#line 10095 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Integer for vert"\ "ical offset expected here!", (ftnlen)128, (ftnlen) 42); -#line 9993 "" +#line 10097 "" stop1_(); -#line 9994 "" +#line 10098 "" } -#line 9995 "" +#line 10099 "" readnum_(lineq, &a1ll_2.iccount, charq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 9996 "" +#line 10100 "" if (*(unsigned char *)charq != ' ') { -#line 9997 "" +#line 10101 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 9997 "" +#line 10101 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Vertical offset "\ "must terminate figure!", (ftnlen)128, (ftnlen)38); -#line 9999 "" +#line 10103 "" stop1_(); -#line 10000 "" +#line 10104 "" } -#line 10001 "" +#line 10105 "" --a1ll_2.iccount; -#line 10002 "" +#line 10106 "" goto L5; -#line 10003 "" +#line 10107 "" } else if (*(unsigned char *)charq == 's') { -#line 10004 "" +#line 10108 "" comligfont_1.isligfont = TRUE_; -#line 10005 "" +#line 10109 "" } -#line 10006 "" +#line 10110 "" if (*(unsigned char *)charq != ' ') { -#line 10006 "" +#line 10110 "" goto L5; -#line 10006 "" +#line 10110 "" } -#line 10007 "" +#line 10111 "" } else if (*(unsigned char *)charq == '[') { -#line 10008 "" +#line 10112 "" if (c1omget_1.fbon) { -#line 10009 "" +#line 10113 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10009 "" +#line 10113 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Started forced beam "\ "while another was open!", (ftnlen)128, (ftnlen)43); -#line 10011 "" +#line 10115 "" stop1_(); -#line 10012 "" +#line 10116 "" } -#line 10013 "" +#line 10117 "" c1omget_1.fbon = TRUE_; -#line 10014 "" +#line 10118 "" L17: -#line 10014 "" +#line 10118 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 10015 "" +#line 10119 "" if (i_indx("uljhf:", charq, (ftnlen)6, (ftnlen)1) > 0) { -#line 10016 "" +#line 10120 "" goto L17; -#line 10017 "" +#line 10121 "" } else if (i_indx("+-", charq, (ftnlen)2, (ftnlen)1) > 0) { -#line 10018 "" +#line 10122 "" ++a1ll_2.iccount; -#line 10019 "" +#line 10123 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 10020 "" +#line 10124 "" --a1ll_2.iccount; -#line 10021 "" +#line 10125 "" goto L17; -#line 10022 "" +#line 10126 "" } else if (*(unsigned char *)charq == 'm') { /* Forced multiplicity, next char should be 1-4 */ -#line 10026 "" +#line 10130 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen)128, (ftnlen) 1); -#line 10027 "" +#line 10131 "" if (i_indx("1234", charq, (ftnlen)4, (ftnlen)1) == 0) { -#line 10028 "" +#line 10132 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10028 "" +#line 10132 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Forced multiplic"\ "ity for a beam must be 1, 2, 3, or 4!", (ftnlen) 128, (ftnlen)53); -#line 10030 "" +#line 10134 "" stop1_(); -#line 10031 "" +#line 10135 "" } -#line 10032 "" +#line 10136 "" goto L17; -#line 10033 "" +#line 10137 "" } else if (*(unsigned char *)charq != ' ') { -#line 10034 "" +#line 10138 "" if (i_indx("0123456789", charq, (ftnlen)10, (ftnlen)1) > 0) { -#line 10035 "" +#line 10139 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10035 "" +#line 10139 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "After \"[\", dig"\ "its must now be preceeded by \"+\" or \"-\"!", ( ftnlen)128, (ftnlen)54); -#line 10037 "" - s_wsle(&io___657); -#line 10037 "" +#line 10141 "" + s_wsle(&io___661); +#line 10141 "" do_lio(&c__9, &c__1, "You will have to edit older source"\ "s to meet this rqmt,", (ftnlen)54); -#line 10037 "" +#line 10141 "" e_wsle(); -#line 10038 "" - s_wsle(&io___658); -#line 10038 "" +#line 10142 "" + s_wsle(&io___662); +#line 10142 "" do_lio(&c__9, &c__1, "but it was needed to allow 2-digit"\ " height adjustments.", (ftnlen)54); -#line 10038 "" +#line 10142 "" e_wsle(); -#line 10039 "" - s_wsle(&io___659); -#line 10039 "" +#line 10143 "" + s_wsle(&io___663); +#line 10143 "" do_lio(&c__9, &c__1, "Sorry for the inconvenience. --Th"\ "e Management", (ftnlen)46); -#line 10039 "" +#line 10143 "" e_wsle(); -#line 10040 "" +#line 10144 "" } else { -#line 10041 "" +#line 10145 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10041 "" +#line 10145 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal characte"\ "r after [!", (ftnlen)128, (ftnlen)26); -#line 10043 "" +#line 10147 "" } -#line 10044 "" +#line 10148 "" stop1_(); -#line 10045 "" +#line 10149 "" } -#line 10046 "" +#line 10150 "" } else if (*(unsigned char *)charq == ']') { -#line 10047 "" +#line 10151 "" if (! c1omget_1.fbon) { -#line 10048 "" +#line 10152 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10048 "" +#line 10152 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Forced beam stop wit"\ "h no corresponding start!", (ftnlen)128, (ftnlen)45); -#line 10050 "" +#line 10154 "" stop1_(); -#line 10051 "" +#line 10155 "" } -#line 10052 "" +#line 10156 "" g1etchar_(lineq, &a1ll_2.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 10053 "" +#line 10157 "" if (*(unsigned char *)charq == '-') { -#line 10054 "" +#line 10158 "" i__1 = a1ll_2.iccount; -#line 10054 "" +#line 10158 "" if (s_cmp(lineq + i__1, "[ ", a1ll_2.iccount + 2 - i__1, ( ftnlen)2) != 0) { -#line 10055 "" +#line 10159 "" i__1 = a1ll_2.iccount + 1; -#line 10055 "" +#line 10159 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10055 "" +#line 10159 "" errmsg_(lineq, &i__1, &i__4, "Only sequence allowed here"\ " is \"[ \"!", (ftnlen)128, (ftnlen)35); -#line 10057 "" +#line 10161 "" stop1_(); -#line 10058 "" +#line 10162 "" } else { -#line 10059 "" +#line 10163 "" a1ll_2.iccount += 2; -#line 10060 "" +#line 10164 "" } -#line 10061 "" +#line 10165 "" } else if (*(unsigned char *)charq == '[') { -#line 10062 "" +#line 10166 "" i__1 = a1ll_2.iccount; -#line 10062 "" +#line 10166 "" if (s_cmp(lineq + i__1, " ", a1ll_2.iccount + 1 - i__1, ( ftnlen)1) != 0) { -#line 10063 "" +#line 10167 "" i__1 = a1ll_2.iccount + 1; -#line 10063 "" +#line 10167 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10063 "" +#line 10167 "" errmsg_(lineq, &i__1, &i__4, "This character must be a b"\ "lank!", (ftnlen)128, (ftnlen)31); -#line 10065 "" +#line 10169 "" stop1_(); -#line 10066 "" +#line 10170 "" } -#line 10067 "" +#line 10171 "" } else { /* Forced beam is really ending */ -#line 10071 "" +#line 10175 "" c1omget_1.fbon = FALSE_; -#line 10072 "" +#line 10176 "" if (*(unsigned char *)charq == 'j') { -#line 10073 "" +#line 10177 "" i__1 = a1ll_2.iccount; -#line 10073 "" +#line 10177 "" if (s_cmp(lineq + i__1, " ", a1ll_2.iccount + 1 - i__1, ( ftnlen)1) != 0) { -#line 10074 "" +#line 10178 "" i__1 = a1ll_2.iccount + 1; -#line 10074 "" +#line 10178 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10074 "" +#line 10178 "" errmsg_(lineq, &i__1, &i__4, "This character must be"\ " a blank!", (ftnlen)128, (ftnlen)31); -#line 10076 "" +#line 10180 "" stop1_(); -#line 10077 "" +#line 10181 "" } -#line 10078 "" +#line 10182 "" } else if (*(unsigned char *)charq != ' ') { -#line 10079 "" +#line 10183 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10079 "" +#line 10183 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "\"]\" must be fo"\ "llowed by blank, \"j\", \"-\", or \"[\"!", ( ftnlen)128, (ftnlen)48); -#line 10081 "" +#line 10185 "" stop1_(); -#line 10082 "" +#line 10186 "" } -#line 10083 "" +#line 10187 "" } -#line 10084 "" +#line 10188 "" } else if (*(unsigned char *)charq == 'D') { /* Dynamic mark */ -#line 10088 "" +#line 10192 "" if (a1ll_2.nnl[c1ommvl_1.ivx - 1] == 0) { -#line 10089 "" +#line 10193 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10089 "" +#line 10193 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "\"D\" must not come "\ "before any notes have been entered!", (ftnlen)128, ( ftnlen)53); -#line 10091 "" +#line 10195 "" stop1_(); -#line 10092 "" +#line 10196 "" } -#line 10093 "" +#line 10197 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10093 "" +#line 10197 "" checkdyn_(lineq, &a1ll_2.iccount, &i__1, (ftnlen)128); -#line 10094 "" +#line 10198 "" } else if (i_indx("lhw", charq, (ftnlen)3, (ftnlen)1) > 0) { /* Save position for later check */ -#line 10098 "" +#line 10202 "" icclhw = a1ll_2.iccount; -#line 10099 "" +#line 10203 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 10100 "" +#line 10204 "" if (i_indx("0123456789.+- ", durq, (ftnlen)14, (ftnlen)1) == 0) { -#line 10101 "" +#line 10205 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10101 "" +#line 10205 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal character af"\ "ter \"l\", \"w\", or \"h\"!", (ftnlen)128, (ftnlen)41) ; -#line 10103 "" +#line 10207 "" stop1_(); -#line 10104 "" +#line 10208 "" } -#line 10105 "" +#line 10209 "" c1omget_1.isheadr = c1omget_1.isheadr || *(unsigned char *)charq == 'h'; -#line 10106 "" +#line 10210 "" if (i_indx(" +-", durq, (ftnlen)3, (ftnlen)1) > 0) { /* There is a header (or lower string?) */ -#line 10110 "" +#line 10214 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { /* User-defined vert offset (\internote). */ -#line 10114 "" +#line 10218 "" if (*(unsigned char *)charq != 'h') { -#line 10115 "" +#line 10219 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10115 "" +#line 10219 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "\"+\" or \""\ "-\" not permitted here!", (ftnlen)128, ( ftnlen)30); -#line 10117 "" +#line 10221 "" stop1_(); -#line 10118 "" +#line 10222 "" } /* Have "h" followed by +/- . Check for digit. */ /* Can blow durq since not using fnum for now, but... */ -#line 10123 "" +#line 10227 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 10124 "" +#line 10228 "" if (i_indx("123456789", durq, (ftnlen)9, (ftnlen)1) == 0) { -#line 10125 "" +#line 10229 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10125 "" +#line 10229 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "There must b"\ "e a digit here!", (ftnlen)128, (ftnlen)27); -#line 10127 "" +#line 10231 "" stop1_(); -#line 10128 "" +#line 10232 "" } /* Have "h" followed by +/- followed by a digit. No need to get the number. */ /* call readnum(lineq,iccount,durq,fnum) */ -#line 10133 "" +#line 10237 "" } -#line 10134 "" +#line 10238 "" if (*(unsigned char *)charq != 'w') { /* Header or lower string. */ -#line 10138 "" +#line 10242 "" if (icclhw != 1) { -#line 10139 "" +#line 10243 "" i__1 = a1ll_2.iccount - 1; -#line 10139 "" +#line 10243 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10139 "" +#line 10243 "" errmsg_(lineq, &i__1, &i__4, "\"h\" or \"l\" must be"\ " first character in line!", (ftnlen)128, ( ftnlen)43); -#line 10141 "" +#line 10245 "" stop1_(); -#line 10142 "" +#line 10246 "" } /* Read past the next line, which has the string. */ -#line 10146 "" +#line 10250 "" read10_(charq, &c1omget_1.lastchar, (ftnlen)1); -#line 10147 "" +#line 10251 "" ++c1omget_1.nline; -#line 10148 "" +#line 10252 "" a1ll_2.iccount = 128; -#line 10149 "" +#line 10253 "" } else { -#line 10150 "" +#line 10254 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10150 "" +#line 10254 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Symbol \"w\" (wi"\ "dth) must be followed by a digit!", (ftnlen)128, ( ftnlen)47); -#line 10152 "" +#line 10256 "" stop1_(); -#line 10153 "" +#line 10257 "" } -#line 10154 "" +#line 10258 "" } else { /* Height or width change spec. Check if at start of piece. */ -#line 10158 "" +#line 10262 "" if (c1omnotes_1.ibarcnt > 0) { -#line 10159 "" +#line 10263 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10159 "" +#line 10263 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Symbol must go a"\ "t top of first input block!", (ftnlen)128, ( ftnlen)43); -#line 10161 "" +#line 10265 "" stop1_(); -#line 10162 "" +#line 10266 "" } -#line 10163 "" +#line 10267 "" readnum_(lineq, &a1ll_2.iccount, durq, &dimen, (ftnlen)128, ( ftnlen)1); /* Check units. Convert to points */ -#line 10167 "" +#line 10271 "" if (*(unsigned char *)durq == ' ' || *(unsigned char *)durq == 'p') { -#line 10168 "" +#line 10272 "" dimen += .5f; -#line 10169 "" +#line 10273 "" } else if (*(unsigned char *)durq == 'i') { -#line 10170 "" +#line 10274 "" dimen = dimen * 72 + .5f; -#line 10171 "" +#line 10275 "" } else if (*(unsigned char *)durq == 'm') { -#line 10172 "" +#line 10276 "" dimen = dimen / 25.4f * 72 + .5f; -#line 10173 "" +#line 10277 "" } else { -#line 10174 "" +#line 10278 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10174 "" +#line 10278 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal unit; mu"\ "st be \"p\",\"i\",or\"m\"!", (ftnlen)128, (ftnlen) 36); -#line 10176 "" +#line 10280 "" stop1_(); -#line 10177 "" +#line 10281 "" } /* 151211 fix. May have extra character. */ -#line 10181 "" +#line 10285 "" if (i_indx("pim", durq, (ftnlen)3, (ftnlen)1) > 0) { /* Get another character, see if it's blank */ -#line 10185 "" +#line 10289 "" i__1 = a1ll_2.iccount; -#line 10185 "" +#line 10289 "" if (s_cmp(lineq + i__1, " ", a1ll_2.iccount + 1 - i__1, ( ftnlen)1) != 0) { -#line 10186 "" +#line 10290 "" i__1 = a1ll_2.iccount + 1; -#line 10186 "" +#line 10290 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10186 "" +#line 10290 "" errmsg_(lineq, &i__1, &i__4, "This character should "\ "be a blank!", (ftnlen)128, (ftnlen)33); -#line 10188 "" +#line 10292 "" stop1_(); -#line 10189 "" +#line 10293 "" } -#line 10190 "" +#line 10294 "" } -#line 10191 "" +#line 10295 "" if (*(unsigned char *)charq == 'h') { -#line 10192 "" +#line 10296 "" compage_1.ptheight = (real) ((integer) dimen); -#line 10193 "" +#line 10297 "" } else { -#line 10194 "" +#line 10298 "" compage_1.widthpt = (real) ((integer) dimen); -#line 10195 "" +#line 10299 "" } -#line 10196 "" +#line 10300 "" } -#line 10197 "" +#line 10301 "" } else if (*(unsigned char *)charq == 'm') { /* Time signature change. Only allow at beginning of block. */ @@ -24890,109 +25071,116 @@ L17: /* Check whether at beginning of a block */ -#line 10205 "" +#line 10309 "" if (c1ommvl_1.ivx != 1 || a1ll_2.nnl[0] != 0) { -#line 10206 "" +#line 10310 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10206 "" +#line 10310 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Meter change only OK"\ " in voice 1, at start of block!", (ftnlen)128, ( ftnlen)51); -#line 10208 "" - s_wsle(&io___662); -#line 10208 "" +#line 10312 "" + s_wsle(&io___666); +#line 10312 "" do_lio(&c__9, &c__1, "voice number is", (ftnlen)15); -#line 10208 "" +#line 10312 "" do_lio(&c__3, &c__1, (char *)&c1ommvl_1.ivx, (ftnlen)sizeof( integer)); -#line 10208 "" +#line 10312 "" e_wsle(); -#line 10209 "" +#line 10313 "" stop1_(); -#line 10210 "" +#line 10314 "" } -#line 10211 "" +#line 10315 "" a1ll_2.newmeter = TRUE_; -#line 10212 "" +#line 10316 "" + i__1 = a1ll_2.iccount; +#line 10316 "" + if (i_indx("o0123456789", lineq + i__1, (ftnlen)11, + a1ll_2.iccount + 1 - i__1) == 0) { +#line 10317 "" + i__1 = a1ll_2.iccount + 1; +#line 10317 "" + i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + + a1ll_2.nbars + 1; +#line 10317 "" + errmsg_(lineq, &i__1, &i__4, "Illegal character in \"m\" com"\ + "mand for meter change!", (ftnlen)128, (ftnlen)50); +#line 10319 "" + stop1_(); +#line 10320 "" + } +#line 10321 "" readmeter_(lineq, &a1ll_2.iccount, &a1ll_2.mtrnuml, &mtrdenl, ( ftnlen)128); -#line 10213 "" +#line 10322 "" if (a1ll_2.mtrnuml == 0) { -#line 10214 "" +#line 10323 "" i__1 = a1ll_2.iccount - 1; -#line 10214 "" +#line 10323 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10214 "" +#line 10323 "" errmsg_(lineq, &i__1, &i__4, "Digit 0 not allowed here!", ( ftnlen)128, (ftnlen)25); -#line 10216 "" +#line 10325 "" stop1_(); -/* else if (mtrdenl .eq. 1) then */ -/* c */ -/* c Kluge!!! */ -/* c */ -/* mtrdenl = 2 */ -/* mtrnuml = 2*mtrnuml */ -#line 10223 "" +#line 10326 "" } -#line 10224 "" +#line 10327 "" readmeter_(lineq, &a1ll_2.iccount, &mtrnmp, &mtrdnp, (ftnlen)128); /* Read past printed time signature; not used in pmxa. */ -#line 10228 "" +#line 10331 "" lenbeat = i1fnodur_(&mtrdenl, "x", (ftnlen)1); -#line 10229 "" +#line 10332 "" lenmult = 1; -#line 10230 "" +#line 10333 "" if (mtrdenl == 2) { -#line 10231 "" +#line 10334 "" lenbeat = 16; -#line 10232 "" +#line 10335 "" lenmult = 2; -#line 10233 "" +#line 10336 "" } -#line 10234 "" +#line 10337 "" a1ll_2.lenbar = lenmult * a1ll_2.mtrnuml * lenbeat; -#line 10235 "" +#line 10338 "" a1ll_2.mtrnuml = 0; -#line 10236 "" +#line 10339 "" } else if (*(unsigned char *)charq == 'C') { -#line 10237 "" +#line 10340 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 10238 "" +#line 10341 "" if (! (i_indx("tsmanrbf", durq, (ftnlen)8, (ftnlen)1) > 0 || *( unsigned char *)durq >= 48 && *(unsigned char *)durq <= 56)) { -/* * (ichar(durq).ge.48 .and. ichar(durq).le.54))) then */ -/* * (ichar(durq).ge.48 .and. ichar(durq).le.55))) then */ -#line 10242 "" +#line 10343 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10242 "" +#line 10343 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Must have t,s,m,a,n,"\ "r,b,f or 0-8 after C!", (ftnlen)128, (ftnlen)41); -/* * 'Must have t,s,m,a,n,r,b,f or 1-6 after C!') */ -#line 10245 "" +#line 10345 "" stop1_(); -#line 10246 "" +#line 10346 "" } -/* gotclef = .true. */ -#line 10248 "" +#line 10347 "" } else if (*(unsigned char *)charq == 'R') { -#line 10249 "" +#line 10348 "" if (c1ommvl_1.ivx != 1) { -#line 10250 "" +#line 10349 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10250 "" +#line 10349 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Repeats can only go "\ "in voice 1!", (ftnlen)128, (ftnlen)31); -#line 10252 "" +#line 10351 "" stop1_(); -#line 10253 "" +#line 10352 "" } /* 10 call g1etchar(lineq,iccount,durq) */ /* if (index('lrdDbz',durq) .gt. 0) go to 10 */ @@ -25001,705 +25189,703 @@ L17: /* * 'Illegal character after "R" (repeat/double bar)!') */ /* call stop1() */ /* end if */ -#line 10261 "" +#line 10360 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 10262 "" +#line 10361 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, (ftnlen)1); /* Writing concatenation */ -#line 10263 "" +#line 10362 "" i__3[0] = 1, a__2[0] = durq; -#line 10263 "" +#line 10362 "" i__3[1] = 1, a__2[1] = dumq; -#line 10263 "" +#line 10362 "" s_cat(ch__3, a__2, i__3, &c__2, (ftnlen)2); -#line 10263 "" +#line 10362 "" if (i_indx("l Xr Xd XD Xb Xz XlrXdlX", ch__3, (ftnlen)24, (ftnlen) 2) == 0) { -#line 10264 "" +#line 10363 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10264 "" +#line 10363 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal character af"\ "ter \"R*\" (repeat/double bar)!", (ftnlen)128, ( ftnlen)49); -#line 10266 "" +#line 10365 "" stop1_(); -#line 10267 "" +#line 10366 "" } -#line 10268 "" +#line 10367 "" if (*(unsigned char *)dumq != ' ') { -#line 10269 "" +#line 10368 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 10270 "" +#line 10369 "" if (*(unsigned char *)durq != ' ') { -#line 10271 "" +#line 10370 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10271 "" +#line 10370 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Must have blank "\ "after \"R**\" (repeat/double bar)!", (ftnlen)128, (ftnlen)48); -#line 10273 "" +#line 10372 "" stop1_(); -#line 10274 "" +#line 10373 "" } -#line 10275 "" +#line 10374 "" } -#line 10276 "" +#line 10375 "" } else if (*(unsigned char *)charq == 'V') { /* Ending */ -#line 10280 "" +#line 10379 "" if (a1ll_2.iv != 1) { -#line 10281 "" +#line 10380 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10281 "" +#line 10380 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Voltas are only allo"\ "wed in voice #1!", (ftnlen)128, (ftnlen)36); -#line 10283 "" +#line 10382 "" stop1_(); -#line 10284 "" +#line 10383 "" } else if (c1omget_1.isvolt) { -#line 10285 "" - s_wsle(&io___668); -#line 10285 "" +#line 10384 "" + s_wsle(&io___672); +#line 10384 "" e_wsle(); -#line 10286 "" - s_wsle(&io___669); -#line 10286 "" +#line 10385 "" + s_wsle(&io___673); +#line 10385 "" do_lio(&c__9, &c__1, "*******WARNING********", (ftnlen)22); -#line 10286 "" +#line 10385 "" e_wsle(); -#line 10287 "" - s_wsfe(&io___670); -#line 10287 "" +#line 10386 "" + s_wsfe(&io___674); +#line 10386 "" do_fio(&c__1, "*******WARNING********", (ftnlen)22); -#line 10287 "" +#line 10386 "" e_wsfe(); -#line 10288 "" +#line 10387 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10288 "" +#line 10387 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "There is more than o"\ "ne volta in this input block.!", (ftnlen)128, (ftnlen) 50); -#line 10290 "" - s_wsle(&io___671); -#line 10290 "" +#line 10389 "" + s_wsle(&io___675); +#line 10389 "" do_lio(&c__9, &c__1, "This may work in a score, but WILL NOT"\ " work in parts.", (ftnlen)53); -#line 10290 "" +#line 10389 "" e_wsle(); -#line 10291 "" - s_wsle(&io___672); -#line 10291 "" +#line 10390 "" + s_wsle(&io___676); +#line 10390 "" do_lio(&c__9, &c__1, "Safest to have only 1 volta per block,"\ " at the start of the block", (ftnlen)64); -#line 10291 "" +#line 10390 "" e_wsle(); -#line 10293 "" - s_wsfe(&io___673); -#line 10293 "" +#line 10392 "" + s_wsfe(&io___677); +#line 10392 "" do_fio(&c__1, "This may work in a score, but WILL NOT work i"\ "n parts.", (ftnlen)53); -#line 10293 "" +#line 10392 "" e_wsfe(); -#line 10295 "" - s_wsfe(&io___674); -#line 10295 "" +#line 10394 "" + s_wsfe(&io___678); +#line 10394 "" do_fio(&c__1, "Safest to have only 1 volta per block, at the"\ " start of the block", (ftnlen)64); -#line 10295 "" +#line 10394 "" e_wsfe(); -#line 10297 "" +#line 10396 "" } -#line 10298 "" +#line 10397 "" c1omget_1.isvolt = TRUE_; -#line 10299 "" +#line 10398 "" lvoltxt = 0; -#line 10300 "" +#line 10399 "" L11: -#line 10300 "" +#line 10399 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 10301 "" +#line 10400 "" if (*(unsigned char *)durq != ' ') { -#line 10302 "" +#line 10401 "" goto L11; -#line 10303 "" +#line 10402 "" } -#line 10304 "" +#line 10403 "" } else if (*(unsigned char *)charq == 'B') { -#line 10306 "" +#line 10405 "" } else if (*(unsigned char *)charq == 'P') { -#line 10307 "" +#line 10406 "" if (c1ommvl_1.ivx != 1 || a1ll_2.nnl[0] != 0) { -#line 10308 "" +#line 10407 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10308 "" +#line 10407 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Only allowed at begi"\ "nning of block!", (ftnlen)128, (ftnlen)35); -#line 10310 "" +#line 10409 "" stop1_(); -#line 10311 "" +#line 10410 "" } -#line 10312 "" +#line 10411 "" L16: -#line 10312 "" +#line 10411 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 10313 "" +#line 10412 "" if (*(unsigned char *)durq == 'l' || *(unsigned char *)durq == 'r' || *(unsigned char *)durq >= 48 && *(unsigned char *) durq <= 57) { -#line 10313 "" +#line 10412 "" goto L16; -#line 10313 "" +#line 10412 "" } -#line 10315 "" +#line 10414 "" if (*(unsigned char *)durq == 'c') { /* Expect a centered name, and it has to be last option */ -#line 10319 "" +#line 10418 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 10320 "" +#line 10419 "" if (*(unsigned char *)durq == '"') { /* Quoted name, go to next quote mark */ -#line 10324 "" +#line 10423 "" for (++a1ll_2.iccount; a1ll_2.iccount <= 127; ++a1ll_2.iccount) { -#line 10325 "" +#line 10424 "" i__1 = a1ll_2.iccount - 2; -#line 10325 "" +#line 10424 "" if (*(unsigned char *)&lineq[a1ll_2.iccount - 1] == '"' && s_cmp(lineq + i__1, "\\", a1ll_2.iccount - 1 - i__1, (ftnlen)1) != 0) { -#line 10325 "" +#line 10424 "" goto L36; -#line 10325 "" +#line 10424 "" } -#line 10327 "" +#line 10426 "" /* L35: */ -#line 10327 "" +#line 10426 "" } -#line 10328 "" +#line 10427 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10328 "" +#line 10427 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Missing close qu"\ "ote after page number command (P)!", (ftnlen)128, (ftnlen)50); -#line 10330 "" +#line 10429 "" stop1_(); -#line 10331 "" +#line 10430 "" L36: -#line 10332 "" +#line 10431 "" ; -#line 10332 "" +#line 10431 "" } else if (*(unsigned char *)durq != ' ') { /* Space-delimited name, look for next blank */ -#line 10336 "" +#line 10435 "" for (++a1ll_2.iccount; a1ll_2.iccount <= 127; ++a1ll_2.iccount) { -#line 10337 "" +#line 10436 "" if (*(unsigned char *)&lineq[a1ll_2.iccount - 1] == ' ') { -#line 10337 "" +#line 10436 "" goto L38; -#line 10337 "" +#line 10436 "" } -#line 10338 "" +#line 10437 "" /* L37: */ -#line 10338 "" +#line 10437 "" } -#line 10339 "" +#line 10438 "" L38: -#line 10340 "" +#line 10439 "" ; -#line 10340 "" +#line 10439 "" } -#line 10341 "" +#line 10440 "" } else if (*(unsigned char *)durq != ' ') { -#line 10342 "" +#line 10441 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10342 "" +#line 10441 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Only \"l\",\"r\",\""\ "c\" or digit allowed after \"P\"!", (ftnlen)128, ( ftnlen)44); -#line 10344 "" +#line 10443 "" stop1_(); -#line 10345 "" +#line 10444 "" } -#line 10346 "" +#line 10445 "" } else if (*(unsigned char *)charq == 'W') { -#line 10347 "" +#line 10446 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 10348 "" +#line 10447 "" if (i_indx(".0123456789", durq, (ftnlen)11, (ftnlen)1) == 0) { -#line 10349 "" +#line 10448 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10349 "" +#line 10448 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Expected a number to"\ " start here!", (ftnlen)128, (ftnlen)32); -#line 10351 "" +#line 10450 "" stop1_(); -#line 10352 "" +#line 10451 "" } -#line 10353 "" +#line 10452 "" readnum_(lineq, &a1ll_2.iccount, durq, &c1omnotes_1.wminnh[ c1omnotes_1.ibarcnt + a1ll_2.nbars], (ftnlen)128, (ftnlen) 1); -#line 10354 "" +#line 10453 "" } else if (*(unsigned char *)charq == 'T') { /* Titles */ -#line 10358 "" +#line 10457 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 10359 "" +#line 10458 "" if (i_indx("itc", durq, (ftnlen)3, (ftnlen)1) == 0) { -#line 10360 "" +#line 10459 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10360 "" +#line 10459 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Must put \"i\", \""\ "t\", or \"c\" after \"T\"!", (ftnlen)128, (ftnlen)36); -#line 10362 "" +#line 10461 "" stop1_(); -#line 10363 "" +#line 10462 "" } -#line 10364 "" +#line 10463 "" i__1 = i_indx("itc", durq, (ftnlen)3, (ftnlen)1) - 1; -#line 10364 "" +#line 10463 "" c1omget_1.ihead += pow_ii(&c__2, &i__1); /* Maybe a number after 'Tt', but ignore here. Read past string on next line. */ -#line 10368 "" +#line 10467 "" read10_(charq, &c1omget_1.lastchar, (ftnlen)1); -#line 10369 "" +#line 10468 "" ++c1omget_1.nline; -#line 10370 "" +#line 10469 "" a1ll_2.iccount = 128; -#line 10371 "" +#line 10470 "" } else if (*(unsigned char *)charq == 'A') { -#line 10372 "" +#line 10471 "" L27: -#line 10372 "" +#line 10471 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); /* if (index('rbsdeK',durq) .gt. 0) then */ -#line 10374 "" +#line 10473 "" if (i_indx("rbsdK", durq, (ftnlen)5, (ftnlen)1) > 0) { -#line 10375 "" +#line 10474 "" goto L27; -#line 10376 "" +#line 10475 "" } else if (*(unsigned char *)durq == 'e') { /* Check for is4bignv. Must do here to catch first \internote, written in topfile */ /* before ever calling getnote. Initialize as .false. in pmxa. Make it true only */ /* if nv>7, AI not set, Ai not set. */ -#line 10382 "" +#line 10481 "" comis4bignv_1.is4bignv = a1ll_2.nv > 7 && ! comis4bignv_1.aiset; -#line 10383 "" +#line 10482 "" goto L27; -#line 10384 "" +#line 10483 "" } else if (*(unsigned char *)durq == 'v') { -#line 10385 "" +#line 10484 "" if (c1omnotes_1.ibarcnt == 0) { -#line 10385 "" +#line 10484 "" comnvst_1.novshrinktop = TRUE_; -#line 10385 "" +#line 10484 "" } -#line 10386 "" +#line 10485 "" goto L27; -#line 10387 "" +#line 10486 "" } else if (*(unsigned char *)durq == 'a') { -#line 10388 "" +#line 10487 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 10389 "" +#line 10488 "" if (i_indx("0123456789.", durq, (ftnlen)11, (ftnlen)1) == 0) { -#line 10390 "" +#line 10489 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10390 "" +#line 10489 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "After \"Aa\", ne"\ "ed decimal number!", (ftnlen)128, (ftnlen)32); -#line 10392 "" +#line 10491 "" stop1_(); -#line 10393 "" +#line 10492 "" } -#line 10394 "" +#line 10493 "" readnum_(lineq, &a1ll_2.iccount, durq, &c1ommvl_1.fbar, ( ftnlen)128, (ftnlen)1); -#line 10395 "" +#line 10494 "" --a1ll_2.iccount; -#line 10396 "" +#line 10495 "" goto L27; -#line 10397 "" +#line 10496 "" } else if (*(unsigned char *)durq == 'i') { -#line 10398 "" +#line 10497 "" comis4bignv_1.is4bignv = FALSE_; -#line 10399 "" +#line 10498 "" comis4bignv_1.aiset = TRUE_; -#line 10400 "" +#line 10499 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); /* Local interstaff correction. Set to -1. if not specifiec, or after use, */ /* or anytime except at top, since pmxb handles all times except at top. */ -#line 10405 "" +#line 10504 "" readnum_(lineq, &a1ll_2.iccount, durq, &tintstf, (ftnlen)128, (ftnlen)1); -#line 10406 "" +#line 10505 "" if (c1omnotes_1.ibarcnt == 0) { -#line 10406 "" +#line 10505 "" compage_1.fintstf = tintstf; -#line 10406 "" +#line 10505 "" } -#line 10407 "" +#line 10506 "" --a1ll_2.iccount; -#line 10408 "" +#line 10507 "" goto L27; -#line 10409 "" +#line 10508 "" } else if (*(unsigned char *)durq == 'I') { /* Global interstaff correction. Use in place of fintstf if fintstf<0 */ -#line 10413 "" +#line 10512 "" comis4bignv_1.is4bignv = FALSE_; -#line 10414 "" +#line 10513 "" comis4bignv_1.aiset = TRUE_; -#line 10415 "" +#line 10514 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 10416 "" +#line 10515 "" readnum_(lineq, &a1ll_2.iccount, durq, &compage_1.gintstf, ( ftnlen)128, (ftnlen)1); -#line 10417 "" +#line 10516 "" --a1ll_2.iccount; -#line 10418 "" +#line 10517 "" goto L27; -#line 10419 "" +#line 10518 "" } else if (*(unsigned char *)durq == 'o') { -#line 10420 "" +#line 10519 "" *optimize = TRUE_; -#line 10421 "" +#line 10520 "" goto L27; -#line 10422 "" +#line 10521 "" } else if (*(unsigned char *)durq == 'S') { -/* 130324 */ -/* do 50 iiv = 1 , nv */ -#line 10425 "" +#line 10522 "" i__1 = comkeys_1.noinst; -#line 10425 "" +#line 10522 "" for (iiv = 1; iiv <= i__1; ++iiv) { -#line 10426 "" +#line 10523 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 10427 "" +#line 10524 "" if (i_indx("-0st", durq, (ftnlen)4, (ftnlen)1) == 0) { -#line 10428 "" +#line 10525 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10428 "" +#line 10525 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "After \"AS\""\ ", need nv instances of \"s,t,-,0\"!", (ftnlen) 128, (ftnlen)43); -#line 10430 "" +#line 10527 "" stop1_(); -#line 10431 "" +#line 10528 "" } -#line 10432 "" +#line 10529 "" if (*(unsigned char *)durq == '-' || *(unsigned char *) durq == 's') { -#line 10433 "" +#line 10530 "" comsize_1.isize[iiv - 1] = 1; -#line 10434 "" +#line 10531 "" } else if (*(unsigned char *)durq == 't') { -#line 10435 "" +#line 10532 "" comsize_1.isize[iiv - 1] = 2; -#line 10436 "" +#line 10533 "" } -#line 10437 "" +#line 10534 "" /* L50: */ -#line 10437 "" +#line 10534 "" } -#line 10438 "" +#line 10535 "" goto L27; -#line 10439 "" +#line 10536 "" } else if (*(unsigned char *)durq == 'p') { -#line 10440 "" +#line 10537 "" comslur_1.fontslur = FALSE_; -#line 10441 "" +#line 10538 "" L42: -#line 10442 "" +#line 10539 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 10443 "" +#line 10540 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Characters to change defaults for ps slurs */ -#line 10447 "" +#line 10544 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 10448 "" +#line 10545 "" if (i_indx("shtc", durq, (ftnlen)4, (ftnlen)1) == 0) { -#line 10449 "" +#line 10546 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10449 "" +#line 10546 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Only letters"\ " allowed here are \"s\",\"h\",\"t\",\"c\"!", ( ftnlen)128, (ftnlen)46); -#line 10451 "" +#line 10548 "" stop1_(); -#line 10452 "" +#line 10549 "" } /* Now check for another default modifier */ -#line 10456 "" +#line 10553 "" goto L42; -#line 10457 "" +#line 10554 "" } else if (i_indx("lh", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Flags for optional linebreak ties or header specials */ -#line 10461 "" +#line 10558 "" goto L42; -#line 10462 "" +#line 10559 "" } else { -#line 10463 "" +#line 10560 "" --a1ll_2.iccount; -#line 10464 "" +#line 10561 "" } -#line 10465 "" +#line 10562 "" goto L27; -#line 10466 "" +#line 10563 "" } else if (*(unsigned char *)durq == 'N') { /* Override default name for a part file. Must have part number, then */ /* partname in quotes. Must be on line by itself, and start in column 1. */ /* Will only be passed thru to scor2prt. */ -#line 10472 "" +#line 10569 "" if (a1ll_2.iccount != 2) { -#line 10473 "" +#line 10570 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10473 "" +#line 10570 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "\"AN\" must star"\ "t in column 1!", (ftnlen)128, (ftnlen)28); -#line 10475 "" +#line 10572 "" stop1_(); -#line 10476 "" +#line 10573 "" } -#line 10477 "" +#line 10574 "" ndxquote = i_indx(lineq, "\"", (ftnlen)128, (ftnlen)1); -#line 10478 "" +#line 10575 "" if (ndxquote < 4 || ndxquote > 5 || i_indx("123456789", lineq + 2, (ftnlen)9, (ftnlen)1) == 0 || ndxquote == 5 && i_indx("012", lineq + 3, (ftnlen)3, (ftnlen)1) == 0) { -#line 10481 "" +#line 10578 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10481 "" +#line 10578 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "\"AN\" must be f"\ "ollowed by inst. #, then quote!", (ftnlen)128, ( ftnlen)45); -#line 10483 "" +#line 10580 "" stop1_(); -#line 10484 "" +#line 10581 "" } -#line 10485 "" +#line 10582 "" i__1 = ndxquote; -#line 10485 "" +#line 10582 "" ndxquote = i_indx(lineq + i__1, "\"", 128 - i__1, (ftnlen)1); -#line 10486 "" +#line 10583 "" if (ndxquote == 0) { -#line 10487 "" +#line 10584 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10487 "" +#line 10584 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "In \"AN\", file "\ "name must be in quotes!", (ftnlen)128, (ftnlen)37) ; -#line 10489 "" +#line 10586 "" stop1_(); -#line 10490 "" +#line 10587 "" } -#line 10491 "" +#line 10588 "" a1ll_2.iccount = 128; -#line 10492 "" +#line 10589 "" } else if (*(unsigned char *)durq == 'T') { -#line 10493 "" +#line 10590 "" comnvst_1.cstuplet = TRUE_; -#line 10494 "" +#line 10591 "" } else if (*(unsigned char *)durq == 'R') { /* Get full name of normal include file; must occupy remainder of line */ -#line 10498 "" +#line 10595 "" i__1 = a1ll_2.iccount; -#line 10498 "" +#line 10595 "" getpmxmod_(&c_false, lineq + i__1, 128 - i__1); -#line 10499 "" +#line 10596 "" a1ll_2.iccount = 128; -#line 10500 "" +#line 10597 "" } else if (*(unsigned char *)durq == 'c') { -#line 10501 "" +#line 10598 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 10502 "" +#line 10599 "" if (i_indx("l4", durq, (ftnlen)2, (ftnlen)1) == 0) { -#line 10503 "" +#line 10600 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10503 "" +#line 10600 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Only \"l\" or"\ " \"4\" is allowed here!", (ftnlen)128, (ftnlen)32) ; -#line 10505 "" +#line 10602 "" stop1_(); -#line 10506 "" +#line 10603 "" } -#line 10507 "" +#line 10604 "" if (*(unsigned char *)durq == 'l') { -#line 10508 "" +#line 10605 "" compage_1.hoffpt = -25.f; -#line 10509 "" +#line 10606 "" compage_1.voffpt = -45.f; -#line 10510 "" +#line 10607 "" } else if (*(unsigned char *)durq == '4') { -#line 10511 "" +#line 10608 "" compage_1.ptheight = 745.f; -#line 10512 "" +#line 10609 "" compage_1.widthpt = 499.f; -#line 10513 "" +#line 10610 "" compage_1.hoffpt = -24.f; -#line 10514 "" +#line 10611 "" compage_1.voffpt = -24.f; -#line 10515 "" +#line 10612 "" } -#line 10516 "" +#line 10613 "" goto L27; -#line 10517 "" +#line 10614 "" } else if (*(unsigned char *)durq == 'V') { -#line 10518 "" +#line 10615 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 10519 "" +#line 10616 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) == 0) { -#line 10520 "" +#line 10617 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10520 "" +#line 10617 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Only \"+\" or"\ " \"-\" is allowed here!", (ftnlen)128, (ftnlen)32) ; -#line 10522 "" +#line 10619 "" stop1_(); -#line 10523 "" +#line 10620 "" } -#line 10524 "" +#line 10621 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 10525 "" +#line 10622 "" if (i_indx("0123456789.", durq, (ftnlen)11, (ftnlen)1) == 0) { -#line 10526 "" +#line 10623 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10526 "" +#line 10623 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "A number for ver"\ "t shift before \\eject must start here!", (ftnlen) 128, (ftnlen)54); -#line 10528 "" +#line 10625 "" stop1_(); -#line 10529 "" +#line 10626 "" } -#line 10530 "" +#line 10627 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 10531 "" +#line 10628 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) == 0) { -#line 10532 "" +#line 10629 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10532 "" +#line 10629 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Only \"+\" or"\ " \"-\" is allowed here!", (ftnlen)128, (ftnlen)32) ; -#line 10534 "" +#line 10631 "" stop1_(); -#line 10535 "" +#line 10632 "" } -#line 10536 "" +#line 10633 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 10537 "" +#line 10634 "" if (i_indx("0123456789.", durq, (ftnlen)11, (ftnlen)1) == 0) { -#line 10538 "" +#line 10635 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10538 "" +#line 10635 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "A number for ver"\ "t shift after \\eject must start here!", (ftnlen) 128, (ftnlen)53); -#line 10540 "" +#line 10637 "" stop1_(); -#line 10541 "" +#line 10638 "" } -#line 10542 "" +#line 10639 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 10543 "" +#line 10640 "" --a1ll_2.iccount; -#line 10544 "" +#line 10641 "" goto L27; -#line 10545 "" +#line 10642 "" } else if (*(unsigned char *)durq != ' ') { -#line 10546 "" +#line 10643 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10546 "" +#line 10643 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "After \"A\" must fol"\ "low one of abcdeiILNprRsSTvV!", (ftnlen)128, (ftnlen) 47); /* * 'After "A" must follow one of the letters abcdeiINprRsST!') */ -#line 10549 "" - s_wsle(&io___679); -#line 10549 "" +#line 10646 "" + s_wsle(&io___683); +#line 10646 "" do_lio(&c__9, &c__1, "For AS, since ver. 2.7, must only have"\ " noinst args.", (ftnlen)51); -#line 10549 "" +#line 10646 "" e_wsle(); -#line 10550 "" - s_wsfe(&io___680); -#line 10550 "" +#line 10647 "" + s_wsfe(&io___684); +#line 10647 "" do_fio(&c__1, "For AS, since ver. 2.7, must only have noinst"\ " args.", (ftnlen)51); -#line 10550 "" +#line 10647 "" e_wsfe(); -#line 10552 "" +#line 10649 "" stop1_(); -#line 10553 "" +#line 10650 "" } -#line 10554 "" +#line 10651 "" } else if (*(unsigned char *)charq == 'K') { /* Rules and function of K command */ @@ -25711,165 +25897,165 @@ L42: /* then adjust fbar to make poenom much more accurate. */ /* Jan 02: Now K-0+[n] is used to transpose e.g. from f to f#. */ -#line 10565 "" +#line 10662 "" L77: -#line 10566 "" +#line 10663 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); /* if (index('+-i',durq) .eq. 0) then */ -#line 10568 "" +#line 10665 "" if (i_indx("+-in", durq, (ftnlen)4, (ftnlen)1) == 0) { -#line 10569 "" +#line 10666 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10569 "" +#line 10666 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "\"K\" (transpose or "\ "key change) must be followed by \"+,-,i,n\"!", ( ftnlen)128, (ftnlen)60); -#line 10571 "" +#line 10668 "" stop1_(); -#line 10572 "" +#line 10669 "" } -#line 10573 "" +#line 10670 "" if (*(unsigned char *)durq == 'n') { -#line 10573 "" +#line 10670 "" goto L77; -#line 10573 "" +#line 10670 "" } -#line 10574 "" +#line 10671 "" if (*(unsigned char *)durq != 'i') { /* Normal key change and/or transposition) */ /* iccount = iccount+1 */ -#line 10579 "" +#line 10676 "" num1 = 44 - *(unsigned char *)durq; /* num1= +1 or -1 */ -#line 10583 "" +#line 10680 "" ztrans = num1 == -1; -#line 10584 "" +#line 10681 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 10585 "" +#line 10682 "" if (i_indx("0123456789", durq, (ftnlen)10, (ftnlen)1) == 0) { -#line 10586 "" +#line 10683 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10586 "" +#line 10683 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "1st +/- must be "\ "followed by a number!", (ftnlen)128, (ftnlen)37); -#line 10588 "" +#line 10685 "" stop1_(); -#line 10589 "" +#line 10686 "" } /* iccount = iccount+1 */ -#line 10591 "" +#line 10688 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 10592 "" +#line 10689 "" num1 = i_nint(&fnum) * num1; -#line 10593 "" +#line 10690 "" ztrans = ztrans && num1 == 0; -#line 10594 "" +#line 10691 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) == 0) { -#line 10595 "" +#line 10692 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10595 "" +#line 10692 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "1st number aft"\ "er \"K\" must be followed by \"+,-\"!", (ftnlen) 128, (ftnlen)47); -#line 10597 "" +#line 10694 "" stop1_(); -#line 10598 "" +#line 10695 "" } -#line 10599 "" +#line 10696 "" ++a1ll_2.iccount; -#line 10600 "" +#line 10697 "" num2 = 44 - *(unsigned char *)durq; -#line 10601 "" +#line 10698 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 10602 "" +#line 10699 "" num2 *= (integer) (fnum + .1f); -#line 10603 "" +#line 10700 "" if (num1 == 0 && ! ztrans) { /* Key change, only one per block allowed */ -#line 10607 "" +#line 10704 "" if (comkeys_1.iskchb) { -#line 10608 "" +#line 10705 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10608 "" +#line 10705 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Only one key"\ " change allowed per input block!", (ftnlen) 128, (ftnlen)44); -#line 10610 "" +#line 10707 "" stop1_(); -#line 10611 "" +#line 10708 "" } -#line 10612 "" +#line 10709 "" comkeys_1.iskchb = TRUE_; -#line 10613 "" +#line 10710 "" ++comkeys_1.nkeys; -#line 10614 "" +#line 10711 "" comkeys_1.kchmid[comkeys_1.nkeys - 1] = a1ll_2.itsofar[ c1ommvl_1.ivx - 1] % a1ll_2.lenbar != 0; /* Make ibrkch = barnum-1 if at start of bar, so fsyst advances ok at linebreak. */ -#line 10618 "" +#line 10715 "" comkeys_1.ibrkch[comkeys_1.nkeys - 1] = c1omnotes_1.ibarcnt + a1ll_2.nbars; -#line 10619 "" +#line 10716 "" if (comkeys_1.kchmid[comkeys_1.nkeys - 1]) { -#line 10619 "" +#line 10716 "" ++comkeys_1.ibrkch[comkeys_1.nkeys - 1]; -#line 10619 "" +#line 10716 "" } -#line 10620 "" +#line 10717 "" comkeys_1.newkey[comkeys_1.nkeys - 1] = num2 + comkeys_1.idsig; /* 130316 */ /* do 43 iinst = 1 , noinst */ -#line 10623 "" +#line 10720 "" commidisig_1.midisig = comkeys_1.newkey[comkeys_1.nkeys - 1]; /* 43 continue */ -#line 10625 "" +#line 10722 "" } else { /* Transposition */ -#line 10629 "" +#line 10726 "" *fulltrans = TRUE_; -#line 10630 "" +#line 10727 "" if (c1omnotes_1.ibarcnt > 0) { -#line 10631 "" +#line 10728 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10631 "" +#line 10728 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Transpositio"\ "n must be at top of first input block!", ( ftnlen)128, (ftnlen)50); -#line 10633 "" +#line 10730 "" stop1_(); -#line 10634 "" +#line 10731 "" } -#line 10635 "" +#line 10732 "" comkeys_1.isig1 = num2; -#line 10636 "" +#line 10733 "" comkeys_1.idsig = comkeys_1.isig1 - comkeys_1.newkey[0]; /* idsig is the difference between sig after transposition, and sig in setup. */ /* It may alter # of accid's in key changes if there is transposition. */ -#line 10641 "" +#line 10738 "" } -#line 10642 "" +#line 10739 "" } else { /* 110522/110529 */ @@ -25883,92 +26069,87 @@ L77: /* ALWAYS active per instrument. Set up instno(iv) so can fetch iTransAmt for */ /* each staff. */ -/* if (fulltrans) then */ -/* call errmsg(lineq,iccount,ibarcnt-ibaroff+nbars+1, */ -/* * 'Cannot yet combine full and instrument transposition!') */ -/* call stop1() */ -/* end if */ /* durq='i' */ -#line 10660 "" +#line 10752 "" getitransinfo_(&c_true, &c1omnotes_1.ibarcnt, lineq, & a1ll_2.iccount, &c1omnotes_1.ibaroff, &a1ll_2.nbars, & comkeys_1.noinst, (ftnlen)128); -#line 10662 "" +#line 10754 "" } -#line 10663 "" +#line 10755 "" } else if (*(unsigned char *)charq == '|') { /* Optional bar symbol */ -#line 10667 "" +#line 10759 "" if (a1ll_2.itsofar[c1ommvl_1.ivx - 1] % a1ll_2.lenbar != 0) { -#line 10668 "" +#line 10760 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10668 "" +#line 10760 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Bar line marker out "\ "of place!", (ftnlen)128, (ftnlen)29); -#line 10670 "" +#line 10762 "" stop1_(); -#line 10671 "" +#line 10763 "" } else if (comkeys_1.shifton) { -#line 10672 "" +#line 10764 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10672 "" +#line 10764 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Bar ended with user-"\ "defined shift still on!", (ftnlen)128, (ftnlen)43); -#line 10674 "" +#line 10766 "" stop1_(); -#line 10675 "" +#line 10767 "" } -#line 10676 "" +#line 10768 "" } else if (*(unsigned char *)charq == '/') { -#line 10677 "" +#line 10769 "" if (comkeys_1.ornrpt) { -#line 10678 "" +#line 10770 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10678 "" +#line 10770 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "WARNING: Block ended"\ " with repeated ornament still on!", (ftnlen)128, ( ftnlen)53); -#line 10680 "" +#line 10772 "" comkeys_1.ornrpt = FALSE_; -#line 10681 "" +#line 10773 "" } -#line 10682 "" +#line 10774 "" if (comkeys_1.stickys) { -#line 10683 "" +#line 10775 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10683 "" +#line 10775 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "WARNING: Block ended"\ " with sticky stemshrink still on!", (ftnlen)128, ( ftnlen)53); -#line 10685 "" +#line 10777 "" comkeys_1.stickys = FALSE_; -#line 10686 "" +#line 10778 "" } -#line 10687 "" +#line 10779 "" if (c1omget_1.fbon) { -#line 10688 "" +#line 10780 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10688 "" +#line 10780 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Block ended with for"\ "ced beam open!", (ftnlen)128, (ftnlen)34); -#line 10690 "" +#line 10782 "" stop1_(); -#line 10691 "" +#line 10783 "" } else if (comkeys_1.shifton) { -#line 10692 "" +#line 10784 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10692 "" +#line 10784 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Bar ended with user-"\ "defined shift still on!", (ftnlen)128, (ftnlen)43); -#line 10694 "" +#line 10786 "" stop1_(); /* 140215 Temporary to allow clef change in stup */ @@ -25977,1001 +26158,1131 @@ L77: /* call errmsg(lineq,iccount,ibarcnt-ibaroff+nbars+1, */ /* * 'May not enter clef at end of input block!') */ /* call stop1() */ -#line 10702 "" +#line 10794 "" } -#line 10703 "" +#line 10795 "" comkeys_1.barend = FALSE_; /* Perform time checks */ -#line 10707 "" +#line 10799 "" if (a1ll_2.itsofar[c1ommvl_1.ivx - 1] % a1ll_2.lenbar != 0) { -#line 10708 "" +#line 10800 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10708 "" +#line 10800 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Block duration not d"\ "ivisible by lenbar!", (ftnlen)128, (ftnlen)39); -#line 10710 "" - s_wsle(&io___684); -#line 10710 "" +#line 10802 "" + s_wsle(&io___688); +#line 10802 "" do_lio(&c__9, &c__1, "lenbar, timesofar are ", (ftnlen)22); -#line 10710 "" +#line 10802 "" do_lio(&c__3, &c__1, (char *)&a1ll_2.lenbar, (ftnlen)sizeof( integer)); -#line 10710 "" +#line 10802 "" do_lio(&c__3, &c__1, (char *)&a1ll_2.itsofar[c1ommvl_1.ivx - 1], (ftnlen)sizeof(integer)); -#line 10710 "" +#line 10802 "" e_wsle(); -#line 10711 "" +#line 10803 "" stop1_(); -#line 10712 "" +#line 10804 "" } else if (c1ommvl_1.ivx > 1 && a1ll_2.itsofar[c1ommvl_1.ivx - 1] != a1ll_2.itsofar[0]) { -#line 10713 "" - s_wsle(&io___685); -#line 10713 "" +#line 10805 "" + s_wsle(&io___689); +#line 10805 "" e_wsle(); -#line 10714 "" - s_wsle(&io___686); -#line 10714 "" - do_lio(&c__9, &c__1, "# of bars in voice 1, current voice:", ( - ftnlen)36); -#line 10714 "" +#line 10806 "" + s_wsle(&io___690); +#line 10806 "" + do_lio(&c__9, &c__1, "No of bars in voice 1, current voice:", + (ftnlen)37); +#line 10806 "" i__1 = a1ll_2.itsofar[0] / a1ll_2.lenbar; -#line 10714 "" +#line 10806 "" do_lio(&c__3, &c__1, (char *)&i__1, (ftnlen)sizeof(integer)); -#line 10714 "" +#line 10806 "" i__4 = a1ll_2.itsofar[c1ommvl_1.ivx - 1] / a1ll_2.lenbar; -#line 10714 "" +#line 10806 "" do_lio(&c__3, &c__1, (char *)&i__4, (ftnlen)sizeof(integer)); -#line 10714 "" +#line 10806 "" e_wsle(); -#line 10716 "" +#line 10808 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10716 "" +#line 10808 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Block duration not e"\ "qual to voice 1!", (ftnlen)128, (ftnlen)36); -#line 10718 "" +#line 10810 "" stop1_(); -#line 10719 "" +#line 10811 "" } -#line 10720 "" +#line 10812 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 10721 "" +#line 10813 "" if (*(unsigned char *)durq == ' ' && a1ll_2.iv == a1ll_2.nv) { /* End of input block */ -#line 10725 "" +#line 10817 "" *loop = FALSE_; -#line 10726 "" +#line 10818 "" } else { /* Start a new voice */ -#line 10730 "" +#line 10822 "" if (a1ll_2.lenbr0 != 0 && a1ll_2.firstline) { -#line 10730 "" +#line 10822 "" a1ll_2.lenbar = a1ll_2.lenbr0; -#line 10730 "" +#line 10822 "" } -#line 10731 "" +#line 10823 "" a1ll_2.nbars = 0; -#line 10732 "" +#line 10824 "" if (*(unsigned char *)durq == ' ') { /* New voice is on next staff */ -#line 10736 "" +#line 10828 "" ++a1ll_2.iv; -#line 10737 "" +#line 10829 "" c1ommvl_1.ivx = a1ll_2.iv; -#line 10738 "" +#line 10830 "" } else { /* New voice is on same staff. Set up for it */ -#line 10742 "" +#line 10834 "" c1ommvl_1.ivx = a1ll_2.nv + 1; -#line 10743 "" +#line 10835 "" i__1 = a1ll_2.nv; -#line 10743 "" +#line 10835 "" for (iiv = 1; iiv <= i__1; ++iiv) { -#line 10744 "" +#line 10836 "" if (c1ommvl_1.nvmx[iiv - 1] == 2) { -#line 10744 "" +#line 10836 "" ++c1ommvl_1.ivx; -#line 10744 "" +#line 10836 "" } -#line 10745 "" +#line 10837 "" /* L23: */ -#line 10745 "" +#line 10837 "" } -#line 10746 "" +#line 10838 "" if (c1ommvl_1.ivx > 24) { -#line 10747 "" - s_wsfe(&io___687); -#line 10747 "" +#line 10839 "" + s_wsfe(&io___691); +#line 10839 "" do_fio(&c__1, "Cannot have more than", (ftnlen)21); -#line 10747 "" +#line 10839 "" do_fio(&c__1, (char *)&c__24, (ftnlen)sizeof(integer)) ; -#line 10747 "" +#line 10839 "" do_fio(&c__1, " lines of music at once", (ftnlen)23); -#line 10747 "" +#line 10839 "" e_wsfe(); -#line 10749 "" +#line 10841 "" stop1_(); -#line 10750 "" +#line 10842 "" } -#line 10751 "" +#line 10843 "" c1ommvl_1.nvmx[a1ll_2.iv - 1] = 2; -#line 10752 "" +#line 10844 "" c1ommvl_1.ivmx[a1ll_2.iv + 23] = c1ommvl_1.ivx; -#line 10753 "" +#line 10845 "" a1ll_2.itsofar[c1ommvl_1.ivx - 1] = 0; -#line 10754 "" +#line 10846 "" a1ll_2.nnl[c1ommvl_1.ivx - 1] = 0; -#line 10755 "" +#line 10847 "" for (j = 1; j <= 200; ++j) { -#line 10756 "" +#line 10848 "" a1ll_2.rest[c1ommvl_1.ivx + j * 24 - 25] = FALSE_; -#line 10757 "" +#line 10849 "" c1ommvl_1.nacc[c1ommvl_1.ivx + j * 24 - 25] = 0; -#line 10758 "" +#line 10850 "" /* L24: */ -#line 10758 "" +#line 10850 "" } /* For midi stuff, record that there is a 2nd line of music in this voice */ -#line 10762 "" +#line 10854 "" if (commidi_1.ismidi) { -#line 10762 "" +#line 10854 "" commidi_1.twoline[a1ll_2.iv - 1] = TRUE_; -#line 10762 "" +#line 10854 "" } -#line 10763 "" +#line 10855 "" } -#line 10764 "" +#line 10856 "" } -#line 10765 "" +#line 10857 "" a1ll_2.iccount = 128; -#line 10766 "" +#line 10858 "" } else if (*(unsigned char *)charq == 'S') { /* New nsyst: for use with partmaker scor2prt, for parts w/ diff # of systs. */ -#line 10770 "" +#line 10862 "" if (c1omnotes_1.ibarcnt > 0) { -#line 10771 "" +#line 10863 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10771 "" +#line 10863 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "\"S\" can only be in"\ " first input block!", (ftnlen)128, (ftnlen)37); -#line 10773 "" +#line 10865 "" stop1_(); -#line 10774 "" +#line 10866 "" } -#line 10775 "" +#line 10867 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 10776 "" +#line 10868 "" if (i_indx("123456789 ", durq, (ftnlen)10, (ftnlen)1) == 0) { -#line 10777 "" +#line 10869 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10777 "" +#line 10869 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "A digit must follow"\ " \"S\"!", (ftnlen)128, (ftnlen)24); -#line 10779 "" +#line 10871 "" stop1_(); -#line 10780 "" +#line 10872 "" } -#line 10781 "" +#line 10873 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnsyst, (ftnlen)128, ( ftnlen)1); -#line 10782 "" +#line 10874 "" compage_1.nsyst = i_nint(&fnsyst); -#line 10783 "" +#line 10875 "" L14: -#line 10784 "" +#line 10876 "" if (*(unsigned char *)durq == 'P') { /* New npages for parts. */ -#line 10788 "" +#line 10880 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 10789 "" +#line 10881 "" if (i_indx("123456789 ", durq, (ftnlen)10, (ftnlen)1) == 0) { -#line 10790 "" +#line 10882 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10790 "" +#line 10882 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Must have a numb"\ "er here!", (ftnlen)128, (ftnlen)24); -#line 10792 "" +#line 10884 "" stop1_(); -#line 10793 "" +#line 10885 "" } -#line 10794 "" +#line 10886 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnsyst, (ftnlen)128, ( ftnlen)1); -#line 10795 "" +#line 10887 "" compage_1.npages = i_nint(&fnsyst); -#line 10796 "" +#line 10888 "" goto L14; -#line 10797 "" +#line 10889 "" } else if (*(unsigned char *)durq == 'm') { /* Reset musize (musicsize). */ -#line 10801 "" +#line 10893 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 10802 "" +#line 10894 "" if (i_indx("123456789 ", durq, (ftnlen)10, (ftnlen)1) == 0) { -#line 10803 "" +#line 10895 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10803 "" +#line 10895 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Must have a numb"\ "er here!", (ftnlen)128, (ftnlen)24); -#line 10805 "" +#line 10897 "" stop1_(); -#line 10806 "" +#line 10898 "" } -#line 10807 "" +#line 10899 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnsyst, (ftnlen)128, ( ftnlen)1); -#line 10808 "" +#line 10900 "" commus_1.musize = i_nint(&fnsyst); -#line 10809 "" +#line 10901 "" c1omnotes_1.wheadpt = commus_1.whead20 * commus_1.musize; -#line 10810 "" +#line 10902 "" goto L14; -#line 10811 "" +#line 10903 "" } else if (*(unsigned char *)durq != ' ') { -#line 10812 "" +#line 10904 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10812 "" +#line 10904 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal character "\ "in \"S\" symbol!", (ftnlen)128, (ftnlen)32); -#line 10814 "" +#line 10906 "" stop1_(); -#line 10815 "" +#line 10907 "" } -#line 10816 "" +#line 10908 "" } else if (*(unsigned char *)charq == 'L') { -#line 10817 "" + +/* Force line break */ + +#line 10912 "" + g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); +#line 10913 "" + if (*(unsigned char *)durq == 'C') { + +/* Coda, no real line break, just get coda length */ + +#line 10917 "" + if (comshort_1.ishort != 1) { +#line 10918 "" + i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + + a1ll_2.nbars + 1; +#line 10918 "" + errmsg_(lineq, &a1ll_2.iccount, &i__1, "Cannot use \"L"\ + "C\" without first using \"L[n]S\"!", (ftnlen)128, + (ftnlen)44); +#line 10920 "" + stop1_(); +#line 10921 "" + } +#line 10922 "" + comshort_1.ishort = 0; +#line 10923 "" + g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) + 1); +#line 10924 "" + if (i_indx("1234567890.", durq, (ftnlen)11, (ftnlen)1) == 0) { +#line 10925 "" + i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + + a1ll_2.nbars + 1; +#line 10925 "" + errmsg_(lineq, &a1ll_2.iccount, &i__1, "Need number to d"\ + "efine coda length!", (ftnlen)128, (ftnlen)34); +#line 10927 "" + stop1_(); +#line 10928 "" + } +#line 10929 "" + readnum_(lineq, &a1ll_2.iccount, durq, &comshort_1.codafrac, ( + ftnlen)128, (ftnlen)1); +#line 10930 "" + comshort_1.poefa[compage_1.isysflb[compage_1.nflb] - 1] += + comshort_1.codafrac; +#line 10931 "" + if (i_indx(" n", durq, (ftnlen)2, (ftnlen)1) == 0) { +#line 10932 "" + i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + + a1ll_2.nbars + 1; +#line 10932 "" + errmsg_(lineq, &a1ll_2.iccount, &i__1, "Need blank or"\ + " \"n\" here!", (ftnlen)128, (ftnlen)23); +#line 10934 "" + stop1_(); +#line 10935 "" + } +#line 10936 "" + return 0; +#line 10937 "" + } +#line 10938 "" ++compage_1.nflb; -#line 10818 "" +#line 10939 "" compage_1.ibarflb[compage_1.nflb] = c1omnotes_1.ibarcnt + a1ll_2.nbars + 1; -#line 10819 "" - g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 10820 "" +#line 10940 "" if (i_indx("123456789", durq, (ftnlen)9, (ftnlen)1) == 0) { -#line 10821 "" +#line 10941 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10821 "" +#line 10941 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Need integer to defi"\ "ne forced line break!", (ftnlen)128, (ftnlen)41); -#line 10823 "" +#line 10943 "" stop1_(); -#line 10824 "" +#line 10944 "" } -#line 10825 "" +#line 10945 "" readnum_(lineq, &a1ll_2.iccount, durq, &sysflb, (ftnlen)128, ( ftnlen)1); -#line 10826 "" +#line 10946 "" compage_1.isysflb[compage_1.nflb] = i_nint(&sysflb); -#line 10827 "" +#line 10947 "" + if (compage_1.isysflb[compage_1.nflb] == 1) { +#line 10948 "" + i__1 = a1ll_2.iccount - 1; +#line 10948 "" + i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + + a1ll_2.nbars + 1; +#line 10948 "" + errmsg_(lineq, &i__1, &i__4, "For now, \"L1\" not allowed!", ( + ftnlen)128, (ftnlen)26); +#line 10950 "" + stop1_(); +#line 10951 "" + } +#line 10952 "" if (compage_1.nflb > 1) { /* Check if new number is > prior one */ -#line 10831 "" +#line 10956 "" if (compage_1.isysflb[compage_1.nflb] <= compage_1.isysflb[ compage_1.nflb - 1]) { -#line 10832 "" +#line 10957 "" i__1 = a1ll_2.iccount - 1; -#line 10832 "" +#line 10957 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10832 "" +#line 10957 "" errmsg_(lineq, &i__1, &i__4, "You already forced a line "\ "break at a later line!", (ftnlen)128, (ftnlen)48); -#line 10834 "" +#line 10959 "" stop1_(); -#line 10835 "" +#line 10960 "" } -#line 10836 "" +#line 10961 "" } -#line 10837 "" +#line 10962 "" if (compage_1.npages == 0) { -#line 10838 "" - s_wsle(&io___691); -#line 10838 "" +#line 10963 "" + s_wsle(&io___695); +#line 10963 "" e_wsle(); -#line 10839 "" - s_wsle(&io___692); -#line 10839 "" +#line 10964 "" + s_wsle(&io___696); +#line 10964 "" do_lio(&c__9, &c__1, "WARNING! You forced a line break at li"\ "ne ", (ftnlen)41); -#line 10839 "" +#line 10964 "" do_lio(&c__3, &c__1, (char *)&compage_1.isysflb[ compage_1.nflb], (ftnlen)sizeof(integer)); -#line 10839 "" +#line 10964 "" do_lio(&c__9, &c__1, " but npage = 0. Continue?", (ftnlen)26) ; -#line 10839 "" +#line 10964 "" e_wsle(); -#line 10841 "" - s_rsfe(&io___693); -#line 10841 "" +#line 10966 "" + s_rsfe(&io___697); +#line 10966 "" do_fio(&c__1, charq, (ftnlen)1); -#line 10841 "" +#line 10966 "" e_rsfe(); -#line 10842 "" +#line 10967 "" if (i_indx("yY", charq, (ftnlen)2, (ftnlen)1) == 0) { -#line 10842 "" +#line 10967 "" stop1_(); -#line 10842 "" +#line 10967 "" } -#line 10843 "" +#line 10968 "" } else if (compage_1.isysflb[compage_1.nflb] > compage_1.nsyst) { -#line 10844 "" +#line 10969 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10844 "" +#line 10969 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Forced line break at"\ " line num > nsyst!", (ftnlen)128, (ftnlen)38); -#line 10846 "" +#line 10971 "" stop1_(); -#line 10847 "" - } else if (i_indx(" PM", durq, (ftnlen)3, (ftnlen)1) == 0) { -#line 10848 "" +#line 10972 "" + } else if (i_indx(" PMS", durq, (ftnlen)4, (ftnlen)1) == 0) { +#line 10973 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10848 "" +#line 10973 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Must have \" \", \""\ - "P\", or \"M\" here!", (ftnlen)128, (ftnlen)32); -#line 10850 "" + "P\", \"M\", or \"S\" here!", (ftnlen)128, (ftnlen)37); +#line 10975 "" stop1_(); -#line 10851 "" +#line 10976 "" + } +#line 10977 "" +L49: +/* Transfer up from below to allow S after M */ +#line 10978 "" + if (*(unsigned char *)durq == 'S') { + +/* Shortened line, get shortening fraction */ + +#line 10982 "" + comshort_1.ishort = 1; +#line 10983 "" + g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) + 1); +#line 10984 "" + if (i_indx("1234567890.", durq, (ftnlen)11, (ftnlen)1) == 0) { +#line 10985 "" + i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + + a1ll_2.nbars + 1; +#line 10985 "" + errmsg_(lineq, &a1ll_2.iccount, &i__1, "Need number to d"\ + "efine line shortening fraction!", (ftnlen)128, ( + ftnlen)47); +#line 10987 "" + stop1_(); +#line 10988 "" + } +#line 10989 "" + readnum_(lineq, &a1ll_2.iccount, durq, &comshort_1.shortfrac, + (ftnlen)128, (ftnlen)1); +#line 10990 "" + comshort_1.poefa[compage_1.isysflb[compage_1.nflb] - 1] = + comshort_1.shortfrac; +#line 10991 "" + if (*(unsigned char *)durq != ' ') { +#line 10992 "" + i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + + a1ll_2.nbars + 1; +#line 10992 "" + errmsg_(lineq, &a1ll_2.iccount, &i__1, "Need blank here!", + (ftnlen)128, (ftnlen)16); +#line 10994 "" + } +#line 10995 "" } -#line 10852 "" +#line 10996 "" if (*(unsigned char *)durq == 'P') { /* Forced page break here, get page number. */ -#line 10856 "" +#line 11000 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 10857 "" +#line 11001 "" if (i_indx("123456789", durq, (ftnlen)9, (ftnlen)1) == 0) { -#line 10858 "" +#line 11002 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10858 "" +#line 11002 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Need integer to "\ "define forced page break!", (ftnlen)128, (ftnlen) 41); -#line 10860 "" +#line 11004 "" stop1_(); -#line 10861 "" +#line 11005 "" } -#line 10862 "" +#line 11006 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 10863 "" +#line 11007 "" ++compage_1.nfpb; -#line 10864 "" +#line 11008 "" compage_1.ipagfpb[compage_1.nfpb] = i_nint(&fnum); -#line 10865 "" +#line 11009 "" compage_1.isysfpb[compage_1.nfpb] = compage_1.isysflb[ compage_1.nflb]; -#line 10866 "" +#line 11010 "" if (compage_1.ipagfpb[compage_1.nfpb] > compage_1.npages) { -#line 10867 "" +#line 11011 "" i__1 = a1ll_2.iccount - 1; -#line 10867 "" +#line 11011 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10867 "" +#line 11011 "" errmsg_(lineq, &i__1, &i__4, "Forced page break at page "\ "num > npages!", (ftnlen)128, (ftnlen)39); -#line 10869 "" +#line 11013 "" stop1_(); -#line 10870 "" +#line 11014 "" } else if (compage_1.nfpb > 1) { -#line 10871 "" +#line 11015 "" if (compage_1.ipagfpb[compage_1.nfpb] <= compage_1.ipagfpb[compage_1.nfpb - 1]) { -#line 10872 "" +#line 11016 "" i__1 = a1ll_2.iccount - 1; -#line 10872 "" +#line 11016 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10872 "" +#line 11016 "" errmsg_(lineq, &i__1, &i__4, "Forced page break numb"\ "ers must increase!", (ftnlen)128, (ftnlen)40); -#line 10874 "" +#line 11018 "" stop1_(); -#line 10875 "" +#line 11019 "" } -#line 10876 "" +#line 11020 "" } -#line 10877 "" +#line 11021 "" } -#line 10878 "" +#line 11022 "" if (i_indx(" M", durq, (ftnlen)2, (ftnlen)1) == 0) { -#line 10879 "" +#line 11023 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10879 "" +#line 11023 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal character in"\ " linebreak symbol!", (ftnlen)128, (ftnlen)38); -#line 10881 "" +#line 11025 "" stop1_(); -#line 10882 "" +#line 11026 "" } else if (*(unsigned char *)durq == 'M') { -#line 10883 "" +#line 11027 "" ++compage_1.nmovbrk; -#line 10884 "" +#line 11028 "" compage_1.isysmb[compage_1.nmovbrk] = compage_1.isysflb[ compage_1.nflb]; -#line 10885 "" +#line 11029 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, (ftnlen) 1); -#line 10886 "" +#line 11030 "" L31: -#line 10886 "" +#line 11030 "" if (*(unsigned char *)durq == '+') { /* Vertical spacing, read past number. */ -#line 10890 "" +#line 11034 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 10891 "" +#line 11035 "" if (i_indx("123456789", durq, (ftnlen)9, (ftnlen)1) == 0) { -#line 10892 "" +#line 11036 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10892 "" +#line 11036 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Integer requ"\ "ired here!", (ftnlen)128, (ftnlen)22); -#line 10894 "" +#line 11038 "" stop1_(); -#line 10895 "" +#line 11039 "" } -#line 10896 "" +#line 11040 "" readnum_(lineq, &a1ll_2.iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 10897 "" +#line 11041 "" goto L31; -#line 10898 "" +#line 11042 "" } else if (*(unsigned char *)durq == 'i') { /* Change indentation, */ -#line 10902 "" +#line 11046 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 10903 "" +#line 11047 "" if (i_indx(".123456789", durq, (ftnlen)10, (ftnlen)1) == 0) { -#line 10904 "" +#line 11048 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10904 "" +#line 11048 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Decimal numb"\ "er required here!", (ftnlen)128, (ftnlen)29); -#line 10906 "" +#line 11050 "" stop1_(); -#line 10907 "" +#line 11051 "" } /* fracsys was initialized in block data to all 0.'s */ -#line 10911 "" +#line 11055 "" readnum_(lineq, &a1ll_2.iccount, durq, &compage_1.fracsys[ compage_1.nmovbrk - 1], (ftnlen)128, (ftnlen)1); -#line 10912 "" +#line 11056 "" goto L31; -#line 10913 "" +#line 11057 "" } else if (*(unsigned char *)durq == 'c') { -#line 10914 "" +#line 11058 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 10915 "" +#line 11059 "" goto L31; -#line 10916 "" +#line 11060 "" } else if (*(unsigned char *)durq == 'r') { -#line 10917 "" +#line 11061 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 10918 "" +#line 11062 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) == 0) { -#line 10919 "" +#line 11063 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10919 "" +#line 11063 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Must have"\ " \"+\" or \"-\" after \"r\" as movement brea"\ "k option!", (ftnlen)128, (ftnlen)56); -#line 10921 "" +#line 11065 "" stop1_(); -#line 10922 "" +#line 11066 "" } -#line 10923 "" +#line 11067 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 10924 "" +#line 11068 "" goto L31; -#line 10925 "" +#line 11069 "" } else if (*(unsigned char *)durq == 'n') { /* Change # of voices. Input ninow, iorig(1...ninow). Will use names, */ /* staves per inst. and clefs corr. to iorig in original list of instruments. */ -#line 10930 "" +#line 11074 "" a1ll_2.nv = 0; -#line 10931 "" +#line 11075 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 10932 "" +#line 11076 "" if (*(unsigned char *)durq == ':') { /* Signals a 2-digit number, get next two characters */ -#line 10936 "" +#line 11080 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 10937 "" +#line 11081 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen)128, ( ftnlen)1); -#line 10938 "" +#line 11082 "" if (i_indx("12", durq, (ftnlen)2, (ftnlen)1) == 0 || i_indx("0123456789", dumq, (ftnlen)10, ( ftnlen)1) == 0) { -#line 10940 "" +#line 11084 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; /* Writing concatenation */ -#line 10940 "" +#line 11084 "" i__8[0] = 34, a__3[0] = "Illegal new number of i"\ "nstruments "; -#line 10940 "" +#line 11084 "" i__8[1] = 1, a__3[1] = durq; -#line 10940 "" +#line 11084 "" i__8[2] = 1, a__3[2] = dumq; -#line 10940 "" +#line 11084 "" i__8[3] = 19, a__3[3] = " at movement break!"; -#line 10940 "" +#line 11084 "" s_cat(ch__4, a__3, i__8, &c__4, (ftnlen)55); -#line 10940 "" +#line 11084 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, ch__4, ( ftnlen)128, (ftnlen)55); -#line 10943 "" +#line 11087 "" stop1_(); -#line 10944 "" +#line 11088 "" } -#line 10945 "" +#line 11089 "" i__1 = a1ll_2.iccount - 2; -#line 10945 "" +#line 11089 "" ici__1.icierr = 0; -#line 10945 "" +#line 11089 "" ici__1.iciend = 0; -#line 10945 "" +#line 11089 "" ici__1.icirnum = 1; -#line 10945 "" +#line 11089 "" ici__1.icirlen = a1ll_2.iccount - i__1; -#line 10945 "" +#line 11089 "" ici__1.iciunit = lineq + i__1; -#line 10945 "" +#line 11089 "" ici__1.icifmt = "(i2)"; -#line 10945 "" +#line 11089 "" s_rsfi(&ici__1); -#line 10945 "" +#line 11089 "" do_fio(&c__1, (char *)&ninow, (ftnlen)sizeof(integer)) ; -#line 10945 "" +#line 11089 "" e_rsfi(); -#line 10946 "" +#line 11090 "" } else { /* durq is a single digit number for noinow */ -#line 10950 "" +#line 11094 "" if (i_indx("123456789", durq, (ftnlen)9, (ftnlen)1) == 0) { -#line 10951 "" +#line 11095 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; /* Writing concatenation */ -#line 10951 "" +#line 11095 "" i__2[0] = 34, a__1[0] = "Illegal new number of i"\ "nstruments "; -#line 10951 "" +#line 11095 "" i__2[1] = 1, a__1[1] = durq; -#line 10951 "" +#line 11095 "" i__2[2] = 19, a__1[2] = " at movement break!"; -#line 10951 "" +#line 11095 "" s_cat(ch__5, a__1, i__2, &c__3, (ftnlen)54); -#line 10951 "" +#line 11095 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, ch__5, ( ftnlen)128, (ftnlen)54); -#line 10954 "" +#line 11098 "" stop1_(); -#line 10955 "" +#line 11099 "" } -#line 10956 "" +#line 11100 "" ninow = *(unsigned char *)durq - 48; -#line 10957 "" +#line 11101 "" } -#line 10958 "" +#line 11102 "" if (ninow > comkeys_1.noinst) { -#line 10959 "" +#line 11103 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10959 "" +#line 11103 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "New number o"\ "f instruments must be <= original!", (ftnlen) 128, (ftnlen)46); -#line 10961 "" +#line 11105 "" stop1_(); -#line 10962 "" +#line 11106 "" } -#line 10963 "" +#line 11107 "" i__1 = ninow; -#line 10963 "" +#line 11107 "" for (iinow = 1; iinow <= i__1; ++iinow) { -#line 10964 "" +#line 11108 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 10965 "" +#line 11109 "" if (*(unsigned char *)durq == ':') { /* Signals a 2-digit number */ -#line 10969 "" +#line 11113 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen) 128, (ftnlen)1); -#line 10970 "" +#line 11114 "" g1etchar_(lineq, &a1ll_2.iccount, dumq, (ftnlen) 128, (ftnlen)1); -#line 10971 "" +#line 11115 "" if (i_indx("12", durq, (ftnlen)2, (ftnlen)1) == 0 || i_indx("0123456789", dumq, (ftnlen)10, (ftnlen)1) == 0) { -#line 10973 "" +#line 11117 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; /* Writing concatenation */ -#line 10973 "" +#line 11117 "" i__8[0] = 34, a__3[0] = "Illegal 2-digit ins"\ "trument number "; -#line 10973 "" +#line 11117 "" i__8[1] = 1, a__3[1] = durq; -#line 10973 "" +#line 11117 "" i__8[2] = 1, a__3[2] = dumq; -#line 10973 "" +#line 11117 "" i__8[3] = 19, a__3[3] = " at movement break!"; -#line 10973 "" +#line 11117 "" s_cat(ch__4, a__3, i__8, &c__4, (ftnlen)55); -#line 10973 "" +#line 11117 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, ch__4, (ftnlen)128, (ftnlen)55); -#line 10976 "" +#line 11120 "" stop1_(); -#line 10977 "" +#line 11121 "" } -#line 10978 "" +#line 11122 "" i__4 = a1ll_2.iccount - 2; -#line 10978 "" +#line 11122 "" ici__1.icierr = 0; -#line 10978 "" +#line 11122 "" ici__1.iciend = 0; -#line 10978 "" +#line 11122 "" ici__1.icirnum = 1; -#line 10978 "" +#line 11122 "" ici__1.icirlen = a1ll_2.iccount - i__4; -#line 10978 "" +#line 11122 "" ici__1.iciunit = lineq + i__4; -#line 10978 "" +#line 11122 "" ici__1.icifmt = "(i2)"; -#line 10978 "" +#line 11122 "" s_rsfi(&ici__1); -#line 10978 "" +#line 11122 "" do_fio(&c__1, (char *)&iorig, (ftnlen)sizeof( integer)); -#line 10978 "" +#line 11122 "" e_rsfi(); -#line 10979 "" +#line 11123 "" } else { /* durq is a single digit number for iorig */ -#line 10983 "" +#line 11127 "" if (i_indx("123456789", durq, (ftnlen)9, (ftnlen) 1) == 0) { -#line 10984 "" +#line 11128 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; /* Writing concatenation */ -#line 10984 "" +#line 11128 "" i__2[0] = 26, a__1[0] = "Illegal instrument "\ "number "; -#line 10984 "" +#line 11128 "" i__2[1] = 1, a__1[1] = durq; -#line 10984 "" +#line 11128 "" i__2[2] = 19, a__1[2] = " at movement break!"; -#line 10984 "" +#line 11128 "" s_cat(ch__6, a__1, i__2, &c__3, (ftnlen)46); -#line 10984 "" +#line 11128 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, ch__6, (ftnlen)128, (ftnlen)46); -#line 10987 "" +#line 11131 "" stop1_(); -#line 10988 "" +#line 11132 "" } -#line 10989 "" +#line 11133 "" iorig = *(unsigned char *)durq - 48; -#line 10990 "" +#line 11134 "" } -#line 10991 "" +#line 11135 "" if (iorig > comkeys_1.noinst) { -#line 10992 "" +#line 11136 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 10992 "" +#line 11136 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "New inst"\ "rument number must be <= original noinst!" , (ftnlen)128, (ftnlen)49); -#line 10994 "" +#line 11138 "" stop1_(); -#line 10995 "" +#line 11139 "" } -#line 10996 "" +#line 11140 "" a1ll_2.nv += c1omget_1.nsperi[iorig - 1]; -#line 10997 "" +#line 11141 "" /* L63: */ -#line 10997 "" +#line 11141 "" } -#line 10998 "" +#line 11142 "" i__1 = a1ll_2.nv; -#line 10998 "" +#line 11142 "" for (iiv = 1; iiv <= i__1; ++iiv) { /* Get clef names */ -#line 11002 "" +#line 11146 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 11003 "" +#line 11147 "" if (! (i_indx("tsmanrbf", durq, (ftnlen)8, (ftnlen)1) > 0 || *(unsigned char *)durq >= 48 && *( - unsigned char *)durq <= 55)) { -#line 11005 "" + unsigned char *)durq <= 56)) { +/* * (ichar(durq).ge.48 .and. ichar(durq).le.55))) then */ +#line 11150 "" i__4 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 11005 "" +#line 11150 "" errmsg_(lineq, &a1ll_2.iccount, &i__4, "Must hav"\ "e t,s,m,a,n,r,b,f or 1-7 as clef symbol "\ "here!", (ftnlen)128, (ftnlen)53); -#line 11007 "" +#line 11152 "" stop1_(); -#line 11008 "" +#line 11153 "" } /* Initialize new voices */ -#line 11012 "" +#line 11157 "" c1ommvl_1.nvmx[iiv - 1] = 1; -#line 11013 "" +#line 11158 "" c1ommvl_1.ivmx[iiv - 1] = iiv; -#line 11014 "" +#line 11159 "" a1ll_2.itsofar[iiv - 1] = 0; -#line 11015 "" +#line 11160 "" a1ll_2.nnl[iiv - 1] = 0; -#line 11016 "" +#line 11161 "" for (j = 1; j <= 200; ++j) { -#line 11017 "" +#line 11162 "" a1ll_2.rest[iiv + j * 24 - 25] = FALSE_; -#line 11018 "" +#line 11163 "" /* L62: */ -#line 11018 "" +#line 11163 "" } -#line 11019 "" +#line 11164 "" /* L61: */ -#line 11019 "" +#line 11164 "" } /* Loop back up, this might not be last option in M */ -#line 11023 "" +#line 11168 "" g1etchar_(lineq, &a1ll_2.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 11024 "" +#line 11169 "" goto L31; -#line 11025 "" +#line 11170 "" + } else if (*(unsigned char *)durq == 'S') { +#line 11171 "" + goto L49; +#line 11172 "" } else if (*(unsigned char *)durq != ' ') { -#line 11026 "" +#line 11173 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 11026 "" +#line 11173 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Illegal characte"\ "r after Movement break symbol!", (ftnlen)128, ( ftnlen)46); -#line 11028 "" +#line 11175 "" stop1_(); -#line 11029 "" +#line 11176 "" } -#line 11030 "" +#line 11177 "" if (compage_1.fracsys[compage_1.nmovbrk - 1] < .001f) { /* Since fracsys was not explicitly set, set it to prior value. */ -#line 11034 "" +#line 11181 "" if (compage_1.nmovbrk == 1) { -#line 11035 "" +#line 11182 "" compage_1.fracsys[compage_1.nmovbrk - 1] = c1omget_1.fracindent; -#line 11036 "" +#line 11183 "" } else { -#line 11037 "" +#line 11184 "" compage_1.fracsys[compage_1.nmovbrk - 1] = compage_1.fracsys[compage_1.nmovbrk - 2]; -#line 11038 "" +#line 11185 "" } -#line 11039 "" +#line 11186 "" } -#line 11040 "" +#line 11187 "" } /* Just before exiting if-block for forced line breaks, set counter to use when */ /* dealing with vertical space calcs */ -#line 11045 "" +#line 11192 "" compage_1.nistaff[compage_1.nflb] = a1ll_2.nv - 1; -#line 11046 "" +#line 11193 "" } else if (*(unsigned char *)charq == 'F') { -#line 11047 "" +#line 11194 "" compage_1.usefig = FALSE_; -#line 11048 "" +#line 11195 "" } else if (*(unsigned char *)charq == 'X') { -#line 11049 "" +#line 11196 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 11049 "" +#line 11196 "" g1etx_(lineq, &a1ll_2.iccount, &comkeys_1.shifton, &i__1, & c1omnotes_1.udsp[c1omnotes_1.ibarcnt + a1ll_2.nbars], & c1omnotes_1.wheadpt, (ftnlen)128); -#line 11051 "" +#line 11198 "" } else if (*(unsigned char *)charq == 'I') { /* MIDI settings. */ -#line 11055 "" +#line 11202 "" if (c1ommvl_1.ivx != 1 || a1ll_2.nnl[0] != 0) { -#line 11056 "" +#line 11203 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 11056 "" +#line 11203 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "MIDI stuff only allo"\ "wed at start of block!", (ftnlen)128, (ftnlen)42); -#line 11058 "" +#line 11205 "" stop1_(); -#line 11059 "" +#line 11206 "" } -#line 11060 "" +#line 11207 "" if (a1ll_2.nv > 15) { -#line 11061 "" +#line 11208 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 11061 "" +#line 11208 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "Sorry but MIDI does "\ "not work with more than 15 voices!", (ftnlen)128, ( ftnlen)54); -#line 11063 "" +#line 11210 "" stop1_(); -#line 11064 "" +#line 11211 "" } -#line 11065 "" +#line 11212 "" commidi_1.ismidi = TRUE_; -/* call getmidi(nv,lineq,iccount,ibarcnt,ibaroff,nbars,lenbar, */ -#line 11067 "" +#line 11213 "" + s_wsle(&io___701); +#line 11213 "" + do_lio(&c__9, &c__1, "#11087 Calling getmidi from g1etnote", ( + ftnlen)36); +#line 11213 "" + e_wsle(); +#line 11214 "" getmidi_(&comkeys_1.noinst, lineq, &a1ll_2.iccount, & c1omnotes_1.ibarcnt, &c1omnotes_1.ibaroff, &a1ll_2.nbars, - &a1ll_2.lenbar, &mtrdenl, &c_true, (ftnlen)128); -#line 11069 "" + &a1ll_2.lenbar, &mtrdenl, &a1ll_2.nv, &c_true, (ftnlen) + 128); +#line 11216 "" } else if (*(unsigned char *)charq == 'M') { -#line 11070 "" +#line 11217 "" setmac_(lineq, &a1ll_2.iccount, &c1omnotes_1.ibarcnt, & c1omnotes_1.ibaroff, &a1ll_2.nbars, charq, durq, & c1ommvl_1.ivx, &c1omget_1.nline, (ftnlen)128, (ftnlen)1, ( ftnlen)1); -#line 11072 "" +#line 11219 "" } else if (i_indx(",.", charq, (ftnlen)2, (ftnlen)1) > 0) { /* Continued rhythmic shortcut */ -#line 11076 "" +#line 11223 "" idotform = i_indx(". ,", charq, (ftnlen)3, (ftnlen)1); -#line 11077 "" +#line 11224 "" if (idotform == 1) { /* Change duration of prior note */ -#line 11081 "" +#line 11228 "" a1ll_2.itsofar[c1ommvl_1.ivx - 1] -= a1ll_2.nodur[ c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25]; -#line 11082 "" +#line 11229 "" a1ll_2.nodur[c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25] = a1ll_2.nodur[c1ommvl_1.ivx + a1ll_2.nnl[ c1ommvl_1.ivx - 1] * 24 - 25] * 3 / 2; -#line 11083 "" +#line 11230 "" a1ll_2.itsofar[c1ommvl_1.ivx - 1] += a1ll_2.nodur[ c1ommvl_1.ivx + a1ll_2.nnl[c1ommvl_1.ivx - 1] * 24 - 25]; -#line 11084 "" +#line 11231 "" } -#line 11085 "" +#line 11232 "" ++idotform; -#line 11086 "" +#line 11233 "" numnum = 1; -#line 11087 "" +#line 11234 "" cdot = TRUE_; -#line 11088 "" +#line 11235 "" goto L1; -#line 11089 "" +#line 11236 "" } else { -#line 11090 "" - s_wsle(&io___697); -#line 11090 "" +#line 11237 "" + s_wsle(&io___702); +#line 11237 "" do_lio(&c__9, &c__1, "ASCII code:", (ftnlen)11); -#line 11090 "" +#line 11237 "" i__1 = *(unsigned char *)charq; -#line 11090 "" +#line 11237 "" do_lio(&c__3, &c__1, (char *)&i__1, (ftnlen)sizeof(integer)); -#line 11090 "" +#line 11237 "" e_wsle(); -#line 11091 "" +#line 11238 "" i__1 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + a1ll_2.nbars + 1; -#line 11091 "" +#line 11238 "" errmsg_(lineq, &a1ll_2.iccount, &i__1, "This character is not al"\ "lowed here!", (ftnlen)128, (ftnlen)35); -#line 11093 "" - s_wsle(&io___698); -#line 11093 "" +#line 11240 "" + s_wsle(&io___703); +#line 11240 "" do_lio(&c__9, &c__1, "ASCII code:", (ftnlen)11); -#line 11093 "" +#line 11240 "" i__1 = *(unsigned char *)charq; -#line 11093 "" +#line 11240 "" do_lio(&c__3, &c__1, (char *)&i__1, (ftnlen)sizeof(integer)); -#line 11093 "" +#line 11240 "" e_wsle(); -#line 11094 "" +#line 11241 "" stop1_(); -#line 11095 "" +#line 11242 "" } -#line 11095 "" +#line 11242 "" } -#line 11096 "" +#line 11243 "" return 0; } /* g1etnote_ */ @@ -27007,159 +27318,159 @@ L31: static integer iccount; /* Fortran I/O blocks */ - static cilist io___701 = { 0, 6, 0, 0, 0 }; - static cilist io___702 = { 0, 6, 0, "(1x,a46,i3)", 0 }; - static cilist io___703 = { 0, 6, 0, "(a)", 0 }; - static cilist io___706 = { 0, 6, 0, "(a)", 0 }; - static cilist io___707 = { 0, 6, 0, "(a)", 0 }; - static cilist io___708 = { 0, 6, 0, 0, 0 }; + static cilist io___706 = { 0, 6, 0, 0, 0 }; + static cilist io___707 = { 0, 6, 0, "(1x,a46,i3)", 0 }; + static cilist io___708 = { 0, 6, 0, "(a)", 0 }; + static cilist io___711 = { 0, 6, 0, "(a)", 0 }; + static cilist io___712 = { 0, 6, 0, "(a)", 0 }; + static cilist io___713 = { 0, 6, 0, 0, 0 }; /* Get the first line */ -#line 11114 "" +#line 11261 "" iccount = 0; -#line 11115 "" +#line 11262 "" c1omget_1.nline = 1; -#line 11116 "" +#line 11263 "" L9: -#line 11116 "" +#line 11263 "" getbuf_(lineq, (ftnlen)128); -#line 11117 "" +#line 11264 "" if (*(unsigned char *)lineq == '%') { -#line 11118 "" +#line 11265 "" ++c1omget_1.nline; -#line 11119 "" +#line 11266 "" goto L9; -#line 11120 "" +#line 11267 "" } -#line 11121 "" +#line 11268 "" if (s_cmp(lineq, "---", (ftnlen)3, (ftnlen)3) == 0) { /* Have TeX input until next line that starts with '---' */ -#line 11125 "" +#line 11272 "" L3: -#line 11125 "" +#line 11272 "" ++c1omget_1.nline; -#line 11126 "" +#line 11273 "" getbuf_(lineq, (ftnlen)128); -#line 11127 "" +#line 11274 "" if (inbuff_1.ilbuf > inbuff_1.nlbuf) { -#line 11127 "" +#line 11274 "" goto L1; -#line 11127 "" +#line 11274 "" } -#line 11128 "" +#line 11275 "" goto L2; -#line 11129 "" +#line 11276 "" L1: -#line 11129 "" - s_wsle(&io___701); -#line 11129 "" +#line 11276 "" + s_wsle(&io___706); +#line 11276 "" do_lio(&c__9, &c__1, "You did not terminate type 0 TeX input with \""\ "---\"", (ftnlen)49); -#line 11129 "" +#line 11276 "" e_wsle(); -#line 11130 "" +#line 11277 "" stop1_(); -#line 11131 "" +#line 11278 "" L2: -#line 11132 "" +#line 11279 "" if (s_cmp(lineq, "---", (ftnlen)3, (ftnlen)3) != 0) { -#line 11132 "" +#line 11279 "" goto L3; -#line 11132 "" +#line 11279 "" } /* Force a new line read on first call to readin */ -#line 11136 "" +#line 11283 "" iccount = 128; -#line 11137 "" +#line 11284 "" } /* Here, lineq and nline are first non-TeX lines. */ -#line 11141 "" +#line 11288 "" r__1 = readin_(lineq, &iccount, &c1omget_1.nline, (ftnlen)128); -#line 11141 "" +#line 11288 "" *nv = i_nint(&r__1); -#line 11142 "" +#line 11289 "" if (*nv > 24) { -#line 11143 "" - s_wsfe(&io___702); -#line 11143 "" +#line 11290 "" + s_wsfe(&io___707); +#line 11290 "" do_fio(&c__1, "In setup data, number of voices cannot exceed", ( ftnlen)45); -#line 11143 "" +#line 11290 "" do_fio(&c__1, (char *)&c__24, (ftnlen)sizeof(integer)); -#line 11143 "" +#line 11290 "" e_wsfe(); -#line 11145 "" +#line 11292 "" stop1_(); -#line 11146 "" +#line 11293 "" } -#line 11147 "" +#line 11294 "" r__1 = readin_(lineq, &iccount, &c1omget_1.nline, (ftnlen)128); -#line 11147 "" +#line 11294 "" *noinst = i_nint(&r__1); -#line 11148 "" +#line 11295 "" if (*noinst > *nv) { -#line 11149 "" - s_wsfe(&io___703); -#line 11149 "" +#line 11296 "" + s_wsfe(&io___708); +#line 11296 "" do_fio(&c__1, "In setup data, cannot have more instruments than stav"\ "es", (ftnlen)55); -#line 11149 "" +#line 11296 "" e_wsfe(); -#line 11151 "" +#line 11298 "" stop1_(); -#line 11152 "" +#line 11299 "" } -#line 11153 "" +#line 11300 "" newway = *noinst <= 0; -#line 11154 "" +#line 11301 "" if (newway) { -#line 11154 "" +#line 11301 "" *noinst = -(*noinst); -#line 11154 "" +#line 11301 "" } -#line 11155 "" +#line 11302 "" i__1 = *noinst; -#line 11155 "" +#line 11302 "" for (iinst = 1; iinst <= i__1; ++iinst) { /* Seve # of staves per inst in case later drop some inst's. */ -#line 11159 "" +#line 11306 "" if (newway) { -#line 11160 "" +#line 11307 "" r__1 = readin_(lineq, &iccount, &c1omget_1.nline, (ftnlen)128); -#line 11160 "" +#line 11307 "" c1omget_1.nsperi[iinst - 1] = i_nint(&r__1); -#line 11161 "" +#line 11308 "" } else if (iinst > 1) { -#line 11162 "" +#line 11309 "" c1omget_1.nsperi[iinst - 1] = 1; -#line 11163 "" +#line 11310 "" } else { -#line 11164 "" +#line 11311 "" c1omget_1.nsperi[iinst - 1] = *nv - *noinst + 1; -#line 11165 "" +#line 11312 "" } -#line 11166 "" +#line 11313 "" /* L10: */ -#line 11166 "" +#line 11313 "" } -#line 11167 "" +#line 11314 "" r__1 = readin_(lineq, &iccount, &c1omget_1.nline, (ftnlen)128); -#line 11167 "" +#line 11314 "" *mtrnuml = i_nint(&r__1); -#line 11168 "" +#line 11315 "" r__1 = readin_(lineq, &iccount, &c1omget_1.nline, (ftnlen)128); -#line 11168 "" +#line 11315 "" *mtrdenl = i_nint(&r__1); /* c */ /* c Kluge!!! */ @@ -27168,208 +27479,208 @@ L2: /* mtrdenl = 2 */ /* mtrnuml = mtrnuml*2 */ /* end if */ -#line 11176 "" +#line 11323 "" r__1 = readin_(lineq, &iccount, &c1omget_1.nline, (ftnlen)128); -#line 11176 "" +#line 11323 "" *mtrnmp = i_nint(&r__1); -#line 11177 "" +#line 11324 "" r__1 = readin_(lineq, &iccount, &c1omget_1.nline, (ftnlen)128); -#line 11177 "" +#line 11324 "" *mtrdnp = i_nint(&r__1); -#line 11178 "" +#line 11325 "" if (*mtrnmp == 0 && *mtrdnp >= 8) { -#line 11179 "" - s_wsfe(&io___706); -#line 11179 "" +#line 11326 "" + s_wsfe(&io___711); +#line 11326 "" do_fio(&c__1, "In setup data, with mtrnmp=0, mtrdnp must be <8", ( ftnlen)47); -#line 11179 "" +#line 11326 "" e_wsfe(); -#line 11180 "" +#line 11327 "" stop1_(); -#line 11181 "" +#line 11328 "" } -#line 11182 "" +#line 11329 "" *xmtrnum0 = readin_(lineq, &iccount, &c1omget_1.nline, (ftnlen)128); -#line 11183 "" +#line 11330 "" r__1 = readin_(lineq, &iccount, &c1omget_1.nline, (ftnlen)128); -#line 11183 "" +#line 11330 "" *newkey = i_nint(&r__1); /* 130316 */ /* do 11 iinst = 1 , noinst */ -#line 11186 "" +#line 11333 "" commidisig_1.midisig = *newkey; /* 11 continue */ -#line 11188 "" +#line 11335 "" r__1 = readin_(lineq, &iccount, &c1omget_1.nline, (ftnlen)128); -#line 11188 "" +#line 11335 "" *npages = i_nint(&r__1); -#line 11189 "" +#line 11336 "" r__1 = readin_(lineq, &iccount, &c1omget_1.nline, (ftnlen)128); -#line 11189 "" +#line 11336 "" *nsyst = i_nint(&r__1); -#line 11190 "" +#line 11337 "" r__1 = readin_(lineq, &iccount, &c1omget_1.nline, (ftnlen)128); -#line 11190 "" +#line 11337 "" *musize = i_nint(&r__1); -#line 11191 "" +#line 11338 "" c1omget_1.fracindent = readin_(lineq, &iccount, &c1omget_1.nline, (ftnlen) 128); -#line 11192 "" +#line 11339 "" if (c1omget_1.fracindent >= 1.f) { -#line 11193 "" - s_wsfe(&io___707); -#line 11193 "" +#line 11340 "" + s_wsfe(&io___712); +#line 11340 "" do_fio(&c__1, "In setup data, fracindent must be <1", (ftnlen)36); -#line 11193 "" +#line 11340 "" e_wsfe(); -#line 11194 "" +#line 11341 "" stop1_(); -#line 11195 "" +#line 11342 "" } -#line 11196 "" +#line 11343 "" if (*npages > *nsyst) { -#line 11197 "" - s_wsle(&io___708); -#line 11197 "" +#line 11344 "" + s_wsle(&io___713); +#line 11344 "" do_lio(&c__9, &c__1, "Error in input file: npages > nsyst", (ftnlen) 35); -#line 11197 "" +#line 11344 "" e_wsle(); -#line 11198 "" +#line 11345 "" stop1_(); -#line 11199 "" +#line 11346 "" } else if ((*musize - 16) * (*musize - 20) * (*musize - 24) * (*musize - 29) != 0) { -#line 11200 "" +#line 11347 "" printl_("Musicsize must be 16, 20, 24, or 29", (ftnlen)35); -#line 11201 "" +#line 11348 "" stop1_(); -#line 11202 "" +#line 11349 "" } /* Next noinst non-comment lines are names of instruments. */ -#line 11206 "" +#line 11353 "" i__1 = abs(*noinst); -#line 11206 "" +#line 11353 "" for (i__ = 1; i__ <= i__1; ++i__) { -#line 11207 "" +#line 11354 "" L5: -#line 11207 "" +#line 11354 "" getbuf_(lineq, (ftnlen)128); -#line 11208 "" +#line 11355 "" ++c1omget_1.nline; -#line 11209 "" +#line 11356 "" if (*(unsigned char *)lineq == '%') { -#line 11209 "" +#line 11356 "" goto L5; -#line 11209 "" +#line 11356 "" } -#line 11210 "" +#line 11357 "" /* L4: */ -#line 11210 "" +#line 11357 "" } /* Mext non-comment line has nv clef names */ -#line 11214 "" +#line 11361 "" L6: -#line 11214 "" +#line 11361 "" getbuf_(lineq, (ftnlen)128); -#line 11215 "" +#line 11362 "" ++c1omget_1.nline; -#line 11216 "" +#line 11363 "" if (*(unsigned char *)lineq == '%') { -#line 11216 "" +#line 11363 "" goto L6; -#line 11216 "" +#line 11363 "" } -#line 11217 "" +#line 11364 "" i__1 = *nv; -#line 11217 "" +#line 11364 "" for (iv = 1; iv <= i__1; ++iv) { /* if (index('brnamstf01234567',lineq(iv:iv)) .eq. 0) then */ -#line 11219 "" +#line 11366 "" if (i_indx("brnamstf012345678", lineq + (iv - 1), (ftnlen)17, (ftnlen) 1) == 0) { -#line 11220 "" +#line 11367 "" errmsg_(lineq, &iv, &c__0, "There should be a clef symbol here!", (ftnlen)128, (ftnlen)35); -#line 11222 "" +#line 11369 "" stop1_(); -#line 11223 "" +#line 11370 "" } -#line 11224 "" +#line 11371 "" /* L7: */ -#line 11224 "" +#line 11371 "" } -#line 11225 "" +#line 11372 "" i__1 = *nv; -#line 11225 "" +#line 11372 "" if (s_cmp(lineq + i__1, " ", *nv + 1 - i__1, (ftnlen)1) != 0) { -#line 11226 "" +#line 11373 "" i__1 = *nv + 1; -#line 11226 "" +#line 11373 "" errmsg_(lineq, &i__1, &c__0, "There should be a blank here!", (ftnlen) 128, (ftnlen)29); -#line 11228 "" +#line 11375 "" stop1_(); -#line 11229 "" +#line 11376 "" } /* Set flag if voice 1 is treble, since it affects vertical spacing */ /* bottreb = lineq(1:1).eq.'t' */ -#line 11234 "" +#line 11381 "" *bottreb = i_indx("t08", lineq, (ftnlen)3, (ftnlen)1) > 0; /* Next non-comment line has path name */ -#line 11238 "" +#line 11385 "" L8: -#line 11238 "" +#line 11385 "" getbuf_(lineq, (ftnlen)128); -#line 11239 "" +#line 11386 "" ++c1omget_1.nline; -#line 11240 "" +#line 11387 "" if (*(unsigned char *)lineq == '%') { -#line 11240 "" +#line 11387 "" goto L8; -#line 11240 "" +#line 11387 "" } -#line 11241 "" +#line 11388 "" lpath = i_indx(lineq, " ", (ftnlen)128, (ftnlen)1) - 1; /* Writing concatenation */ -#line 11242 "" +#line 11389 "" i__2[0] = 2, a__1[0] = "/:"; -#line 11242 "" +#line 11389 "" chax_(ch__2, (ftnlen)1, &c__92); -#line 11242 "" +#line 11389 "" i__2[1] = 1, a__1[1] = ch__2; -#line 11242 "" +#line 11389 "" s_cat(ch__1, a__1, i__2, &c__2, (ftnlen)3); -#line 11242 "" +#line 11389 "" if (i_indx(ch__1, lineq + (lpath - 1), (ftnlen)3, (ftnlen)1) == 0) { /* Writing concatenation */ -#line 11243 "" +#line 11390 "" i__3[0] = 47, a__2[0] = "Last character of pathname is not \"/\",\""\ ":\", or \""; -#line 11243 "" +#line 11390 "" chax_(ch__2, (ftnlen)1, &c__92); -#line 11243 "" +#line 11390 "" i__3[1] = 1, a__2[1] = ch__2; -#line 11243 "" +#line 11390 "" i__3[2] = 2, a__2[2] = "\"!"; -#line 11243 "" +#line 11390 "" s_cat(ch__3, a__2, i__3, &c__3, (ftnlen)50); -#line 11243 "" +#line 11390 "" errmsg_(lineq, &lpath, &c__0, ch__3, (ftnlen)128, (ftnlen)50); -#line 11246 "" +#line 11393 "" stop1_(); -#line 11247 "" +#line 11394 "" } -#line 11248 "" +#line 11395 "" return 0; } /* g1etset_ */ @@ -27398,155 +27709,155 @@ L8: /* Parse "X" commands. Ignore all "B"; "P" means to ignore whole symbol. */ /* In scor2prt, must strip out "P", copy only "B" and "P"-type "X"-symbols. */ -#line 11258 "" +#line 11405 "" number = FALSE_; -#line 11259 "" +#line 11406 "" npbsc = 0; -#line 11260 "" +#line 11407 "" L1: -#line 11260 "" +#line 11407 "" g1etchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 11261 "" +#line 11408 "" if (i_indx("PBS:", charq, (ftnlen)4, (ftnlen)1) > 0) { /* Continue checking here even if "P". */ -#line 11265 "" +#line 11412 "" ipbsc = i_indx("PBS:", charq, (ftnlen)4, (ftnlen)1); -#line 11266 "" +#line 11413 "" if (bit_test(npbsc,ipbsc)) { -#line 11267 "" +#line 11414 "" errmsg_(lineq, iccount, ibar, "Only one allowed per symbol!", ( ftnlen)128, (ftnlen)28); -#line 11268 "" +#line 11415 "" stop1_(); -#line 11269 "" +#line 11416 "" } -#line 11270 "" +#line 11417 "" npbsc = bit_set(npbsc,ipbsc); -#line 11271 "" +#line 11418 "" goto L1; -#line 11272 "" +#line 11419 "" } else if (i_indx("+-.0123456789", charq, (ftnlen)13, (ftnlen)1) > 0) { -#line 11273 "" +#line 11420 "" number = TRUE_; -#line 11274 "" +#line 11421 "" if (i_indx("+-", charq, (ftnlen)2, (ftnlen)1) > 0) { -#line 11275 "" +#line 11422 "" g1etchar_(lineq, iccount, dumq, (ftnlen)128, (ftnlen)1); -#line 11276 "" +#line 11423 "" if (i_indx(".0123456789", dumq, (ftnlen)11, (ftnlen)1) == 0) { -#line 11277 "" +#line 11424 "" errmsg_(lineq, iccount, ibar, "Expected a number here!", ( ftnlen)128, (ftnlen)23); -#line 11278 "" +#line 11425 "" stop1_(); -#line 11279 "" +#line 11426 "" } -#line 11280 "" +#line 11427 "" } -#line 11281 "" +#line 11428 "" readnum_(lineq, iccount, dumq, &fnum, (ftnlen)128, (ftnlen)1); -#line 11282 "" +#line 11429 "" if (*(unsigned char *)charq == '-') { -#line 11282 "" +#line 11429 "" fnum = -fnum; -#line 11282 "" +#line 11429 "" } -#line 11283 "" +#line 11430 "" if (*(unsigned char *)dumq != 'p') { -#line 11284 "" +#line 11431 "" --(*iccount); -#line 11285 "" +#line 11432 "" fnum *= *wheadpt; -#line 11286 "" +#line 11433 "" } -#line 11287 "" +#line 11434 "" goto L1; -#line 11288 "" +#line 11435 "" } else if (*(unsigned char *)charq != ' ') { -#line 11289 "" +#line 11436 "" errmsg_(lineq, iccount, ibar, "Not allowed in \"X\" symbol!", (ftnlen) 128, (ftnlen)26); -#line 11290 "" +#line 11437 "" stop1_(); -#line 11291 "" +#line 11438 "" } /* Done with parsing. Other checks */ -#line 11295 "" +#line 11442 "" if ((6 & npbsc) == 6 || (24 & npbsc) == 24) { -#line 11296 "" +#line 11443 "" i__1 = *iccount - 1; -#line 11296 "" +#line 11443 "" errmsg_(lineq, &i__1, ibar, "Cannot have both \"P\" and \"B\" or \""\ "S\" and \":\"!", (ftnlen)128, (ftnlen)44); -#line 11298 "" +#line 11445 "" stop1_(); -#line 11299 "" +#line 11446 "" } -#line 11300 "" +#line 11447 "" if (bit_test(npbsc,4)) { -#line 11301 "" +#line 11448 "" if (number) { -#line 11302 "" +#line 11449 "" if (*shifton) { -#line 11303 "" +#line 11450 "" i__1 = *iccount - 1; -#line 11303 "" +#line 11450 "" errmsg_(lineq, &i__1, ibar, "Started a group shift without s"\ "topping prior one!", (ftnlen)128, (ftnlen)49); -#line 11305 "" +#line 11452 "" stop1_(); -#line 11306 "" +#line 11453 "" } else { -#line 11307 "" +#line 11454 "" *shifton = TRUE_; -#line 11308 "" +#line 11455 "" } -#line 11309 "" +#line 11456 "" } else { -#line 11310 "" +#line 11457 "" if (! (*shifton)) { -#line 11311 "" +#line 11458 "" i__1 = *iccount - 1; -#line 11311 "" +#line 11458 "" errmsg_(lineq, &i__1, ibar, "Ended a group shift without sta"\ "rting one!", (ftnlen)128, (ftnlen)41); -#line 11313 "" +#line 11460 "" stop1_(); -#line 11314 "" +#line 11461 "" } else { -#line 11315 "" +#line 11462 "" *shifton = FALSE_; -#line 11316 "" +#line 11463 "" } -#line 11317 "" +#line 11464 "" } -#line 11318 "" +#line 11465 "" } /* P off, S off, c off => normal user-defined space. Add to udsp (later fsyst) */ -#line 11322 "" +#line 11469 "" if ((npbsc & 26) == 0) { -#line 11322 "" +#line 11469 "" *udsp += fnum; -#line 11322 "" +#line 11469 "" } -#line 11323 "" +#line 11470 "" if (! number && ! bit_test(npbsc,4)) { -#line 11324 "" +#line 11471 "" i__1 = *iccount - 1; -#line 11324 "" +#line 11471 "" errmsg_(lineq, &i__1, ibar, "Must have either a number or a colon "\ "in \"X\" symbol!", (ftnlen)128, (ftnlen)51); -#line 11326 "" +#line 11473 "" stop1_(); -#line 11327 "" +#line 11474 "" } -#line 11328 "" +#line 11475 "" return 0; } /* g1etx_ */ @@ -27565,16 +27876,16 @@ L1: /* Builtin functions */ /* Subroutine */ int s_copy(char *, char *, ftnlen, ftnlen); -#line 11343 "" +#line 11490 "" i__1 = inbuff_1.ipbuf; -#line 11343 "" +#line 11490 "" s_copy(lineq, inbuff_1.bufq + i__1, lineq_len, inbuff_1.ipbuf + inbuff_1.lbuf[inbuff_1.ilbuf - 1] - i__1); -#line 11344 "" +#line 11491 "" inbuff_1.ipbuf += inbuff_1.lbuf[inbuff_1.ilbuf - 1]; -#line 11345 "" +#line 11492 "" ++inbuff_1.ilbuf; -#line 11346 "" +#line 11493 "" return 0; } /* getbuf_ */ @@ -27593,43 +27904,43 @@ L1: /* Gets the next character out of lineq*128. If pointer iccount=128 on entry, */ /* then reads in a new line. Resets iccount. Ends program if no more input. */ -#line 11362 "" +#line 11509 "" if (*iccount == 128) { -#line 11363 "" +#line 11510 "" read10_(lineq, &comget_1.lastchar, (ftnlen)128); -#line 11364 "" +#line 11511 "" if (comget_1.lastchar) { -#line 11364 "" +#line 11511 "" return 0; -#line 11364 "" +#line 11511 "" } -#line 11365 "" +#line 11512 "" if (! commac_1.endmac) { -#line 11366 "" +#line 11513 "" *iccount = 0; -#line 11367 "" +#line 11514 "" } else { -#line 11368 "" +#line 11515 "" commac_1.endmac = FALSE_; -#line 11369 "" +#line 11516 "" *iccount = commac_1.icchold; -#line 11370 "" +#line 11517 "" s_copy(lineq, commac_1.lnholdq, (ftnlen)128, (ftnlen)128); -#line 11371 "" +#line 11518 "" } -#line 11372 "" +#line 11519 "" if (commac_1.mrecord) { -#line 11373 "" +#line 11520 "" mrec1_(lineq, iccount, &ndxm, (ftnlen)128); -#line 11374 "" +#line 11521 "" } -#line 11375 "" +#line 11522 "" } -#line 11376 "" +#line 11523 "" ++(*iccount); -#line 11377 "" +#line 11524 "" *(unsigned char *)charq = *(unsigned char *)&lineq[*iccount - 1]; -#line 11378 "" +#line 11525 "" return 0; } /* getchar_ */ @@ -27686,284 +27997,284 @@ L1: /* 01-09 (horizontal offset)/10 + 25.6 notehead widths */ /* 10 5th bit for ivx (5/15/10) */ -#line 11415 "" +#line 11562 "" *irest = bit_set(*irest,26); -#line 11416 "" +#line 11563 "" ++comdyn_1.ndyn; -#line 11417 "" +#line 11564 "" idyn = *ivx; -#line 11418 "" +#line 11565 "" comdyn_1.idynda2[comdyn_1.ndyn - 1] = 0; -#line 11419 "" +#line 11566 "" if (*ivx >= 16) { -#line 11419 "" +#line 11566 "" setbits_(&comdyn_1.idynda2[comdyn_1.ndyn - 1], &c__1, &c__10, &c__1); -#line 11419 "" +#line 11566 "" } -#line 11420 "" +#line 11567 "" setbits_(&idyn, &c__8, &c__4, ip); -#line 11421 "" +#line 11568 "" i__1 = *iccount; -#line 11421 "" +#line 11568 "" if (s_cmp(lineq + i__1, "\"", *iccount + 1 - i__1, (ftnlen)1) == 0) { /* text-dynamic */ -#line 11425 "" +#line 11572 "" ++comdyn_1.ntxtdyn; -#line 11426 "" +#line 11573 "" iccountt = *iccount; -#line 11427 "" +#line 11574 "" L3: -#line 11428 "" +#line 11575 "" i__1 = iccountt + 1; -#line 11428 "" +#line 11575 "" iend = iccountt + i_indx(lineq + i__1, "\"", 128 - i__1, (ftnlen)1) + 2; -#line 11429 "" +#line 11576 "" i__1 = iend - 3; -#line 11429 "" +#line 11576 "" if (s_cmp(lineq + i__1, "\\", iend - 2 - i__1, (ftnlen)1) == 0) { -#line 11430 "" +#line 11577 "" iccountt = iend - 2; -#line 11431 "" +#line 11578 "" goto L3; -#line 11432 "" +#line 11579 "" } -#line 11433 "" +#line 11580 "" i__1 = *iccount + 1; -#line 11433 "" +#line 11580 "" s_copy(comdyn_1.txtdynq + (comdyn_1.ntxtdyn - 1 << 7), lineq + i__1, ( ftnlen)128, iend - 2 - i__1); /* Store ivx, ip in bits 0-12 */ -#line 11437 "" +#line 11584 "" comdyn_1.ivxiptxt[comdyn_1.ntxtdyn - 1] = *ivx + (*ip << 5); -#line 11438 "" +#line 11585 "" ipm = i_indx("- +", lineq + (iend - 1), (ftnlen)3, (ftnlen)1); -#line 11439 "" +#line 11586 "" idno = 0; -#line 11440 "" +#line 11587 "" } else { /* Word-group or hairpin */ -#line 11444 "" +#line 11591 "" for (iend = *iccount + 2; iend <= 128; ++iend) { -#line 11445 "" +#line 11592 "" ipm = i_indx("- +", lineq + (iend - 1), (ftnlen)3, (ftnlen)1); /* Exit the loop at first blank, "+", or "-" */ -#line 11449 "" +#line 11596 "" if (ipm > 0) { -#line 11449 "" +#line 11596 "" goto L2; -#line 11449 "" +#line 11596 "" } -#line 11450 "" +#line 11597 "" /* L1: */ -#line 11450 "" +#line 11597 "" } -#line 11451 "" +#line 11598 "" L2: -#line 11452 "" +#line 11599 "" i__1 = *iccount; -#line 11452 "" +#line 11599 "" ici__1.icierr = 0; -#line 11452 "" +#line 11599 "" ici__1.iciend = 0; -#line 11452 "" +#line 11599 "" ici__1.icirnum = 1; -#line 11452 "" +#line 11599 "" ici__1.icirlen = iend - 1 - i__1; -#line 11452 "" +#line 11599 "" ici__1.iciunit = lineq + i__1; /* Writing concatenation */ -#line 11452 "" +#line 11599 "" i__2[0] = 2, a__1[0] = "(a"; -#line 11452 "" +#line 11599 "" i__3 = iend + 47 - *iccount; -#line 11452 "" +#line 11599 "" chax_(ch__2, (ftnlen)1, &i__3); -#line 11452 "" +#line 11599 "" i__2[1] = 1, a__1[1] = ch__2; -#line 11452 "" +#line 11599 "" i__2[2] = 1, a__1[2] = ")"; -#line 11452 "" +#line 11599 "" ici__1.icifmt = (s_cat(ch__1, a__1, i__2, &c__3, (ftnlen)4), ch__1); -#line 11452 "" +#line 11599 "" s_rsfi(&ici__1); -#line 11452 "" +#line 11599 "" do_fio(&c__1, dynsymq, (ftnlen)4); -#line 11452 "" +#line 11599 "" e_rsfi(); -#line 11454 "" +#line 11601 "" idno = (i_indx("ppppppp pp p mp mf f fp sfz ff fff ffff "\ "< > ", dynsymq, (ftnlen)60, (ftnlen)4) + 3) / 4; /* Save for later down */ -#line 11460 "" +#line 11607 "" idno1 = idno; -#line 11461 "" +#line 11608 "" } /* Set flag to check level later if in beam */ -#line 11465 "" +#line 11612 "" *iornq = bit_set(*iornq,23); -#line 11466 "" +#line 11613 "" if (idno >= 14) { /* Hairpin here. Check if opposite type from one that's already on */ -#line 11470 "" +#line 11617 "" if (idno == 14 && bit_test(comdyn_1.listdecresc,*ivx) || idno == 15 && bit_test(comdyn_1.listcresc,*ivx)) { -#line 11472 "" +#line 11619 "" printl_(" ", (ftnlen)1); -#line 11473 "" +#line 11620 "" printl_("Started one kind of hairpin while other is on", (ftnlen) 45); -#line 11474 "" +#line 11621 "" stop1_(); -#line 11475 "" +#line 11622 "" } /* Start or stop? */ -#line 11479 "" +#line 11626 "" if (bit_test(comdyn_1.listcresc,*ivx) || bit_test( comdyn_1.listdecresc,*ivx)) { /* Cresc/decresc is on, this is an ending. If fontslur, leave idno as is. */ -#line 11483 "" +#line 11630 "" if (! comslur_1.fontslur) { -#line 11483 "" +#line 11630 "" idno = 15; -#line 11483 "" +#line 11630 "" } -#line 11484 "" +#line 11631 "" } else if (comslur_1.fontslur) { /* Start of font slur */ -#line 11488 "" +#line 11635 "" idno = 13; -#line 11489 "" +#line 11636 "" } else { /* Start of postscript slur */ -#line 11493 "" +#line 11640 "" --idno; -#line 11494 "" +#line 11641 "" } -#line 11495 "" +#line 11642 "" } /* Now that we used list[de]cresc, update */ -#line 11499 "" +#line 11646 "" if (idno >= 13) { -#line 11500 "" +#line 11647 "" if (idno == 15 || comslur_1.fontslur && idno == 14) { /* Something's ending */ -#line 11504 "" +#line 11651 "" if (bit_test(comdyn_1.listcresc,*ivx)) { /* It's a cresc! */ -#line 11508 "" +#line 11655 "" comdyn_1.listcresc = bit_clear(comdyn_1.listcresc,*ivx); -#line 11509 "" +#line 11656 "" } else { -#line 11510 "" +#line 11657 "" comdyn_1.listdecresc = bit_clear(comdyn_1.listdecresc,*ivx); -#line 11511 "" +#line 11658 "" } -#line 11512 "" +#line 11659 "" } else { /* Something's starting */ -#line 11516 "" +#line 11663 "" if (idno1 == 14) { /* It's a cresc! */ -#line 11520 "" +#line 11667 "" comdyn_1.listcresc = bit_set(comdyn_1.listcresc,*ivx); -#line 11521 "" +#line 11668 "" } else { -#line 11522 "" +#line 11669 "" comdyn_1.listdecresc = bit_set(comdyn_1.listdecresc,*ivx); -#line 11523 "" +#line 11670 "" } -#line 11524 "" +#line 11671 "" } -#line 11525 "" +#line 11672 "" } -#line 11526 "" +#line 11673 "" setbits_(&idyn, &c__4, &c__12, &idno); -#line 11527 "" +#line 11674 "" *iccount = iend; -#line 11528 "" +#line 11675 "" if (ipm != 2) { /* There is a vertical shift */ -#line 11532 "" +#line 11679 "" idyn = bit_set(idyn,16); -#line 11533 "" +#line 11680 "" ++(*iccount); -#line 11534 "" +#line 11681 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 11535 "" +#line 11682 "" idno = i_nint(&fnum); -#line 11536 "" +#line 11683 "" i__1 = (ipm - 2) * idno + 64; -#line 11536 "" +#line 11683 "" setbits_(&idyn, &c__7, &c__17, &i__1); -#line 11537 "" +#line 11684 "" ipm = i_indx("- +", durq, (ftnlen)3, (ftnlen)1); -#line 11538 "" +#line 11685 "" if (ipm != 2) { /* There is a horizontal shift */ /* idynda2(ndyn) = ibset(idyn,23) */ -#line 11543 "" +#line 11690 "" comdyn_1.idynda2[comdyn_1.ndyn - 1] = bit_set(comdyn_1.idynda2[ comdyn_1.ndyn - 1],0); -#line 11544 "" +#line 11691 "" ++(*iccount); -#line 11545 "" +#line 11692 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 11546 "" +#line 11693 "" r__1 = fnum * 10; -#line 11546 "" +#line 11693 "" idno = i_nint(&r__1); -#line 11547 "" +#line 11694 "" i__1 = (ipm - 2) * idno + 256; -#line 11547 "" +#line 11694 "" setbits_(&comdyn_1.idynda2[comdyn_1.ndyn - 1], &c__9, &c__1, & i__1); -#line 11548 "" +#line 11695 "" } /* iccount should be on the blank at the end of the entire symbol */ -#line 11552 "" +#line 11699 "" } -#line 11553 "" +#line 11700 "" comdyn_1.idyndat[comdyn_1.ndyn - 1] = idyn; -#line 11554 "" +#line 11701 "" return 0; } /* getdyn_ */ @@ -27995,129 +28306,129 @@ L2: extern integer ifnodur_(integer *, char *, ftnlen); /* * itsofar,nodur,figq,ivupfig,nfigs) */ -#line 11563 "" +#line 11710 "" ++(*nfigs); -#line 11564 "" +#line 11711 "" *ivupfig = 0; -#line 11565 "" +#line 11712 "" *ivvfig = 0; -#line 11566 "" +#line 11713 "" *itoff = 0; -#line 11567 "" +#line 11714 "" if (*(unsigned char *)charq == 'x') { /* Floating figure. */ -#line 11571 "" +#line 11718 "" getchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 11572 "" +#line 11719 "" ici__1.icierr = 0; -#line 11572 "" +#line 11719 "" ici__1.iciend = 0; -#line 11572 "" +#line 11719 "" ici__1.icirnum = 1; -#line 11572 "" +#line 11719 "" ici__1.icirlen = 1; -#line 11572 "" +#line 11719 "" ici__1.iciunit = charq; -#line 11572 "" +#line 11719 "" ici__1.icifmt = "(i1)"; -#line 11572 "" +#line 11719 "" s_rsfi(&ici__1); -#line 11572 "" +#line 11719 "" do_fio(&c__1, (char *)&noff, (ftnlen)sizeof(integer)); -#line 11572 "" +#line 11719 "" e_rsfi(); -#line 11573 "" +#line 11720 "" getchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 11574 "" +#line 11721 "" ici__1.icierr = 0; -#line 11574 "" +#line 11721 "" ici__1.iciend = 0; -#line 11574 "" +#line 11721 "" ici__1.icirnum = 1; -#line 11574 "" +#line 11721 "" ici__1.icirlen = 1; -#line 11574 "" +#line 11721 "" ici__1.iciunit = charq; -#line 11574 "" +#line 11721 "" ici__1.icifmt = "(i1)"; -#line 11574 "" +#line 11721 "" s_rsfi(&ici__1); -#line 11574 "" +#line 11721 "" do_fio(&c__1, (char *)&loff, (ftnlen)sizeof(integer)); -#line 11574 "" +#line 11721 "" e_rsfi(); -#line 11575 "" +#line 11722 "" *itoff = noff * ifnodur_(&loff, "x", (ftnlen)1); -#line 11576 "" +#line 11723 "" getchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 11577 "" +#line 11724 "" } else { /* Figure on a note */ -#line 11581 "" +#line 11728 "" *isfig = TRUE_; -#line 11582 "" +#line 11729 "" } -#line 11583 "" +#line 11730 "" *itfig = *itsofar + *itoff - *nodur; -#line 11584 "" +#line 11731 "" lfig = 1; -#line 11585 "" +#line 11732 "" s_copy(figq, charq, (ftnlen)10, (ftnlen)1); -#line 11586 "" +#line 11733 "" L5: -#line 11586 "" +#line 11733 "" getchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); /* if (index(' +',charq) .eq. 0) then */ -#line 11588 "" +#line 11735 "" if (i_indx(" +v", charq, (ftnlen)3, (ftnlen)1) == 0) { /* Writing concatenation */ -#line 11589 "" +#line 11736 "" i__1[0] = lfig, a__1[0] = figq; -#line 11589 "" +#line 11736 "" i__1[1] = 1, a__1[1] = charq; -#line 11589 "" +#line 11736 "" s_cat(figq, a__1, i__1, &c__2, (ftnlen)10); -#line 11590 "" +#line 11737 "" ++lfig; -#line 11591 "" +#line 11738 "" goto L5; -#line 11592 "" +#line 11739 "" } else if (*(unsigned char *)charq == '+') { /* Get vertical offset for figure. Next character after number has to be blank. */ -#line 11596 "" +#line 11743 "" ++(*iccount); -#line 11597 "" +#line 11744 "" readnum_(lineq, iccount, charq, &fnum, (ftnlen)128, (ftnlen)1); -#line 11598 "" +#line 11745 "" *ivupfig = i_nint(&fnum); -#line 11599 "" +#line 11746 "" } else if (*(unsigned char *)charq == 'v') { /* Get vertical change in figdrop. Must be last item in figure word. */ -#line 11603 "" +#line 11750 "" isign = 1; -#line 11604 "" +#line 11751 "" getchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 11605 "" +#line 11752 "" if (*(unsigned char *)charq == '-') { -#line 11606 "" +#line 11753 "" isign = -1; -#line 11607 "" +#line 11754 "" getchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 11608 "" +#line 11755 "" } -#line 11609 "" +#line 11756 "" *ivvfig = isign * (*(unsigned char *)charq - 48); -#line 11610 "" +#line 11757 "" } -#line 11611 "" +#line 11758 "" return 0; } /* getfig_ */ @@ -28155,289 +28466,289 @@ L5: /* These data MUST precede note name of first note */ /* nolevg, naccg: lists of levels and accid's, indexed as described above. */ -#line 11645 "" +#line 11792 "" /* Parameter adjustments */ -#line 11645 "" +#line 11792 "" ndlev -= 25; -#line 11645 "" +#line 11792 "" ipl -= 25; -#line 11645 "" +#line 11792 "" --iornq; -#line 11645 "" +#line 11792 "" islur -= 25; -#line 11645 "" +#line 11792 "" --nnl; -#line 11645 "" +#line 11792 "" -#line 11645 "" +#line 11792 "" /* Function Body */ -#line 11645 "" +#line 11792 "" ++comgrace_1.ngrace; -#line 11646 "" +#line 11793 "" comgrace_1.ivg[comgrace_1.ngrace - 1] = *ivx; -#line 11647 "" +#line 11794 "" comgrace_1.ipg[comgrace_1.ngrace - 1] = nnl[*ivx] + 1; -#line 11648 "" +#line 11795 "" if (comgrace_1.ngrace == 1) { -#line 11649 "" +#line 11796 "" comgrace_1.ngstrt[comgrace_1.ngrace - 1] = 1; -#line 11650 "" +#line 11797 "" } else { -#line 11651 "" +#line 11798 "" comgrace_1.ngstrt[comgrace_1.ngrace - 1] = comgrace_1.ngstrt[ comgrace_1.ngrace - 2] + comgrace_1.nng[comgrace_1.ngrace - 2] ; -#line 11652 "" +#line 11799 "" } -#line 11653 "" +#line 11800 "" islur[*ivx + (nnl[*ivx] + 1) * 24] = bit_set(islur[*ivx + (nnl[*ivx] + 1) * 24],4); -#line 11654 "" +#line 11801 "" comgrace_1.nng[comgrace_1.ngrace - 1] = 1; -#line 11655 "" +#line 11802 "" comgrace_1.multg[comgrace_1.ngrace - 1] = 1; -#line 11656 "" +#line 11803 "" comgrace_1.upg[comgrace_1.ngrace - 1] = TRUE_; -#line 11657 "" +#line 11804 "" comgrace_1.slurg[comgrace_1.ngrace - 1] = FALSE_; -#line 11658 "" +#line 11805 "" comgrace_1.slashg[comgrace_1.ngrace - 1] = FALSE_; -#line 11659 "" +#line 11806 "" L18: -#line 11659 "" +#line 11806 "" getchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 11660 "" +#line 11807 "" if (i_indx("WA", charq, (ftnlen)2, (ftnlen)1) > 0) { /* Grace is on note that was already done, so shift flags forward one note. */ /* This puts flag on actual note with grace; later for W will go ahead one more. */ -#line 11665 "" +#line 11812 "" comgrace_1.ipg[comgrace_1.ngrace - 1] = nnl[*ivx]; -#line 11666 "" +#line 11813 "" islur[*ivx + (nnl[*ivx] + 1) * 24] = bit_clear(islur[*ivx + (nnl[*ivx] + 1) * 24],4); -#line 11667 "" +#line 11814 "" islur[*ivx + nnl[*ivx] * 24] = bit_set(islur[*ivx + nnl[*ivx] * 24],4) ; -#line 11668 "" +#line 11815 "" if (comgrace_1.slurg[comgrace_1.ngrace - 1]) { -#line 11668 "" +#line 11815 "" iornq[*ivx + nnl[*ivx] * 24] = bit_set(iornq[*ivx + nnl[*ivx] * 24],24); -#line 11668 "" +#line 11815 "" } -#line 11670 "" +#line 11817 "" if (*(unsigned char *)charq == 'A') { /* close After, clear way-after bit, to ensure priority of most recent A/W */ -#line 11674 "" +#line 11821 "" ipl[*ivx + nnl[*ivx] * 24] = bit_set(bit_clear(ipl[*ivx + nnl[* ivx] * 24],31),29); -#line 11675 "" +#line 11822 "" } else { /* Way after; later assign to following note, and position like normal grace. */ -#line 11679 "" +#line 11826 "" ipl[*ivx + nnl[*ivx] * 24] = bit_set(bit_clear(ipl[*ivx + nnl[* ivx] * 24],29),31); -#line 11680 "" +#line 11827 "" } -#line 11681 "" +#line 11828 "" } else if (*(unsigned char *)charq == 'm') { -#line 11682 "" +#line 11829 "" getchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 11683 "" +#line 11830 "" comgrace_1.multg[comgrace_1.ngrace - 1] = *(unsigned char *)charq - 48; -#line 11684 "" +#line 11831 "" } else if (i_indx("123456789", charq, (ftnlen)9, (ftnlen)1) > 0) { -#line 11685 "" +#line 11832 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 11686 "" +#line 11833 "" --(*iccount); -#line 11687 "" +#line 11834 "" comgrace_1.nng[comgrace_1.ngrace - 1] = i_nint(&fnum); -#line 11688 "" +#line 11835 "" } else if (*(unsigned char *)charq == 'l') { -#line 11689 "" +#line 11836 "" comgrace_1.upg[comgrace_1.ngrace - 1] = FALSE_; -#line 11690 "" +#line 11837 "" } else if (*(unsigned char *)charq == 's') { -#line 11691 "" +#line 11838 "" comgrace_1.slurg[comgrace_1.ngrace - 1] = TRUE_; -#line 11692 "" +#line 11839 "" if (nnl[*ivx] > 0) { /* If A- or W-grace, set signal to start slur on main note. */ -#line 11696 "" +#line 11843 "" if (bit_test(ipl[*ivx + nnl[*ivx] * 24],31) || bit_test(ipl[*ivx + nnl[*ivx] * 24],29)) { -#line 11696 "" +#line 11843 "" iornq[*ivx + nnl[*ivx] * 24] = bit_set(iornq[*ivx + nnl[*ivx] * 24],24); -#line 11696 "" +#line 11843 "" } -#line 11699 "" +#line 11846 "" } -#line 11700 "" +#line 11847 "" } else if (*(unsigned char *)charq == 'x') { -#line 11701 "" +#line 11848 "" comgrace_1.slashg[comgrace_1.ngrace - 1] = TRUE_; -#line 11702 "" +#line 11849 "" } else if (*(unsigned char *)charq == 'u') { -#line 11703 "" +#line 11850 "" } else if (*(unsigned char *)charq == 'X') { /* Space before main note of grace. Number will come next. */ -#line 11707 "" +#line 11854 "" ++(*iccount); -#line 11708 "" +#line 11855 "" readnum_(lineq, iccount, durq, &comgrace_1.graspace[comgrace_1.ngrace - 1], (ftnlen)128, (ftnlen)1); -#line 11709 "" +#line 11856 "" --(*iccount); -#line 11710 "" +#line 11857 "" } -#line 11711 "" +#line 11858 "" if (i_indx("abcdefg", charq, (ftnlen)7, (ftnlen)1) == 0) { -#line 11711 "" +#line 11858 "" goto L18; -#line 11711 "" +#line 11858 "" } /* At this point, charq is first note name in grace */ -#line 11715 "" +#line 11862 "" i__1 = comgrace_1.ngstrt[comgrace_1.ngrace - 1] + comgrace_1.nng[ comgrace_1.ngrace - 1] - 1; -#line 11715 "" +#line 11862 "" for (ing = comgrace_1.ngstrt[comgrace_1.ngrace - 1]; ing <= i__1; ++ing) { -#line 11716 "" +#line 11863 "" comgrace_1.naccg[ing - 1] = 0; -#line 11717 "" +#line 11864 "" ioct = 0; -#line 11718 "" +#line 11865 "" if (ing > comgrace_1.ngstrt[comgrace_1.ngrace - 1]) { -#line 11719 "" +#line 11866 "" L55: -#line 11719 "" +#line 11866 "" getchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 11720 "" +#line 11867 "" if (*(unsigned char *)charq == ' ') { -#line 11720 "" +#line 11867 "" goto L55; -#line 11720 "" +#line 11867 "" } -#line 11721 "" +#line 11868 "" } -#line 11722 "" +#line 11869 "" iclastlev = 0; -#line 11723 "" +#line 11870 "" L9: -#line 11723 "" +#line 11870 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 11724 "" +#line 11871 "" if (*(unsigned char *)durq != ' ') { -#line 11725 "" +#line 11872 "" if (*(unsigned char *)durq == '+') { -#line 11726 "" +#line 11873 "" *lastlev += 7; -#line 11727 "" +#line 11874 "" iclastlev += 7; -#line 11728 "" +#line 11875 "" } else if (*(unsigned char *)durq == '-') { -#line 11729 "" +#line 11876 "" *lastlev += -7; -#line 11730 "" +#line 11877 "" iclastlev += -7; -#line 11731 "" +#line 11878 "" } else if (i_indx("fsn", durq, (ftnlen)3, (ftnlen)1) > 0) { -#line 11732 "" +#line 11879 "" if (comgrace_1.naccg[ing - 1] == 0) { -#line 11733 "" +#line 11880 "" comgrace_1.naccg[ing - 1] = i_indx("fsn", durq, (ftnlen)3, (ftnlen)1); -#line 11734 "" +#line 11881 "" } else { /* Double accidental */ -#line 11738 "" +#line 11885 "" comgrace_1.naccg[ing - 1] = bit_set(comgrace_1.naccg[ing - 1],2); -#line 11739 "" +#line 11886 "" } -#line 11740 "" +#line 11887 "" } else { -#line 11741 "" +#line 11888 "" ioct = *(unsigned char *)durq - 48; -#line 11742 "" +#line 11889 "" } -#line 11743 "" +#line 11890 "" goto L9; -#line 11744 "" +#line 11891 "" } -#line 11745 "" +#line 11892 "" if (ioct > 0) { -#line 11746 "" +#line 11893 "" *lastlev = ifnolev_(charq, &ioct, &cominsttrans_1.itransamt[ cominsttrans_1.instno[*iv - 1] - 1], (ftnlen)1); -#line 11747 "" +#line 11894 "" } else { -#line 11748 "" +#line 11895 "" if (nnl[*ivx] == 0 && ing == comgrace_1.ngstrt[comgrace_1.ngrace - 1]) { -#line 11749 "" +#line 11896 "" if (*ivx <= *nv) { -#line 11750 "" +#line 11897 "" kv = 1; -#line 11751 "" +#line 11898 "" } else { -#line 11752 "" +#line 11899 "" kv = 2; -#line 11753 "" +#line 11900 "" } -#line 11754 "" +#line 11901 "" *lastlev = ndlev[*iv + kv * 24] + iclastlev; -#line 11755 "" +#line 11902 "" } -#line 11756 "" +#line 11903 "" *lastlev = *lastlev - 3 + (ifnolev_(charq, &c__10, & cominsttrans_1.itransamt[cominsttrans_1.instno[*iv - 1] - 1], (ftnlen)1) - *lastlev + 3) % 7; -#line 11758 "" +#line 11905 "" } -#line 11759 "" +#line 11906 "" comgrace_1.nolevg[ing - 1] = *lastlev; -#line 11760 "" +#line 11907 "" /* L19: */ -#line 11760 "" +#line 11907 "" } /* Grace could come before first note of block, so reset end level. */ -#line 11764 "" +#line 11911 "" if (nnl[*ivx] == 0) { -#line 11765 "" +#line 11912 "" if (*ivx <= *nv) { -#line 11766 "" +#line 11913 "" kv = 1; -#line 11767 "" +#line 11914 "" } else { -#line 11768 "" +#line 11915 "" kv = 2; -#line 11769 "" +#line 11916 "" } -#line 11770 "" +#line 11917 "" ndlev[*iv + kv * 24] = *lastlev; -#line 11771 "" +#line 11918 "" } -#line 11772 "" +#line 11919 "" return 0; } /* getgrace_ */ @@ -28493,172 +28804,173 @@ L9: /* fn. of nm, just a counter, where corr. inst num is iInstTrans(nm). This */ /* simplifies use of iTransAmt for all calls to ifnolev. */ -#line 11811 "" +#line 11958 "" *(unsigned char *)durq = 'x'; /* Can't initialize in declaration stmt, only works onc */ -#line 11812 "" +#line 11959 "" if (! cominsttrans_1.earlytranson) { -#line 11812 "" +#line 11959 "" cominsttrans_1.earlytranson = *from1 && *ibarcnt == 0; -#line 11812 "" +#line 11959 "" } -#line 11813 "" +#line 11960 "" store = cominsttrans_1.earlytranson && *ibarcnt == 0 || *ibarcnt > 0 && ! (*from1); -#line 11815 "" +#line 11962 "" cominsttrans_1.laterinsttrans = ! (*from1) && *ibarcnt > 0; -#line 11816 "" +#line 11963 "" if (store) { -#line 11816 "" +#line 11963 "" cominsttrans_1.ninsttrans = 0; -#line 11816 "" +#line 11963 "" } -#line 11817 "" +#line 11964 "" L1: -#line 11818 "" +#line 11965 "" if (*(unsigned char *)durq == ' ') { -#line 11818 "" +#line 11965 "" return 0; -#line 11818 "" +#line 11965 "" } -#line 11819 "" +#line 11966 "" g1etchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 11820 "" +#line 11967 "" if (i_indx("123456789", durq, (ftnlen)9, (ftnlen)1) == 0) { -#line 11821 "" +#line 11968 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 11821 "" +#line 11968 "" errmsg_(lineq, iccount, &i__1, "There must be an instrument number h"\ "ere!", (ftnlen)128, (ftnlen)40); -#line 11823 "" +#line 11970 "" stop1_(); -#line 11824 "" +#line 11971 "" } -#line 11825 "" +#line 11972 "" if (store) { -#line 11825 "" +#line 11972 "" ++cominsttrans_1.ninsttrans; -#line 11825 "" +#line 11972 "" } -#line 11826 "" +#line 11973 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 11827 "" +#line 11974 "" instn = i_nint(&fnum); -#line 11828 "" +#line 11975 "" if (instn > *noinst) { -#line 11829 "" +#line 11976 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 11829 "" +#line 11976 "" errmsg_(lineq, iccount, &i__1, "Instrument number out of range!", ( ftnlen)128, (ftnlen)31); -#line 11831 "" +#line 11978 "" stop1_(); -#line 11832 "" +#line 11979 "" } -#line 11833 "" +#line 11980 "" if (store) { -#line 11833 "" +#line 11980 "" cominsttrans_1.iinsttrans[cominsttrans_1.ninsttrans - 1] = instn; -#line 11833 "" +#line 11980 "" } /* durq is +/- following inst # (for iTransAmt), iccount is on it. */ -#line 11837 "" +#line 11984 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) == 0) { -#line 11838 "" +#line 11985 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 11838 "" +#line 11985 "" errmsg_(lineq, iccount, &i__1, "1st character after instrument numbe"\ "r must be \"+,-\"!", (ftnlen)128, (ftnlen)52); -#line 11840 "" +#line 11987 "" stop1_(); -#line 11841 "" +#line 11988 "" } -#line 11842 "" +#line 11989 "" itramt = 44 - *(unsigned char *)durq; /* +1/-1 for itramt */ -#line 11843 "" +#line 11990 "" g1etchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 11844 "" +#line 11991 "" if (i_indx("0123456789", durq, (ftnlen)10, (ftnlen)1) == 0) { -#line 11845 "" +#line 11992 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 11845 "" +#line 11992 "" errmsg_(lineq, iccount, &i__1, "There must be a transposition amount"\ " here!", (ftnlen)128, (ftnlen)42); -#line 11847 "" +#line 11994 "" stop1_(); -#line 11848 "" +#line 11995 "" } -#line 11849 "" +#line 11996 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 11850 "" +#line 11997 "" if (store) { -#line 11850 "" +#line 11997 "" cominsttrans_1.itransamt[instn - 1] = i_nint(&fnum) * itramt; -#line 11850 "" +#line 11997 "" } /* durq is +/- following iTransAmt (for iTransKey), iccount is on it. */ -#line 11854 "" +#line 12001 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) == 0) { -#line 11855 "" +#line 12002 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 11855 "" +#line 12002 "" errmsg_(lineq, iccount, &i__1, "1st character after transposition am"\ "ount must be \"+,-\"!", (ftnlen)128, (ftnlen)55); -#line 11857 "" +#line 12004 "" stop1_(); -#line 11858 "" +#line 12005 "" } -#line 11859 "" +#line 12006 "" ikey = 44 - *(unsigned char *)durq; /* +1/-1 */ -#line 11860 "" +#line 12007 "" g1etchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 11861 "" +#line 12008 "" if (i_indx("0123456789", durq, (ftnlen)10, (ftnlen)1) == 0) { -#line 11862 "" +#line 12009 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 11862 "" +#line 12009 "" errmsg_(lineq, iccount, &i__1, "There must be a key indicator here!", (ftnlen)128, (ftnlen)35); -#line 11864 "" +#line 12011 "" stop1_(); -#line 11865 "" +#line 12012 "" } -#line 11866 "" +#line 12013 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 11867 "" +#line 12014 "" if (store) { -#line 11867 "" +#line 12014 "" cominsttrans_1.itranskey[cominsttrans_1.ninsttrans - 1] = i_nint(& fnum) * ikey; -#line 11867 "" +#line 12014 "" } /* durq is now 1st character after iTransKey, should be either 'i' or ' ' */ -#line 11871 "" +#line 12018 "" if (*(unsigned char *)durq != 'i' && *(unsigned char *)durq != ' ') { -#line 11872 "" +#line 12019 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 11872 "" +#line 12019 "" errmsg_(lineq, iccount, &i__1, "There must be blank or \"i\" here!", ( ftnlen)128, (ftnlen)32); -#line 11874 "" +#line 12021 "" stop1_(); -#line 11875 "" +#line 12022 "" } -#line 11876 "" +#line 12023 "" goto L1; } /* getitransinfo_ */ /* Subroutine */ int getmidi_(integer *noinstarg, char *lineq, integer * iccount, integer *ibarcnt, integer *ibaroff, integer *nbars, integer * - lenbar, integer *mtrdenl, logical *first, ftnlen lineq_len) + lenbar, integer *mtrdenl, integer *nv, logical *first, ftnlen + lineq_len) { /* Initialized data */ @@ -28671,14 +28983,17 @@ L1: real r__1; /* Builtin functions */ - integer i_indx(char *, char *, ftnlen, ftnlen), i_nint(real *); + integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen), + e_wsle(void), i_indx(char *, char *, ftnlen, ftnlen), i_nint(real + *); /* Subroutine */ int s_cat(char *, char **, integer *, integer *, ftnlen); integer s_wsfe(cilist *), do_fio(integer *, char *, ftnlen), e_wsfe(void); /* Local variables */ static real pausemid; - extern /* Subroutine */ int midievent_(char *, integer *, integer *, - ftnlen); + extern /* Subroutine */ int inst2chan_(integer *, integer *, integer *, + integer *, shortint *, logical *), midievent_(char *, integer *, + integer *, ftnlen); static integer icm, ipm; static real qpm; static integer ivx; @@ -28694,11 +29009,14 @@ L1: char *, real *, ftnlen, ftnlen); /* Fortran I/O blocks */ - static cilist io___757 = { 0, 6, 0, "(a)", 0 }; - static cilist io___758 = { 0, 15, 0, "(a)", 0 }; + static cilist io___753 = { 0, 6, 0, 0, 0 }; + static cilist io___761 = { 0, 6, 0, 0, 0 }; + static cilist io___763 = { 0, 6, 0, 0, 0 }; + static cilist io___764 = { 0, 6, 0, 0, 0 }; + static cilist io___766 = { 0, 6, 0, "(a)", 0 }; + static cilist io___767 = { 0, 15, 0, "(a)", 0 }; -/* subroutine getmidi(nv,lineq,iccount,ibarcnt,ibaroff,nbars,lenbar, */ /* Use this from both pmxa and pmxb to input and check midi data. "first" tells */ /* whether pmxa or pmxb. If .not.first, then tempo and pause commands cause */ @@ -28715,467 +29033,523 @@ L1: /* bsXobXbaXclXflXreXctXvo */ -#line 11924 "" +#line 12069 "" L1: -#line 11924 "" +#line 12069 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 11925 "" +#line 12070 "" + s_wsle(&io___753); +#line 12070 "" + do_lio(&c__9, &c__1, "#11946 In getmidi,durg:", (ftnlen)23); +#line 12070 "" + do_lio(&c__9, &c__1, durq, (ftnlen)1); +#line 12070 "" + e_wsle(); +#line 12071 "" if (*(unsigned char *)durq == 't') { /* Tempo in beats ber minute */ -#line 11929 "" +#line 12075 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 11930 "" +#line 12076 "" if (i_indx("0123456789", durq, (ftnlen)10, (ftnlen)1) == 0) { -#line 11931 "" +#line 12077 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 11931 "" +#line 12077 "" errmsg_(lineq, iccount, &i__1, "Expected an integer here for the"\ " pause!", (ftnlen)128, (ftnlen)39); -#line 11933 "" +#line 12079 "" stop1_(); -/* else if (mmacrec) then */ -/* call errmsg(lineq,iccount,ibarcnt-ibaroff+nbars+1, */ -/* * 'Cannot change MIDI tempo while recording a MidiMacro!') */ -/* call stop1() */ -#line 11938 "" +#line 12080 "" } -#line 11939 "" +#line 12081 "" readnum_(lineq, iccount, durq, &qpm, (ftnlen)128, (ftnlen)1); -#line 11940 "" +#line 12082 "" --(*iccount); -#line 11941 "" +#line 12083 "" if (! (*first)) { -#line 11942 "" +#line 12084 "" i__1 = i_nint(&qpm); -#line 11942 "" +#line 12084 "" midievent_("t", &i__1, &c__0, (ftnlen)1); -#line 11943 "" +#line 12085 "" commmac_1.gottempo = TRUE_; -#line 11944 "" +#line 12086 "" } -#line 11945 "" +#line 12087 "" goto L1; -#line 11946 "" +#line 12088 "" } else if (*(unsigned char *)durq == 'p') { /* Insert a pause. pausemid = pause in 1/4's */ -#line 11950 "" +#line 12092 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 11951 "" +#line 12093 "" if (i_indx("0123456789.", durq, (ftnlen)11, (ftnlen)1) == 0) { -#line 11952 "" +#line 12094 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 11952 "" +#line 12094 "" errmsg_(lineq, iccount, &i__1, "Expected a number here for the p"\ "ause!", (ftnlen)128, (ftnlen)37); -#line 11954 "" +#line 12096 "" stop1_(); -#line 11955 "" +#line 12097 "" } -#line 11956 "" +#line 12098 "" readnum_(lineq, iccount, durq, &pausemid, (ftnlen)128, (ftnlen)1); -#line 11957 "" +#line 12099 "" --(*iccount); -#line 11958 "" +#line 12100 "" if (! (*first)) { /* Compute a meter for the pause. This is only to keep MidiNotate on track. */ /* Round pause to nearest 16th. Let denominator always be 16. */ -#line 11963 "" +#line 12105 "" r__1 = pausemid * 4; -#line 11963 "" +#line 12105 "" numb16 = i_nint(&r__1); -#line 11964 "" +#line 12106 "" midievent_("m", &numb16, &c__16, (ftnlen)1); /* Put in pausemid beats of rest */ -#line 11968 "" +#line 12110 "" i__1 = commidi_1.numchan - 1; -#line 11968 "" +#line 12110 "" for (icm = 0; icm <= i__1; ++icm) { -#line 11969 "" +#line 12111 "" r__1 = numb16 * 4.f; -#line 11969 "" +#line 12111 "" addmidi_(&icm, &c__0, &c__0, &c__0, &r__1, &c_true, &c_false); -#line 11970 "" +#line 12112 "" /* L3: */ -#line 11970 "" +#line 12112 "" } -#line 11971 "" +#line 12113 "" r__1 = pausemid * 240; -#line 11971 "" +#line 12113 "" comevent_1.miditime += i_nint(&r__1); /* Restore meter */ -#line 11975 "" +#line 12117 "" i__1 = *mtrdenl * *lenbar / 64; -#line 11975 "" +#line 12117 "" midievent_("m", &i__1, mtrdenl, (ftnlen)1); -#line 11976 "" +#line 12118 "" } -#line 11977 "" +#line 12119 "" goto L1; -#line 11978 "" +#line 12120 "" } else if (*(unsigned char *)durq == 'i') { -/* c Instrument numbers or letters. Expect nv of them. */ /* Instrument numbers or letters. Expect noinst of them. */ -/* do 2 ivx = 1 , nv */ -#line 11984 "" +#line 12124 "" i__1 = *noinstarg; -#line 11984 "" +#line 12124 "" for (ivx = 1; ivx <= i__1; ++ivx) { -#line 11985 "" +#line 12125 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 11986 "" +#line 12126 "" if (*(unsigned char *)durq > 96) { /* It's a lowercase letter. Get another, find corr. instrument #. */ -#line 11990 "" +#line 12130 "" *(unsigned char *)instq = *(unsigned char *)durq; -#line 11991 "" +#line 12131 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); /* Writing concatenation */ -#line 11992 "" +#line 12132 "" i__2[0] = 1, a__1[0] = instq; -#line 11992 "" +#line 12132 "" i__2[1] = 1, a__1[1] = durq; -#line 11992 "" +#line 12132 "" s_cat(instq, a__1, i__2, &c__2, (ftnlen)2); -#line 11993 "" +#line 12133 "" iname = i_indx("XXpiXrhXhaXmaXorXguXabXvlXvaXvcXcbXtrXtbXtuX"\ "frXsoXalXteXbsXobXbaXclXflXreXctXvo", instq, (ftnlen) 79, (ftnlen)2) / 3; -#line 11995 "" +#line 12135 "" if (iname == 0) { -#line 11996 "" +#line 12136 "" i__3 = *ibarcnt - *ibaroff + *nbars + 1; -#line 11996 "" +#line 12136 "" errmsg_(lineq, iccount, &i__3, "Unrecognized 2-letter mi"\ "di instrument name!", (ftnlen)128, (ftnlen)43); -#line 11998 "" +#line 12138 "" stop1_(); -#line 11999 "" +#line 12139 "" } -#line 12000 "" +#line 12140 "" commidi_1.midinst[ivx - 1] = midinum[iname - 1] - 1; -#line 12001 "" +#line 12141 "" + s_wsle(&io___761); +#line 12141 "" + do_lio(&c__9, &c__1, "#12012 in getmidi, inst=", (ftnlen)24); +#line 12141 "" + do_lio(&c__9, &c__1, instq, (ftnlen)2); +#line 12141 "" + e_wsle(); +#line 12142 "" } else { /* Expect a number, followed by ":" if that is followed by another number. */ /* I.e., if after call to readnum, durq is not ":", it must be either blank */ /* or next instrument letter. */ -#line 12007 "" +#line 12148 "" if (i_indx("123456789", durq, (ftnlen)9, (ftnlen)1) == 0) { -#line 12008 "" +#line 12149 "" i__3 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12008 "" +#line 12149 "" errmsg_(lineq, iccount, &i__3, "Expected a midi instrume"\ "nt number here!", (ftnlen)128, (ftnlen)39); -#line 12010 "" +#line 12151 "" stop1_(); -#line 12011 "" +#line 12152 "" } -#line 12012 "" +#line 12153 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 12013 "" +#line 12154 "" commidi_1.midinst[ivx - 1] = i_nint(&fnum) - 1; -#line 12014 "" +#line 12155 "" if (commidi_1.midinst[ivx - 1] < 0 || commidi_1.midinst[ivx - 1] > 255) { -#line 12015 "" +#line 12156 "" i__3 = *iccount - 1; -#line 12015 "" +#line 12156 "" i__4 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12015 "" +#line 12156 "" errmsg_(lineq, &i__3, &i__4, "Midi instrument number mus"\ "t be in range 1-128!", (ftnlen)128, (ftnlen)46); -#line 12017 "" +#line 12158 "" stop1_(); -#line 12018 "" +#line 12159 "" } -#line 12019 "" +#line 12160 "" if (*(unsigned char *)durq != ':') { -#line 12019 "" +#line 12160 "" --(*iccount); -#line 12019 "" +#line 12160 "" } -#line 12020 "" +#line 12161 "" } -#line 12021 "" +#line 12162 "" /* L2: */ -#line 12021 "" +#line 12162 "" } -#line 12022 "" +#line 12163 "" goto L1; -#line 12023 "" +#line 12164 "" } else if (*(unsigned char *)durq == 'v') { -/* Get volumes for each instrument. Expect nv of them. */ +/* Get volumes for each instrument. Expect noinst of them. */ /* Follow same pattern as for insttrument numbers above. */ -/* do 7 ivx = 1 , nv */ -#line 12029 "" +#line 12169 "" i__1 = *noinstarg; -#line 12029 "" +#line 12169 "" for (ivx = 1; ivx <= i__1; ++ivx) { -#line 12030 "" +#line 12170 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 12031 "" +#line 12171 "" if (i_indx("123456789", durq, (ftnlen)9, (ftnlen)1) == 0) { -#line 12032 "" +#line 12172 "" i__3 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12032 "" +#line 12172 "" errmsg_(lineq, iccount, &i__3, "Expected a midi velocity num"\ "ber here!", (ftnlen)128, (ftnlen)37); -#line 12034 "" +#line 12174 "" stop1_(); -#line 12035 "" +#line 12175 "" } -#line 12036 "" +#line 12176 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 12037 "" +#line 12177 "" commvel_2.midivel[ivx - 1] = i_nint(&fnum) - 1; -#line 12038 "" +#line 12178 "" if (commvel_2.midivel[ivx - 1] < 0 || commvel_2.midivel[ivx - 1] > 127) { -#line 12039 "" +#line 12179 "" i__3 = *iccount - 1; -#line 12039 "" +#line 12179 "" i__4 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12039 "" +#line 12179 "" errmsg_(lineq, &i__3, &i__4, "Midi velocity must be in range"\ " 1-128!", (ftnlen)128, (ftnlen)37); -#line 12041 "" +#line 12181 "" stop1_(); -#line 12042 "" +#line 12182 "" } -#line 12043 "" +#line 12183 "" if (*(unsigned char *)durq != ':') { -#line 12043 "" +#line 12183 "" --(*iccount); -#line 12043 "" +#line 12183 "" } -#line 12044 "" +#line 12184 "" /* L7: */ -#line 12044 "" +#line 12184 "" } -#line 12045 "" +#line 12185 "" + if (! (*first)) { +#line 12186 "" + inst2chan_(commvel_2.midvelc, commvel_2.midivel, + commidi_1.midchan, nv, commvel_2.iinsiv, + commidi_1.twoline); +#line 12187 "" + } +#line 12188 "" goto L1; -#line 12046 "" +#line 12189 "" } else if (*(unsigned char *)durq == 'b') { -/* Get balance for each instrument. Expect nv of them. */ +/* Get balance for each instrument. Expect noinst of them. */ /* Follow same pattern as for instrument numbers above. */ -/* do 8 ivx = 1 , nv */ -#line 12052 "" +#line 12194 "" i__1 = *noinstarg; -#line 12052 "" +#line 12194 "" for (ivx = 1; ivx <= i__1; ++ivx) { -#line 12053 "" +#line 12195 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 12054 "" +#line 12196 "" if (i_indx("123456789", durq, (ftnlen)9, (ftnlen)1) == 0) { -#line 12055 "" +#line 12197 "" i__3 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12055 "" +#line 12197 "" errmsg_(lineq, iccount, &i__3, "Expected a balance number he"\ "re!", (ftnlen)128, (ftnlen)31); -#line 12057 "" +#line 12199 "" stop1_(); -#line 12058 "" +#line 12200 "" } -#line 12059 "" +#line 12201 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 12060 "" +#line 12202 "" commvel_2.midibal[ivx - 1] = i_nint(&fnum) - 1; -#line 12061 "" +#line 12203 "" + s_wsle(&io___763); +#line 12203 "" + do_lio(&c__9, &c__1, "#12077 set midibal to", (ftnlen)21); +#line 12203 "" + do_lio(&c__3, &c__1, (char *)&commvel_2.midibal[ivx - 1], (ftnlen) + sizeof(integer)); +#line 12203 "" + e_wsle(); +#line 12204 "" if (commvel_2.midibal[ivx - 1] < 0 || commvel_2.midibal[ivx - 1] > 127) { -#line 12062 "" +#line 12205 "" i__3 = *iccount - 1; -#line 12062 "" +#line 12205 "" i__4 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12062 "" +#line 12205 "" errmsg_(lineq, &i__3, &i__4, "Midi balance must be in range "\ "1-128!", (ftnlen)128, (ftnlen)36); -#line 12064 "" +#line 12207 "" stop1_(); -#line 12065 "" +#line 12208 "" } -#line 12066 "" +#line 12209 "" if (*(unsigned char *)durq != ':') { -#line 12066 "" +#line 12209 "" --(*iccount); -#line 12066 "" +#line 12209 "" } -#line 12067 "" +#line 12210 "" /* L8: */ -#line 12067 "" +#line 12210 "" } -#line 12068 "" +#line 12211 "" + if (! (*first)) { +#line 12212 "" + inst2chan_(commvel_2.midbc, commvel_2.midibal, commidi_1.midchan, + nv, commvel_2.iinsiv, commidi_1.twoline); +#line 12213 "" + s_wsle(&io___764); +#line 12213 "" + do_lio(&c__9, &c__1, "#12086 midbc0,1,midibal1,2:", (ftnlen)27); +#line 12213 "" + do_lio(&c__3, &c__1, (char *)&commvel_2.midbc[0], (ftnlen)sizeof( + integer)); +#line 12213 "" + do_lio(&c__3, &c__1, (char *)&commvel_2.midbc[1], (ftnlen)sizeof( + integer)); +#line 12213 "" + do_lio(&c__3, &c__1, (char *)&commvel_2.midibal[0], (ftnlen) + sizeof(integer)); +#line 12213 "" + do_lio(&c__3, &c__1, (char *)&commvel_2.midibal[1], (ftnlen) + sizeof(integer)); +#line 12213 "" + e_wsle(); +#line 12215 "" + } +#line 12216 "" goto L1; -#line 12069 "" +#line 12217 "" } else if (*(unsigned char *)durq == 'T') { -/* Get transposition for each instrument. Expect nv of them. */ +/* Get transposition for each instrument. Expect noinst of them. */ /* Follow similar pattern as above, but separator is +|-. */ -/* do 9 ivx = 1 , nv */ -#line 12075 "" +#line 12222 "" i__1 = *noinstarg; -#line 12075 "" +#line 12222 "" for (ivx = 1; ivx <= i__1; ++ivx) { -#line 12076 "" +#line 12223 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 12077 "" +#line 12224 "" ipm = i_indx("-+", durq, (ftnlen)2, (ftnlen)1); -#line 12078 "" +#line 12225 "" if (ipm == 0) { -#line 12079 "" +#line 12226 "" i__3 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12079 "" +#line 12226 "" errmsg_(lineq, iccount, &i__3, "Expected \"+\" or \"-\" for "\ "midi transposition here!", (ftnlen)128, (ftnlen)48); -#line 12081 "" +#line 12228 "" stop1_(); -#line 12082 "" +#line 12229 "" } -#line 12083 "" +#line 12230 "" ipm = (ipm << 1) - 3; -#line 12084 "" +#line 12231 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 12085 "" +#line 12232 "" if (i_indx("0123456789", durq, (ftnlen)10, (ftnlen)1) == 0) { -#line 12086 "" +#line 12233 "" i__3 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12086 "" +#line 12233 "" errmsg_(lineq, iccount, &i__3, "Expected a number here!", ( ftnlen)128, (ftnlen)23); -#line 12088 "" +#line 12235 "" stop1_(); -#line 12089 "" +#line 12236 "" } -#line 12090 "" +#line 12237 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 12091 "" +#line 12238 "" commvel_2.miditran[ivx - 1] = ipm * i_nint(&fnum); /* if (mod(miditran(ivx),12).ne. 0) then */ /* call errmsg(lineq,iccount,ibarcnt-ibaroff+nbars+1, */ /* * 'Midi transposition limited to multiples of 12!') */ /* call stop1() */ /* end if */ -#line 12097 "" +#line 12244 "" --(*iccount); -#line 12098 "" +#line 12245 "" /* L9: */ -#line 12098 "" +#line 12245 "" } -#line 12099 "" +#line 12246 "" + if (! (*first)) { +#line 12247 "" + inst2chan_(commvel_2.midtc, commvel_2.miditran, commidi_1.midchan, + nv, commvel_2.iinsiv, commidi_1.twoline); +#line 12248 "" + } +#line 12249 "" goto L1; -#line 12100 "" +#line 12250 "" } else if (*(unsigned char *)durq == 'g') { -#line 12101 "" +#line 12251 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 12102 "" +#line 12252 "" if (i_indx("0123456789", durq, (ftnlen)10, (ftnlen)1) == 0) { -#line 12103 "" +#line 12253 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12103 "" +#line 12253 "" errmsg_(lineq, iccount, &i__1, "Expected an integer here for the"\ " midi gap!", (ftnlen)128, (ftnlen)42); -#line 12105 "" +#line 12255 "" stop1_(); -#line 12106 "" +#line 12256 "" } -#line 12107 "" +#line 12257 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 12108 "" +#line 12258 "" commidi_1.mgap = i_nint(&fnum); -#line 12109 "" +#line 12259 "" --(*iccount); -#line 12110 "" +#line 12260 "" goto L1; -#line 12111 "" +#line 12261 "" } else if (*(unsigned char *)durq == 'M') { /* MidiMacros */ -#line 12115 "" +#line 12265 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 12116 "" +#line 12266 "" if (*(unsigned char *)durq == 'R') { /* Start recording */ -#line 12120 "" +#line 12270 "" if (commmac_1.mmacrec) { -#line 12121 "" +#line 12271 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12121 "" +#line 12271 "" errmsg_(lineq, iccount, &i__1, "You tried to record a MidiMa"\ "cro while already recording!", (ftnlen)128, (ftnlen) 56); -#line 12123 "" +#line 12273 "" stop1_(); -#line 12124 "" +#line 12274 "" } -#line 12125 "" +#line 12275 "" commmac_1.mmacrec = TRUE_; -#line 12126 "" +#line 12276 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 12127 "" +#line 12277 "" if (i_indx("123456789", durq, (ftnlen)9, (ftnlen)1) == 0) { -#line 12128 "" +#line 12278 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12128 "" +#line 12278 "" errmsg_(lineq, iccount, &i__1, "Expected MidiMacro ID number"\ " here!", (ftnlen)128, (ftnlen)34); -#line 12130 "" +#line 12280 "" stop1_(); -#line 12131 "" +#line 12281 "" } -#line 12132 "" +#line 12282 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 12133 "" +#line 12283 "" --(*iccount); -#line 12134 "" +#line 12284 "" if (! (*first)) { -#line 12135 "" +#line 12285 "" commmac_1.immac = i_nint(&fnum); -#line 12136 "" +#line 12286 "" if (commmac_1.immac > 20) { -#line 12137 "" +#line 12287 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12137 "" +#line 12287 "" errmsg_(lineq, iccount, &i__1, "MidiMacro ID cannot exce"\ "ed 20!", (ftnlen)128, (ftnlen)30); -#line 12139 "" +#line 12289 "" stop1_(); -#line 12140 "" +#line 12290 "" } /* Save the start time */ -#line 12144 "" +#line 12294 "" commmac_1.mmactime[commmac_1.immac - 1] = comevent_1.miditime; -#line 12145 "" +#line 12295 "" i__1 = commidi_1.numchan; -#line 12145 "" +#line 12295 "" for (icm = 0; icm <= i__1; ++icm) { -#line 12146 "" +#line 12296 "" if (icm < commidi_1.numchan) { -#line 12147 "" +#line 12297 "" if (commidi_1.restpend[icm]) { /* Adjust if there's a rest at end of prior section. Insert dummy turnoff. */ @@ -29184,294 +29558,294 @@ L1: /* Before: section1 ------rest------- section2(to be recorded) */ /* After: section1 rest1 now rest2 section2(recorded) */ -#line 12155 "" +#line 12305 "" addmidi_(&icm, &c__30, &c__0, &c__0, & commidi_1.trest[icm], &c_false, &c_true); -#line 12156 "" +#line 12306 "" commidi_1.trest[icm] = 0.f; -#line 12157 "" +#line 12307 "" commidi_1.restpend[icm] = FALSE_; -#line 12158 "" +#line 12308 "" } -#line 12159 "" +#line 12309 "" } else { -#line 12160 "" +#line 12310 "" if (comevent_1.miditime > comevent_1.lasttime) { /* Insert a dummy turnoff in conductor track */ -#line 12164 "" +#line 12314 "" r__1 = (comevent_1.miditime - comevent_1.lasttime) / 15.f; -#line 12164 "" +#line 12314 "" addmidi_(&icm, &c__30, &c__0, &c__0, &r__1, & c_false, &c_true); -#line 12166 "" +#line 12316 "" comevent_1.lasttime = comevent_1.miditime; -#line 12167 "" +#line 12317 "" } -#line 12168 "" +#line 12318 "" } -#line 12169 "" +#line 12319 "" commmac_1.mmacstrt[icm + commmac_1.immac * 25 - 25] = commidi_1.imidi[icm] + 1; -#line 12170 "" +#line 12320 "" /* L4: */ -#line 12170 "" +#line 12320 "" } -#line 12171 "" +#line 12321 "" } -#line 12172 "" +#line 12322 "" goto L1; -#line 12173 "" +#line 12323 "" } else if (i_indx("123456789P", durq, (ftnlen)10, (ftnlen)1) == 0) { /* End recording; close the open macro. Get immac from common. */ -#line 12177 "" +#line 12327 "" if (! commmac_1.mmacrec) { -#line 12178 "" +#line 12328 "" i__1 = *iccount - 1; -#line 12178 "" +#line 12328 "" i__3 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12178 "" +#line 12328 "" errmsg_(lineq, &i__1, &i__3, "You tried to end a MidiMacro b"\ "efore starting one!", (ftnlen)128, (ftnlen)49); -#line 12180 "" +#line 12330 "" stop1_(); -#line 12181 "" +#line 12331 "" } -#line 12182 "" +#line 12332 "" commmac_1.mmacrec = FALSE_; -#line 12183 "" +#line 12333 "" --(*iccount); -#line 12184 "" +#line 12334 "" if (! (*first)) { /* Save the macro duration */ -#line 12188 "" +#line 12338 "" commmac_1.mmactime[commmac_1.immac - 1] = comevent_1.miditime - commmac_1.mmactime[commmac_1.immac - 1]; -#line 12189 "" +#line 12339 "" i__1 = commidi_1.numchan; -#line 12189 "" +#line 12339 "" for (icm = 0; icm <= i__1; ++icm) { -#line 12190 "" +#line 12340 "" if (icm < commidi_1.numchan) { -#line 12191 "" +#line 12341 "" if (commidi_1.restpend[icm]) { -#line 12192 "" +#line 12342 "" addmidi_(&icm, &c__30, &c__0, &c__0, & commidi_1.trest[icm], &c_false, &c_true); -#line 12193 "" +#line 12343 "" commidi_1.trest[icm] = 0.f; -#line 12194 "" +#line 12344 "" commidi_1.restpend[icm] = FALSE_; -#line 12195 "" +#line 12345 "" } -#line 12196 "" +#line 12346 "" } else { -#line 12197 "" +#line 12347 "" if (comevent_1.miditime > comevent_1.lasttime) { /* Insert a dummy turnoff in conductor track if needed. */ -#line 12201 "" +#line 12351 "" r__1 = (comevent_1.miditime - comevent_1.lasttime) / 15.f; -#line 12201 "" +#line 12351 "" addmidi_(&icm, &c__30, &c__0, &c__0, &r__1, & c_false, &c_true); -#line 12203 "" +#line 12353 "" comevent_1.lasttime = comevent_1.miditime; -#line 12204 "" +#line 12354 "" } -#line 12205 "" +#line 12355 "" } -#line 12206 "" +#line 12356 "" commmac_1.mmacend[icm + commmac_1.immac * 25 - 25] = commidi_1.imidi[icm]; -#line 12207 "" +#line 12357 "" /* L5: */ -#line 12207 "" +#line 12357 "" } -#line 12208 "" +#line 12358 "" } -#line 12209 "" +#line 12359 "" if (*(unsigned char *)durq != ' ') { -#line 12209 "" +#line 12359 "" goto L1; -#line 12209 "" +#line 12359 "" } -#line 12210 "" +#line 12360 "" } else if (*(unsigned char *)durq == 'P') { /* Play Back a Macro */ -#line 12214 "" +#line 12364 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 12215 "" +#line 12365 "" if (i_indx("123456789", durq, (ftnlen)9, (ftnlen)1) == 0) { -#line 12216 "" +#line 12366 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12216 "" +#line 12366 "" errmsg_(lineq, iccount, &i__1, "Expected MidiMacro ID number"\ " here!", (ftnlen)128, (ftnlen)34); -#line 12218 "" +#line 12368 "" stop1_(); -#line 12219 "" +#line 12369 "" } -#line 12220 "" +#line 12370 "" if (commmac_1.mmacrec) { -#line 12221 "" +#line 12371 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12221 "" +#line 12371 "" errmsg_(lineq, iccount, &i__1, "You tried to play a MidiMacr"\ "o before ending recording!", (ftnlen)128, (ftnlen)54); -#line 12223 "" +#line 12373 "" stop1_(); -#line 12224 "" +#line 12374 "" } -#line 12225 "" +#line 12375 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 12226 "" +#line 12376 "" --(*iccount); -#line 12227 "" +#line 12377 "" if (! (*first)) { -#line 12228 "" +#line 12378 "" commmac_1.immac = i_nint(&fnum); -#line 12229 "" +#line 12379 "" if (commmac_1.mmactime[commmac_1.immac - 1] == 0) { -#line 12230 "" +#line 12380 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12230 "" +#line 12380 "" errmsg_(lineq, iccount, &i__1, "Cannot play a MIDI macro"\ " before recording it!", (ftnlen)128, (ftnlen)45); -#line 12232 "" +#line 12382 "" stop1_(); -#line 12233 "" +#line 12383 "" } -#line 12234 "" +#line 12384 "" i__1 = commidi_1.numchan; -#line 12234 "" +#line 12384 "" for (icm = 0; icm <= i__1; ++icm) { -#line 12235 "" +#line 12385 "" if (icm < commidi_1.numchan) { -#line 12236 "" +#line 12386 "" if (commidi_1.restpend[icm]) { -#line 12237 "" +#line 12387 "" addmidi_(&icm, &c__30, &c__0, &c__0, & commidi_1.trest[icm], &c_false, &c_true); -#line 12238 "" +#line 12388 "" commidi_1.trest[icm] = 0.f; -#line 12239 "" +#line 12389 "" commidi_1.restpend[icm] = FALSE_; -#line 12240 "" +#line 12390 "" } -#line 12241 "" +#line 12391 "" } else { -#line 12242 "" +#line 12392 "" if (comevent_1.miditime > comevent_1.lasttime) { /* Insert a dummy turnoff in conductor track */ -#line 12246 "" +#line 12396 "" r__1 = (comevent_1.miditime - comevent_1.lasttime) / 15.f; -#line 12246 "" +#line 12396 "" addmidi_(&icm, &c__30, &c__0, &c__0, &r__1, & c_false, &c_true); -#line 12248 "" +#line 12398 "" } -#line 12249 "" +#line 12399 "" } -#line 12250 "" +#line 12400 "" commmac_1.msecend[icm + commmac_1.nmidsec * 25 - 25] = commidi_1.imidi[icm]; -#line 12251 "" +#line 12401 "" commmac_1.msecstrt[icm + (commmac_1.nmidsec + 1) * 25 - 25] = commmac_1.mmacstrt[icm + commmac_1.immac * 25 - 25]; -#line 12252 "" +#line 12402 "" commmac_1.msecend[icm + (commmac_1.nmidsec + 1) * 25 - 25] = commmac_1.mmacend[icm + commmac_1.immac * 25 - 25]; -#line 12253 "" +#line 12403 "" commmac_1.msecstrt[icm + (commmac_1.nmidsec + 2) * 25 - 25] = commidi_1.imidi[icm] + 1; -#line 12254 "" +#line 12404 "" /* L6: */ -#line 12254 "" +#line 12404 "" } -#line 12255 "" +#line 12405 "" commmac_1.nmidsec += 2; /* Update running time */ -#line 12259 "" +#line 12409 "" comevent_1.miditime += commmac_1.mmactime[commmac_1.immac - 1] ; -#line 12260 "" +#line 12410 "" comevent_1.lasttime = comevent_1.miditime; -#line 12261 "" +#line 12411 "" } -#line 12262 "" +#line 12412 "" goto L1; -#line 12263 "" +#line 12413 "" } else { -#line 12264 "" +#line 12414 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12264 "" +#line 12414 "" errmsg_(lineq, iccount, &i__1, "Illegal character in MidiMacro s"\ "ub-command!", (ftnlen)128, (ftnlen)43); -#line 12266 "" +#line 12416 "" stop1_(); -#line 12267 "" +#line 12417 "" } -#line 12268 "" +#line 12418 "" } else if (*(unsigned char *)durq == 'd') { -#line 12269 "" +#line 12419 "" commidi_1.debugmidi = TRUE_; -#line 12270 "" +#line 12420 "" goto L1; -#line 12271 "" +#line 12421 "" } else if (*(unsigned char *)durq != ' ') { -#line 12272 "" +#line 12422 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 12272 "" +#line 12422 "" errmsg_(lineq, iccount, &i__1, "Illegal character in MIDI input data!" , (ftnlen)128, (ftnlen)37); -#line 12274 "" - s_wsfe(&io___757); -#line 12274 "" +#line 12424 "" + s_wsfe(&io___766); +#line 12424 "" do_fio(&c__1, "May be too many args to i,v,b, or T. As of Ver. 2.7, "\ "should be noinst, not nv", (ftnlen)77); -#line 12274 "" +#line 12424 "" e_wsfe(); -#line 12277 "" - s_wsfe(&io___758); -#line 12277 "" +#line 12427 "" + s_wsfe(&io___767); +#line 12427 "" do_fio(&c__1, "May be too many args to i,v,b, or T. As of Ver. 2.7, "\ "should be noinst, not nv", (ftnlen)77); -#line 12277 "" +#line 12427 "" e_wsfe(); -#line 12280 "" +#line 12430 "" stop1_(); -#line 12281 "" +#line 12431 "" } -#line 12282 "" +#line 12432 "" if (! commmac_1.gottempo && ! (*first)) { /* If no tempo is set on first call on the pmxb pass, then set it */ -#line 12286 "" +#line 12436 "" midievent_("t", &c__96, &c__0, (ftnlen)1); -#line 12287 "" +#line 12437 "" commmac_1.gottempo = TRUE_; -#line 12288 "" +#line 12438 "" } -#line 12289 "" +#line 12439 "" return 0; } /* getmidi_ */ @@ -29503,12 +29877,12 @@ L1: integer s_wsfi(icilist *), e_wsfi(void); /* Local variables */ + static integer namstrt; static real tintstf; static integer lentemp; - extern /* Subroutine */ int g1etchar_(char *, integer *, char *, ftnlen, - ftnlen), getgrace_(integer *, integer *, char *, integer *, + extern /* Subroutine */ int getgrace_(integer *, integer *, char *, integer *, integer *, integer *, integer *, integer *, integer *, - integer *, ftnlen); + integer *, integer *, ftnlen); extern integer igetbits_(integer *, integer *, integer *); static integer idotform; extern /* Subroutine */ int newvoice_(integer *, char *, logical *, @@ -29520,7 +29894,7 @@ L1: integer *, ftnlen), midievent_(char *, integer *, integer *, ftnlen); static integer ic, jv, kv, nnb, iip, ipm, ivf, ndx, isl, iiv; - static real dum; + static real hgt, dum; static integer iis, npg1, num1, iadj, nadj, lclf; extern /* Character */ VOID chax_(char *, ftnlen, integer *); static logical cdot; @@ -29535,7 +29909,6 @@ L1: static integer ipg1r; extern /* Subroutine */ int stop1_(void); static integer lhead; - static real pmfac; static char charq[1], lineq[128]; static logical moved; static integer ndoub; @@ -29543,7 +29916,8 @@ L1: extern /* Subroutine */ int sslur_(char *, integer *, integer *, integer * , integer *, integer *, integer *, integer *, integer *, logical * , integer *, char *, ftnlen, ftnlen); - static integer isign, ifnum, nvold, iinow, iinst; + static integer ifnum, iplmi, isign, nvold, iinow, iinst; + static real pmfac; extern /* Subroutine */ int getitransinfo_(logical *, integer *, char *, integer *, integer *, integer *, integer *, ftnlen); static logical quoted; @@ -29572,8 +29946,9 @@ L1: static integer ibaroff, lenbeat; extern /* Subroutine */ int getchar_(char *, integer *, char *, ftnlen, ftnlen), getmidi_(integer *, char *, integer *, integer *, - integer *, integer *, integer *, integer *, logical *, ftnlen), - readnum_(char *, integer *, char *, real *, ftnlen, ftnlen); + integer *, integer *, integer *, integer *, integer *, logical *, + ftnlen), readnum_(char *, integer *, char *, real *, ftnlen, + ftnlen); static integer nindent; extern /* Subroutine */ int setbits_(integer *, integer *, integer *, integer *), chkpm4ac_(char *, integer *, integer *, logical *, @@ -29586,152 +29961,153 @@ L1: static integer itother; extern /* Subroutine */ int spsslur_(char *, integer *, integer *, integer *, integer *, integer *, integer *, integer *, integer *, - integer *, logical *, integer *, char *, ftnlen, ftnlen); + integer *, logical *, integer *, char *, ftnlen, ftnlen), + g1etchar_(char *, integer *, char *, ftnlen, ftnlen); static real fmovbrk; - static integer lvoltxt, ltopnam, namstrt; + static integer lvoltxt, ltopnam; /* Fortran I/O blocks */ - static cilist io___763 = { 0, 11, 0, "(a)", 0 }; - static cilist io___771 = { 0, 6, 0, 0, 0 }; - static cilist io___782 = { 0, 6, 0, 0, 0 }; - static cilist io___783 = { 0, 6, 0, 0, 0 }; - static cilist io___794 = { 0, 6, 0, 0, 0 }; - static cilist io___795 = { 0, 6, 0, 0, 0 }; - static cilist io___808 = { 0, 6, 0, 0, 0 }; - static cilist io___810 = { 0, 6, 0, 0, 0 }; - static cilist io___811 = { 0, 6, 0, 0, 0 }; - static cilist io___813 = { 0, 6, 0, 0, 0 }; - static cilist io___818 = { 0, 11, 0, "(a)", 0 }; - static cilist io___819 = { 0, 11, 0, "(a)", 0 }; - static cilist io___822 = { 0, 11, 0, "(a)", 0 }; - static cilist io___823 = { 0, 11, 0, "(a)", 0 }; - static cilist io___824 = { 0, 11, 0, "(a)", 0 }; - static cilist io___825 = { 0, 11, 0, "(a)", 0 }; - static cilist io___826 = { 0, 11, 0, "(a)", 0 }; - static cilist io___827 = { 0, 11, 0, "(a11,i2,a)", 0 }; - static cilist io___828 = { 0, 11, 0, "(a9,i2,a)", 0 }; - static cilist io___830 = { 0, 11, 0, "(a8,i1,a3)", 0 }; - static cilist io___831 = { 0, 11, 0, "(a9,i2,a4)", 0 }; - static cilist io___832 = { 0, 11, 0, "(a8,i1,a)", 0 }; - static cilist io___833 = { 0, 11, 0, "(a9,i2,a)", 0 }; - static cilist io___834 = { 0, 6, 0, 0, 0 }; - static cilist io___835 = { 0, 6, 0, 0, 0 }; - static cilist io___837 = { 0, 6, 0, 0, 0 }; + static cilist io___772 = { 0, 11, 0, "(a)", 0 }; + static cilist io___780 = { 0, 6, 0, 0, 0 }; + static cilist io___791 = { 0, 6, 0, 0, 0 }; + static cilist io___792 = { 0, 6, 0, 0, 0 }; + static cilist io___803 = { 0, 6, 0, 0, 0 }; + static cilist io___804 = { 0, 6, 0, 0, 0 }; + static cilist io___820 = { 0, 6, 0, 0, 0 }; + static cilist io___821 = { 0, 6, 0, 0, 0 }; + static cilist io___822 = { 0, 6, 0, 0, 0 }; + static cilist io___824 = { 0, 6, 0, 0, 0 }; + static cilist io___829 = { 0, 11, 0, "(a)", 0 }; + static cilist io___830 = { 0, 11, 0, "(a)", 0 }; + static cilist io___833 = { 0, 11, 0, "(a)", 0 }; + static cilist io___834 = { 0, 11, 0, "(a)", 0 }; + static cilist io___835 = { 0, 11, 0, "(a)", 0 }; + static cilist io___836 = { 0, 11, 0, "(a)", 0 }; + static cilist io___837 = { 0, 11, 0, "(a)", 0 }; + static cilist io___838 = { 0, 11, 0, "(a11,i2,a)", 0 }; + static cilist io___839 = { 0, 11, 0, "(a9,i2,a)", 0 }; + static cilist io___841 = { 0, 11, 0, "(a8,i1,a3)", 0 }; + static cilist io___842 = { 0, 11, 0, "(a9,i2,a4)", 0 }; + static cilist io___843 = { 0, 11, 0, "(a8,i1,a)", 0 }; + static cilist io___844 = { 0, 11, 0, "(a9,i2,a)", 0 }; static cilist io___845 = { 0, 6, 0, 0, 0 }; - static cilist io___847 = { 0, 11, 0, "(a)", 0 }; - static cilist io___848 = { 0, 11, 0, "(a)", 0 }; - static cilist io___849 = { 0, 11, 0, "(a)", 0 }; - static cilist io___850 = { 0, 11, 0, "(a)", 0 }; - static cilist io___852 = { 0, 11, 0, "(a)", 0 }; - static cilist io___855 = { 0, 11, 0, "(a)", 0 }; - static cilist io___856 = { 0, 11, 0, "(a)", 0 }; + static cilist io___846 = { 0, 6, 0, 0, 0 }; + static cilist io___855 = { 0, 6, 0, 0, 0 }; static cilist io___857 = { 0, 11, 0, "(a)", 0 }; static cilist io___858 = { 0, 11, 0, "(a)", 0 }; static cilist io___859 = { 0, 11, 0, "(a)", 0 }; static cilist io___860 = { 0, 11, 0, "(a)", 0 }; - static cilist io___861 = { 0, 11, 0, "(a)", 0 }; static cilist io___862 = { 0, 11, 0, "(a)", 0 }; + static cilist io___865 = { 0, 11, 0, "(a)", 0 }; + static cilist io___866 = { 0, 11, 0, "(a)", 0 }; + static cilist io___867 = { 0, 11, 0, "(a)", 0 }; + static cilist io___868 = { 0, 11, 0, "(a)", 0 }; + static cilist io___869 = { 0, 11, 0, "(a)", 0 }; + static cilist io___870 = { 0, 11, 0, "(a)", 0 }; + static cilist io___871 = { 0, 11, 0, "(a)", 0 }; + static cilist io___872 = { 0, 11, 0, "(a)", 0 }; + static cilist io___878 = { 0, 6, 0, 0, 0 }; /* nvmx is either 1 or 2. ivmx(iv,1)=iv, ; ivmx(iv,2)>nv if defined */ /* ivx is current ivmx, and is the index for all notes, acc's etc. */ -#line 12411 "" +#line 12565 "" cdot = FALSE_; -#line 12412 "" +#line 12566 "" inxtup = FALSE_; -#line 12413 "" +#line 12567 "" L1: -#line 12413 "" +#line 12567 "" getchar_(lineq, &all_1.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 12414 "" +#line 12568 "" if (comget_1.lastchar) { -#line 12414 "" +#line 12568 "" return 0; -#line 12414 "" +#line 12568 "" } -#line 12415 "" +#line 12569 "" if (*(unsigned char *)charq == ' ') { -#line 12415 "" +#line 12569 "" goto L1; -#line 12415 "" +#line 12569 "" } -#line 12416 "" +#line 12570 "" if (*(unsigned char *)charq == '%') { /* Check for a bar number format: */ -#line 12420 "" +#line 12574 "" if (all_1.iccount == 1 && *(unsigned char *)&lineq[1] == ' ' && i_indx("bB1234567890", lineq + 2, (ftnlen)12, (ftnlen)1) > 0) { -#line 12422 "" +#line 12576 "" if (comlast_1.islast) { -#line 12422 "" - s_wsfe(&io___763); -#line 12422 "" +#line 12576 "" + s_wsfe(&io___772); +#line 12576 "" do_fio(&c__1, lineq, lenstr_(lineq, &c__128, (ftnlen)128)); -#line 12422 "" +#line 12576 "" e_wsfe(); -#line 12422 "" +#line 12576 "" } -#line 12423 "" +#line 12577 "" } -#line 12424 "" +#line 12578 "" all_1.iccount = 128; -#line 12425 "" +#line 12579 "" goto L1; -#line 12426 "" +#line 12580 "" } /* Closing repeat iff charq='/' and the prev. char was 'R' with 'd' or 'r' */ -#line 12430 "" +#line 12584 "" if (comget_1.rptprev) { -#line 12431 "" +#line 12585 "" comget_1.rptnd1 = *(unsigned char *)charq == '/'; -#line 12432 "" +#line 12586 "" comget_1.rptprev = FALSE_; -#line 12433 "" +#line 12587 "" } /* Repeat at end of a piece */ -#line 12437 "" +#line 12591 "" if (*(unsigned char *)charq >= 97 && *(unsigned char *)charq <= 103 || *( unsigned char *)charq == 'r') { -#line 12439 "" +#line 12593 "" if (cdot) { -#line 12439 "" +#line 12593 "" goto L28; -#line 12439 "" +#line 12593 "" } /* This is a note/rest. */ -#line 12443 "" +#line 12597 "" idotform = 0; -#line 12444 "" +#line 12598 "" numnum = 0; /* If start of line of music, set pitch from previous */ -#line 12448 "" +#line 12602 "" if (commvl_1.ivx <= all_1.nv) { -#line 12449 "" +#line 12603 "" kv = 1; -#line 12450 "" +#line 12604 "" } else { -#line 12451 "" +#line 12605 "" kv = 2; -#line 12452 "" +#line 12606 "" } -#line 12453 "" +#line 12607 "" if (all_1.nnl[commvl_1.ivx - 1] == 0) { -#line 12453 "" +#line 12607 "" comnotes_1.lastlev = comnotes_1.ndlev[all_1.iv + kv * 24 - 25]; -#line 12453 "" +#line 12607 "" } /* notcrd is used to tell if orn. goes on main note or chord note */ @@ -29740,63 +30116,63 @@ L1: /* Increase note count, then loop 'til blank. Label 28 is for dotted shortcuts. */ -#line 12461 "" +#line 12615 "" L28: /* Moved this from just above, 2 Feb 02 */ -#line 12465 "" +#line 12619 "" comnotes_1.notcrd = TRUE_; -#line 12466 "" +#line 12620 "" ++all_1.nnl[commvl_1.ivx - 1]; -#line 12467 "" +#line 12621 "" if (comget_1.ornrpt) { /* Replicate ornament bits, also bit 23 for beam handling if chord. */ -#line 12471 "" +#line 12625 "" all_1.iornq[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 1] |= all_1.iornq[commvl_1.ivx - 1]; -#line 12472 "" +#line 12626 "" if ((all_1.iornq[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 1] & 32896) > 0) { /* This is a trill (bit 7 or 15) so must dup the parameters */ -#line 12476 "" +#line 12630 "" ++comtrill_1.ntrill; -#line 12477 "" +#line 12631 "" comtrill_1.ivtrill[comtrill_1.ntrill - 1] = commvl_1.ivx; -#line 12478 "" +#line 12632 "" comtrill_1.iptrill[comtrill_1.ntrill - 1] = all_1.nnl[ commvl_1.ivx - 1]; -#line 12479 "" +#line 12633 "" comtrill_1.xnsktr[comtrill_1.ntrill - 1] = comtrill_1.xnsktr[ comtrill_1.ntrill - 2]; -#line 12480 "" +#line 12634 "" } -#line 12481 "" +#line 12635 "" } -#line 12482 "" +#line 12636 "" if (comget_1.stickys) { /* Grab stemlength shortening parameters from prior note */ -#line 12486 "" +#line 12640 "" all_1.mult[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.mult[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],27); /* call setbits (mult(ivx,nnl(ivx)),3,28, */ /* * igetbits(mult(ivx,nnl(ivx)-1),3,28)) */ -#line 12489 "" +#line 12643 "" i__1 = igetbits_(&all_1.mult[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] - 1) * 24 - 25], &c__6, &c__10); -#line 12489 "" +#line 12643 "" setbits_(&all_1.mult[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25], &c__6, &c__10, &i__1); -#line 12491 "" +#line 12645 "" } -#line 12492 "" +#line 12646 "" if (comfb_1.autofbon && comfb_1.tautofb > comtol_1.tol && ! comget_1.fbon) { @@ -29804,514 +30180,514 @@ L28: /* starts a period. */ /* if (mod(1.*itsofar(ivx),tautofb) .lt. tol) then */ -#line 12498 "" +#line 12652 "" r__1 = all_1.itsofar[commvl_1.ivx - 1] - comfb_1.t1autofb; -#line 12498 "" +#line 12652 "" if (r_mod(&r__1, &comfb_1.tautofb) < comtol_1.tol) { /* Start a forced beam here */ -#line 12502 "" +#line 12656 "" ++comfb_1.nfb[commvl_1.ivx - 1]; -#line 12503 "" +#line 12657 "" comget_1.fbon = TRUE_; -#line 12504 "" +#line 12658 "" *(unsigned char *)&comfb_1.ulfbq[commvl_1.ivx + comfb_1.nfb[ commvl_1.ivx - 1] * 24 - 25] = 'x'; -#line 12505 "" +#line 12659 "" comfb_1.t1fb[commvl_1.ivx + comfb_1.nfb[commvl_1.ivx - 1] * 24 - 25] = (real) all_1.itsofar[commvl_1.ivx - 1]; -#line 12506 "" +#line 12660 "" } -#line 12507 "" +#line 12661 "" } -#line 12508 "" +#line 12662 "" if (comget_1.fbon) { -#line 12508 "" +#line 12662 "" all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],30); -#line 12508 "" +#line 12662 "" } -#line 12509 "" +#line 12663 "" *(unsigned char *)dotq = 'x'; -#line 12510 "" +#line 12664 "" if (*(unsigned char *)charq == 'r') { -#line 12510 "" +#line 12664 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],0); -#line 12510 "" +#line 12664 "" } -#line 12512 "" +#line 12666 "" if (bit_test(all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],0)) { /* Rest stuff. First check if previous note was full-bar-pause */ -#line 12516 "" +#line 12670 "" i__1 = all_1.iccount; -#line 12516 "" +#line 12670 "" if (s_cmp(lineq + i__1, " ", all_1.iccount + 1 - i__1, (ftnlen)1) == 0 && all_1.nnl[commvl_1.ivx - 1] > 1) { -#line 12518 "" +#line 12672 "" if (bit_test(all_1.islur[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] - 1) * 24 - 25],19)) { -#line 12518 "" +#line 12672 "" all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],19); -#line 12518 "" +#line 12672 "" } -#line 12520 "" +#line 12674 "" } /* Set default rest level at 0 unless 2 voices/staff in which case it's -4 or 2 */ /* for voice a or b. Set a-types at 0 as encountered and adjust later */ /* after '//'. (Override heights will be set to 100+offset) */ -#line 12526 "" +#line 12680 "" if (commvl_1.ivx <= all_1.nv) { -#line 12527 "" +#line 12681 "" all_1.nolev[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = 0; -#line 12528 "" +#line 12682 "" } else { -#line 12529 "" +#line 12683 "" all_1.nolev[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = 2; -#line 12530 "" +#line 12684 "" } -#line 12531 "" +#line 12685 "" } -#line 12532 "" +#line 12686 "" L2: -#line 12532 "" +#line 12686 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 12533 "" +#line 12687 "" ic = *(unsigned char *)durq; -#line 12534 "" +#line 12688 "" if (ic <= 57 && ic >= 48) { /* Digit */ -#line 12538 "" +#line 12692 "" if (numnum == 0) { -#line 12539 "" +#line 12693 "" comnotes_1.nnodur = ic - 48; -#line 12540 "" +#line 12694 "" numnum = 1; -#line 12541 "" +#line 12695 "" goto L2; -#line 12542 "" +#line 12696 "" } else if (numnum == 1) { -#line 12543 "" +#line 12697 "" ioct = ic - 48; -#line 12544 "" +#line 12698 "" numnum = 2; -#line 12545 "" +#line 12699 "" goto L2; -#line 12546 "" +#line 12700 "" } else { -#line 12547 "" - s_wsle(&io___771); -#line 12547 "" +#line 12701 "" + s_wsle(&io___780); +#line 12701 "" do_lio(&c__9, &c__1, ">2 digits in note sym., ivx,nn:", ( ftnlen)31); -#line 12547 "" +#line 12701 "" do_lio(&c__3, &c__1, (char *)&commvl_1.ivx, (ftnlen)sizeof( integer)); -#line 12547 "" +#line 12701 "" do_lio(&c__3, &c__1, (char *)&all_1.nnl[commvl_1.ivx - 1], ( ftnlen)sizeof(integer)); -#line 12547 "" +#line 12701 "" e_wsle(); -#line 12548 "" +#line 12702 "" stop1_(); -#line 12549 "" +#line 12703 "" } -#line 12550 "" +#line 12704 "" } else if (*(unsigned char *)durq == 'd') { -#line 12551 "" +#line 12705 "" *(unsigned char *)dotq = *(unsigned char *)durq; -#line 12552 "" +#line 12706 "" i__1 = all_1.iccount; -#line 12552 "" +#line 12706 "" if (s_cmp(lineq + i__1, "d", all_1.iccount + 1 - i__1, (ftnlen)1) == 0) { /* Double dot. */ -#line 12556 "" +#line 12710 "" ++all_1.iccount; -#line 12557 "" +#line 12711 "" all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.islur[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],3); -#line 12558 "" +#line 12712 "" } -#line 12559 "" +#line 12713 "" i__1 = all_1.iccount; -#line 12559 "" +#line 12713 "" if (i_indx("+-", lineq + i__1, (ftnlen)2, all_1.iccount + 1 - i__1) > 0) { /* move a dot, unless next char is not part of a number */ -#line 12563 "" +#line 12717 "" i__1 = all_1.iccount + 1; -#line 12563 "" +#line 12717 "" if (i_indx("0123456789.", lineq + i__1, (ftnlen)11, all_1.iccount + 2 - i__1) == 0) { -#line 12563 "" +#line 12717 "" goto L2; -#line 12563 "" +#line 12717 "" } -#line 12565 "" +#line 12719 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],19); -#line 12566 "" +#line 12720 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 12567 "" +#line 12721 "" ++comcc_1.ndotmv[commvl_1.ivx - 1]; -#line 12568 "" +#line 12722 "" ++all_1.iccount; -#line 12569 "" +#line 12723 "" readnum_(lineq, &all_1.iccount, dumq, &comcc_1.updot[ commvl_1.ivx + comcc_1.ndotmv[commvl_1.ivx - 1] * 24 - 25], (ftnlen)128, (ftnlen)1); -#line 12570 "" +#line 12724 "" if (*(unsigned char *)durq == '-') { -#line 12570 "" +#line 12724 "" comcc_1.updot[commvl_1.ivx + comcc_1.ndotmv[commvl_1.ivx - 1] * 24 - 25] = -comcc_1.updot[commvl_1.ivx + comcc_1.ndotmv[commvl_1.ivx - 1] * 24 - 25]; -#line 12570 "" +#line 12724 "" } -#line 12572 "" +#line 12726 "" if (i_indx("+-", dumq, (ftnlen)2, (ftnlen)1) > 0) { /* Vertical shift also */ -#line 12576 "" +#line 12730 "" ++all_1.iccount; -#line 12577 "" +#line 12731 "" readnum_(lineq, &all_1.iccount, durq, &comcc_1.rtdot[ commvl_1.ivx + comcc_1.ndotmv[commvl_1.ivx - 1] * 24 - 25], (ftnlen)128, (ftnlen)1); -#line 12578 "" +#line 12732 "" if (*(unsigned char *)dumq == '-') { -#line 12578 "" +#line 12732 "" comcc_1.rtdot[commvl_1.ivx + comcc_1.ndotmv[ commvl_1.ivx - 1] * 24 - 25] = -comcc_1.rtdot[ commvl_1.ivx + comcc_1.ndotmv[commvl_1.ivx - 1] * 24 - 25]; -#line 12578 "" +#line 12732 "" } -#line 12580 "" +#line 12734 "" } else { -#line 12581 "" +#line 12735 "" comcc_1.rtdot[commvl_1.ivx + comcc_1.ndotmv[commvl_1.ivx - 1] * 24 - 25] = 0.f; -#line 12582 "" +#line 12736 "" } -#line 12583 "" +#line 12737 "" --all_1.iccount; -#line 12584 "" +#line 12738 "" } -#line 12585 "" +#line 12739 "" goto L2; -#line 12586 "" +#line 12740 "" } else if (*(unsigned char *)durq == 'p') { /* Full-bar rest as pause */ -#line 12590 "" +#line 12744 "" all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.islur[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],19); -#line 12591 "" +#line 12745 "" goto L2; -#line 12592 "" +#line 12746 "" } else if (*(unsigned char *)durq == 'b') { /* Blank rest */ -#line 12596 "" +#line 12750 "" all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.islur[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],29); -#line 12597 "" +#line 12751 "" goto L2; -#line 12598 "" +#line 12752 "" } else if (i_indx("fsn", durq, (ftnlen)3, (ftnlen)1) > 0) { /* Accidental */ /* if (nacc(ivx,nnl(ivx)) .eq. 0) then */ /* 171209 May have set bit 18 earlier if D or F preceded accidental */ -#line 12604 "" +#line 12758 "" if (igetbits_(&all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25], &c__2, &c__0) == 0) { /* No accidental has been set yet */ /* nacc(ivx,nnl(ivx)) = index('fsn',durq) */ -#line 12609 "" +#line 12763 "" all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] |= i_indx("fsn", durq, (ftnlen)3, (ftnlen)1); -#line 12611 "" +#line 12765 "" } else { /* Repeated accid, so must be double */ -#line 12615 "" +#line 12769 "" all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.nacc[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],2); -#line 12616 "" +#line 12770 "" } -#line 12617 "" +#line 12771 "" goto L2; -#line 12618 "" +#line 12772 "" } else if (*(unsigned char *)durq == 'i') { /* Set flag for MIDI-only accidental. */ -#line 12622 "" +#line 12776 "" all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],17); -#line 12623 "" +#line 12777 "" goto L2; -#line 12624 "" +#line 12778 "" } else if (*(unsigned char *)durq == 'c') { /* Set flags for cautionary accidental */ -#line 12628 "" +#line 12782 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],31); -#line 12629 "" +#line 12783 "" all_1.iornq[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 1] = bit_set(all_1.iornq[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 1],31); -#line 12630 "" +#line 12784 "" goto L2; -#line 12631 "" +#line 12785 "" } else if (i_indx("+-<>", durq, (ftnlen)4, (ftnlen)1) > 0) { -#line 12632 "" +#line 12786 "" ipm = i_indx("- +", durq, (ftnlen)3, (ftnlen)1) - 2; -#line 12633 "" +#line 12787 "" if (! bit_test(all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],0)) { /* A note, not a rest. */ -#line 12637 "" +#line 12791 "" chkpm4ac_(lineq, &all_1.iccount, &all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25], &moved, ( ftnlen)128); -#line 12638 "" +#line 12792 "" if (moved) { -#line 12638 "" +#line 12792 "" goto L2; -#line 12638 "" +#line 12792 "" } /* Octave jump with a note */ -#line 12642 "" +#line 12796 "" if (numnum < 2) { -#line 12643 "" +#line 12797 "" comnotes_1.lastlev += ipm * 7; -#line 12644 "" +#line 12798 "" } else { -#line 12645 "" +#line 12799 "" ioct += ipm; -#line 12646 "" +#line 12800 "" } -#line 12647 "" +#line 12801 "" goto L2; -#line 12648 "" +#line 12802 "" } else { /* Override default height of a rest */ -#line 12652 "" +#line 12806 "" ++all_1.iccount; -#line 12653 "" +#line 12807 "" readnum_(lineq, &all_1.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 12654 "" +#line 12808 "" i__1 = all_1.iccount - 2; -#line 12654 "" +#line 12808 "" if (s_cmp(lineq + i__1, ".", all_1.iccount - 1 - i__1, ( ftnlen)1) == 0) { /* Kluge in case there is a shortcut ".". It will have been sucked up by */ /* readnum. (Same doesn't hold for ",") */ -#line 12659 "" +#line 12813 "" --all_1.iccount; /* go to 2 */ -#line 12661 "" +#line 12815 "" } -#line 12662 "" +#line 12816 "" all_1.nolev[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = ipm * i_nint(&fnum) + 100; /* There may be more characters for this rest */ -#line 12666 "" +#line 12820 "" --all_1.iccount; -#line 12667 "" +#line 12821 "" goto L2; -#line 12668 "" +#line 12822 "" } -#line 12669 "" +#line 12823 "" } else if (*(unsigned char *)durq == 'x') { /* Xtuplet. Count number of doubled notes (for unequal xtups) */ -#line 12673 "" +#line 12827 "" if (bit_test(all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],18)) { -#line 12674 "" +#line 12828 "" ndoub = 1; -#line 12675 "" +#line 12829 "" } else { -#line 12676 "" +#line 12830 "" ndoub = 0; -#line 12677 "" +#line 12831 "" } /* Initialize counter for # of non-rests, so can later unbeam if = 1. */ -#line 12681 "" +#line 12835 "" inxtup = TRUE_; -#line 12682 "" +#line 12836 "" note1xtup = all_1.nnl[commvl_1.ivx - 1]; -#line 12683 "" +#line 12837 "" nnb = 0; -#line 12684 "" +#line 12838 "" if (! bit_test(all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],0)) { -#line 12684 "" +#line 12838 "" nnb = 1; -#line 12684 "" +#line 12838 "" } /* Will set all durations to 0 except last one. Set flag on this note. */ -#line 12688 "" +#line 12842 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],28); /* Next input will be digit unless its a "T" */ -#line 12692 "" +#line 12846 "" ++all_1.iccount; -#line 12693 "" +#line 12847 "" if (*(unsigned char *)&lineq[all_1.iccount - 1] == 'T') { /* Set up tremolo */ -#line 12697 "" +#line 12851 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],2); -#line 12698 "" +#line 12852 "" ntup = 2; /* Set default beaming, based on Wikipedia article */ /* May be a problem here is nnodur is inherited */ -#line 12703 "" +#line 12857 "" if (comnotes_1.nnodur == 4) { -#line 12704 "" +#line 12858 "" nsolid = 0; -#line 12705 "" +#line 12859 "" nindent = 3; -#line 12706 "" +#line 12860 "" } else if (comnotes_1.nnodur == 2) { -#line 12707 "" +#line 12861 "" nsolid = 3; -#line 12708 "" +#line 12862 "" nindent = 0; -#line 12709 "" +#line 12863 "" } else if (comnotes_1.nnodur == 8) { -#line 12710 "" +#line 12864 "" nsolid = 1; -#line 12711 "" +#line 12865 "" nindent = 2; -#line 12712 "" +#line 12866 "" } -#line 12713 "" +#line 12867 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 12714 "" +#line 12868 "" if (i_indx("0123456789", durq, (ftnlen)10, (ftnlen)1) > 0) { -#line 12715 "" +#line 12869 "" nsolid = i_indx("0123456789", durq, (ftnlen)10, (ftnlen)1) - 1; -#line 12716 "" +#line 12870 "" if (nsolid == 0 && comnotes_1.nnodur == 2) { -#line 12717 "" - s_wsle(&io___782); -#line 12717 "" +#line 12871 "" + s_wsle(&io___791); +#line 12871 "" do_lio(&c__9, &c__1, "", (ftnlen)0); -#line 12717 "" +#line 12871 "" e_wsle(); -#line 12718 "" - s_wsle(&io___783); -#line 12718 "" +#line 12872 "" + s_wsle(&io___792); +#line 12872 "" do_lio(&c__9, &c__1, "Unbeamed half-note 2-note trem"\ "olo forbidden.", (ftnlen)44); -#line 12718 "" +#line 12872 "" e_wsle(); -#line 12719 "" +#line 12873 "" stop1_(); -#line 12720 "" +#line 12874 "" } -#line 12721 "" +#line 12875 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 12722 "" +#line 12876 "" if (i_indx("0123456789", durq, (ftnlen)10, (ftnlen)1) > 0) { -#line 12723 "" +#line 12877 "" nindent = i_indx("0123456789", durq, (ftnlen)10, ( ftnlen)1) - 1; -#line 12724 "" +#line 12878 "" } -#line 12725 "" +#line 12879 "" } -#line 12726 "" +#line 12880 "" setbits_(&all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25], &c__2, &c__3, &nsolid); -#line 12727 "" +#line 12881 "" setbits_(&all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25], &c__2, &c__5, &nindent); -#line 12728 "" +#line 12882 "" if (nsolid == 0) { -#line 12729 "" +#line 12883 "" all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],18); -#line 12731 "" +#line 12885 "" } -#line 12732 "" +#line 12886 "" all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.islur[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],31); -#line 12733 "" +#line 12887 "" all_1.islur[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 25] = bit_set(all_1.islur[commvl_1.ivx + ( all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 25],21); -#line 12734 "" +#line 12888 "" setbits_(&all_1.islur[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 25], &c__3, &c__22, &nsolid); @@ -30320,144 +30696,144 @@ L2: /* Need to check if there's already a forced beam explicitly set here. */ /* If there was, shouldn't do any harm resetting parameters. */ -#line 12741 "" +#line 12895 "" if (comfb_1.nfb[commvl_1.ivx - 1] == 0 || comfb_1.t1fb[ commvl_1.ivx + comfb_1.nfb[commvl_1.ivx - 1] * 24 - 25] != (real) all_1.itsofar[commvl_1.ivx - 1]) { -#line 12741 "" +#line 12895 "" ++comfb_1.nfb[commvl_1.ivx - 1]; -#line 12741 "" +#line 12895 "" } -#line 12743 "" +#line 12897 "" comget_1.fbon = TRUE_; -#line 12744 "" +#line 12898 "" *(unsigned char *)&comfb_1.ulfbq[commvl_1.ivx + comfb_1.nfb[ commvl_1.ivx - 1] * 24 - 25] = 'x'; -#line 12745 "" +#line 12899 "" comfb_1.t1fb[commvl_1.ivx + comfb_1.nfb[commvl_1.ivx - 1] * 24 - 25] = (real) all_1.itsofar[commvl_1.ivx - 1]; -#line 12746 "" +#line 12900 "" comfb_1.t2fb[commvl_1.ivx + comfb_1.nfb[commvl_1.ivx - 1] * 24 - 25] = (real) (all_1.itsofar[commvl_1.ivx - 1] + ifnodur_(&comnotes_1.nnodur, dotq, (ftnlen)1)); -#line 12747 "" +#line 12901 "" nadj = 0; /* Set open beamed notehead flag for half-note tremolo */ /* Just gave 2 quarters with or without flag set. Need to fix */ -#line 12752 "" +#line 12906 "" } else { -#line 12753 "" +#line 12907 "" readnum_(lineq, &all_1.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 12754 "" +#line 12908 "" ntup = i_nint(&fnum); -#line 12755 "" +#line 12909 "" } -#line 12756 "" +#line 12910 "" if (i_indx("DF", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Double xtup note to make an un= xtup. Here xtup number already set but may also */ /* have this command before. */ -#line 12762 "" +#line 12916 "" all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.nacc[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],18); -#line 12763 "" +#line 12917 "" if (*(unsigned char *)durq == 'F') { -#line 12763 "" +#line 12917 "" all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],19); -#line 12763 "" +#line 12917 "" } -#line 12765 "" +#line 12919 "" ndoub = 1; -#line 12766 "" +#line 12920 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 12767 "" +#line 12921 "" } else if (*(unsigned char *)durq == 'd') { -#line 12768 "" +#line 12922 "" all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.nacc[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],27); -#line 12769 "" +#line 12923 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 12770 "" +#line 12924 "" } /* Only other possibilities here are ' ' or 'n' */ -#line 12774 "" +#line 12928 "" if (*(unsigned char *)durq == 'n') { /* Alter xtup number */ -#line 12778 "" +#line 12932 "" i__1 = all_1.iccount; -#line 12778 "" +#line 12932 "" if (s_cmp(lineq + i__1, " ", all_1.iccount + 1 - i__1, ( ftnlen)1) == 0) { /* If the only modifier is 'n', cancel the number */ -#line 12782 "" +#line 12936 "" all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],31); -#line 12783 "" +#line 12937 "" } else { -#line 12784 "" +#line 12938 "" numshft = 0; -#line 12785 "" +#line 12939 "" L30: -#line 12785 "" +#line 12939 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 12786 "" +#line 12940 "" if (*(unsigned char *)durq == 'f') { /* Flip up-down-ness */ -#line 12790 "" +#line 12944 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[ commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],14); -#line 12791 "" +#line 12945 "" goto L30; -#line 12792 "" +#line 12946 "" } else if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Vertical or horiz shift */ -#line 12796 "" +#line 12950 "" ++numshft; -#line 12797 "" +#line 12951 "" iofforn = 1; -#line 12798 "" +#line 12952 "" if (*(unsigned char *)durq == '-') { -#line 12798 "" +#line 12952 "" iofforn = -1; -#line 12798 "" +#line 12952 "" } -#line 12799 "" +#line 12953 "" ++all_1.iccount; -#line 12800 "" +#line 12954 "" readnum_(lineq, &all_1.iccount, durq, &xofforn, ( ftnlen)128, (ftnlen)1); -#line 12801 "" +#line 12955 "" --all_1.iccount; -#line 12802 "" +#line 12956 "" if (numshft == 1) { /* Vertical shift */ /* 160214 Allow (-64,64) */ /* iofforn = iofforn*nint(xofforn) + 16 */ -#line 12807 "" +#line 12961 "" iofforn = iofforn * i_nint(&xofforn) + 64; /* c Turn on bit 1; set bits 2-6 to iofforn */ @@ -30465,386 +30841,386 @@ L30: /* irest(ivx,nnl(ivx)) = */ /* * ior(irest(ivx,nnl(ivx)),2+4*iofforn) */ -#line 12814 "" +#line 12968 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[ commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],1); -#line 12815 "" +#line 12969 "" setbits_(&all_1.mult[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25], &c__8, & c__16, &iofforn); -#line 12816 "" +#line 12970 "" } else { /* Horizontal shift */ -#line 12820 "" +#line 12974 "" r__1 = xofforn * 10; -#line 12820 "" +#line 12974 "" iofforn = iofforn * i_nint(&r__1) + 16; -#line 12821 "" +#line 12975 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[ commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],7); -#line 12822 "" +#line 12976 "" setbits_(&all_1.irest[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25], &c__5, & c__9, &iofforn); -#line 12823 "" +#line 12977 "" } -#line 12824 "" +#line 12978 "" goto L30; -#line 12825 "" +#line 12979 "" } else if (*(unsigned char *)durq == 's') { /* Slope adjustment for bracket */ -#line 12829 "" +#line 12983 "" all_1.mult[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.mult[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],4); -#line 12830 "" +#line 12984 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 12831 "" +#line 12985 "" iofforn = i_indx("- +", durq, (ftnlen)3, (ftnlen)1) - 2; -#line 12832 "" +#line 12986 "" ++all_1.iccount; -#line 12833 "" +#line 12987 "" readnum_(lineq, &all_1.iccount, durq, &xofforn, ( ftnlen)128, (ftnlen)1); -#line 12834 "" +#line 12988 "" --all_1.iccount; -#line 12835 "" +#line 12989 "" r__1 = iofforn * xofforn + 16; -#line 12835 "" +#line 12989 "" iofforn = i_nint(&r__1); -#line 12836 "" +#line 12990 "" setbits_(&all_1.mult[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25], &c__5, &c__5, & iofforn); -#line 12837 "" +#line 12991 "" } else if (i_indx("123456789", durq, (ftnlen)9, (ftnlen)1) > 0) { /* Replacement printed number */ -#line 12841 "" +#line 12995 "" readnum_(lineq, &all_1.iccount, durq, &xofforn, ( ftnlen)128, (ftnlen)1); -#line 12842 "" +#line 12996 "" i__1 = i_nint(&xofforn); -#line 12842 "" +#line 12996 "" setbits_(&all_1.nacc[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25], &c__5, &c__22, & i__1); -#line 12843 "" +#line 12997 "" --all_1.iccount; -#line 12844 "" +#line 12998 "" goto L30; -#line 12845 "" +#line 12999 "" } -#line 12846 "" +#line 13000 "" } -#line 12847 "" +#line 13001 "" } /* Set note level of 1st note of xtup, provided not a rest */ -#line 12851 "" +#line 13005 "" if (! bit_test(all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],0)) { -#line 12852 "" +#line 13006 "" if (numnum == 2) { -#line 12853 "" +#line 13007 "" comnotes_1.lastlev = ifnolev_(charq, &ioct, & cominsttrans_1.itransamt[cominsttrans_1.instno[ all_1.iv - 1] - 1], (ftnlen)1); -#line 12854 "" +#line 13008 "" all_1.nolev[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = comnotes_1.lastlev; -#line 12855 "" +#line 13009 "" } else { -#line 12856 "" +#line 13010 "" comnotes_1.lastlev = comnotes_1.lastlev - 3 + (ifnolev_( charq, &c__10, &cominsttrans_1.itransamt[ cominsttrans_1.instno[all_1.iv - 1] - 1], (ftnlen) 1) - comnotes_1.lastlev + 3) % 7; -#line 12858 "" +#line 13012 "" all_1.nolev[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = comnotes_1.lastlev; -#line 12859 "" +#line 13013 "" } -#line 12860 "" +#line 13014 "" } -#line 12861 "" +#line 13015 "" for (comnotes_1.npreslur = comnotes_1.npreslur; comnotes_1.npreslur >= 1; --comnotes_1.npreslur) { /* Set note level for preslur on starting note of xtuplet */ -#line 12865 "" +#line 13019 "" setbits_(&all_1.isdat2[all_1.nsdat - comnotes_1.npreslur], & c__7, &c__19, &comnotes_1.lastlev); -#line 12866 "" +#line 13020 "" /* L40: */ -#line 12866 "" +#line 13020 "" } -#line 12867 "" +#line 13021 "" numnum = 0; -#line 12868 "" +#line 13022 "" all_1.nodur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = 0; -#line 12869 "" +#line 13023 "" i__1 = ntup; -#line 12869 "" +#line 13023 "" for (itup = 2; itup <= i__1; ++itup) { -#line 12870 "" +#line 13024 "" if (comget_1.ornrpt) { -#line 12871 "" +#line 13025 "" all_1.iornq[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 1] |= all_1.iornq[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] - 1) * 24 - 1] & 10026991; -#line 12873 "" +#line 13027 "" if ((all_1.iornq[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 1] & 32896) > 0) { /* This is a trill (bit 7 or 15) so must dup the parameters */ -#line 12877 "" +#line 13031 "" ++comtrill_1.ntrill; -#line 12878 "" +#line 13032 "" comtrill_1.ivtrill[comtrill_1.ntrill - 1] = commvl_1.ivx; -#line 12879 "" +#line 13033 "" comtrill_1.iptrill[comtrill_1.ntrill - 1] = all_1.nnl[ commvl_1.ivx - 1]; -#line 12880 "" +#line 13034 "" comtrill_1.xnsktr[comtrill_1.ntrill - 1] = comtrill_1.xnsktr[comtrill_1.ntrill - 2]; -#line 12881 "" +#line 13035 "" } -#line 12882 "" +#line 13036 "" } -#line 12883 "" +#line 13037 "" ++all_1.nnl[commvl_1.ivx - 1]; -#line 12884 "" +#line 13038 "" if (comget_1.fbon) { -#line 12884 "" +#line 13038 "" all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],30); -#line 12884 "" +#line 13038 "" } -#line 12885 "" +#line 13039 "" L7: -#line 12885 "" +#line 13039 "" getchar_(lineq, &all_1.iccount, charq, (ftnlen)128, (ftnlen)1) ; -#line 12886 "" +#line 13040 "" if (*(unsigned char *)charq == ' ') { -#line 12887 "" +#line 13041 "" goto L7; -#line 12888 "" +#line 13042 "" } else if (*(unsigned char *)charq == '%') { -#line 12889 "" +#line 13043 "" all_1.iccount = 128; -#line 12890 "" +#line 13044 "" goto L7; -#line 12891 "" +#line 13045 "" } else if (*(unsigned char *)charq == 'o') { /* Ornament in xtuplet. "o" symbol must come AFTER the affected note */ -#line 12895 "" +#line 13049 "" if (comnotes_1.notcrd) { -#line 12896 "" +#line 13050 "" nole = all_1.nolev[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] - 1) * 24 - 25]; -#line 12897 "" +#line 13051 "" } else { -#line 12898 "" +#line 13052 "" nole = 127 & lbit_shift(comtrill_1.icrdat[ comtrill_1.ncrd - 1], (ftnlen)-12); -#line 12899 "" +#line 13053 "" } -#line 12900 "" +#line 13054 "" i__2 = all_1.nnl[commvl_1.ivx - 1] - 1; -#line 12900 "" +#line 13054 "" getorn_(lineq, &all_1.iccount, &all_1.iornq[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] - 1) * 24 - 1], & all_1.iornq[commvl_1.ivx - 1], &comget_1.ornrpt, & comgrace_1.noffseg, &i__2, &commvl_1.ivx, & c_false, &comnotes_1.notcrd, &nole, (ftnlen)128); -#line 12903 "" +#line 13057 "" goto L7; -#line 12904 "" +#line 13058 "" } else if (i_indx("st(){}", charq, (ftnlen)6, (ftnlen)1) > 0) { -#line 12905 "" +#line 13059 "" nnlivx = all_1.nnl[commvl_1.ivx - 1] - 1; -#line 12906 "" +#line 13060 "" if (*(unsigned char *)charq == '(' || *(unsigned char *) charq == '{') { /* Detected preslur in xtuplet loop, non-chord note */ -#line 12910 "" +#line 13064 "" ++nnlivx; -#line 12911 "" +#line 13065 "" ++comnotes_1.npreslur; -#line 12912 "" +#line 13066 "" } -#line 12913 "" +#line 13067 "" all_1.islur[commvl_1.ivx + nnlivx * 24 - 25] = bit_set( all_1.islur[commvl_1.ivx + nnlivx * 24 - 25],0); -#line 12914 "" +#line 13068 "" if (*(unsigned char *)charq == 't') { -#line 12914 "" +#line 13068 "" all_1.islur[commvl_1.ivx + nnlivx * 24 - 25] = bit_set(all_1.islur[commvl_1.ivx + nnlivx * 24 - 25],1); -#line 12914 "" +#line 13068 "" } -#line 12916 "" +#line 13070 "" if (commvl_1.ivx <= all_1.nv) { -#line 12917 "" +#line 13071 "" kv = 1; -#line 12918 "" +#line 13072 "" } else { -#line 12919 "" +#line 13073 "" kv = 2; -#line 12920 "" +#line 13074 "" } -#line 12921 "" +#line 13075 "" if (comslur_1.fontslur) { -#line 12922 "" +#line 13076 "" sslur_(lineq, &all_1.iccount, &all_1.iv, &kv, &nnlivx, all_1.isdat1, all_1.isdat2, all_1.isdat3, & all_1.nsdat, &comnotes_1.notcrd, &all_1.nolev[ commvl_1.ivx + nnlivx * 24 - 25], charq, ( ftnlen)128, (ftnlen)1); -#line 12924 "" +#line 13078 "" } else { -#line 12925 "" +#line 13079 "" spsslur_(lineq, &all_1.iccount, &all_1.iv, &kv, & nnlivx, all_1.isdat1, all_1.isdat2, all_1.isdat3, all_1.isdat4, &all_1.nsdat, & comnotes_1.notcrd, &all_1.nolev[commvl_1.ivx + nnlivx * 24 - 25], charq, (ftnlen)128, ( ftnlen)1); -#line 12927 "" +#line 13081 "" } -#line 12928 "" +#line 13082 "" goto L7; -#line 12929 "" +#line 13083 "" } else if (*(unsigned char *)charq == 'G') { /* Kluge to get grace in xtup at right location */ -#line 12933 "" +#line 13087 "" --all_1.nnl[commvl_1.ivx - 1]; -#line 12934 "" +#line 13088 "" getgrace_(&commvl_1.ivx, all_1.nnl, lineq, &all_1.iccount, all_1.islur, all_1.iornq, all_1.ipl, comnotes_1.ndlev, &comnotes_1.lastlev, &all_1.iv, &all_1.nv, (ftnlen)128); -#line 12936 "" +#line 13090 "" ++all_1.nnl[commvl_1.ivx - 1]; -#line 12937 "" +#line 13091 "" goto L7; -#line 12938 "" +#line 13092 "" } else if (*(unsigned char *)charq == *(unsigned char *) all_1.sq) { -#line 12939 "" +#line 13093 "" littex_(all_1.islur, &all_1.nnl[commvl_1.ivx - 1], & commvl_1.ivx, &comas3_1.topmods, lineq, & all_1.iccount, (ftnlen)128); -#line 12940 "" +#line 13094 "" goto L7; -#line 12941 "" +#line 13095 "" } else if (*(unsigned char *)charq == '"') { /* pmxlyr string in xtup. Expand "..." to \pmxlyr{...}\ */ -#line 12945 "" +#line 13099 "" if (! comlyr_1.inputmlyr) { -#line 12946 "" +#line 13100 "" ictemp = 0; /* Writing concatenation */ -#line 12947 "" +#line 13101 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 12947 "" +#line 13101 "" i__3[1] = 1, a__1[1] = all_1.sq; -#line 12947 "" +#line 13101 "" i__3[2] = 1, a__1[2] = all_1.sq; -#line 12947 "" +#line 13101 "" i__3[3] = 15, a__1[3] = "input musixlyr "; -#line 12947 "" +#line 13101 "" i__3[4] = 1, a__1[4] = all_1.sq; -#line 12947 "" +#line 13101 "" s_cat(lineqt, a__1, i__3, &c__5, (ftnlen)128); -#line 12948 "" +#line 13102 "" i__2 = all_1.nnl[commvl_1.ivx - 1] + 1; -#line 12948 "" +#line 13102 "" littex_(all_1.islur, &i__2, &commvl_1.ivx, & comas3_1.topmods, lineqt, &ictemp, (ftnlen) 128); -#line 12949 "" +#line 13103 "" comlyr_1.inputmlyr = TRUE_; -#line 12950 "" +#line 13104 "" } -#line 12951 "" +#line 13105 "" dopmxlyr_(lineq, &all_1.iccount, (ftnlen)128); -#line 12952 "" +#line 13106 "" *(unsigned char *)charq = *(unsigned char *)all_1.sq; -#line 12953 "" +#line 13107 "" littex_(all_1.islur, &all_1.nnl[commvl_1.ivx - 1], & commvl_1.ivx, &comas3_1.topmods, lineq, & all_1.iccount, (ftnlen)128); -#line 12954 "" +#line 13108 "" goto L7; -#line 12955 "" +#line 13109 "" } else if (i_indx("0123456789#-nx_", charq, (ftnlen)15, ( ftnlen)1) > 0) { /* Figure. Must come AFTER the first note of xtup */ -#line 12959 "" +#line 13113 "" ivf = 1; -#line 12960 "" +#line 13114 "" if (commvl_1.ivx > 1) { -#line 12961 "" +#line 13115 "" if (comfig_1.ivxfig2 == 0) { -#line 12962 "" +#line 13116 "" comfig_1.ivxfig2 = commvl_1.ivx; -#line 12963 "" +#line 13117 "" } else if (commvl_1.ivx != comfig_1.ivxfig2) { -#line 12964 "" - s_wsle(&io___794); -#line 12964 "" +#line 13118 "" + s_wsle(&io___803); +#line 13118 "" e_wsle(); -#line 12965 "" - s_wsle(&io___795); -#line 12965 "" +#line 13119 "" + s_wsle(&io___804); +#line 13119 "" do_lio(&c__9, &c__1, "Figures not allowed in >1 "\ "voice above first", (ftnlen)43); -#line 12965 "" +#line 13119 "" e_wsle(); -#line 12966 "" +#line 13120 "" s_stop("", (ftnlen)0); -#line 12967 "" +#line 13121 "" } -#line 12968 "" +#line 13122 "" ivf = 2; -#line 12969 "" +#line 13123 "" } -#line 12970 "" +#line 13124 "" nfig1 = comfig_1.nfigs[ivf - 1] + 1; -#line 12971 "" +#line 13125 "" getfig_(&comgrace_1.itoff[ivf + (nfig1 << 1) - 3], charq, lineq, &all_1.iccount, &all_1.isfig[ivf + ( all_1.nnl[commvl_1.ivx - 1] - 1 << 1) - 3], & @@ -30856,14 +31232,14 @@ L7: comfig_1.nfigs[ivf - 1], (ftnlen)1, (ftnlen)128, ( ftnlen)10); /* * 0,figq(ivf,nfig1),ivupfig(ivf,nfig1),nfigs(ivf)) */ -#line 12976 "" +#line 13130 "" goto L7; -#line 12977 "" +#line 13131 "" } else if (*(unsigned char *)charq == 'X') { /* Computing MAX */ -#line 12978 "" +#line 13132 "" i__2 = 1, i__4 = all_1.nnl[commvl_1.ivx - 1] - 1; -#line 12978 "" +#line 13132 "" getx_(lineq, &all_1.iccount, &all_1.irest[commvl_1.ivx + max(i__2,i__4) * 24 - 25], &comnotes_1.shifton, & comask_1.wheadpt, &all_1.iornq[commvl_1.ivx + @@ -30873,211 +31249,284 @@ L7: all_1.itsofar[commvl_1.ivx - 1], &ntup, &itup, & comnotes_1.nnodur, dotq, &ndoub, (ftnlen)128, ( ftnlen)1); -#line 12982 "" +#line 13136 "" goto L7; -#line 12983 "" +#line 13137 "" } else if (*(unsigned char *)charq == 'z') { /* Chord note in xtup. Goes with *prior* note. */ -#line 12987 "" +#line 13141 "" comnotes_1.notcrd = FALSE_; -#line 12988 "" +#line 13142 "" ++comtrill_1.ncrd; -#line 12989 "" +#line 13143 "" all_1.ipl[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] - 1) * 24 - 25] = bit_set(all_1.ipl[commvl_1.ivx + ( all_1.nnl[commvl_1.ivx - 1] - 1) * 24 - 25],10); -#line 12990 "" +#line 13144 "" numnum = 0; /* icrdat(ncrd) = ior(nnl(ivx)-1,ishft(ivx,8)) */ -#line 12992 "" +#line 13146 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = all_1.nnl[ commvl_1.ivx - 1] - 1; -#line 12993 "" +#line 13147 "" i__2 = commvl_1.ivx % 16; -#line 12993 "" +#line 13147 "" setbits_(&comtrill_1.icrdat[comtrill_1.ncrd - 1], &c__4, & c__8, &i__2); -#line 12994 "" +#line 13148 "" if (commvl_1.ivx >= 16) { -#line 12994 "" +#line 13148 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set( comtrill_1.icrdat[comtrill_1.ncrd - 1],28); -#line 12994 "" +#line 13148 "" } -#line 12995 "" +#line 13149 "" comtrill_1.icrdorn[comtrill_1.ncrd - 1] = 0; /* Get note name */ -#line 12999 "" +#line 13153 "" getchar_(lineq, &all_1.iccount, charq, (ftnlen)128, ( ftnlen)1); /* Get optional inputs */ -#line 13003 "" +#line 13157 "" L34: -#line 13003 "" +#line 13157 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, ( ftnlen)1); /* When chord note is done, will get ' ', making ndx=0, so go past this block */ -#line 13007 "" - ndx = i_indx("fsn+-<>12345678reic", durq, (ftnlen)19, ( +#line 13161 "" + ndx = i_indx("fsn+-<>12345678reicd", durq, (ftnlen)20, ( ftnlen)1); -#line 13008 "" +#line 13162 "" if (ndx > 0) { -#line 13009 "" +#line 13163 "" if (ndx <= 3) { -#line 13010 "" +#line 13164 "" if (! bit_test(comtrill_1.icrdat[comtrill_1.ncrd - 1],19)) { -#line 13011 "" +#line 13165 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set(comtrill_1.icrdat[ comtrill_1.ncrd - 1],19); -#line 13012 "" +#line 13166 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] |= ndx << 20; -#line 13013 "" +#line 13167 "" } else { -#line 13014 "" +#line 13168 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set(comtrill_1.icrdat[ comtrill_1.ncrd - 1],22); -#line 13015 "" +#line 13169 "" + } +#line 13170 "" + } else if (*(unsigned char *)durq == 'd') { + +/* Get dot on chord note in xtup. Assume +n+n */ + +#line 13174 "" + comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set( + comtrill_1.icrdat[comtrill_1.ncrd - 1],26) + ; +#line 13175 "" + getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, + (ftnlen)1); +#line 13176 "" + ++all_1.iccount; +#line 13177 "" + readnum_(lineq, &all_1.iccount, dumq, &fnum, ( + ftnlen)128, (ftnlen)1); +#line 13178 "" + if (*(unsigned char *)durq == '+') { +#line 13179 "" + r__1 = fnum * 10; +#line 13179 "" + comtrill_1.icrdot[comtrill_1.ncrd - 1] |= + i_nint(&r__1) + 64; +#line 13180 "" + } else { +#line 13181 "" + r__1 = fnum * 10; +#line 13181 "" + comtrill_1.icrdot[comtrill_1.ncrd - 1] |= + -i_nint(&r__1) + 64; +#line 13182 "" } -#line 13016 "" +#line 13183 "" + if (i_indx("+-", dumq, (ftnlen)2, (ftnlen)1) > 0) + { + +/* Vertical shift specified also */ + +#line 13187 "" + ++all_1.iccount; +#line 13188 "" + readnum_(lineq, &all_1.iccount, durq, &fnum, ( + ftnlen)128, (ftnlen)1); +#line 13189 "" + if (*(unsigned char *)dumq == '+') { +#line 13190 "" + r__1 = fnum * 10; +#line 13190 "" + ifnum = i_nint(&r__1) + 64; +#line 13191 "" + } else { +#line 13192 "" + r__1 = fnum * 10; +#line 13192 "" + ifnum = -i_nint(&r__1) + 64; +#line 13193 "" + } +#line 13194 "" + } else { +#line 13195 "" + ifnum = 64; +#line 13196 "" + } +#line 13197 "" + comtrill_1.icrdot[comtrill_1.ncrd - 1] |= ifnum << + 7; +#line 13198 "" + --all_1.iccount; +/* iccount = iccount+4 */ + + + +#line 13203 "" } else if (ndx == 19) { /* Set flags for cautionary accidental */ -#line 13020 "" +#line 13207 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set( comtrill_1.icrdat[comtrill_1.ncrd - 1],31) ; -#line 13021 "" +#line 13208 "" all_1.iornq[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] - 1) * 24 - 1] = bit_set(all_1.iornq[commvl_1.ivx + ( all_1.nnl[commvl_1.ivx - 1] - 1) * 24 - 1] ,31); -#line 13023 "" +#line 13210 "" } else if (ndx <= 7) { /* +/-/</> Check whether octave or accidental shift */ -#line 13027 "" +#line 13214 "" nactmp = 0; -#line 13028 "" +#line 13215 "" chkpm4ac_(lineq, &all_1.iccount, &nactmp, &moved, (ftnlen)128); -#line 13029 "" +#line 13216 "" if (moved) { /* Transfer accidental shift values */ -#line 13033 "" +#line 13220 "" i__2 = igetbits_(&nactmp, &c__6, &c__4); -#line 13033 "" +#line 13220 "" setbits_(&comtrill_1.icrdot[comtrill_1.ncrd - 1], &c__6, &c__14, &i__2); -#line 13035 "" +#line 13222 "" i__2 = igetbits_(&nactmp, &c__7, &c__10); -#line 13035 "" +#line 13222 "" setbits_(&comtrill_1.icrdot[comtrill_1.ncrd - 1], &c__7, &c__20, &i__2); -#line 13037 "" +#line 13224 "" } else { -#line 13038 "" +#line 13225 "" if (*(unsigned char *)durq == '+') { -#line 13039 "" +#line 13226 "" comnotes_1.lastlev += 7; -#line 13040 "" +#line 13227 "" } else if (*(unsigned char *)durq == '-') { -#line 13041 "" +#line 13228 "" comnotes_1.lastlev += -7; -#line 13042 "" +#line 13229 "" } -#line 13043 "" +#line 13230 "" } -#line 13044 "" +#line 13231 "" } else if (*(unsigned char *)durq == 'e') { -#line 13045 "" +#line 13232 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set( comtrill_1.icrdat[comtrill_1.ncrd - 1],23) ; -#line 13046 "" +#line 13233 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[ commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],27); -#line 13047 "" +#line 13234 "" } else if (*(unsigned char *)durq == 'r') { -#line 13048 "" +#line 13235 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set( comtrill_1.icrdat[comtrill_1.ncrd - 1],24) ; -#line 13049 "" +#line 13236 "" all_1.irest[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] - 1) * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + ( all_1.nnl[commvl_1.ivx - 1] - 1) * 24 - 25],20); -#line 13051 "" +#line 13238 "" } else if (*(unsigned char *)durq == 'i') { /* Midi-only accidental */ -#line 13055 "" +#line 13242 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set( comtrill_1.icrdat[comtrill_1.ncrd - 1],27) ; -#line 13056 "" +#line 13243 "" } else { /* must be a number, save it in ioct */ -#line 13060 "" +#line 13247 "" numnum = 1; -#line 13061 "" +#line 13248 "" ioct = ndx - 7; -#line 13062 "" +#line 13249 "" } -#line 13063 "" +#line 13250 "" goto L34; -#line 13064 "" +#line 13251 "" } -#line 13065 "" +#line 13252 "" if (numnum == 1) { -#line 13066 "" +#line 13253 "" comnotes_1.lastlev = ifnolev_(charq, &ioct, & cominsttrans_1.itransamt[ cominsttrans_1.instno[all_1.iv - 1] - 1], ( ftnlen)1); -#line 13067 "" +#line 13254 "" } else { -#line 13068 "" +#line 13255 "" comnotes_1.lastlev = comnotes_1.lastlev - 3 + ( ifnolev_(charq, &c__10, & cominsttrans_1.itransamt[ cominsttrans_1.instno[all_1.iv - 1] - 1], ( ftnlen)1) - comnotes_1.lastlev + 3) % 7; -#line 13070 "" +#line 13257 "" } -#line 13071 "" +#line 13258 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] |= comnotes_1.lastlev << 12; -#line 13072 "" +#line 13259 "" for (comnotes_1.npreslur = comnotes_1.npreslur; comnotes_1.npreslur >= 1; --comnotes_1.npreslur) { /* Set note level for preslur on chord note in xtup */ -#line 13076 "" +#line 13263 "" setbits_(&all_1.isdat2[all_1.nsdat - comnotes_1.npreslur], &c__7, &c__19, & comnotes_1.lastlev); @@ -31085,364 +31534,362 @@ L34: /* Following lines copied from loop for non-xtup, chord note, preslur */ /* Initially I assigned the slur(s) to next note, so fix. */ -#line 13081 "" +#line 13268 "" all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_clear(all_1.islur[ commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],0); -#line 13082 "" +#line 13269 "" all_1.islur[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] - 1) * 24 - 25] = bit_set(all_1.islur[ commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] - 1) * 24 - 25],0); -#line 13083 "" +#line 13270 "" all_1.isdat2[all_1.nsdat - comnotes_1.npreslur] = bit_set(all_1.isdat2[all_1.nsdat - comnotes_1.npreslur],0); -#line 13085 "" +#line 13272 "" i__2 = igetbits_(&all_1.isdat1[all_1.nsdat - comnotes_1.npreslur], &c__8, &c__3) - 1; -#line 13085 "" +#line 13272 "" setbits_(&all_1.isdat1[all_1.nsdat - comnotes_1.npreslur], &c__8, &c__3, &i__2); -#line 13087 "" +#line 13274 "" /* L41: */ -#line 13087 "" +#line 13274 "" } -#line 13088 "" +#line 13275 "" goto L7; -#line 13089 "" +#line 13276 "" } else if (*(unsigned char *)charq == '?') { /* Arpeggio */ -#line 13093 "" +#line 13280 "" if (bit_test(all_1.ipl[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] - 1) * 24 - 25],10)) { /* This is a chordal note. Set a bit in icrdat. But if *main* (spacing) note */ /* of chord, will not set icrdat(25), but iornq(27) */ -#line 13098 "" +#line 13285 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set( comtrill_1.icrdat[comtrill_1.ncrd - 1],25); -#line 13099 "" +#line 13286 "" } else { -#line 13100 "" +#line 13287 "" all_1.iornq[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] - 1) * 24 - 1] = bit_set(all_1.iornq[ commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] - 1) * 24 - 1],27); -#line 13101 "" +#line 13288 "" } /* Check for shift */ -#line 13105 "" +#line 13292 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 13106 "" +#line 13293 "" if (*(unsigned char *)durq == ' ') { -#line 13107 "" +#line 13294 "" --all_1.iccount; -#line 13108 "" +#line 13295 "" } else { /* durq must be "-" */ -#line 13112 "" +#line 13299 "" ++all_1.iccount; -#line 13113 "" +#line 13300 "" readnum_(lineq, &all_1.iccount, durq, &fnum, (ftnlen) 128, (ftnlen)1); -#line 13114 "" +#line 13301 "" --all_1.iccount; /* record the shift */ -#line 13118 "" +#line 13305 "" ++comarpshift_1.numarpshift; -#line 13119 "" +#line 13306 "" comarpshift_1.ivarpshift[comarpshift_1.numarpshift - 1] = commvl_1.ivx; -#line 13120 "" +#line 13307 "" comarpshift_1.iparpshift[comarpshift_1.numarpshift - 1] = all_1.nnl[commvl_1.ivx - 1] - 1; -#line 13121 "" +#line 13308 "" comarpshift_1.arpshift[comarpshift_1.numarpshift - 1] = fnum; -#line 13122 "" +#line 13309 "" } -#line 13123 "" +#line 13310 "" goto L7; -#line 13124 "" +#line 13311 "" } else if (*(unsigned char *)charq == 'D') { -#line 13125 "" +#line 13312 "" i__2 = all_1.nnl[commvl_1.ivx - 1] - 1; -#line 13125 "" +#line 13312 "" getdyn_(&commvl_1.ivx, &i__2, &all_1.irest[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] - 1) * 24 - 25], & all_1.iornq[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] - 1) * 24 - 1], lineq, & all_1.iccount, (ftnlen)128); -#line 13127 "" +#line 13314 "" goto L7; /* 140215 Allow clef change inside xtuplet. With normal code, came out one */ /* note too late, so try making it come earlier. */ -#line 13132 "" +#line 13319 "" } else if (*(unsigned char *)charq == 'C') { /* Clef change on next note. Set bits 11-15. Won't allow in 2nd line of music. */ -/* if (nnl(iv) .gt. 0) ncc(iv) = ncc(iv)+1 */ -#line 13137 "" +#line 13323 "" if (all_1.nnl[all_1.iv - 1] - 1 > 0) { -#line 13137 "" +#line 13323 "" ++comcc_1.ncc[all_1.iv - 1]; -#line 13137 "" +#line 13323 "" } /* 140218 Need to get time differently inside xtup, since itsofar doesn't get */ /* updated until after xtup is done */ -#line 13142 "" +#line 13328 "" nodurt = ifnodur_(&comnotes_1.nnodur, dotq, (ftnlen)1); -#line 13143 "" +#line 13329 "" comcc_1.tcc[all_1.iv + comcc_1.ncc[all_1.iv - 1] * 24 - 25] = (real) (all_1.itsofar[all_1.iv - 1] + ( integer) (nodurt * 1.f / ntup * (itup - 1))); -#line 13144 "" +#line 13330 "" isl = bit_set(all_1.islur[all_1.iv + all_1.nnl[all_1.iv - 1] * 24 - 25],11); -#line 13145 "" +#line 13331 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, ( ftnlen)1); /* Store clef number, or 7 if clef number = 9 (French violin clef) */ /* Computing MIN */ -#line 13149 "" +#line 13335 "" i__2 = numclef_(durq, (ftnlen)1); -#line 13149 "" +#line 13335 "" isl |= min(i__2,7) << 12; -#line 13150 "" +#line 13336 "" comcc_1.ncmidcc[all_1.iv + comcc_1.ncc[all_1.iv - 1] * 24 - 25] = ncmidf_(durq, (ftnlen)1); -#line 13151 "" +#line 13337 "" if (*(unsigned char *)durq == '8') { -#line 13152 "" +#line 13338 "" all_1.ipl[all_1.iv + all_1.nnl[all_1.iv - 1] * 24 - 25] = bit_set(all_1.ipl[all_1.iv + all_1.nnl[ all_1.iv - 1] * 24 - 25],2); -#line 13153 "" +#line 13339 "" cominsttrans_1.itransamt[cominsttrans_1.instno[ all_1.iv - 1] - 1] += 7; -#line 13154 "" +#line 13340 "" } /* Set marker on note with lowest voice # starting at same time. */ -#line 13158 "" +#line 13344 "" if (all_1.iv == 1) { -#line 13159 "" +#line 13345 "" isl = bit_set(isl,15); -#line 13160 "" +#line 13346 "" } else { -#line 13161 "" +#line 13347 "" i__2 = all_1.iv; -#line 13161 "" +#line 13347 "" for (iiv = 1; iiv <= i__2; ++iiv) { /* nnliiv = nnl(iiv) */ -#line 13163 "" +#line 13349 "" nnliiv = all_1.nnl[iiv - 1] - 1; -#line 13164 "" +#line 13350 "" if (iiv == all_1.iv) { -#line 13164 "" +#line 13350 "" ++nnliiv; -#line 13164 "" +#line 13350 "" } -#line 13165 "" +#line 13351 "" itother = 0; -#line 13166 "" +#line 13352 "" i__4 = nnliiv; -#line 13166 "" +#line 13352 "" for (iip = 1; iip <= i__4; ++iip) { -#line 13167 "" +#line 13353 "" if (itother < all_1.itsofar[all_1.iv - 1]) { -#line 13168 "" +#line 13354 "" itother += all_1.nodur[iiv + iip * 24 - 25]; -#line 13169 "" +#line 13355 "" goto L71; -#line 13170 "" +#line 13356 "" } else if (itother == all_1.itsofar[all_1.iv - 1]) { -#line 13171 "" +#line 13357 "" all_1.islur[iiv + iip * 24 - 25] = bit_set(all_1.islur[iiv + iip * 24 - 25],15); -#line 13172 "" +#line 13358 "" goto L72; -#line 13173 "" +#line 13359 "" } -#line 13174 "" +#line 13360 "" L71: -#line 13174 "" +#line 13360 "" ; -#line 13174 "" +#line 13360 "" } -#line 13175 "" +#line 13361 "" /* L70: */ -#line 13175 "" +#line 13361 "" } -#line 13176 "" +#line 13362 "" L72: -#line 13177 "" +#line 13363 "" ; -#line 13177 "" +#line 13363 "" } /* Need 'or' since may have set bit 15 in the above loop */ /* islur(iv,nnl(iv)+1) = ior(isl,islur(iv,nnl(iv)+1)) */ -#line 13182 "" +#line 13368 "" all_1.islur[all_1.iv + all_1.nnl[all_1.iv - 1] * 24 - 25] = isl | all_1.islur[all_1.iv + all_1.nnl[all_1.iv - 1] * 24 - 25]; -#line 13183 "" +#line 13369 "" goto L7; /* +++ */ -#line 13185 "" +#line 13371 "" } else if (*(unsigned char *)charq == ']') { /* Multiplicity up-down, must have '][ ' */ -#line 13189 "" +#line 13375 "" all_1.islur[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] - 1) * 24 - 25] = bit_set(all_1.islur[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] - 1) * 24 - 25],20) ; -#line 13190 "" +#line 13376 "" all_1.iccount += 2; -#line 13191 "" +#line 13377 "" goto L7; /* c+++ */ -#line 13193 "" +#line 13379 "" } /* End of loop for xtup options. If here, charq must be a (non-crd) note name. */ /* or rest */ -#line 13198 "" +#line 13384 "" if (*(unsigned char *)charq == 'r') { /* Rest in xtup */ -#line 13202 "" +#line 13388 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],0); -#line 13203 "" +#line 13389 "" i__2 = all_1.iccount; -#line 13203 "" +#line 13389 "" if (i_indx("+-b", lineq + i__2, (ftnlen)3, all_1.iccount + 1 - i__2) > 0) { -#line 13204 "" +#line 13390 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 13205 "" +#line 13391 "" if (*(unsigned char *)durq == 'b') { /* Blank rest in middle of xtup */ -#line 13209 "" +#line 13395 "" all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.islur[ commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],29); -#line 13210 "" +#line 13396 "" } else { /* Override height of embedded xtup rest */ -#line 13214 "" +#line 13400 "" ipm = i_indx("- +", durq, (ftnlen)3, (ftnlen)1) - 2; -#line 13215 "" +#line 13401 "" ++all_1.iccount; -#line 13216 "" +#line 13402 "" readnum_(lineq, &all_1.iccount, durq, &fnum, ( ftnlen)128, (ftnlen)1); -#line 13217 "" +#line 13403 "" all_1.nolev[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = ipm * i_nint(&fnum) + 100; -#line 13218 "" +#line 13404 "" --all_1.iccount; -#line 13219 "" +#line 13405 "" } -#line 13220 "" +#line 13406 "" } else if (commvl_1.ivx <= all_1.nv) { -#line 13221 "" +#line 13407 "" all_1.nolev[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = 0; -#line 13222 "" +#line 13408 "" } else { -#line 13223 "" +#line 13409 "" all_1.nolev[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = 2; -#line 13224 "" +#line 13410 "" } -/* end if */ -#line 13226 "" +#line 13411 "" } else { /* Counter for non-rests */ -#line 13230 "" +#line 13415 "" ++nnb; -#line 13231 "" +#line 13416 "" } -#line 13232 "" +#line 13417 "" comnotes_1.notcrd = TRUE_; -#line 13233 "" +#line 13418 "" L8: -#line 13233 "" +#line 13418 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 13234 "" +#line 13419 "" if (*(unsigned char *)durq != ' ') { -#line 13235 "" +#line 13420 "" if (i_indx("+-<>", durq, (ftnlen)4, (ftnlen)1) > 0) { /* Accidental horizontal shift */ -#line 13239 "" +#line 13424 "" chkpm4ac_(lineq, &all_1.iccount, &all_1.nacc[ commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25], &moved, (ftnlen)128); -#line 13240 "" +#line 13425 "" if (! moved) { -#line 13241 "" +#line 13426 "" if (*(unsigned char *)durq == '+') { -#line 13242 "" +#line 13427 "" comnotes_1.lastlev += 7; -#line 13243 "" +#line 13428 "" } else if (*(unsigned char *)durq == '-') { -#line 13244 "" +#line 13429 "" comnotes_1.lastlev += -7; -#line 13245 "" +#line 13430 "" } -#line 13246 "" +#line 13431 "" } -#line 13247 "" +#line 13432 "" } else if (i_indx("fsn", durq, (ftnlen)3, (ftnlen)1) > 0) { /* if (nacc(ivx,nnl(ivx)) .eq. 0) then */ /* May have set other bits earlier */ -#line 13251 "" +#line 13436 "" if (igetbits_(&all_1.nacc[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25], &c__2, &c__0) == 0) { @@ -31450,140 +31897,208 @@ L8: /* No accid set yet */ /* nacc(ivx,nnl(ivx)) = index('fsn',durq) */ -#line 13256 "" +#line 13441 "" all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] |= i_indx("fsn", durq, ( ftnlen)3, (ftnlen)1); -#line 13258 "" +#line 13443 "" } else { /* Symbol must be repeated, so it's a double */ -#line 13262 "" +#line 13447 "" all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.nacc[ commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],2); -#line 13263 "" +#line 13448 "" } -#line 13264 "" +#line 13449 "" } else if (*(unsigned char *)durq == 'i') { /* Set flag for midi-only accidental */ -#line 13268 "" +#line 13453 "" all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],17); -#line 13270 "" +#line 13455 "" } else if (*(unsigned char *)durq == 'c') { /* Set flags for cautionary accidental */ -#line 13274 "" +#line 13459 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[ commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],31); -#line 13275 "" +#line 13460 "" all_1.iornq[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 1] = bit_set(all_1.iornq[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 1],31); -#line 13276 "" +#line 13461 "" } else if (i_indx("ul", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Force stem direction for non-beamed xtup note */ -#line 13280 "" +#line 13465 "" all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.islur[ commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],30); -#line 13281 "" +#line 13466 "" if (*(unsigned char *)durq == 'u') { -#line 13281 "" +#line 13466 "" all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.islur[ commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],17); -#line 13281 "" +#line 13466 "" } -#line 13283 "" +#line 13468 "" } else if (*(unsigned char *)durq == 'e') { /* Left-shift main xtup note */ -#line 13287 "" +#line 13472 "" all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],8); -#line 13288 "" +#line 13473 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[ commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],27); -#line 13289 "" +#line 13474 "" } else if (*(unsigned char *)durq == 'r') { /* Right-shift main xtup note */ -#line 13293 "" +#line 13478 "" all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],9); -#line 13294 "" +#line 13479 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[ commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],20); -#line 13295 "" +#line 13480 "" } else if (i_indx("DF", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Double an xtup note to make an unequal xtup */ -#line 13299 "" +#line 13484 "" all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],18); -#line 13300 "" +#line 13485 "" if (*(unsigned char *)durq == 'F') { -#line 13300 "" +#line 13485 "" all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.nacc[ commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],19); -#line 13300 "" +#line 13485 "" } -#line 13302 "" +#line 13487 "" ++ndoub; -#line 13303 "" +#line 13488 "" } else if (*(unsigned char *)durq == 'd') { /* Dotted xtup note */ -#line 13307 "" - all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] - * 24 - 25] = bit_set(all_1.nacc[commvl_1.ivx - + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],27); -#line 13308 "" +/* if (btest(irest(ivx,nnl(ivx))-1,2)) then */ +#line 13493 "" + if (bit_test(all_1.irest[commvl_1.ivx + (all_1.nnl[ + commvl_1.ivx - 1] - 1) * 24 - 25],2)) { + +/* Move dot on 2nd note of 2-note tremolo */ + +#line 13497 "" + ++comcc_1.ndotmv[commvl_1.ivx - 1]; +#line 13498 "" + all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx + - 1] * 24 - 25] = bit_set(all_1.irest[ + commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] + * 24 - 25],19); +#line 13499 "" + g1etchar_(lineq, &all_1.iccount, durq, (ftnlen) + 128, (ftnlen)1); +/* Will be + or - */ +#line 13500 "" + ++all_1.iccount; +#line 13501 "" + readnum_(lineq, &all_1.iccount, dumq, & + comcc_1.updot[commvl_1.ivx + + comcc_1.ndotmv[commvl_1.ivx - 1] * 24 - + 25], (ftnlen)128, (ftnlen)1); +#line 13503 "" + if (*(unsigned char *)durq == '-') { +#line 13503 "" + comcc_1.updot[commvl_1.ivx + comcc_1.ndotmv[ + commvl_1.ivx - 1] * 24 - 25] = + -comcc_1.updot[commvl_1.ivx + + comcc_1.ndotmv[commvl_1.ivx - 1] * 24 + - 25]; +#line 13503 "" + } +#line 13505 "" + if (i_indx("+-", dumq, (ftnlen)2, (ftnlen)1) > 0) + { + +/* Vertical shift also */ + +#line 13509 "" + readnum_(lineq, &all_1.iccount, durq, & + comcc_1.rtdot[commvl_1.ivx + + comcc_1.ndotmv[commvl_1.ivx - 1] * 24 + - 25], (ftnlen)128, (ftnlen)1); +#line 13511 "" + if (*(unsigned char *)durq == '-') { +#line 13511 "" + comcc_1.rtdot[commvl_1.ivx + + comcc_1.ndotmv[commvl_1.ivx - 1] * + 24 - 25] = -comcc_1.rtdot[ + commvl_1.ivx + comcc_1.ndotmv[ + commvl_1.ivx - 1] * 24 - 25]; +#line 13511 "" + } +#line 13513 "" + } +#line 13514 "" + --all_1.iccount; +#line 13515 "" + } else { + +/* Dot for 3:1 pair of xtup notes */ + +#line 13519 "" + all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx + - 1] * 24 - 25] = bit_set(all_1.nacc[ + commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] + * 24 - 25],27); +#line 13520 "" + } +#line 13521 "" } else { /* Must be an octave number */ -#line 13312 "" +#line 13525 "" i__2 = *(unsigned char *)durq - 48; -#line 13312 "" +#line 13525 "" comnotes_1.lastlev = ifnolev_(charq, &i__2, & cominsttrans_1.itransamt[ cominsttrans_1.instno[all_1.iv - 1] - 1], ( ftnlen)1); -#line 13314 "" +#line 13527 "" } -#line 13315 "" +#line 13528 "" goto L8; -#line 13316 "" +#line 13529 "" } -#line 13317 "" +#line 13530 "" if (itup < ntup) { /* Last note is handled *after* flowing out of the xtup if block, but still */ @@ -31591,170 +32106,201 @@ L8: /* Could have problem here if rests & doubled notes are combined in xtup, */ /* since might exit the loop at the wrong place. Worry about it later. */ -#line 13324 "" +#line 13537 "" if (! bit_test(all_1.irest[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],0)) { -#line 13325 "" +#line 13538 "" comnotes_1.lastlev = comnotes_1.lastlev - 3 + ( ifnolev_(charq, &c__10, & cominsttrans_1.itransamt[ cominsttrans_1.instno[all_1.iv - 1] - 1], ( ftnlen)1) - comnotes_1.lastlev + 3) % 7; -#line 13327 "" +#line 13540 "" all_1.nolev[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = comnotes_1.lastlev; -#line 13328 "" +#line 13541 "" } -#line 13329 "" +#line 13542 "" all_1.nodur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = 0; -#line 13330 "" +#line 13543 "" for (comnotes_1.npreslur = comnotes_1.npreslur; comnotes_1.npreslur >= 1; --comnotes_1.npreslur) { /* Set note level for preslur on internal xtup note */ -#line 13334 "" +#line 13547 "" setbits_(&all_1.isdat2[all_1.nsdat - comnotes_1.npreslur], &c__7, &c__19, & comnotes_1.lastlev); -#line 13335 "" +#line 13548 "" /* L42: */ -#line 13335 "" +#line 13548 "" } -#line 13336 "" +#line 13549 "" } -#line 13337 "" +#line 13550 "" if (itup == ntup - ndoub) { -#line 13337 "" +#line 13550 "" goto L12; -#line 13337 "" +#line 13550 "" } -#line 13338 "" +#line 13551 "" /* L6: */ -#line 13338 "" +#line 13551 "" } -#line 13339 "" +#line 13552 "" L12: -#line 13340 "" +#line 13553 "" if (comget_1.ornrpt) { -#line 13341 "" +#line 13554 "" all_1.iornq[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 1] |= all_1.iornq[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] - 1) * 24 - 1] & 10026991; -#line 13343 "" +#line 13556 "" if ((all_1.iornq[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 1] & 32896) > 0) { /* This is a trill (bit 7 or 15) so must dup the parameters */ -#line 13347 "" +#line 13560 "" ++comtrill_1.ntrill; -#line 13348 "" +#line 13561 "" comtrill_1.ivtrill[comtrill_1.ntrill - 1] = commvl_1.ivx; -#line 13349 "" +#line 13562 "" comtrill_1.iptrill[comtrill_1.ntrill - 1] = all_1.nnl[ commvl_1.ivx - 1]; -#line 13350 "" +#line 13563 "" comtrill_1.xnsktr[comtrill_1.ntrill - 1] = comtrill_1.xnsktr[comtrill_1.ntrill - 2]; -#line 13351 "" +#line 13564 "" } -#line 13352 "" +#line 13565 "" } /* End of if-block for xtuplet input */ -#line 13356 "" +#line 13569 "" } else if (*(unsigned char *)durq == 'm') { /* Multi-bar rest: next 1 or two digits are # of bars. */ /* For some purposes, pretend its one bar only */ -#line 13361 "" +#line 13574 "" all_1.nodur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = all_1.lenbar; -#line 13362 "" +#line 13575 "" comgrace_1.ibarmbr = all_1.nbars + 1; -#line 13363 "" +#line 13576 "" comgrace_1.mbrest = 0; -#line 13364 "" +#line 13577 "" comgrace_1.xb4mbr = 0.f; -#line 13365 "" +#line 13578 "" L20: -#line 13365 "" +#line 13578 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 13366 "" +#line 13579 "" if (*(unsigned char *)durq >= 48 && *(unsigned char *)durq <= 57) { -#line 13367 "" +#line 13580 "" comgrace_1.mbrest = comgrace_1.mbrest * 10 + *(unsigned char * )durq - 48; -#line 13368 "" +#line 13581 "" goto L20; -#line 13369 "" +#line 13582 "" + } + +/* durq will either be blank or 'n' */ +#line 13585 "" + if (*(unsigned char *)durq == 'n') { + +/* Get new height */ + +#line 13589 "" + iplmi = 1; +#line 13590 "" + g1etchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1) + ; +#line 13591 "" + if (*(unsigned char *)durq == '-') { +#line 13592 "" + iplmi = -1; +#line 13593 "" + ++all_1.iccount; +#line 13594 "" + } +#line 13595 "" + readnum_(lineq, &all_1.iccount, durq, &hgt, (ftnlen)128, ( + ftnlen)1); +#line 13596 "" + r__1 = iplmi * hgt; +#line 13596 "" + comignorenats_1.mbrhgt = i_nint(&r__1); +#line 13597 "" + comignorenats_1.newmbrhgt = TRUE_; +#line 13598 "" } -#line 13370 "" +#line 13599 "" } else if (i_indx("ul", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Set stem flipper */ -#line 13374 "" +#line 13603 "" all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.islur[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],30); -#line 13375 "" +#line 13604 "" if (*(unsigned char *)durq == 'u') { -#line 13375 "" +#line 13604 "" all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.islur[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],17); -#line 13375 "" +#line 13604 "" } -#line 13377 "" +#line 13606 "" goto L2; -#line 13378 "" +#line 13607 "" } else if (*(unsigned char *)durq == 'a') { /* "Alone", i.e., prohibit beam */ -#line 13382 "" +#line 13611 "" all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.islur[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],18); -#line 13383 "" +#line 13612 "" goto L2; -#line 13384 "" +#line 13613 "" } else if (*(unsigned char *)durq == 'r') { /* Right offset by one notehead */ -#line 13388 "" +#line 13617 "" all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],9); -#line 13389 "" +#line 13618 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],20); -#line 13390 "" +#line 13619 "" goto L2; -#line 13391 "" +#line 13620 "" } else if (*(unsigned char *)durq == 'e') { /* Left offset by one notehead */ -#line 13395 "" +#line 13624 "" all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],8); -#line 13396 "" +#line 13625 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],27); -#line 13397 "" +#line 13626 "" goto L2; -#line 13398 "" +#line 13627 "" } else if (i_indx("LS", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Stemlength change. Get dstemlen in \internotes. Allowable values are -4 to 27.5 */ @@ -31762,428 +32308,427 @@ L20: /* interbeams = internotes*2/3. */ -#line 13405 "" +#line 13634 "" isign = 1; -#line 13406 "" +#line 13635 "" if (*(unsigned char *)durq == 'S') { -#line 13406 "" +#line 13635 "" isign = -1; -#line 13406 "" +#line 13635 "" } -#line 13407 "" +#line 13636 "" all_1.mult[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.mult[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],27); -#line 13408 "" +#line 13637 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 13409 "" +#line 13638 "" if (*(unsigned char *)durq == ':') { /* End stickyS. Grab data now from prior note, since we have to shut off stickyS. */ -#line 13413 "" +#line 13642 "" i__1 = igetbits_(&all_1.mult[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] - 1) * 24 - 25], &c__6, &c__10); -#line 13413 "" +#line 13642 "" setbits_(&all_1.mult[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25], &c__6, &c__10, &i__1); -#line 13415 "" +#line 13644 "" comget_1.stickys = FALSE_; -#line 13416 "" +#line 13645 "" goto L2; -#line 13417 "" +#line 13646 "" } /* If durq .ne. ':' then iccount is now on the start of the number */ -#line 13421 "" +#line 13650 "" readnum_(lineq, &all_1.iccount, durq, &dum, (ftnlen)128, (ftnlen) 1); -#line 13422 "" +#line 13651 "" dum = isign * dum; -#line 13423 "" +#line 13652 "" r__1 = (dum + 4.f) * 2; -#line 13423 "" +#line 13652 "" i__1 = i_nint(&r__1); -#line 13423 "" +#line 13652 "" setbits_(&all_1.mult[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25], &c__6, &c__10, &i__1); -#line 13424 "" +#line 13653 "" if (*(unsigned char *)durq == ':') { -#line 13425 "" +#line 13654 "" comget_1.stickys = TRUE_; -#line 13426 "" +#line 13655 "" } else { -#line 13427 "" +#line 13656 "" --all_1.iccount; -#line 13428 "" +#line 13657 "" } -#line 13429 "" +#line 13658 "" goto L2; -#line 13430 "" +#line 13659 "" } else if (*(unsigned char *)durq == ',') { /* 2:1 pattern */ -#line 13434 "" +#line 13663 "" idotform = 3; /* Now flow to duration setting, as if durq=' ' */ -#line 13438 "" +#line 13667 "" } else if (*(unsigned char *)durq == '.') { /* Dotted pattern. Close out note. Mult time by 3/4. */ /* Set time for next note to 1/4. Start the note. */ -#line 13443 "" +#line 13672 "" idotform = 1; -#line 13444 "" +#line 13673 "" } else if (*(unsigned char *)durq == 'o') { /* Suppress rest centering */ -#line 13448 "" +#line 13677 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],25); -#line 13449 "" +#line 13678 "" goto L2; -#line 13450 "" +#line 13679 "" } else if (*(unsigned char *)durq == 'L') { /* With keyboard rest option, look left */ /* iornq(ivx,nnl(ivx)) = ibset(iornq(ivx,nnl(ivx)),30) */ -#line 13455 "" +#line 13684 "" all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],1); -#line 13456 "" +#line 13685 "" goto L2; -#line 13457 "" +#line 13686 "" } else if (i_indx("DF", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Double note for xtup. Must check here in case "D" came before "x" or on */ /* last note of xtup. Need to flag it in pmxa since affects horiz. spacing. */ -#line 13462 "" +#line 13691 "" all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],18); -#line 13463 "" +#line 13692 "" if (*(unsigned char *)durq == 'F') { -#line 13463 "" +#line 13692 "" all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.nacc[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],19); -#line 13463 "" +#line 13692 "" } -#line 13465 "" +#line 13694 "" goto L2; -#line 13466 "" +#line 13695 "" } else if (*(unsigned char *)durq == 'A') { /* Accidental option */ -#line 13470 "" +#line 13699 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 13472 "" +#line 13701 "" if (*(unsigned char *)durq == 'o') { /* Ordered accidentals in a chord. Mark the main note. */ -#line 13476 "" +#line 13705 "" all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.nacc[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],28); -#line 13477 "" +#line 13706 "" } else { /* Only other possibility is +-<> . Set tag, reduce iccount and loop to get #'s */ -#line 13481 "" +#line 13710 "" all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.nacc[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],29); -#line 13482 "" +#line 13711 "" --all_1.iccount; -#line 13483 "" +#line 13712 "" } -#line 13484 "" +#line 13713 "" goto L2; -#line 13485 "" +#line 13714 "" } else if (*(unsigned char *)durq == 'T') { -#line 13486 "" +#line 13715 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 13487 "" +#line 13716 "" multtrem = i_indx("1234", durq, (ftnlen)4, (ftnlen)1); -#line 13488 "" +#line 13717 "" if (multtrem == 0) { -#line 13489 "" +#line 13718 "" --all_1.iccount; -#line 13490 "" +#line 13719 "" multtrem = 1; -#line 13491 "" +#line 13720 "" } -#line 13492 "" +#line 13721 "" all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],4); -#line 13493 "" +#line 13722 "" i__1 = multtrem - 1; -#line 13493 "" +#line 13722 "" setbits_(&all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25], &c__2, &c__5, &i__1); -#line 13494 "" +#line 13723 "" goto L2; -#line 13495 "" +#line 13724 "" } else if (*(unsigned char *)durq != ' ') { -#line 13496 "" - s_wsle(&io___808); -#line 13496 "" +#line 13725 "" + s_wsle(&io___820); +#line 13725 "" do_lio(&c__9, &c__1, "Illegal character in note: ", (ftnlen)27); -#line 13496 "" +#line 13725 "" do_lio(&c__9, &c__1, durq, (ftnlen)1); -#line 13496 "" +#line 13725 "" do_lio(&c__9, &c__1, ", ivx,nn:", (ftnlen)9); -#line 13496 "" +#line 13725 "" do_lio(&c__3, &c__1, (char *)&commvl_1.ivx, (ftnlen)sizeof( integer)); -#line 13496 "" +#line 13725 "" do_lio(&c__3, &c__1, (char *)&all_1.nnl[commvl_1.ivx - 1], ( ftnlen)sizeof(integer)); -#line 13496 "" +#line 13725 "" e_wsle(); -#line 13498 "" +#line 13727 "" stop1_(); -#line 13499 "" +#line 13728 "" } /* Done with note/rest options. Set level and duration. */ -#line 13503 "" +#line 13732 "" if (! bit_test(all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],0)) { -#line 13504 "" +#line 13733 "" if (numnum == 2) { -#line 13505 "" +#line 13734 "" comnotes_1.lastlev = ifnolev_(charq, &ioct, & cominsttrans_1.itransamt[cominsttrans_1.instno[ all_1.iv - 1] - 1], (ftnlen)1); -#line 13506 "" +#line 13735 "" all_1.nolev[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = comnotes_1.lastlev; -#line 13507 "" +#line 13736 "" } else { -#line 13508 "" +#line 13737 "" comnotes_1.lastlev = comnotes_1.lastlev - 3 + (ifnolev_(charq, &c__10, &cominsttrans_1.itransamt[ cominsttrans_1.instno[all_1.iv - 1] - 1], (ftnlen)1) - comnotes_1.lastlev + 3) % 7; -#line 13510 "" +#line 13739 "" all_1.nolev[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = comnotes_1.lastlev; -#line 13511 "" +#line 13740 "" } -#line 13512 "" +#line 13741 "" for (comnotes_1.npreslur = comnotes_1.npreslur; comnotes_1.npreslur >= 1; --comnotes_1.npreslur) { /* Set level for preslur on normal note, non-chord */ -#line 13516 "" +#line 13745 "" setbits_(&all_1.isdat2[all_1.nsdat - comnotes_1.npreslur], & c__7, &c__19, &comnotes_1.lastlev); -#line 13517 "" +#line 13746 "" /* L43: */ -#line 13517 "" +#line 13746 "" } /* Only matters if last note, non-rest of xtuplet */ -#line 13521 "" +#line 13750 "" ++nnb; -#line 13522 "" +#line 13751 "" } /* Set flag for unbeamed xtup if it just has 1 note */ -#line 13526 "" +#line 13755 "" if (inxtup && nnb == 1) { -/* ??? islur(ivx,note1xtup) = ibset(islur(ivx,note1xtup),19) */ -#line 13528 "" +#line 13756 "" all_1.islur[commvl_1.ivx + note1xtup * 24 - 25] = bit_set( all_1.islur[commvl_1.ivx + note1xtup * 24 - 25],18); -#line 13529 "" +#line 13757 "" } -#line 13530 "" +#line 13758 "" if (idotform > 0) { -#line 13531 "" +#line 13759 "" if (idotform == 1) { -#line 13532 "" +#line 13760 "" all_1.nodur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = ifnodur_(&comnotes_1.nnodur, dotq, (ftnlen)1) * 3 / 2; -#line 13533 "" +#line 13761 "" } else if (idotform == 2) { -#line 13534 "" +#line 13762 "" all_1.nodur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = all_1.nodur[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] - 1) * 24 - 25] / 3; -#line 13535 "" +#line 13763 "" } else if (idotform == 3) { -#line 13536 "" +#line 13764 "" all_1.nodur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = ifnodur_(&comnotes_1.nnodur, dotq, (ftnlen)1); -#line 13537 "" +#line 13765 "" } else if (idotform == 4) { -#line 13538 "" +#line 13766 "" all_1.nodur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = all_1.nodur[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] - 1) * 24 - 25] / 2; -#line 13539 "" +#line 13767 "" } -#line 13540 "" +#line 13768 "" } else if (bit_test(all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],19)) { /* Set duration of full-bar rest as pause */ -#line 13544 "" +#line 13772 "" all_1.nodur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = all_1.lenbar; /* Use a one-line function to set nnodur. It gives inverse of ifnodur. */ -#line 13548 "" +#line 13776 "" i__1 = (integer) (log(all_1.lenbar + .1f) / .69315f) + 48; -#line 13548 "" +#line 13776 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 13548 "" +#line 13776 "" comnotes_1.nnodur = i_indx("62514x0x37", ch__1, (ftnlen)10, ( ftnlen)1) - 1; -#line 13550 "" +#line 13778 "" } else if (comgrace_1.ibarmbr != all_1.nbars + 1) { -#line 13551 "" +#line 13779 "" all_1.nodur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = ifnodur_(&comnotes_1.nnodur, dotq, (ftnlen)1); -#line 13552 "" +#line 13780 "" if (bit_test(all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],3)) { -#line 13552 "" +#line 13780 "" all_1.nodur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = all_1.nodur[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25] * 7 / 6; -#line 13552 "" +#line 13780 "" } -#line 13554 "" +#line 13782 "" } -#line 13555 "" +#line 13783 "" if (comnotes_1.shifton && ! bit_test(all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],16)) { /* Shift is on, and this is not first shifted note. Check for duration change */ -#line 13559 "" +#line 13787 "" if (all_1.nodur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] != all_1.nodur[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] - 1) * 24 - 25]) { /* Must stop and restart the offset. */ -#line 13563 "" +#line 13791 "" all_1.irest[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] - 1) * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + ( all_1.nnl[commvl_1.ivx - 1] - 1) * 24 - 25],17); -#line 13564 "" +#line 13792 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],16); -#line 13565 "" +#line 13793 "" ++comudsp_1.nudoff[commvl_1.ivx - 1]; -#line 13566 "" +#line 13794 "" comudsp_1.udoff[commvl_1.ivx + comudsp_1.nudoff[commvl_1.ivx - 1] * 24 - 25] = comudsp_1.udoff[commvl_1.ivx + ( comudsp_1.nudoff[commvl_1.ivx - 1] - 1) * 24 - 25]; -#line 13567 "" +#line 13795 "" } -#line 13568 "" +#line 13796 "" } -#line 13569 "" +#line 13797 "" all_1.itsofar[commvl_1.ivx - 1] += all_1.nodur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25]; -#line 13570 "" +#line 13798 "" if (comfb_1.autofbon && comfb_1.tautofb > comtol_1.tol && comget_1.fbon) { /* Check to see if need to terminate auto forced beam */ -#line 13574 "" +#line 13802 "" r__1 = all_1.itsofar[commvl_1.ivx - 1] - comfb_1.t1autofb; -#line 13574 "" +#line 13802 "" if (r_mod(&r__1, &comfb_1.tautofb) < comtol_1.tol) { /* Terminate autofb */ -#line 13578 "" +#line 13806 "" comfb_1.t2fb[commvl_1.ivx + comfb_1.nfb[commvl_1.ivx - 1] * 24 - 25] = (real) all_1.itsofar[commvl_1.ivx - 1]; -#line 13579 "" +#line 13807 "" comget_1.fbon = FALSE_; -#line 13580 "" +#line 13808 "" } -#line 13581 "" +#line 13809 "" } -#line 13582 "" +#line 13810 "" if ((all_1.itsofar[commvl_1.ivx - 1] - all_1.lenb0) % all_1.lenbar == 0) { /* Finished a bar */ -#line 13586 "" +#line 13814 "" ++all_1.nbars; -#line 13587 "" +#line 13815 "" all_1.nib[commvl_1.ivx + all_1.nbars * 24 - 25] = all_1.nnl[ commvl_1.ivx - 1]; -#line 13588 "" +#line 13816 "" if (all_1.firstgulp && all_1.lenb0 != 0 && all_1.nbars == 1) { /* Just finished the pickup bar for this voice. */ -#line 13592 "" +#line 13820 "" all_1.lenbar = all_1.lenb1; -#line 13593 "" +#line 13821 "" } -#line 13594 "" +#line 13822 "" } -#line 13595 "" +#line 13823 "" if (idotform == 1) { -#line 13596 "" +#line 13824 "" getchar_(lineq, &all_1.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 13597 "" +#line 13825 "" idotform = 2; -#line 13598 "" +#line 13826 "" numnum = 1; -#line 13599 "" +#line 13827 "" goto L28; -#line 13600 "" +#line 13828 "" } else if (idotform == 3) { -#line 13601 "" +#line 13829 "" getchar_(lineq, &all_1.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 13602 "" +#line 13830 "" idotform = 4; -#line 13603 "" +#line 13831 "" numnum = 1; -#line 13604 "" +#line 13832 "" goto L28; -#line 13605 "" +#line 13833 "" } /* End of sub block for note-rest */ -#line 13609 "" +#line 13837 "" } else if (*(unsigned char *)charq == 'z') { /* Chord note. Must have note name, may have octave#,+,-,s,f,n,d */ @@ -32215,331 +32760,331 @@ L20: /* Bits in icrdorn are same as in iornq, even tho most orns won't go in crds. */ -#line 13640 "" +#line 13868 "" ++comtrill_1.ncrd; -#line 13641 "" +#line 13869 "" all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],10); -#line 13642 "" +#line 13870 "" numnum = 0; /* icrdat(ncrd) = ior(nnl(ivx)-1,ishft(ivx,8)) */ -#line 13644 "" +#line 13872 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = all_1.nnl[commvl_1.ivx - 1]; -#line 13645 "" +#line 13873 "" i__1 = commvl_1.ivx % 16; -#line 13645 "" +#line 13873 "" setbits_(&comtrill_1.icrdat[comtrill_1.ncrd - 1], &c__4, &c__8, &i__1) ; -#line 13646 "" +#line 13874 "" if (commvl_1.ivx >= 16) { -#line 13646 "" +#line 13874 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set( comtrill_1.icrdat[comtrill_1.ncrd - 1],28); -#line 13646 "" +#line 13874 "" } -#line 13647 "" +#line 13875 "" comtrill_1.icrdot[comtrill_1.ncrd - 1] = 0; -#line 13648 "" +#line 13876 "" comtrill_1.icrdorn[comtrill_1.ncrd - 1] = 0; /* Get note name */ -#line 13652 "" +#line 13880 "" getchar_(lineq, &all_1.iccount, charq, (ftnlen)128, (ftnlen)1); /* Get optional inputs */ -#line 13656 "" +#line 13884 "" L25: -#line 13656 "" +#line 13884 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); /* ndx = index('fsn+-<>12345678rediA',durq) */ -#line 13658 "" +#line 13886 "" ndx = i_indx("fsn+-<>12345678rediAc", durq, (ftnlen)21, (ftnlen)1); -#line 13659 "" +#line 13887 "" if (ndx == 20) { /* Expect +|-|<|> , set tag, loop */ -#line 13663 "" +#line 13891 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set( comtrill_1.icrdat[comtrill_1.ncrd - 1],29); -#line 13664 "" +#line 13892 "" goto L25; -#line 13665 "" +#line 13893 "" } else if (ndx > 0) { -#line 13666 "" +#line 13894 "" if (ndx <= 3) { -#line 13667 "" +#line 13895 "" if (! bit_test(comtrill_1.icrdat[comtrill_1.ncrd - 1],19)) { -#line 13668 "" +#line 13896 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set( comtrill_1.icrdat[comtrill_1.ncrd - 1],19); -#line 13669 "" +#line 13897 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] |= ndx << 20; -#line 13670 "" +#line 13898 "" } else { -#line 13671 "" +#line 13899 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set( comtrill_1.icrdat[comtrill_1.ncrd - 1],22); -#line 13672 "" +#line 13900 "" } -#line 13673 "" +#line 13901 "" } else if (ndx == 21) { /* Set flags for cautionary accidental */ -#line 13677 "" +#line 13905 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set( comtrill_1.icrdat[comtrill_1.ncrd - 1],31); -#line 13678 "" +#line 13906 "" all_1.iornq[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 1] = bit_set(all_1.iornq[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 1],31); -#line 13679 "" +#line 13907 "" } else if (ndx <= 7) { /* +/-/</> Check whether octave or accidental shift */ -#line 13683 "" +#line 13911 "" nactmp = 0; -#line 13684 "" +#line 13912 "" chkpm4ac_(lineq, &all_1.iccount, &nactmp, &moved, (ftnlen)128) ; -#line 13685 "" +#line 13913 "" if (moved) { /* Transfer accidental shift values */ -#line 13689 "" +#line 13917 "" i__1 = igetbits_(&nactmp, &c__6, &c__4); -#line 13689 "" +#line 13917 "" setbits_(&comtrill_1.icrdot[comtrill_1.ncrd - 1], &c__6, & c__14, &i__1); -#line 13690 "" +#line 13918 "" i__1 = igetbits_(&nactmp, &c__7, &c__10); -#line 13690 "" +#line 13918 "" setbits_(&comtrill_1.icrdot[comtrill_1.ncrd - 1], &c__7, & c__20, &i__1); -#line 13691 "" +#line 13919 "" } else { -#line 13692 "" +#line 13920 "" if (*(unsigned char *)durq == '+') { -#line 13693 "" +#line 13921 "" comnotes_1.lastlev += 7; -#line 13694 "" +#line 13922 "" } else if (*(unsigned char *)durq == '-') { -#line 13695 "" +#line 13923 "" comnotes_1.lastlev += -7; -#line 13696 "" +#line 13924 "" } -#line 13697 "" +#line 13925 "" } -#line 13698 "" +#line 13926 "" } else if (*(unsigned char *)durq == 'e') { -#line 13699 "" +#line 13927 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set( comtrill_1.icrdat[comtrill_1.ncrd - 1],23); -#line 13700 "" +#line 13928 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],27); -#line 13701 "" +#line 13929 "" } else if (*(unsigned char *)durq == 'r') { -#line 13702 "" +#line 13930 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set( comtrill_1.icrdat[comtrill_1.ncrd - 1],24); -#line 13703 "" +#line 13931 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],20); -#line 13704 "" +#line 13932 "" } else if (*(unsigned char *)durq == 'i') { /* Midi-only accidental on chord note */ -#line 13708 "" +#line 13936 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set( comtrill_1.icrdat[comtrill_1.ncrd - 1],27); -#line 13709 "" +#line 13937 "" } else if (*(unsigned char *)durq == 'd') { /* Must keep 'd' optional (backward compatibility), unless it is moved! */ -#line 13713 "" +#line 13941 "" i__1 = all_1.iccount; -#line 13713 "" +#line 13941 "" if (i_indx("+-", lineq + i__1, (ftnlen)2, all_1.iccount + 1 - i__1) > 0) { /* move a dot, unless next char is not part of a number */ -#line 13717 "" +#line 13945 "" i__1 = all_1.iccount + 1; -#line 13717 "" +#line 13945 "" if (i_indx("0123456789.", lineq + i__1, (ftnlen)11, all_1.iccount + 2 - i__1) == 0) { -#line 13717 "" +#line 13945 "" goto L25; -#line 13717 "" +#line 13945 "" } -#line 13719 "" +#line 13947 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set( comtrill_1.icrdat[comtrill_1.ncrd - 1],26); -#line 13720 "" +#line 13948 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 13721 "" +#line 13949 "" ++all_1.iccount; -#line 13722 "" +#line 13950 "" readnum_(lineq, &all_1.iccount, dumq, &fnum, (ftnlen)128, (ftnlen)1); -#line 13723 "" +#line 13951 "" if (*(unsigned char *)durq == '+') { -#line 13724 "" +#line 13952 "" r__1 = fnum * 10; -#line 13724 "" +#line 13952 "" comtrill_1.icrdot[comtrill_1.ncrd - 1] |= i_nint(& r__1) + 64; -#line 13725 "" +#line 13953 "" } else { -#line 13726 "" +#line 13954 "" r__1 = fnum * 10; -#line 13726 "" +#line 13954 "" comtrill_1.icrdot[comtrill_1.ncrd - 1] |= -i_nint(& r__1) + 64; -#line 13727 "" +#line 13955 "" } -#line 13728 "" +#line 13956 "" if (i_indx("+-", dumq, (ftnlen)2, (ftnlen)1) > 0) { /* Vertical shift specified also */ -#line 13732 "" +#line 13960 "" ++all_1.iccount; -#line 13733 "" +#line 13961 "" readnum_(lineq, &all_1.iccount, durq, &fnum, (ftnlen) 128, (ftnlen)1); -#line 13734 "" +#line 13962 "" if (*(unsigned char *)dumq == '+') { -#line 13735 "" +#line 13963 "" r__1 = fnum * 10; -#line 13735 "" +#line 13963 "" ifnum = i_nint(&r__1) + 64; -#line 13736 "" +#line 13964 "" } else { -#line 13737 "" +#line 13965 "" r__1 = fnum * 10; -#line 13737 "" +#line 13965 "" ifnum = -i_nint(&r__1) + 64; -#line 13738 "" +#line 13966 "" } -#line 13739 "" +#line 13967 "" } else { -#line 13740 "" +#line 13968 "" ifnum = 64; -#line 13741 "" +#line 13969 "" } -#line 13742 "" +#line 13970 "" comtrill_1.icrdot[comtrill_1.ncrd - 1] |= ifnum << 7; -#line 13743 "" +#line 13971 "" --all_1.iccount; -#line 13744 "" +#line 13972 "" } -#line 13745 "" +#line 13973 "" } else { /* must be a single digit, save it in ioct */ -#line 13749 "" +#line 13977 "" numnum = 1; -#line 13750 "" +#line 13978 "" ioct = ndx - 7; -#line 13751 "" +#line 13979 "" } -#line 13752 "" +#line 13980 "" goto L25; -#line 13753 "" +#line 13981 "" } -#line 13754 "" +#line 13982 "" if (numnum == 1) { -#line 13755 "" +#line 13983 "" comnotes_1.lastlev = ifnolev_(charq, &ioct, & cominsttrans_1.itransamt[cominsttrans_1.instno[all_1.iv - 1] - 1], (ftnlen)1); -#line 13756 "" +#line 13984 "" } else { -#line 13757 "" +#line 13985 "" comnotes_1.lastlev = comnotes_1.lastlev - 3 + (ifnolev_(charq, & c__10, &cominsttrans_1.itransamt[cominsttrans_1.instno[ all_1.iv - 1] - 1], (ftnlen)1) - comnotes_1.lastlev + 3) % 7; -#line 13759 "" +#line 13987 "" } -#line 13760 "" +#line 13988 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] |= comnotes_1.lastlev << 12; -#line 13761 "" +#line 13989 "" for (comnotes_1.npreslur = comnotes_1.npreslur; comnotes_1.npreslur >= 1; --comnotes_1.npreslur) { -#line 13762 "" +#line 13990 "" setbits_(&all_1.isdat2[all_1.nsdat - comnotes_1.npreslur], &c__7, &c__19, &comnotes_1.lastlev); /* Set level for chord note. */ /* Initially I assigned the slur(s) to next note, so fix. */ -#line 13767 "" +#line 13995 "" all_1.islur[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 25] = bit_clear(all_1.islur[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] + 1) * 24 - 25],0); -#line 13768 "" +#line 13996 "" all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.islur[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],0); -#line 13769 "" +#line 13997 "" all_1.isdat2[all_1.nsdat - comnotes_1.npreslur] = bit_set( all_1.isdat2[all_1.nsdat - comnotes_1.npreslur],0); -#line 13770 "" +#line 13998 "" i__1 = igetbits_(&all_1.isdat1[all_1.nsdat - comnotes_1.npreslur], &c__8, &c__3) - 1; -#line 13770 "" +#line 13998 "" setbits_(&all_1.isdat1[all_1.nsdat - comnotes_1.npreslur], &c__8, &c__3, &i__1); -#line 13772 "" +#line 14000 "" /* L44: */ -#line 13772 "" +#line 14000 "" } -#line 13773 "" +#line 14001 "" if (comnotes_1.notcrd) { /* This is the first chord note in this chord. */ /* Computing MIN */ -#line 13777 "" +#line 14005 "" i__1 = all_1.nolev[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25]; -#line 13777 "" +#line 14005 "" comtrill_1.minlev = min(i__1,comnotes_1.lastlev); /* Computing MAX */ -#line 13778 "" +#line 14006 "" i__1 = all_1.nolev[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25]; -#line 13778 "" +#line 14006 "" comtrill_1.maxlev = max(i__1,comnotes_1.lastlev); -#line 13779 "" +#line 14007 "" } else { -#line 13780 "" +#line 14008 "" comtrill_1.minlev = min(comtrill_1.minlev,comnotes_1.lastlev); -#line 13781 "" +#line 14009 "" comtrill_1.maxlev = max(comtrill_1.maxlev,comnotes_1.lastlev); -#line 13782 "" +#line 14010 "" } -#line 13783 "" +#line 14011 "" comnotes_1.notcrd = FALSE_; -#line 13784 "" +#line 14012 "" } else if (*(unsigned char *)charq == 'G') { -#line 13785 "" +#line 14013 "" getgrace_(&commvl_1.ivx, all_1.nnl, lineq, &all_1.iccount, all_1.islur, all_1.iornq, all_1.ipl, comnotes_1.ndlev, & comnotes_1.lastlev, &all_1.iv, &all_1.nv, (ftnlen)128); @@ -32557,228 +33102,228 @@ L25: /* These data MUST precede note name of first note */ /* nolevg, naccg: lists of levels and accid's, indexed as described above. */ -#line 13801 "" +#line 14029 "" } else if (*(unsigned char *)charq == *(unsigned char *)all_1.sq) { /* Literal TeX string */ -#line 13805 "" +#line 14033 "" i__1 = all_1.nnl[commvl_1.ivx - 1] + 1; -#line 13805 "" +#line 14033 "" littex_(all_1.islur, &i__1, &commvl_1.ivx, &comas3_1.topmods, lineq, & all_1.iccount, (ftnlen)128); -#line 13806 "" +#line 14034 "" } else if (*(unsigned char *)charq == '"') { /* pmxlyr string. Expand "..." to \pmxlyr{...}\ */ -#line 13810 "" +#line 14038 "" if (! comlyr_1.inputmlyr) { -#line 13811 "" +#line 14039 "" ictemp = 0; /* Writing concatenation */ -#line 13812 "" +#line 14040 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 13812 "" +#line 14040 "" i__3[1] = 1, a__1[1] = all_1.sq; -#line 13812 "" +#line 14040 "" i__3[2] = 1, a__1[2] = all_1.sq; -#line 13812 "" +#line 14040 "" i__3[3] = 15, a__1[3] = "input musixlyr "; -#line 13812 "" +#line 14040 "" i__3[4] = 1, a__1[4] = all_1.sq; -#line 13812 "" +#line 14040 "" s_cat(lineqt, a__1, i__3, &c__5, (ftnlen)128); -#line 13813 "" +#line 14041 "" i__1 = all_1.nnl[commvl_1.ivx - 1] + 1; -#line 13813 "" +#line 14041 "" littex_(all_1.islur, &i__1, &commvl_1.ivx, &comas3_1.topmods, lineqt, &ictemp, (ftnlen)128); -#line 13814 "" +#line 14042 "" comlyr_1.inputmlyr = TRUE_; -#line 13815 "" +#line 14043 "" } -#line 13816 "" +#line 14044 "" dopmxlyr_(lineq, &all_1.iccount, (ftnlen)128); -#line 13817 "" +#line 14045 "" *(unsigned char *)charq = *(unsigned char *)all_1.sq; -#line 13818 "" +#line 14046 "" i__1 = all_1.nnl[commvl_1.ivx - 1] + 1; -#line 13818 "" +#line 14046 "" littex_(all_1.islur, &i__1, &commvl_1.ivx, &comas3_1.topmods, lineq, & all_1.iccount, (ftnlen)128); -#line 13819 "" +#line 14047 "" } else if (*(unsigned char *)charq == 'o') { /* Ornament on non-xtup note. Symbol must come AFTER the affected note */ -#line 13823 "" +#line 14051 "" if (comnotes_1.notcrd) { -#line 13824 "" +#line 14052 "" nole = all_1.nolev[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25]; -#line 13825 "" +#line 14053 "" } else { -#line 13826 "" +#line 14054 "" nole = 127 & lbit_shift(comtrill_1.icrdat[comtrill_1.ncrd - 1], ( ftnlen)-12); -#line 13827 "" +#line 14055 "" } -#line 13828 "" +#line 14056 "" getorn_(lineq, &all_1.iccount, &all_1.iornq[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 1], &all_1.iornq[commvl_1.ivx - 1], & comget_1.ornrpt, &comgrace_1.noffseg, &all_1.nnl[commvl_1.ivx - 1], &commvl_1.ivx, &c_true, &comnotes_1.notcrd, &nole, ( ftnlen)128); -#line 13831 "" +#line 14059 "" } else if (i_indx("st(){}", charq, (ftnlen)6, (ftnlen)1) > 0) { -#line 13832 "" +#line 14060 "" nnlivx = all_1.nnl[commvl_1.ivx - 1]; -#line 13833 "" +#line 14061 "" if (*(unsigned char *)charq == '(' || *(unsigned char *)charq == '{') { /* Detect preslur on normal non-chord note */ -#line 13837 "" +#line 14065 "" ++nnlivx; -#line 13838 "" +#line 14066 "" ++comnotes_1.npreslur; -#line 13839 "" +#line 14067 "" } -#line 13840 "" +#line 14068 "" all_1.islur[commvl_1.ivx + nnlivx * 24 - 25] = bit_set(all_1.islur[ commvl_1.ivx + nnlivx * 24 - 25],0); -#line 13841 "" +#line 14069 "" if (*(unsigned char *)charq == 't') { -#line 13841 "" +#line 14069 "" all_1.islur[commvl_1.ivx + nnlivx * 24 - 25] = bit_set( all_1.islur[commvl_1.ivx + nnlivx * 24 - 25],1); -#line 13841 "" +#line 14069 "" } -#line 13843 "" +#line 14071 "" if (commvl_1.ivx <= all_1.nv) { -#line 13844 "" +#line 14072 "" kv = 1; -#line 13845 "" +#line 14073 "" } else { -#line 13846 "" +#line 14074 "" kv = 2; -#line 13847 "" +#line 14075 "" } -#line 13848 "" +#line 14076 "" if (comslur_1.fontslur) { -#line 13849 "" +#line 14077 "" sslur_(lineq, &all_1.iccount, &all_1.iv, &kv, &nnlivx, all_1.isdat1, all_1.isdat2, all_1.isdat3, &all_1.nsdat, & comnotes_1.notcrd, &all_1.nolev[commvl_1.ivx + nnlivx * 24 - 25], charq, (ftnlen)128, (ftnlen)1); -#line 13851 "" +#line 14079 "" } else { -#line 13852 "" +#line 14080 "" spsslur_(lineq, &all_1.iccount, &all_1.iv, &kv, &nnlivx, all_1.isdat1, all_1.isdat2, all_1.isdat3, all_1.isdat4, & all_1.nsdat, &comnotes_1.notcrd, &all_1.nolev[ commvl_1.ivx + nnlivx * 24 - 25], charq, (ftnlen)128, ( ftnlen)1); -#line 13854 "" +#line 14082 "" } -#line 13855 "" +#line 14083 "" } else if (*(unsigned char *)charq == '?') { /* Arpeggio */ -#line 13859 "" +#line 14087 "" if (bit_test(all_1.ipl[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],10)) { /* This is a chordal note. Set a bit in icrdat. But if *main* (spacing) note */ /* of chord, will not set icrdat(25), but iornq(27) */ -#line 13864 "" +#line 14092 "" comtrill_1.icrdat[comtrill_1.ncrd - 1] = bit_set( comtrill_1.icrdat[comtrill_1.ncrd - 1],25); -#line 13865 "" +#line 14093 "" } else { -#line 13866 "" +#line 14094 "" all_1.iornq[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 1] = bit_set(all_1.iornq[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 1],27); -#line 13867 "" +#line 14095 "" } /* Check for shift */ -#line 13871 "" +#line 14099 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 13872 "" +#line 14100 "" if (*(unsigned char *)durq == ' ') { -#line 13873 "" +#line 14101 "" --all_1.iccount; -#line 13874 "" +#line 14102 "" } else { /* durq must be "-" */ -#line 13878 "" +#line 14106 "" ++all_1.iccount; -#line 13879 "" +#line 14107 "" readnum_(lineq, &all_1.iccount, durq, &fnum, (ftnlen)128, (ftnlen) 1); -#line 13880 "" +#line 14108 "" --all_1.iccount; /* record the shift */ -#line 13884 "" +#line 14112 "" ++comarpshift_1.numarpshift; -#line 13885 "" +#line 14113 "" comarpshift_1.ivarpshift[comarpshift_1.numarpshift - 1] = commvl_1.ivx; -#line 13886 "" +#line 14114 "" comarpshift_1.iparpshift[comarpshift_1.numarpshift - 1] = all_1.nnl[commvl_1.ivx - 1]; -#line 13887 "" +#line 14115 "" comarpshift_1.arpshift[comarpshift_1.numarpshift - 1] = fnum; -#line 13888 "" +#line 14116 "" } -#line 13889 "" +#line 14117 "" } else if (i_indx("0123456789#-nx_", charq, (ftnlen)15, (ftnlen)1) > 0) { /* We have a figure. Must come AFTER the note it goes under */ -#line 13894 "" +#line 14122 "" ivf = 1; -#line 13895 "" +#line 14123 "" if (commvl_1.ivx > 1) { -#line 13896 "" +#line 14124 "" if (comfig_1.ivxfig2 == 0) { -#line 13897 "" +#line 14125 "" comfig_1.ivxfig2 = commvl_1.ivx; -#line 13898 "" +#line 14126 "" } else if (commvl_1.ivx != comfig_1.ivxfig2) { -#line 13899 "" - s_wsle(&io___810); -#line 13899 "" +#line 14127 "" + s_wsle(&io___821); +#line 14127 "" e_wsle(); -#line 13900 "" - s_wsle(&io___811); -#line 13900 "" +#line 14128 "" + s_wsle(&io___822); +#line 14128 "" do_lio(&c__9, &c__1, "Figures not allowed in >1 voice above "\ "first", (ftnlen)43); -#line 13900 "" +#line 14128 "" e_wsle(); -#line 13901 "" +#line 14129 "" s_stop("", (ftnlen)0); -#line 13902 "" +#line 14130 "" } -#line 13903 "" +#line 14131 "" ivf = 2; -#line 13904 "" +#line 14132 "" } -#line 13905 "" +#line 14133 "" nfig1 = comfig_1.nfigs[ivf - 1] + 1; -#line 13906 "" +#line 14134 "" getfig_(&comgrace_1.itoff[ivf + (nfig1 << 1) - 3], charq, lineq, & all_1.iccount, &all_1.isfig[ivf + (all_1.nnl[commvl_1.ivx - 1] << 1) - 3], &comfig_1.itfig[ivf + (nfig1 << 1) - 3], & @@ -32788,46 +33333,46 @@ L25: - 3], &comfig_1.ivvfig[ivf + (nfig1 << 1) - 3], & comfig_1.nfigs[ivf - 1], (ftnlen)1, (ftnlen)128, (ftnlen)10); /* * ivupfig(ivf,nfig1),nfigs(ivf)) */ -#line 13911 "" +#line 14139 "" } else if (*(unsigned char *)charq == '[') { /* Start forced beam. Record barno & time since start of inp. blk. Set signal */ -#line 13915 "" +#line 14143 "" ++comfb_1.nfb[commvl_1.ivx - 1]; -#line 13916 "" +#line 14144 "" comget_1.fbon = TRUE_; -#line 13917 "" +#line 14145 "" *(unsigned char *)&comfb_1.ulfbq[commvl_1.ivx + comfb_1.nfb[ commvl_1.ivx - 1] * 24 - 25] = 'x'; -#line 13918 "" +#line 14146 "" comfb_1.t1fb[commvl_1.ivx + comfb_1.nfb[commvl_1.ivx - 1] * 24 - 25] = (real) all_1.itsofar[commvl_1.ivx - 1]; -#line 13919 "" +#line 14147 "" nadj = 0; -#line 13920 "" +#line 14148 "" if (comfb_1.autofbon) { -#line 13921 "" +#line 14149 "" comfb_1.autofbon = FALSE_; -#line 13922 "" +#line 14150 "" } -#line 13923 "" +#line 14151 "" L17: -#line 13923 "" +#line 14151 "" getchar_(lineq, &all_1.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 13924 "" +#line 14152 "" if (i_indx("ulf", charq, (ftnlen)3, (ftnlen)1) > 0) { -#line 13925 "" +#line 14153 "" *(unsigned char *)&comfb_1.ulfbq[commvl_1.ivx + comfb_1.nfb[ commvl_1.ivx - 1] * 24 - 25] = *(unsigned char *)charq; -#line 13926 "" +#line 14154 "" goto L17; -#line 13927 "" +#line 14155 "" } else if (*(unsigned char *)charq == 'j') { /* Continuing a jumped beam here */ -#line 13931 "" +#line 14159 "" all_1.irest[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] + 1) * 24 - 25],24); @@ -32835,457 +33380,505 @@ L17: /* Set flag to watch for END of this forced beam, so can set flag rest(30) on */ /* NEXT note as signal to start a new notes group there. */ -#line 13936 "" +#line 14164 "" combjmp_1.isbj2 = TRUE_; -#line 13937 "" +#line 14165 "" goto L17; -#line 13938 "" +#line 14166 "" } else if (*(unsigned char *)charq == 'h') { -#line 13939 "" +#line 14167 "" all_1.islur[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 25] = bit_set(all_1.islur[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] + 1) * 24 - 25],2); -#line 13940 "" +#line 14168 "" goto L17; -#line 13941 "" +#line 14169 "" } else if (*(unsigned char *)charq == 'm') { /* Force multiplicity. Next input is digit */ -#line 13945 "" +#line 14173 "" getchar_(lineq, &all_1.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 13946 "" +#line 14174 "" all_1.islur[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 25] = bit_set(all_1.islur[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] + 1) * 24 - 25],21); -#line 13947 "" +#line 14175 "" i__1 = *(unsigned char *)charq - 48; -#line 13947 "" +#line 14175 "" setbits_(&all_1.islur[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 25], &c__3, &c__22, &i__1); -#line 13948 "" +#line 14176 "" goto L17; -#line 13949 "" +#line 14177 "" } else if (*(unsigned char *)charq == ':') { /* Start auto forced beam pattern */ -#line 13953 "" +#line 14181 "" comfb_1.autofbon = TRUE_; /* When forced later beam ends, check whether tautofv <=0; if so set it. */ -#line 13957 "" +#line 14185 "" comfb_1.tautofb = (real) (-all_1.itsofar[commvl_1.ivx - 1]); -#line 13958 "" +#line 14186 "" comfb_1.t1autofb = (real) all_1.itsofar[commvl_1.ivx - 1]; -#line 13959 "" +#line 14187 "" goto L17; -#line 13960 "" +#line 14188 "" } else if (*(unsigned char *)charq != ' ') { /* Must be '+/-' for height or slope shift */ -#line 13964 "" +#line 14192 "" ++nadj; /* nadj = 1,2, or 3 for normal start level, slope, or beam-thk start level. */ -#line 13968 "" +#line 14196 "" ++all_1.iccount; -#line 13969 "" +#line 14197 "" readnum_(lineq, &all_1.iccount, durq, &fnum, (ftnlen)128, (ftnlen) 1); -#line 13970 "" +#line 14198 "" --all_1.iccount; -#line 13971 "" +#line 14199 "" iadj = i_nint(&fnum); -#line 13972 "" +#line 14200 "" if (*(unsigned char *)charq == '-') { -#line 13972 "" +#line 14200 "" iadj = -iadj; -#line 13972 "" +#line 14200 "" } -#line 13973 "" +#line 14201 "" if (nadj == 1) { /* This is a level shift. Note if 0 was entered, iadj = 30 */ -#line 13977 "" +#line 14205 "" i__1 = iadj + 30; -#line 13977 "" +#line 14205 "" setbits_(&all_1.ipl[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 25], &c__6, &c__11, &i__1); -#line 13978 "" +#line 14206 "" } else if (nadj == 2) { /* Must be a slope shift */ -#line 13982 "" +#line 14210 "" i__1 = iadj + 30; -#line 13982 "" +#line 14210 "" setbits_(&all_1.ipl[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 25], &c__6, &c__17, &i__1); -#line 13983 "" +#line 14211 "" } else { /* Beam-thk fine tune */ -#line 13987 "" +#line 14215 "" setbits_(&all_1.islur[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 25], &c__2, &c__27, &iadj); -#line 13988 "" +#line 14216 "" } -#line 13989 "" +#line 14217 "" goto L17; -#line 13990 "" +#line 14218 "" } -#line 13991 "" +#line 14219 "" } else if (*(unsigned char *)charq == ']') { -#line 13992 "" +#line 14220 "" if (comfb_1.autofbon && comfb_1.tautofb < comtol_1.tol) { -#line 13993 "" +#line 14221 "" comfb_1.tautofb = all_1.itsofar[commvl_1.ivx - 1] + comfb_1.tautofb; -#line 13994 "" +#line 14222 "" } -#line 13995 "" +#line 14223 "" getchar_(lineq, &all_1.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 13996 "" +#line 14224 "" if (i_indx("j ", charq, (ftnlen)2, (ftnlen)1) > 0) { /* Since ']' comes AFTER note, itsofar has been updated. Set ending signal. */ -#line 14000 "" +#line 14228 "" comfb_1.t2fb[commvl_1.ivx + comfb_1.nfb[commvl_1.ivx - 1] * 24 - 25] = (real) all_1.itsofar[commvl_1.ivx - 1]; -#line 14001 "" +#line 14229 "" comget_1.fbon = FALSE_; -#line 14002 "" +#line 14230 "" if (*(unsigned char *)charq == 'j') { -#line 14002 "" +#line 14231 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],23); -#line 14002 "" +#line 14232 "" } -#line 14004 "" +#line 14233 "" if (combjmp_1.isbj2) { /* This is the end of a fb segment of a jump beam. Set flag on NEXT note to */ /* force start of new notes group, provided this is not last note in bar. */ -#line 14009 "" +#line 14238 "" if (all_1.itsofar[commvl_1.ivx - 1] % all_1.lenbar != 0) { -#line 14009 "" +#line 14238 "" all_1.irest[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 25],30) ; -#line 14009 "" +#line 14238 "" } -#line 14011 "" +#line 14240 "" combjmp_1.isbj2 = FALSE_; -#line 14012 "" +#line 14241 "" } -#line 14013 "" +#line 14242 "" } else if (*(unsigned char *)charq == '[') { /* Multiplicity down-up signal */ -#line 14017 "" +#line 14246 "" all_1.islur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.islur[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],20); -#line 14018 "" +#line 14247 "" } else if (*(unsigned char *)charq == '-') { /* Set signals for gap in single-slope beam [...]-[...] */ -#line 14022 "" +#line 14251 "" all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.nacc[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25],20); -#line 14023 "" +#line 14252 "" all_1.nacc[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 25] = bit_set(all_1.nacc[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] + 1) * 24 - 25],21); /* Next two characters must be "[ ". Skip over them. */ -#line 14027 "" +#line 14256 "" all_1.iccount += 2; -#line 14028 "" +#line 14257 "" } -#line 14029 "" +#line 14258 "" } else if (*(unsigned char *)charq == 'D') { -#line 14030 "" +#line 14259 "" getdyn_(&commvl_1.ivx, &all_1.nnl[commvl_1.ivx - 1], &all_1.irest[ commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25], & all_1.iornq[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 1], lineq, &all_1.iccount, (ftnlen)128); -#line 14032 "" +#line 14261 "" } else if (*(unsigned char *)charq == 'h') { /* Heading or height. For heading, only OK if at start of block */ /* Check whether at beginning of a block */ -#line 14037 "" +#line 14266 "" if (all_1.iv != 1 || all_1.nnl[0] != 0) { -#line 14038 "" - s_wsle(&io___813); -#line 14038 "" +#line 14267 "" + s_wsle(&io___824); +#line 14267 "" do_lio(&c__9, &c__1, "You entered \"h\" not at beginning of block" , (ftnlen)41); -#line 14038 "" +#line 14267 "" e_wsle(); -#line 14039 "" +#line 14268 "" stop1_(); -#line 14040 "" +#line 14269 "" } -#line 14041 "" +#line 14270 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14042 "" +#line 14271 "" comhead_1.ihdvrt = 0; -#line 14043 "" +#line 14272 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Vertical offset */ -#line 14047 "" +#line 14276 "" ++all_1.iccount; -#line 14048 "" +#line 14277 "" readnum_(lineq, &all_1.iccount, charq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 14049 "" +#line 14278 "" comhead_1.ihdvrt = fnum + .1f; -#line 14050 "" +#line 14279 "" if (*(unsigned char *)durq == '-') { -#line 14050 "" +#line 14279 "" comhead_1.ihdvrt = -comhead_1.ihdvrt; -#line 14050 "" +#line 14279 "" } -#line 14051 "" +#line 14280 "" *(unsigned char *)durq = *(unsigned char *)charq; -#line 14052 "" +#line 14281 "" } -#line 14053 "" +#line 14282 "" if (*(unsigned char *)durq != ' ') { /* Height symbol. Read past (until next blank) */ -#line 14057 "" +#line 14286 "" L3: -#line 14057 "" +#line 14286 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14058 "" +#line 14287 "" if (*(unsigned char *)durq != ' ') { -#line 14058 "" +#line 14287 "" goto L3; -#line 14058 "" +#line 14287 "" } -#line 14059 "" +#line 14288 "" } else { /* Set flag for header & read it in */ -#line 14063 "" +#line 14292 "" comhead_1.ihdht = 16; -#line 14064 "" +#line 14293 "" getbuf_(comhead_1.headrq, (ftnlen)80); -#line 14065 "" +#line 14294 "" all_1.iccount = 128; -#line 14066 "" +#line 14295 "" } -#line 14067 "" +#line 14296 "" } else if (*(unsigned char *)charq == 'L') { -/* Linebreak, already handled in pmxa, but check for movement break */ +/* Linebreak, already handled some in pmxa, but need to get data for */ +/* shortened line or coda lengths */ -#line 14071 "" +#line 14301 "" ++all_1.iccount; -#line 14072 "" +#line 14302 "" + if (*(unsigned char *)&lineq[all_1.iccount - 1] == 'C') { + +/* Coda, get length */ + +#line 14306 "" + ++all_1.iccount; +#line 14307 "" + readnum_(lineq, &all_1.iccount, durq, &comshort_1.codafrac, ( + ftnlen)128, (ftnlen)1); +#line 14308 "" + comshort_1.ishort = 3; +#line 14309 "" + if (*(unsigned char *)durq == 'n') { +#line 14309 "" + comshort_1.nocodabn = TRUE_; +#line 14309 "" + } +#line 14310 "" + return 0; +#line 14311 "" + } + +/* Get line number */ + +#line 14315 "" readnum_(lineq, &all_1.iccount, durq, &fmovbrk, (ftnlen)128, (ftnlen) 1); -#line 14073 "" +#line 14316 "" +L48: +/* Allow transfer up from below if S follows M */ +#line 14317 "" + if (*(unsigned char *)durq == 'S') { + +/* Shortened line, get shortening fraction */ + +#line 14321 "" + ++all_1.iccount; +#line 14322 "" + readnum_(lineq, &all_1.iccount, durq, &comshort_1.shortfrac, ( + ftnlen)128, (ftnlen)1); +#line 14323 "" + comshort_1.ishort = 1; +#line 14324 "" + comshort_1.codafrac = 0.f; +#line 14325 "" + } + +/* Begin check for movement break */ + +#line 14329 "" if (*(unsigned char *)durq == 'P') { -#line 14074 "" +#line 14330 "" ++all_1.iccount; -#line 14075 "" +#line 14331 "" readnum_(lineq, &all_1.iccount, durq, &fnum, (ftnlen)128, (ftnlen) 1); -#line 14076 "" +#line 14332 "" } -#line 14077 "" +#line 14333 "" if (*(unsigned char *)durq == 'M') { -#line 14078 "" +#line 14334 "" comget_1.movbrk = i_nint(&fmovbrk); -#line 14079 "" +#line 14335 "" comget_1.movgap = 0; -#line 14080 "" +#line 14336 "" comget_1.parmov = -1.f; -#line 14081 "" +#line 14337 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14082 "" +#line 14338 "" L31: -#line 14082 "" +#line 14338 "" if (*(unsigned char *)durq == '+') { /* Get vertical space (\internotes) */ -#line 14086 "" +#line 14342 "" ++all_1.iccount; -#line 14087 "" +#line 14343 "" readnum_(lineq, &all_1.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 14088 "" +#line 14344 "" comget_1.movgap = i_nint(&fnum); -#line 14089 "" +#line 14345 "" goto L31; -#line 14090 "" +#line 14346 "" } else if (*(unsigned char *)durq == 'i') { -#line 14091 "" +#line 14347 "" ++all_1.iccount; -#line 14092 "" +#line 14348 "" readnum_(lineq, &all_1.iccount, durq, &comget_1.parmov, ( ftnlen)128, (ftnlen)1); -#line 14093 "" +#line 14349 "" goto L31; -#line 14094 "" +#line 14350 "" } else if (*(unsigned char *)durq == 'c') { -#line 14095 "" +#line 14351 "" comnotes_1.nobar1 = TRUE_; -#line 14096 "" +#line 14352 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14097 "" +#line 14353 "" goto L31; -#line 14098 "" +#line 14354 "" } else if (*(unsigned char *)durq == 'r') { /* "rename" can be set on or off. */ -#line 14102 "" +#line 14358 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14103 "" +#line 14359 "" comnvi_1.rename = *(unsigned char *)durq == '+'; -#line 14104 "" +#line 14360 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14105 "" +#line 14361 "" goto L31; -#line 14106 "" +#line 14362 "" } else if (*(unsigned char *)durq == 'n') { /* Change # of voices. Input ninow, iiorig(1...ninow). Will use names, */ /* staves per inst. and clefs corr. to iiorig in original list of instruments. */ -#line 14111 "" +#line 14367 "" nvold = all_1.nv; -#line 14112 "" +#line 14368 "" all_1.nv = 0; -#line 14113 "" +#line 14369 "" comnvi_1.rename = TRUE_; -#line 14114 "" +#line 14370 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14115 "" +#line 14371 "" if (*(unsigned char *)durq == ':') { -#line 14116 "" +#line 14372 "" all_1.iccount += 2; -#line 14117 "" +#line 14373 "" i__1 = all_1.iccount - 2; -#line 14117 "" +#line 14373 "" ici__1.icierr = 0; -#line 14117 "" +#line 14373 "" ici__1.iciend = 0; -#line 14117 "" +#line 14373 "" ici__1.icirnum = 1; -#line 14117 "" +#line 14373 "" ici__1.icirlen = all_1.iccount - i__1; -#line 14117 "" +#line 14373 "" ici__1.iciunit = lineq + i__1; -#line 14117 "" +#line 14373 "" ici__1.icifmt = "(i2)"; -#line 14117 "" +#line 14373 "" s_rsfi(&ici__1); -#line 14117 "" +#line 14373 "" do_fio(&c__1, (char *)&comnotes_1.ninow, (ftnlen)sizeof( integer)); -#line 14117 "" +#line 14373 "" e_rsfi(); -#line 14118 "" +#line 14374 "" } else { -#line 14119 "" +#line 14375 "" comnotes_1.ninow = *(unsigned char *)durq - 48; -#line 14120 "" +#line 14376 "" } -#line 14121 "" +#line 14377 "" iiv = 0; -#line 14122 "" +#line 14378 "" i__1 = comnotes_1.ninow; -#line 14122 "" +#line 14378 "" for (iinow = 1; iinow <= i__1; ++iinow) { -#line 14123 "" +#line 14379 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, ( ftnlen)1); -#line 14124 "" +#line 14380 "" if (*(unsigned char *)durq == ':') { -#line 14125 "" +#line 14381 "" all_1.iccount += 2; -#line 14126 "" +#line 14382 "" i__2 = all_1.iccount - 2; -#line 14126 "" +#line 14382 "" ici__1.icierr = 0; -#line 14126 "" +#line 14382 "" ici__1.iciend = 0; -#line 14126 "" +#line 14382 "" ici__1.icirnum = 1; -#line 14126 "" +#line 14382 "" ici__1.icirlen = all_1.iccount - i__2; -#line 14126 "" +#line 14382 "" ici__1.iciunit = lineq + i__2; -#line 14126 "" +#line 14382 "" ici__1.icifmt = "(i2)"; -#line 14126 "" +#line 14382 "" s_rsfi(&ici__1); -#line 14126 "" +#line 14382 "" do_fio(&c__1, (char *)&comnvi_1.iiorig[iinow - 1], ( ftnlen)sizeof(integer)); -#line 14126 "" +#line 14382 "" e_rsfi(); -#line 14127 "" +#line 14383 "" } else { -#line 14128 "" +#line 14384 "" comnvi_1.iiorig[iinow - 1] = *(unsigned char *)durq - 48; -#line 14129 "" +#line 14385 "" } -#line 14130 "" +#line 14386 "" comnvi_1.nspern[iinow - 1] = comnvi_1.nsperi[ comnvi_1.iiorig[iinow - 1] - 1]; -#line 14131 "" +#line 14387 "" all_1.nv += comnvi_1.nspern[iinow - 1]; -#line 14132 "" +#line 14388 "" *(unsigned char *)&all_1.sepsymq[iiv + comnvi_1.nspern[ iinow - 1] - 1] = '&'; -#line 14133 "" +#line 14389 "" if (comnvi_1.nspern[iinow - 1] > 1) { -#line 14134 "" +#line 14390 "" i__2 = comnvi_1.nspern[iinow - 1] - 1; -#line 14134 "" +#line 14390 "" for (iis = 1; iis <= i__2; ++iis) { -#line 14135 "" +#line 14391 "" *(unsigned char *)&all_1.sepsymq[iiv + iis - 1] = '|'; -#line 14136 "" +#line 14392 "" /* L64: */ -#line 14136 "" +#line 14392 "" } -#line 14137 "" +#line 14393 "" } -#line 14138 "" +#line 14394 "" iiv += comnvi_1.nspern[iinow - 1]; -#line 14139 "" +#line 14395 "" /* L63: */ -#line 14139 "" +#line 14395 "" } /* 120818 Per Rainer's suggestion, defer changing \nbinstruments until issuing \newmovement */ @@ -33297,503 +33890,515 @@ L31: /* write(11,'(a8,i2,a2)')sq//'newnoi{',ninow,'}%' */ /* end if */ /* end if */ -#line 14150 "" +#line 14406 "" if (all_1.nv == 1 && nvold > 1) { -#line 14151 "" +#line 14407 "" if (comlast_1.islast) { -#line 14151 "" - s_wsfe(&io___818); +#line 14407 "" + s_wsfe(&io___829); /* Writing concatenation */ -#line 14151 "" +#line 14407 "" i__5[0] = 1, a__2[0] = all_1.sq; -#line 14151 "" +#line 14407 "" i__5[1] = 11, a__2[1] = "nostartrule"; -#line 14151 "" +#line 14407 "" s_cat(ch__2, a__2, i__5, &c__2, (ftnlen)12); -#line 14151 "" +#line 14407 "" do_fio(&c__1, ch__2, (ftnlen)12); -#line 14151 "" +#line 14407 "" e_wsfe(); -#line 14151 "" +#line 14407 "" } -#line 14152 "" +#line 14408 "" } else if (all_1.nv > 1 && nvold == 1) { -#line 14153 "" +#line 14409 "" if (comlast_1.islast) { -#line 14153 "" - s_wsfe(&io___819); +#line 14409 "" + s_wsfe(&io___830); /* Writing concatenation */ -#line 14153 "" +#line 14409 "" i__5[0] = 1, a__2[0] = all_1.sq; -#line 14153 "" +#line 14409 "" i__5[1] = 9, a__2[1] = "startrule"; -#line 14153 "" +#line 14409 "" s_cat(ch__3, a__2, i__5, &c__2, (ftnlen)10); -#line 14153 "" +#line 14409 "" do_fio(&c__1, ch__3, (ftnlen)10); -#line 14153 "" +#line 14409 "" e_wsfe(); -#line 14153 "" +#line 14409 "" } -#line 14154 "" +#line 14410 "" } -#line 14155 "" +#line 14411 "" iiv = 0; -#line 14156 "" +#line 14412 "" i__1 = comnotes_1.ninow; -#line 14156 "" +#line 14412 "" for (iinow = 1; iinow <= i__1; ++iinow) { -#line 14157 "" +#line 14413 "" i__2 = comnvi_1.nspern[iinow - 1]; -#line 14157 "" +#line 14413 "" for (iis = 1; iis <= i__2; ++iis) { -#line 14158 "" +#line 14414 "" ++iiv; /* May not really need to re-enter clefs, but it's easier to program since */ /* clef names are not saved but are needed in newvoice to set ncmidcc. */ -#line 14163 "" +#line 14419 "" getchar_(lineq, &all_1.iccount, comclefq_1.clefq + ( iiv - 1), (ftnlen)128, (ftnlen)1); -#line 14164 "" +#line 14420 "" newvoice_(&iiv, comclefq_1.clefq + (iiv - 1), &c_true, (ftnlen)1); -#line 14165 "" +#line 14421 "" if (comnvi_1.nspern[iinow - 1] == 1) { -#line 14166 "" +#line 14422 "" i__4 = numclef_(comclefq_1.clefq + (iiv - 1), ( ftnlen)1) + 48; -#line 14166 "" +#line 14422 "" chax_(ch__1, (ftnlen)1, &i__4); -#line 14166 "" +#line 14422 "" s_copy(hdlndq, ch__1, (ftnlen)59, (ftnlen)1); -#line 14167 "" +#line 14423 "" lclf = 1; -#line 14168 "" +#line 14424 "" } else if (iis == 1) { /* Writing concatenation */ -#line 14169 "" +#line 14425 "" i__5[0] = 1, a__2[0] = "{"; -#line 14169 "" +#line 14425 "" i__4 = numclef_(comclefq_1.clefq + (iiv - 1), ( ftnlen)1) + 48; -#line 14169 "" +#line 14425 "" chax_(ch__1, (ftnlen)1, &i__4); -#line 14169 "" +#line 14425 "" i__5[1] = 1, a__2[1] = ch__1; -#line 14169 "" +#line 14425 "" s_cat(hdlndq, a__2, i__5, &c__2, (ftnlen)59); -#line 14170 "" +#line 14426 "" lclf = 2; -#line 14171 "" +#line 14427 "" } else if (iis < comnvi_1.nspern[iinow - 1]) { /* Writing concatenation */ -#line 14172 "" +#line 14428 "" i__5[0] = lclf, a__2[0] = hdlndq; -#line 14172 "" +#line 14428 "" i__4 = numclef_(comclefq_1.clefq + (iiv - 1), ( ftnlen)1) + 48; -#line 14172 "" +#line 14428 "" chax_(ch__1, (ftnlen)1, &i__4); -#line 14172 "" +#line 14428 "" i__5[1] = 1, a__2[1] = ch__1; -#line 14172 "" +#line 14428 "" s_cat(hdlndq, a__2, i__5, &c__2, (ftnlen)59); -#line 14173 "" +#line 14429 "" ++lclf; -#line 14174 "" +#line 14430 "" } else { /* Writing concatenation */ -#line 14175 "" +#line 14431 "" i__6[0] = lclf, a__3[0] = hdlndq; -#line 14175 "" +#line 14431 "" i__4 = numclef_(comclefq_1.clefq + (iiv - 1), ( ftnlen)1) + 48; -#line 14175 "" +#line 14431 "" chax_(ch__1, (ftnlen)1, &i__4); -#line 14175 "" +#line 14431 "" i__6[1] = 1, a__3[1] = ch__1; -#line 14175 "" +#line 14431 "" i__6[2] = 1, a__3[2] = "}"; -#line 14175 "" +#line 14431 "" s_cat(hdlndq, a__3, i__6, &c__3, (ftnlen)59); -#line 14177 "" +#line 14433 "" lclf += 2; -#line 14178 "" +#line 14434 "" } -#line 14179 "" +#line 14435 "" /* L61: */ -#line 14179 "" +#line 14435 "" } /* setstaffs & setclef go by instrument, not voice */ -#line 14183 "" +#line 14439 "" if (comlast_1.islast) { -#line 14184 "" +#line 14440 "" if (iinow < 10) { -#line 14185 "" - s_wsfe(&io___822); +#line 14441 "" + s_wsfe(&io___833); /* Writing concatenation */ -#line 14185 "" +#line 14441 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 14185 "" +#line 14441 "" i__3[1] = 9, a__1[1] = "setstaffs"; -#line 14185 "" +#line 14441 "" i__2 = iinow + 48; -#line 14185 "" +#line 14441 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 14185 "" +#line 14441 "" i__3[2] = 1, a__1[2] = ch__1; -#line 14185 "" +#line 14441 "" i__4 = comnvi_1.nspern[iinow - 1] + 48; -#line 14185 "" +#line 14441 "" chax_(ch__5, (ftnlen)1, &i__4); -#line 14185 "" +#line 14441 "" i__3[3] = 1, a__1[3] = ch__5; -#line 14185 "" +#line 14441 "" i__3[4] = 1, a__1[4] = "%"; -#line 14185 "" +#line 14441 "" s_cat(ch__4, a__1, i__3, &c__5, (ftnlen)13); -#line 14185 "" +#line 14441 "" do_fio(&c__1, ch__4, (ftnlen)13); -#line 14185 "" +#line 14441 "" e_wsfe(); -#line 14187 "" - s_wsfe(&io___823); +#line 14443 "" + s_wsfe(&io___834); /* Writing concatenation */ -#line 14187 "" +#line 14443 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 14187 "" +#line 14443 "" i__3[1] = 7, a__1[1] = "setclef"; -#line 14187 "" +#line 14443 "" i__2 = iinow + 48; -#line 14187 "" +#line 14443 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 14187 "" +#line 14443 "" i__3[2] = 1, a__1[2] = ch__1; -#line 14187 "" +#line 14443 "" i__3[3] = lclf, a__1[3] = hdlndq; -#line 14187 "" +#line 14443 "" i__3[4] = 1, a__1[4] = "%"; -#line 14187 "" +#line 14443 "" s_cat(ch__6, a__1, i__3, &c__5, (ftnlen)69); -#line 14187 "" +#line 14443 "" do_fio(&c__1, ch__6, lclf + 10); -#line 14187 "" +#line 14443 "" e_wsfe(); -#line 14189 "" +#line 14445 "" if (comfig_1.fullsize[comnvi_1.iiorig[iinow - 1] - 1] > .9f) { -#line 14190 "" - s_wsfe(&io___824); +#line 14446 "" + s_wsfe(&io___835); /* Writing concatenation */ -#line 14190 "" +#line 14446 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 14190 "" +#line 14446 "" i__3[1] = 7, a__1[1] = "setsize"; -#line 14190 "" +#line 14446 "" i__2 = iinow + 48; -#line 14190 "" +#line 14446 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 14190 "" +#line 14446 "" i__3[2] = 1, a__1[2] = ch__1; -#line 14190 "" +#line 14446 "" i__3[3] = 1, a__1[3] = all_1.sq; -#line 14190 "" +#line 14446 "" i__3[4] = 12, a__1[4] = "normalvalue%"; -#line 14190 "" +#line 14446 "" s_cat(ch__7, a__1, i__3, &c__5, (ftnlen)22); -#line 14190 "" +#line 14446 "" do_fio(&c__1, ch__7, (ftnlen)22); -#line 14190 "" +#line 14446 "" e_wsfe(); /* 140526 Account for staff size specs when noinst changes. May be confusion */ /* here if more than one staff per instrument */ -#line 14196 "" +#line 14452 "" } else if (comfig_1.fullsize[comnvi_1.iiorig[ iinow - 1] - 1] > .7f) { -#line 14197 "" - s_wsfe(&io___825); +#line 14453 "" + s_wsfe(&io___836); /* Writing concatenation */ -#line 14197 "" +#line 14453 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 14197 "" +#line 14453 "" i__3[1] = 7, a__1[1] = "setsize"; -#line 14197 "" +#line 14453 "" i__2 = iinow + 48; -#line 14197 "" +#line 14453 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 14197 "" +#line 14453 "" i__3[2] = 1, a__1[2] = ch__1; -#line 14197 "" +#line 14453 "" i__3[3] = 1, a__1[3] = all_1.sq; -#line 14197 "" +#line 14453 "" i__3[4] = 11, a__1[4] = "smallvalue%"; -#line 14197 "" +#line 14453 "" s_cat(ch__8, a__1, i__3, &c__5, (ftnlen)21); -#line 14197 "" +#line 14453 "" do_fio(&c__1, ch__8, (ftnlen)21); -#line 14197 "" +#line 14453 "" e_wsfe(); -#line 14199 "" +#line 14455 "" } else { -#line 14200 "" - s_wsfe(&io___826); +#line 14456 "" + s_wsfe(&io___837); /* Writing concatenation */ -#line 14200 "" +#line 14456 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 14200 "" +#line 14456 "" i__3[1] = 7, a__1[1] = "setsize"; -#line 14200 "" +#line 14456 "" i__2 = iinow + 48; -#line 14200 "" +#line 14456 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 14200 "" +#line 14456 "" i__3[2] = 1, a__1[2] = ch__1; -#line 14200 "" +#line 14456 "" i__3[3] = 1, a__1[3] = all_1.sq; -#line 14200 "" +#line 14456 "" i__3[4] = 10, a__1[4] = "tinyvalue%"; -#line 14200 "" +#line 14456 "" s_cat(ch__9, a__1, i__3, &c__5, (ftnlen)20); -#line 14200 "" +#line 14456 "" do_fio(&c__1, ch__9, (ftnlen)20); -#line 14200 "" +#line 14456 "" e_wsfe(); -#line 14202 "" +#line 14458 "" } -#line 14203 "" +#line 14459 "" } else { -#line 14204 "" - s_wsfe(&io___827); +#line 14460 "" + s_wsfe(&io___838); /* Writing concatenation */ -#line 14204 "" +#line 14460 "" i__5[0] = 1, a__2[0] = all_1.sq; -#line 14204 "" +#line 14460 "" i__5[1] = 10, a__2[1] = "setstaffs{"; -#line 14204 "" +#line 14460 "" s_cat(ch__10, a__2, i__5, &c__2, (ftnlen)11); -#line 14204 "" +#line 14460 "" do_fio(&c__1, ch__10, (ftnlen)11); -#line 14204 "" +#line 14460 "" do_fio(&c__1, (char *)&iinow, (ftnlen)sizeof( integer)); /* Writing concatenation */ -#line 14204 "" +#line 14460 "" i__6[0] = 1, a__3[0] = "}"; -#line 14204 "" +#line 14460 "" i__2 = comnvi_1.nspern[iinow - 1] + 48; -#line 14204 "" +#line 14460 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 14204 "" +#line 14460 "" i__6[1] = 1, a__3[1] = ch__1; -#line 14204 "" +#line 14460 "" i__6[2] = 1, a__3[2] = "%"; -#line 14204 "" +#line 14460 "" s_cat(ch__11, a__3, i__6, &c__3, (ftnlen)3); -#line 14204 "" +#line 14460 "" do_fio(&c__1, ch__11, (ftnlen)3); -#line 14204 "" +#line 14460 "" e_wsfe(); -#line 14206 "" - s_wsfe(&io___828); +#line 14462 "" + s_wsfe(&io___839); /* Writing concatenation */ -#line 14206 "" +#line 14462 "" i__5[0] = 1, a__2[0] = all_1.sq; -#line 14206 "" +#line 14462 "" i__5[1] = 8, a__2[1] = "setclef{"; -#line 14206 "" +#line 14462 "" s_cat(ch__12, a__2, i__5, &c__2, (ftnlen)9); -#line 14206 "" +#line 14462 "" do_fio(&c__1, ch__12, (ftnlen)9); -#line 14206 "" +#line 14462 "" do_fio(&c__1, (char *)&iinow, (ftnlen)sizeof( integer)); /* Writing concatenation */ -#line 14206 "" +#line 14462 "" i__6[0] = 1, a__3[0] = "}"; -#line 14206 "" +#line 14462 "" i__6[1] = lclf, a__3[1] = hdlndq; -#line 14206 "" +#line 14462 "" i__6[2] = 1, a__3[2] = "%"; -#line 14206 "" +#line 14462 "" s_cat(ch__13, a__3, i__6, &c__3, (ftnlen)61); -#line 14206 "" +#line 14462 "" do_fio(&c__1, ch__13, lclf + 2); -#line 14206 "" +#line 14462 "" e_wsfe(); -#line 14208 "" +#line 14464 "" } -#line 14209 "" +#line 14465 "" } -#line 14210 "" +#line 14466 "" /* L60: */ -#line 14210 "" +#line 14466 "" } /* Loop back up, this may not be last option in M. Note flow out if durq=' ' */ -#line 14214 "" +#line 14470 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14215 "" +#line 14471 "" goto L31; -#line 14216 "" +#line 14472 "" + } else if (*(unsigned char *)durq == 'S') { +#line 14473 "" + goto L48; +#line 14474 "" } /* Write instrument names */ -#line 14220 "" +#line 14478 "" if (! comnvi_1.rename) { -#line 14221 "" +#line 14479 "" i__1 = comnotes_1.ninow; -#line 14221 "" +#line 14479 "" for (iinst = 1; iinst <= i__1; ++iinst) { -#line 14222 "" +#line 14480 "" if (comlast_1.islast) { -#line 14223 "" +#line 14481 "" if (iinst < 10) { -#line 14224 "" - s_wsfe(&io___830); +#line 14482 "" + s_wsfe(&io___841); /* Writing concatenation */ -#line 14224 "" +#line 14482 "" i__5[0] = 1, a__2[0] = all_1.sq; -#line 14224 "" +#line 14482 "" i__5[1] = 7, a__2[1] = "setname"; -#line 14224 "" +#line 14482 "" s_cat(ch__14, a__2, i__5, &c__2, (ftnlen)8); -#line 14224 "" +#line 14482 "" do_fio(&c__1, ch__14, (ftnlen)8); -#line 14224 "" +#line 14482 "" do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof( integer)); -#line 14224 "" +#line 14482 "" do_fio(&c__1, "{}%", (ftnlen)3); -#line 14224 "" +#line 14482 "" e_wsfe(); -#line 14225 "" +#line 14483 "" } else { -#line 14226 "" - s_wsfe(&io___831); +#line 14484 "" + s_wsfe(&io___842); /* Writing concatenation */ -#line 14226 "" +#line 14484 "" i__5[0] = 1, a__2[0] = all_1.sq; -#line 14226 "" +#line 14484 "" i__5[1] = 8, a__2[1] = "setname{"; -#line 14226 "" +#line 14484 "" s_cat(ch__12, a__2, i__5, &c__2, (ftnlen)9); -#line 14226 "" +#line 14484 "" do_fio(&c__1, ch__12, (ftnlen)9); -#line 14226 "" +#line 14484 "" do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof( integer)); -#line 14226 "" +#line 14484 "" do_fio(&c__1, "}{}%", (ftnlen)4); -#line 14226 "" +#line 14484 "" e_wsfe(); -#line 14227 "" +#line 14485 "" } -#line 14228 "" +#line 14486 "" } -#line 14229 "" +#line 14487 "" /* L62: */ -#line 14229 "" +#line 14487 "" } -#line 14230 "" +#line 14488 "" } else { -#line 14231 "" +#line 14489 "" i__1 = comnotes_1.ninow; -#line 14231 "" +#line 14489 "" for (iinst = 1; iinst <= i__1; ++iinst) { -#line 14232 "" +#line 14490 "" if (comlast_1.islast) { -#line 14233 "" +#line 14491 "" if (iinst < 10) { -#line 14234 "" - s_wsfe(&io___832); +#line 14492 "" + s_wsfe(&io___843); /* Writing concatenation */ -#line 14234 "" +#line 14492 "" i__5[0] = 1, a__2[0] = all_1.sq; -#line 14234 "" +#line 14492 "" i__5[1] = 7, a__2[1] = "setname"; -#line 14234 "" +#line 14492 "" s_cat(ch__14, a__2, i__5, &c__2, (ftnlen)8); -#line 14234 "" +#line 14492 "" do_fio(&c__1, ch__14, (ftnlen)8); -#line 14234 "" +#line 14492 "" do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof( integer)); /* Writing concatenation */ -#line 14234 "" +#line 14492 "" i__6[0] = 1, a__3[0] = "{"; -#line 14234 "" +#line 14492 "" i__6[1] = comtop_1.lnam[comnvi_1.iiorig[iinst - 1] - 1], a__3[1] = comtop_1.inameq + ( comnvi_1.iiorig[iinst - 1] - 1) * 79; -#line 14234 "" +#line 14492 "" i__6[2] = 2, a__3[2] = "}%"; -#line 14234 "" +#line 14492 "" s_cat(ch__15, a__3, i__6, &c__3, (ftnlen)82); -#line 14234 "" +#line 14492 "" do_fio(&c__1, ch__15, comtop_1.lnam[ comnvi_1.iiorig[iinst - 1] - 1] + 3); -#line 14234 "" +#line 14492 "" e_wsfe(); -#line 14236 "" +#line 14494 "" } else { -#line 14237 "" - s_wsfe(&io___833); +#line 14495 "" + s_wsfe(&io___844); /* Writing concatenation */ -#line 14237 "" +#line 14495 "" i__5[0] = 1, a__2[0] = all_1.sq; -#line 14237 "" +#line 14495 "" i__5[1] = 8, a__2[1] = "setname{"; -#line 14237 "" +#line 14495 "" s_cat(ch__12, a__2, i__5, &c__2, (ftnlen)9); -#line 14237 "" +#line 14495 "" do_fio(&c__1, ch__12, (ftnlen)9); -#line 14237 "" +#line 14495 "" do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof( integer)); /* Writing concatenation */ -#line 14237 "" +#line 14495 "" i__6[0] = 2, a__3[0] = "}{"; -#line 14237 "" +#line 14495 "" i__6[1] = comtop_1.lnam[comnvi_1.iiorig[iinst - 1] - 1], a__3[1] = comtop_1.inameq + ( comnvi_1.iiorig[iinst - 1] - 1) * 79; -#line 14237 "" +#line 14495 "" i__6[2] = 2, a__3[2] = "}%"; -#line 14237 "" +#line 14495 "" s_cat(ch__16, a__3, i__6, &c__3, (ftnlen)83); -#line 14237 "" +#line 14495 "" do_fio(&c__1, ch__16, comtop_1.lnam[ comnvi_1.iiorig[iinst - 1] - 1] + 4); -#line 14237 "" +#line 14495 "" e_wsfe(); -#line 14239 "" +#line 14497 "" } -#line 14240 "" +#line 14498 "" } -#line 14241 "" +#line 14499 "" /* L65: */ -#line 14241 "" +#line 14499 "" } -#line 14242 "" - comnvi_1.rename = FALSE_; -#line 14243 "" +#line 14500 "" + if (comshort_1.ishort != 4 && comshort_1.ishort != 2) { +#line 14500 "" + comnvi_1.rename = FALSE_; +#line 14500 "" + } + +/* Reset later and rewrite setname{} in shortening case mcm, since if */ +/* written here it will be inside {{...}} and will be ignored */ + +#line 14505 "" } -#line 14244 "" +#line 14506 "" } -#line 14245 "" +#line 14507 "" } else if (*(unsigned char *)charq == '|') { /* End of bar symbol. Check about end of bar hardspace. */ -#line 14249 "" +#line 14511 "" if (bit_test(all_1.iornq[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 1],26)) { @@ -33801,67 +34406,67 @@ L31: /* list, store with shifts instead, set special bit. Need to repeat this code */ /* at '/'. */ -#line 14255 "" +#line 14517 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],18); -#line 14256 "" +#line 14518 "" ++comudsp_1.nudoff[commvl_1.ivx - 1]; -#line 14257 "" +#line 14519 "" comudsp_1.udoff[commvl_1.ivx + comudsp_1.nudoff[commvl_1.ivx - 1] * 24 - 25] = comudsp_1.udsp[comudsp_1.nudsp - 1]; -#line 14258 "" +#line 14520 "" --comudsp_1.nudsp; -#line 14259 "" +#line 14521 "" all_1.iornq[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 1] = bit_clear(all_1.iornq[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] + 1) * 24 - 1],26); -#line 14260 "" +#line 14522 "" } -#line 14261 "" +#line 14523 "" } else if (i_indx("wS", charq, (ftnlen)2, (ftnlen)1) > 0) { /* Width symbol or new nsyst. Read past (until blank) */ -#line 14265 "" +#line 14527 "" L4: -#line 14265 "" +#line 14527 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14266 "" +#line 14528 "" if (*(unsigned char *)durq != ' ') { -#line 14266 "" +#line 14528 "" goto L4; -#line 14266 "" +#line 14528 "" } -#line 14267 "" +#line 14529 "" } else if (*(unsigned char *)charq == 'l') { /* Lower string. Only OK if at start of block */ /* Check whether at beginning of a block */ -#line 14272 "" +#line 14534 "" if (all_1.iv != 1 || all_1.nnl[0] != 0) { -#line 14273 "" - s_wsle(&io___834); -#line 14273 "" +#line 14535 "" + s_wsle(&io___845); +#line 14535 "" do_lio(&c__9, &c__1, "You entered \"l\" not at beginning of block" , (ftnlen)41); -#line 14273 "" +#line 14535 "" e_wsle(); -#line 14274 "" +#line 14536 "" stop1_(); -#line 14275 "" +#line 14537 "" } /* Set flag for lower string & read it in */ -#line 14279 "" +#line 14541 "" comhead_1.lower = TRUE_; -#line 14280 "" +#line 14542 "" getbuf_(comhead_1.lowerq, (ftnlen)80); -#line 14281 "" +#line 14543 "" all_1.iccount = 128; -#line 14282 "" +#line 14544 "" } else if (*(unsigned char *)charq == 'm') { /* Meter change. Only allow at beginning of block. */ @@ -33870,595 +34475,601 @@ L4: /* Check whether at beginning of a block */ -#line 14290 "" +#line 14552 "" if (all_1.iv != 1 || all_1.nnl[0] != 0) { -#line 14291 "" - s_wsle(&io___835); -#line 14291 "" +#line 14553 "" + s_wsle(&io___846); +#line 14553 "" do_lio(&c__9, &c__1, "You entered \"m\" not at beginning of block" , (ftnlen)41); -#line 14291 "" +#line 14553 "" e_wsle(); -#line 14292 "" +#line 14554 "" stop1_(); -#line 14293 "" +#line 14555 "" } -#line 14294 "" +#line 14556 "" readmeter_(lineq, &all_1.iccount, &all_1.mtrnuml, &all_1.mtrdenl, ( ftnlen)128); -#line 14295 "" +#line 14557 "" readmeter_(lineq, &all_1.iccount, &all_1.mtrnmp, &all_1.mtrdnp, ( ftnlen)128); -#line 14296 "" +#line 14558 "" lenbeat = ifnodur_(&all_1.mtrdenl, "x", (ftnlen)1); -#line 14297 "" +#line 14559 "" if (all_1.mtrdenl == 2) { -#line 14297 "" +#line 14559 "" lenbeat = 16; -#line 14297 "" +#line 14559 "" } -#line 14298 "" +#line 14560 "" all_1.lenbar = all_1.mtrnuml * lenbeat; -#line 14299 "" +#line 14561 "" if (all_1.mtrdenl == 2) { -#line 14299 "" +#line 14561 "" all_1.lenbar <<= 1; -#line 14299 "" +#line 14561 "" } -#line 14300 "" +#line 14562 "" all_1.lenb1 = all_1.lenbar; -#line 14301 "" +#line 14563 "" all_1.lenb0 = 0; -#line 14302 "" +#line 14564 "" if (commidi_1.ismidi) { -#line 14302 "" +#line 14564 "" midievent_("m", &all_1.mtrnuml, &all_1.mtrdenl, (ftnlen)1); -#line 14302 "" +#line 14564 "" } -#line 14303 "" +#line 14565 "" } else if (*(unsigned char *)charq == 'C') { /* Clef change on next note. Set bits 11-15. Won't allow in 2nd line of music. */ -#line 14307 "" +#line 14569 "" if (all_1.nnl[all_1.iv - 1] > 0) { -#line 14307 "" +#line 14569 "" ++comcc_1.ncc[all_1.iv - 1]; -#line 14307 "" +#line 14569 "" } -#line 14308 "" +#line 14570 "" comcc_1.tcc[all_1.iv + comcc_1.ncc[all_1.iv - 1] * 24 - 25] = (real) all_1.itsofar[all_1.iv - 1]; -#line 14309 "" +#line 14571 "" isl = bit_set(all_1.islur[all_1.iv + (all_1.nnl[all_1.iv - 1] + 1) * 24 - 25],11); -#line 14310 "" +#line 14572 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); /* Store clef number, or 7 if clef number = 9 (French violin clef) */ /* Computing MIN */ -#line 14314 "" +#line 14576 "" i__1 = numclef_(durq, (ftnlen)1); -#line 14314 "" +#line 14576 "" isl |= min(i__1,7) << 12; -#line 14315 "" +#line 14577 "" comcc_1.ncmidcc[all_1.iv + comcc_1.ncc[all_1.iv - 1] * 24 - 25] = ncmidf_(durq, (ftnlen)1); -#line 14316 "" +#line 14578 "" if (*(unsigned char *)durq == '8') { -#line 14317 "" +#line 14579 "" all_1.ipl[all_1.iv + (all_1.nnl[all_1.iv - 1] + 1) * 24 - 25] = bit_set(all_1.ipl[all_1.iv + (all_1.nnl[all_1.iv - 1] + 1) * 24 - 25],2); -#line 14318 "" +#line 14580 "" cominsttrans_1.itransamt[cominsttrans_1.instno[all_1.iv - 1] - 1] += 7; -#line 14319 "" +#line 14581 "" comnotes_1.lastlev += 7; -#line 14320 "" +#line 14582 "" + if (all_1.nnl[all_1.iv - 1] == 0) { +#line 14583 "" + comnotes_1.ndlev[all_1.iv - 1] += 7; +#line 14584 "" + comnotes_1.ndlev[all_1.iv + 23] += 7; +#line 14585 "" + } +#line 14586 "" } else { /* This won't work if you really had an octave transposition with some */ /* other clef. Need a check on whether prior clef was an octave clef. */ -#line 14325 "" +#line 14591 "" if (cominsttrans_1.itransamt[cominsttrans_1.instno[all_1.iv - 1] - 1] == 7) { -#line 14326 "" +#line 14592 "" cominsttrans_1.itransamt[cominsttrans_1.instno[all_1.iv - 1] - 1] += -7; -#line 14327 "" +#line 14593 "" comnotes_1.lastlev += -7; -#line 14328 "" - s_wsle(&io___837); -#line 14328 "" - do_lio(&c__9, &c__1, "Reset itransamt to ", (ftnlen)19); -#line 14328 "" - do_lio(&c__3, &c__1, (char *)&cominsttrans_1.itransamt[ - cominsttrans_1.instno[all_1.iv - 1] - 1], (ftnlen) - sizeof(integer)); -#line 14328 "" - e_wsle(); -#line 14329 "" +#line 14594 "" + if (all_1.nnl[all_1.iv - 1] == 0) { +#line 14595 "" + comnotes_1.ndlev[all_1.iv - 1] += -7; +#line 14596 "" + comnotes_1.ndlev[all_1.iv + 23] += -7; +#line 14597 "" + } +#line 14598 "" } -#line 14330 "" +#line 14599 "" } /* Set marker on note with lowest voice # starting at same time. */ -#line 14334 "" +#line 14603 "" if (all_1.iv == 1) { -#line 14335 "" +#line 14604 "" isl = bit_set(isl,15); -#line 14336 "" +#line 14605 "" } else { -#line 14337 "" +#line 14606 "" i__1 = all_1.iv; -#line 14337 "" +#line 14606 "" for (iiv = 1; iiv <= i__1; ++iiv) { -#line 14338 "" +#line 14607 "" nnliiv = all_1.nnl[iiv - 1]; -#line 14339 "" +#line 14608 "" if (iiv == all_1.iv) { -#line 14339 "" +#line 14608 "" ++nnliiv; -#line 14339 "" +#line 14608 "" } -#line 14340 "" +#line 14609 "" itother = 0; -#line 14341 "" +#line 14610 "" i__2 = nnliiv; -#line 14341 "" +#line 14610 "" for (iip = 1; iip <= i__2; ++iip) { -#line 14342 "" +#line 14611 "" if (itother < all_1.itsofar[all_1.iv - 1]) { -#line 14343 "" +#line 14612 "" itother += all_1.nodur[iiv + iip * 24 - 25]; -#line 14344 "" +#line 14613 "" goto L14; -#line 14345 "" +#line 14614 "" } else if (itother == all_1.itsofar[all_1.iv - 1]) { -#line 14346 "" +#line 14615 "" all_1.islur[iiv + iip * 24 - 25] = bit_set( all_1.islur[iiv + iip * 24 - 25],15); -#line 14347 "" +#line 14616 "" goto L15; -#line 14348 "" +#line 14617 "" } -#line 14349 "" +#line 14618 "" L14: -#line 14349 "" +#line 14618 "" ; -#line 14349 "" +#line 14618 "" } -#line 14350 "" +#line 14619 "" /* L13: */ -#line 14350 "" +#line 14619 "" } -#line 14351 "" +#line 14620 "" L15: -#line 14352 "" +#line 14621 "" ; -#line 14352 "" +#line 14621 "" } /* Need 'or' since may have set bit 15 in the above loop */ -#line 14356 "" +#line 14625 "" all_1.islur[all_1.iv + (all_1.nnl[all_1.iv - 1] + 1) * 24 - 25] = isl | all_1.islur[all_1.iv + (all_1.nnl[all_1.iv - 1] + 1) * 24 - 25]; -#line 14357 "" +#line 14626 "" } else if (*(unsigned char *)charq == 'R') { /* Repeats. set bits 5, 6, and/or 8 of islur(1,ip+1) */ -#line 14361 "" +#line 14630 "" L10: -#line 14361 "" +#line 14630 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); /* Save designator in case it's a terminal Rr or Rd */ -#line 14365 "" +#line 14634 "" if (*(unsigned char *)durq == 'l') { -#line 14366 "" +#line 14635 "" all_1.islur[(all_1.nnl[0] + 1) * 24 - 24] = bit_set(all_1.islur[( all_1.nnl[0] + 1) * 24 - 24],5); -#line 14367 "" +#line 14636 "" goto L10; -#line 14368 "" +#line 14637 "" } else if (i_indx("rdDbz", durq, (ftnlen)5, (ftnlen)1) > 0) { -#line 14369 "" +#line 14638 "" if (*(unsigned char *)durq == 'r') { -#line 14370 "" +#line 14639 "" all_1.islur[(all_1.nnl[0] + 1) * 24 - 24] = bit_set( all_1.islur[(all_1.nnl[0] + 1) * 24 - 24],6); -#line 14371 "" +#line 14640 "" } else if (*(unsigned char *)durq == 'd') { -#line 14372 "" +#line 14641 "" all_1.islur[(all_1.nnl[0] + 1) * 24 - 24] = bit_set( all_1.islur[(all_1.nnl[0] + 1) * 24 - 24],8); -#line 14373 "" +#line 14642 "" } else if (*(unsigned char *)durq == 'D') { -#line 14374 "" +#line 14643 "" all_1.islur[(all_1.nnl[0] + 1) * 24 - 24] = bit_set( all_1.islur[(all_1.nnl[0] + 1) * 24 - 24],26); -#line 14375 "" +#line 14644 "" } else if (*(unsigned char *)durq == 'b') { -#line 14376 "" +#line 14645 "" all_1.islur[(all_1.nnl[0] + 1) * 24 - 24] = bit_set( all_1.islur[(all_1.nnl[0] + 1) * 24 - 24],25); -#line 14377 "" +#line 14646 "" } else if (*(unsigned char *)durq == 'z') { /* iornq(1,nnl(1)+1) = ibset(iornq(1,nnl(1)+1),29) */ -#line 14379 "" +#line 14648 "" all_1.ipl[(all_1.nnl[0] + 1) * 24 - 24] = bit_set(all_1.ipl[( all_1.nnl[0] + 1) * 24 - 24],0); -#line 14380 "" +#line 14649 "" } -#line 14381 "" +#line 14650 "" comget_1.rptprev = TRUE_; -#line 14382 "" +#line 14651 "" *(unsigned char *)comget_1.rptfq1 = *(unsigned char *)durq; -#line 14383 "" +#line 14652 "" goto L10; -#line 14384 "" +#line 14653 "" } -#line 14385 "" +#line 14654 "" } else if (*(unsigned char *)charq == 'V') { /* Ending */ -#line 14389 "" +#line 14658 "" nnnl = all_1.nnl[0] + 1; -#line 14390 "" +#line 14659 "" lvoltxt = 0; -#line 14391 "" +#line 14660 "" L11: -#line 14391 "" +#line 14660 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14392 "" +#line 14661 "" if (*(unsigned char *)durq == 'b' || *(unsigned char *)durq == 'x') { /* End Volta, set bit9, and bit10 on if 'b' (end w/ box) */ -#line 14396 "" +#line 14665 "" all_1.islur[nnnl * 24 - 24] = bit_set(all_1.islur[nnnl * 24 - 24], 9); -#line 14397 "" +#line 14666 "" if (*(unsigned char *)durq == 'b') { -#line 14397 "" +#line 14666 "" all_1.islur[nnnl * 24 - 24] = bit_set(all_1.islur[nnnl * 24 - 24],10); -#line 14397 "" +#line 14666 "" } -#line 14398 "" +#line 14667 "" goto L11; -#line 14399 "" +#line 14668 "" } else if (*(unsigned char *)durq != ' ') { /* Start volta; Get text */ -#line 14403 "" +#line 14672 "" if (lvoltxt == 0) { /* First character for text */ -#line 14407 "" +#line 14676 "" lvoltxt = 1; -#line 14408 "" +#line 14677 "" all_1.islur[nnnl * 24 - 24] = bit_set(all_1.islur[nnnl * 24 - 24],7); -#line 14409 "" +#line 14678 "" ++comgrace_1.nvolt; -#line 14410 "" +#line 14679 "" s_copy(comgrace_1.voltxtq + (comgrace_1.nvolt - 1) * 20, durq, (ftnlen)20, (ftnlen)1); -#line 14411 "" +#line 14680 "" } else { /* Writing concatenation */ -#line 14412 "" +#line 14681 "" i__5[0] = lvoltxt, a__2[0] = comgrace_1.voltxtq + ( comgrace_1.nvolt - 1) * 20; -#line 14412 "" +#line 14681 "" i__5[1] = 1, a__2[1] = durq; -#line 14412 "" +#line 14681 "" s_cat(comgrace_1.voltxtq + (comgrace_1.nvolt - 1) * 20, a__2, i__5, &c__2, (ftnlen)20); -#line 14413 "" +#line 14682 "" ++lvoltxt; -#line 14414 "" +#line 14683 "" } -#line 14415 "" +#line 14684 "" goto L11; -#line 14416 "" +#line 14685 "" } -#line 14417 "" +#line 14686 "" } else if (*(unsigned char *)charq == 'B') { -#line 14418 "" +#line 14687 "" combc_1.bcspec = ! combc_1.bcspec; -#line 14419 "" +#line 14688 "" } else if (*(unsigned char *)charq == 'P') { /* Page numbers. Print stuff right now. */ -#line 14423 "" +#line 14692 "" npg1 = 0; /* Will use ltopnam to signal whether there's a centered heading */ -#line 14427 "" +#line 14696 "" ltopnam = 0; -#line 14428 "" +#line 14697 "" ipg1r = 0; -#line 14429 "" +#line 14698 "" L16: -#line 14429 "" +#line 14698 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14430 "" +#line 14699 "" if (*(unsigned char *)durq >= 48 && *(unsigned char *)durq <= 57) { -#line 14431 "" +#line 14700 "" npg1 = npg1 * 10 + *(unsigned char *)durq - 48; -#line 14432 "" +#line 14701 "" goto L16; -#line 14433 "" +#line 14702 "" } else if (*(unsigned char *)durq == 'l') { -#line 14434 "" +#line 14703 "" if (npg1 == 0 || npg1 % 2 == 1) { -#line 14434 "" +#line 14703 "" ipg1r = 1; -#line 14434 "" +#line 14703 "" } -#line 14435 "" +#line 14704 "" goto L16; -#line 14436 "" +#line 14705 "" } else if (*(unsigned char *)durq == 'r') { -#line 14437 "" +#line 14706 "" if (npg1 > 0 && npg1 % 2 == 0) { -#line 14437 "" +#line 14706 "" ipg1r = 1; -#line 14437 "" +#line 14706 "" } -#line 14438 "" +#line 14707 "" goto L16; -#line 14439 "" +#line 14708 "" } else if (*(unsigned char *)durq == 'c') { /* Top-centered name. Assume this is last option. Read the name. */ /* May surround name in double quotes (to allow blanks). */ -#line 14444 "" +#line 14713 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14445 "" +#line 14714 "" if (*(unsigned char *)durq == ' ') { -#line 14446 "" +#line 14715 "" ltopnam = lenstr_(comtrans_1.cheadq, &c__60, (ftnlen)60); -#line 14447 "" +#line 14716 "" } else { -#line 14448 "" +#line 14717 "" namstrt = all_1.iccount; -#line 14449 "" +#line 14718 "" if (*(unsigned char *)durq == '"') { /* Using quote delimiters. */ -#line 14453 "" +#line 14722 "" quoted = TRUE_; -#line 14454 "" +#line 14723 "" ++namstrt; -#line 14455 "" +#line 14724 "" } else { -#line 14456 "" +#line 14725 "" quoted = FALSE_; -#line 14457 "" +#line 14726 "" } -#line 14458 "" +#line 14727 "" for (all_1.iccount = namstrt + 1; all_1.iccount <= 128; ++all_1.iccount) { /* if ((quoted .and. lineq(iccount:iccount) .eq. '"') .or. */ -#line 14460 "" +#line 14729 "" i__1 = all_1.iccount - 2; -#line 14460 "" +#line 14729 "" if (quoted && *(unsigned char *)&lineq[all_1.iccount - 1] == '"' && s_cmp(lineq + i__1, "\\", all_1.iccount - 1 - i__1, (ftnlen)1) != 0 || ! quoted && *( unsigned char *)&lineq[all_1.iccount - 1] == ' ') { -#line 14460 "" +#line 14729 "" goto L36; -#line 14460 "" +#line 14729 "" } /* On exit, iccount is OK, and name is in (namstrt:iccount-1) */ -#line 14467 "" +#line 14736 "" /* L35: */ -#line 14467 "" +#line 14736 "" } -#line 14468 "" - s_wsle(&io___845); -#line 14468 "" +#line 14737 "" + s_wsle(&io___855); +#line 14737 "" do_lio(&c__9, &c__1, "Awww, cmon, should not be here.", ( ftnlen)31); -#line 14468 "" +#line 14737 "" e_wsle(); -#line 14469 "" +#line 14738 "" stop1_(); -#line 14470 "" +#line 14739 "" L36: -#line 14471 "" +#line 14740 "" ltopnam = all_1.iccount - namstrt; -#line 14472 "" +#line 14741 "" s_copy(comtrans_1.cheadq, lineq + (namstrt - 1), (ftnlen)60, all_1.iccount - 1 - (namstrt - 1)); -#line 14473 "" +#line 14742 "" } -#line 14474 "" +#line 14743 "" } /* Done getting data, now assemble the command */ -#line 14478 "" +#line 14747 "" if (npg1 == 0) { -#line 14478 "" +#line 14747 "" npg1 = 1; -#line 14478 "" +#line 14747 "" } /* 2/23/03 Don't use \atnextline if on first page and only one system */ /* if (ipage.gt.1 .or. nsystp(1).gt.1) then */ /* Writing concatenation */ -#line 14483 "" +#line 14752 "" i__7[0] = 1, a__4[0] = all_1.sq; -#line 14483 "" +#line 14752 "" i__7[1] = 3, a__4[1] = "def"; -#line 14483 "" +#line 14752 "" i__7[2] = 1, a__4[2] = all_1.sq; -#line 14483 "" +#line 14752 "" i__7[3] = 11, a__4[3] = "atnextline{"; -#line 14483 "" +#line 14752 "" i__7[4] = 1, a__4[4] = all_1.sq; -#line 14483 "" +#line 14752 "" i__7[5] = 10, a__4[5] = "toppageno{"; -#line 14483 "" +#line 14752 "" s_cat(hdlndq, a__4, i__7, &c__6, (ftnlen)59); -#line 14484 "" +#line 14753 "" lhead = 27; /* else */ /* hdlndq = sq//'toppageno{' */ /* lhead = 11 */ /* end if */ -#line 14489 "" +#line 14758 "" if (npg1 < 10) { /* Note we are overwriting the last "{" */ -#line 14493 "" +#line 14762 "" ici__1.icierr = 0; -#line 14493 "" +#line 14762 "" ici__1.icirnum = 1; -#line 14493 "" +#line 14762 "" ici__1.icirlen = 1; -#line 14493 "" +#line 14762 "" ici__1.iciunit = hdlndq + (lhead - 1); -#line 14493 "" +#line 14762 "" ici__1.icifmt = "(i1)"; -#line 14493 "" +#line 14762 "" s_wsfi(&ici__1); -#line 14493 "" +#line 14762 "" do_fio(&c__1, (char *)&npg1, (ftnlen)sizeof(integer)); -#line 14493 "" +#line 14762 "" e_wsfi(); -#line 14494 "" +#line 14763 "" } else if (npg1 < 100) { -#line 14495 "" +#line 14764 "" lhead += 3; -#line 14496 "" +#line 14765 "" i__1 = lhead - 3; -#line 14496 "" +#line 14765 "" ici__1.icierr = 0; -#line 14496 "" +#line 14765 "" ici__1.icirnum = 1; -#line 14496 "" +#line 14765 "" ici__1.icirlen = lhead - i__1; -#line 14496 "" +#line 14765 "" ici__1.iciunit = hdlndq + i__1; -#line 14496 "" +#line 14765 "" ici__1.icifmt = "(i2,a1)"; -#line 14496 "" +#line 14765 "" s_wsfi(&ici__1); -#line 14496 "" +#line 14765 "" do_fio(&c__1, (char *)&npg1, (ftnlen)sizeof(integer)); -#line 14496 "" +#line 14765 "" do_fio(&c__1, "}", (ftnlen)1); -#line 14496 "" +#line 14765 "" e_wsfi(); -#line 14497 "" +#line 14766 "" } else { -#line 14498 "" +#line 14767 "" lhead += 4; -#line 14499 "" +#line 14768 "" i__1 = lhead - 4; -#line 14499 "" +#line 14768 "" ici__1.icierr = 0; -#line 14499 "" +#line 14768 "" ici__1.icirnum = 1; -#line 14499 "" +#line 14768 "" ici__1.icirlen = lhead - i__1; -#line 14499 "" +#line 14768 "" ici__1.iciunit = hdlndq + i__1; -#line 14499 "" +#line 14768 "" ici__1.icifmt = "(i3,a1)"; -#line 14499 "" +#line 14768 "" s_wsfi(&ici__1); -#line 14499 "" +#line 14768 "" do_fio(&c__1, (char *)&npg1, (ftnlen)sizeof(integer)); -#line 14499 "" +#line 14768 "" do_fio(&c__1, "}", (ftnlen)1); -#line 14499 "" +#line 14768 "" e_wsfi(); -#line 14500 "" +#line 14769 "" } /* Writing concatenation */ -#line 14501 "" +#line 14770 "" i__6[0] = lhead, a__3[0] = hdlndq; -#line 14501 "" +#line 14770 "" i__1 = ipg1r + 48; -#line 14501 "" +#line 14770 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 14501 "" +#line 14770 "" i__6[1] = 1, a__3[1] = ch__1; -#line 14501 "" +#line 14770 "" i__6[2] = 1, a__3[2] = "{"; -#line 14501 "" +#line 14770 "" s_cat(hdlndq, a__3, i__6, &c__3, (ftnlen)59); -#line 14502 "" +#line 14771 "" lhead += 2; /* if (ipage.gt.1 .or. nsystp(1).gt.1) then */ -#line 14504 "" +#line 14773 "" if (ltopnam == 0) { -#line 14505 "" +#line 14774 "" if (comlast_1.islast) { -#line 14505 "" - s_wsfe(&io___847); +#line 14774 "" + s_wsfe(&io___857); /* Writing concatenation */ -#line 14505 "" +#line 14774 "" i__5[0] = lhead, a__2[0] = hdlndq; -#line 14505 "" +#line 14774 "" i__5[1] = 3, a__2[1] = "}}%"; -#line 14505 "" +#line 14774 "" s_cat(ch__17, a__2, i__5, &c__2, (ftnlen)62); -#line 14505 "" +#line 14774 "" do_fio(&c__1, ch__17, lhead + 3); -#line 14505 "" +#line 14774 "" e_wsfe(); -#line 14505 "" +#line 14774 "" } -#line 14506 "" +#line 14775 "" } else { -#line 14507 "" +#line 14776 "" if (comlast_1.islast) { -#line 14507 "" - s_wsfe(&io___848); +#line 14776 "" + s_wsfe(&io___858); /* Writing concatenation */ -#line 14507 "" +#line 14776 "" i__6[0] = lhead, a__3[0] = hdlndq; -#line 14507 "" +#line 14776 "" i__6[1] = ltopnam, a__3[1] = comtrans_1.cheadq; -#line 14507 "" +#line 14776 "" i__6[2] = 3, a__3[2] = "}}%"; -#line 14507 "" +#line 14776 "" s_cat(ch__18, a__3, i__6, &c__3, (ftnlen)122); -#line 14507 "" +#line 14776 "" do_fio(&c__1, ch__18, lhead + ltopnam + 3); -#line 14507 "" +#line 14776 "" e_wsfe(); -#line 14507 "" +#line 14776 "" } -#line 14509 "" +#line 14778 "" } /* else */ /* if (ltopnam .eq. 0) then */ @@ -34468,861 +35079,859 @@ L36: /* * write(11,'(a)')hdlndq(1:lhead)//cheadq(1:ltopnam)//'}%' */ /* end if */ /* end if */ -#line 14518 "" +#line 14787 "" } else if (*(unsigned char *)charq == 'W') { /* Just eat the number that must follow, it was used in pmxa */ -#line 14522 "" +#line 14791 "" ++all_1.iccount; -#line 14523 "" +#line 14792 "" readnum_(lineq, &all_1.iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 14524 "" +#line 14793 "" } else if (*(unsigned char *)charq == 'T') { -#line 14525 "" +#line 14794 "" comtitl_1.headlog = TRUE_; -#line 14526 "" +#line 14795 "" comtitl_1.inhead = 0; -#line 14527 "" +#line 14796 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14528 "" +#line 14797 "" if (*(unsigned char *)durq == 'i') { -#line 14529 "" +#line 14798 "" getbuf_(comtitl_1.instrq, (ftnlen)120); /* A kluge for parts from separate score file for later movements. */ -#line 14533 "" +#line 14802 "" if (*(unsigned char *)comtitl_1.instrq == ' ') { -#line 14533 "" +#line 14802 "" comtitl_1.headlog = FALSE_; -#line 14533 "" +#line 14802 "" } -#line 14534 "" +#line 14803 "" s_copy(comtrans_1.cheadq, comtitl_1.instrq, (ftnlen)60, (ftnlen) 60); -#line 14535 "" +#line 14804 "" } else if (*(unsigned char *)durq == 't') { -#line 14536 "" +#line 14805 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); /* Optionally can include extra vertical \internotes above inbothd */ -#line 14540 "" +#line 14809 "" if (i_indx("-+0123456789", durq, (ftnlen)12, (ftnlen)1) > 0) { -#line 14541 "" +#line 14810 "" ipm = 1; -#line 14542 "" +#line 14811 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Don't trust readnum to round this negative integer properly */ -#line 14546 "" +#line 14815 "" ++all_1.iccount; -#line 14547 "" +#line 14816 "" if (*(unsigned char *)durq == '-') { -#line 14547 "" +#line 14816 "" ipm = -1; -#line 14547 "" +#line 14816 "" } -#line 14548 "" +#line 14817 "" } -#line 14549 "" +#line 14818 "" readnum_(lineq, &all_1.iccount, durq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 14550 "" +#line 14819 "" comtitl_1.inhead = ipm * i_nint(&fnum); -#line 14551 "" +#line 14820 "" } -#line 14552 "" +#line 14821 "" getbuf_(comtitl_1.titleq, (ftnlen)120); -#line 14553 "" +#line 14822 "" } else { -#line 14554 "" +#line 14823 "" getbuf_(comtitl_1.compoq, (ftnlen)120); -#line 14555 "" +#line 14824 "" } -#line 14556 "" +#line 14825 "" comtitl_1.inhead += cominbot_1.inbothd; -#line 14557 "" +#line 14826 "" all_1.iccount = 128; -#line 14558 "" +#line 14827 "" } else if (*(unsigned char *)charq == 'A') { /* Accidental handling etc. */ -#line 14562 "" +#line 14831 "" L27: -#line 14562 "" +#line 14831 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14563 "" +#line 14832 "" if (*(unsigned char *)durq == 'r') { -#line 14564 "" +#line 14833 "" if (comlast_1.islast) { -#line 14565 "" +#line 14834 "" commidi_1.relacc = TRUE_; -#line 14566 "" - s_wsfe(&io___849); +#line 14835 "" + s_wsfe(&io___859); /* Writing concatenation */ -#line 14566 "" +#line 14835 "" i__5[0] = 1, a__2[0] = all_1.sq; -#line 14566 "" +#line 14835 "" i__5[1] = 14, a__2[1] = "relativeaccid%"; -#line 14566 "" +#line 14835 "" s_cat(ch__19, a__2, i__5, &c__2, (ftnlen)15); -#line 14566 "" +#line 14835 "" do_fio(&c__1, ch__19, (ftnlen)15); -#line 14566 "" +#line 14835 "" e_wsfe(); -#line 14567 "" +#line 14836 "" } -#line 14568 "" +#line 14837 "" } else if (*(unsigned char *)durq == 's') { -#line 14569 "" +#line 14838 "" spfacs_1.bacfac = 1e6f; -#line 14570 "" +#line 14839 "" } else if (*(unsigned char *)durq == 'b') { -#line 14571 "" +#line 14840 "" if (comlast_1.islast) { -#line 14571 "" - s_wsfe(&io___850); +#line 14840 "" + s_wsfe(&io___860); /* Writing concatenation */ -#line 14571 "" +#line 14840 "" i__5[0] = 1, a__2[0] = all_1.sq; -#line 14571 "" +#line 14840 "" i__5[1] = 9, a__2[1] = "bigaccid%"; -#line 14571 "" +#line 14840 "" s_cat(ch__3, a__2, i__5, &c__2, (ftnlen)10); -#line 14571 "" +#line 14840 "" do_fio(&c__1, ch__3, (ftnlen)10); -#line 14571 "" +#line 14840 "" e_wsfe(); -#line 14571 "" +#line 14840 "" } -#line 14572 "" +#line 14841 "" spfacs_1.accfac = spfacs_1.bacfac; -#line 14573 "" +#line 14842 "" } else if (*(unsigned char *)durq == 'a') { -#line 14574 "" +#line 14843 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14575 "" +#line 14844 "" readnum_(lineq, &all_1.iccount, durq, &fnum, (ftnlen)128, (ftnlen) 1); -#line 14576 "" +#line 14845 "" --all_1.iccount; -#line 14577 "" +#line 14846 "" } else if (*(unsigned char *)durq == 'i') { -#line 14578 "" +#line 14847 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14579 "" +#line 14848 "" readnum_(lineq, &all_1.iccount, durq, &tintstf, (ftnlen)128, ( ftnlen)1); -#line 14580 "" +#line 14849 "" if (! all_1.firstgulp) { -#line 14580 "" +#line 14849 "" comget_1.fintstf = tintstf; -#line 14580 "" +#line 14849 "" } /* Local corrections for first page were handled by pmxa */ -#line 14584 "" +#line 14853 "" --all_1.iccount; -#line 14585 "" +#line 14854 "" } else if (*(unsigned char *)durq == 'I') { -#line 14586 "" +#line 14855 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14587 "" +#line 14856 "" readnum_(lineq, &all_1.iccount, durq, &comget_1.gintstf, (ftnlen) 128, (ftnlen)1); -#line 14588 "" +#line 14857 "" --all_1.iccount; -#line 14589 "" +#line 14858 "" } else if (*(unsigned char *)durq == 'd') { -#line 14590 "" +#line 14859 "" comarp_1.lowdot = TRUE_; -#line 14591 "" +#line 14860 "" } else if (*(unsigned char *)durq == 'o') { -#line 14593 "" +#line 14862 "" } else if (*(unsigned char *)durq == 'S') { -/* 130324 */ -/* do 50 iiv = 1 , nv */ -#line 14596 "" +#line 14863 "" i__1 = comkeys_2.noinst; -#line 14596 "" +#line 14863 "" for (iiv = 1; iiv <= i__1; ++iiv) { -#line 14597 "" +#line 14864 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14598 "" +#line 14865 "" if (i_indx("-s", durq, (ftnlen)2, (ftnlen)1) > 0) { -#line 14599 "" +#line 14866 "" comfig_1.fullsize[iiv - 1] = .8f; -#line 14600 "" +#line 14867 "" } else if (*(unsigned char *)durq == 't') { -#line 14601 "" +#line 14868 "" comfig_1.fullsize[iiv - 1] = .64f; -#line 14602 "" +#line 14869 "" } else { /* fullsize(ivx) = 1.0 */ -#line 14604 "" +#line 14871 "" comfig_1.fullsize[iiv - 1] = 1.f; -#line 14605 "" +#line 14872 "" } -#line 14606 "" +#line 14873 "" /* L50: */ -#line 14606 "" +#line 14873 "" } -#line 14607 "" +#line 14874 "" } else if (*(unsigned char *)durq == 'e') { /* Line-spacing equalization */ -#line 14611 "" +#line 14878 "" comget_1.equalize = TRUE_; /* The following redefinition of \parskip was put into pmx.tex in version 2.25 or so. */ /* But it causes problems with some older scores and when excerpts are combined */ /* with LaTeX. So as of 2.352 we write it here. */ -#line 14617 "" - s_wsfe(&io___852); +#line 14884 "" + s_wsfe(&io___862); /* Writing concatenation */ -#line 14617 "" +#line 14884 "" i__8[0] = 1, a__5[0] = all_1.sq; -#line 14617 "" +#line 14884 "" i__8[1] = 6, a__5[1] = "global"; -#line 14617 "" +#line 14884 "" i__8[2] = 1, a__5[2] = all_1.sq; -#line 14617 "" +#line 14884 "" i__8[3] = 19, a__5[3] = "parskip 0pt plus 12"; -#line 14617 "" +#line 14884 "" i__8[4] = 1, a__5[4] = all_1.sq; -#line 14617 "" +#line 14884 "" i__8[5] = 19, a__5[5] = "Interligne minus 99"; -#line 14617 "" +#line 14884 "" i__8[6] = 1, a__5[6] = all_1.sq; -#line 14617 "" +#line 14884 "" i__8[7] = 11, a__5[7] = "Interligne%"; -#line 14617 "" +#line 14884 "" s_cat(ch__20, a__5, i__8, &c__8, (ftnlen)59); -#line 14617 "" +#line 14884 "" do_fio(&c__1, ch__20, (ftnlen)59); -#line 14617 "" +#line 14884 "" e_wsfe(); -#line 14619 "" +#line 14886 "" s_copy(tempq, all_1.sepsymq, (ftnlen)24, (ftnlen)1); -#line 14620 "" +#line 14887 "" lentemp = 1; -#line 14621 "" +#line 14888 "" i__1 = all_1.nv - 1; -#line 14621 "" +#line 14888 "" for (iiv = 2; iiv <= i__1; ++iiv) { /* Writing concatenation */ -#line 14622 "" +#line 14889 "" i__5[0] = lentemp, a__2[0] = tempq; -#line 14622 "" +#line 14889 "" i__5[1] = 1, a__2[1] = all_1.sepsymq + (iiv - 1); -#line 14622 "" +#line 14889 "" s_cat(tempq, a__2, i__5, &c__2, (ftnlen)24); -#line 14623 "" +#line 14890 "" ++lentemp; -#line 14624 "" +#line 14891 "" /* L51: */ -#line 14624 "" +#line 14891 "" } -#line 14625 "" - s_wsfe(&io___855); +#line 14892 "" + s_wsfe(&io___865); /* Writing concatenation */ -#line 14625 "" +#line 14892 "" i__9[0] = 1, a__6[0] = all_1.sq; -#line 14625 "" +#line 14892 "" i__9[1] = 3, a__6[1] = "def"; -#line 14625 "" +#line 14892 "" i__9[2] = 1, a__6[2] = all_1.sq; -#line 14625 "" +#line 14892 "" i__9[3] = 8, a__6[3] = "upstrut{"; -#line 14625 "" +#line 14892 "" i__9[4] = 1, a__6[4] = all_1.sq; -#line 14625 "" +#line 14892 "" i__9[5] = 6, a__6[5] = "znotes"; -#line 14625 "" +#line 14892 "" i__9[6] = lentemp, a__6[6] = tempq; -#line 14625 "" +#line 14892 "" i__9[7] = 1, a__6[7] = all_1.sq; -#line 14625 "" +#line 14892 "" i__9[8] = 10, a__6[8] = "zcharnote{"; -#line 14625 "" +#line 14892 "" i__9[9] = 1, a__6[9] = all_1.sq; -#line 14625 "" +#line 14892 "" i__9[10] = 9, a__6[10] = "upamt}{~}"; -#line 14625 "" +#line 14892 "" i__9[11] = 1, a__6[11] = all_1.sq; -#line 14625 "" +#line 14892 "" i__9[12] = 4, a__6[12] = "en}%"; -#line 14625 "" +#line 14892 "" s_cat(ch__21, a__6, i__9, &c__13, (ftnlen)70); -#line 14625 "" +#line 14892 "" do_fio(&c__1, ch__21, lentemp + 46); -#line 14625 "" +#line 14892 "" e_wsfe(); -#line 14628 "" +#line 14895 "" } else if (*(unsigned char *)durq == 'v') { /* Toggle usevshrink */ -#line 14632 "" +#line 14899 "" comlast_1.usevshrink = ! comlast_1.usevshrink; -#line 14633 "" +#line 14900 "" } else if (*(unsigned char *)durq == 'p') { /* Postscript slurs. fontslur is already false (set in g1etnote) */ -#line 14637 "" +#line 14904 "" if (! comslur_1.wrotepsslurdefaults) { /* Set postscrirpt slur adjustment defaults */ -#line 14641 "" - s_wsfe(&io___856); +#line 14908 "" + s_wsfe(&io___866); /* Writing concatenation */ -#line 14641 "" +#line 14908 "" i__7[0] = 1, a__4[0] = all_1.sq; -#line 14641 "" +#line 14908 "" i__7[1] = 12, a__4[1] = "Nosluradjust"; -#line 14641 "" +#line 14908 "" i__7[2] = 1, a__4[2] = all_1.sq; -#line 14641 "" +#line 14908 "" i__7[3] = 11, a__4[3] = "Notieadjust"; -#line 14641 "" +#line 14908 "" i__7[4] = 1, a__4[4] = all_1.sq; -#line 14641 "" +#line 14908 "" i__7[5] = 10, a__4[5] = "nohalfties"; -#line 14641 "" +#line 14908 "" s_cat(ch__22, a__4, i__7, &c__6, (ftnlen)36); -#line 14641 "" +#line 14908 "" do_fio(&c__1, ch__22, (ftnlen)36); -#line 14641 "" +#line 14908 "" e_wsfe(); -#line 14643 "" +#line 14910 "" comslur_1.wrotepsslurdefaults = TRUE_; -#line 14644 "" +#line 14911 "" } -#line 14645 "" +#line 14912 "" L52: -#line 14646 "" +#line 14913 "" g1etchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); /* might be "+", "-", "h" or */ -#line 14647 "" +#line 14914 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Characters to change defaults for ps slurs */ -#line 14651 "" +#line 14918 "" g1etchar_(lineq, &all_1.iccount, charq, (ftnlen)128, (ftnlen) 1); /* charq will be "s,t,h,c */ -#line 14652 "" +#line 14919 "" if (*(unsigned char *)durq == '+') { -#line 14653 "" +#line 14920 "" if (*(unsigned char *)charq == 's') { -#line 14654 "" - s_wsfe(&io___857); +#line 14921 "" + s_wsfe(&io___867); /* Writing concatenation */ -#line 14654 "" +#line 14921 "" i__5[0] = 1, a__2[0] = all_1.sq; -#line 14654 "" +#line 14921 "" i__5[1] = 10, a__2[1] = "Sluradjust"; -#line 14654 "" +#line 14921 "" s_cat(ch__10, a__2, i__5, &c__2, (ftnlen)11); -#line 14654 "" +#line 14921 "" do_fio(&c__1, ch__10, (ftnlen)11); -#line 14654 "" +#line 14921 "" e_wsfe(); -#line 14655 "" +#line 14922 "" } else if (*(unsigned char *)charq == 't') { -#line 14656 "" - s_wsfe(&io___858); +#line 14923 "" + s_wsfe(&io___868); /* Writing concatenation */ -#line 14656 "" +#line 14923 "" i__5[0] = 1, a__2[0] = all_1.sq; -#line 14656 "" +#line 14923 "" i__5[1] = 9, a__2[1] = "Tieadjust"; -#line 14656 "" +#line 14923 "" s_cat(ch__3, a__2, i__5, &c__2, (ftnlen)10); -#line 14656 "" +#line 14923 "" do_fio(&c__1, ch__3, (ftnlen)10); -#line 14656 "" +#line 14923 "" e_wsfe(); -#line 14657 "" +#line 14924 "" } else if (*(unsigned char *)charq == 'h') { -#line 14658 "" - s_wsfe(&io___859); +#line 14925 "" + s_wsfe(&io___869); /* Writing concatenation */ -#line 14658 "" +#line 14925 "" i__5[0] = 1, a__2[0] = all_1.sq; -#line 14658 "" +#line 14925 "" i__5[1] = 8, a__2[1] = "halfties"; -#line 14658 "" +#line 14925 "" s_cat(ch__12, a__2, i__5, &c__2, (ftnlen)9); -#line 14658 "" +#line 14925 "" do_fio(&c__1, ch__12, (ftnlen)9); -#line 14658 "" +#line 14925 "" e_wsfe(); -#line 14659 "" +#line 14926 "" } else { -#line 14660 "" +#line 14927 "" comslur_1.slurcurve += 1; -#line 14661 "" +#line 14928 "" if (comslur_1.slurcurve > 3.1f) { -#line 14662 "" +#line 14929 "" printl_("WARNING!", (ftnlen)8); -#line 14663 "" +#line 14930 "" printl_("Default slur curvature advanced past HH"\ ", resetting", (ftnlen)50); -#line 14665 "" +#line 14932 "" comslur_1.slurcurve = 3.f; -#line 14666 "" +#line 14933 "" } -#line 14667 "" +#line 14934 "" } -#line 14668 "" +#line 14935 "" } else { -#line 14669 "" +#line 14936 "" if (*(unsigned char *)charq == 's') { -#line 14670 "" - s_wsfe(&io___860); +#line 14937 "" + s_wsfe(&io___870); /* Writing concatenation */ -#line 14670 "" +#line 14937 "" i__5[0] = 1, a__2[0] = all_1.sq; -#line 14670 "" +#line 14937 "" i__5[1] = 12, a__2[1] = "Nosluradjust"; -#line 14670 "" +#line 14937 "" s_cat(ch__4, a__2, i__5, &c__2, (ftnlen)13); -#line 14670 "" +#line 14937 "" do_fio(&c__1, ch__4, (ftnlen)13); -#line 14670 "" +#line 14937 "" e_wsfe(); -#line 14671 "" +#line 14938 "" } else if (*(unsigned char *)charq == 't') { -#line 14672 "" - s_wsfe(&io___861); +#line 14939 "" + s_wsfe(&io___871); /* Writing concatenation */ -#line 14672 "" +#line 14939 "" i__5[0] = 1, a__2[0] = all_1.sq; -#line 14672 "" +#line 14939 "" i__5[1] = 11, a__2[1] = "Notieadjust"; -#line 14672 "" +#line 14939 "" s_cat(ch__2, a__2, i__5, &c__2, (ftnlen)12); -#line 14672 "" +#line 14939 "" do_fio(&c__1, ch__2, (ftnlen)12); -#line 14672 "" +#line 14939 "" e_wsfe(); -#line 14673 "" +#line 14940 "" } else if (*(unsigned char *)charq == 'h') { -#line 14674 "" - s_wsfe(&io___862); +#line 14941 "" + s_wsfe(&io___872); /* Writing concatenation */ -#line 14674 "" +#line 14941 "" i__5[0] = 1, a__2[0] = all_1.sq; -#line 14674 "" +#line 14941 "" i__5[1] = 10, a__2[1] = "nohalfties"; -#line 14674 "" +#line 14941 "" s_cat(ch__10, a__2, i__5, &c__2, (ftnlen)11); -#line 14674 "" +#line 14941 "" do_fio(&c__1, ch__10, (ftnlen)11); -#line 14674 "" +#line 14941 "" e_wsfe(); -#line 14675 "" +#line 14942 "" } else { -#line 14676 "" +#line 14943 "" comslur_1.slurcurve += -1; -#line 14677 "" +#line 14944 "" if (comslur_1.slurcurve < -1.1f) { -#line 14678 "" +#line 14945 "" printl_("WARNING!", (ftnlen)8); -#line 14679 "" +#line 14946 "" printl_("Default slur curvature decremented belo"\ "w f, resetting", (ftnlen)53); -#line 14681 "" +#line 14948 "" comslur_1.slurcurve = -1.f; -#line 14682 "" +#line 14949 "" } -#line 14683 "" +#line 14950 "" } -#line 14684 "" +#line 14951 "" } -#line 14685 "" +#line 14952 "" goto L52; /* Check for another set of default changes */ -#line 14686 "" +#line 14953 "" } else if (*(unsigned char *)durq == 'l') { /* Set optional linebreak ties */ -#line 14690 "" +#line 14957 "" comnotes_1.optlinebreakties = TRUE_; -#line 14691 "" +#line 14958 "" goto L52; -#line 14692 "" +#line 14959 "" } else if (*(unsigned char *)durq == 'h') { /* Set flag to write header special on every page */ -#line 14696 "" +#line 14963 "" comnotes_1.headerspecial = TRUE_; -#line 14697 "" +#line 14964 "" goto L52; -#line 14698 "" +#line 14965 "" } else { -#line 14699 "" +#line 14966 "" --all_1.iccount; -#line 14700 "" +#line 14967 "" } -#line 14701 "" +#line 14968 "" } else if (*(unsigned char *)durq == 'K') { /* Toggle keyboard rest placement flag */ -#line 14705 "" +#line 14972 "" comkbdrests_1.kbdrests = ! comkbdrests_1.kbdrests; -#line 14706 "" +#line 14973 "" } else if (*(unsigned char *)durq == 'c') { -#line 14707 "" +#line 14974 "" g1etchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); /* Just eat the input; it was used in pmxa */ -#line 14711 "" +#line 14978 "" goto L27; -#line 14712 "" +#line 14979 "" } else if (*(unsigned char *)durq == 'V') { -#line 14713 "" +#line 14980 "" combottop_1.bottopgap = TRUE_; -#line 14714 "" +#line 14981 "" combottop_1.topamt = 0.f; -#line 14715 "" +#line 14982 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14716 "" +#line 14983 "" pmfac = (real) (i_indx("- +", durq, (ftnlen)3, (ftnlen)1) - 2); -#line 14717 "" +#line 14984 "" g1etchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14718 "" +#line 14985 "" readnum_(lineq, &all_1.iccount, durq, &combottop_1.botamt, ( ftnlen)128, (ftnlen)1); -#line 14719 "" +#line 14986 "" combottop_1.botamt *= pmfac; -#line 14720 "" +#line 14987 "" pmfac = (real) (i_indx("- +", durq, (ftnlen)3, (ftnlen)1) - 2); -#line 14721 "" +#line 14988 "" g1etchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14722 "" +#line 14989 "" readnum_(lineq, &all_1.iccount, durq, &combottop_1.topamt, ( ftnlen)128, (ftnlen)1); -#line 14723 "" +#line 14990 "" combottop_1.topamt *= pmfac; -#line 14724 "" +#line 14991 "" --all_1.iccount; -#line 14725 "" +#line 14992 "" goto L27; -#line 14726 "" +#line 14993 "" } -#line 14727 "" +#line 14994 "" if (i_indx("NR", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Override default part names for scor2prt, or normal include file. */ /* Just bypass rest of input line */ -#line 14732 "" +#line 14999 "" all_1.iccount = 128; -#line 14733 "" +#line 15000 "" } else if (*(unsigned char *)durq != ' ') { -#line 14734 "" +#line 15001 "" goto L27; -#line 14735 "" +#line 15002 "" } -#line 14736 "" +#line 15003 "" } else if (*(unsigned char *)charq == 'K') { -#line 14737 "" +#line 15004 "" L77: -#line 14738 "" +#line 15005 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14739 "" +#line 15006 "" if (*(unsigned char *)durq == 'n') { -#line 14740 "" +#line 15007 "" comignorenats_1.ignorenats = TRUE_; -#line 14741 "" +#line 15008 "" goto L77; -#line 14742 "" +#line 15009 "" } -#line 14743 "" +#line 15010 "" if (*(unsigned char *)durq != 'i') { /* Normal, full-score key change and/or transposition */ -#line 14747 "" +#line 15014 "" num1 = 44 - *(unsigned char *)durq; -#line 14748 "" +#line 15015 "" ++all_1.iccount; -#line 14749 "" +#line 15016 "" readnum_(lineq, &all_1.iccount, durq, &fnum, (ftnlen)128, (ftnlen) 1); -#line 14750 "" +#line 15017 "" num1 *= i_nint(&fnum); /* On exit, durq='+','-'. But only need isig if after start, else done in pmxa */ -#line 14754 "" +#line 15021 "" ++all_1.iccount; -#line 14755 "" +#line 15022 "" readnum_(lineq, &all_1.iccount, charq, &fnum, (ftnlen)128, ( ftnlen)1); -#line 14756 "" +#line 15023 "" if (commidi_1.ismidi) { -#line 14757 "" +#line 15024 "" commidisig_1.midisig = i_nint(&fnum); -#line 14758 "" +#line 15025 "" if (*(unsigned char *)durq == '-') { -#line 14758 "" +#line 15025 "" commidisig_1.midisig = -commidisig_1.midisig; -#line 14758 "" +#line 15025 "" } /* 130317 */ -#line 14760 "" +#line 15027 "" commidisig_1.midisig += comtop_1.idsig; -#line 14761 "" +#line 15028 "" midievent_("k", &commidisig_1.midisig, &c__0, (ftnlen)1); -#line 14763 "" +#line 15030 "" } /* 70 continue */ -#line 14765 "" +#line 15032 "" if (num1 == 0) { /* Key change, not transposition. */ -#line 14769 "" +#line 15036 "" all_1.ipl[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 25] = bit_set(all_1.ipl[commvl_1.ivx + ( all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 25],28); -#line 14770 "" +#line 15037 "" comtop_1.lastisig = comtop_1.isig; -#line 14771 "" +#line 15038 "" comtop_1.isig = i_nint(&fnum); -#line 14772 "" +#line 15039 "" if (*(unsigned char *)durq == '-') { -#line 14772 "" +#line 15039 "" comtop_1.isig = -comtop_1.isig; -#line 14772 "" +#line 15039 "" } -#line 14773 "" +#line 15040 "" comtop_1.isig += comtop_1.idsig; -#line 14774 "" +#line 15041 "" if (commidi_1.ismidi) { -#line 14774 "" +#line 15041 "" midievent_("k", &comtop_1.isig, &c__0, (ftnlen)1); -#line 14774 "" +#line 15041 "" } -#line 14775 "" +#line 15042 "" } else { /* num1 .ne. 0, so transposition, so must be at beginning. isig came with K... */ /* but was passed to pmxb through pmxtex.dat. isig0 comes from setup data */ /* (signature before transposition). idsig must be added to future key changes. */ -#line 14781 "" +#line 15048 "" jv = 0; -#line 14782 "" +#line 15049 "" while(jv < 24) { -#line 14783 "" +#line 15050 "" ++jv; -#line 14784 "" +#line 15051 "" cominsttrans_1.itransamt[jv - 1] = num1; -#line 14785 "" +#line 15052 "" } -#line 14786 "" +#line 15053 "" comtop_1.idsig = comtop_1.isig - comtop_1.isig0; -#line 14787 "" +#line 15054 "" } -#line 14788 "" +#line 15055 "" } else { /* Instrument specific transposition. */ -#line 14792 "" +#line 15059 "" getitransinfo_(&c_false, &combibarcnt_1.ibarcnt, lineq, & all_1.iccount, &ibaroff, &all_1.nbars, &comkeys_2.noinst, (ftnlen)128); /* The sig parameters will have been set 1st time but that's OK */ -#line 14797 "" +#line 15064 "" } -#line 14798 "" +#line 15065 "" } else if (*(unsigned char *)charq == '/') { -#line 14799 "" +#line 15066 "" if (bit_test(all_1.iornq[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 1],26)) { /* There was a hardspace followed by end of block. Remove it from the hardspace */ /* list, store with shifts instead, set special bit. This code also at '|' */ -#line 14804 "" +#line 15071 "" all_1.irest[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = bit_set(all_1.irest[commvl_1.ivx + all_1.nnl[ commvl_1.ivx - 1] * 24 - 25],18); -#line 14805 "" +#line 15072 "" ++comudsp_1.nudoff[commvl_1.ivx - 1]; -#line 14806 "" +#line 15073 "" comudsp_1.udoff[commvl_1.ivx + comudsp_1.nudoff[commvl_1.ivx - 1] * 24 - 25] = comudsp_1.udsp[comudsp_1.nudsp - 1]; -#line 14807 "" +#line 15074 "" --comudsp_1.nudsp; -#line 14808 "" +#line 15075 "" all_1.iornq[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 1] = bit_clear(all_1.iornq[commvl_1.ivx + (all_1.nnl[ commvl_1.ivx - 1] + 1) * 24 - 1],26); -#line 14809 "" +#line 15076 "" } -#line 14810 "" +#line 15077 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); /* Save ending note level: */ -#line 14814 "" +#line 15081 "" if (commvl_1.ivx <= all_1.nv) { /* This is the first line of music on this staff. If previous block had only 1 */ /* voice, save last pitch from line 1 of prev. block to line 2, in case a */ /* 2nd line is started just below */ -#line 14820 "" +#line 15087 "" if (! comnotes_1.was2[all_1.iv - 1]) { -#line 14820 "" +#line 15087 "" comnotes_1.ndlev[all_1.iv + 23] = comnotes_1.ndlev[all_1.iv - 1]; -#line 14820 "" +#line 15087 "" } -#line 14821 "" +#line 15088 "" comnotes_1.was2[all_1.iv - 1] = FALSE_; -#line 14822 "" +#line 15089 "" comnotes_1.ndlev[all_1.iv - 1] = comnotes_1.lastlev; -#line 14823 "" +#line 15090 "" } else { /* This is the 2nd line of music on this staff. */ -#line 14827 "" +#line 15094 "" comnotes_1.was2[all_1.iv - 1] = TRUE_; -#line 14828 "" +#line 15095 "" comnotes_1.ndlev[all_1.iv + 23] = comnotes_1.lastlev; -#line 14829 "" +#line 15096 "" } -#line 14830 "" +#line 15097 "" if (*(unsigned char *)durq == ' ' && all_1.iv == all_1.nv) { /* End of input block */ -#line 14834 "" +#line 15101 "" *loop = FALSE_; -#line 14835 "" +#line 15102 "" } else { /* Start a new line of music */ -#line 14839 "" +#line 15106 "" if (all_1.lenb0 != 0 && all_1.firstgulp) { -#line 14839 "" +#line 15106 "" all_1.lenbar = all_1.lenb0; -#line 14839 "" +#line 15106 "" } -#line 14840 "" +#line 15107 "" all_1.nbars = 0; -#line 14841 "" +#line 15108 "" if (*(unsigned char *)durq == ' ') { /* New line of music is on next staff */ -#line 14845 "" +#line 15112 "" ++all_1.iv; -#line 14846 "" +#line 15113 "" commvl_1.ivx = all_1.iv; -#line 14847 "" +#line 15114 "" } else { /* durq must be 2nd '/'. New line of music is on same staff. Set up for it */ -#line 14851 "" +#line 15118 "" commvl_1.ivx = all_1.nv + 1; -#line 14852 "" +#line 15119 "" i__1 = all_1.nv; -#line 14852 "" +#line 15119 "" for (iiv = 1; iiv <= i__1; ++iiv) { -#line 14853 "" +#line 15120 "" if (commvl_1.nvmx[iiv - 1] == 2) { -#line 14853 "" +#line 15120 "" ++commvl_1.ivx; -#line 14853 "" +#line 15120 "" } -#line 14854 "" +#line 15121 "" /* L23: */ -#line 14854 "" +#line 15121 "" } -#line 14855 "" +#line 15122 "" commvl_1.nvmx[all_1.iv - 1] = 2; -#line 14856 "" +#line 15123 "" commvl_1.ivmx[all_1.iv + 23] = commvl_1.ivx; -#line 14857 "" +#line 15124 "" all_1.itsofar[commvl_1.ivx - 1] = 0; -#line 14858 "" +#line 15125 "" all_1.nnl[commvl_1.ivx - 1] = 0; -#line 14859 "" +#line 15126 "" comfb_1.nfb[commvl_1.ivx - 1] = 0; -#line 14860 "" +#line 15127 "" comudsp_1.nudoff[commvl_1.ivx - 1] = 0; -#line 14861 "" +#line 15128 "" comcc_1.ndotmv[commvl_1.ivx - 1] = 0; -#line 14862 "" +#line 15129 "" for (j = 1; j <= 200; ++j) { -#line 14863 "" +#line 15130 "" all_1.irest[commvl_1.ivx + j * 24 - 25] = 0; -#line 14864 "" +#line 15131 "" all_1.islur[commvl_1.ivx + j * 24 - 25] = 0; -#line 14865 "" +#line 15132 "" all_1.nacc[commvl_1.ivx + j * 24 - 25] = 0; -#line 14866 "" +#line 15133 "" all_1.iornq[commvl_1.ivx + j * 24 - 1] = 0; -#line 14867 "" +#line 15134 "" all_1.ipl[commvl_1.ivx + j * 24 - 25] = 0; -#line 14868 "" +#line 15135 "" all_1.mult[commvl_1.ivx + j * 24 - 25] = 0; -#line 14869 "" +#line 15136 "" /* L24: */ -#line 14869 "" +#line 15136 "" } /* Go back and lower the rests in voice "a" that don't have over-ridden heights */ -#line 14873 "" +#line 15140 "" i__1 = all_1.nnl[all_1.iv - 1]; -#line 14873 "" +#line 15140 "" for (j = 1; j <= i__1; ++j) { -#line 14874 "" +#line 15141 "" if (bit_test(all_1.irest[all_1.iv + j * 24 - 25],0) && all_1.nolev[all_1.iv + j * 24 - 25] == 0) { -#line 14874 "" +#line 15141 "" all_1.nolev[all_1.iv + j * 24 - 25] = -4; -#line 14874 "" +#line 15141 "" } -#line 14876 "" +#line 15143 "" /* L26: */ -#line 14876 "" +#line 15143 "" } -#line 14877 "" +#line 15144 "" } -#line 14878 "" +#line 15145 "" } -#line 14879 "" +#line 15146 "" all_1.iccount = 128; -#line 14880 "" +#line 15147 "" } else if (*(unsigned char *)charq == 'X') { /* 3rd arg is only for termination of group shifts. Use "max" to avoid zero index, */ @@ -35330,9 +35939,9 @@ L77: /* keep group shifts for crossing block boundaries. */ /* Computing MAX */ -#line 14886 "" +#line 15153 "" i__1 = 1, i__2 = all_1.nnl[commvl_1.ivx - 1]; -#line 14886 "" +#line 15153 "" getx_(lineq, &all_1.iccount, &all_1.irest[commvl_1.ivx + max(i__1, i__2) * 24 - 25], &comnotes_1.shifton, &comask_1.wheadpt, & all_1.iornq[commvl_1.ivx + (all_1.nnl[commvl_1.ivx - 1] + 1) * @@ -35340,140 +35949,146 @@ L77: all_1.nnl[commvl_1.ivx - 1] + 1) * 24 - 25], &all_1.itsofar[ commvl_1.ivx - 1], &c__0, &c__0, &c__0, " ", &ndoub, (ftnlen) 128, (ftnlen)1); -#line 14889 "" +#line 15156 "" } else if (*(unsigned char *)charq == 'I') { /* Midi controls. */ -/* call getmidi(nv,lineq,iccount,ibarcnt,ibaroff,nbars,lenbar, */ -#line 14894 "" +#line 15160 "" + s_wsle(&io___878); +#line 15160 "" + do_lio(&c__9, &c__1, "#14928 Calling getmidi from getnote", (ftnlen) + 35); +#line 15160 "" + e_wsle(); +#line 15161 "" getmidi_(&comkeys_2.noinst, lineq, &all_1.iccount, & combibarcnt_1.ibarcnt, &ibaroff, &all_1.nbars, &all_1.lenbar, - &all_1.mtrdenl, &c_false, (ftnlen)128); -#line 14896 "" + &all_1.mtrdenl, &all_1.nv, &c_false, (ftnlen)128); +#line 15163 "" } else if (*(unsigned char *)charq == 'M') { /* Macro action */ -#line 14900 "" +#line 15167 "" getchar_(lineq, &all_1.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 14901 "" +#line 15168 "" if (i_indx("RS", charq, (ftnlen)2, (ftnlen)1) > 0) { /* Record or save a macro. Get the number of the macro. */ -#line 14905 "" +#line 15172 "" getchar_(lineq, &all_1.iccount, durq, (ftnlen)128, (ftnlen)1); -#line 14906 "" +#line 15173 "" readnum_(lineq, &all_1.iccount, durq, &fnum, (ftnlen)128, (ftnlen) 1); -#line 14907 "" +#line 15174 "" commac_1.macnum = i_nint(&fnum); -#line 14908 "" +#line 15175 "" commac_1.macuse = bit_set(commac_1.macuse,commac_1.macnum); -#line 14909 "" +#line 15176 "" if (*(unsigned char *)charq == 'R') { -#line 14910 "" +#line 15177 "" mrec1_(lineq, &all_1.iccount, &ndxm, (ftnlen)128); -#line 14911 "" +#line 15178 "" } else { /* Save (Record but don't activate) */ -#line 14915 "" +#line 15182 "" L5: -#line 14915 "" +#line 15182 "" mrec1_(lineq, &all_1.iccount, &ndxm, (ftnlen)128); -#line 14916 "" +#line 15183 "" if (commac_1.mrecord) { -#line 14917 "" +#line 15184 "" getbuf_(lineq, (ftnlen)128); -#line 14918 "" +#line 15185 "" all_1.iccount = 0; -#line 14919 "" +#line 15186 "" goto L5; -#line 14920 "" +#line 15187 "" } -#line 14921 "" +#line 15188 "" all_1.iccount = all_1.iccount + ndxm + 1; -#line 14922 "" +#line 15189 "" } -#line 14923 "" +#line 15190 "" } else if (*(unsigned char *)charq == 'P') { /* Playback the macro */ -#line 14927 "" +#line 15194 "" getchar_(lineq, &all_1.iccount, charq, (ftnlen)128, (ftnlen)1); -#line 14928 "" +#line 15195 "" readnum_(lineq, &all_1.iccount, durq, &fnum, (ftnlen)128, (ftnlen) 1); -#line 14929 "" +#line 15196 "" commac_1.macnum = i_nint(&fnum); -#line 14930 "" +#line 15197 "" commac_1.icchold = all_1.iccount; -#line 14931 "" +#line 15198 "" s_copy(commac_1.lnholdq, lineq, (ftnlen)128, (ftnlen)128); -#line 14932 "" +#line 15199 "" all_1.iccount = 128; -#line 14933 "" +#line 15200 "" c1ommac_1.ilmac = c1ommac_1.il1mac[commac_1.macnum - 1]; -#line 14934 "" +#line 15201 "" commac_1.mplay = TRUE_; -#line 14935 "" +#line 15202 "" } -#line 14936 "" +#line 15203 "" } else if (i_indx(",.", charq, (ftnlen)2, (ftnlen)1) > 0) { /* Continued rhythmic shortcut */ -#line 14940 "" +#line 15207 "" idotform = i_indx(". ,", charq, (ftnlen)3, (ftnlen)1); -#line 14941 "" +#line 15208 "" if (idotform == 1) { /* Check for start of forced beam on 2nd member of dotform=1 shortcut */ -#line 14945 "" +#line 15212 "" if (comget_1.fbon) { -#line 14946 "" +#line 15213 "" if (comfb_1.t1fb[commvl_1.ivx + comfb_1.nfb[commvl_1.ivx - 1] * 24 - 25] == (real) all_1.itsofar[commvl_1.ivx - 1]) { -#line 14946 "" +#line 15213 "" comfb_1.t1fb[commvl_1.ivx + comfb_1.nfb[commvl_1.ivx - 1] * 24 - 25] += all_1.nodur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] / 2; -#line 14946 "" +#line 15213 "" } -#line 14949 "" +#line 15216 "" } /* Change duration of prior note */ -#line 14953 "" +#line 15220 "" all_1.itsofar[commvl_1.ivx - 1] -= all_1.nodur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25]; -#line 14954 "" +#line 15221 "" all_1.nodur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] = all_1.nodur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25] * 3 / 2; -#line 14955 "" +#line 15222 "" all_1.itsofar[commvl_1.ivx - 1] += all_1.nodur[commvl_1.ivx + all_1.nnl[commvl_1.ivx - 1] * 24 - 25]; -#line 14956 "" +#line 15223 "" } -#line 14957 "" +#line 15224 "" ++idotform; -#line 14958 "" +#line 15225 "" numnum = 1; -#line 14959 "" +#line 15226 "" cdot = TRUE_; -#line 14960 "" +#line 15227 "" goto L1; -#line 14961 "" +#line 15228 "" } -#line 14962 "" +#line 15229 "" return 0; } /* getnote_ */ @@ -35508,7 +36123,7 @@ L5: static real xofforn; /* Fortran I/O blocks */ - static cilist io___875 = { 0, 6, 0, 0, 0 }; + static cilist io___886 = { 0, 6, 0, 0, 0 }; @@ -35522,9 +36137,9 @@ L5: /* Bits 0-13: (stmgx+Tupf._), 14: Down fermata, was F, 15: Trill w/o "tr", was U */ /* 16-18 Editorial sharp, flat, natural "oes,f,n"; 19-20: >^, 21 ? for ed. accid. */ -#line 14986 "" +#line 15253 "" getchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 14987 "" +#line 15254 "" if (i_indx("bc", charq, (ftnlen)2, (ftnlen)1) > 0) { /* caesura or breath, handle specially and exit. Set up data in ibcdata(1...nbc) */ @@ -35534,117 +36149,117 @@ L5: /* bit 27 = 0 if caesura, 1 if breath */ /* bit 28: 5th bit of ivx */ -#line 14996 "" +#line 15263 "" *iornq = bit_set(*iornq,28); -#line 14997 "" +#line 15264 "" ++comcb_1.nbc; /* ibcdata(nbc) = ivx+16*ip */ -#line 14999 "" +#line 15266 "" comcb_1.ibcdata[comcb_1.nbc - 1] = *ivx % 16 + (*ip << 4); -#line 15000 "" +#line 15267 "" if (*ivx >= 16) { -#line 15000 "" +#line 15267 "" comcb_1.ibcdata[comcb_1.nbc - 1] = bit_set(comcb_1.ibcdata[ comcb_1.nbc - 1],28); -#line 15000 "" +#line 15267 "" } -#line 15001 "" +#line 15268 "" if (*(unsigned char *)charq == 'b') { -#line 15001 "" +#line 15268 "" comcb_1.ibcdata[comcb_1.nbc - 1] = bit_set(comcb_1.ibcdata[ comcb_1.nbc - 1],27); -#line 15001 "" +#line 15268 "" } -#line 15002 "" +#line 15269 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 15003 "" +#line 15270 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { /* We have a vertical shift, get it */ -#line 15007 "" +#line 15274 "" ++(*iccount); -#line 15008 "" +#line 15275 "" readnum_(lineq, iccount, charq, &fnum, (ftnlen)128, (ftnlen)1); -#line 15009 "" +#line 15276 "" if (*(unsigned char *)durq == '-') { -#line 15009 "" +#line 15276 "" fnum = -fnum; -#line 15009 "" +#line 15276 "" } -#line 15010 "" +#line 15277 "" r__1 = fnum + 32; -#line 15010 "" +#line 15277 "" i__1 = i_nint(&r__1); -#line 15010 "" +#line 15277 "" setbits_(&comcb_1.ibcdata[comcb_1.nbc - 1], &c__6, &c__13, &i__1); -#line 15011 "" +#line 15278 "" if (i_indx("+-", charq, (ftnlen)2, (ftnlen)1) > 0) { /* Horizontal shift, get it */ -#line 15015 "" +#line 15282 "" ++(*iccount); -#line 15016 "" +#line 15283 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 15017 "" +#line 15284 "" if (*(unsigned char *)charq == '-') { -#line 15017 "" +#line 15284 "" fnum = -fnum; -#line 15017 "" +#line 15284 "" } -#line 15018 "" +#line 15285 "" r__1 = fnum * 10; -#line 15018 "" +#line 15285 "" i__1 = i_nint(&r__1) + 128; -#line 15018 "" +#line 15285 "" setbits_(&comcb_1.ibcdata[comcb_1.nbc - 1], &c__8, &c__19, & i__1); -#line 15019 "" +#line 15286 "" } -#line 15020 "" +#line 15287 "" } -#line 15021 "" +#line 15288 "" return 0; -#line 15022 "" +#line 15289 "" } /* Set signal on main note that some note at this time has ornament. ONLY used */ /* in beamstrt to activate further tests for whether ihornb is needed. */ -#line 15027 "" +#line 15294 "" *iornq = bit_set(*iornq,23); /* Isolate 21 bits defining exisiting ornaments */ -#line 15031 "" +#line 15298 "" if (*notcrd) { /* iorni = iand(4194303,iornq) */ /* iorni = iand(541065215,iornq) */ -#line 15034 "" +#line 15301 "" iorni = 1614807039 & *iornq; -#line 15035 "" +#line 15302 "" } else { -#line 15036 "" +#line 15303 "" iorni = 4194303 & comtrill_1.icrdorn[comtrill_1.ncrd - 1]; -#line 15037 "" +#line 15304 "" } /* korn = index('stmgx+Tupf._)e:XXX>^',charq) */ -#line 15039 "" +#line 15306 "" korn = i_indx("stmgx+Tupf._)e:XXX>^XXXXXXXXCG", charq, (ftnlen)30, ( ftnlen)1); -#line 15040 "" +#line 15307 "" if (korn != 15) { -#line 15040 "" +#line 15307 "" iorni = bit_set(iorni,korn); -#line 15040 "" +#line 15307 "" } /* Note that korn=0 => charq='(', and we set bit 0. if "e" (14), alter later */ /* as follows: korn=16-18 for sfn, and or 21 for bare ?. */ /* When this if-block is done, korn will = bit# of actual ornament (unless "?"). */ -#line 15046 "" +#line 15313 "" if (korn == 15) { /* c Turn off repeated ornament ('o:'), Replicate bits 0-3,5-15,19-20 prev iornq */ @@ -35654,236 +36269,236 @@ L5: /* iorni = ior(iorni,iand(iornq0,1638383)) */ /* iorni = ior(iorni,iand(iornq0,3735535)) */ /* iorni = ior(iorni,iand(iornq0,540606447)) */ -#line 15055 "" +#line 15322 "" iorni |= *iornq0 & 1614348271; -#line 15056 "" +#line 15323 "" *ornrpt = FALSE_; -#line 15057 "" +#line 15324 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); /* durq will be ' ' */ -#line 15061 "" +#line 15328 "" } else if (korn == 14) { /* Editorial accidental */ -#line 15065 "" +#line 15332 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); /* korn = 15+index('sfn',durq) */ -#line 15067 "" +#line 15334 "" korn = i_indx("sfn?", durq, (ftnlen)4, (ftnlen)1) + 15; -#line 15068 "" +#line 15335 "" if (korn == 19) { -#line 15068 "" +#line 15335 "" korn = 21; -#line 15068 "" +#line 15335 "" } -#line 15069 "" +#line 15336 "" iorni = bit_set(bit_clear(iorni,14),korn); -#line 15070 "" +#line 15337 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 15071 "" +#line 15338 "" if (*(unsigned char *)durq == '?') { /* This is "oe[s|f|n]?". Set 21st bit also. */ -#line 15075 "" +#line 15342 "" iorni = bit_set(iorni,21); -#line 15076 "" +#line 15343 "" korn += 6; -#line 15077 "" +#line 15344 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 15078 "" +#line 15345 "" } /* iorni = ibset(ibclr(iorni,14),korn) */ -#line 15080 "" +#line 15347 "" } else if (korn == 4 && *noxtup) { /* segno. Check in pmxa for just 1/block & notcrd. Get horiz. offset in points */ -#line 15084 "" +#line 15351 "" *noffseg = 0; -#line 15085 "" +#line 15352 "" negseg = FALSE_; -#line 15086 "" +#line 15353 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 15087 "" +#line 15354 "" if (*(unsigned char *)durq != ' ') { /* Segno shift is specified */ -#line 15091 "" +#line 15358 "" if (*(unsigned char *)durq == '-') { -#line 15092 "" +#line 15359 "" negseg = TRUE_; -#line 15093 "" +#line 15360 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 15094 "" +#line 15361 "" } -#line 15095 "" +#line 15362 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 15096 "" +#line 15363 "" *noffseg = (integer) fnum; -#line 15097 "" +#line 15364 "" if (negseg) { -#line 15097 "" +#line 15364 "" *noffseg = -(*noffseg); -#line 15097 "" +#line 15364 "" } -#line 15098 "" +#line 15365 "" } -#line 15099 "" +#line 15366 "" } else if (korn == 7) { /* Trill. Check in pmxa for notcrd. Default is 1 noteskip long, with "tr" */ -#line 15103 "" +#line 15370 "" ++comtrill_1.ntrill; -#line 15104 "" +#line 15371 "" comtrill_1.ivtrill[comtrill_1.ntrill - 1] = *ivx; -#line 15105 "" +#line 15372 "" comtrill_1.iptrill[comtrill_1.ntrill - 1] = *ip; -#line 15106 "" +#line 15373 "" comtrill_1.xnsktr[comtrill_1.ntrill - 1] = 1.f; -#line 15107 "" +#line 15374 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 15108 "" +#line 15375 "" if (*(unsigned char *)durq == 't') { /* Convert to new internal symbol for non-'"tr" trill */ -#line 15112 "" +#line 15379 "" korn = 15; -#line 15113 "" +#line 15380 "" iorni = bit_set(bit_clear(iorni,7),15); -#line 15114 "" +#line 15381 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 15115 "" +#line 15382 "" } -#line 15116 "" +#line 15383 "" if (i_indx("0123456789.", durq, (ftnlen)11, (ftnlen)1) > 0) { /* We have a number for the length */ -#line 15120 "" +#line 15387 "" readnum_(lineq, iccount, durq, &comtrill_1.xnsktr[ comtrill_1.ntrill - 1], (ftnlen)128, (ftnlen)1); -#line 15121 "" +#line 15388 "" } -#line 15122 "" +#line 15389 "" } else if (korn == 10 && *noxtup) { /* Fermata */ -#line 15126 "" +#line 15393 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 15127 "" +#line 15394 "" if (*(unsigned char *)durq == 'd') { -#line 15128 "" +#line 15395 "" korn = 14; -#line 15129 "" +#line 15396 "" iorni = bit_set(bit_clear(iorni,10),14); -#line 15130 "" +#line 15397 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 15131 "" +#line 15398 "" } -#line 15132 "" +#line 15399 "" } else { -#line 15133 "" +#line 15400 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 15134 "" +#line 15401 "" } -#line 15135 "" +#line 15402 "" if (i_indx("+- :", durq, (ftnlen)4, (ftnlen)1) == 0) { -#line 15136 "" - s_wsle(&io___875); -#line 15136 "" +#line 15403 "" + s_wsle(&io___886); +#line 15403 "" do_lio(&c__9, &c__1, "Unexpected character at end of ornament: ", ( ftnlen)41); -#line 15136 "" +#line 15403 "" do_lio(&c__9, &c__1, durq, (ftnlen)1); -#line 15136 "" +#line 15403 "" e_wsle(); -#line 15137 "" +#line 15404 "" stop1_(); -#line 15138 "" +#line 15405 "" } -#line 15139 "" +#line 15406 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Shift ornament up or down */ -#line 15143 "" +#line 15410 "" ++comtrill_1.nudorn; /* Set bit 25 in iorni as a signal. This may not really be necessary. */ -#line 15147 "" +#line 15414 "" iorni = bit_set(iorni,25); /* Assemble info to put in kudorn(nudorn) Bits 0-7:ip, 8-11:ivx, 12-18:nolev, */ /* 19-24: type of ornament to be shifted, 25-30: shift+32, 31:h-shft present */ -#line 15152 "" +#line 15419 "" xofforn = (real) (44 - *(unsigned char *)durq); -#line 15153 "" +#line 15420 "" ++(*iccount); -#line 15154 "" +#line 15421 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 15155 "" +#line 15422 "" r__1 = xofforn * fnum; -#line 15155 "" +#line 15422 "" iofforn = i_nint(&r__1); -#line 15156 "" +#line 15423 "" comtrill_1.kudorn[comtrill_1.nudorn - 1] = *ip + (*ivx % 16 << 8) + (* nole << 12) + (korn << 19) + (iofforn + 32 << 25); -#line 15158 "" +#line 15425 "" comivxudorn_1.ivxudorn[comtrill_1.nudorn - 1] = *ivx; -#line 15159 "" +#line 15426 "" if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { /* Horizontal shift */ -#line 15163 "" +#line 15430 "" comtrill_1.kudorn[comtrill_1.nudorn - 1] = bit_set( comtrill_1.kudorn[comtrill_1.nudorn - 1],31); -#line 15164 "" +#line 15431 "" xofforn = (real) (44 - *(unsigned char *)durq); -#line 15165 "" +#line 15432 "" ++(*iccount); -#line 15166 "" +#line 15433 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); /* 141226 ornhshft(nudorn) = nint(xofforn*fnum) */ -#line 15168 "" +#line 15435 "" comtrill_1.ornhshft[comtrill_1.nudorn - 1] = xofforn * fnum; -#line 15169 "" +#line 15436 "" } -#line 15170 "" +#line 15437 "" } else if (*(unsigned char *)durq == ':') { /* Turn on repeated ornaments */ -#line 15174 "" +#line 15441 "" *ornrpt = TRUE_; /* Save the ornament value just set */ -#line 15178 "" +#line 15445 "" *iornq0 = iorni; -#line 15179 "" +#line 15446 "" } -#line 15180 "" +#line 15447 "" if (*notcrd) { -#line 15181 "" +#line 15448 "" *iornq |= iorni; -#line 15182 "" +#line 15449 "" } else { -#line 15183 "" +#line 15450 "" comtrill_1.icrdorn[comtrill_1.ncrd - 1] |= iorni; -#line 15184 "" +#line 15451 "" } -#line 15185 "" +#line 15452 "" return 0; } /* getorn_ */ @@ -35919,9 +36534,9 @@ L5: static char lnholdq[128]; /* Fortran I/O blocks */ - static cilist io___881 = { 0, 6, 0, 0, 0 }; - static cilist io___882 = { 0, 15, 0, "()", 0 }; - static cilist io___886 = { 0, 18, 1, "(a)", 0 }; + static cilist io___892 = { 0, 6, 0, 0, 0 }; + static cilist io___893 = { 0, 15, 0, "()", 0 }; + static cilist io___897 = { 0, 18, 1, "(a)", 0 }; @@ -35944,410 +36559,410 @@ L5: /* ipbufmod = points to last character of most recent inserted line */ /* from pmx.mod */ -#line 15219 "" +#line 15486 "" c1omget_1.line1pmxmod = inbuff_1.ilbuf; -#line 15220 "" +#line 15487 "" if (! (*global)) { -#line 15221 "" +#line 15488 "" ioin__1.inerr = 0; -#line 15221 "" +#line 15488 "" ioin__1.infilen = includeq_len; -#line 15221 "" +#line 15488 "" ioin__1.infile = includeq; -#line 15221 "" +#line 15488 "" ioin__1.inex = &fexist; -#line 15221 "" +#line 15488 "" ioin__1.inopen = 0; -#line 15221 "" +#line 15488 "" ioin__1.innum = 0; -#line 15221 "" +#line 15488 "" ioin__1.innamed = 0; -#line 15221 "" +#line 15488 "" ioin__1.inname = 0; -#line 15221 "" +#line 15488 "" ioin__1.inacc = 0; -#line 15221 "" +#line 15488 "" ioin__1.inseq = 0; -#line 15221 "" +#line 15488 "" ioin__1.indir = 0; -#line 15221 "" +#line 15488 "" ioin__1.infmt = 0; -#line 15221 "" +#line 15488 "" ioin__1.inform = 0; -#line 15221 "" +#line 15488 "" ioin__1.inunf = 0; -#line 15221 "" +#line 15488 "" ioin__1.inrecl = 0; -#line 15221 "" +#line 15488 "" ioin__1.innrec = 0; -#line 15221 "" +#line 15488 "" ioin__1.inblank = 0; -#line 15221 "" +#line 15488 "" f_inqu(&ioin__1); /* Transfer includeq to temporary char variable with known length */ -#line 15225 "" +#line 15492 "" s_copy(pmxmoddirq, includeq, (ftnlen)80, includeq_len); -#line 15226 "" +#line 15493 "" lpmxmoddirq = lenstr_(pmxmoddirq, &c__80, (ftnlen)80); -#line 15227 "" - s_wsle(&io___881); -#line 15227 "" +#line 15494 "" + s_wsle(&io___892); +#line 15494 "" e_wsle(); -#line 15228 "" - s_wsfe(&io___882); -#line 15228 "" +#line 15495 "" + s_wsfe(&io___893); +#line 15495 "" e_wsfe(); -#line 15229 "" +#line 15496 "" if (! fexist) { /* Writing concatenation */ -#line 15230 "" +#line 15497 "" i__1[0] = 15, a__1[0] = "Could not find "; -#line 15230 "" +#line 15497 "" i__1[1] = lpmxmoddirq, a__1[1] = pmxmoddirq; -#line 15230 "" +#line 15497 "" i__1[2] = 19, a__1[2] = ", checking further."; -#line 15230 "" +#line 15497 "" s_cat(ch__1, a__1, i__1, &c__3, (ftnlen)114); -#line 15230 "" +#line 15497 "" printl_(ch__1, lpmxmoddirq + 34); /* File named includeq doesn't not exist. Get directory from PMXMODDIR and */ /* see if it's there */ -#line 15236 "" +#line 15503 "" getenv_("PMXMODDIR", pmxmoddirq, (ftnlen)9, (ftnlen)80); -#line 15237 "" +#line 15504 "" lpmxmoddirq = lenstr_(pmxmoddirq, &c__80, (ftnlen)80); -#line 15238 "" +#line 15505 "" if (lpmxmoddirq > 0) { /* Writing concatenation */ -#line 15239 "" +#line 15506 "" i__2[0] = lpmxmoddirq, a__2[0] = pmxmoddirq; -#line 15239 "" +#line 15506 "" i__2[1] = includeq_len, a__2[1] = includeq; -#line 15239 "" +#line 15506 "" s_cat(pmxmoddirq, a__2, i__2, &c__2, (ftnlen)80); -#line 15240 "" +#line 15507 "" lpmxmoddirq = lenstr_(pmxmoddirq, &c__80, (ftnlen)80); -#line 15241 "" +#line 15508 "" } else { -#line 15242 "" +#line 15509 "" printl_("No other directory defined by PMXMODDIR, stopping", ( ftnlen)49); -#line 15244 "" +#line 15511 "" stop1_(); -#line 15245 "" +#line 15512 "" } -#line 15246 "" +#line 15513 "" ioin__1.inerr = 0; -#line 15246 "" +#line 15513 "" ioin__1.infilen = 80; -#line 15246 "" +#line 15513 "" ioin__1.infile = pmxmoddirq; -#line 15246 "" +#line 15513 "" ioin__1.inex = &fexist; -#line 15246 "" +#line 15513 "" ioin__1.inopen = 0; -#line 15246 "" +#line 15513 "" ioin__1.innum = 0; -#line 15246 "" +#line 15513 "" ioin__1.innamed = 0; -#line 15246 "" +#line 15513 "" ioin__1.inname = 0; -#line 15246 "" +#line 15513 "" ioin__1.inacc = 0; -#line 15246 "" +#line 15513 "" ioin__1.inseq = 0; -#line 15246 "" +#line 15513 "" ioin__1.indir = 0; -#line 15246 "" +#line 15513 "" ioin__1.infmt = 0; -#line 15246 "" +#line 15513 "" ioin__1.inform = 0; -#line 15246 "" +#line 15513 "" ioin__1.inunf = 0; -#line 15246 "" +#line 15513 "" ioin__1.inrecl = 0; -#line 15246 "" +#line 15513 "" ioin__1.innrec = 0; -#line 15246 "" +#line 15513 "" ioin__1.inblank = 0; -#line 15246 "" +#line 15513 "" f_inqu(&ioin__1); -#line 15247 "" +#line 15514 "" if (! fexist) { /* Writing concatenation */ -#line 15248 "" +#line 15515 "" i__1[0] = 15, a__1[0] = "Could not find "; -#line 15248 "" +#line 15515 "" i__1[1] = lpmxmoddirq, a__1[1] = pmxmoddirq; -#line 15248 "" +#line 15515 "" i__1[2] = 11, a__1[2] = ", stopping."; -#line 15248 "" +#line 15515 "" s_cat(ch__2, a__1, i__1, &c__3, (ftnlen)106); -#line 15248 "" +#line 15515 "" printl_(ch__2, lpmxmoddirq + 26); -#line 15250 "" +#line 15517 "" stop1_(); -#line 15251 "" +#line 15518 "" } -#line 15252 "" +#line 15519 "" } /* Writing concatenation */ -#line 15253 "" +#line 15520 "" i__2[0] = 28, a__2[0] = "Opening normal include file "; -#line 15253 "" +#line 15520 "" i__2[1] = lpmxmoddirq, a__2[1] = pmxmoddirq; -#line 15253 "" +#line 15520 "" s_cat(ch__3, a__2, i__2, &c__2, (ftnlen)108); -#line 15253 "" +#line 15520 "" printl_(ch__3, lpmxmoddirq + 28); -#line 15255 "" +#line 15522 "" o__1.oerr = 0; -#line 15255 "" +#line 15522 "" o__1.ounit = 18; -#line 15255 "" +#line 15522 "" o__1.ofnmlen = 80; -#line 15255 "" +#line 15522 "" o__1.ofnm = pmxmoddirq; -#line 15255 "" +#line 15522 "" o__1.orl = 0; -#line 15255 "" +#line 15522 "" o__1.osta = 0; -#line 15255 "" +#line 15522 "" o__1.oacc = 0; -#line 15255 "" +#line 15522 "" o__1.ofm = 0; -#line 15255 "" +#line 15522 "" o__1.oblnk = 0; -#line 15255 "" +#line 15522 "" f_open(&o__1); -#line 15256 "" +#line 15523 "" } else { /* Check for existence of pmx.mod */ -#line 15260 "" +#line 15527 "" getenv_("PMXMODDIR", pmxmoddirq, (ftnlen)9, (ftnlen)80); -#line 15261 "" +#line 15528 "" lpmxmoddirq = lenstr_(pmxmoddirq, &c__80, (ftnlen)80); -#line 15262 "" +#line 15529 "" if (lpmxmoddirq == 0) { -#line 15262 "" +#line 15529 "" return 0; -#line 15262 "" +#line 15529 "" } /* Writing concatenation */ -#line 15263 "" +#line 15530 "" i__2[0] = lpmxmoddirq, a__2[0] = pmxmoddirq; -#line 15263 "" +#line 15530 "" i__2[1] = 7, a__2[1] = "pmx.mod"; -#line 15263 "" +#line 15530 "" s_cat(pmxmoddirq, a__2, i__2, &c__2, (ftnlen)80); -#line 15264 "" +#line 15531 "" lpmxmoddirq += 7; -#line 15265 "" +#line 15532 "" ioin__1.inerr = 0; -#line 15265 "" +#line 15532 "" ioin__1.infilen = 80; -#line 15265 "" +#line 15532 "" ioin__1.infile = pmxmoddirq; -#line 15265 "" +#line 15532 "" ioin__1.inex = &fexist; -#line 15265 "" +#line 15532 "" ioin__1.inopen = 0; -#line 15265 "" +#line 15532 "" ioin__1.innum = 0; -#line 15265 "" +#line 15532 "" ioin__1.innamed = 0; -#line 15265 "" +#line 15532 "" ioin__1.inname = 0; -#line 15265 "" +#line 15532 "" ioin__1.inacc = 0; -#line 15265 "" +#line 15532 "" ioin__1.inseq = 0; -#line 15265 "" +#line 15532 "" ioin__1.indir = 0; -#line 15265 "" +#line 15532 "" ioin__1.infmt = 0; -#line 15265 "" +#line 15532 "" ioin__1.inform = 0; -#line 15265 "" +#line 15532 "" ioin__1.inunf = 0; -#line 15265 "" +#line 15532 "" ioin__1.inrecl = 0; -#line 15265 "" +#line 15532 "" ioin__1.innrec = 0; -#line 15265 "" +#line 15532 "" ioin__1.inblank = 0; -#line 15265 "" +#line 15532 "" f_inqu(&ioin__1); -#line 15266 "" +#line 15533 "" if (! fexist) { -#line 15266 "" +#line 15533 "" return 0; -#line 15266 "" +#line 15533 "" } /* Writing concatenation */ -#line 15267 "" +#line 15534 "" i__2[0] = 28, a__2[0] = "Opening global include file "; -#line 15267 "" +#line 15534 "" i__2[1] = lpmxmoddirq, a__2[1] = pmxmoddirq; -#line 15267 "" +#line 15534 "" s_cat(ch__3, a__2, i__2, &c__2, (ftnlen)108); -#line 15267 "" +#line 15534 "" printl_(ch__3, lpmxmoddirq + 28); -#line 15269 "" +#line 15536 "" o__1.oerr = 0; -#line 15269 "" +#line 15536 "" o__1.ounit = 18; -#line 15269 "" +#line 15536 "" o__1.ofnmlen = lpmxmoddirq; -#line 15269 "" +#line 15536 "" o__1.ofnm = pmxmoddirq; -#line 15269 "" +#line 15536 "" o__1.orl = 0; -#line 15269 "" +#line 15536 "" o__1.osta = 0; -#line 15269 "" +#line 15536 "" o__1.oacc = 0; -#line 15269 "" +#line 15536 "" o__1.ofm = 0; -#line 15269 "" +#line 15536 "" o__1.oblnk = 0; -#line 15269 "" +#line 15536 "" f_open(&o__1); -#line 15270 "" +#line 15537 "" } -#line 15271 "" +#line 15538 "" printl_("Adding include data", (ftnlen)19); /* Read lines in from pmx.mod one at a time */ -#line 15275 "" +#line 15542 "" ipbufmod = inbuff_1.ipbuf; -#line 15276 "" +#line 15543 "" lenbufmod = c1omget_1.lenbuf0; -#line 15277 "" +#line 15544 "" for (ilbufmod = inbuff_1.ilbuf; ilbufmod <= 9600; ++ilbufmod) { -#line 15278 "" - i__3 = s_rsfe(&io___886); -#line 15278 "" +#line 15545 "" + i__3 = s_rsfe(&io___897); +#line 15545 "" if (i__3 != 0) { -#line 15278 "" +#line 15545 "" goto L3; -#line 15278 "" +#line 15545 "" } -#line 15278 "" +#line 15545 "" i__3 = do_fio(&c__1, lnholdq, (ftnlen)128); -#line 15278 "" +#line 15545 "" if (i__3 != 0) { -#line 15278 "" +#line 15545 "" goto L3; -#line 15278 "" +#line 15545 "" } -#line 15278 "" +#line 15545 "" i__3 = e_rsfe(); -#line 15278 "" +#line 15545 "" if (i__3 != 0) { -#line 15278 "" +#line 15545 "" goto L3; -#line 15278 "" +#line 15545 "" } /* A line was read. Slide all existing lengths from here forward ahead by 1 */ -#line 15282 "" +#line 15549 "" i__3 = ilbufmod; -#line 15282 "" +#line 15549 "" for (ilbuff = inbuff_1.nlbuf; ilbuff >= i__3; --ilbuff) { -#line 15283 "" +#line 15550 "" inbuff_1.lbuf[ilbuff] = inbuff_1.lbuf[ilbuff - 1]; -#line 15284 "" +#line 15551 "" /* L2: */ -#line 15284 "" +#line 15551 "" } /* Get length of line from include file */ -#line 15288 "" +#line 15555 "" lenmodline = lenstr_(lnholdq, &c__128, (ftnlen)128); -#line 15289 "" +#line 15556 "" if (lenmodline == 0) { /* Blank line. Make it a single blank with length 1 */ -#line 15293 "" +#line 15560 "" lenmodline = 1; -#line 15294 "" +#line 15561 "" s_copy(lnholdq, " ", (ftnlen)128, (ftnlen)1); -#line 15295 "" +#line 15562 "" } -#line 15296 "" +#line 15563 "" inbuff_1.lbuf[ilbufmod - 1] = (shortint) lenmodline; -#line 15297 "" +#line 15564 "" printl_(lnholdq, lenmodline); /* Insert new stuff into bufq */ -#line 15301 "" +#line 15568 "" i__3 = ipbufmod; /* Writing concatenation */ -#line 15301 "" +#line 15568 "" i__1[0] = ipbufmod, a__1[0] = inbuff_1.bufq; -#line 15301 "" +#line 15568 "" i__1[1] = lenmodline, a__1[1] = lnholdq; -#line 15301 "" +#line 15568 "" i__1[2] = lenbufmod - i__3, a__1[2] = inbuff_1.bufq + i__3; -#line 15301 "" +#line 15568 "" s_cat(inbuff_1.bufq, a__1, i__1, &c__3, (ftnlen)131072); /* Update internal parameters */ -#line 15306 "" +#line 15573 "" ipbufmod += inbuff_1.lbuf[ilbufmod - 1]; -#line 15307 "" +#line 15574 "" lenbufmod += inbuff_1.lbuf[ilbufmod - 1]; -#line 15308 "" +#line 15575 "" ++inbuff_1.nlbuf; -#line 15309 "" +#line 15576 "" /* L1: */ -#line 15309 "" +#line 15576 "" } -#line 15310 "" +#line 15577 "" L3: /* Writing concatenation */ -#line 15311 "" +#line 15578 "" i__2[0] = 8, a__2[0] = "Closing "; -#line 15311 "" +#line 15578 "" i__2[1] = lpmxmoddirq, a__2[1] = pmxmoddirq; -#line 15311 "" +#line 15578 "" s_cat(ch__4, a__2, i__2, &c__2, (ftnlen)88); -#line 15311 "" +#line 15578 "" printl_(ch__4, lpmxmoddirq + 8); -#line 15312 "" +#line 15579 "" cl__1.cerr = 0; -#line 15312 "" +#line 15579 "" cl__1.cunit = 18; -#line 15312 "" +#line 15579 "" cl__1.csta = 0; -#line 15312 "" +#line 15579 "" f_clos(&cl__1); -#line 15313 "" +#line 15580 "" c1omget_1.linesinpmxmod = c1omget_1.linesinpmxmod + ilbufmod - inbuff_1.ilbuf; -#line 15314 "" +#line 15581 "" c1omget_1.lenbuf0 = lenbufmod; /* Fix Andre's error reporting problem 101211 leading to log(neg#) due */ /* to nline being 2 bigger than it should be */ -#line 15319 "" +#line 15586 "" c1omget_1.nline += -2; -#line 15321 "" +#line 15588 "" return 0; } /* getpmxmod_ */ @@ -36366,9 +36981,7 @@ L3: /* Builtin functions */ integer s_cmp(char *, char *, ftnlen, ftnlen), f_open(olist *), s_wsfe( cilist *), do_fio(integer *, char *, ftnlen), e_wsfe(void), - i_nint(real *), i_indx(char *, char *, ftnlen, ftnlen), s_wsle( - cilist *), do_lio(integer *, integer *, char *, ftnlen), e_wsle( - void); + i_nint(real *), i_indx(char *, char *, ftnlen, ftnlen); /* Local variables */ static integer i__, iv, ivi, ipos, nline; @@ -36380,145 +36993,144 @@ L3: static integer iccount, nvsofar; /* Fortran I/O blocks */ - static cilist io___892 = { 0, 17, 0, "(a)", 0 }; - static cilist io___902 = { 0, 6, 0, 0, 0 }; + static cilist io___903 = { 0, 17, 0, "(a)", 0 }; /* Get the first line */ -#line 15337 "" +#line 15604 "" /* Parameter adjustments */ -#line 15337 "" +#line 15604 "" --sepsymq; -#line 15337 "" +#line 15604 "" --clefq; -#line 15337 "" +#line 15604 "" inameq -= 79; -#line 15337 "" +#line 15604 "" -#line 15337 "" +#line 15604 "" /* Function Body */ -#line 15337 "" +#line 15604 "" iccount = 0; -#line 15338 "" +#line 15605 "" L9: -#line 15338 "" +#line 15605 "" getbuf_(lineq, (ftnlen)128); -#line 15339 "" +#line 15606 "" if (*(unsigned char *)lineq == '%') { -#line 15339 "" +#line 15606 "" goto L9; -#line 15339 "" +#line 15606 "" } -#line 15340 "" +#line 15607 "" *istype0 = s_cmp(lineq, "---", (ftnlen)3, (ftnlen)3) == 0; -#line 15341 "" +#line 15608 "" if (*istype0) { /* Have TeX input until next line that starts with '---'. Save in scratch. */ -#line 15345 "" +#line 15612 "" o__1.oerr = 0; -#line 15345 "" +#line 15612 "" o__1.ounit = 17; -#line 15345 "" +#line 15612 "" o__1.ofnm = 0; -#line 15345 "" +#line 15612 "" o__1.orl = 0; -#line 15345 "" +#line 15612 "" o__1.osta = "SCRATCH"; -#line 15345 "" +#line 15612 "" o__1.oacc = 0; -#line 15345 "" +#line 15612 "" o__1.ofm = 0; -#line 15345 "" +#line 15612 "" o__1.oblnk = 0; -#line 15345 "" +#line 15612 "" f_open(&o__1); -#line 15346 "" +#line 15613 "" L3: -#line 15346 "" +#line 15613 "" getbuf_(lineq, (ftnlen)128); -#line 15347 "" +#line 15614 "" if (s_cmp(lineq, "---", (ftnlen)3, (ftnlen)3) != 0) { -#line 15348 "" - s_wsfe(&io___892); -#line 15348 "" +#line 15615 "" + s_wsfe(&io___903); +#line 15615 "" do_fio(&c__1, lineq, (ftnlen)128); -#line 15348 "" +#line 15615 "" e_wsfe(); -#line 15349 "" +#line 15616 "" goto L3; -#line 15350 "" +#line 15617 "" } /* Force a new line read on first call to readin */ -#line 15354 "" +#line 15621 "" iccount = 128; -#line 15355 "" +#line 15622 "" } /* Here, lineq is first line w/ numerical setup data. */ -#line 15359 "" +#line 15626 "" r__1 = readin_(lineq, &iccount, &nline, (ftnlen)128); -#line 15359 "" +#line 15626 "" *nv = i_nint(&r__1); -#line 15360 "" +#line 15627 "" r__1 = readin_(lineq, &iccount, &nline, (ftnlen)128); -#line 15360 "" +#line 15627 "" *noinst = i_nint(&r__1); -#line 15361 "" +#line 15628 "" newway = *noinst <= 0; -#line 15362 "" +#line 15629 "" if (newway) { -#line 15362 "" +#line 15629 "" *noinst = -(*noinst); -#line 15362 "" +#line 15629 "" } -#line 15363 "" +#line 15630 "" i__1 = *noinst; -#line 15363 "" +#line 15630 "" for (iinst = 1; iinst <= i__1; ++iinst) { /* Seve # of staves per inst in case later drop some inst's. */ -#line 15367 "" +#line 15634 "" if (newway) { /* Read in nvi for each instrument */ -#line 15371 "" +#line 15638 "" r__1 = readin_(lineq, &iccount, &nline, (ftnlen)128); -#line 15371 "" +#line 15638 "" comnvi_1.nsperi[iinst - 1] = i_nint(&r__1); -#line 15372 "" +#line 15639 "" } else if (iinst > 1) { -#line 15373 "" +#line 15640 "" comnvi_1.nsperi[iinst - 1] = 1; -#line 15374 "" +#line 15641 "" } else { -#line 15375 "" +#line 15642 "" comnvi_1.nsperi[iinst - 1] = *nv - *noinst + 1; -#line 15376 "" +#line 15643 "" } -#line 15377 "" +#line 15644 "" comnvi_1.iiorig[iinst - 1] = iinst; -#line 15378 "" +#line 15645 "" comnvi_1.nspern[iinst - 1] = comnvi_1.nsperi[iinst - 1]; -#line 15379 "" +#line 15646 "" /* L2: */ -#line 15379 "" +#line 15646 "" } -#line 15380 "" +#line 15647 "" r__1 = readin_(lineq, &iccount, &nline, (ftnlen)128); -#line 15380 "" +#line 15647 "" *mtrnuml = i_nint(&r__1); -#line 15381 "" +#line 15648 "" r__1 = readin_(lineq, &iccount, &nline, (ftnlen)128); -#line 15381 "" +#line 15648 "" *mtrdenl = i_nint(&r__1); /* c */ /* c Kluge to make mtrdenl work */ @@ -36527,154 +37139,147 @@ L3: /* mtrdenl = 2 */ /* mtrnuml = mtrnuml*2 */ /* end if */ -#line 15389 "" +#line 15656 "" r__1 = readin_(lineq, &iccount, &nline, (ftnlen)128); -#line 15389 "" +#line 15656 "" *mtrnmp = i_nint(&r__1); -#line 15390 "" +#line 15657 "" r__1 = readin_(lineq, &iccount, &nline, (ftnlen)128); -#line 15390 "" +#line 15657 "" *mtrdnp = i_nint(&r__1); -#line 15391 "" +#line 15658 "" *xmtrnum0 = readin_(lineq, &iccount, &nline, (ftnlen)128); /* Original key sig (before any trnasposition) in next position. Transposed */ /* sig for topfile was transferred thru pmxtex.dat. Need isig0 for key */ /* changes if transposed. */ -#line 15397 "" +#line 15664 "" r__1 = readin_(lineq, &iccount, &nline, (ftnlen)128); -#line 15397 "" +#line 15664 "" *isig0 = i_nint(&r__1); /* 130316 */ /* do 11 iinst = 1 , noinst */ /* midisig(iinst) = isig0 */ -#line 15401 "" +#line 15668 "" commidisig_1.midisig = *isig0; /* 11 continue */ -#line 15403 "" +#line 15670 "" r__1 = readin_(lineq, &iccount, &nline, (ftnlen)128); -#line 15403 "" +#line 15670 "" *npages = i_nint(&r__1); -#line 15404 "" +#line 15671 "" r__1 = readin_(lineq, &iccount, &nline, (ftnlen)128); -#line 15404 "" +#line 15671 "" *nsyst = i_nint(&r__1); -#line 15405 "" +#line 15672 "" r__1 = readin_(lineq, &iccount, &nline, (ftnlen)128); -#line 15405 "" +#line 15672 "" *musicsize = i_nint(&r__1); -#line 15406 "" +#line 15673 "" *fracindent = readin_(lineq, &iccount, &nline, (ftnlen)128); /* Next noinst non-comment lines are names of instruments. */ -#line 15410 "" +#line 15677 "" i__1 = *noinst; -#line 15410 "" +#line 15677 "" for (i__ = 1; i__ <= i__1; ++i__) { -#line 15411 "" +#line 15678 "" L5: -#line 15411 "" +#line 15678 "" getbuf_(inameq + i__ * 79, (ftnlen)79); -#line 15412 "" +#line 15679 "" if (*(unsigned char *)&inameq[i__ * 79] == '%') { -#line 15412 "" +#line 15679 "" goto L5; -#line 15412 "" +#line 15679 "" } -#line 15413 "" +#line 15680 "" /* L4: */ -#line 15413 "" +#line 15680 "" } /* Next non-comment line has nv clef names */ -#line 15417 "" +#line 15684 "" L6: -#line 15417 "" +#line 15684 "" getbuf_(lineq, (ftnlen)128); -#line 15418 "" +#line 15685 "" if (*(unsigned char *)lineq == '%') { -#line 15418 "" +#line 15685 "" goto L6; -#line 15418 "" +#line 15685 "" } -#line 15419 "" +#line 15686 "" iv = 0; -#line 15420 "" +#line 15687 "" nvsofar = 0; -#line 15421 "" +#line 15688 "" i__1 = *noinst; -#line 15421 "" +#line 15688 "" for (jinst = 1; jinst <= i__1; ++jinst) { -#line 15422 "" +#line 15689 "" nvsofar += comnvi_1.nsperi[jinst - 1]; -#line 15423 "" +#line 15690 "" i__2 = comnvi_1.nsperi[jinst - 1]; -#line 15423 "" +#line 15690 "" for (ivi = 1; ivi <= i__2; ++ivi) { -#line 15424 "" +#line 15691 "" ++iv; -#line 15425 "" +#line 15692 "" *(unsigned char *)&clefq[iv] = *(unsigned char *)&lineq[iv - 1]; -#line 15426 "" +#line 15693 "" if (iv == nvsofar) { -#line 15427 "" +#line 15694 "" *(unsigned char *)&sepsymq[iv] = '&'; -#line 15428 "" +#line 15695 "" } else { -#line 15429 "" +#line 15696 "" *(unsigned char *)&sepsymq[iv] = '|'; -#line 15430 "" +#line 15697 "" } -#line 15431 "" +#line 15698 "" /* L10: */ -#line 15431 "" +#line 15698 "" } -#line 15432 "" +#line 15699 "" /* L1: */ -#line 15432 "" +#line 15699 "" } /* Mext non-comment line has path name */ -#line 15436 "" +#line 15703 "" L8: -#line 15436 "" +#line 15703 "" getbuf_(pathnameq, (ftnlen)40); -#line 15437 "" +#line 15704 "" if (*(unsigned char *)pathnameq == '%') { -#line 15437 "" +#line 15704 "" goto L8; -#line 15437 "" +#line 15704 "" } -#line 15438 "" +#line 15705 "" *lpath = i_indx(pathnameq, " ", (ftnlen)40, (ftnlen)1) - 1; /* 160130 Replace '\' by '/' */ -#line 15442 "" +#line 15709 "" L12: -#line 15442 "" +#line 15709 "" ipos = i_indx(pathnameq, "\\", (ftnlen)40, (ftnlen)1); -#line 15443 "" +#line 15710 "" if (ipos > 0) { -#line 15444 "" +#line 15711 "" *(unsigned char *)&pathnameq[ipos - 1] = '/'; -#line 15445 "" - s_wsle(&io___902); -#line 15445 "" - do_lio(&c__9, &c__1, "Changed pathname to ", (ftnlen)20); -#line 15445 "" - do_lio(&c__9, &c__1, pathnameq, (*lpath)); -#line 15445 "" - e_wsle(); -#line 15446 "" +/* print*,'Changed pathname to ',pathnameq(1:lpath) */ +#line 15713 "" goto L12; -#line 15447 "" +#line 15714 "" } -#line 15448 "" +#line 15715 "" return 0; } /* getset_ */ @@ -36698,55 +37303,55 @@ doublereal getsquez_(integer *n, integer *ntot, real *space, real *tnote, /* Since notes are ordered by increasing start times, as soon as we find one */ /* that starts too late, we are done checking. */ -#line 15462 "" +#line 15729 "" /* Parameter adjustments */ -#line 15462 "" +#line 15729 "" --to; -#line 15462 "" +#line 15729 "" --tnote; -#line 15462 "" +#line 15729 "" -#line 15462 "" +#line 15729 "" /* Function Body */ -#line 15462 "" +#line 15729 "" tgovern = 1e3f; -#line 15463 "" +#line 15730 "" tend = to[*n] + *space; -#line 15464 "" +#line 15731 "" i__1 = *ntot; -#line 15464 "" +#line 15731 "" for (in = 1; in <= i__1; ++in) { /* Since to() is ordered by start times, exit loop after first note that */ /* starts later than note of interest. */ -#line 15469 "" +#line 15736 "" if (to[in] > to[*n] + comtol_1.tol) { -#line 15469 "" +#line 15736 "" goto L2; -#line 15469 "" +#line 15736 "" } -#line 15470 "" +#line 15737 "" if (to[in] + tnote[in] > tend - comtol_1.tol) { /* If here, this note overlaps and must be tested. */ /* Computing MIN */ -#line 15474 "" +#line 15741 "" r__1 = tgovern, r__2 = tnote[in]; -#line 15474 "" +#line 15741 "" tgovern = dmin(r__1,r__2); -#line 15475 "" +#line 15742 "" } -#line 15476 "" +#line 15743 "" /* L1: */ -#line 15476 "" +#line 15743 "" } -#line 15477 "" +#line 15744 "" L2: -#line 15478 "" +#line 15745 "" ret_val = *space / tgovern; -#line 15479 "" +#line 15746 "" return ret_val; } /* getsquez_ */ @@ -36777,140 +37382,140 @@ L2: /* during xtups, we use itup and ntup to get actual time. On entry, ntup=0 if */ /* not in xtup. */ -#line 15495 "" +#line 15762 "" colon = FALSE_; -#line 15496 "" +#line 15763 "" ess = FALSE_; -#line 15497 "" +#line 15764 "" number = FALSE_; -#line 15498 "" +#line 15765 "" nextbl = *iccount + i_indx(lineq + (*iccount - 1), " ", 128 - (*iccount - 1), (ftnlen)1) - 1; -#line 15499 "" +#line 15766 "" if (i_indx(lineq + (*iccount - 1), "P", nextbl - (*iccount - 1), (ftnlen) 1) > 0) { /* "Parts only", ignore entire symbol */ -#line 15503 "" +#line 15770 "" *iccount = nextbl; -#line 15504 "" +#line 15771 "" return 0; -#line 15505 "" +#line 15772 "" } -#line 15506 "" +#line 15773 "" L1: -#line 15506 "" +#line 15773 "" getchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 15507 "" +#line 15774 "" if (*(unsigned char *)charq == 'B') { /* "Both parts and score," ignore character */ -#line 15511 "" +#line 15778 "" goto L1; -#line 15512 "" +#line 15779 "" } else if (*(unsigned char *)charq == ':') { -#line 15513 "" +#line 15780 "" colon = TRUE_; -#line 15514 "" +#line 15781 "" goto L1; -#line 15515 "" +#line 15782 "" } else if (*(unsigned char *)charq == 'S') { -#line 15516 "" +#line 15783 "" ess = TRUE_; -#line 15517 "" +#line 15784 "" goto L1; -#line 15518 "" +#line 15785 "" } else if (i_indx("+-.0123456789", charq, (ftnlen)13, (ftnlen)1) > 0) { -#line 15519 "" +#line 15786 "" number = TRUE_; -#line 15520 "" +#line 15787 "" if (*(unsigned char *)charq == '-') { -#line 15520 "" +#line 15787 "" ++(*iccount); -#line 15520 "" +#line 15787 "" } -#line 15521 "" +#line 15788 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 15522 "" +#line 15789 "" if (*(unsigned char *)charq == '-') { -#line 15522 "" +#line 15789 "" fnum = -fnum; -#line 15522 "" +#line 15789 "" } -#line 15523 "" +#line 15790 "" if (*(unsigned char *)durq != 'p') { -#line 15524 "" +#line 15791 "" fnum *= *wheadpt; -#line 15525 "" +#line 15792 "" --(*iccount); -#line 15526 "" +#line 15793 "" } -#line 15527 "" +#line 15794 "" goto L1; -#line 15528 "" +#line 15795 "" } /* charq must be blank, so done parsing */ -#line 15532 "" +#line 15799 "" if (! ess && ! colon) { /* Ordinary hardspace. Goes before next note. */ /* (Later, at "|" or "/", check for presence and switch to udoff if there!) */ -#line 15537 "" +#line 15804 "" ++comudsp_1.nudsp; -#line 15538 "" +#line 15805 "" *iornq1 = bit_set(*iornq1,26); -#line 15539 "" +#line 15806 "" comudsp_1.udsp[comudsp_1.nudsp - 1] = fnum; -#line 15540 "" +#line 15807 "" comudsp_1.tudsp[comudsp_1.nudsp - 1] = (real) (*itsofar); -#line 15541 "" +#line 15808 "" if (*ntup > 0) { -#line 15541 "" +#line 15808 "" comudsp_1.tudsp[comudsp_1.nudsp - 1] += (real) (*itup - 1 + * ndoub) / *ntup * ifnodur_(nnodur, dotq, (ftnlen)1); -#line 15541 "" +#line 15808 "" } /* * +float(itup-1)/ntup*ifnodur(nnodur,dotq) */ -#line 15544 "" +#line 15811 "" } else if (! number) { /* Must be "X:" End a group offset. */ -#line 15548 "" +#line 15815 "" *irest = bit_set(*irest,17); -#line 15549 "" +#line 15816 "" *shifton = FALSE_; -#line 15550 "" +#line 15817 "" return 0; -#line 15551 "" +#line 15818 "" } else { /* Only other possibility is start offset, "S" for single, ':' for multiple */ -#line 15555 "" +#line 15822 "" ++comudsp_1.nudoff[*ivx - 1]; -#line 15556 "" +#line 15823 "" comudsp_1.udoff[*ivx + comudsp_1.nudoff[*ivx - 1] * 24 - 25] = fnum; -#line 15557 "" +#line 15824 "" if (ess) { -#line 15558 "" +#line 15825 "" *irest1 = bit_set(*irest1,15); -#line 15559 "" +#line 15826 "" } else { -#line 15560 "" +#line 15827 "" *irest1 = bit_set(*irest1,16); -#line 15561 "" +#line 15828 "" *shifton = TRUE_; -#line 15562 "" +#line 15829 "" } -#line 15563 "" +#line 15830 "" } -#line 15564 "" +#line 15831 "" return 0; } /* getx_ */ @@ -36927,75 +37532,75 @@ integer i1fnodur_(integer *idur, char *dotq, ftnlen dotq_len) extern /* Subroutine */ int stop1_(void); /* Fortran I/O blocks */ - static cilist io___913 = { 0, 6, 0, 0, 0 }; - static cilist io___914 = { 0, 6, 0, 0, 0 }; + static cilist io___923 = { 0, 6, 0, 0, 0 }; + static cilist io___924 = { 0, 6, 0, 0, 0 }; -#line 15568 "" +#line 15835 "" if (*idur == 6) { -#line 15569 "" +#line 15836 "" ret_val = 1; -#line 15570 "" +#line 15837 "" } else if (*idur == 3) { -#line 15571 "" +#line 15838 "" ret_val = 2; -#line 15572 "" +#line 15839 "" } else if (*idur == 1) { -#line 15573 "" +#line 15840 "" ret_val = 4; -#line 15574 "" +#line 15841 "" } else if (*idur == 8) { -#line 15575 "" +#line 15842 "" ret_val = 8; -#line 15576 "" +#line 15843 "" } else if (*idur == 4) { -#line 15577 "" +#line 15844 "" ret_val = 16; -#line 15578 "" +#line 15845 "" } else if (*idur == 2) { -#line 15579 "" +#line 15846 "" ret_val = 32; -#line 15580 "" +#line 15847 "" } else if (*idur == 0) { -#line 15581 "" +#line 15848 "" ret_val = 64; -#line 15582 "" +#line 15849 "" } else if (*idur == 16) { /* Only used for denominator of time signatures, not for notes */ -#line 15586 "" +#line 15853 "" ret_val = 4; -#line 15587 "" +#line 15854 "" } else if (*idur == 9) { -#line 15588 "" +#line 15855 "" ret_val = 128; -#line 15589 "" +#line 15856 "" } else { -#line 15590 "" - s_wsle(&io___913); -#line 15590 "" +#line 15857 "" + s_wsle(&io___923); +#line 15857 "" e_wsle(); -#line 15591 "" - s_wsle(&io___914); -#line 15591 "" +#line 15858 "" + s_wsle(&io___924); +#line 15858 "" do_lio(&c__9, &c__1, "You entered an invalid note-length value:", ( ftnlen)41); -#line 15591 "" +#line 15858 "" do_lio(&c__3, &c__1, (char *)&(*idur), (ftnlen)sizeof(integer)); -#line 15591 "" +#line 15858 "" e_wsle(); -#line 15592 "" +#line 15859 "" stop1_(); -#line 15593 "" +#line 15860 "" } -#line 15594 "" +#line 15861 "" if (*(unsigned char *)dotq == 'd') { -#line 15594 "" +#line 15861 "" ret_val = ret_val * 3 / 2; -#line 15594 "" +#line 15861 "" } -#line 15595 "" +#line 15862 "" return ret_val; } /* i1fnodur_ */ @@ -37013,9 +37618,9 @@ integer iashft_(integer *nacc) /* System generated locals */ integer ret_val; -#line 15605 "" +#line 15872 "" ret_val = ias[(0 + (0 + (*nacc - 1 << 2))) / 4]; -#line 15606 "" +#line 15873 "" return ret_val; } /* iashft_ */ @@ -37030,67 +37635,67 @@ integer ifnodur_(integer *idur, char *dotq, ftnlen dotq_len) /* Subroutine */ int s_stop(char *, ftnlen); /* Fortran I/O blocks */ - static cilist io___916 = { 0, 6, 0, 0, 0 }; + static cilist io___926 = { 0, 6, 0, 0, 0 }; -#line 15610 "" +#line 15877 "" if (*idur == 6) { -#line 15611 "" +#line 15878 "" ret_val = 1; -#line 15612 "" +#line 15879 "" } else if (*idur == 3) { -#line 15613 "" +#line 15880 "" ret_val = 2; -#line 15614 "" +#line 15881 "" } else if (*idur == 1) { -#line 15615 "" +#line 15882 "" ret_val = 4; -#line 15616 "" +#line 15883 "" } else if (*idur == 8) { -#line 15617 "" +#line 15884 "" ret_val = 8; -#line 15618 "" +#line 15885 "" } else if (*idur == 4) { -#line 15619 "" +#line 15886 "" ret_val = 16; -#line 15620 "" +#line 15887 "" } else if (*idur == 2) { -#line 15621 "" +#line 15888 "" ret_val = 32; -#line 15622 "" +#line 15889 "" } else if (*idur == 0) { -#line 15623 "" +#line 15890 "" ret_val = 64; -#line 15624 "" +#line 15891 "" } else if (*idur == 9) { -#line 15625 "" +#line 15892 "" ret_val = 128; -#line 15626 "" +#line 15893 "" } else if (*idur == 16) { /* Only used for denominator of time signatures, not for notes */ -#line 15630 "" +#line 15897 "" ret_val = 4; -#line 15631 "" +#line 15898 "" } else { -#line 15632 "" - s_wsle(&io___916); -#line 15632 "" +#line 15899 "" + s_wsle(&io___926); +#line 15899 "" do_lio(&c__9, &c__1, "You entered an invalid note value", (ftnlen)33); -#line 15632 "" +#line 15899 "" e_wsle(); -#line 15633 "" +#line 15900 "" s_stop("", (ftnlen)0); -#line 15634 "" +#line 15901 "" } -#line 15635 "" +#line 15902 "" if (*(unsigned char *)dotq == 'd') { -#line 15635 "" +#line 15902 "" ret_val = ret_val * 3 / 2; -#line 15635 "" +#line 15902 "" } -#line 15636 "" +#line 15903 "" return ret_val; } /* ifnodur_ */ @@ -37099,9 +37704,9 @@ integer ifnolev_(char *noq, integer *oct, integer *ntrans, ftnlen noq_len) /* System generated locals */ integer ret_val; -#line 15641 "" +#line 15908 "" ret_val = *oct * 7 + (*(unsigned char *)noq - 92) % 7 + 1 + *ntrans; -#line 15642 "" +#line 15909 "" return ret_val; } /* ifnolev_ */ @@ -37145,9 +37750,9 @@ integer igetbits_(integer *isdata, integer *iwidbit, integer *ishift) /* Extracts integer given by iwidbit bits of isdata, shifted by ishift, and */ /* then added to ioff */ -#line 15677 "" +#line 15944 "" ret_val = pow_ii(&c__2, iwidbit) - 1 & lbit_shift(*isdata, -(*ishift)); -#line 15678 "" +#line 15945 "" return ret_val; } /* igetbits_ */ @@ -37165,48 +37770,46 @@ integer igetvarlen_(shortint *mmidi, integer *icm, integer *imidi, integer * extern /* Subroutine */ int stop1_(void); /* Fortran I/O blocks */ - static cilist io___917 = { 0, 6, 0, 0, 0 }; + static cilist io___927 = { 0, 6, 0, 0, 0 }; /* Gets variable-length integer starting in mmidi at imidi+1. Returns nbytes. */ -#line 15686 "" +#line 15953 "" /* Parameter adjustments */ -#line 15686 "" +#line 15953 "" mmidi -= 25; -#line 15686 "" +#line 15953 "" -#line 15686 "" +#line 15953 "" /* Function Body */ -#line 15686 "" +#line 15953 "" ret_val = 0; -#line 15687 "" +#line 15954 "" for (*nbytes = 1; *nbytes <= 4; ++(*nbytes)) { -#line 15688 "" +#line 15955 "" ret_val = (ret_val << 7) + (127 & mmidi[*icm + (*imidi + *nbytes) * 25]); -/* * +iand(127,longi(mmidi(icm,imidi+nbytes))) */ -#line 15691 "" +#line 15957 "" if (! bit_test(mmidi[*icm + (*imidi + *nbytes) * 25],7)) { -#line 15691 "" +#line 15957 "" return ret_val; -#line 15691 "" +#line 15957 "" } -/* if (.not.btest(longi(mmidi(icm,imidi+nbytes)),7)) return */ -#line 15693 "" +#line 15958 "" /* L1: */ -#line 15693 "" +#line 15958 "" } -#line 15694 "" - s_wsle(&io___917); -#line 15694 "" +#line 15959 "" + s_wsle(&io___927); +#line 15959 "" do_lio(&c__9, &c__1, "Messup in igetvarlen", (ftnlen)20); -#line 15694 "" +#line 15959 "" e_wsle(); -#line 15695 "" +#line 15960 "" stop1_(); -#line 15696 "" +#line 15961 "" return ret_val; } /* igetvarlen_ */ @@ -37223,41 +37826,41 @@ logical isdotted_(integer *nodur, integer *ivx, integer *ip) /* Function returns true if note is dotted or double-dotted. */ /* Return false for any xtuplet. */ -#line 15705 "" +#line 15970 "" /* Parameter adjustments */ -#line 15705 "" +#line 15970 "" nodur -= 25; -#line 15705 "" +#line 15970 "" -#line 15705 "" +#line 15970 "" /* Function Body */ -#line 15705 "" +#line 15970 "" if (nodur[*ivx + *ip * 24] == 0) { -#line 15706 "" +#line 15971 "" ret_val = FALSE_; -#line 15707 "" +#line 15972 "" return ret_val; -#line 15708 "" +#line 15973 "" } else if (*ip > 1) { -#line 15709 "" +#line 15974 "" if (nodur[*ivx + (*ip - 1) * 24] == 0) { -#line 15710 "" +#line 15975 "" ret_val = FALSE_; -#line 15711 "" +#line 15976 "" return ret_val; -#line 15712 "" +#line 15977 "" } -#line 15713 "" +#line 15978 "" } /* Ruled out all xtups, so is dotted or double-dotted if not a power of 2. */ -#line 15717 "" +#line 15982 "" r__1 = log((real) nodur[*ivx + *ip * 24]) / .69314718f + comtol_1.tol * .5f; -#line 15717 "" - ret_val = r_mod(&r__1, &c_b1054) > comtol_1.tol; -#line 15719 "" +#line 15982 "" + ret_val = r_mod(&r__1, &c_b1053) > comtol_1.tol; +#line 15984 "" return ret_val; } /* isdotted_ */ @@ -37276,46 +37879,46 @@ integer isetvarlen_(integer *idur, integer *nbytes) static integer itemp; /* Fortran I/O blocks */ - static cilist io___919 = { 0, 6, 0, 0, 0 }; + static cilist io___929 = { 0, 6, 0, 0, 0 }; -#line 15722 "" +#line 15987 "" ret_val = 0; -#line 15723 "" +#line 15988 "" itemp = *idur; -#line 15724 "" +#line 15989 "" for (*nbytes = 1; *nbytes <= 4; ++(*nbytes)) { -#line 15725 "" +#line 15990 "" i__1 = *nbytes - 1; -#line 15725 "" +#line 15990 "" ret_val += (itemp & 127) * pow_ii(&c__256, &i__1); -#line 15726 "" +#line 15991 "" itemp = lbit_shift(itemp, (ftnlen)-7); -#line 15727 "" +#line 15992 "" if (itemp > 0) { -#line 15728 "" +#line 15993 "" i__1 = (*nbytes << 3) + 7; -#line 15728 "" +#line 15993 "" ret_val += pow_ii(&c__2, &i__1); -#line 15729 "" +#line 15994 "" } else { -#line 15730 "" +#line 15995 "" return ret_val; -#line 15731 "" +#line 15996 "" } -#line 15732 "" +#line 15997 "" /* L1: */ -#line 15732 "" +#line 15997 "" } -#line 15733 "" - s_wsle(&io___919); -#line 15733 "" - do_lio(&c__9, &c__1, "Problem in function isetvarlen", (ftnlen)30); -#line 15733 "" +#line 15998 "" + s_wsle(&io___929); +#line 15998 "" + do_lio(&c__9, &c__1, "Problem in fn. isetvarlen", (ftnlen)25); +#line 15998 "" e_wsle(); -#line 15734 "" +#line 15999 "" stop1_(); -#line 15735 "" +#line 16000 "" return ret_val; } /* isetvarlen_ */ @@ -37340,75 +37943,75 @@ integer isetvarlen_(integer *idur, integer *nbytes) /* Returns string with integer only if length is 1, otherwise enclosed in */ /* brackets. */ -#line 15742 "" +#line 16007 "" if (*i__ != 0) { -#line 15743 "" +#line 16008 "" r__1 = abs(*i__) * 1.0001f; -#line 15743 "" +#line 16008 "" *len = r_lg10(&r__1) + 1; -#line 15744 "" +#line 16009 "" if (*i__ < 0) { -#line 15744 "" +#line 16009 "" ++(*len); -#line 15744 "" +#line 16009 "" } -#line 15745 "" +#line 16010 "" } else { -#line 15746 "" +#line 16011 "" s_copy(string, "0", string_len, (ftnlen)1); -#line 15747 "" +#line 16012 "" *len = 1; -#line 15748 "" +#line 16013 "" return 0; -#line 15749 "" +#line 16014 "" } -#line 15750 "" +#line 16015 "" if (*len == 1) { -#line 15751 "" +#line 16016 "" *(unsigned char *)&ch__1[0] = *i__ + 48; -#line 15751 "" +#line 16016 "" s_copy(string, ch__1, string_len, (ftnlen)1); -#line 15752 "" +#line 16017 "" } else { -#line 15753 "" +#line 16018 "" s_copy(string, "{", string_len, (ftnlen)1); -#line 15754 "" +#line 16019 "" ici__1.icierr = 0; -#line 15754 "" +#line 16019 "" ici__1.icirnum = 1; -#line 15754 "" +#line 16019 "" ici__1.icirlen = *len; -#line 15754 "" +#line 16019 "" ici__1.iciunit = string + 1; /* Writing concatenation */ -#line 15754 "" +#line 16019 "" i__1[0] = 2, a__1[0] = "(i"; -#line 15754 "" +#line 16019 "" *(unsigned char *)&ch__1[0] = *len + 48; -#line 15754 "" +#line 16019 "" i__1[1] = 1, a__1[1] = ch__1; -#line 15754 "" +#line 16019 "" i__1[2] = 1, a__1[2] = ")"; -#line 15754 "" +#line 16019 "" ici__1.icifmt = (s_cat(ch__2, a__1, i__1, &c__3, (ftnlen)4), ch__2); -#line 15754 "" +#line 16019 "" s_wsfi(&ici__1); -#line 15754 "" +#line 16019 "" do_fio(&c__1, (char *)&(*i__), (ftnlen)sizeof(integer)); -#line 15754 "" +#line 16019 "" e_wsfi(); /* Writing concatenation */ -#line 15755 "" +#line 16020 "" i__2[0] = *len + 1, a__2[0] = string; -#line 15755 "" +#line 16020 "" i__2[1] = 1, a__2[1] = "}"; -#line 15755 "" +#line 16020 "" s_cat(string, a__2, i__2, &c__2, string_len); -#line 15756 "" +#line 16021 "" *len += 2; -#line 15757 "" +#line 16022 "" } -#line 15758 "" +#line 16023 "" return 0; } /* istring_ */ @@ -37417,21 +38020,21 @@ integer lenstr_(char *string, integer *n, ftnlen string_len) /* System generated locals */ integer ret_val; -#line 15762 "" +#line 16027 "" for (ret_val = *n; ret_val >= 1; --ret_val) { -#line 15763 "" +#line 16028 "" if (*(unsigned char *)&string[ret_val - 1] != ' ') { -#line 15763 "" +#line 16028 "" return ret_val; -#line 15763 "" +#line 16028 "" } -#line 15764 "" +#line 16029 "" /* L1: */ -#line 15764 "" +#line 16029 "" } -#line 15765 "" +#line 16030 "" ret_val = 0; -#line 15766 "" +#line 16031 "" return ret_val; } /* lenstr_ */ @@ -37448,45 +38051,45 @@ integer levrn_(integer *nolev, integer *irest, integer *iud, integer *ncm, /* Used for placing numbers in xtups. Returns note level if not a rest, */ /* else level of top or bottom of rest symbol opposite beam. iud=-1 for upstm. */ -#line 15774 "" +#line 16039 "" if (! bit_test(*irest,0)) { -#line 15775 "" +#line 16040 "" ret_val = *nolev; -#line 15776 "" +#line 16041 "" } else { /* Restlevel is -4, 0, 2 or 100+offset. First get offset from 1-voice default. */ -#line 15780 "" +#line 16045 "" if (*mult > 0) { -#line 15781 "" +#line 16046 "" if (*mult == 2) { -#line 15782 "" +#line 16047 "" ioff = (*iud << 1) - 1; -#line 15783 "" +#line 16048 "" } else if (*mult != 4) { -#line 15784 "" +#line 16049 "" ioff = *iud * *mult; -#line 15785 "" +#line 16050 "" } else { -#line 15786 "" +#line 16051 "" ioff = (*iud << 2) + 1; -#line 15787 "" +#line 16052 "" } -#line 15788 "" +#line 16053 "" } else { /* May need to futz with this later for non-beamed xtups (quarter, half rests) */ -#line 15792 "" +#line 16057 "" ioff = *iud << 1; -#line 15793 "" +#line 16058 "" } -#line 15794 "" +#line 16059 "" ret_val = (*nolev + 20) % 100 - 20 + *ncm + ioff; -#line 15795 "" +#line 16060 "" } -#line 15796 "" +#line 16061 "" return ret_val; } /* levrn_ */ @@ -37506,29 +38109,29 @@ integer lfmt1_(real *x) /* Computes total length of an "f" format with one decimal place. */ /* First round to nearest 0.1 */ -#line 15803 "" +#line 16068 "" if (dabs(*x) < .001f) { -#line 15804 "" +#line 16069 "" ret_val = 2; -#line 15805 "" +#line 16070 "" } else { -#line 15806 "" +#line 16071 "" r__1 = (integer) (dabs(*x) * 10 + .5f) * .1f; -#line 15806 "" +#line 16071 "" y = r_sign(&r__1, x); -#line 15807 "" +#line 16072 "" r__1 = dabs(y) * 1000 + .001f; -#line 15807 "" +#line 16072 "" ret_val = (integer) r_lg10(&r__1); -#line 15808 "" +#line 16073 "" if (y < 0.f) { -#line 15808 "" +#line 16073 "" ++ret_val; -#line 15808 "" +#line 16073 "" } -#line 15809 "" +#line 16074 "" } -#line 15810 "" +#line 16075 "" return ret_val; } /* lfmt1_ */ @@ -37565,7 +38168,7 @@ integer lfmt1_(real *x) static char notexq[128]; /* Fortran I/O blocks */ - static cilist io___941 = { 0, 11, 0, "(a)", 0 }; + static cilist io___951 = { 0, 11, 0, "(a)", 0 }; @@ -37580,300 +38183,300 @@ integer lfmt1_(real *x) /* closing of full tie are not used except for shape alterations. */ /* do 1 ndx = 0 , 11 */ -#line 15835 "" +#line 16100 "" /* Parameter adjustments */ -#line 15835 "" +#line 16100 "" --sepsymq; -#line 15835 "" +#line 16100 "" --isdat4; -#line 15835 "" +#line 16100 "" --isdat3; -#line 15835 "" +#line 16100 "" --isdat2; -#line 15835 "" +#line 16100 "" --isdat1; -#line 15835 "" +#line 16100 "" -#line 15835 "" +#line 16100 "" /* Function Body */ -#line 15835 "" +#line 16100 "" for (ndx = 0; ndx <= 23; ++ndx) { -#line 15836 "" +#line 16101 "" if (bit_test(comslur_1.listslur,ndx)) { /* Slur or tie with index ndx is open. Find the one with right ndxb, see if tie */ -#line 15840 "" +#line 16105 "" i__1 = *nsdat; -#line 15840 "" +#line 16105 "" for (isdat = 1; isdat <= i__1; ++isdat) { /* if (igetbits(isdat1(isdat),4,28) .ne. ndx) go to 2 ! Wrong index */ -#line 15842 "" +#line 16107 "" if (igetbits_(&isdat1[isdat], &c__4, &c__28) + (igetbits_(& isdat1[isdat], &c__1, &c__18) << 4) != ndx) { -#line 15842 "" +#line 16107 "" goto L2; -#line 15842 "" +#line 16107 "" } /* Wron */ -#line 15844 "" +#line 16109 "" if (! bit_test(isdat1[isdat],11)) { -#line 15844 "" +#line 16109 "" goto L2; -#line 15844 "" +#line 16109 "" } /* Bypass if stop */ -#line 15845 "" +#line 16110 "" if (bit_test(isdat2[isdat],3)) { -#line 15845 "" +#line 16110 "" goto L3; -#line 15845 "" +#line 16110 "" } /* "st" */ -#line 15846 "" +#line 16111 "" idcode = igetbits_(&isdat1[isdat], &c__7, &c__19); -#line 15847 "" +#line 16112 "" if (idcode == 1) { -#line 15847 "" +#line 16112 "" goto L3; -#line 15847 "" +#line 16112 "" } /* "t" */ -#line 15848 "" +#line 16113 "" tie = FALSE_; -#line 15849 "" +#line 16114 "" goto L5; -#line 15850 "" +#line 16115 "" L2: -#line 15850 "" +#line 16115 "" ; -#line 15850 "" +#line 16115 "" } -#line 15851 "" +#line 16116 "" } -#line 15852 "" +#line 16117 "" goto L1; -#line 15853 "" +#line 16118 "" L3: -#line 15854 "" +#line 16119 "" tie = TRUE_; -#line 15855 "" +#line 16120 "" L5: /* A slur or tie is open, with index ndx */ -#line 15859 "" +#line 16124 "" iv = igetbits_(&isdat1[isdat], &c__5, &c__13); -#line 15860 "" +#line 16125 "" kv = igetbits_(&isdat1[isdat], &c__1, &c__12) + 1; -#line 15861 "" +#line 16126 "" *(unsigned char *)udq = 'd'; -#line 15862 "" +#line 16127 "" if (bit_test(isdat1[isdat],27)) { -#line 15862 "" +#line 16127 "" *(unsigned char *)udq = 'u'; -#line 15862 "" +#line 16127 "" } /* Writing concatenation */ -#line 15863 "" +#line 16128 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 15863 "" +#line 16128 "" i__2[0] = 1, a__1[0] = ch__1; -#line 15863 "" +#line 16128 "" i__2[1] = 6, a__1[1] = "znotes"; -#line 15863 "" +#line 16128 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)128); -#line 15864 "" +#line 16129 "" lnote = 7; -#line 15865 "" +#line 16130 "" i__1 = iv - 1; -#line 15865 "" +#line 16130 "" for (iiv = 1; iiv <= i__1; ++iiv) { /* Writing concatenation */ -#line 15866 "" +#line 16131 "" i__2[0] = lnote, a__1[0] = notexq; -#line 15866 "" +#line 16131 "" i__2[1] = 1, a__1[1] = sepsymq + iiv; -#line 15866 "" +#line 16131 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)128); -#line 15867 "" +#line 16132 "" ++lnote; -#line 15868 "" +#line 16133 "" /* L4: */ -#line 15868 "" +#line 16133 "" } -#line 15869 "" +#line 16134 "" if (kv == 2) { /* Writing concatenation */ -#line 15870 "" +#line 16135 "" i__3[0] = lnote, a__2[0] = notexq; -#line 15870 "" +#line 16135 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 15870 "" +#line 16135 "" i__3[1] = 1, a__2[1] = ch__1; -#line 15870 "" +#line 16135 "" i__3[2] = 9, a__2[2] = "nextvoice"; -#line 15870 "" +#line 16135 "" s_cat(notexq, a__2, i__3, &c__3, (ftnlen)128); -#line 15871 "" +#line 16136 "" lnote += 10; -#line 15872 "" +#line 16137 "" } /* Compute horiz and vert offsets */ /* nolev = igetbits(isdat2(isdat),7,19) */ -#line 15877 "" +#line 16142 "" islhgt = igetbits_(&isdat3[isdat], &c__8, &c__14); -#line 15878 "" +#line 16143 "" ilb12 = 0; -#line 15879 "" +#line 16144 "" if (*ispstie) { -#line 15879 "" +#line 16144 "" ilb12 = 1; -#line 15879 "" +#line 16144 "" } -#line 15880 "" +#line 16145 "" i__1 = ilb12 << 4; -#line 15880 "" +#line 16145 "" ivoff = igetbits_(&isdat4[isdat], &c__6, &i__1) - 32; -#line 15881 "" +#line 16146 "" if (ivoff == -32) { -#line 15881 "" +#line 16146 "" ivoff = 0; -#line 15881 "" +#line 16146 "" } /* nolev = nolev+ivoff */ -#line 15883 "" +#line 16148 "" islhgt += ivoff; -#line 15884 "" +#line 16149 "" i__1 = (ilb12 << 4) + 6; -#line 15884 "" +#line 16149 "" ihoff = igetbits_(&isdat4[isdat], &c__7, &i__1) - 64; /* This is 10X */ -#line 15885 "" +#line 16150 "" if (ihoff == -64) { -#line 15885 "" +#line 16150 "" ihoff = 0; -#line 15885 "" +#line 16150 "" } /* Add starting stuff for command */ -#line 15889 "" +#line 16154 "" if (! (*ispstie)) { /* End 1st segment */ /* Writing concatenation */ -#line 15890 "" +#line 16155 "" i__3[0] = lnote, a__2[0] = notexq; -#line 15890 "" +#line 16155 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 15890 "" +#line 16155 "" i__3[1] = 1, a__2[1] = ch__1; -#line 15890 "" +#line 16155 "" i__3[2] = 8, a__2[2] = "roffset{"; -#line 15890 "" +#line 16155 "" s_cat(notexq, a__2, i__3, &c__3, (ftnlen)128); -#line 15891 "" +#line 16156 "" lnote += 9; /* hoff = ihoff*.1-.5 */ /* hoff = ihoff*.1-.8 */ -#line 15894 "" +#line 16159 "" hoff = ihoff * .1f - .4f; -#line 15895 "" +#line 16160 "" if (hoff < 0.f) { -#line 15896 "" +#line 16161 "" hoff = -hoff; /* Writing concatenation */ -#line 15897 "" +#line 16162 "" i__2[0] = lnote, a__1[0] = notexq; -#line 15897 "" +#line 16162 "" i__2[1] = 1, a__1[1] = "-"; -#line 15897 "" +#line 16162 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)128); -#line 15898 "" +#line 16163 "" ++lnote; -#line 15899 "" +#line 16164 "" } -#line 15900 "" +#line 16165 "" writflot_(&hoff, notexq, &lnote, (ftnlen)128); /* Writing concatenation */ -#line 15901 "" +#line 16166 "" i__2[0] = lnote, a__1[0] = notexq; -#line 15901 "" +#line 16166 "" i__2[1] = 2, a__1[1] = "}{"; -#line 15901 "" +#line 16166 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)128); -#line 15902 "" +#line 16167 "" lnote += 2; -#line 15903 "" +#line 16168 "" } else { /* Writing concatenation */ -#line 15904 "" +#line 16169 "" i__4[0] = lnote, a__3[0] = notexq; -#line 15904 "" +#line 16169 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 15904 "" +#line 16169 "" i__4[1] = 1, a__3[1] = ch__1; -#line 15904 "" +#line 16169 "" i__4[2] = 5, a__3[2] = "off{-"; -#line 15904 "" +#line 16169 "" chax_(ch__2, (ftnlen)1, &c__92); -#line 15904 "" +#line 16169 "" i__4[3] = 1, a__3[3] = ch__2; -#line 15904 "" +#line 16169 "" i__4[4] = 14, a__3[4] = "afterruleskip}"; -#line 15904 "" +#line 16169 "" s_cat(notexq, a__3, i__4, &c__5, (ftnlen)128); -#line 15906 "" +#line 16171 "" lnote += 21; /* 091025 add dotting for 2nd segment if needed */ -#line 15910 "" +#line 16175 "" if (bit_test(isdat2[isdat],4)) { /* Writing concatenation */ -#line 15911 "" +#line 16176 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 15911 "" +#line 16176 "" i__3[0] = 1, a__2[0] = ch__1; -#line 15911 "" +#line 16176 "" i__3[1] = 6, a__2[1] = "dotted"; -#line 15911 "" +#line 16176 "" i__3[2] = lnote, a__2[2] = notexq; -#line 15911 "" +#line 16176 "" s_cat(notexq, a__2, i__3, &c__3, (ftnlen)128); -#line 15912 "" +#line 16177 "" lnote += 7; -#line 15913 "" +#line 16178 "" } -#line 15914 "" +#line 16179 "" } -#line 15915 "" +#line 16180 "" if (*ispstie && tie) { /* Writing concatenation */ -#line 15916 "" +#line 16181 "" i__5[0] = lnote, a__4[0] = notexq; -#line 15916 "" +#line 16181 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 15916 "" +#line 16181 "" i__5[1] = 1, a__4[1] = ch__1; -#line 15916 "" +#line 16181 "" i__5[2] = 8, a__4[2] = "tieforis"; -#line 15916 "" +#line 16181 "" i__5[3] = 1, a__4[3] = udq; -#line 15916 "" +#line 16181 "" s_cat(notexq, a__4, i__5, &c__4, (ftnlen)128); -#line 15917 "" +#line 16182 "" lnote += 10; -#line 15918 "" +#line 16183 "" } -#line 15919 "" +#line 16184 "" if (bit_test(isdat3[isdat],0)) { /* Curvature tweak on termination of 1st seg */ -#line 15923 "" +#line 16188 "" imid = igetbits_(&isdat3[isdat], &c__6, &c__2) - 32; /* Invoke macro (from pmx.tex) that redefines \tslur as r'qd. mapping: */ @@ -37884,82 +38487,82 @@ L5: /* 6 HH */ /* Writing concatenation */ -#line 15932 "" +#line 16197 "" i__5[0] = lnote, a__4[0] = notexq; -#line 15932 "" +#line 16197 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 15932 "" +#line 16197 "" i__5[1] = 1, a__4[1] = ch__1; -#line 15932 "" +#line 16197 "" i__5[2] = 7, a__4[2] = "psforts"; -#line 15932 "" +#line 16197 "" i__1 = imid + 48; -#line 15932 "" +#line 16197 "" chax_(ch__2, (ftnlen)1, &i__1); -#line 15932 "" +#line 16197 "" i__5[3] = 1, a__4[3] = ch__2; -#line 15932 "" +#line 16197 "" s_cat(notexq, a__4, i__5, &c__4, (ftnlen)128); -#line 15933 "" +#line 16198 "" lnote += 9; /* Zero out the flag in case there's a different curv on term of 2nd, */ -#line 15937 "" +#line 16202 "" isdat3[isdat] = bit_clear(isdat3[isdat],0); -#line 15938 "" +#line 16203 "" } /* Add the command name */ -#line 15942 "" +#line 16207 "" if (*ispstie) { /* Writing concatenation */ -#line 15943 "" +#line 16208 "" i__5[0] = lnote, a__4[0] = notexq; -#line 15943 "" +#line 16208 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 15943 "" +#line 16208 "" i__5[1] = 1, a__4[1] = ch__1; -#line 15943 "" +#line 16208 "" i__5[2] = 2, a__4[2] = "is"; -#line 15943 "" +#line 16208 "" i__5[3] = 1, a__4[3] = udq; -#line 15943 "" +#line 16208 "" s_cat(notexq, a__4, i__5, &c__4, (ftnlen)128); -#line 15944 "" +#line 16209 "" lnote += 4; -#line 15945 "" +#line 16210 "" } else if (tie) { /* Writing concatenation */ -#line 15946 "" +#line 16211 "" i__3[0] = lnote, a__2[0] = notexq; -#line 15946 "" +#line 16211 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 15946 "" +#line 16211 "" i__3[1] = 1, a__2[1] = ch__1; -#line 15946 "" +#line 16211 "" i__3[2] = 4, a__2[2] = "ttie"; -#line 15946 "" +#line 16211 "" s_cat(notexq, a__2, i__3, &c__3, (ftnlen)128); -#line 15947 "" +#line 16212 "" lnote += 5; -#line 15948 "" +#line 16213 "" } else { /* Writing concatenation */ -#line 15949 "" +#line 16214 "" i__3[0] = lnote, a__2[0] = notexq; -#line 15949 "" +#line 16214 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 15949 "" +#line 16214 "" i__3[1] = 1, a__2[1] = ch__1; -#line 15949 "" +#line 16214 "" i__3[2] = 5, a__2[2] = "tslur"; -#line 15949 "" +#line 16214 "" s_cat(notexq, a__2, i__3, &c__3, (ftnlen)128); -#line 15950 "" +#line 16215 "" lnote += 6; -#line 15951 "" +#line 16216 "" } /* Add index */ @@ -37971,214 +38574,214 @@ L5: /* notexq = notexq(1:lnote)//'{1'//chax(49-ndx)//'}' */ /* lnote = lnote+4 */ /* end if */ -#line 15962 "" +#line 16227 "" if (23 - ndx < 10) { /* Writing concatenation */ -#line 15963 "" +#line 16228 "" i__2[0] = lnote, a__1[0] = notexq; -#line 15963 "" +#line 16228 "" i__1 = 71 - ndx; -#line 15963 "" +#line 16228 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 15963 "" +#line 16228 "" i__2[1] = 1, a__1[1] = ch__1; -#line 15963 "" +#line 16228 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)128); -#line 15964 "" +#line 16229 "" ++lnote; -#line 15965 "" +#line 16230 "" } else if (23 - ndx < 20) { /* Writing concatenation */ -#line 15966 "" +#line 16231 "" i__5[0] = lnote, a__4[0] = notexq; -#line 15966 "" +#line 16231 "" i__5[1] = 2, a__4[1] = "{1"; -#line 15966 "" +#line 16231 "" i__1 = 61 - ndx; -#line 15966 "" +#line 16231 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 15966 "" +#line 16231 "" i__5[2] = 1, a__4[2] = ch__1; -#line 15966 "" +#line 16231 "" i__5[3] = 1, a__4[3] = "}"; -#line 15966 "" +#line 16231 "" s_cat(notexq, a__4, i__5, &c__4, (ftnlen)128); -#line 15967 "" +#line 16232 "" lnote += 4; -#line 15968 "" +#line 16233 "" } else { /* Writing concatenation */ -#line 15969 "" +#line 16234 "" i__5[0] = lnote, a__4[0] = notexq; -#line 15969 "" +#line 16234 "" i__5[1] = 2, a__4[1] = "{2"; -#line 15969 "" +#line 16234 "" i__1 = 51 - ndx; -#line 15969 "" +#line 16234 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 15969 "" +#line 16234 "" i__5[2] = 1, a__4[2] = ch__1; -#line 15969 "" +#line 16234 "" i__5[3] = 1, a__4[3] = "}"; -#line 15969 "" +#line 16234 "" s_cat(notexq, a__4, i__5, &c__4, (ftnlen)128); -#line 15970 "" +#line 16235 "" lnote += 4; -#line 15971 "" +#line 16236 "" } -#line 15972 "" +#line 16237 "" if (*ispstie || ! tie) { /* Add note name for slur height */ -#line 15976 "" +#line 16241 "" comoct_1.noctup = 0; -#line 15977 "" +#line 16242 "" ncm = igetbits_(&isdat3[isdat], &c__8, &c__22); -#line 15978 "" +#line 16243 "" if (ncm == 23) { -#line 15978 "" +#line 16243 "" comoct_1.noctup = -2; -#line 15978 "" +#line 16243 "" } /* call notefq(noteq,lnoten,nolev,ncm) */ -#line 15980 "" +#line 16245 "" notefq_(noteq, &lnoten, &islhgt, &ncm, (ftnlen)8); /* Writing concatenation */ -#line 15981 "" +#line 16246 "" i__5[0] = lnote, a__4[0] = notexq; -#line 15981 "" +#line 16246 "" i__5[1] = 1, a__4[1] = "{"; -#line 15981 "" +#line 16246 "" i__5[2] = lnoten, a__4[2] = noteq; -#line 15981 "" +#line 16246 "" i__5[3] = 1, a__4[3] = "}"; -#line 15981 "" +#line 16246 "" s_cat(notexq, a__4, i__5, &c__4, (ftnlen)128); -#line 15982 "" +#line 16247 "" lnote = lnote + 1 + lnoten + 1; -#line 15983 "" +#line 16248 "" } -#line 15984 "" +#line 16249 "" if (*ispstie) { /* Horizontal shift start of new thing */ /* Writing concatenation */ -#line 15988 "" +#line 16253 "" i__2[0] = lnote, a__1[0] = notexq; -#line 15988 "" +#line 16253 "" i__2[1] = 1, a__1[1] = "{"; -#line 15988 "" +#line 16253 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)128); -#line 15989 "" +#line 16254 "" ++lnote; /* ihoff = ihoff-13 */ -#line 15991 "" +#line 16256 "" if (tie) { -#line 15992 "" +#line 16257 "" ihoff += -12; -#line 15993 "" +#line 16258 "" } else { -#line 15994 "" +#line 16259 "" ihoff += -7; -#line 15995 "" +#line 16260 "" } -#line 15996 "" +#line 16261 "" if (ihoff < 0) { -#line 15997 "" +#line 16262 "" ihoff = -ihoff; /* Writing concatenation */ -#line 15998 "" +#line 16263 "" i__2[0] = lnote, a__1[0] = notexq; -#line 15998 "" +#line 16263 "" i__2[1] = 1, a__1[1] = "-"; -#line 15998 "" +#line 16263 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)128); -#line 15999 "" +#line 16264 "" ++lnote; -#line 16000 "" +#line 16265 "" } -#line 16001 "" +#line 16266 "" r__1 = ihoff * .1f; -#line 16001 "" +#line 16266 "" writflot_(&r__1, notexq, &lnote, (ftnlen)128); /* Writing concatenation */ -#line 16002 "" +#line 16267 "" i__2[0] = lnote, a__1[0] = notexq; -#line 16002 "" +#line 16267 "" i__2[1] = 1, a__1[1] = "}"; -#line 16002 "" +#line 16267 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)128); -#line 16003 "" +#line 16268 "" ++lnote; -#line 16004 "" +#line 16269 "" } /* Add closing stuff */ -#line 16008 "" +#line 16273 "" if (*ispstie) { /* Writing concatenation */ -#line 16009 "" +#line 16274 "" i__4[0] = lnote, a__3[0] = notexq; -#line 16009 "" +#line 16274 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 16009 "" +#line 16274 "" i__4[1] = 1, a__3[1] = ch__1; -#line 16009 "" +#line 16274 "" i__4[2] = 4, a__3[2] = "off{"; -#line 16009 "" +#line 16274 "" chax_(ch__2, (ftnlen)1, &c__92); -#line 16009 "" +#line 16274 "" i__4[3] = 1, a__3[3] = ch__2; -#line 16009 "" +#line 16274 "" i__4[4] = 14, a__3[4] = "afterruleskip}"; -#line 16009 "" +#line 16274 "" s_cat(notexq, a__3, i__4, &c__5, (ftnlen)128); -#line 16011 "" +#line 16276 "" lnote += 20; -#line 16012 "" +#line 16277 "" } else { /* Writing concatenation */ -#line 16013 "" +#line 16278 "" i__2[0] = lnote, a__1[0] = notexq; -#line 16013 "" +#line 16278 "" i__2[1] = 1, a__1[1] = "}"; -#line 16013 "" +#line 16278 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)128); -#line 16014 "" +#line 16279 "" ++lnote; -#line 16015 "" +#line 16280 "" } /* Writing concatenation */ -#line 16016 "" +#line 16281 "" i__3[0] = lnote, a__2[0] = notexq; -#line 16016 "" +#line 16281 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 16016 "" +#line 16281 "" i__3[1] = 1, a__2[1] = ch__1; -#line 16016 "" +#line 16281 "" i__3[2] = 3, a__2[2] = "en%"; -#line 16016 "" +#line 16281 "" s_cat(notexq, a__2, i__3, &c__3, (ftnlen)128); -#line 16017 "" +#line 16282 "" lnote += 4; -#line 16018 "" - s_wsfe(&io___941); -#line 16018 "" +#line 16283 "" + s_wsfe(&io___951); +#line 16283 "" do_fio(&c__1, notexq, lnote); -#line 16018 "" +#line 16283 "" e_wsfe(); -#line 16019 "" +#line 16284 "" L1: -#line 16019 "" +#line 16284 "" ; -#line 16019 "" +#line 16284 "" } -#line 16020 "" +#line 16285 "" *ispstie = ! (*ispstie); -#line 16021 "" +#line 16286 "" return 0; } /* linebreakties_ */ @@ -38207,250 +38810,250 @@ L1: ftnlen); /* Fortran I/O blocks */ - static cilist io___945 = { 0, 6, 0, 0, 0 }; - static cilist io___946 = { 0, 6, 0, 0, 0 }; - static cilist io___947 = { 0, 15, 0, "(/,a)", 0 }; - static cilist io___948 = { 0, 11, 0, "(a)", 0 }; - static cilist io___949 = { 0, 16, 0, "(a)", 0 }; + static cilist io___955 = { 0, 6, 0, 0, 0 }; + static cilist io___956 = { 0, 6, 0, 0, 0 }; + static cilist io___957 = { 0, 15, 0, "(/,a)", 0 }; + static cilist io___958 = { 0, 11, 0, "(a)", 0 }; + static cilist io___959 = { 0, 16, 0, "(a)", 0 }; -#line 16039 "" +#line 16304 "" /* Parameter adjustments */ -#line 16039 "" +#line 16304 "" islur -= 25; -#line 16039 "" +#line 16304 "" -#line 16039 "" +#line 16304 "" /* Function Body */ -#line 16039 "" +#line 16304 "" merge = FALSE_; -#line 16040 "" +#line 16305 "" if (comgrace_1.nlit > 0) { -#line 16041 "" +#line 16306 "" merge = *iv == comgrace_1.ivlit[comgrace_1.nlit - 1] && *nnl == comgrace_1.iplit[comgrace_1.nlit - 1]; -#line 16042 "" +#line 16307 "" } -#line 16043 "" +#line 16308 "" ++comgrace_1.nlit; -#line 16044 "" +#line 16309 "" comgrace_1.ivlit[comgrace_1.nlit - 1] = *iv; -#line 16045 "" +#line 16310 "" comgrace_1.iplit[comgrace_1.nlit - 1] = *nnl; -#line 16046 "" +#line 16311 "" itype = 1; -#line 16047 "" +#line 16312 "" L17: -#line 16047 "" +#line 16312 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 16048 "" +#line 16313 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 16048 "" +#line 16313 "" if (*(unsigned char *)durq == *(unsigned char *)&ch__1[0]) { -#line 16049 "" +#line 16314 "" ++itype; -#line 16050 "" +#line 16315 "" goto L17; -#line 16051 "" +#line 16316 "" } /* Writing concatenation */ -#line 16052 "" +#line 16317 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 16052 "" +#line 16317 "" i__1[0] = 1, a__1[0] = ch__1; -#line 16052 "" +#line 16317 "" i__1[1] = 1, a__1[1] = durq; -#line 16052 "" +#line 16317 "" s_cat(comgrace_1.litq + (comgrace_1.nlit - 1 << 7), a__1, i__1, &c__2, ( ftnlen)128); -#line 16053 "" +#line 16318 "" comgrace_1.lenlit[comgrace_1.nlit - 1] = 2; -#line 16054 "" +#line 16319 "" L18: -#line 16054 "" +#line 16319 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 16055 "" +#line 16320 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 16055 "" +#line 16320 "" if (*(unsigned char *)durq == *(unsigned char *)&ch__1[0]) { -#line 16056 "" +#line 16321 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 16057 "" +#line 16322 "" if (*(unsigned char *)durq != ' ') { /* Starting a new tex command within the string */ /* Writing concatenation */ -#line 16061 "" +#line 16326 "" i__2[0] = comgrace_1.lenlit[comgrace_1.nlit - 1], a__2[0] = comgrace_1.litq + (comgrace_1.nlit - 1 << 7); -#line 16061 "" +#line 16326 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 16061 "" +#line 16326 "" i__2[1] = 1, a__2[1] = ch__1; -#line 16061 "" +#line 16326 "" i__2[2] = 1, a__2[2] = durq; -#line 16061 "" +#line 16326 "" s_cat(comgrace_1.litq + (comgrace_1.nlit - 1 << 7), a__2, i__2, & c__3, (ftnlen)128); -#line 16062 "" +#line 16327 "" comgrace_1.lenlit[comgrace_1.nlit - 1] += 2; -#line 16063 "" +#line 16328 "" goto L18; -#line 16064 "" +#line 16329 "" } -#line 16065 "" +#line 16330 "" } else { /* Writing concatenation */ -#line 16066 "" +#line 16331 "" i__1[0] = comgrace_1.lenlit[comgrace_1.nlit - 1], a__1[0] = comgrace_1.litq + (comgrace_1.nlit - 1 << 7); -#line 16066 "" +#line 16331 "" i__1[1] = 1, a__1[1] = durq; -#line 16066 "" +#line 16331 "" s_cat(comgrace_1.litq + (comgrace_1.nlit - 1 << 7), a__1, i__1, &c__2, (ftnlen)128); -#line 16067 "" +#line 16332 "" ++comgrace_1.lenlit[comgrace_1.nlit - 1]; -#line 16068 "" +#line 16333 "" goto L18; -#line 16069 "" +#line 16334 "" } /* If here, just read backslash-blank so string is done */ -#line 16073 "" +#line 16338 "" if (itype == 1) { -#line 16074 "" +#line 16339 "" islur[*iv + *nnl * 24] = bit_set(islur[*iv + *nnl * 24],16); -#line 16075 "" +#line 16340 "" if (merge) { /* There are 2 separate strings on the same note, so merge them. */ -#line 16079 "" +#line 16344 "" --comgrace_1.nlit; /* Writing concatenation */ -#line 16080 "" +#line 16345 "" i__1[0] = comgrace_1.lenlit[comgrace_1.nlit - 1], a__1[0] = comgrace_1.litq + (comgrace_1.nlit - 1 << 7); -#line 16080 "" +#line 16345 "" i__1[1] = comgrace_1.lenlit[comgrace_1.nlit], a__1[1] = comgrace_1.litq + (comgrace_1.nlit << 7); -#line 16080 "" +#line 16345 "" s_cat(comgrace_1.litq + (comgrace_1.nlit - 1 << 7), a__1, i__1, & c__2, (ftnlen)128); -#line 16082 "" +#line 16347 "" comgrace_1.lenlit[comgrace_1.nlit - 1] += comgrace_1.lenlit[ comgrace_1.nlit]; -#line 16083 "" +#line 16348 "" if (comgrace_1.lenlit[comgrace_1.nlit - 1] > 128) { -#line 16084 "" - s_wsle(&io___945); -#line 16084 "" +#line 16349 "" + s_wsle(&io___955); +#line 16349 "" e_wsle(); -#line 16085 "" - s_wsle(&io___946); -#line 16085 "" +#line 16350 "" + s_wsle(&io___956); +#line 16350 "" do_lio(&c__9, &c__1, "Merged type-1 TeX strings longer than "\ "128 characters", (ftnlen)52); -#line 16085 "" +#line 16350 "" e_wsle(); -#line 16087 "" - s_wsfe(&io___947); -#line 16087 "" +#line 16352 "" + s_wsfe(&io___957); +#line 16352 "" do_fio(&c__1, "Merged type-1 TeX strings longer than 128 cha"\ "racters", (ftnlen)52); -#line 16087 "" +#line 16352 "" e_wsfe(); -#line 16089 "" +#line 16354 "" stop1_(); -#line 16090 "" +#line 16355 "" } -#line 16091 "" +#line 16356 "" } -#line 16092 "" +#line 16357 "" } else { /* Type 2 or 3. */ -#line 16096 "" +#line 16361 "" if (itype == 3) { /* Write the string NOW */ -#line 16100 "" +#line 16365 "" if (comlast_1.islast) { -#line 16100 "" - s_wsfe(&io___948); +#line 16365 "" + s_wsfe(&io___958); /* Writing concatenation */ -#line 16100 "" +#line 16365 "" i__1[0] = comgrace_1.lenlit[comgrace_1.nlit - 1], a__1[0] = comgrace_1.litq + (comgrace_1.nlit - 1 << 7); -#line 16100 "" +#line 16365 "" i__1[1] = 1, a__1[1] = "%"; -#line 16100 "" +#line 16365 "" s_cat(ch__2, a__1, i__1, &c__2, (ftnlen)129); -#line 16100 "" +#line 16365 "" do_fio(&c__1, ch__2, comgrace_1.lenlit[comgrace_1.nlit - 1] + 1); -#line 16100 "" +#line 16365 "" e_wsfe(); -#line 16100 "" +#line 16365 "" } -#line 16102 "" +#line 16367 "" } else { /* Must go at top */ -#line 16106 "" +#line 16371 "" if (! (*topmods)) { -#line 16107 "" +#line 16372 "" *topmods = TRUE_; -#line 16108 "" +#line 16373 "" o__1.oerr = 0; -#line 16108 "" +#line 16373 "" o__1.ounit = 16; -#line 16108 "" +#line 16373 "" o__1.ofnm = 0; -#line 16108 "" +#line 16373 "" o__1.orl = 0; -#line 16108 "" +#line 16373 "" o__1.osta = "SCRATCH"; -#line 16108 "" +#line 16373 "" o__1.oacc = 0; -#line 16108 "" +#line 16373 "" o__1.ofm = 0; -#line 16108 "" +#line 16373 "" o__1.oblnk = 0; -#line 16108 "" +#line 16373 "" f_open(&o__1); -#line 16109 "" +#line 16374 "" } /* Must write '%' here rather than later, in case string ends with blank. */ -#line 16113 "" - s_wsfe(&io___949); +#line 16378 "" + s_wsfe(&io___959); /* Writing concatenation */ -#line 16113 "" +#line 16378 "" i__1[0] = comgrace_1.lenlit[comgrace_1.nlit - 1], a__1[0] = comgrace_1.litq + (comgrace_1.nlit - 1 << 7); -#line 16113 "" +#line 16378 "" i__1[1] = 1, a__1[1] = "%"; -#line 16113 "" +#line 16378 "" s_cat(ch__2, a__1, i__1, &c__2, (ftnlen)129); -#line 16113 "" +#line 16378 "" do_fio(&c__1, ch__2, comgrace_1.lenlit[comgrace_1.nlit - 1] + 1); -#line 16113 "" +#line 16378 "" e_wsfe(); -#line 16114 "" +#line 16379 "" } -#line 16115 "" +#line 16380 "" --comgrace_1.nlit; -#line 16116 "" +#line 16381 "" } -#line 16117 "" +#line 16382 "" return 0; } /* littex_ */ @@ -38459,19 +39062,19 @@ integer llen_(char *strq, integer *n, ftnlen strq_len) /* System generated locals */ integer ret_val; -#line 16121 "" +#line 16386 "" for (ret_val = *n; ret_val >= 0; --ret_val) { -#line 16122 "" +#line 16387 "" if (*(unsigned char *)&strq[ret_val - 1] != ' ') { -#line 16122 "" +#line 16387 "" return ret_val; -#line 16122 "" +#line 16387 "" } -#line 16123 "" +#line 16388 "" /* L1: */ -#line 16123 "" +#line 16388 "" } -#line 16124 "" +#line 16389 "" return ret_val; } /* llen_ */ @@ -38488,9 +39091,9 @@ integer log2_(integer *n) /* log2 = alog(1.*n)/0.6931472+.0001 */ /* log2 = dlog(1.d0*n)/0.693147181d0+.00000001d0 */ -#line 16131 "" +#line 16396 "" ret_val = (integer) (log(*n * 1.) / .693147181 + 2e-8); -#line 16132 "" +#line 16397 "" return ret_val; } /* log2_ */ @@ -38518,242 +39121,242 @@ integer log2_(integer *n) extern /* Subroutine */ int setbits_(integer *, integer *, integer *, integer *); -#line 16151 "" +#line 16416 "" all_1.ibm1[commvl_1.ivx + *numnew * 24 - 25] = *nip1; -#line 16152 "" +#line 16417 "" all_1.ibm2[commvl_1.ivx + *numnew * 24 - 25] = *nip2; -#line 16153 "" +#line 16418 "" numnow = *numnew; -#line 16154 "" +#line 16419 "" if (*numnew > 1) { /* If it starts before any others, must put it in order */ -#line 16158 "" +#line 16423 "" for (ib = *numnew - 1; ib >= 1; --ib) { -#line 16159 "" +#line 16424 "" if (all_1.ibm1[commvl_1.ivx + ib * 24 - 25] < *nip1) { -#line 16159 "" +#line 16424 "" goto L12; -#line 16159 "" +#line 16424 "" } -#line 16160 "" +#line 16425 "" all_1.ibm1[commvl_1.ivx + (ib + 1) * 24 - 25] = all_1.ibm1[ commvl_1.ivx + ib * 24 - 25]; -#line 16161 "" +#line 16426 "" all_1.ibm2[commvl_1.ivx + (ib + 1) * 24 - 25] = all_1.ibm2[ commvl_1.ivx + ib * 24 - 25]; -#line 16162 "" +#line 16427 "" *(unsigned char *)&all_1.ulq[commvl_1.ivx + (ib + 1) * 24 - 25] = *(unsigned char *)&all_1.ulq[commvl_1.ivx + ib * 24 - 25]; -#line 16163 "" +#line 16428 "" all_1.ibm1[commvl_1.ivx + ib * 24 - 25] = *nip1; -#line 16164 "" +#line 16429 "" all_1.ibm2[commvl_1.ivx + ib * 24 - 25] = *nip2; -#line 16165 "" +#line 16430 "" numnow = ib; -#line 16166 "" +#line 16431 "" /* L11: */ -#line 16166 "" +#line 16431 "" } -#line 16167 "" +#line 16432 "" L12: -#line 16168 "" +#line 16433 "" ; -#line 16168 "" +#line 16433 "" } -#line 16169 "" +#line 16434 "" sum = 0.f; /* Beam has non-xtup within */ -#line 16173 "" +#line 16438 "" nrests = 0; -#line 16174 "" +#line 16439 "" isxtup = FALSE_; -#line 16175 "" +#line 16440 "" i__1 = *nip2; -#line 16175 "" +#line 16440 "" for (iip = *nip1; iip <= i__1; ++iip) { -#line 16176 "" +#line 16441 "" if (bit_test(all_1.islur[commvl_1.ivx + *nip1 * 24 - 25],21)) { /* Forced multiplicity */ -#line 16180 "" +#line 16445 "" i__2 = igetbits_(&all_1.islur[commvl_1.ivx + *nip1 * 24 - 25], & c__3, &c__22) + 8; -#line 16180 "" +#line 16445 "" setbits_(&all_1.mult[commvl_1.ivx + iip * 24 - 25], &c__4, &c__0, &i__2); -#line 16182 "" +#line 16447 "" } else if (! isxtup) { -#line 16183 "" +#line 16448 "" if (all_1.nodur[commvl_1.ivx + iip * 24 - 25] > 0) { -#line 16184 "" +#line 16449 "" i__2 = 4 - log2_(&all_1.nodur[commvl_1.ivx + iip * 24 - 25]) + 8; -#line 16184 "" +#line 16449 "" setbits_(&all_1.mult[commvl_1.ivx + iip * 24 - 25], &c__4, & c__0, &i__2); -#line 16185 "" +#line 16450 "" } else { /* Start xtup within forced beam */ -#line 16189 "" +#line 16454 "" isxtup = TRUE_; -#line 16190 "" +#line 16455 "" iip1 = iip; -#line 16191 "" +#line 16456 "" } -#line 16192 "" +#line 16457 "" } else if (isxtup && all_1.nodur[commvl_1.ivx + iip * 24 - 25] > 0) { /* End of xtup within forced beam. Must count doubled notes */ -#line 16196 "" +#line 16461 "" ndoub = 0; -#line 16197 "" +#line 16462 "" i__2 = iip; -#line 16197 "" +#line 16462 "" for (iiip = iip1; iiip <= i__2; ++iiip) { -#line 16198 "" +#line 16463 "" if (bit_test(all_1.nacc[commvl_1.ivx + iiip * 24 - 25],18)) { -#line 16198 "" +#line 16463 "" ++ndoub; -#line 16198 "" +#line 16463 "" } -#line 16199 "" +#line 16464 "" /* L1: */ -#line 16199 "" +#line 16464 "" } -#line 16200 "" +#line 16465 "" multx = (integer) ((log(iip + 1.f - iip1 + ndoub) * .952f - log( all_1.nodur[commvl_1.ivx + iip * 24 - 25] / 2.f)) / .69315f + 13.429f) - 10; -#line 16202 "" +#line 16467 "" i__2 = iip; -#line 16202 "" +#line 16467 "" for (iiip = iip1; iiip <= i__2; ++iiip) { -#line 16203 "" +#line 16468 "" i__3 = multx + 8; -#line 16203 "" +#line 16468 "" setbits_(&all_1.mult[commvl_1.ivx + iiip * 24 - 25], &c__4, & c__0, &i__3); /* Note the following still works after making mult only the 1st 4 bits. */ -#line 16207 "" +#line 16472 "" if (bit_test(all_1.nacc[commvl_1.ivx + iiip * 24 - 25],18)) { -#line 16207 "" +#line 16472 "" --all_1.mult[commvl_1.ivx + iiip * 24 - 25]; -#line 16207 "" +#line 16472 "" } -#line 16209 "" +#line 16474 "" if (bit_test(all_1.nacc[commvl_1.ivx + iiip * 24 - 25],19)) { -#line 16210 "" +#line 16475 "" ++all_1.mult[commvl_1.ivx + iiip * 24 - 25]; -#line 16211 "" +#line 16476 "" } else if (iiip > 1) { -#line 16212 "" +#line 16477 "" if (bit_test(all_1.nacc[commvl_1.ivx + (iiip - 1) * 24 - 25],19)) { -#line 16212 "" +#line 16477 "" ++all_1.mult[commvl_1.ivx + iiip * 24 - 25]; -#line 16212 "" +#line 16477 "" } -#line 16214 "" +#line 16479 "" } -#line 16215 "" +#line 16480 "" /* L74: */ -#line 16215 "" +#line 16480 "" } -#line 16216 "" +#line 16481 "" isxtup = FALSE_; -#line 16217 "" +#line 16482 "" } -#line 16218 "" +#line 16483 "" if (bit_test(all_1.irest[commvl_1.ivx + iip * 24 - 25],0)) { -#line 16219 "" +#line 16484 "" ++nrests; -#line 16220 "" +#line 16485 "" } else { -#line 16221 "" +#line 16486 "" sum += all_1.nolev[commvl_1.ivx + iip * 24 - 25]; -#line 16222 "" +#line 16487 "" } -#line 16223 "" +#line 16488 "" /* L9: */ -#line 16223 "" +#line 16488 "" } /* Set beam up-down-ness */ -#line 16227 "" +#line 16492 "" if (comfb_1.ifb > 0 && *(unsigned char *)&comfb_1.ulfbq[commvl_1.ivx + max(1,comfb_1.ifb) * 24 - 25] != 'x') { -#line 16228 "" +#line 16493 "" if (*(unsigned char *)&comfb_1.ulfbq[commvl_1.ivx + comfb_1.ifb * 24 - 25] == 'f') { /* Get default, then trade "l" and "u" */ -#line 16232 "" +#line 16497 "" r__1 = sum / (*nip2 - *nip1 + 1 - nrests); -#line 16232 "" +#line 16497 "" i__1 = ncmid_(&all_1.iv, nip1); -#line 16232 "" +#line 16497 "" ulfq_(ch__1, (ftnlen)1, &r__1, &i__1); -#line 16232 "" +#line 16497 "" *(unsigned char *)&all_1.ulq[commvl_1.ivx + numnow * 24 - 25] = ( char) (225 - *(unsigned char *)&ch__1[0]); -#line 16234 "" +#line 16499 "" } else { -#line 16235 "" +#line 16500 "" *(unsigned char *)&all_1.ulq[commvl_1.ivx + comfb_1.ifb * 24 - 25] = *(unsigned char *)&comfb_1.ulfbq[commvl_1.ivx + comfb_1.ifb * 24 - 25]; -#line 16236 "" +#line 16501 "" } /* This probably works only because forced beams are done first, so they */ /* don't have to be re-sorted within each voice. ???? */ -#line 16241 "" +#line 16506 "" } else if (commvl_1.nvmx[all_1.iv - 1] == 2) { /* Multi-voice per staff */ -#line 16245 "" +#line 16510 "" if (commvl_1.ivx <= all_1.nv) { -#line 16246 "" +#line 16511 "" *(unsigned char *)&all_1.ulq[commvl_1.ivx + numnow * 24 - 25] = 'l'; -#line 16247 "" +#line 16512 "" } else { -#line 16248 "" +#line 16513 "" *(unsigned char *)&all_1.ulq[commvl_1.ivx + numnow * 24 - 25] = 'u'; -#line 16249 "" +#line 16514 "" } -#line 16250 "" +#line 16515 "" } else { /* Defaults */ -#line 16254 "" +#line 16519 "" r__1 = sum / (*nip2 - *nip1 + 1 - nrests); -#line 16254 "" +#line 16519 "" i__1 = ncmid_(&all_1.iv, nip1); -#line 16254 "" +#line 16519 "" ulfq_(ch__1, (ftnlen)1, &r__1, &i__1); -#line 16254 "" +#line 16519 "" *(unsigned char *)&all_1.ulq[commvl_1.ivx + numnow * 24 - 25] = *( unsigned char *)&ch__1[0]; -#line 16256 "" +#line 16521 "" } -#line 16257 "" +#line 16522 "" return 0; } /* logbeam_ */ @@ -38776,73 +39379,73 @@ L12: /* This is called when (a) macro recording is just starting and */ /* (b) at the start of a new line, if recording is on */ -#line 16273 "" +#line 16538 "" inbuff_1.lbuf[0] = inbuff_1.lbuf[0]; -#line 16274 "" +#line 16539 "" if (! commac_1.mrecord) { /* Starting the macro */ -#line 16278 "" +#line 16543 "" c1ommac_1.ip1mac[commac_1.macnum - 1] = inbuff_1.ipbuf - inbuff_1.lbuf[inbuff_1.ilbuf - 2] + *iccount; -#line 16279 "" +#line 16544 "" c1ommac_1.il1mac[commac_1.macnum - 1] = inbuff_1.ilbuf - 1; -#line 16280 "" +#line 16545 "" c1ommac_1.ic1mac[commac_1.macnum - 1] = *iccount; -#line 16281 "" +#line 16546 "" commac_1.mrecord = TRUE_; -#line 16282 "" +#line 16547 "" } -#line 16283 "" +#line 16548 "" if (*iccount < 128) { -#line 16284 "" +#line 16549 "" i__1 = *iccount; -#line 16284 "" +#line 16549 "" *ndxm = i_indx(lineq + i__1, "M", 128 - i__1, (ftnlen)1); -#line 16285 "" +#line 16550 "" if (*ndxm > 0) { -#line 16285 "" +#line 16550 "" i__1 = *iccount; -#line 16285 "" +#line 16550 "" i__2 = 128 - *iccount; -#line 16285 "" +#line 16550 "" *ndxm = ntindex_(lineq + i__1, "M", &i__2, 128 - i__1, (ftnlen)1); -#line 16285 "" +#line 16550 "" } -#line 16287 "" +#line 16552 "" if (*ndxm > 0) { /* This line ends the macro. */ -#line 16291 "" +#line 16556 "" i__1 = *iccount + *ndxm; -#line 16291 "" +#line 16556 "" if (s_cmp(lineq + i__1, " ", *iccount + *ndxm + 1 - i__1, (ftnlen) 1) != 0) { -#line 16292 "" +#line 16557 "" i__1 = *iccount + *ndxm + 1; -#line 16292 "" +#line 16557 "" i__2 = *ibarcnt - *ibaroff + *nbars + 1; -#line 16292 "" +#line 16557 "" errmsg_(lineq, &i__1, &i__2, "Improper macro termination!", ( ftnlen)128, (ftnlen)27); -#line 16294 "" +#line 16559 "" stop1_(); -#line 16295 "" +#line 16560 "" } -#line 16296 "" +#line 16561 "" c1ommac_1.ip2mac[commac_1.macnum - 1] = inbuff_1.ipbuf - inbuff_1.lbuf[inbuff_1.ilbuf - 2] + *iccount + *ndxm; -#line 16297 "" +#line 16562 "" c1ommac_1.il2mac[commac_1.macnum - 1] = inbuff_1.ilbuf - 1; -#line 16298 "" +#line 16563 "" commac_1.mrecord = FALSE_; -#line 16299 "" +#line 16564 "" } -#line 16300 "" +#line 16565 "" } -#line 16301 "" +#line 16566 "" return 0; } /* m1rec1_ */ @@ -38891,182 +39494,182 @@ L12: setbits_(integer *, integer *, integer *, integer *); /* Fortran I/O blocks */ - static cilist io___994 = { 0, 6, 0, 0, 0 }; - static cilist io___995 = { 0, 6, 0, 0, 0 }; - static cilist io___996 = { 0, 15, 0, "(/a)", 0 }; + static cilist io___1004 = { 0, 6, 0, 0, 0 }; + static cilist io___1005 = { 0, 6, 0, 0, 0 }; + static cilist io___1006 = { 0, 15, 0, "(/a)", 0 }; /* Above are factors for grace note, clef spacing. (fraction of wheadpt) */ /* In 1.04, moved to block data subprogram */ -#line 16393 "" +#line 16658 "" /* Parameter adjustments */ -#line 16393 "" +#line 16658 "" --istart; -#line 16393 "" +#line 16658 "" --numbms; -#line 16393 "" +#line 16658 "" --istop; -#line 16393 "" +#line 16658 "" --squez; -#line 16393 "" +#line 16658 "" --cwrest; -#line 16393 "" +#line 16658 "" --tstart; -#line 16393 "" +#line 16658 "" -#line 16393 "" +#line 16658 "" /* Function Body */ -#line 16393 "" +#line 16658 "" if (commidi_1.ismidi) { /* Initialize for this bar the accidental counter for the midi file. */ /* naccim(icm) = # of accidentals from earlier in the bar */ -#line 16398 "" +#line 16663 "" i__1 = all_1.nv; -#line 16398 "" +#line 16663 "" for (all_1.iv = 1; all_1.iv <= i__1; ++all_1.iv) { -#line 16399 "" +#line 16664 "" i__2 = commvl_1.nvmx[all_1.iv - 1]; -#line 16399 "" +#line 16664 "" for (kv = 1; kv <= i__2; ++kv) { -#line 16400 "" +#line 16665 "" commidi_1.naccim[commidi_1.midchan[all_1.iv + kv * 24 - 25]] = 0; -#line 16401 "" +#line 16666 "" /* L45: */ -#line 16401 "" +#line 16666 "" } -#line 16401 "" +#line 16666 "" } -#line 16402 "" +#line 16667 "" } /* Time from start of gulp to end of bar, used with forced beams */ -#line 16406 "" +#line 16671 "" tglp2 = (real) (all_1.lenb0 + all_1.ibar * all_1.lenb1); -#line 16407 "" +#line 16672 "" if (all_1.lenb0 > 0) { -#line 16407 "" +#line 16672 "" tglp2 -= all_1.lenb1; -#line 16407 "" +#line 16672 "" } -#line 16408 "" +#line 16673 "" *tglp1 = tglp2 - all_1.lenbar; /* infbmx will only be true if in xtup that is NOT in explicit forced beam. */ -#line 16412 "" +#line 16677 "" i__2 = all_1.nv; -#line 16412 "" +#line 16677 "" for (all_1.iv = 1; all_1.iv <= i__2; ++all_1.iv) { -#line 16413 "" +#line 16678 "" i__1 = commvl_1.nvmx[all_1.iv - 1]; -#line 16413 "" +#line 16678 "" for (kv = 1; kv <= i__1; ++kv) { -#line 16414 "" +#line 16679 "" commvl_1.ivx = commvl_1.ivmx[all_1.iv + kv * 24 - 25]; -#line 16415 "" +#line 16680 "" cwrest[commvl_1.ivx] = FALSE_; -#line 16416 "" +#line 16681 "" infbmx[commvl_1.ivx - 1] = FALSE_; -#line 16417 "" +#line 16682 "" inxtup[commvl_1.ivx - 1] = FALSE_; -#line 16418 "" +#line 16683 "" if (all_1.ibar > 1) { -#line 16419 "" +#line 16684 "" all_1.nn[commvl_1.ivx - 1] = all_1.nib[commvl_1.ivx + all_1.ibar * 24 - 25] - all_1.nib[commvl_1.ivx + ( all_1.ibar - 1) * 24 - 25]; -#line 16420 "" +#line 16685 "" } else { -#line 16421 "" +#line 16686 "" all_1.nn[commvl_1.ivx - 1] = all_1.nib[commvl_1.ivx + all_1.ibar * 24 - 25]; -#line 16422 "" +#line 16687 "" } -#line 16423 "" +#line 16688 "" /* L1: */ -#line 16423 "" +#line 16688 "" } -#line 16423 "" +#line 16688 "" } /* initialize list note counter, time(iv), curr. note(iv). The loop to 4 */ /* ONLY initializes each voice. */ -#line 16428 "" +#line 16693 "" in = 1; -#line 16429 "" +#line 16694 "" nxtup = 0; -#line 16430 "" +#line 16695 "" comarp_1.narp = 0; -#line 16431 "" +#line 16696 "" i__1 = all_1.nv; -#line 16431 "" +#line 16696 "" for (all_1.iv = 1; all_1.iv <= i__1; ++all_1.iv) { -#line 16432 "" +#line 16697 "" i__2 = commvl_1.nvmx[all_1.iv - 1]; -#line 16432 "" +#line 16697 "" for (kv = 1; kv <= i__2; ++kv) { -#line 16433 "" +#line 16698 "" commvl_1.ivx = commvl_1.ivmx[all_1.iv + kv * 24 - 25]; -#line 16434 "" +#line 16699 "" comcwrf_1.cwrferm[commvl_1.ivx - 1] = FALSE_; -#line 16435 "" +#line 16700 "" cnn[commvl_1.ivx - 1] = 1; -#line 16436 "" +#line 16701 "" all_1.ivxo[in - 1] = commvl_1.ivx; -#line 16437 "" +#line 16702 "" all_1.ipo[in - 1] = cnn[commvl_1.ivx - 1]; -#line 16438 "" +#line 16703 "" all_1.tnote[in - 1] = fnote_(all_1.nodur, &commvl_1.ivx, &c__1, all_1.nacc); -#line 16439 "" +#line 16704 "" all_1.to[in - 1] = 0.f; -#line 16440 "" +#line 16705 "" xit[commvl_1.ivx - 1] = all_1.tnote[in - 1]; /* Note that xit(ivx) is to END of note in voice, but it1xtup is start time. */ -#line 16444 "" +#line 16709 "" if (all_1.nodur[commvl_1.ivx + all_1.ipo[in - 1] * 24 - 25] == 0) { /* First note of xtuplet at start of bar in voice ivx. */ -#line 16448 "" +#line 16713 "" ++nxtup; -#line 16449 "" +#line 16714 "" nxtnow[commvl_1.ivx - 1] = nxtup; -#line 16450 "" +#line 16715 "" inxtup[commvl_1.ivx - 1] = TRUE_; -#line 16451 "" +#line 16716 "" t1xtup[nxtup - 1] = 0.f; /* Xtup at start of bar. If no explicit forced beam, start one, set */ /* signal infbmx, and save number ifbnow for use at termination. */ -#line 16456 "" +#line 16721 "" if (comfb_1.nfb[commvl_1.ivx - 1] > 0) { -#line 16457 "" +#line 16722 "" i__3 = comfb_1.nfb[commvl_1.ivx - 1]; -#line 16457 "" +#line 16722 "" for (comfb_1.ifb = 1; comfb_1.ifb <= i__3; ++comfb_1.ifb) { -#line 16458 "" +#line 16723 "" if (comfb_1.t1fb[commvl_1.ivx + comfb_1.ifb * 24 - 25] > *tglp1 + xit[commvl_1.ivx - 1] + comtol_1.tol) { /* No explicit fb here; so exit loop and insert one. */ -#line 16462 "" +#line 16727 "" goto L61; -#line 16463 "" +#line 16728 "" } else if (comfb_1.t1fb[commvl_1.ivx + comfb_1.ifb * 24 - 25] < *tglp1 + xit[commvl_1.ivx - 1] + comtol_1.tol && comfb_1.t2fb[commvl_1.ivx + @@ -39075,156 +39678,156 @@ L12: /* IS explicit fb here; must NOT insert one */ -#line 16468 "" +#line 16733 "" goto L62; -#line 16469 "" +#line 16734 "" } -#line 16470 "" +#line 16735 "" /* L60: */ -#line 16470 "" +#line 16735 "" } -#line 16471 "" +#line 16736 "" } -#line 16472 "" +#line 16737 "" L61: /* If here, xtup isn't in explicit fb, so must insert one */ -#line 16476 "" +#line 16741 "" infbmx[commvl_1.ivx - 1] = TRUE_; -#line 16477 "" +#line 16742 "" r__1 = t1xtup[nxtup - 1] + *tglp1; -#line 16477 "" +#line 16742 "" addfb_(comfb_1.nfb, &commvl_1.ivx, &r__1, comfb_1.t1fb, comfb_1.t2fb, comfb_1.ulfbq, &ifbadd, (ftnlen)1); -#line 16479 "" +#line 16744 "" ifbnow[commvl_1.ivx - 1] = ifbadd; -#line 16480 "" +#line 16745 "" } -#line 16481 "" +#line 16746 "" L62: -#line 16482 "" +#line 16747 "" if ((r__1 = xit[commvl_1.ivx - 1] - all_1.lenbar, dabs(r__1)) < comtol_1.tol) { -#line 16482 "" +#line 16747 "" xit[commvl_1.ivx - 1] = 1e3f; -#line 16482 "" +#line 16747 "" } -#line 16483 "" +#line 16748 "" ++in; -#line 16484 "" +#line 16749 "" /* L4: */ -#line 16484 "" +#line 16749 "" } -#line 16484 "" +#line 16749 "" } /* Build the list: This is a manual loop starting at 5 */ -#line 16488 "" +#line 16753 "" L5: /* Determine which voice comes next from end of notes done so far. */ /* tmin is the earliest ending time of notes done so far */ -#line 16493 "" +#line 16758 "" tmin = 1e3f; -#line 16494 "" +#line 16759 "" i__2 = all_1.nv; -#line 16494 "" +#line 16759 "" for (iiv = 1; iiv <= i__2; ++iiv) { -#line 16495 "" +#line 16760 "" i__1 = commvl_1.nvmx[iiv - 1]; -#line 16495 "" +#line 16760 "" for (kv = 1; kv <= i__1; ++kv) { -#line 16496 "" +#line 16761 "" iivx = commvl_1.ivmx[iiv + kv * 24 - 25]; /* Computing MIN */ -#line 16497 "" +#line 16762 "" r__1 = tmin, r__2 = xit[iivx - 1]; -#line 16497 "" +#line 16762 "" tminn = dmin(r__1,r__2); -#line 16498 "" +#line 16763 "" if (tminn < tmin - comtol_1.tol) { -#line 16499 "" +#line 16764 "" tmin = tminn; -#line 16500 "" +#line 16765 "" commvl_1.ivx = iivx; -#line 16501 "" +#line 16766 "" } -#line 16502 "" +#line 16767 "" /* L6: */ -#line 16502 "" +#line 16767 "" } -#line 16502 "" +#line 16767 "" } -#line 16503 "" +#line 16768 "" if ((r__1 = tmin - 1e3f, dabs(r__1)) < comtol_1.tol) { -#line 16503 "" +#line 16768 "" goto L7; -#line 16503 "" +#line 16768 "" } -#line 16504 "" +#line 16769 "" all_1.ivxo[in - 1] = commvl_1.ivx; -#line 16505 "" +#line 16770 "" ++cnn[commvl_1.ivx - 1]; -#line 16506 "" +#line 16771 "" all_1.ipo[in - 1] = cnn[commvl_1.ivx - 1]; -#line 16507 "" +#line 16772 "" all_1.to[in - 1] = tmin; /* Check if this voice is done */ -#line 16511 "" +#line 16776 "" all_1.tnote[in - 1] = fnote_(all_1.nodur, &commvl_1.ivx, &cnn[ commvl_1.ivx - 1], all_1.nacc); -#line 16512 "" +#line 16777 "" if (cnn[commvl_1.ivx - 1] == all_1.nn[commvl_1.ivx - 1]) { -#line 16513 "" +#line 16778 "" xit[commvl_1.ivx - 1] = 1e3f; -#line 16514 "" +#line 16779 "" } else { -#line 16515 "" +#line 16780 "" xit[commvl_1.ivx - 1] += all_1.tnote[in - 1]; -#line 16516 "" +#line 16781 "" } /* Flag xtups */ -#line 16520 "" +#line 16785 "" if (all_1.nodur[commvl_1.ivx + cnn[commvl_1.ivx - 1] * 24 - 25] == 0) { -#line 16521 "" +#line 16786 "" if (! inxtup[commvl_1.ivx - 1]) { /* First note of xtup, not at start of bar. */ -#line 16525 "" +#line 16790 "" ++nxtup; -#line 16526 "" +#line 16791 "" nxtnow[commvl_1.ivx - 1] = nxtup; -#line 16527 "" +#line 16792 "" inxtup[commvl_1.ivx - 1] = TRUE_; -#line 16528 "" +#line 16793 "" t1xtup[nxtup - 1] = xit[commvl_1.ivx - 1] - all_1.tnote[in - 1]; /* (Note: can't be on last note in voice, so xit(ivx) <> 1000) */ /* Put xtuplet in a forced beam if not already in forced beam */ -#line 16533 "" +#line 16798 "" if (comfb_1.nfb[commvl_1.ivx - 1] > 0) { -#line 16534 "" +#line 16799 "" i__1 = comfb_1.nfb[commvl_1.ivx - 1]; -#line 16534 "" +#line 16799 "" for (comfb_1.ifb = 1; comfb_1.ifb <= i__1; ++comfb_1.ifb) { -#line 16535 "" +#line 16800 "" if (comfb_1.t1fb[commvl_1.ivx + comfb_1.ifb * 24 - 25] > * tglp1 + xit[commvl_1.ivx - 1] + comtol_1.tol) { /* NO explicit bm; put one in */ -#line 16539 "" +#line 16804 "" goto L71; -#line 16540 "" +#line 16805 "" } else if (comfb_1.t1fb[commvl_1.ivx + comfb_1.ifb * 24 - 25] < *tglp1 + xit[commvl_1.ivx - 1] + comtol_1.tol && comfb_1.t2fb[commvl_1.ivx + @@ -39233,59 +39836,59 @@ L5: /* IS explicit bm. Don't put one */ -#line 16545 "" +#line 16810 "" goto L72; -#line 16546 "" +#line 16811 "" } -#line 16547 "" +#line 16812 "" /* L70: */ -#line 16547 "" +#line 16812 "" } -#line 16548 "" +#line 16813 "" } -#line 16549 "" +#line 16814 "" L71: /* If here, no explicit bm, so put one in */ -#line 16553 "" +#line 16818 "" infbmx[commvl_1.ivx - 1] = TRUE_; -#line 16554 "" +#line 16819 "" r__1 = t1xtup[nxtup - 1] + *tglp1; -#line 16554 "" +#line 16819 "" addfb_(comfb_1.nfb, &commvl_1.ivx, &r__1, comfb_1.t1fb, comfb_1.t2fb, comfb_1.ulfbq, &ifbadd, (ftnlen)1); -#line 16556 "" +#line 16821 "" ifbnow[commvl_1.ivx - 1] = ifbadd; -#line 16557 "" +#line 16822 "" } -#line 16558 "" +#line 16823 "" L72: -#line 16559 "" +#line 16824 "" ; -#line 16559 "" +#line 16824 "" } else if (inxtup[commvl_1.ivx - 1]) { /* This test is sufficient because already know nodur>0 */ -#line 16563 "" +#line 16828 "" inxtup[commvl_1.ivx - 1] = FALSE_; -#line 16564 "" +#line 16829 "" if (infbmx[commvl_1.ivx - 1]) { /* Xtup is in auto-forced beam, so end it */ -#line 16568 "" +#line 16833 "" comfb_1.t2fb[commvl_1.ivx + ifbnow[commvl_1.ivx - 1] * 24 - 25] = t1xtup[nxtnow[commvl_1.ivx - 1] - 1] + all_1.nodur[ commvl_1.ivx + cnn[commvl_1.ivx - 1] * 24 - 25] + *tglp1; -#line 16570 "" +#line 16835 "" infbmx[commvl_1.ivx - 1] = FALSE_; -#line 16571 "" +#line 16836 "" } -#line 16572 "" +#line 16837 "" } -#line 16573 "" +#line 16838 "" if (bit_test(all_1.irest[all_1.ivxo[in - 1] + all_1.ipo[in - 1] * 24 - 25] ,24) || bit_test(all_1.irest[all_1.ivxo[in - 1] + all_1.ipo[in - 1] * 24 - 25],30)) { @@ -39293,62 +39896,62 @@ L72: /* For staff jumped beam, flag the first note (lowest voice) at same time. */ /* Later will start new notes group here. */ -#line 16579 "" +#line 16844 "" inj = in; -#line 16580 "" +#line 16845 "" if (all_1.ivxo[in - 1] > 1) { -#line 16581 "" +#line 16846 "" for (iin = in - 1; iin >= 1; --iin) { -#line 16582 "" +#line 16847 "" if (all_1.to[iin - 1] + comtol_1.tol < all_1.to[in - 1]) { -#line 16582 "" +#line 16847 "" goto L41; -#line 16582 "" +#line 16847 "" } -#line 16583 "" +#line 16848 "" if ((r__1 = all_1.to[iin - 1] - all_1.to[in - 1], dabs(r__1)) < comtol_1.tol) { -#line 16584 "" +#line 16849 "" inj = iin; -#line 16585 "" +#line 16850 "" goto L40; -#line 16586 "" +#line 16851 "" } -#line 16587 "" +#line 16852 "" L40: -#line 16587 "" +#line 16852 "" ; -#line 16587 "" +#line 16852 "" } -#line 16588 "" +#line 16853 "" } -#line 16589 "" +#line 16854 "" L41: -#line 16590 "" +#line 16855 "" all_1.irest[all_1.ivxo[inj - 1] + all_1.ipo[inj - 1] * 24 - 25] = bit_set(all_1.irest[all_1.ivxo[inj - 1] + all_1.ipo[inj - 1] * 24 - 25],29); -#line 16591 "" +#line 16856 "" } -#line 16592 "" +#line 16857 "" ++in; -#line 16593 "" +#line 16858 "" goto L5; -#line 16594 "" +#line 16859 "" L7: -#line 16595 "" +#line 16860 "" comntot_1.ntot = in - 1; -#line 16596 "" +#line 16861 "" i__1 = comntot_1.ntot - 1; -#line 16596 "" +#line 16861 "" for (in = 1; in <= i__1; ++in) { -#line 16597 "" +#line 16862 "" all_1.tno[in - 1] = all_1.to[in] - all_1.to[in - 1]; -#line 16598 "" +#line 16863 "" /* L8: */ -#line 16598 "" +#line 16863 "" } -#line 16599 "" +#line 16864 "" all_1.tno[comntot_1.ntot - 1] = all_1.tnote[comntot_1.ntot - 1]; /* Debug writes */ @@ -39364,32 +39967,32 @@ L7: /* Done w/ list. Loop for parsing into note blocks: */ -#line 16614 "" +#line 16879 "" ib = 1; -#line 16615 "" +#line 16880 "" istart[1] = 1; -#line 16616 "" +#line 16881 "" comnsp_2.space[0] = 0.f; -#line 16617 "" +#line 16882 "" in = 1; /* A manual loop to set space(ib) and istop(ib) */ -#line 16621 "" +#line 16886 "" L9: /* Computing MIN */ -#line 16623 "" +#line 16888 "" i__1 = in + 1; -#line 16623 "" +#line 16888 "" commvl_1.ivx = all_1.ivxo[min(i__1,comntot_1.ntot) - 1]; /* Computing MIN */ -#line 16624 "" +#line 16889 "" i__1 = in + 1; -#line 16624 "" +#line 16889 "" ip = all_1.ipo[min(i__1,comntot_1.ntot) - 1]; -#line 16625 "" +#line 16890 "" isl = all_1.islur[commvl_1.ivx + ip * 24 - 25]; -#line 16626 "" +#line 16891 "" if (in == comntot_1.ntot || (commvl_1.ivx == 1 && ((isl & 67109216) > 0 || bit_test(all_1.ipl[ip * 24 - 24],28) || bit_test(all_1.iornq[ip * 24],4)) || bit_test(isl,15)) || bit_test(all_1.irest[ @@ -39411,353 +40014,353 @@ L9: /* 5/25/98: This stuff causes trouble with just "c2 Ct c", maybe when clef */ /* changes on last note in the list? */ -#line 16647 "" +#line 16912 "" if (bit_test(isl,15) && in < comntot_1.ntot) { -#line 16648 "" +#line 16913 "" for (iin = in; iin >= 1; --iin) { -#line 16649 "" +#line 16914 "" if (all_1.tno[iin - 1] > comtol_1.tol) { -#line 16650 "" +#line 16915 "" in = iin; -#line 16651 "" +#line 16916 "" all_1.islur[commvl_1.ivx + ip * 24 - 25] = bit_clear( all_1.islur[commvl_1.ivx + ip * 24 - 25],15); -#line 16652 "" +#line 16917 "" all_1.islur[all_1.ivxo[in] + all_1.ipo[in] * 24 - 25] = bit_set(all_1.islur[all_1.ivxo[in] + all_1.ipo[in] * 24 - 25],15); -#line 16654 "" +#line 16919 "" goto L51; -#line 16655 "" +#line 16920 "" } -#line 16656 "" +#line 16921 "" /* L50: */ -#line 16656 "" +#line 16921 "" } -#line 16657 "" +#line 16922 "" L51: -#line 16658 "" +#line 16923 "" ; -#line 16658 "" +#line 16923 "" } -#line 16659 "" +#line 16924 "" if (comnsp_2.space[ib - 1] < comtol_1.tol) { -#line 16660 "" +#line 16925 "" comnsp_2.space[ib - 1] = all_1.tno[in - 1]; -#line 16661 "" +#line 16926 "" squez[ib] = 1.f; -#line 16662 "" +#line 16927 "" } -#line 16663 "" +#line 16928 "" istop[ib] = in; -#line 16664 "" +#line 16929 "" } else if (comnsp_2.space[ib - 1] < comtol_1.tol) { /* space hasn't been set yet, so tentatively set: */ -#line 16668 "" +#line 16933 "" comnsp_2.space[ib - 1] = all_1.tno[in - 1]; -#line 16669 "" +#line 16934 "" if (comnsp_2.space[ib - 1] < comtol_1.tol) { -#line 16670 "" +#line 16935 "" ++in; -#line 16671 "" +#line 16936 "" } else { -#line 16672 "" +#line 16937 "" squez[ib] = getsquez_(&in, &comntot_1.ntot, &comnsp_2.space[ib - 1], all_1.tnote, all_1.to); -#line 16673 "" +#line 16938 "" istop[ib] = in; -#line 16674 "" +#line 16939 "" } -#line 16675 "" +#line 16940 "" goto L9; -#line 16676 "" +#line 16941 "" } else if (all_1.tno[in] < comtol_1.tol) { /* This is not the last note in the group, so */ -#line 16680 "" +#line 16945 "" ++in; -#line 16681 "" +#line 16946 "" goto L9; -#line 16682 "" +#line 16947 "" } else if ((r__1 = all_1.tno[in] - comnsp_2.space[ib - 1], dabs(r__1)) < comtol_1.tol) { -#line 16683 "" +#line 16948 "" i__1 = in + 1; -#line 16683 "" +#line 16948 "" xsquez = getsquez_(&i__1, &comntot_1.ntot, &comnsp_2.space[ib - 1], all_1.tnote, all_1.to); -#line 16684 "" +#line 16949 "" if ((r__1 = xsquez - squez[ib], dabs(r__1)) < comtol_1.tol) { /* Keep spacing the same, update tentative stop point */ -#line 16688 "" +#line 16953 "" ++in; -#line 16689 "" +#line 16954 "" istop[ib] = in; -#line 16690 "" +#line 16955 "" goto L9; -#line 16691 "" +#line 16956 "" } -#line 16692 "" +#line 16957 "" } /* At this point istart and istop are good, so finalize block */ -#line 16696 "" +#line 16961 "" tstart[ib] = all_1.to[istart[ib] - 1]; -#line 16697 "" +#line 16962 "" if (istop[ib] == comntot_1.ntot) { -#line 16697 "" +#line 16962 "" goto L15; -#line 16697 "" +#line 16962 "" } -#line 16698 "" +#line 16963 "" ++ib; -#line 16699 "" +#line 16964 "" istart[ib] = istop[ib - 1] + 1; -#line 16700 "" +#line 16965 "" in = istart[ib]; /* Set tentative block space and squeeze-factor for upcoming block */ -#line 16704 "" +#line 16969 "" comnsp_2.space[ib - 1] = all_1.tno[in - 1]; -#line 16705 "" +#line 16970 "" if (comnsp_2.space[ib - 1] > comtol_1.tol) { -#line 16705 "" +#line 16970 "" squez[ib] = getsquez_(&in, &comntot_1.ntot, &comnsp_2.space[ib - 1], all_1.tnote, all_1.to); -#line 16705 "" +#line 16970 "" } -#line 16707 "" +#line 16972 "" istop[ib] = in; -#line 16708 "" +#line 16973 "" goto L9; -#line 16709 "" +#line 16974 "" L15: -#line 16710 "" +#line 16975 "" comnsp_2.nb = ib; /* Invert the list of places into ipl(0-7), making it easier to analyze a voice */ -#line 16714 "" +#line 16979 "" i__1 = comntot_1.ntot; -#line 16714 "" +#line 16979 "" for (in = 1; in <= i__1; ++in) { /* ??? This may fix extra \loff's (bit 8 of ipl) in measures with >255 notes. */ /* ipl(ivxo(in),ipo(in)) = ior(ipl(ivxo(in),ipo(in)),in) */ -#line 16719 "" +#line 16984 "" comipl2_1.ipl2[all_1.ivxo[in - 1] + all_1.ipo[in - 1] * 24 - 25] = in; -#line 16720 "" +#line 16985 "" /* L13: */ -#line 16720 "" +#line 16985 "" } /* Compute elemskips from start of bar to each note in the bar, for beam slopes */ -#line 16724 "" +#line 16989 "" eskzb = 0.f; -#line 16725 "" +#line 16990 "" ib = 1; -#line 16726 "" +#line 16991 "" i__1 = comntot_1.ntot; -#line 16726 "" +#line 16991 "" for (in = 1; in <= i__1; ++in) { -#line 16727 "" +#line 16992 "" if (in == istart[ib]) { -#line 16728 "" +#line 16993 "" r__1 = comnsp_2.space[ib - 1] / squez[ib]; -#line 16728 "" +#line 16993 "" deskb = squez[ib] * feon_(&r__1); -#line 16729 "" +#line 16994 "" } else if (all_1.tno[in - 2] > comtol_1.tol) { -#line 16730 "" +#line 16995 "" eskzb += deskb; -#line 16731 "" +#line 16996 "" } -#line 16732 "" +#line 16997 "" all_1.eskz[all_1.ivxo[in - 1] + all_1.ipo[in - 1] * 24 - 25] = eskzb; -#line 16733 "" +#line 16998 "" comeskz2_1.eskz2[all_1.ivxo[in - 1] + all_1.ipo[in - 1] * 24 - 25] = eskzb; -#line 16734 "" +#line 16999 "" if (in == istop[ib]) { -#line 16735 "" +#line 17000 "" eskzb += deskb; -#line 16736 "" +#line 17001 "" ++ib; -#line 16737 "" +#line 17002 "" } -#line 16738 "" +#line 17003 "" /* L30: */ -#line 16738 "" +#line 17003 "" } /* Analyze for beams. */ -#line 16742 "" +#line 17007 "" i__1 = all_1.nv; -#line 16742 "" +#line 17007 "" for (all_1.iv = 1; all_1.iv <= i__1; ++all_1.iv) { -#line 16743 "" +#line 17008 "" i__2 = commvl_1.nvmx[all_1.iv - 1]; -#line 16743 "" +#line 17008 "" for (kv = 1; kv <= i__2; ++kv) { -#line 16744 "" +#line 17009 "" commvl_1.ivx = commvl_1.ivmx[all_1.iv + kv * 24 - 25]; -#line 16745 "" +#line 17010 "" numbms[commvl_1.ivx] = 0; -#line 16746 "" +#line 17011 "" mapfb[0] = 0; -#line 16747 "" +#line 17012 "" mapfb[1] = 0; -#line 16748 "" +#line 17013 "" mapfb[2] = 0; -#line 16749 "" +#line 17014 "" mapfb[3] = 0; /* First forced beams. */ -#line 16753 "" +#line 17018 "" if (comfb_1.nfb[commvl_1.ivx - 1] > 0) { /* tglp2 is time from start of gulp to end of current bar. */ -#line 16757 "" +#line 17022 "" nfbbar = 0; -#line 16758 "" +#line 17023 "" i__3 = comfb_1.nfb[commvl_1.ivx - 1]; -#line 16758 "" +#line 17023 "" for (comfb_1.ifb = 1; comfb_1.ifb <= i__3; ++comfb_1.ifb) { -#line 16759 "" +#line 17024 "" if (comfb_1.t1fb[commvl_1.ivx + comfb_1.ifb * 24 - 25] > tglp2 - comtol_1.tol) { -#line 16759 "" +#line 17024 "" goto L81; -#line 16759 "" +#line 17024 "" } -#line 16760 "" +#line 17025 "" ++nfbbar; -#line 16761 "" +#line 17026 "" ++numbms[commvl_1.ivx]; -#line 16762 "" +#line 17027 "" numnew = numbms[commvl_1.ivx]; /* Times from beginning of bar */ -#line 16766 "" +#line 17031 "" itbb1 = (integer) (comfb_1.t1fb[commvl_1.ivx + comfb_1.ifb * 24 - 25] - *tglp1 + comtol_1.tol); -#line 16767 "" +#line 17032 "" itbb2 = (integer) (comfb_1.t2fb[commvl_1.ivx + comfb_1.ifb * 24 - 25] - *tglp1 + comtol_1.tol); -#line 16768 "" +#line 17033 "" i__4 = all_1.nn[commvl_1.ivx - 1]; -#line 16768 "" +#line 17033 "" for (ip = 1; ip <= i__4; ++ip) { -#line 16769 "" +#line 17034 "" if ((integer) (all_1.to[comipl2_1.ipl2[commvl_1.ivx + ip * 24 - 25] - 1] + comtol_1.tol) == itbb1) { -#line 16770 "" +#line 17035 "" nip1fb = ip; -#line 16771 "" +#line 17036 "" i__5 = all_1.nn[commvl_1.ivx - 1]; -#line 16771 "" +#line 17036 "" for (ip1 = ip; ip1 <= i__5; ++ip1) { -#line 16772 "" +#line 17037 "" inip1 = comipl2_1.ipl2[commvl_1.ivx + ip1 * 24 - 25]; -#line 16773 "" +#line 17038 "" if ((r__1 = all_1.to[inip1 - 1] + all_1.tnote[ inip1 - 1] - itbb2, dabs(r__1)) < comtol_1.tol) { -#line 16774 "" +#line 17039 "" nip2fb = ip1; -#line 16775 "" +#line 17040 "" itbb3 = itbb2 - 2; -#line 16776 "" +#line 17041 "" goto L85; -#line 16777 "" +#line 17042 "" } -#line 16778 "" +#line 17043 "" /* L84: */ -#line 16778 "" +#line 17043 "" } -#line 16779 "" +#line 17044 "" } -#line 16780 "" +#line 17045 "" /* L83: */ -#line 16780 "" +#line 17045 "" } -#line 16781 "" - s_wsle(&io___994); -#line 16781 "" +#line 17046 "" + s_wsle(&io___1004); +#line 17046 "" e_wsle(); -#line 16782 "" - s_wsle(&io___995); -#line 16782 "" +#line 17047 "" + s_wsle(&io___1005); +#line 17047 "" do_lio(&c__9, &c__1, "Timing problem w/ forced beams", ( ftnlen)30); -#line 16782 "" +#line 17047 "" e_wsle(); -#line 16783 "" - s_wsfe(&io___996); -#line 16783 "" +#line 17048 "" + s_wsfe(&io___1006); +#line 17048 "" do_fio(&c__1, "Timing problem w/ forced beams", (ftnlen) 30); -#line 16783 "" +#line 17048 "" e_wsfe(); -#line 16784 "" +#line 17049 "" L85: -#line 16785 "" +#line 17050 "" logbeam_(&numnew, &nip1fb, &nip2fb); /* Set up mapfb for forced beam just logged: */ -#line 16789 "" +#line 17054 "" ib1 = itbb1 / 2; -#line 16790 "" +#line 17055 "" ib2 = itbb3 / 2; -#line 16791 "" +#line 17056 "" ibrep = all_1.lenbar / *ibmrep / 2; -#line 16792 "" +#line 17057 "" i__4 = *ibmrep; -#line 16792 "" +#line 17057 "" for (irep = 1; irep <= i__4; ++irep) { /* Computing MAX */ -#line 16793 "" +#line 17058 "" i__5 = 0, i__6 = ib1 - (irep - 1) * ibrep; -#line 16793 "" +#line 17058 "" ib1now = max(i__5,i__6); /* Computing MIN */ -#line 16794 "" +#line 17059 "" i__5 = irep * ibrep - 1, i__6 = ib2 - (irep - 1) * ibrep; -#line 16794 "" +#line 17059 "" ib2now = min(i__5,i__6); -#line 16795 "" +#line 17060 "" mapnow = 0; -#line 16796 "" +#line 17061 "" i__5 = ib2now; -#line 16796 "" +#line 17061 "" for (ib = ib1now; ib <= i__5; ++ib) { -#line 16797 "" +#line 17062 "" mapnow = bit_set(mapnow,ib); -#line 16798 "" +#line 17063 "" /* L87: */ -#line 16798 "" +#line 17063 "" } -#line 16799 "" +#line 17064 "" mapfb[irep - 1] |= mapnow; -#line 16800 "" +#line 17065 "" /* L86: */ -#line 16800 "" +#line 17065 "" } /* Since we are cycling thru forced beams, for those that start with a rest and */ @@ -39765,97 +40368,91 @@ L85: /* 060924: Copy to ALL later notes in fb, in case there's more than 1 rest at */ /* start of beam */ -#line 16807 "" +#line 17072 "" if (bit_test(all_1.irest[commvl_1.ivx + nip1fb * 24 - 25], 0)) { -/* call setbits(ipl(ivx,nip1fb+1),6,11, */ -/* * igetbits(ipl(ivx,nip1fb),6,11)) */ -/* call setbits(ipl(ivx,nip1fb+1),6,17, */ -/* * igetbits(ipl(ivx,nip1fb),6,17)) */ -/* call setbits(islur(ivx,nip1fb+1),2,27, */ -/* * igetbits(islur(ivx,nip1fb),2,27)) */ -#line 16814 "" +#line 17073 "" i__4 = nip2fb; -#line 16814 "" +#line 17073 "" for (kp = nip1fb + 1; kp <= i__4; ++kp) { -#line 16815 "" +#line 17074 "" i__5 = igetbits_(&all_1.ipl[commvl_1.ivx + nip1fb * 24 - 25], &c__6, &c__11); -#line 16815 "" +#line 17074 "" setbits_(&all_1.ipl[commvl_1.ivx + kp * 24 - 25], &c__6, &c__11, &i__5); -#line 16817 "" +#line 17076 "" i__5 = igetbits_(&all_1.ipl[commvl_1.ivx + nip1fb * 24 - 25], &c__6, &c__17); -#line 16817 "" +#line 17076 "" setbits_(&all_1.ipl[commvl_1.ivx + kp * 24 - 25], &c__6, &c__17, &i__5); -#line 16819 "" +#line 17078 "" i__5 = igetbits_(&all_1.islur[commvl_1.ivx + nip1fb * 24 - 25], &c__2, &c__27); -#line 16819 "" +#line 17078 "" setbits_(&all_1.islur[commvl_1.ivx + kp * 24 - 25] , &c__2, &c__27, &i__5); -#line 16821 "" +#line 17080 "" /* L88: */ -#line 16821 "" +#line 17080 "" } -#line 16822 "" +#line 17081 "" } -#line 16823 "" +#line 17082 "" /* L80: */ -#line 16823 "" +#line 17082 "" } -#line 16824 "" +#line 17083 "" L81: /* Slide down, reduce nfb(ivx). This lets us count up from 1 for each new bar. */ /* Remember, makeabar is called 1/bar, and it calls findbeam once per voice. */ -#line 16829 "" +#line 17088 "" if (nfbbar > 0) { -#line 16830 "" +#line 17089 "" comfb_1.nfb[commvl_1.ivx - 1] -= nfbbar; -#line 16831 "" +#line 17090 "" i__3 = comfb_1.nfb[commvl_1.ivx - 1]; -#line 16831 "" +#line 17090 "" for (comfb_1.ifb = 1; comfb_1.ifb <= i__3; ++comfb_1.ifb) { -#line 16832 "" +#line 17091 "" comfb_1.t1fb[commvl_1.ivx + comfb_1.ifb * 24 - 25] = comfb_1.t1fb[commvl_1.ivx + (comfb_1.ifb + nfbbar) * 24 - 25]; -#line 16833 "" +#line 17092 "" comfb_1.t2fb[commvl_1.ivx + comfb_1.ifb * 24 - 25] = comfb_1.t2fb[commvl_1.ivx + (comfb_1.ifb + nfbbar) * 24 - 25]; -#line 16834 "" +#line 17093 "" *(unsigned char *)&comfb_1.ulfbq[commvl_1.ivx + comfb_1.ifb * 24 - 25] = *(unsigned char *)& comfb_1.ulfbq[commvl_1.ivx + (comfb_1.ifb + nfbbar) * 24 - 25]; -#line 16835 "" +#line 17094 "" /* L82: */ -#line 16835 "" +#line 17094 "" } -#line 16836 "" +#line 17095 "" } -#line 16837 "" +#line 17096 "" } -#line 16838 "" +#line 17097 "" comfb_1.ifb = 0; /* Done with forced beam masks for this bar and voice. Now get normal beams. */ -#line 16842 "" +#line 17101 "" findbeam_(ibmrep, &numbms[1], mapfb); -#line 16843 "" +#line 17102 "" /* L20: */ -#line 16843 "" +#line 17102 "" } -#line 16843 "" +#line 17102 "" } -#line 16844 "" +#line 17103 "" return 0; } /* make1bar_ */ @@ -39873,7 +40470,7 @@ L81: char ch__1[80], ch__2[82], ch__3[20], ch__4[14], ch__5[12], ch__6[1], ch__7[17], ch__8[16], ch__9[11], ch__10[10], ch__11[44], ch__12[ 81], ch__13[113], ch__14[3], ch__15[9], ch__16[129], ch__17[6], - ch__18[5], ch__19[4], ch__20[13], ch__21[22]; + ch__18[13], ch__19[5], ch__20[4], ch__21[22]; cilist ci__1; /* Builtin functions */ @@ -39881,8 +40478,8 @@ L81: ; /* Subroutine */ int s_cat(char *, char **, integer *, integer *, ftnlen); integer s_wsfe(cilist *), e_wsfe(void), lbit_shift(integer, integer), - i_nint(real *), s_wsle(cilist *), do_lio(integer *, integer *, - char *, ftnlen), e_wsle(void); + s_wsle(cilist *), e_wsle(void), do_lio(integer *, integer *, char + *, ftnlen), i_nint(real *); /* Subroutine */ int s_stop(char *, ftnlen); integer pow_ii(integer *, integer *); /* Subroutine */ int s_copy(char *, char *, ftnlen, ftnlen); @@ -39890,6 +40487,12 @@ L81: integer s_cmp(char *, char *, ftnlen, ftnlen); /* Local variables */ + static integer lineno, itleft, itright, itendb; + extern integer iashft_(integer *); + static integer nolevc, ivlast; + extern /* Subroutine */ int istring_(integer *, char *, integer *, ftnlen) + ; + static integer mtrspc; extern integer igetbits_(integer *, integer *, integer *); static real dstemlen; extern logical isdotted_(integer *, integer *, integer *); @@ -39903,7 +40506,7 @@ L81: integer *, integer *, integer *, integer *, real *, integer *, ftnlen, ftnlen), midievent_(char *, integer *, integer *, ftnlen); static real stemshort; - static integer ib, ig, il, in, ip, kv; + static integer ib, ig, il, in, ip, kv, iv1; extern /* Subroutine */ int adjusteskz_(integer *, integer *, real *); static integer iib, icm, ing, len; static real esk; @@ -39926,8 +40529,10 @@ L81: extern /* Character */ VOID udqq_(char *, ftnlen, integer *, integer *, integer *, integer *, integer *, integer *); static char cwrq[79*24]; - static real ptgr[37], spgr, ptsl, zero, tnow; - static integer nodu; + static real ptgr[37], spgr, ptsl, zero; + static char ivxq[4]; + static real tnow; + static integer nodu, livx; extern /* Subroutine */ int eskb4_(integer *, integer *, integer *, integer *, real *, real *, real *, integer *, real *), stop1_( void), doacc_(integer *, integer *, char *, integer *, integer *, @@ -39937,11 +40542,10 @@ L81: static logical iscln, issig; static integer nornb[24]; static logical isarp, isdot; - static integer lnote; static char noteq[8]; static logical iscwr; static char soutq[80]; - static integer lsout, itrpt, itsig; + static integer lnote, iinst, lsout, itrpt, itsig; extern integer ncmid_(integer *, integer *); static integer iirpt, lclow; extern /* Subroutine */ int dodyn_(integer *, integer *, integer *, @@ -39952,8 +40556,7 @@ L81: , integer *, integer *, integer *, integer *, logical *, integer * , integer *, integer *, real *, logical *, integer *, integer *, ftnlen, ftnlen), putcb_(integer *, integer *, char *, integer *, - ftnlen), beamn1_(char *, integer *, ftnlen), notex_(char *, - integer *, ftnlen); + ftnlen); static logical iscacc; extern /* Subroutine */ int addask_(real *, real *, real *, real *, real * , real *, logical *); @@ -39982,29 +40585,20 @@ L81: static real offnsk; extern /* Subroutine */ int putfig_(integer *, integer *, real *, logical *, char *, integer *, ftnlen), putarp_(real *, integer *, integer - *, integer *, integer *, char *, integer *, ftnlen), doslur_( + *, integer *, integer *, char *, integer *, ftnlen); + static logical isgrace; + static integer icashft; + static real ptbneed; + extern /* Subroutine */ int doslur_(integer *, integer *, integer *, integer *, integer *, integer *, integer *, integer *, integer *, - integer *, integer *, integer *, logical *, integer *, char *, - integer *, char *, integer *, integer *, integer *, integer *, - real *, integer *, ftnlen, ftnlen); + logical *, integer *, char *, integer *, char *, integer *, + integer *, integer *, integer *, real *, integer *, ftnlen, + ftnlen); static integer iphold; extern /* Subroutine */ int dograce_(integer *, integer *, real *, char *, integer *, integer *, integer *, integer *, integer *, logical *, logical *, integer *, integer *, integer *, integer *, integer *, - integer *, real *, char *, integer *, ftnlen, ftnlen), notefq_( - char *, integer *, integer *, integer *, ftnlen), addmidi_( - integer *, integer *, integer *, integer *, real *, logical *, - logical *), putorn_(integer *, integer *, integer *, integer *, - integer *, char *, integer *, integer *, integer *, integer *, - integer *, integer *, integer *, real *, char *, integer *, - integer *, integer *, logical *, logical *, ftnlen, ftnlen), - dotmov_(real *, real *, char *, integer *, integer *, ftnlen), - beamend_(char *, integer *, ftnlen); - static logical isgrace; - static integer icashft; - static real ptbneed; - extern /* Subroutine */ int beamid_(char *, integer *, ftnlen); - static integer lineno, itleft; + integer *, real *, char *, integer *, ftnlen, ftnlen); static real ptsneed; extern /* Subroutine */ int clefsym_(integer *, char *, integer *, integer *, ftnlen); @@ -40013,56 +40607,64 @@ L81: extern /* Subroutine */ int putshft_(integer *, logical *, char *, integer *, ftnlen), endslur_(logical *, logical *, integer *, integer *, integer *, integer *, integer *, char *, integer *, - logical *, ftnlen), setbits_(integer *, integer *, integer *, - integer *); - static integer itright, itendb; - extern integer iashft_(integer *); - static integer nolevc, ivlast; + logical *, ftnlen), notefq_(char *, integer *, integer *, integer + *, ftnlen), setbits_(integer *, integer *, integer *, integer *), + addmidi_(integer *, integer *, integer *, integer *, real *, + logical *, logical *), putorn_(integer *, integer *, integer *, + integer *, integer *, char *, integer *, integer *, integer *, + integer *, integer *, integer *, integer *, real *, char *, + integer *, integer *, integer *, logical *, logical *, ftnlen, + ftnlen), dotmov_(real *, real *, char *, integer *, integer *, + ftnlen), beamn1_(char *, integer *, ftnlen); static real wheadpt1; - extern /* Subroutine */ int istring_(integer *, char *, integer *, ftnlen) - ; - static integer mtrspc; + extern /* Subroutine */ int beamend_(char *, integer *, ftnlen), beamid_( + char *, integer *, ftnlen), notex_(char *, integer *, ftnlen); /* Fortran I/O blocks */ - static icilist io___1016 = { 0, noteq, 0, "(1H{,i3,1H})", 5, 1 }; - static icilist io___1018 = { 0, noteq, 0, "(1H{,i2,1H})", 4, 1 }; - static icilist io___1019 = { 0, noteq, 0, "(i1)", 1, 1 }; - static cilist io___1022 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1023 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1026 = { 0, 11, 0, "(a20,i1,a)", 0 }; - static cilist io___1027 = { 0, 11, 0, "(a20,i2,a)", 0 }; - static cilist io___1028 = { 0, 11, 0, "(a)", 0 }; - static icilist io___1031 = { 0, soutq+8, 0, "(f4.1)", 4, 1 }; - static icilist io___1032 = { 0, soutq+8, 0, "(f4.2)", 4, 1 }; - static icilist io___1033 = { 0, soutq+10, 0, "(i2)", 2, 1 }; - static icilist io___1034 = { 0, soutq+11, 0, "(i1)", 1, 1 }; + static icilist io___1026 = { 0, noteq, 0, "(1H{,i3,1H})", 5, 1 }; + static icilist io___1028 = { 0, noteq, 0, "(1H{,i2,1H})", 4, 1 }; + static icilist io___1029 = { 0, noteq, 0, "(i1)", 1, 1 }; + static cilist io___1032 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1033 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1038 = { 0, 6, 0, 0, 0 }; static cilist io___1039 = { 0, 6, 0, 0, 0 }; - static cilist io___1040 = { 0, 6, 0, 0, 0 }; - static cilist io___1060 = { 0, 6, 0, 0, 0 }; - static cilist io___1076 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1077 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1078 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1079 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1080 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1081 = { 0, 6, 0, 0, 0 }; - static cilist io___1082 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1083 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1084 = { 0, 11, 0, "(a)", 0 }; - static icilist io___1088 = { 0, notexq+11, 0, "(i2)", 2, 1 }; - static icilist io___1094 = { 0, notexq+6, 0, "(f3.1)", 3, 1 }; - static icilist io___1095 = { 0, notexq+6, 0, "(f4.1)", 4, 1 }; - static icilist io___1097 = { 0, notexq+5, 0, "(f3.1)", 3, 1 }; - static icilist io___1098 = { 0, notexq+5, 0, "(f4.1)", 4, 1 }; - static cilist io___1100 = { 0, 6, 0, 0, 0 }; - static cilist io___1101 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1102 = { 0, 11, 0, "(a)", 0 }; - static icilist io___1110 = { 0, notexq, 0, "(f4.1)", 79, 1 }; - static icilist io___1116 = { 0, noteq, 0, "(a1,i2,a1)", 8, 1 }; - static cilist io___1117 = { 0, 6, 0, 0, 0 }; - static cilist io___1130 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1133 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1136 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1138 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1040 = { 0, 11, 0, "(a20,i1,a)", 0 }; + static cilist io___1041 = { 0, 11, 0, "(a20,i2,a)", 0 }; + static cilist io___1042 = { 0, 11, 0, "(a)", 0 }; + static icilist io___1045 = { 0, soutq+8, 0, "(f4.1)", 4, 1 }; + static icilist io___1046 = { 0, soutq+8, 0, "(f4.2)", 4, 1 }; + static icilist io___1047 = { 0, soutq+10, 0, "(i2)", 2, 1 }; + static icilist io___1048 = { 0, soutq+11, 0, "(i1)", 1, 1 }; + static cilist io___1053 = { 0, 6, 0, 0, 0 }; + static cilist io___1054 = { 0, 6, 0, 0, 0 }; + static cilist io___1074 = { 0, 6, 0, 0, 0 }; + static cilist io___1090 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1091 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1092 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1093 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1094 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1095 = { 0, 6, 0, 0, 0 }; + static cilist io___1096 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1097 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1098 = { 0, 11, 0, "(a)", 0 }; + static icilist io___1102 = { 0, notexq+11, 0, "(i2)", 2, 1 }; + static icilist io___1108 = { 0, notexq+6, 0, "(f3.1)", 3, 1 }; + static icilist io___1109 = { 0, notexq+6, 0, "(f4.1)", 4, 1 }; + static icilist io___1111 = { 0, notexq+5, 0, "(f3.1)", 3, 1 }; + static icilist io___1112 = { 0, notexq+5, 0, "(f4.1)", 4, 1 }; + static cilist io___1114 = { 0, 6, 0, 0, 0 }; + static cilist io___1115 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1116 = { 0, 11, 0, "(a)", 0 }; + static icilist io___1124 = { 0, notexq, 0, "(f4.1)", 79, 1 }; + static icilist io___1132 = { 0, noteq, 0, "(a1,i2,a1)", 8, 1 }; + static cilist io___1133 = { 0, 6, 0, 0, 0 }; + static cilist io___1146 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1149 = { 0, 11, 0, "(a)", 0 }; + static icilist io___1150 = { 0, soutq+12, 0, "(i3)", 3, 1 }; + static icilist io___1151 = { 0, soutq+12, 0, "(i2)", 2, 1 }; + static cilist io___1152 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1155 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1157 = { 0, 11, 0, "(a)", 0 }; @@ -40070,419 +40672,458 @@ L81: /* In 1.04, moved to block data subprogram */ /* 130316 */ -#line 16964 "" +#line 17232 "" /* Parameter adjustments */ -#line 16964 "" +#line 17232 "" --clefq; -#line 16964 "" +#line 17232 "" --istart; -#line 16964 "" +#line 17232 "" --numbms; -#line 16964 "" +#line 17232 "" --istop; -#line 16964 "" +#line 17232 "" --squez; -#line 16964 "" +#line 17232 "" --cwrest; -#line 16964 "" +#line 17232 "" --tstart; -#line 16964 "" +#line 17232 "" -#line 16964 "" +#line 17232 "" /* Function Body */ -#line 16964 "" +#line 17232 "" xjbeambrests_1.nbrests = 0; /* Set up main ib loop within which a block (notes group) is written */ -#line 16968 "" +#line 17236 "" i__1 = all_1.nv; -#line 16968 "" +#line 17236 "" for (all_1.iv = 1; all_1.iv <= i__1; ++all_1.iv) { -#line 16969 "" +#line 17237 "" i__2 = commvl_1.nvmx[all_1.iv - 1]; -#line 16969 "" +#line 17237 "" for (kv = 1; kv <= i__2; ++kv) { -#line 16970 "" +#line 17238 "" commvl_1.ivx = commvl_1.ivmx[all_1.iv + kv * 24 - 25]; -#line 16971 "" +#line 17239 "" all_1.ibmcnt[commvl_1.ivx - 1] = 1; -#line 16972 "" +#line 17240 "" ibmcnt1[commvl_1.ivx - 1] = 1; -#line 16973 "" +#line 17241 "" all_1.beamon[commvl_1.ivx - 1] = FALSE_; -#line 16974 "" +#line 17242 "" beamon1[commvl_1.ivx - 1] = FALSE_; -#line 16975 "" +#line 17243 "" nornb[commvl_1.ivx - 1] = 0; -#line 16976 "" +#line 17244 "" iaskb[commvl_1.ivx - 1] = 1; -#line 16977 "" +#line 17245 "" comxtup_1.vxtup[commvl_1.ivx - 1] = FALSE_; -#line 16978 "" +#line 17246 "" comdraw_1.drawbm[commvl_1.ivx - 1] = TRUE_; -#line 16979 "" +#line 17247 "" /* L25: */ -#line 16979 "" +#line 17247 "" } -#line 16979 "" +#line 17247 "" } -#line 16980 "" +#line 17248 "" comas1_1.naskb = 0; -#line 16981 "" +#line 17249 "" ifig[0] = 1; -#line 16982 "" +#line 17250 "" ifig[1] = 1; -#line 16983 "" +#line 17251 "" comxtup_1.ixtup = 0; -#line 16984 "" +#line 17252 "" bspend = FALSE_; -#line 16985 "" +#line 17253 "" iscwr = FALSE_; -#line 16986 "" +#line 17254 "" rpndot = FALSE_; -#line 16987 "" +#line 17255 "" i__2 = comnsp_2.nb; -#line 16987 "" +#line 17255 "" for (ib = 1; ib <= i__2; ++ib) { /* Check for segno */ -#line 16991 "" +#line 17259 "" if (bit_test(all_1.iornq[all_1.ipo[istart[ib] - 1] * 24],4) && all_1.ivxo[istart[ib] - 1] == 1) { -#line 16993 "" +#line 17261 "" if (comgrace_1.noffseg <= -10) { -#line 16994 "" - s_wsfi(&io___1016); -#line 16994 "" +#line 17262 "" + s_wsfi(&io___1026); +#line 17262 "" do_fio(&c__1, (char *)&comgrace_1.noffseg, (ftnlen)sizeof( integer)); -#line 16994 "" +#line 17262 "" e_wsfi(); -#line 16995 "" +#line 17263 "" lnoten = 5; -#line 16996 "" +#line 17264 "" } else if (comgrace_1.noffseg < 0 || comgrace_1.noffseg >= 10) { -#line 16997 "" - s_wsfi(&io___1018); -#line 16997 "" +#line 17265 "" + s_wsfi(&io___1028); +#line 17265 "" do_fio(&c__1, (char *)&comgrace_1.noffseg, (ftnlen)sizeof( integer)); -#line 16997 "" +#line 17265 "" e_wsfi(); -#line 16998 "" +#line 17266 "" lnoten = 4; -#line 16999 "" +#line 17267 "" } else { -#line 17000 "" - s_wsfi(&io___1019); -#line 17000 "" +#line 17268 "" + s_wsfi(&io___1029); +#line 17268 "" do_fio(&c__1, (char *)&comgrace_1.noffseg, (ftnlen)sizeof( integer)); -#line 17000 "" +#line 17268 "" e_wsfi(); -#line 17001 "" +#line 17269 "" lnoten = 1; -#line 17002 "" +#line 17270 "" } /* Writing concatenation */ -#line 17003 "" +#line 17271 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 17003 "" +#line 17271 "" i__3[1] = 6, a__1[1] = "znotes"; -#line 17003 "" +#line 17271 "" i__3[2] = 1, a__1[2] = all_1.sq; -#line 17003 "" +#line 17271 "" i__3[3] = 6, a__1[3] = "segnoo"; -#line 17003 "" +#line 17271 "" i__3[4] = lnoten, a__1[4] = noteq; -#line 17003 "" +#line 17271 "" i__3[5] = 1, a__1[5] = "9"; -#line 17003 "" +#line 17271 "" s_cat(notexq, a__1, i__3, &c__6, (ftnlen)79); -#line 17004 "" +#line 17272 "" lnote = lnoten + 15; -#line 17005 "" +#line 17273 "" i__1 = all_1.nv; -#line 17005 "" +#line 17273 "" for (all_1.iv = 2; all_1.iv <= i__1; ++all_1.iv) { -#line 17006 "" +#line 17274 "" if (lnote > 60) { -#line 17007 "" +#line 17275 "" if (comlast_1.islast) { -#line 17007 "" - s_wsfe(&io___1022); +#line 17275 "" + s_wsfe(&io___1032); /* Writing concatenation */ -#line 17007 "" +#line 17275 "" i__4[0] = lnote, a__2[0] = notexq; -#line 17007 "" +#line 17275 "" i__4[1] = 1, a__2[1] = "%"; -#line 17007 "" +#line 17275 "" s_cat(ch__1, a__2, i__4, &c__2, (ftnlen)80); -#line 17007 "" +#line 17275 "" do_fio(&c__1, ch__1, lnote + 1); -#line 17007 "" +#line 17275 "" e_wsfe(); -#line 17007 "" +#line 17275 "" } /* Writing concatenation */ -#line 17008 "" +#line 17276 "" i__5[0] = 1, a__3[0] = all_1.sepsymq + (all_1.iv - 2); -#line 17008 "" +#line 17276 "" i__5[1] = 1, a__3[1] = all_1.sq; -#line 17008 "" +#line 17276 "" i__5[2] = 6, a__3[2] = "segnoo"; -#line 17008 "" +#line 17276 "" i__5[3] = lnoten, a__3[3] = noteq; -#line 17008 "" +#line 17276 "" i__5[4] = 1, a__3[4] = "9"; -#line 17008 "" +#line 17276 "" s_cat(notexq, a__3, i__5, &c__5, (ftnlen)79); -#line 17010 "" +#line 17278 "" lnote = lnoten + 9; -#line 17011 "" +#line 17279 "" } else { /* Writing concatenation */ -#line 17012 "" +#line 17280 "" i__3[0] = lnote, a__1[0] = notexq; -#line 17012 "" +#line 17280 "" i__3[1] = 1, a__1[1] = all_1.sepsymq + (all_1.iv - 2); -#line 17012 "" +#line 17280 "" i__3[2] = 1, a__1[2] = all_1.sq; -#line 17012 "" +#line 17280 "" i__3[3] = 6, a__1[3] = "segnoo"; -#line 17012 "" +#line 17280 "" i__3[4] = lnoten, a__1[4] = noteq; -#line 17012 "" +#line 17280 "" i__3[5] = 1, a__1[5] = "9"; -#line 17012 "" +#line 17280 "" s_cat(notexq, a__1, i__3, &c__6, (ftnlen)79); -#line 17014 "" +#line 17282 "" lnote = lnote + lnoten + 9; -#line 17015 "" +#line 17283 "" } -#line 17016 "" +#line 17284 "" /* L130: */ -#line 17016 "" +#line 17284 "" } -#line 17017 "" +#line 17285 "" if (comlast_1.islast) { -#line 17017 "" - s_wsfe(&io___1023); +#line 17285 "" + s_wsfe(&io___1033); /* Writing concatenation */ -#line 17017 "" +#line 17285 "" i__6[0] = lnote, a__4[0] = notexq; -#line 17017 "" +#line 17285 "" i__6[1] = 1, a__4[1] = all_1.sq; -#line 17017 "" +#line 17285 "" i__6[2] = 2, a__4[2] = "en"; -#line 17017 "" +#line 17285 "" s_cat(ch__2, a__4, i__6, &c__3, (ftnlen)82); -#line 17017 "" +#line 17285 "" do_fio(&c__1, ch__2, lnote + 3); -#line 17017 "" +#line 17285 "" e_wsfe(); -#line 17017 "" +#line 17285 "" } -#line 17018 "" +#line 17286 "" lnote = 0; -#line 17019 "" +#line 17287 "" } /* Check for new clefs */ -#line 17023 "" +#line 17291 "" isclef = FALSE_; -#line 17024 "" +#line 17292 "" if (bit_test(all_1.islur[all_1.ivxo[istart[ib] - 1] + all_1.ipo[ istart[ib] - 1] * 24 - 25],15)) { /* In preceding line, fl32 gave wrong result for ... .gt.0 !!! */ -#line 17029 "" +#line 17297 "" i__1 = istop[ib]; -#line 17029 "" +#line 17297 "" for (in = istart[ib]; in <= i__1; ++in) { -#line 17030 "" +#line 17298 "" if (bit_test(all_1.islur[all_1.ivxo[in - 1] + all_1.ipo[in - 1] * 24 - 25],11)) { -#line 17031 "" +#line 17299 "" i__7 = lbit_shift(all_1.islur[all_1.ivxo[in - 1] + all_1.ipo[in - 1] * 24 - 25], (ftnlen)-12) & 7; -#line 17031 "" +#line 17299 "" wsclef_(&all_1.ivxo[in - 1], ninow, &i__7); /* If clefq = '8', must add eg \settrebleclefsymbol3\treblelowoct% */ /* if (clefq(ivxo(in)) .eq. '8') then */ -#line 17037 "" +#line 17305 "" if (bit_test(all_1.ipl[all_1.ivxo[in - 1] + all_1.ipo[in - 1] * 24 - 25],2)) { -#line 17038 "" - if (all_1.iv <= 9) { -#line 17039 "" - s_wsfe(&io___1026); + +/* Find instrument number for voice ivso(in) */ + +#line 17309 "" + iv1 = 1; +#line 17310 "" + i__7 = *ninow; +#line 17310 "" + for (iinst = 1; iinst <= i__7; ++iinst) { +#line 17311 "" + if (all_1.ivxo[in - 1] < iv1 + comnvi_1.nspern[ + iinst - 1]) { +#line 17311 "" + goto L2222; +#line 17311 "" + } +#line 17312 "" + iv1 += comnvi_1.nspern[iinst - 1]; +#line 17313 "" +/* L1111: */ +#line 17313 "" + } +#line 17314 "" + s_wsle(&io___1038); +#line 17314 "" + e_wsle(); +#line 17315 "" + s_wsle(&io___1039); +#line 17315 "" + do_lio(&c__9, &c__1, "Should not be here in make2bar!" + , (ftnlen)31); +#line 17315 "" + e_wsle(); +#line 17316 "" + stop1_(); +#line 17317 "" +L2222: +#line 17318 "" + if (iinst <= 9) { +#line 17319 "" + s_wsfe(&io___1040); /* Writing concatenation */ -#line 17039 "" +#line 17319 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17039 "" +#line 17319 "" i__4[1] = 19, a__2[1] = "settrebleclefsymbol"; -#line 17039 "" +#line 17319 "" s_cat(ch__3, a__2, i__4, &c__2, (ftnlen)20); -#line 17039 "" +#line 17319 "" do_fio(&c__1, ch__3, (ftnlen)20); -#line 17039 "" - do_fio(&c__1, (char *)&all_1.iv, (ftnlen)sizeof( +#line 17319 "" + do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof( integer)); /* Writing concatenation */ -#line 17039 "" +#line 17319 "" i__8[0] = 1, a__5[0] = all_1.sq; -#line 17039 "" +#line 17319 "" i__8[1] = 13, a__5[1] = "treblelowoct%"; -#line 17039 "" +#line 17319 "" s_cat(ch__4, a__5, i__8, &c__2, (ftnlen)14); -#line 17039 "" +#line 17319 "" do_fio(&c__1, ch__4, (ftnlen)14); -#line 17039 "" +#line 17319 "" e_wsfe(); -#line 17041 "" +#line 17321 "" } else { -#line 17042 "" - s_wsfe(&io___1027); +#line 17322 "" + s_wsfe(&io___1041); /* Writing concatenation */ -#line 17042 "" +#line 17322 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17042 "" +#line 17322 "" i__4[1] = 19, a__2[1] = "settrebleclefsymbol"; -#line 17042 "" +#line 17322 "" s_cat(ch__3, a__2, i__4, &c__2, (ftnlen)20); -#line 17042 "" +#line 17322 "" do_fio(&c__1, ch__3, (ftnlen)20); -#line 17042 "" - do_fio(&c__1, (char *)&all_1.iv, (ftnlen)sizeof( +#line 17322 "" + do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof( integer)); /* Writing concatenation */ -#line 17042 "" +#line 17322 "" i__8[0] = 1, a__5[0] = all_1.sq; -#line 17042 "" +#line 17322 "" i__8[1] = 13, a__5[1] = "treblelowoct%"; -#line 17042 "" +#line 17322 "" s_cat(ch__4, a__5, i__8, &c__2, (ftnlen)14); -#line 17042 "" +#line 17322 "" do_fio(&c__1, ch__4, (ftnlen)14); -#line 17042 "" +#line 17322 "" e_wsfe(); -#line 17044 "" +#line 17324 "" } -#line 17045 "" +#line 17325 "" + comc8flag_1.c8flag[all_1.ivxo[in - 1] - 1] = TRUE_; +#line 17326 "" } -#line 17046 "" +#line 17327 "" } -#line 17047 "" +#line 17328 "" /* L140: */ -#line 17047 "" +#line 17328 "" } -#line 17048 "" +#line 17329 "" if (comlast_1.islast) { -#line 17048 "" - s_wsfe(&io___1028); +#line 17329 "" + s_wsfe(&io___1042); /* Writing concatenation */ -#line 17048 "" +#line 17329 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17048 "" +#line 17329 "" i__4[1] = 11, a__2[1] = "pmxnewclefs"; -#line 17048 "" +#line 17329 "" s_cat(ch__5, a__2, i__4, &c__2, (ftnlen)12); -#line 17048 "" +#line 17329 "" do_fio(&c__1, ch__5, (ftnlen)12); -#line 17048 "" +#line 17329 "" e_wsfe(); -#line 17048 "" +#line 17329 "" } -#line 17049 "" +#line 17330 "" isclef = TRUE_; -#line 17050 "" +#line 17331 "" } /* Start a notes group. We're just gonna define every one using pnotes{n}, */ /* where \def\pnotes#1{\vnotes#1\elemskip} */ /* Writing concatenation */ -#line 17055 "" +#line 17336 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17055 "" +#line 17336 "" i__4[1] = 7, a__2[1] = "pnotes{"; -#line 17055 "" +#line 17336 "" s_cat(soutq, a__2, i__4, &c__2, (ftnlen)80); -#line 17056 "" +#line 17337 "" r__1 = comnsp_2.space[ib - 1] / squez[ib]; -#line 17056 "" +#line 17337 "" eonsqz = squez[ib] * feon_(&r__1); -#line 17057 "" +#line 17338 "" if (eonsqz > 9.995f) { -#line 17058 "" - s_wsfi(&io___1031); -#line 17058 "" +#line 17339 "" + s_wsfi(&io___1045); +#line 17339 "" do_fio(&c__1, (char *)&eonsqz, (ftnlen)sizeof(real)); -#line 17058 "" +#line 17339 "" e_wsfi(); -#line 17059 "" +#line 17340 "" } else if (eonsqz > .995f) { -#line 17060 "" - s_wsfi(&io___1032); -#line 17060 "" +#line 17341 "" + s_wsfi(&io___1046); +#line 17341 "" do_fio(&c__1, (char *)&eonsqz, (ftnlen)sizeof(real)); -#line 17060 "" +#line 17341 "" e_wsfi(); -#line 17061 "" +#line 17342 "" } else if (eonsqz > .095f) { /* Writing concatenation */ -#line 17062 "" +#line 17343 "" i__4[0] = 8, a__2[0] = soutq; -#line 17062 "" +#line 17343 "" i__4[1] = 2, a__2[1] = "0."; -#line 17062 "" +#line 17343 "" s_cat(soutq, a__2, i__4, &c__2, (ftnlen)80); -#line 17063 "" - s_wsfi(&io___1033); -#line 17063 "" +#line 17344 "" + s_wsfi(&io___1047); +#line 17344 "" r__1 = eonsqz * 100; -#line 17063 "" +#line 17344 "" i__1 = i_nint(&r__1); -#line 17063 "" +#line 17344 "" do_fio(&c__1, (char *)&i__1, (ftnlen)sizeof(integer)); -#line 17063 "" +#line 17344 "" e_wsfi(); -#line 17064 "" +#line 17345 "" } else { /* Writing concatenation */ -#line 17065 "" +#line 17346 "" i__4[0] = 8, a__2[0] = soutq; -#line 17065 "" +#line 17346 "" i__4[1] = 3, a__2[1] = "0.0"; -#line 17065 "" +#line 17346 "" s_cat(soutq, a__2, i__4, &c__2, (ftnlen)80); -#line 17066 "" - s_wsfi(&io___1034); -#line 17066 "" +#line 17347 "" + s_wsfi(&io___1048); +#line 17347 "" r__1 = eonsqz * 100; -#line 17066 "" +#line 17347 "" i__1 = i_nint(&r__1); -#line 17066 "" +#line 17347 "" do_fio(&c__1, (char *)&i__1, (ftnlen)sizeof(integer)); -#line 17066 "" +#line 17347 "" e_wsfi(); -#line 17067 "" +#line 17348 "" } /* Writing concatenation */ -#line 17068 "" +#line 17349 "" i__4[0] = 12, a__2[0] = soutq; -#line 17068 "" +#line 17349 "" i__4[1] = 1, a__2[1] = "}"; -#line 17068 "" +#line 17349 "" s_cat(soutq, a__2, i__4, &c__2, (ftnlen)80); -#line 17069 "" +#line 17350 "" lsout = 13; /* Check whole block, flag accidentals etc that are too close, one per *time*. */ @@ -40490,87 +41131,87 @@ L81: /* (fbar*wheadpt) following, but rpts seem to occupy some of that gap, so */ /* (dotsfac*wheadpt) is presumed to be filled up. */ -#line 17076 "" +#line 17357 "" in = istart[ib] - 1; -#line 17077 "" +#line 17358 "" itrpt = -1; -#line 17078 "" +#line 17359 "" itsig = -1; /* Begin big manual loop over notes in this block; ends at 112 */ -#line 17082 "" +#line 17363 "" L111: -#line 17082 "" +#line 17363 "" ++in; -#line 17083 "" +#line 17364 "" if (in > istop[ib]) { -#line 17083 "" +#line 17364 "" goto L112; -#line 17083 "" +#line 17364 "" } -#line 17084 "" +#line 17365 "" ip = all_1.ipo[in - 1]; -#line 17085 "" +#line 17366 "" commvl_1.ivx = all_1.ivxo[in - 1]; -#line 17086 "" +#line 17367 "" if (commvl_1.ivx <= all_1.nv) { -#line 17087 "" +#line 17368 "" all_1.iv = commvl_1.ivx; -#line 17088 "" +#line 17369 "" } else { -#line 17089 "" +#line 17370 "" i__1 = all_1.nv; -#line 17089 "" +#line 17370 "" for (all_1.iv = 1; all_1.iv <= i__1; ++all_1.iv) { -#line 17090 "" +#line 17371 "" if (commvl_1.nvmx[all_1.iv - 1] == 2 && commvl_1.ivmx[ all_1.iv + 23] == commvl_1.ivx) { -#line 17090 "" +#line 17371 "" goto L129; -#line 17090 "" +#line 17371 "" } -#line 17091 "" +#line 17372 "" /* L128: */ -#line 17091 "" +#line 17372 "" } -#line 17092 "" - s_wsle(&io___1039); -#line 17092 "" +#line 17373 "" + s_wsle(&io___1053); +#line 17373 "" do_lio(&c__9, &c__1, "Trouble finding iv!, ivx,nvmx,ivmx:", ( ftnlen)35); -#line 17092 "" +#line 17373 "" do_lio(&c__3, &c__1, (char *)&commvl_1.ivx, (ftnlen)sizeof( integer)); -#line 17092 "" +#line 17373 "" do_lio(&c__3, &c__1, (char *)&commvl_1.nvmx[0], (ftnlen)sizeof( integer)); -#line 17092 "" +#line 17373 "" do_lio(&c__3, &c__1, (char *)&commvl_1.nvmx[1], (ftnlen)sizeof( integer)); -#line 17092 "" +#line 17373 "" e_wsle(); -#line 17093 "" - s_wsle(&io___1040); -#line 17093 "" +#line 17374 "" + s_wsle(&io___1054); +#line 17374 "" do_lio(&c__3, &c__1, (char *)&commvl_1.ivmx[0], (ftnlen)sizeof( integer)); -#line 17093 "" +#line 17374 "" do_lio(&c__3, &c__1, (char *)&commvl_1.ivmx[24], (ftnlen)sizeof( integer)); -#line 17093 "" +#line 17374 "" do_lio(&c__3, &c__1, (char *)&commvl_1.ivmx[1], (ftnlen)sizeof( integer)); -#line 17093 "" +#line 17374 "" do_lio(&c__3, &c__1, (char *)&commvl_1.ivmx[25], (ftnlen)sizeof( integer)); -#line 17093 "" +#line 17374 "" e_wsle(); -#line 17094 "" +#line 17375 "" s_stop("", (ftnlen)0); -#line 17095 "" +#line 17376 "" } -#line 17096 "" +#line 17377 "" L129: /* Call precrd here so we know how much space to add for accid's in chords */ @@ -40584,65 +41225,65 @@ L129: /* * .and. ibm1(ivx,ibmcnt(ivx)) .eq. ip) .or. */ /* * btest(nacc(ivx,ip),21)) then */ /* if (.not.btest(irest(ivx,ip),24)) then */ -#line 17109 "" +#line 17390 "" if (numbms[commvl_1.ivx] > 0 && ibmcnt1[commvl_1.ivx - 1] <= numbms[ commvl_1.ivx] && all_1.ibm1[commvl_1.ivx + ibmcnt1[ commvl_1.ivx - 1] * 24 - 25] == ip) { -#line 17111 "" +#line 17392 "" beamon1[commvl_1.ivx - 1] = TRUE_; -#line 17112 "" +#line 17393 "" } -#line 17113 "" +#line 17394 "" icashft = 0; -#line 17114 "" +#line 17395 "" if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],10)) { /* There is a chord on this note. Need up-down-ness in precrd to auto shift for 2nds. */ -#line 17118 "" +#line 17399 "" if (beamon1[commvl_1.ivx - 1]) { -#line 17119 "" +#line 17400 "" precrd_(&commvl_1.ivx, &ip, &all_1.nolev[commvl_1.ivx + ip * 24 - 25], &all_1.nacc[commvl_1.ivx + ip * 24 - 25], & all_1.ipl[commvl_1.ivx + ip * 24 - 25], &all_1.irest[ commvl_1.ivx + ip * 24 - 25], all_1.ulq + ( commvl_1.ivx + ibmcnt1[commvl_1.ivx - 1] * 24 - 25), & c_false, &icashft, (ftnlen)1); -#line 17122 "" +#line 17403 "" } else { -#line 17123 "" +#line 17404 "" i__1 = ncmid_(&all_1.iv, &ip); -#line 17123 "" +#line 17404 "" udqq_(ch__6, (ftnlen)1, &all_1.nolev[commvl_1.ivx + ip * 24 - 25], &i__1, &all_1.islur[commvl_1.ivx + ip * 24 - 25], &commvl_1.nvmx[all_1.iv - 1], &commvl_1.ivx, & all_1.nv); -#line 17123 "" +#line 17404 "" precrd_(&commvl_1.ivx, &ip, &all_1.nolev[commvl_1.ivx + ip * 24 - 25], &all_1.nacc[commvl_1.ivx + ip * 24 - 25], & all_1.ipl[commvl_1.ivx + ip * 24 - 25], &all_1.irest[ commvl_1.ivx + ip * 24 - 25], ch__6, &c_false, & icashft, (ftnlen)1); -#line 17127 "" +#line 17408 "" } -#line 17128 "" +#line 17409 "" } /* Turn beam off? */ -#line 17132 "" +#line 17413 "" if (beamon1[commvl_1.ivx - 1] && all_1.ibm2[commvl_1.ivx + ibmcnt1[ commvl_1.ivx - 1] * 24 - 25] == ip) { -#line 17133 "" +#line 17414 "" beamon1[commvl_1.ivx - 1] = FALSE_; -#line 17134 "" +#line 17415 "" ++ibmcnt1[commvl_1.ivx - 1]; -#line 17135 "" +#line 17416 "" } /* Remember, rpts & internal sigs can only come at start of (internal) block */ -#line 17139 "" +#line 17420 "" isacc = (all_1.nacc[commvl_1.ivx + ip * 24 - 25] & 3) > 0 && ! bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],17) && ! bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],10); @@ -40651,7 +41292,7 @@ L129: /* !!! Need to do this for chord notes too. Maybe in chkarp? */ -#line 17147 "" +#line 17428 "" isaccs = isacc || bit_test(all_1.iornq[commvl_1.ivx + ip * 24 - 1],0); /* 5/15/02 Add check for ) ornament of prior note. */ @@ -40659,154 +41300,154 @@ L129: /* if (ip .gt. 1) then */ /* isaccs = isaccs .or. btest(iornq(ivx,ip-1),13) */ /* end if */ -#line 17154 "" +#line 17435 "" isarp = bit_test(all_1.iornq[commvl_1.ivx + ip * 24 - 1],27); -#line 17155 "" +#line 17436 "" iscacc = FALSE_; -#line 17156 "" +#line 17437 "" if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],10)) { /* There is a chord here; check for arpeggios and accidentals. Note accid shifts are */ /* not of concern here, only whether there's an accid, whick causes iscacc=.true. */ -#line 17161 "" +#line 17442 "" iscacc = igetbits_(&all_1.nacc[commvl_1.ivx + ip * 24 - 25], & c__3, &c__0) > 0 && ! bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],17); -#line 17163 "" +#line 17444 "" chkarp_(&comtrill_1.ncrd, comtrill_1.icrdat, &commvl_1.ivx, &ip, & iscacc, &isarp); -#line 17164 "" +#line 17445 "" } /* When we get motivated, will do spacing for arpeggios here. */ -#line 17168 "" +#line 17449 "" if (commvl_1.ivx == 1 && (all_1.islur[commvl_1.ivx + ip * 24 - 25] & 96) > 0) { -#line 17168 "" +#line 17449 "" itrpt = i_nint(&all_1.to[in - 1]); -#line 17168 "" +#line 17449 "" } -#line 17170 "" +#line 17451 "" issig = bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],28); -#line 17171 "" +#line 17452 "" if (commvl_1.ivx == 1 && issig) { -#line 17171 "" +#line 17452 "" itsig = i_nint(&all_1.to[in - 1]); -#line 17171 "" +#line 17452 "" } -#line 17172 "" +#line 17453 "" isgrace = bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],4) && ! bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],29) && ! bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],31); -#line 17174 "" +#line 17455 "" isgaft = FALSE_; -#line 17175 "" +#line 17456 "" if (ip > 1) { -#line 17176 "" +#line 17457 "" xnd = all_1.tnote[comipl2_1.ipl2[commvl_1.ivx + (ip - 1) * 24 - 25] - 1]; -#line 17177 "" +#line 17458 "" isgaft = bit_test(all_1.ipl[commvl_1.ivx + (ip - 1) * 24 - 25],29) || bit_test(all_1.ipl[commvl_1.ivx + (ip - 1) * 24 - 25], 31); -#line 17178 "" +#line 17459 "" isgrace = isgrace || isgaft; -#line 17179 "" +#line 17460 "" } -#line 17180 "" +#line 17461 "" iscln = isclef && bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25], 11); /* Is prev. note non-beamed, up-stemmed, & flagged? Recall if ip>1, have nd */ -#line 17184 "" +#line 17465 "" isflag = ip > 1 && xnd > comtol_1.tol && xnd < 16.f - comtol_1.tol; -#line 17185 "" +#line 17466 "" if (isflag) { -#line 17185 "" +#line 17466 "" i__7 = ip - 1; -#line 17185 "" +#line 17466 "" i__1 = ncmid_(&all_1.iv, &i__7); -#line 17185 "" +#line 17466 "" udqq_(ch__6, (ftnlen)1, &all_1.nolev[commvl_1.ivx + (ip - 1) * 24 - 25], &i__1, &all_1.islur[commvl_1.ivx + (ip - 1) * 24 - 25], &commvl_1.nvmx[all_1.iv - 1], &commvl_1.ivx, & all_1.nv); -#line 17185 "" +#line 17466 "" isflag = ! bit_test(all_1.irest[commvl_1.ivx + (ip - 1) * 24 - 25] ,0) && *(unsigned char *)&ch__6[0] == 'u'; -#line 17185 "" +#line 17466 "" } -#line 17189 "" +#line 17470 "" if (isflag) { -#line 17190 "" +#line 17471 "" i__1 = numbms[commvl_1.ivx]; -#line 17190 "" +#line 17471 "" for (ibmchk = 1; ibmchk <= i__1; ++ibmchk) { -#line 17191 "" +#line 17472 "" if (ip - 1 < all_1.ibm1[commvl_1.ivx + ibmchk * 24 - 25]) { -#line 17192 "" +#line 17473 "" goto L117; /* Add check for non-beamed xtuplets. May be problem with stem direction. */ -#line 17196 "" +#line 17477 "" } else if (ip - 1 <= all_1.ibm2[commvl_1.ivx + ibmchk * 24 - 25] && ! bit_test(all_1.islur[commvl_1.ivx + all_1.ibm1[commvl_1.ivx + ibmchk * 24 - 25] * 24 - 25] ,18)) { -#line 17198 "" +#line 17479 "" isflag = FALSE_; -#line 17199 "" +#line 17480 "" goto L117; -#line 17200 "" +#line 17481 "" } -#line 17201 "" +#line 17482 "" /* L116: */ -#line 17201 "" +#line 17482 "" } -#line 17202 "" +#line 17483 "" } -#line 17203 "" +#line 17484 "" L117: /* If isflag, then won't need to check for dot on prev. note. */ /* 5/16/02 ??? Try using this for ) ornament. */ -#line 17209 "" +#line 17490 "" isflag = isflag || bit_test(all_1.iornq[commvl_1.ivx + (ip - 1) * 24 - 1],13); -#line 17210 "" +#line 17491 "" isdot = ip > 1; -#line 17211 "" +#line 17492 "" if (isdot) { -#line 17211 "" +#line 17492 "" i__1 = ip - 1; -#line 17211 "" +#line 17492 "" isdot = isdotted_(all_1.nodur, &commvl_1.ivx, &i__1); -#line 17211 "" +#line 17492 "" } -#line 17212 "" +#line 17493 "" isrshft = ip > 1; -#line 17213 "" +#line 17494 "" if (isrshft) { -#line 17213 "" +#line 17494 "" isrshft = bit_test(all_1.irest[commvl_1.ivx + (ip - 1) * 24 - 25], 20); -#line 17213 "" +#line 17494 "" } -#line 17214 "" +#line 17495 "" if (! (isaccs || isgrace || iscln || isflag || isrshft || isdot || bit_test(all_1.iornq[commvl_1.ivx + ip * 24 - 1],26) || bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],21) || isarp || bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],27) || iscacc)) { -#line 17214 "" +#line 17495 "" goto L111; -#line 17214 "" +#line 17495 "" } /* Here is an accid,grace,clef,flag,rtshft,dot,udsp,arpeg,left-shift. */ @@ -40814,71 +41455,71 @@ L117: /* 130324 */ /* wheadpt1 = wheadpt*fullsize(iv) */ -#line 17224 "" +#line 17505 "" wheadpt1 = comask_1.wheadpt * comfig_1.fullsize[cominsttrans_1.instno[ all_1.iv - 1] - 1]; -#line 17225 "" +#line 17506 "" pts = wheadpt1; /* Set up for possible cautionary accidental here */ -#line 17229 "" +#line 17510 "" if (isaccs || iscacc) { -#line 17230 "" +#line 17511 "" if (! bit_test(all_1.iornq[commvl_1.ivx + ip * 24 - 1],31)) { -#line 17231 "" +#line 17512 "" taccfac = spfacs_1.accfac; -#line 17232 "" +#line 17513 "" } else { -#line 17233 "" +#line 17514 "" taccfac = spfacs_1.accfac * 1.4f; /* cautionary accidental */ -#line 17234 "" +#line 17515 "" } -#line 17235 "" +#line 17516 "" } -#line 17236 "" +#line 17517 "" if (isgrace) { -#line 17237 "" +#line 17518 "" secondgrace = FALSE_; -#line 17238 "" +#line 17519 "" i__1 = comgrace_1.ngrace; -#line 17238 "" +#line 17519 "" for (ig = 1; ig <= i__1; ++ig) { -#line 17239 "" +#line 17520 "" if (! isgaft) { -#line 17240 "" +#line 17521 "" if (comgrace_1.ipg[ig - 1] == ip && comgrace_1.ivg[ig - 1] == commvl_1.ivx) { -#line 17240 "" +#line 17521 "" goto L123; -#line 17240 "" +#line 17521 "" } -#line 17241 "" +#line 17522 "" } else if (ip > 1) { -#line 17242 "" +#line 17523 "" if (comgrace_1.ipg[ig - 1] == ip - 1 && comgrace_1.ivg[ig - 1] == commvl_1.ivx) { -#line 17242 "" +#line 17523 "" goto L123; -#line 17242 "" +#line 17523 "" } -#line 17243 "" +#line 17524 "" } -#line 17244 "" +#line 17525 "" /* L122: */ -#line 17244 "" +#line 17525 "" } -#line 17245 "" - s_wsle(&io___1060); -#line 17245 "" +#line 17526 "" + s_wsle(&io___1074); +#line 17526 "" do_lio(&c__9, &c__1, "Problem finding grace index in makeabar", ( ftnlen)39); -#line 17245 "" +#line 17526 "" e_wsle(); -#line 17246 "" +#line 17527 "" s_stop("", (ftnlen)0); -#line 17247 "" +#line 17528 "" L123: /* wgr = distance to backspace (in headwidths), less main acc. */ @@ -40886,146 +41527,146 @@ L123: /* spgr = total space needed (w/o main acc). */ /* Also, spgr is same for b4 or after, but xb4fac-space will be in diff. place. */ -#line 17254 "" +#line 17535 "" if (comgrace_1.nng[ig - 1] == 1) { -#line 17255 "" +#line 17536 "" wgr = spfacs_1.grafac; -#line 17256 "" +#line 17537 "" if (comgrace_1.multg[ig - 1] == 0) { -#line 17256 "" +#line 17537 "" wgr += -.4f; -#line 17256 "" +#line 17537 "" } -#line 17257 "" +#line 17538 "" } else { -#line 17258 "" +#line 17539 "" wgr = comgrace_1.nng[ig - 1] * spfacs_1.emgfac; -#line 17259 "" +#line 17540 "" i__1 = comgrace_1.nng[ig - 1]; -#line 17259 "" +#line 17540 "" for (ing = 2; ing <= i__1; ++ing) { -#line 17260 "" +#line 17541 "" if (comgrace_1.naccg[comgrace_1.ngstrt[ig - 1] - 1 + ing - 1] > 0) { -#line 17260 "" +#line 17541 "" wgr += spfacs_1.acgfac; -#line 17260 "" +#line 17541 "" } -#line 17261 "" +#line 17542 "" /* L126: */ -#line 17261 "" +#line 17542 "" } -#line 17262 "" +#line 17543 "" } -#line 17263 "" +#line 17544 "" if (comgrace_1.graspace[ig - 1] > 0.f) { /* User-defined space before grace */ -#line 17267 "" +#line 17548 "" wgr += comgrace_1.graspace[ig - 1]; -#line 17268 "" +#line 17549 "" } -#line 17269 "" +#line 17550 "" ptgr[ig - 1] = wgr * wheadpt1; -#line 17270 "" +#line 17551 "" spgr = ptgr[ig - 1] + spfacs_1.xb4fac * wheadpt1; /* !!! May need to mod for chord accid's */ -#line 17274 "" +#line 17555 "" if (isaccs || iscacc) { -#line 17274 "" +#line 17555 "" ptgr[ig - 1] += taccfac * wheadpt1; -#line 17274 "" +#line 17555 "" } -#line 17275 "" +#line 17556 "" if (comgrace_1.naccg[comgrace_1.ngstrt[ig - 1] - 1] > 0) { -#line 17275 "" +#line 17556 "" spgr += wheadpt1 * spfacs_1.agc1fac; -#line 17275 "" +#line 17556 "" } -#line 17276 "" +#line 17557 "" pts += spgr; /* Special check for after-grace on ip-1 and normal on ip. Must go back thru */ /* loop again for the normal grace. */ -#line 17281 "" +#line 17562 "" if (isgaft && ig < comgrace_1.ngrace && ! secondgrace) { -#line 17282 "" +#line 17563 "" if (comgrace_1.ipg[ig] == ip) { -#line 17283 "" +#line 17564 "" secondgrace = TRUE_; -#line 17284 "" +#line 17565 "" ++ig; -#line 17285 "" +#line 17566 "" goto L123; -#line 17286 "" +#line 17567 "" } -#line 17287 "" +#line 17568 "" } -#line 17288 "" +#line 17569 "" } -#line 17289 "" +#line 17570 "" if (iscln) { -#line 17290 "" +#line 17571 "" pts += spfacs_1.clefac * wheadpt1; /* How far to backspace when printing the clef */ -#line 17294 "" +#line 17575 "" ptclef[commvl_1.ivx - 1] = 0.f; /* !!! May need to mod for chord accid's */ -#line 17298 "" +#line 17579 "" if (isaccs || iscacc) { -#line 17298 "" +#line 17579 "" ptclef[commvl_1.ivx - 1] += taccfac * wheadpt1; -#line 17298 "" +#line 17579 "" } -#line 17300 "" +#line 17581 "" if (isgrace) { -#line 17300 "" +#line 17581 "" ptclef[commvl_1.ivx - 1] += spgr; -#line 17300 "" +#line 17581 "" } -#line 17301 "" +#line 17582 "" } -#line 17302 "" +#line 17583 "" if (isrshft) { -#line 17303 "" +#line 17584 "" pts += spfacs_1.rtshfac * wheadpt1; -#line 17304 "" +#line 17585 "" } else if (isflag) { -#line 17305 "" +#line 17586 "" pts += spfacs_1.flagfac * wheadpt1; -#line 17306 "" +#line 17587 "" } else if (isdot) { -#line 17307 "" +#line 17588 "" pts += spfacs_1.dotfac * wheadpt1; -#line 17308 "" +#line 17589 "" } -#line 17309 "" +#line 17590 "" if ((r__1 = all_1.to[in - 1] - itrpt, dabs(r__1)) < comtol_1.tol) { /* Repeat, need a little extra space */ -#line 17313 "" +#line 17594 "" pts += spfacs_1.dotsfac * wheadpt1; -#line 17314 "" +#line 17595 "" } -#line 17315 "" +#line 17596 "" if (isarp) { -#line 17316 "" +#line 17597 "" pts += spfacs_1.arpfac * wheadpt1; -#line 17317 "" +#line 17598 "" } /* Add in padding space */ -#line 17321 "" +#line 17602 "" pts += spfacs_1.xspfac * wheadpt1; /* Now done with all items needing space except accidentals, */ @@ -41034,37 +41675,37 @@ L123: /* Get available space in elemskips (esk) */ -#line 17329 "" +#line 17610 "" isfirst = ip == 1 || (r__1 = all_1.to[in - 1] - itrpt, dabs(r__1)) < comtol_1.tol || (r__2 = all_1.to[in - 1] - itsig, dabs(r__2)) < comtol_1.tol; -#line 17331 "" +#line 17612 "" if (isfirst) { /* At start of bar or after repeat sign or new signature */ -#line 17335 "" +#line 17616 "" if ((r__1 = all_1.to[in - 1] - itsig, dabs(r__1)) < comtol_1.tol) { -#line 17336 "" +#line 17617 "" esk = 0.f; -#line 17337 "" +#line 17618 "" } else { -#line 17338 "" +#line 17619 "" esk = comask_1.fbar; -#line 17339 "" +#line 17620 "" } -#line 17340 "" +#line 17621 "" } else { /* Not 1st note of bar */ -#line 17344 "" +#line 17625 "" esk = all_1.eskz[commvl_1.ivx + ip * 24 - 25] - all_1.eskz[ commvl_1.ivx + (ip - 1) * 24 - 25]; -#line 17345 "" +#line 17626 "" } -#line 17346 "" +#line 17627 "" if (isgrace) { /* Since graces can be very long, cannot assume no interference if prior */ @@ -41074,1059 +41715,1063 @@ L123: /* 10/8/05 Kluge to not zero out esk if in xtup */ -#line 17355 "" +#line 17636 "" esksav = esk; /* Computing MAX */ -#line 17356 "" +#line 17637 "" i__1 = 1, i__7 = ip - 2; -#line 17356 "" +#line 17637 "" if ((ip <= 2 || all_1.nodur[commvl_1.ivx + max(i__1,i__7) * 24 - 25] > 0) && (r__1 = all_1.to[in - 1] - itsig, dabs(r__1)) > comtol_1.tol) { -#line 17356 "" +#line 17637 "" eskb4_(&ip, &commvl_1.ivx, &in, &ib, comnsp_2.space, &tstart[ 1], &comask_1.fbar, &itrpt, &esk); -#line 17356 "" +#line 17637 "" } /* * to(in).ne.itsig) */ -#line 17360 "" +#line 17641 "" if (dabs(esk) < comtol_1.tol) { -#line 17360 "" +#line 17641 "" esk = esksav; -#line 17360 "" +#line 17641 "" } -#line 17361 "" +#line 17642 "" } /* Done getting available elemskips. Remove headwidth if first. Must do here */ /* rather than earlier since check uses isfirst */ -#line 17366 "" +#line 17647 "" if (isfirst) { -#line 17366 "" +#line 17647 "" pts -= wheadpt1; -#line 17366 "" +#line 17647 "" } /* Deal with accidental shifts and left-notehead shifts */ -#line 17370 "" +#line 17651 "" if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],10)) { /* In a chord */ -#line 17374 "" +#line 17655 "" ptsl = 0.f; -#line 17375 "" +#line 17656 "" if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],27)) { -#line 17375 "" +#line 17656 "" ptsl = wheadpt1; -#line 17375 "" +#line 17656 "" } /* Computing MAX */ -#line 17376 "" +#line 17657 "" r__1 = ptsl, r__2 = icashft * .05f * wheadpt1; -#line 17376 "" +#line 17657 "" ptsadd = dmax(r__1,r__2); /* Note: may have icashft=-20000 (if shftmin=-1000 in crdacc) but that's OK */ -#line 17380 "" +#line 17661 "" } else { /* Not in a chord */ -#line 17384 "" +#line 17665 "" ihshft = 0; -#line 17385 "" +#line 17666 "" if (isaccs) { -#line 17386 "" +#line 17667 "" ihshft = igetbits_(&all_1.nacc[commvl_1.ivx + ip * 24 - 25], & c__7, &c__10); /* if (ihshft .ne. 0) ihshft = max(0,64-ihshft) */ -#line 17388 "" +#line 17669 "" if (ihshft != 0) { /* Computing MAX */ -#line 17388 "" +#line 17669 "" i__1 = 0, i__7 = 107 - ihshft; -#line 17388 "" +#line 17669 "" ihshft = max(i__1,i__7); -#line 17388 "" +#line 17669 "" } -#line 17389 "" +#line 17670 "" } /* Check for left-shifted main note */ -#line 17393 "" +#line 17674 "" if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],8)) { -#line 17393 "" +#line 17674 "" ihshft = max(20,ihshft); -#line 17393 "" +#line 17674 "" } -#line 17394 "" +#line 17675 "" ptsadd = ihshft * .05f * wheadpt1; -#line 17395 "" +#line 17676 "" } -#line 17396 "" +#line 17677 "" pts += ptsadd; -#line 17397 "" +#line 17678 "" if (isgrace) { -#line 17397 "" +#line 17678 "" ptgr[ig - 1] += ptsadd; -#line 17397 "" +#line 17678 "" } -#line 17398 "" +#line 17679 "" if (iscln) { -#line 17398 "" +#line 17679 "" ptclef[commvl_1.ivx - 1] += ptsadd; -#line 17398 "" +#line 17679 "" } /* Left-shifted, non-chord note before? */ -#line 17402 "" +#line 17683 "" if (ip > 1) { -#line 17403 "" +#line 17684 "" if (! bit_test(all_1.ipl[commvl_1.ivx + (ip - 1) * 24 - 25],10) && bit_test(all_1.irest[commvl_1.ivx + (ip - 1) * 24 - 25], 27)) { -#line 17403 "" +#line 17684 "" pts -= wheadpt1; -#line 17403 "" +#line 17684 "" } -#line 17405 "" +#line 17686 "" } /* Try big accidentals first */ -#line 17409 "" +#line 17690 "" ptbneed = pts; -#line 17410 "" +#line 17691 "" if (isaccs || iscacc) { -#line 17411 "" +#line 17692 "" ptbneed += wheadpt1 * spfacs_1.bacfac; -#line 17412 "" +#line 17693 "" } -#line 17413 "" - if (comask_1.poenom * esk > ptbneed) { +#line 17694 "" + if (comshort_1.poefa[all_1.iline - 1] * comask_1.poenom * esk > + ptbneed) { /* Set flag for big accidental */ -#line 17417 "" +#line 17698 "" if (isacc) { -#line 17417 "" +#line 17698 "" all_1.nacc[commvl_1.ivx + ip * 24 - 25] = bit_set(all_1.nacc[ commvl_1.ivx + ip * 24 - 25],3); -#line 17417 "" +#line 17698 "" } -#line 17418 "" +#line 17699 "" goto L99; -#line 17419 "" +#line 17700 "" } /* Cannot use big, so try small */ -#line 17423 "" +#line 17704 "" ptsneed = pts; -#line 17424 "" +#line 17705 "" if (isaccs || iscacc) { -#line 17425 "" +#line 17706 "" ptsneed += taccfac * wheadpt1; -#line 17426 "" - } -/* if (poenom*esk .lt. ptsneed) call addask(to(in),ptsneed, */ -/* * esk,fixednew,scaldold,0.,.false.) */ -#line 17429 "" - if (comask_1.poenom * esk < ptsneed) { -#line 17430 "" - addask_(&all_1.to[in - 1], &ptsneed, &esk, &comask_1.fixednew, & - comask_1.scaldold, &c_b1009, &c_false); -#line 17432 "" - } -#line 17433 "" +#line 17707 "" + } +#line 17708 "" + if (comshort_1.poefa[all_1.iline - 1] * comask_1.poenom * esk < + ptsneed) { +#line 17709 "" + r__1 = comshort_1.poefa[all_1.iline - 1] * esk; +#line 17709 "" + r__2 = comshort_1.poefa[all_1.iline - 1] * comask_1.scaldold; +#line 17709 "" + addask_(&all_1.to[in - 1], &ptsneed, &r__1, &comask_1.fixednew, & + r__2, &c_b1008, &c_false); +#line 17711 "" + } +#line 17712 "" L99: -#line 17434 "" +#line 17713 "" if (bit_test(all_1.iornq[commvl_1.ivx + ip * 24 - 1],26)) { /* User-defined space. Warning, "zero" may change value in addask! */ -#line 17438 "" +#line 17717 "" zero = 0.f; -#line 17439 "" +#line 17718 "" addask_(&all_1.to[in - 1], &ptsneed, &zero, &comask_1.fixednew, & comask_1.scaldold, tglp1, &c_true); -#line 17441 "" +#line 17720 "" } /* End of big manual loop over "in" for accidental checking */ -#line 17445 "" +#line 17724 "" goto L111; -#line 17446 "" +#line 17725 "" L112: /* End of ask analysis for this block. */ /* Adjust eskz if there are added spaces. Corrects length of xtup brackets. */ -#line 17452 "" +#line 17731 "" if (comas1_1.naskb > 0) { -#line 17452 "" +#line 17731 "" adjusteskz_(&ib, &istart[1], &comask_1.poenom); -#line 17452 "" +#line 17731 "" } /* Check for internal repeat or sig change. */ -#line 17456 "" +#line 17735 "" if (ib > 1 && all_1.ivxo[istart[ib] - 1] == 1) { -#line 17457 "" +#line 17736 "" iirpt = all_1.islur[all_1.ipo[istart[ib] - 1] * 24 - 24] & 67109216; -#line 17458 "" +#line 17737 "" if (iirpt > 0) { /* Internal repeat */ -#line 17462 "" +#line 17741 "" if (comlast_1.islast) { -#line 17462 "" - s_wsfe(&io___1076); +#line 17741 "" + s_wsfe(&io___1090); /* Writing concatenation */ -#line 17462 "" +#line 17741 "" i__9[0] = 1, a__6[0] = all_1.sq; -#line 17462 "" +#line 17741 "" i__9[1] = 7, a__6[1] = "advance"; -#line 17462 "" +#line 17741 "" i__9[2] = 1, a__6[2] = all_1.sq; -#line 17462 "" +#line 17741 "" i__9[3] = 8, a__6[3] = "barno-1%"; -#line 17462 "" +#line 17741 "" s_cat(ch__7, a__6, i__9, &c__4, (ftnlen)17); -#line 17462 "" +#line 17741 "" do_fio(&c__1, ch__7, (ftnlen)17); -#line 17462 "" +#line 17741 "" e_wsfe(); -#line 17462 "" +#line 17741 "" } -#line 17463 "" +#line 17742 "" if (iirpt == 96) { -#line 17464 "" +#line 17743 "" if (comlast_1.islast) { -#line 17464 "" - s_wsfe(&io___1077); +#line 17743 "" + s_wsfe(&io___1091); /* Writing concatenation */ -#line 17464 "" +#line 17743 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17464 "" +#line 17743 "" i__4[1] = 15, a__2[1] = "leftrightrepeat"; -#line 17464 "" +#line 17743 "" s_cat(ch__8, a__2, i__4, &c__2, (ftnlen)16); -#line 17464 "" +#line 17743 "" do_fio(&c__1, ch__8, (ftnlen)16); -#line 17464 "" +#line 17743 "" e_wsfe(); -#line 17464 "" +#line 17743 "" } -#line 17465 "" +#line 17744 "" comask_1.fixednew += spfacs_1.lrrptfac * comask_1.wheadpt; -#line 17466 "" +#line 17745 "" } else if (bit_test(iirpt,5)) { -#line 17467 "" +#line 17746 "" if (comlast_1.islast) { -#line 17467 "" - s_wsfe(&io___1078); +#line 17746 "" + s_wsfe(&io___1092); /* Writing concatenation */ -#line 17467 "" +#line 17746 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17467 "" +#line 17746 "" i__4[1] = 10, a__2[1] = "leftrepeat"; -#line 17467 "" +#line 17746 "" s_cat(ch__9, a__2, i__4, &c__2, (ftnlen)11); -#line 17467 "" +#line 17746 "" do_fio(&c__1, ch__9, (ftnlen)11); -#line 17467 "" +#line 17746 "" e_wsfe(); -#line 17467 "" +#line 17746 "" } -#line 17468 "" +#line 17747 "" comask_1.fixednew += spfacs_1.rptfac * comask_1.wheadpt; -#line 17469 "" +#line 17748 "" } else if (bit_test(iirpt,6)) { -#line 17470 "" +#line 17749 "" if (comlast_1.islast) { -#line 17470 "" - s_wsfe(&io___1079); +#line 17749 "" + s_wsfe(&io___1093); /* Writing concatenation */ -#line 17470 "" +#line 17749 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17470 "" +#line 17749 "" i__4[1] = 11, a__2[1] = "rightrepeat"; -#line 17470 "" +#line 17749 "" s_cat(ch__5, a__2, i__4, &c__2, (ftnlen)12); -#line 17470 "" +#line 17749 "" do_fio(&c__1, ch__5, (ftnlen)12); -#line 17470 "" +#line 17749 "" e_wsfe(); -#line 17470 "" +#line 17749 "" } -#line 17471 "" +#line 17750 "" comask_1.fixednew += spfacs_1.rptfac * comask_1.wheadpt; -#line 17472 "" +#line 17751 "" } else if (bit_test(iirpt,8)) { -#line 17473 "" +#line 17752 "" if (comlast_1.islast) { -#line 17473 "" - s_wsfe(&io___1080); +#line 17752 "" + s_wsfe(&io___1094); /* Writing concatenation */ -#line 17473 "" +#line 17752 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17473 "" +#line 17752 "" i__4[1] = 9, a__2[1] = "doublebar"; -#line 17473 "" +#line 17752 "" s_cat(ch__10, a__2, i__4, &c__2, (ftnlen)10); -#line 17473 "" +#line 17752 "" do_fio(&c__1, ch__10, (ftnlen)10); -#line 17473 "" +#line 17752 "" e_wsfe(); -#line 17473 "" +#line 17752 "" } -#line 17474 "" +#line 17753 "" } else { -#line 17475 "" - s_wsle(&io___1081); -#line 17475 "" +#line 17754 "" + s_wsle(&io___1095); +#line 17754 "" do_lio(&c__9, &c__1, "Unexpected mid-bar repeat command "\ "R*", (ftnlen)36); -#line 17475 "" +#line 17754 "" e_wsle(); -#line 17476 "" +#line 17755 "" stop1_(); -#line 17477 "" +#line 17756 "" } -#line 17478 "" +#line 17757 "" comask_1.scaldold -= comask_1.fbar; -#line 17479 "" +#line 17758 "" } -#line 17480 "" +#line 17759 "" if (bit_test(all_1.ipl[all_1.ipo[istart[ib] - 1] * 24 - 24],28)) { /* Internal signature change. */ /* Writing concatenation */ -#line 17484 "" +#line 17763 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17484 "" +#line 17763 "" i__4[1] = 17, a__2[1] = "generalsignature{"; -#line 17484 "" +#line 17763 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 17485 "" +#line 17764 "" lnote = 18; -#line 17486 "" +#line 17765 "" if (comtop_1.isig < 0) { /* Writing concatenation */ -#line 17487 "" +#line 17766 "" i__4[0] = lnote, a__2[0] = notexq; -#line 17487 "" +#line 17766 "" i__4[1] = 1, a__2[1] = "-"; -#line 17487 "" +#line 17766 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 17488 "" +#line 17767 "" ++lnote; -#line 17489 "" +#line 17768 "" } -#line 17490 "" +#line 17769 "" if (comlast_1.islast) { -#line 17490 "" - s_wsfe(&io___1082); +#line 17769 "" + s_wsfe(&io___1096); /* Writing concatenation */ -#line 17490 "" +#line 17769 "" i__6[0] = lnote, a__4[0] = notexq; -#line 17490 "" +#line 17769 "" i__1 = abs(comtop_1.isig) + 48; -#line 17490 "" +#line 17769 "" chax_(ch__6, (ftnlen)1, &i__1); -#line 17490 "" +#line 17769 "" i__6[1] = 1, a__4[1] = ch__6; -#line 17490 "" +#line 17769 "" i__6[2] = 2, a__4[2] = "}%"; -#line 17490 "" +#line 17769 "" s_cat(ch__2, a__4, i__6, &c__3, (ftnlen)82); -#line 17490 "" +#line 17769 "" do_fio(&c__1, ch__2, lnote + 3); -#line 17490 "" +#line 17769 "" e_wsfe(); -#line 17490 "" +#line 17769 "" } -#line 17492 "" +#line 17771 "" if (comlast_1.islast && comignorenats_1.ignorenats) { -#line 17492 "" - s_wsfe(&io___1083); +#line 17771 "" + s_wsfe(&io___1097); /* Writing concatenation */ -#line 17492 "" +#line 17771 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17492 "" +#line 17771 "" i__4[1] = 11, a__2[1] = "ignorenats%"; -#line 17492 "" +#line 17771 "" s_cat(ch__5, a__2, i__4, &c__2, (ftnlen)12); -#line 17492 "" +#line 17771 "" do_fio(&c__1, ch__5, (ftnlen)12); -#line 17492 "" +#line 17771 "" e_wsfe(); -#line 17492 "" +#line 17771 "" } -#line 17494 "" +#line 17773 "" if (comlast_1.islast) { -#line 17494 "" - s_wsfe(&io___1084); +#line 17773 "" + s_wsfe(&io___1098); /* Writing concatenation */ -#line 17494 "" +#line 17773 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 17494 "" +#line 17773 "" i__3[1] = 14, a__1[1] = "zchangecontext"; -#line 17494 "" +#line 17773 "" i__3[2] = 1, a__1[2] = all_1.sq; -#line 17494 "" +#line 17773 "" i__3[3] = 12, a__1[3] = "addspace{-.5"; -#line 17494 "" +#line 17773 "" i__3[4] = 1, a__1[4] = all_1.sq; -#line 17494 "" +#line 17773 "" i__3[5] = 15, a__1[5] = "afterruleskip}%"; -#line 17494 "" +#line 17773 "" s_cat(ch__11, a__1, i__3, &c__6, (ftnlen)44); -#line 17494 "" +#line 17773 "" do_fio(&c__1, ch__11, (ftnlen)44); -#line 17494 "" +#line 17773 "" e_wsfe(); -#line 17494 "" +#line 17773 "" } -#line 17496 "" +#line 17775 "" lnote = 0; -#line 17497 "" +#line 17776 "" } -#line 17498 "" +#line 17777 "" } -#line 17499 "" +#line 17778 "" comnsp_2.flgndb = FALSE_; /* Done with start-of-block stuff. Begin main loop over voices. */ -#line 17503 "" +#line 17782 "" i__1 = all_1.nv; -#line 17503 "" +#line 17782 "" for (all_1.iv = 1; all_1.iv <= i__1; ++all_1.iv) { -#line 17504 "" +#line 17783 "" i__7 = commvl_1.nvmx[all_1.iv - 1]; -#line 17504 "" +#line 17783 "" for (kv = 1; kv <= i__7; ++kv) { -#line 17505 "" +#line 17784 "" commvl_1.ivx = commvl_1.ivmx[all_1.iv + kv * 24 - 25]; -#line 17506 "" +#line 17785 "" icm = commidi_1.midchan[all_1.iv + kv * 24 - 25]; /* A rather klugey way to set flag for figure in this voice */ /* Must always check figbass before figchk. */ -#line 17511 "" +#line 17790 "" if (all_1.figbass) { -#line 17512 "" +#line 17791 "" ivf = 0; -#line 17513 "" +#line 17792 "" if (commvl_1.ivx == 1) { -#line 17514 "" +#line 17793 "" ivf = 1; -#line 17515 "" +#line 17794 "" } else if (commvl_1.ivx == comfig_1.ivxfig2) { -#line 17516 "" +#line 17795 "" ivf = 2; -#line 17517 "" +#line 17796 "" } -#line 17518 "" +#line 17797 "" if (ivf > 0) { -#line 17518 "" +#line 17797 "" all_1.figchk[ivf - 1] = comfig_1.nfigs[ivf - 1] > 0; -#line 17518 "" +#line 17797 "" } -#line 17519 "" +#line 17798 "" } -#line 17520 "" +#line 17799 "" if (commvl_1.ivx > 1) { -#line 17521 "" +#line 17800 "" if (commvl_1.ivx <= all_1.nv) { -#line 17522 "" +#line 17801 "" addstr_(all_1.sepsymq + (all_1.iv - 2), &c__1, soutq, &lsout, (ftnlen)1, (ftnlen)80); -#line 17523 "" +#line 17802 "" } else { /* Writing concatenation */ -#line 17524 "" +#line 17803 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17524 "" +#line 17803 "" i__4[1] = 9, a__2[1] = "nextvoice"; -#line 17524 "" +#line 17803 "" s_cat(ch__10, a__2, i__4, &c__2, (ftnlen)10); -#line 17524 "" +#line 17803 "" addstr_(ch__10, &c__10, soutq, &lsout, (ftnlen)10, ( ftnlen)80); -#line 17525 "" +#line 17804 "" } -#line 17526 "" +#line 17805 "" } -#line 17527 "" +#line 17806 "" if (comhead_1.ihdht > 0 && commvl_1.ivx == all_1.nv) { /* Write header. First adjust height if needed to miss barno. */ -#line 17531 "" +#line 17810 "" if (comask_1.bar1syst && all_1.iline != 1) { -#line 17532 "" +#line 17811 "" comhead_1.ihdht = comsln_1.irzbnd + 15 + comsln_1.isnx; -#line 17533 "" +#line 17812 "" } /* Add user-defined vertical shift */ -#line 17537 "" +#line 17816 "" comhead_1.ihdht += comhead_1.ihdvrt; -#line 17538 "" +#line 17817 "" lchead = lenstr_(comhead_1.headrq, &c__80, (ftnlen)80); /* Writing concatenation */ -#line 17539 "" +#line 17818 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17539 "" +#line 17818 "" i__4[1] = 10, a__2[1] = "zcharnote{"; -#line 17539 "" +#line 17818 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 17540 "" - s_wsfi(&io___1088); -#line 17540 "" +#line 17819 "" + s_wsfi(&io___1102); +#line 17819 "" do_fio(&c__1, (char *)&comhead_1.ihdht, (ftnlen)sizeof( integer)); -#line 17540 "" +#line 17819 "" e_wsfi(); /* Writing concatenation */ -#line 17541 "" +#line 17820 "" i__3[0] = 13, a__1[0] = notexq; -#line 17541 "" +#line 17820 "" i__3[1] = 2, a__1[1] = "}{"; -#line 17541 "" +#line 17820 "" i__3[2] = 1, a__1[2] = all_1.sq; -#line 17541 "" +#line 17820 "" i__3[3] = 7, a__1[3] = "bigfont"; -#line 17541 "" +#line 17820 "" i__3[4] = 1, a__1[4] = all_1.sq; -#line 17541 "" +#line 17820 "" i__3[5] = 10, a__1[5] = "kern-30pt "; -#line 17541 "" +#line 17820 "" s_cat(notexq, a__1, i__3, &c__6, (ftnlen)79); -#line 17542 "" +#line 17821 "" addstr_(notexq, &c__34, soutq, &lsout, (ftnlen)79, ( ftnlen)80); /* Writing concatenation */ -#line 17543 "" +#line 17822 "" i__4[0] = lchead, a__2[0] = comhead_1.headrq; -#line 17543 "" +#line 17822 "" i__4[1] = 1, a__2[1] = "}"; -#line 17543 "" +#line 17822 "" s_cat(ch__12, a__2, i__4, &c__2, (ftnlen)81); -#line 17543 "" +#line 17822 "" i__10 = lchead + 1; -#line 17543 "" +#line 17822 "" addstr_(ch__12, &i__10, soutq, &lsout, lchead + 1, ( ftnlen)80); -#line 17544 "" +#line 17823 "" comhead_1.ihdht = 0; -#line 17545 "" +#line 17824 "" } -#line 17546 "" +#line 17825 "" if (comhead_1.lower && commvl_1.ivx == all_1.nv) { -#line 17547 "" +#line 17826 "" lclow = lenstr_(comhead_1.lowerq, &c__80, (ftnlen)80); /* Writing concatenation */ -#line 17548 "" +#line 17827 "" i__11[0] = 1, a__7[0] = all_1.sq; -#line 17548 "" +#line 17827 "" i__11[1] = 14, a__7[1] = "zcharnote{-6}{"; -#line 17548 "" +#line 17827 "" i__11[2] = 1, a__7[2] = all_1.sq; -#line 17548 "" +#line 17827 "" i__11[3] = 5, a__7[3] = "tempo"; -#line 17548 "" +#line 17827 "" i__11[4] = 1, a__7[4] = all_1.sq; -#line 17548 "" +#line 17827 "" i__11[5] = 10, a__7[5] = "kern-10pt "; -#line 17548 "" +#line 17827 "" i__11[6] = lclow, a__7[6] = comhead_1.lowerq; -#line 17548 "" +#line 17827 "" i__11[7] = 1, a__7[7] = "}"; -#line 17548 "" +#line 17827 "" s_cat(ch__13, a__7, i__11, &c__8, (ftnlen)113); -#line 17548 "" +#line 17827 "" i__10 = lclow + 33; -#line 17548 "" +#line 17827 "" addstr_(ch__13, &i__10, soutq, &lsout, lclow + 33, ( ftnlen)80); -#line 17551 "" +#line 17830 "" comhead_1.lower = FALSE_; -#line 17552 "" +#line 17831 "" } -#line 17553 "" +#line 17832 "" tnow = tstart[ib]; -#line 17554 "" +#line 17833 "" nofirst = TRUE_; /* Done setting up voice ivx for start of block ib. Loop over notes in voice. */ -#line 17558 "" +#line 17837 "" i__10 = istop[ib]; -#line 17558 "" +#line 17837 "" for (all_1.jn = istart[ib]; all_1.jn <= i__10; ++all_1.jn) { -#line 17559 "" +#line 17838 "" if (all_1.ivxo[all_1.jn - 1] != commvl_1.ivx) { -#line 17559 "" +#line 17838 "" goto L10; -#line 17559 "" +#line 17838 "" } -#line 17560 "" +#line 17839 "" ip = all_1.ipo[all_1.jn - 1]; /* May have problem with not initializing islhgt, so do it here */ -#line 17564 "" +#line 17843 "" islhgt = 0; -#line 17566 "" +#line 17845 "" if (nofirst) { -#line 17567 "" +#line 17846 "" comoct_1.noctup = 0; -#line 17568 "" +#line 17847 "" if (ncmid_(&all_1.iv, &ip) == 23) { -#line 17568 "" +#line 17847 "" comoct_1.noctup = -2; -#line 17568 "" +#line 17847 "" } -#line 17569 "" +#line 17848 "" nofirst = FALSE_; -#line 17570 "" +#line 17849 "" } /* Check for internal floating figure (before last note of group). */ -#line 17574 "" +#line 17853 "" L12: -#line 17574 "" +#line 17853 "" if (all_1.figbass) { -#line 17575 "" +#line 17854 "" if (commvl_1.ivx == 1 || commvl_1.ivx == comfig_1.ivxfig2) { -#line 17576 "" +#line 17855 "" ivf = 1; -#line 17577 "" +#line 17856 "" if (commvl_1.ivx > 1) { -#line 17577 "" +#line 17856 "" ivf = 2; -#line 17577 "" +#line 17856 "" } -#line 17578 "" +#line 17857 "" if (all_1.figchk[ivf - 1] && (real) comfig_1.itfig[ivf + (ifig[ivf - 1] << 1) - 3] < tnow - comtol_1.tol) { /* Bypassed figure location. Backup, place fig, return. */ -#line 17583 "" +#line 17862 "" offnsk = (tnow - comfig_1.itfig[ivf + (ifig[ ivf - 1] << 1) - 3]) / comnsp_2.space[ ib - 1]; -#line 17584 "" +#line 17863 "" putfig_(&ivf, &ifig[ivf - 1], &offnsk, & all_1.figchk[ivf - 1], soutq, &lsout, (ftnlen)80); -#line 17586 "" +#line 17865 "" goto L12; -#line 17587 "" +#line 17866 "" } -#line 17588 "" +#line 17867 "" } -#line 17589 "" +#line 17868 "" } /* Put in \sk if needed */ -#line 17593 "" +#line 17872 "" if (all_1.to[all_1.jn - 1] > tnow + comtol_1.tol) { /* Writing concatenation */ -#line 17594 "" +#line 17873 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17594 "" +#line 17873 "" i__4[1] = 2, a__2[1] = "sk"; -#line 17594 "" +#line 17873 "" s_cat(ch__14, a__2, i__4, &c__2, (ftnlen)3); -#line 17594 "" +#line 17873 "" addstr_(ch__14, &c__3, soutq, &lsout, (ftnlen)3, ( ftnlen)80); -#line 17595 "" +#line 17874 "" tnow += comnsp_2.space[ib - 1]; -#line 17596 "" +#line 17875 "" goto L12; -#line 17597 "" +#line 17876 "" } /* Check for user-defined shifts */ -#line 17601 "" +#line 17880 "" if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],15) || bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],16)) { -#line 17601 "" +#line 17880 "" putshft_(&commvl_1.ivx, &c_true, soutq, &lsout, ( ftnlen)80); -#line 17601 "" +#line 17880 "" } -#line 17603 "" +#line 17882 "" L21: -#line 17603 "" +#line 17882 "" if (iaskb[commvl_1.ivx - 1] <= comas1_1.naskb && tnow > comas1_1.task[iaskb[commvl_1.ivx - 1] - 1] - comtol_1.tol) { -#line 17605 "" +#line 17884 "" if (comas1_1.task[iaskb[commvl_1.ivx - 1] - 1] > tstart[ib] - comtol_1.tol) { /* Insert placeholder for accidental skip */ /* Writing concatenation */ -#line 17609 "" +#line 17888 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17609 "" +#line 17888 "" i__4[1] = 8, a__2[1] = "ask "; -#line 17609 "" +#line 17888 "" s_cat(ch__15, a__2, i__4, &c__2, (ftnlen)9); -#line 17609 "" +#line 17888 "" addstr_(ch__15, &c__9, soutq, &lsout, (ftnlen)9, ( ftnlen)80); -#line 17610 "" +#line 17889 "" ++comas2_1.nasksys; -#line 17611 "" +#line 17890 "" comas2_1.wasksys[comas2_1.nasksys - 1] = comas1_1.wask[iaskb[commvl_1.ivx - 1] - 1] ; -#line 17612 "" +#line 17891 "" if (comas1_1.wask[iaskb[commvl_1.ivx - 1] - 1] > 0.f) { -#line 17613 "" +#line 17892 "" comas2_1.elasksys[comas2_1.nasksys - 1] = comas1_1.elask[iaskb[commvl_1.ivx - 1] - 1]; -#line 17614 "" +#line 17893 "" } else { /* This is a signal to permit negative ask's. Should really have elask>=0. */ -#line 17618 "" +#line 17897 "" comas2_1.elasksys[comas2_1.nasksys - 1] = -comas1_1.elask[iaskb[commvl_1.ivx - 1] - 1]; -#line 17619 "" +#line 17898 "" } -#line 17620 "" +#line 17899 "" } /* May have skipped some task's in earlier blocks (due to void voice) */ -#line 17624 "" +#line 17903 "" ++iaskb[commvl_1.ivx - 1]; -#line 17625 "" +#line 17904 "" goto L21; -#line 17626 "" +#line 17905 "" } -#line 17627 "" +#line 17906 "" if (all_1.figbass) { -#line 17628 "" +#line 17907 "" if (commvl_1.ivx == 1 || commvl_1.ivx == comfig_1.ivxfig2) { -#line 17629 "" +#line 17908 "" ivf = 1; -#line 17630 "" +#line 17909 "" if (commvl_1.ivx > 1) { -#line 17630 "" +#line 17909 "" ivf = 2; -#line 17630 "" +#line 17909 "" } -#line 17631 "" +#line 17910 "" if (all_1.figchk[ivf - 1] && (r__1 = comfig_1.itfig[ivf + (ifig[ivf - 1] << 1) - 3] - tnow, dabs(r__1)) < comtol_1.tol) { /* Figure on a note. NB: later special check for late figs. */ -#line 17636 "" - putfig_(&ivf, &ifig[ivf - 1], &c_b1009, & +#line 17915 "" + putfig_(&ivf, &ifig[ivf - 1], &c_b1008, & all_1.figchk[ivf - 1], soutq, &lsout, (ftnlen)80); -#line 17637 "" +#line 17916 "" } -#line 17638 "" +#line 17917 "" } -#line 17639 "" +#line 17918 "" } /* Check for new clef here. */ -#line 17643 "" +#line 17922 "" if (isclef && bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],11)) { -#line 17644 "" +#line 17923 "" if (ptclef[all_1.iv - 1] > 0.f) { /* Writing concatenation */ -#line 17645 "" +#line 17924 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17645 "" +#line 17924 "" i__4[1] = 5, a__2[1] = "off{-"; -#line 17645 "" +#line 17924 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 17646 "" +#line 17925 "" if (ptclef[all_1.iv - 1] < 9.95f) { -#line 17647 "" - s_wsfi(&io___1094); -#line 17647 "" +#line 17926 "" + s_wsfi(&io___1108); +#line 17926 "" do_fio(&c__1, (char *)&ptclef[all_1.iv - 1], ( ftnlen)sizeof(real)); -#line 17647 "" +#line 17926 "" e_wsfi(); -#line 17648 "" +#line 17927 "" lnote = 9; -#line 17649 "" +#line 17928 "" } else { -#line 17650 "" - s_wsfi(&io___1095); -#line 17650 "" +#line 17929 "" + s_wsfi(&io___1109); +#line 17929 "" do_fio(&c__1, (char *)&ptclef[all_1.iv - 1], ( ftnlen)sizeof(real)); -#line 17650 "" +#line 17929 "" e_wsfi(); -#line 17651 "" +#line 17930 "" lnote = 10; -#line 17652 "" +#line 17931 "" } /* Writing concatenation */ -#line 17653 "" +#line 17932 "" i__4[0] = lnote, a__2[0] = notexq; -#line 17653 "" +#line 17932 "" i__4[1] = 3, a__2[1] = "pt}"; -#line 17653 "" +#line 17932 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 17654 "" +#line 17933 "" lnote += 3; -#line 17655 "" +#line 17934 "" addstr_(notexq, &lnote, soutq, &lsout, (ftnlen)79, (ftnlen)80); -#line 17656 "" +#line 17935 "" } -#line 17657 "" +#line 17936 "" clefsym_(&all_1.islur[all_1.iv + ip * 24 - 25], notexq, &lnote, &nclef, (ftnlen)79); /* 151220 If clef is treblelowoct, change '0' in pos'n 9 to '8' */ -#line 17661 "" +#line 17940 "" if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],2) ) { /* Writing concatenation */ -#line 17661 "" +#line 17940 "" i__6[0] = 8, a__4[0] = notexq; -#line 17661 "" +#line 17940 "" i__6[1] = 1, a__4[1] = "8"; -#line 17661 "" +#line 17940 "" i__6[2] = 1, a__4[2] = notexq + 9; -#line 17661 "" +#line 17940 "" s_cat(notexq, a__4, i__6, &c__3, (ftnlen)79); -#line 17661 "" +#line 17940 "" } -#line 17663 "" +#line 17942 "" addstr_(notexq, &lnote, soutq, &lsout, (ftnlen)79, ( ftnlen)80); -#line 17664 "" +#line 17943 "" if (ptclef[all_1.iv - 1] > 0.f) { /* Writing concatenation */ -#line 17665 "" +#line 17944 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17665 "" +#line 17944 "" i__4[1] = 4, a__2[1] = "off{"; -#line 17665 "" +#line 17944 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 17666 "" +#line 17945 "" if (ptclef[all_1.iv - 1] < 9.95f) { -#line 17667 "" - s_wsfi(&io___1097); -#line 17667 "" +#line 17946 "" + s_wsfi(&io___1111); +#line 17946 "" do_fio(&c__1, (char *)&ptclef[all_1.iv - 1], ( ftnlen)sizeof(real)); -#line 17667 "" +#line 17946 "" e_wsfi(); -#line 17668 "" +#line 17947 "" lnote = 8; -#line 17669 "" +#line 17948 "" } else { -#line 17670 "" - s_wsfi(&io___1098); -#line 17670 "" +#line 17949 "" + s_wsfi(&io___1112); +#line 17949 "" do_fio(&c__1, (char *)&ptclef[all_1.iv - 1], ( ftnlen)sizeof(real)); -#line 17670 "" +#line 17949 "" e_wsfi(); -#line 17671 "" +#line 17950 "" lnote = 9; -#line 17672 "" +#line 17951 "" } /* Writing concatenation */ -#line 17673 "" +#line 17952 "" i__4[0] = lnote, a__2[0] = notexq; -#line 17673 "" +#line 17952 "" i__4[1] = 3, a__2[1] = "pt}"; -#line 17673 "" +#line 17952 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 17674 "" +#line 17953 "" lnote += 3; -#line 17675 "" +#line 17954 "" addstr_(notexq, &lnote, soutq, &lsout, (ftnlen)79, (ftnlen)80); -#line 17676 "" +#line 17955 "" } -#line 17677 "" +#line 17956 "" } /* Checking for literal TeX string BEFORE starting beams!! */ -#line 17681 "" +#line 17960 "" if (bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],16)) { -#line 17682 "" +#line 17961 "" i__12 = comgrace_1.nlit; -#line 17682 "" +#line 17961 "" for (il = 1; il <= i__12; ++il) { -#line 17683 "" +#line 17962 "" if (comgrace_1.iplit[il - 1] == ip && comgrace_1.ivlit[il - 1] == commvl_1.ivx) { -#line 17683 "" +#line 17962 "" goto L125; -#line 17683 "" +#line 17962 "" } -#line 17684 "" +#line 17963 "" /* L124: */ -#line 17684 "" +#line 17963 "" } -#line 17685 "" - s_wsle(&io___1100); -#line 17685 "" +#line 17964 "" + s_wsle(&io___1114); +#line 17964 "" do_lio(&c__9, &c__1, "Problem finding index for lite"\ "ral string", (ftnlen)40); -#line 17685 "" +#line 17964 "" e_wsle(); -#line 17686 "" +#line 17965 "" stop1_(); -#line 17687 "" +#line 17966 "" L125: /* Write a type 1 tex string. */ -#line 17691 "" +#line 17970 "" if (comgrace_1.lenlit[il - 1] < 71) { /* Add normally */ -#line 17695 "" +#line 17974 "" addstr_(comgrace_1.litq + (il - 1 << 7), & comgrace_1.lenlit[il - 1], soutq, &lsout, (ftnlen)128, (ftnlen)80); -#line 17696 "" +#line 17975 "" } else { /* Longer than 71. Write souq, Write string, start new soutq. */ -#line 17700 "" +#line 17979 "" if (comlast_1.islast) { -#line 17700 "" - s_wsfe(&io___1101); +#line 17979 "" + s_wsfe(&io___1115); /* Writing concatenation */ -#line 17700 "" +#line 17979 "" i__4[0] = lsout, a__2[0] = soutq; -#line 17700 "" +#line 17979 "" i__4[1] = 1, a__2[1] = "%"; -#line 17700 "" +#line 17979 "" s_cat(ch__12, a__2, i__4, &c__2, (ftnlen)81); -#line 17700 "" +#line 17979 "" do_fio(&c__1, ch__12, lsout + 1); -#line 17700 "" +#line 17979 "" e_wsfe(); -#line 17700 "" +#line 17979 "" } -#line 17701 "" +#line 17980 "" if (comlast_1.islast) { -#line 17701 "" - s_wsfe(&io___1102); +#line 17980 "" + s_wsfe(&io___1116); /* Writing concatenation */ -#line 17701 "" +#line 17980 "" i__4[0] = comgrace_1.lenlit[il - 1], a__2[0] = comgrace_1.litq + (il - 1 << 7); -#line 17701 "" +#line 17980 "" i__4[1] = 1, a__2[1] = "%"; -#line 17701 "" +#line 17980 "" s_cat(ch__16, a__2, i__4, &c__2, (ftnlen)129); -#line 17701 "" +#line 17980 "" do_fio(&c__1, ch__16, comgrace_1.lenlit[il - 1] + 1); -#line 17701 "" +#line 17980 "" e_wsfe(); -#line 17701 "" +#line 17980 "" } -#line 17702 "" +#line 17981 "" lsout = 0; -#line 17703 "" +#line 17982 "" } -#line 17704 "" +#line 17983 "" } /* Arpeggio on a main (non-chordal) note? */ -#line 17708 "" +#line 17987 "" if (bit_test(all_1.iornq[commvl_1.ivx + ip * 24 - 1],27)) { /* call putarp(tnow,iv,ip,nolev(ivx,ip),ncmid(iv,ip), */ -#line 17710 "" +#line 17989 "" i__12 = ncmid_(&all_1.iv, &ip); -#line 17710 "" +#line 17989 "" putarp_(&tnow, &commvl_1.ivx, &ip, &all_1.nolev[ commvl_1.ivx + ip * 24 - 25], &i__12, soutq, & lsout, (ftnlen)80); -#line 17712 "" +#line 17991 "" } /* See if a beam starts here */ -#line 17716 "" +#line 17995 "" if (numbms[commvl_1.ivx] > 0 && all_1.ibmcnt[commvl_1.ivx - 1] <= numbms[commvl_1.ivx] && all_1.ibm1[ commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25] == ip || bit_test(all_1.nacc[ commvl_1.ivx + ip * 24 - 25],21)) { -#line 17719 "" +#line 17998 "" if (! bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],24)) { /* Not a jump start */ -#line 17723 "" +#line 18002 "" if (comkbdrests_1.kbdrests && bit_test( all_1.irest[commvl_1.ivx + ip * 24 - 25], 0) && ! bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],29) && commvl_1.nvmx[ all_1.iv - 1] == 2 && all_1.nolev[ commvl_1.ivx + ip * 24 - 25] <= 50) { -#line 17723 "" +#line 18002 "" chkkbdrests_(&ip, &all_1.iv, &commvl_1.ivx, all_1.nn, all_1.islur, all_1.irest, all_1.nolev, commvl_1.ivmx, all_1.nib, @@ -42135,117 +42780,117 @@ L125: comkbdrests_1.levtopr, comkbdrests_1.levbotr, all_1.mult, all_1.ipl); -#line 17723 "" +#line 18002 "" } -#line 17729 "" +#line 18008 "" beamstrt_(notexq, &lnote, nornb, ihornb, comnsp_2.space, &squez[1], &ib, (ftnlen) 79); /* Shift beam start if notehead was shifted */ -#line 17733 "" +#line 18012 "" if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],8)) { /* Writing concatenation */ -#line 17734 "" +#line 18013 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17734 "" +#line 18013 "" i__4[1] = 5, a__2[1] = "loff{"; -#line 17734 "" +#line 18013 "" s_cat(ch__17, a__2, i__4, &c__2, (ftnlen)6); -#line 17734 "" +#line 18013 "" addstr_(ch__17, &c__6, soutq, &lsout, (ftnlen) 6, (ftnlen)80); -#line 17735 "" +#line 18014 "" } else if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],9)) { /* Writing concatenation */ -#line 17736 "" +#line 18015 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 17736 "" +#line 18015 "" i__4[1] = 5, a__2[1] = "roff{"; -#line 17736 "" +#line 18015 "" s_cat(ch__17, a__2, i__4, &c__2, (ftnlen)6); -#line 17736 "" +#line 18015 "" addstr_(ch__17, &c__6, soutq, &lsout, (ftnlen) 6, (ftnlen)80); -#line 17737 "" +#line 18016 "" } -#line 17738 "" +#line 18017 "" if (lnote > 0) { -#line 17738 "" +#line 18017 "" addstr_(notexq, &lnote, soutq, &lsout, ( ftnlen)79, (ftnlen)80); -#line 17738 "" +#line 18017 "" } -#line 17739 "" +#line 18018 "" if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],8) || bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],9)) { -#line 17739 "" +#line 18018 "" addstr_("}", &c__1, soutq, &lsout, (ftnlen)1, (ftnlen)80); -#line 17739 "" +#line 18018 "" } -#line 17741 "" +#line 18020 "" } else { /* Jump start. Set marker for second part of a jump beam. Note ivbj2 was set */ /* to 0 at end of first part of jump beam */ -#line 17746 "" +#line 18025 "" combjmp_1.ivbj2 = commvl_1.ivx; /* Check for xtup since we bypassed beamstrt wherein vxtup is normally set */ -#line 17750 "" +#line 18029 "" if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],28) && strtmid_1.ixrest[commvl_1.ivx - 1] != 2) { -#line 17750 "" +#line 18029 "" comxtup_1.vxtup[commvl_1.ivx - 1] = TRUE_; -#line 17750 "" +#line 18029 "" } /* Since beamstrt is not called, and drawbm is normally set there, need to set */ /* it here. This could cause problems if someone tries a staff-jumping, */ /* unbarred beam, which I'll deal with when it comes up. */ -#line 17757 "" +#line 18036 "" comdraw_1.drawbm[commvl_1.ivx - 1] = TRUE_; -#line 17758 "" +#line 18037 "" } -#line 17759 "" +#line 18038 "" if (strtmid_1.ixrest[commvl_1.ivx - 1] == 0) { -#line 17760 "" +#line 18039 "" all_1.beamon[commvl_1.ivx - 1] = TRUE_; -#line 17761 "" +#line 18040 "" bspend = TRUE_; -#line 17762 "" +#line 18041 "" if (! bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],24)) { -#line 17762 "" +#line 18041 "" bspend = TRUE_; -#line 17762 "" +#line 18041 "" } -#line 17763 "" +#line 18042 "" } -#line 17764 "" +#line 18043 "" } /* Setup for chords and possible slurs in chords */ -#line 17768 "" +#line 18047 "" if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],10)) { /* There is a chord on this note. Just rerun precrd. Klunky, but saves */ /* me from tracking down errors instroduced when I moved 1st call */ /* forward for accidental spacing analysis. */ -#line 17774 "" +#line 18053 "" if (all_1.beamon[commvl_1.ivx - 1]) { -#line 17775 "" +#line 18054 "" precrd_(&commvl_1.ivx, &ip, &all_1.nolev[ commvl_1.ivx + ip * 24 - 25], &all_1.nacc[ commvl_1.ivx + ip * 24 - 25], &all_1.ipl[ @@ -42254,57 +42899,57 @@ L125: all_1.ulq + (commvl_1.ivx + all_1.ibmcnt[ commvl_1.ivx - 1] * 24 - 25), &c_true, & icashft, (ftnlen)1); -#line 17778 "" +#line 18057 "" } else { -#line 17779 "" +#line 18058 "" i__12 = ncmid_(&all_1.iv, &ip); -#line 17779 "" +#line 18058 "" udqq_(ch__6, (ftnlen)1, &all_1.nolev[commvl_1.ivx + ip * 24 - 25], &i__12, &all_1.islur[ commvl_1.ivx + ip * 24 - 25], & commvl_1.nvmx[all_1.iv - 1], & commvl_1.ivx, &all_1.nv); -#line 17779 "" +#line 18058 "" precrd_(&commvl_1.ivx, &ip, &all_1.nolev[ commvl_1.ivx + ip * 24 - 25], &all_1.nacc[ commvl_1.ivx + ip * 24 - 25], &all_1.ipl[ commvl_1.ivx + ip * 24 - 25], & all_1.irest[commvl_1.ivx + ip * 24 - 25], ch__6, &c_true, &icashft, (ftnlen)1); -#line 17783 "" +#line 18062 "" } -#line 17784 "" +#line 18063 "" } /* Is there slur or grace activity? */ -#line 17788 "" +#line 18067 "" isgrace = bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],4); -#line 17789 "" +#line 18068 "" if (ip > 1) { -#line 17789 "" +#line 18068 "" isgrace = isgrace || bit_test(all_1.ipl[commvl_1.ivx + (ip - 1) * 24 - 25],31); -#line 17789 "" +#line 18068 "" } /* isgrace if not 1st note in bar and previous note has Way-after grace. */ -#line 17793 "" +#line 18072 "" if (bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],0) || isgrace) { -#line 17794 "" +#line 18073 "" if (bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25], 0)) { -#line 17795 "" +#line 18074 "" if (comslur_1.fontslur) { /* Call routine for non-postscript slurs */ -#line 17799 "" +#line 18078 "" i__12 = ncmid_(&all_1.iv, &ip); -#line 17799 "" +#line 18078 "" doslur_(&all_1.nolev[commvl_1.ivx + ip * 24 - 25], all_1.isdat1, all_1.isdat2, all_1.isdat3, &all_1.nsdat, &ip, & @@ -42321,14 +42966,14 @@ L125: - 25] - 1], &all_1.nacc[commvl_1.ivx + ip * 24 - 25], (ftnlen)80, (ftnlen) 1); -#line 17804 "" +#line 18083 "" } else { /* Postscript slurs */ -#line 17808 "" +#line 18087 "" i__12 = ncmid_(&all_1.iv, &ip); -#line 17808 "" +#line 18087 "" dopsslur_(&all_1.nolev[commvl_1.ivx + ip * 24 - 25], all_1.isdat1, all_1.isdat2, all_1.isdat3, all_1.isdat4, & @@ -42345,33 +42990,33 @@ L125: commvl_1.ivx + ip * 24 - 25] - 1], & all_1.nacc[commvl_1.ivx + ip * 24 - 25], (ftnlen)80, (ftnlen)1); -#line 17814 "" +#line 18093 "" } -#line 17815 "" +#line 18094 "" } -#line 17816 "" +#line 18095 "" if (isgrace) { /* Grace note. */ -#line 17820 "" +#line 18099 "" iphold = ip; -#line 17821 "" +#line 18100 "" isgrace = FALSE_; -#line 17822 "" +#line 18101 "" if (ip > 1) { -#line 17822 "" +#line 18101 "" isgrace = bit_test(all_1.ipl[commvl_1.ivx + ( ip - 1) * 24 - 25],31); -#line 17822 "" +#line 18101 "" } -#line 17823 "" +#line 18102 "" if (isgrace) { -#line 17823 "" +#line 18102 "" --iphold; -#line 17823 "" +#line 18102 "" } -#line 17824 "" +#line 18103 "" isgrace = isgrace || ! bit_test(all_1.ipl[ commvl_1.ivx + ip * 24 - 25],31) && ! bit_test(all_1.ipl[commvl_1.ivx + ip * 24 @@ -42380,13 +43025,13 @@ L125: /* Place grace now if (a) Way-after from prev note and ip>1 or (b) Pre-grace */ /* on current note. Do A-grace on current note, and W-grace at barend, later. */ -#line 17830 "" +#line 18109 "" if (isgrace) { -#line 17831 "" +#line 18110 "" i__12 = ncmid_(&all_1.iv, &ip); -#line 17831 "" +#line 18110 "" i__13 = ncmid_(&all_1.iv, &ip); -#line 17831 "" +#line 18110 "" dograce_(&commvl_1.ivx, &iphold, ptgr, soutq, &lsout, &i__12, &all_1.nacc[ commvl_1.ivx + ip * 24 - 25], &ig, & @@ -42403,233 +43048,233 @@ L125: all_1.iv - 1], (ftnlen)80, (ftnlen)1); /* 130324 */ /* * tnote(ipl2(ivx,ip)),ulq) */ -#line 17838 "" +#line 18117 "" if (comgrace_1.slurg[ig - 1]) { /* Terminate slur started in dograce. Get direction of main note stem */ -#line 17842 "" +#line 18121 "" if (! all_1.beamon[commvl_1.ivx - 1]) { /* Separate note. Get stem direction. */ -#line 17846 "" +#line 18125 "" i__12 = ncmid_(&all_1.iv, &ip); -#line 17846 "" +#line 18125 "" udqq_(ch__6, (ftnlen)1, &all_1.nolev[ commvl_1.ivx + ip * 24 - 25], &i__12, &all_1.islur[ commvl_1.ivx + ip * 24 - 25], &commvl_1.nvmx[all_1.iv - 1], &commvl_1.ivx, &all_1.nv); -#line 17846 "" +#line 18125 "" stemup = *(unsigned char *)&ch__6[0] == 'u'; -#line 17848 "" +#line 18127 "" } else { /* In a beam */ -#line 17852 "" +#line 18131 "" stemup = *(unsigned char *)&all_1.ulq[ commvl_1.ivx + all_1.ibmcnt[ commvl_1.ivx - 1] * 24 - 25] == 'u'; -#line 17853 "" +#line 18132 "" } /* Stop the shift if whole note */ -#line 17857 "" +#line 18136 "" stemup = stemup || all_1.tnote[ comipl2_1.ipl2[commvl_1.ivx + ip * 24 - 25] - 1] > 63.f; -#line 17859 "" +#line 18138 "" L__1 = ! comgrace_1.upg[ig - 1]; -#line 17859 "" +#line 18138 "" i__12 = ncmid_(&all_1.iv, &ip); -#line 17859 "" +#line 18138 "" endslur_(&stemup, &L__1, &all_1.nolev[ commvl_1.ivx + ip * 24 - 25], & c__0, &comslur_1.ndxslur, &c__0, & i__12, soutq, &lsout, & comslur_1.fontslur, (ftnlen)80); -#line 17861 "" +#line 18140 "" } -#line 17862 "" +#line 18141 "" } -#line 17863 "" +#line 18142 "" } -#line 17864 "" +#line 18143 "" if (bit_test(all_1.iornq[commvl_1.ivx + ip * 24 - 1], 24)) { /* Start slur on main note for After- or Way-after-grace. */ /* ???? ndxslur = log2(33554431-listslur) */ -#line 17869 "" +#line 18148 "" i__12 = 16777215 - comslur_1.listslur; -#line 17869 "" +#line 18148 "" comslur_1.ndxslur = log2_(&i__12); /* Get note name */ -#line 17873 "" +#line 18152 "" i__12 = ncmid_(&all_1.iv, &ip); -#line 17873 "" +#line 18152 "" notefq_(noteq, &lnoten, &all_1.nolev[commvl_1.ivx + ip * 24 - 25], &i__12, (ftnlen)8); /* Get slur direction */ -#line 17877 "" +#line 18156 "" *(unsigned char *)slurudq = 'u'; -#line 17878 "" +#line 18157 "" if (! all_1.beamon[commvl_1.ivx - 1]) { -#line 17879 "" +#line 18158 "" i__12 = ncmid_(&all_1.iv, &ip); -#line 17879 "" +#line 18158 "" udqq_(ch__6, (ftnlen)1, &all_1.nolev[ commvl_1.ivx + ip * 24 - 25], &i__12, &all_1.islur[commvl_1.ivx + ip * 24 - 25], &commvl_1.nvmx[all_1.iv - 1], & commvl_1.ivx, &all_1.nv); -#line 17879 "" +#line 18158 "" if (*(unsigned char *)&ch__6[0] == 'u') { -#line 17879 "" +#line 18158 "" *(unsigned char *)slurudq = 'd'; -#line 17879 "" +#line 18158 "" } -#line 17881 "" +#line 18160 "" } else { -#line 17882 "" +#line 18161 "" if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25] == 'u') { -#line 17882 "" +#line 18161 "" *(unsigned char *)slurudq = 'd'; -#line 17882 "" +#line 18161 "" } -#line 17883 "" +#line 18162 "" } /* c Replace ndxslur by 11-ndxslur when printing only. */ /* Replace ndxslur by 23-ndxslur when printing only. */ /* if (11-ndxslur .lt. 10) then */ -#line 17889 "" +#line 18168 "" if (23 - comslur_1.ndxslur < 10) { /* notexq = sq//'islur'//slurudq//chax(59-ndxslur) */ /* Writing concatenation */ -#line 17891 "" +#line 18170 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 17891 "" +#line 18170 "" i__5[1] = 5, a__3[1] = "islur"; -#line 17891 "" +#line 18170 "" i__5[2] = 1, a__3[2] = slurudq; -#line 17891 "" +#line 18170 "" i__12 = 71 - comslur_1.ndxslur; -#line 17891 "" +#line 18170 "" chax_(ch__6, (ftnlen)1, &i__12); -#line 17891 "" +#line 18170 "" i__5[3] = 1, a__3[3] = ch__6; -#line 17891 "" +#line 18170 "" i__5[4] = lnoten, a__3[4] = noteq; -#line 17891 "" +#line 18170 "" s_cat(notexq, a__3, i__5, &c__5, (ftnlen)79); -#line 17893 "" +#line 18172 "" i__12 = lnoten + 8; -#line 17893 "" +#line 18172 "" addstr_(notexq, &i__12, soutq, &lsout, ( ftnlen)79, (ftnlen)80); -#line 17894 "" +#line 18173 "" } else if (23 - comslur_1.ndxslur < 20) { /* Writing concatenation */ -#line 17895 "" +#line 18174 "" i__14[0] = 1, a__8[0] = all_1.sq; -#line 17895 "" +#line 18174 "" i__14[1] = 5, a__8[1] = "islur"; -#line 17895 "" +#line 18174 "" i__14[2] = 1, a__8[2] = slurudq; -#line 17895 "" +#line 18174 "" i__14[3] = 2, a__8[3] = "{1"; -#line 17895 "" +#line 18174 "" i__12 = 61 - comslur_1.ndxslur; -#line 17895 "" +#line 18174 "" chax_(ch__6, (ftnlen)1, &i__12); -#line 17895 "" +#line 18174 "" i__14[4] = 1, a__8[4] = ch__6; -#line 17895 "" +#line 18174 "" i__14[5] = 1, a__8[5] = "}"; -#line 17895 "" +#line 18174 "" i__14[6] = lnoten, a__8[6] = noteq; -#line 17895 "" +#line 18174 "" s_cat(notexq, a__8, i__14, &c__7, (ftnlen)79); -#line 17897 "" +#line 18176 "" i__12 = lnoten + 11; -#line 17897 "" +#line 18176 "" addstr_(notexq, &i__12, soutq, &lsout, ( ftnlen)79, (ftnlen)80); -#line 17898 "" +#line 18177 "" } else { /* Writing concatenation */ -#line 17899 "" +#line 18178 "" i__14[0] = 1, a__8[0] = all_1.sq; -#line 17899 "" +#line 18178 "" i__14[1] = 5, a__8[1] = "islur"; -#line 17899 "" +#line 18178 "" i__14[2] = 1, a__8[2] = slurudq; -#line 17899 "" +#line 18178 "" i__14[3] = 2, a__8[3] = "{2"; -#line 17899 "" +#line 18178 "" i__12 = 51 - comslur_1.ndxslur; -#line 17899 "" +#line 18178 "" chax_(ch__6, (ftnlen)1, &i__12); -#line 17899 "" +#line 18178 "" i__14[4] = 1, a__8[4] = ch__6; -#line 17899 "" +#line 18178 "" i__14[5] = 1, a__8[5] = "}"; -#line 17899 "" +#line 18178 "" i__14[6] = lnoten, a__8[6] = noteq; -#line 17899 "" +#line 18178 "" s_cat(notexq, a__8, i__14, &c__7, (ftnlen)79); -#line 17901 "" +#line 18180 "" i__12 = lnoten + 11; -#line 17901 "" +#line 18180 "" addstr_(notexq, &i__12, soutq, &lsout, ( ftnlen)79, (ftnlen)80); -#line 17902 "" +#line 18181 "" } /* call setbits(ipl(ivx,ip),4,23,ndxslur) */ -#line 17904 "" +#line 18183 "" setbits_(&all_1.ipl[commvl_1.ivx + ip * 24 - 25], &c__5, &c__23, &comslur_1.ndxslur); -#line 17905 "" +#line 18184 "" if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],31)) { -#line 17905 "" +#line 18184 "" comslur_1.listslur = bit_set( comslur_1.listslur,comslur_1.ndxslur); -#line 17905 "" +#line 18184 "" } /* Starting slur on W-grace on THIS note. Record ndxslur. */ -#line 17910 "" +#line 18189 "" } -#line 17911 "" +#line 18190 "" } /* Process dynamic marks */ -#line 17915 "" +#line 18194 "" if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],26)) { -#line 17916 "" +#line 18195 "" i__12 = ncmid_(&all_1.iv, &ip); -#line 17916 "" +#line 18195 "" L__1 = all_1.nodur[commvl_1.ivx + ip * 24 - 25] >= 64; -#line 17916 "" +#line 18195 "" dodyn_(&commvl_1.ivx, &ip, &all_1.nolev[commvl_1.ivx + ip * 24 - 25], &i__12, &all_1.ipl[ commvl_1.ivx + ip * 24 - 25], &all_1.islur[ @@ -42639,75 +43284,64 @@ L125: commvl_1.ivx - 1], ihornb, nornb, all_1.ulq, & all_1.ibmcnt[commvl_1.ivx - 1], &L__1, soutq, &lsout, (ftnlen)1, (ftnlen)80); -#line 17920 "" +#line 18199 "" } /* Check for chord notes. Moved up from below, 10/27/96 so chord orns done 1st. */ -#line 17924 "" +#line 18203 "" if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],10)) { /* Need a duration to set type of note head */ -/* if (.not. vxtup(ivx)) then */ - /* Clumsy test, but vxtup is not set until main note is processed. */ -#line 17932 "" +#line 18209 "" if (! (comxtup_1.vxtup[commvl_1.ivx - 1] || bit_test( all_1.irest[commvl_1.ivx + ip * 24 - 25],28))) { -#line 17933 "" +#line 18210 "" nodu = all_1.nodur[commvl_1.ivx + ip * 24 - 25]; -/* c else if (iand(mult(ivx,ip),15)-8 .lt. 0) then */ -/* else if (iand(mult(ivx,ip),15)-8 .lt. 0 .or. */ -/* * (btest(irest(ivx,ip),2).and.nodur(ivx,ip+1).eq.32) .or. */ -/* * (ip.gt.1.and.btest(irest(ivx,ip-1),2) */ -/* * .and.nodur(ivx,ip).eq.32)) then */ -/* nodu = 32 */ -/* else */ -/* nodu = 16 */ -/* end if */ -#line 17943 "" +#line 18211 "" } else if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],2) || ip > 1 && bit_test(all_1.irest[ commvl_1.ivx + (ip - 1) * 24 - 25],2)) { /* In a 2-note tremolo */ -#line 17948 "" +#line 18216 "" if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],2)) { /* First note of tremolo, duration is on next note */ -#line 17952 "" +#line 18220 "" nodu = all_1.nodur[commvl_1.ivx + (ip + 1) * 24 - 25]; -#line 17953 "" +#line 18221 "" } else { -#line 17954 "" +#line 18222 "" nodu = all_1.nodur[commvl_1.ivx + ip * 24 - 25]; -#line 17955 "" +#line 18223 "" } -#line 17956 "" +#line 18224 "" } else if ((all_1.mult[commvl_1.ivx + ip * 24 - 25] & 15) - 8 < 0) { -#line 17957 "" +#line 18225 "" nodu = 32; -#line 17958 "" +#line 18226 "" } else { -#line 17959 "" +#line 18227 "" nodu = 16; -#line 17960 "" +#line 18228 "" } -#line 17961 "" +#line 18229 "" i__12 = ncmid_(&all_1.iv, &ip); -#line 17961 "" +#line 18229 "" L__1 = bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],27); -#line 17961 "" +#line 18229 "" docrd_(&commvl_1.ivx, &ip, &nodu, &i__12, &all_1.iv, & tnow, soutq, &lsout, all_1.ulq, &all_1.ibmcnt[ commvl_1.ivx - 1], &all_1.islur[commvl_1.ivx @@ -42717,44 +43351,42 @@ L125: ihornb, nornb, &all_1.stemlen, &L__1, & all_1.nacc[commvl_1.ivx + ip * 24 - 25], all_1.irest, (ftnlen)80, (ftnlen)1); -#line 17966 "" +#line 18234 "" } /* Now that chords are done, add stuff to midi file */ -#line 17970 "" +#line 18238 "" if (commidi_1.ismidi) { -#line 17970 "" +#line 18238 "" i__12 = all_1.nolev[commvl_1.ivx + ip * 24 - 25] + commvel_1.miditran[cominsttrans_1.instno[ all_1.iv - 1] - 1]; -#line 17970 "" +#line 18238 "" i__13 = all_1.nacc[commvl_1.ivx + ip * 24 - 25] & 7; -#line 17970 "" +#line 18238 "" L__1 = bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],0); -#line 17970 "" +#line 18238 "" addmidi_(&icm, &i__12, &i__13, &commidisig_1.midisig, &all_1.tnote[comipl2_1.ipl2[commvl_1.ivx + ip * 24 - 25] - 1], &L__1, &c_false); -#line 17970 "" +#line 18238 "" } /* 130316 */ -/* * nolev(ivx,ip)-iTransAmt(instno(iv)), */ -/* * iand(nacc(ivx,ip),7),midisig(instno(iv)), */ /* Check for breath or caesura */ -#line 17981 "" +#line 18247 "" if (bit_test(all_1.iornq[commvl_1.ivx + ip * 24 - 1],28)) { -#line 17982 "" +#line 18248 "" putcb_(&commvl_1.ivx, &ip, notexq, &lnote, (ftnlen)79) ; -#line 17983 "" +#line 18249 "" addstr_(notexq, &lnote, soutq, &lsout, (ftnlen)79, ( ftnlen)80); -#line 17984 "" +#line 18250 "" } /* Check for main-note ornaments. ')' on dotted notes go in with note, not here. */ @@ -42763,73 +43395,73 @@ L125: /* isacc = iand(iornq(ivx,ip),4194287) .gt. 0 */ /* isacc = iand(iornq(ivx,ip),541065199) .gt. 0 */ -#line 17992 "" +#line 18258 "" isacc = (all_1.iornq[commvl_1.ivx + ip * 24 - 1] & 1614807023) > 0; /* isacc=.true. if any ornament except segno */ -#line 17996 "" +#line 18262 "" if (bit_test(all_1.iornq[commvl_1.ivx + ip * 24 - 1],13) && all_1.nodur[commvl_1.ivx + ip * 24 - 25] > 0) { /* If ). is only ornament, bypass. If with others, temporarirly zero the bit. */ -#line 18000 "" +#line 18266 "" i__12 = log2_(&all_1.nodur[commvl_1.ivx + ip * 24 - 25]); -#line 18000 "" +#line 18266 "" if (pow_ii(&c__2, &i__12) != all_1.nodur[commvl_1.ivx + ip * 24 - 25]) { -#line 18001 "" +#line 18267 "" if ((all_1.iornq[commvl_1.ivx + ip * 24 - 1] & 516079) == 0) { /* ). is the only non-segno ornament */ -#line 18005 "" +#line 18271 "" isacc = FALSE_; -#line 18006 "" +#line 18272 "" } else { /* There are other ornaments in addition */ -#line 18010 "" +#line 18276 "" rpndot = TRUE_; -#line 18011 "" +#line 18277 "" all_1.iornq[commvl_1.ivx + ip * 24 - 1] = bit_clear(all_1.iornq[commvl_1.ivx + ip * 24 - 1],13); -#line 18012 "" +#line 18278 "" } -#line 18013 "" +#line 18279 "" } -#line 18014 "" +#line 18280 "" } -#line 18015 "" +#line 18281 "" if (isacc && ! comcwrf_1.cwrferm[commvl_1.ivx - 1]) { /* Check for centered whole-bar rest with fermata (bits 10 or 14). */ -#line 18019 "" +#line 18285 "" if ((all_1.iornq[commvl_1.ivx + ip * 24 - 1] & 17408) > 0 && bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],0) && all_1.nodur[commvl_1.ivx + ip * 24 - 25] == all_1.lenbar && ! ( all_1.firstgulp && all_1.ibar == 1 && all_1.lenb0 > 0)) { -#line 18023 "" +#line 18289 "" comcwrf_1.cwrferm[commvl_1.ivx - 1] = TRUE_; -#line 18024 "" +#line 18290 "" goto L30; -#line 18025 "" +#line 18291 "" } -#line 18026 "" +#line 18292 "" i__12 = ncmid_(&all_1.iv, &ip); -#line 18026 "" +#line 18292 "" L__1 = bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25] ,10); -#line 18026 "" +#line 18292 "" putorn_(&all_1.iornq[commvl_1.ivx + ip * 24 - 1], & all_1.nolev[commvl_1.ivx + ip * 24 - 25], & all_1.nolev[commvl_1.ivx + ip * 24 - 25], & @@ -42841,66 +43473,66 @@ L125: all_1.stemlen, notexq, &lnote, &ip, &islhgt, & all_1.beamon[commvl_1.ivx - 1], &L__1, ( ftnlen)1, (ftnlen)79); -#line 18031 "" +#line 18297 "" addstr_(notexq, &lnote, soutq, &lsout, (ftnlen)79, ( ftnlen)80); -#line 18032 "" +#line 18298 "" } -#line 18033 "" +#line 18299 "" if (rpndot) { -#line 18034 "" +#line 18300 "" all_1.iornq[commvl_1.ivx + ip * 24 - 1] = bit_set( all_1.iornq[commvl_1.ivx + ip * 24 - 1],13); -#line 18035 "" +#line 18301 "" rpndot = FALSE_; -#line 18036 "" +#line 18302 "" } -#line 18037 "" +#line 18303 "" L30: /* Check for main note accidental */ -#line 18041 "" +#line 18307 "" if ((all_1.nacc[commvl_1.ivx + ip * 24 - 25] & 3) > 0 && ! bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25], 17)) { -#line 18043 "" +#line 18309 "" ihshft = igetbits_(&all_1.nacc[commvl_1.ivx + ip * 24 - 25], &c__7, &c__10); -#line 18044 "" +#line 18310 "" if (ihshft != 0) { -#line 18044 "" +#line 18310 "" ihshft += -107; -#line 18044 "" +#line 18310 "" } -#line 18045 "" +#line 18311 "" if (! bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25], 10) && bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],8)) { -#line 18045 "" +#line 18311 "" ihshft += -20; -#line 18045 "" +#line 18311 "" } /* Not a chord, and left-shifted main note, so left-shift accid */ -#line 18050 "" +#line 18316 "" i__12 = igetbits_(&all_1.nacc[commvl_1.ivx + ip * 24 - 25], &c__6, &c__4); -#line 18050 "" +#line 18316 "" i__13 = ncmid_(&all_1.iv, &ip); -#line 18050 "" +#line 18316 "" L__1 = bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],31); -#line 18050 "" +#line 18316 "" doacc_(&ihshft, &i__12, notexq, &lnote, &all_1.nacc[ commvl_1.ivx + ip * 24 - 25], &all_1.nolev[ commvl_1.ivx + ip * 24 - 25], &i__13, &L__1, ( ftnlen)79); -#line 18053 "" +#line 18319 "" addstr_(notexq, &lnote, soutq, &lsout, (ftnlen)79, ( ftnlen)80); -#line 18054 "" +#line 18320 "" } /* Lower dot for lower-voice notes. Conditions are: */ @@ -42911,158 +43543,168 @@ L30: /* . 5. Flag (lowdot) is set to true */ /* 6. Not in an xtuplet */ -#line 18064 "" +#line 18330 "" if (comarp_1.lowdot && commvl_1.nvmx[all_1.iv - 1] == 2 && commvl_1.ivx <= all_1.nv && all_1.nodur[ commvl_1.ivx + ip * 24 - 25] != 0) { -#line 18066 "" +#line 18332 "" i__12 = log2_(&all_1.nodur[commvl_1.ivx + ip * 24 - 25]); -#line 18066 "" +#line 18332 "" if (! bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],0) && pow_ii(&c__2, &i__12) != all_1.nodur[commvl_1.ivx + ip * 24 - 25] && ( all_1.nolev[commvl_1.ivx + ip * 24 - 25] - ncmid_(&commvl_1.ivx, &ip)) % 2 == 0) { -#line 18069 "" +#line 18335 "" if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],19)) { /* Note already in movdot list. Drop by 2. */ -#line 18073 "" +#line 18339 "" comcc_1.updot[commvl_1.ivx + (comcc_1.ndotmv[ commvl_1.ivx - 1] + 1) * 24 - 25] += -2.f; -#line 18075 "" +#line 18341 "" } else { /* Not in list so just move it right now */ -#line 18079 "" +#line 18345 "" i__12 = igetbits_(&all_1.islur[commvl_1.ivx + ip * 24 - 25], &c__1, &c__3); -#line 18079 "" - dotmov_(&c_b1008, &c_b1009, soutq, &lsout, & +#line 18345 "" + dotmov_(&c_b1007, &c_b1008, soutq, &lsout, & i__12, (ftnlen)80); -#line 18081 "" +#line 18347 "" } -#line 18082 "" +#line 18348 "" } -#line 18083 "" +#line 18349 "" } /* Check for dotted main notes with moved dots. Chord notes done elsewhere. */ /* Added check rules out special chordal 2nds, but later must check */ /* substituted chord note for dot shift that now applies to main note. */ -#line 18089 "" +#line 18355 "" if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],19)) { -#line 18090 "" +#line 18356 "" ++comcc_1.ndotmv[commvl_1.ivx - 1]; -#line 18091 "" +#line 18357 "" i__12 = igetbits_(&all_1.islur[commvl_1.ivx + ip * 24 - 25], &c__1, &c__3); -#line 18091 "" +#line 18357 "" dotmov_(&comcc_1.updot[commvl_1.ivx + comcc_1.ndotmv[ commvl_1.ivx - 1] * 24 - 25], &comcc_1.rtdot[ commvl_1.ivx + comcc_1.ndotmv[commvl_1.ivx - 1] * 24 - 25], soutq, &lsout, &i__12, (ftnlen) 80); -#line 18093 "" +#line 18359 "" } /* Stemlength changes */ -#line 18097 "" +#line 18363 "" if (bit_test(all_1.mult[commvl_1.ivx + ip * 24 - 25],27)) { -#line 18098 "" +#line 18364 "" dstemlen = igetbits_(&all_1.mult[commvl_1.ivx + ip * 24 - 25], &c__6, &c__10) * .5f - 4.f; -#line 18099 "" +/* Writing concatenation */ +#line 18365 "" + i__4[0] = 1, a__2[0] = all_1.sq; +#line 18365 "" + i__4[1] = 12, a__2[1] = "stdstemfalse"; +#line 18365 "" + s_cat(ch__18, a__2, i__4, &c__2, (ftnlen)13); +#line 18365 "" + addstr_(ch__18, &c__13, soutq, &lsout, (ftnlen)13, ( + ftnlen)80); +#line 18366 "" stemshort = dstemlen * .667f + 4.66f; /* Writing concatenation */ -#line 18100 "" +#line 18367 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 18100 "" +#line 18367 "" i__4[1] = 11, a__2[1] = "stemlength{"; -#line 18100 "" +#line 18367 "" s_cat(ch__5, a__2, i__4, &c__2, (ftnlen)12); -#line 18100 "" +#line 18367 "" addstr_(ch__5, &c__12, soutq, &lsout, (ftnlen)12, ( ftnlen)80); -#line 18101 "" - s_wsfi(&io___1110); -#line 18101 "" +#line 18368 "" + s_wsfi(&io___1124); +#line 18368 "" do_fio(&c__1, (char *)&stemshort, (ftnlen)sizeof(real) ); -#line 18101 "" +#line 18368 "" e_wsfi(); /* Writing concatenation */ -#line 18102 "" +#line 18369 "" i__4[0] = 4, a__2[0] = notexq; -#line 18102 "" +#line 18369 "" i__4[1] = 1, a__2[1] = "}"; -#line 18102 "" - s_cat(ch__18, a__2, i__4, &c__2, (ftnlen)5); -#line 18102 "" - addstr_(ch__18, &c__5, soutq, &lsout, (ftnlen)5, ( +#line 18369 "" + s_cat(ch__19, a__2, i__4, &c__2, (ftnlen)5); +#line 18369 "" + addstr_(ch__19, &c__5, soutq, &lsout, (ftnlen)5, ( ftnlen)80); -#line 18103 "" +#line 18370 "" } else if (ip > 1) { -#line 18104 "" +#line 18371 "" if (bit_test(all_1.mult[commvl_1.ivx + (ip - 1) * 24 - 25],27)) { /* Writing concatenation */ -#line 18104 "" +#line 18371 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 18104 "" +#line 18371 "" i__4[1] = 16, a__2[1] = "stemlength{4.66}"; -#line 18104 "" +#line 18371 "" s_cat(ch__7, a__2, i__4, &c__2, (ftnlen)17); -#line 18104 "" +#line 18371 "" addstr_(ch__7, &c__17, soutq, &lsout, (ftnlen)17, (ftnlen)80); -#line 18104 "" +#line 18371 "" } /* Cancel shortening. Looks like it gets automatically restored if new inst. or */ /* new line, so no need to worry about affecting other lines */ -#line 18110 "" +#line 18377 "" } /* Zero out slur-height marker for raising ornaments */ -#line 18114 "" +#line 18381 "" islhgt = 0; /* Now start with spacing notes. Is a beam start pending? */ -#line 18118 "" +#line 18385 "" if (bspend && all_1.ibm2[commvl_1.ivx + all_1.ibmcnt[ commvl_1.ivx - 1] * 24 - 25] > all_1.ibm1[ commvl_1.ivx + all_1.ibmcnt[commvl_1.ivx - 1] * 24 - 25]) { -#line 18120 "" +#line 18387 "" if (strtmid_1.ixrest[commvl_1.ivx - 1] == 4) { /* Special path for single note at end of otherwise beamed xtup */ -#line 18124 "" +#line 18391 "" strtmid_1.ixrest[commvl_1.ivx - 1] = 0; -#line 18125 "" +#line 18392 "" } else { -#line 18126 "" +#line 18393 "" if (comkbdrests_1.kbdrests && bit_test( all_1.irest[commvl_1.ivx + ip * 24 - 25], 0) && ! bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],29) && commvl_1.nvmx[ all_1.iv - 1] == 2 && all_1.nolev[ commvl_1.ivx + ip * 24 - 25] <= 50) { -#line 18126 "" +#line 18393 "" chkkbdrests_(&ip, &all_1.iv, &commvl_1.ivx, all_1.nn, all_1.islur, all_1.irest, all_1.nolev, commvl_1.ivmx, all_1.nib, @@ -43071,84 +43713,296 @@ L30: comkbdrests_1.levtopr, comkbdrests_1.levbotr, all_1.mult, all_1.ipl); -#line 18126 "" +#line 18393 "" } -#line 18132 "" +#line 18399 "" if (bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],29) && bit_test(all_1.irest[ commvl_1.ivx + ip * 24 - 25],24)) { /* Writing concatenation */ -#line 18134 "" +#line 18401 "" chax_(ch__6, (ftnlen)1, &c__92); -#line 18134 "" +#line 18401 "" i__4[0] = 1, a__2[0] = ch__6; -#line 18134 "" +#line 18401 "" i__4[1] = 2, a__2[1] = "sk"; -#line 18134 "" +#line 18401 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 18135 "" +#line 18402 "" lnote = 3; -#line 18136 "" +#line 18403 "" } else { -#line 18137 "" +#line 18404 "" beamn1_(notexq, &lnote, (ftnlen)79); -#line 18138 "" +/* if (isbjmp .and. */ +#line 18406 "" + if (combjmp_1.isbjmp && combjmp_1.ivbj2 != 0 + && (all_1.mult[commvl_1.ivx + ip * 24 + - 25] & 15) - 8 > combjmp_1.multbj1) { + +/* Need to increase multiplicity at the beam jump */ + +/* ibmcnt was increased by 1 at the end of first seg of jump beam!? */ +/* Try adding e.g. \nbbu1 if needed to increase multiplicity. Add */ +/* character in reverse order to start of notexq. */ + +#line 18415 "" + if (combjmp_1.ivbj1 < 9) { +/* Writing concatenation */ +#line 18416 "" + *(unsigned char *)&ch__6[0] = + combjmp_1.ivbj1 + 48; +#line 18416 "" + i__4[0] = 1, a__2[0] = ch__6; +#line 18416 "" + i__4[1] = lnote, a__2[1] = notexq; +#line 18416 "" + s_cat(notexq, a__2, i__4, &c__2, ( + ftnlen)79); +#line 18417 "" + ++lnote; +#line 18418 "" + } else { +/* Writing concatenation */ +#line 18419 "" + i__9[0] = 2, a__6[0] = "{1"; +#line 18419 "" + *(unsigned char *)&ch__6[0] = + combjmp_1.ivbj1 + 38; +#line 18419 "" + i__9[1] = 1, a__6[1] = ch__6; +#line 18419 "" + i__9[2] = 1, a__6[2] = "}"; +#line 18419 "" + i__9[3] = lnote, a__6[3] = notexq; +#line 18419 "" + s_cat(notexq, a__6, i__9, &c__4, ( + ftnlen)79); +#line 18421 "" + lnote += 4; +#line 18422 "" + } +/* Writing concatenation */ +#line 18423 "" + i__6[0] = 2, a__4[0] = "bb"; +#line 18423 "" + i__6[1] = 1, a__4[1] = all_1.ulq + ( + combjmp_1.ivbj1 + (all_1.ibmcnt[ + combjmp_1.ivbj1 - 1] - 1) * 24 - + 25); +#line 18423 "" + i__6[2] = lnote, a__4[2] = notexq; +#line 18423 "" + s_cat(notexq, a__4, i__6, &c__3, (ftnlen) + 79); +#line 18425 "" + lnote += 3; +#line 18426 "" + if ((15 & all_1.mult[commvl_1.ivx + ip * + 24 - 25]) - 8 == 3) { +/* Writing concatenation */ +#line 18427 "" + i__4[0] = 1, a__2[0] = "b"; +#line 18427 "" + i__4[1] = lnote, a__2[1] = notexq; +#line 18427 "" + s_cat(notexq, a__2, i__4, &c__2, ( + ftnlen)79); +#line 18428 "" + ++lnote; +#line 18429 "" + } +/* Writing concatenation */ +#line 18430 "" + i__6[0] = 1, a__4[0] = all_1.sq; +#line 18430 "" + i__6[1] = 1, a__4[1] = "n"; +#line 18430 "" + i__6[2] = lnote, a__4[2] = notexq; +#line 18430 "" + s_cat(notexq, a__4, i__6, &c__3, (ftnlen) + 79); +#line 18431 "" + lnote += 2; +#line 18432 "" + } +#line 18433 "" } -#line 18139 "" +#line 18434 "" } -#line 18140 "" +#line 18435 "" bspend = FALSE_; /* Is a beam ending? */ -#line 18144 "" +#line 18439 "" } else if (numbms[commvl_1.ivx] > 0 && all_1.ibmcnt[ commvl_1.ivx - 1] <= numbms[commvl_1.ivx] && ( all_1.ibm2[commvl_1.ivx + all_1.ibmcnt[ commvl_1.ivx - 1] * 24 - 25] == ip || bit_test( all_1.nacc[commvl_1.ivx + ip * 24 - 25],20))) { -/* * .and. ibm2(ivx,ibmcnt(ivx)) .eq. ip) then */ -#line 18148 "" +#line 18442 "" if (bspend) { /* Must be a single-note ending of a jump-beam */ -#line 18152 "" +#line 18446 "" bspend = FALSE_; -#line 18153 "" +#line 18447 "" } -#line 18154 "" +#line 18448 "" beamend_(notexq, &lnote, (ftnlen)79); -#line 18155 "" +#line 18449 "" + if (combjmp_1.isbjmp && commvl_1.ivx == + combjmp_1.ivbj1) { + +/* Jump beam segment is ending, check if multiplicity DECREASES */ + +#line 18453 "" + if (comnsp_2.space[ib] > comnsp_2.space[ib - 1]) { + +/* Decrease multiplicity 3-1, 3-2, or 2-1. Spaces are 2,4, or 8. */ + +#line 18457 "" + if (commvl_1.ivx < 10) { +#line 18458 "" + *(unsigned char *)&ch__6[0] = + commvl_1.ivx + 48; +#line 18458 "" + s_copy(ivxq, ch__6, (ftnlen)4, (ftnlen)1); +#line 18459 "" + livx = 1; +#line 18460 "" + } else { +/* Writing concatenation */ +#line 18461 "" + i__6[0] = 2, a__4[0] = "{1"; +#line 18461 "" + *(unsigned char *)&ch__6[0] = + commvl_1.ivx - 10; +#line 18461 "" + i__6[1] = 1, a__4[1] = ch__6; +#line 18461 "" + i__6[2] = 1, a__4[2] = "}"; +#line 18461 "" + s_cat(ivxq, a__4, i__6, &c__3, (ftnlen)4); +#line 18462 "" + livx = 4; +#line 18463 "" + } +/* Changes to get staffcrossall.pmx to work. Not clear how. */ +/* if (nint(space(ib+1)-space(ib)) .eq. 6) then */ +#line 18466 "" + if (comnsp_2.space[ib] == 8.f && + comnsp_2.space[ib - 1] == 2.f) { +/* Writing concatenation */ +#line 18467 "" + i__15[0] = 1, a__9[0] = all_1.sq; +#line 18467 "" + i__15[1] = 4, a__9[1] = "tbbb"; +#line 18467 "" + i__15[2] = 1, a__9[2] = all_1.ulq + ( + commvl_1.ivx + all_1.ibmcnt[ + commvl_1.ivx - 1] * 24 - 25); +#line 18467 "" + i__15[3] = livx, a__9[3] = ivxq; +#line 18467 "" + i__15[4] = 1, a__9[4] = all_1.sq; +#line 18467 "" + i__15[5] = 3, a__9[5] = "tbb"; +#line 18467 "" + i__15[6] = 1, a__9[6] = all_1.ulq + ( + commvl_1.ivx + all_1.ibmcnt[ + commvl_1.ivx - 1] * 24 - 25); +#line 18467 "" + i__15[7] = livx, a__9[7] = ivxq; +#line 18467 "" + i__15[8] = lnote, a__9[8] = notexq; +#line 18467 "" + s_cat(notexq, a__9, i__15, &c__9, (ftnlen) + 79); +#line 18470 "" + lnote = lnote + 11 + (livx << 1); +/* else if (nint(space(ib+1)-space(ib)) .eq. 4) then */ +#line 18472 "" + } else if (comnsp_2.space[ib] == 8.f && + comnsp_2.space[ib - 1] == 4.f) { +/* Writing concatenation */ +#line 18473 "" + i__5[0] = 1, a__3[0] = all_1.sq; +#line 18473 "" + i__5[1] = 3, a__3[1] = "tbb"; +#line 18473 "" + i__5[2] = 1, a__3[2] = all_1.ulq + ( + commvl_1.ivx + all_1.ibmcnt[ + commvl_1.ivx - 1] * 24 - 25); +#line 18473 "" + i__5[3] = livx, a__3[3] = ivxq; +#line 18473 "" + i__5[4] = lnote, a__3[4] = notexq; +#line 18473 "" + s_cat(notexq, a__3, i__5, &c__5, (ftnlen) + 79); +#line 18475 "" + lnote = lnote + 5 + livx; +/* else */ +#line 18477 "" + } else if (comnsp_2.space[ib] == 4.f && + comnsp_2.space[ib - 1] == 2.f) { +/* Writing concatenation */ +#line 18478 "" + i__5[0] = 1, a__3[0] = all_1.sq; +#line 18478 "" + i__5[1] = 4, a__3[1] = "tbbb"; +#line 18478 "" + i__5[2] = 1, a__3[2] = all_1.ulq + ( + commvl_1.ivx + all_1.ibmcnt[ + commvl_1.ivx - 1] * 24 - 25); +#line 18478 "" + i__5[3] = livx, a__3[3] = ivxq; +#line 18478 "" + i__5[4] = lnote, a__3[4] = notexq; +#line 18478 "" + s_cat(notexq, a__3, i__5, &c__5, (ftnlen) + 79); +#line 18480 "" + lnote = lnote + 6 + livx; +#line 18481 "" + } +#line 18482 "" + } +#line 18483 "" + } +#line 18484 "" if (! bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25] ,20)) { -#line 18156 "" +#line 18485 "" comxtup_1.vxtup[commvl_1.ivx - 1] = FALSE_; -#line 18157 "" +#line 18486 "" nornb[commvl_1.ivx - 1] = 0; -#line 18158 "" +#line 18487 "" ++all_1.ibmcnt[commvl_1.ivx - 1]; -#line 18159 "" +#line 18488 "" all_1.beamon[commvl_1.ivx - 1] = FALSE_; -#line 18160 "" +#line 18489 "" } /* Or if we're in the middle of a beam */ -#line 18164 "" +#line 18493 "" } else if (numbms[commvl_1.ivx] > 0 && all_1.beamon[ commvl_1.ivx - 1]) { /* Added 130127 */ -#line 18168 "" +#line 18497 "" if (comkbdrests_1.kbdrests && bit_test(all_1.irest[ commvl_1.ivx + ip * 24 - 25],0) && ! bit_test( all_1.islur[commvl_1.ivx + ip * 24 - 25],29) && commvl_1.nvmx[all_1.iv - 1] == 2 && all_1.nolev[commvl_1.ivx + ip * 24 - 25] <= 50) { -#line 18168 "" +#line 18497 "" chkkbdrests_(&ip, &all_1.iv, &commvl_1.ivx, all_1.nn, all_1.islur, all_1.irest, all_1.nolev, commvl_1.ivmx, all_1.nib, & @@ -43157,14 +44011,14 @@ L30: comkbdrests_1.levtopr, comkbdrests_1.levbotr, all_1.mult, all_1.ipl); -#line 18168 "" +#line 18497 "" } -#line 18174 "" +#line 18503 "" beamid_(notexq, &lnote, (ftnlen)79); /* Or whole-bar rest */ -#line 18178 "" +#line 18507 "" } else if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],0) && all_1.nodur[commvl_1.ivx + ip * 24 - 25] == all_1.lenbar && ! (all_1.firstgulp && @@ -43175,18 +44029,18 @@ L30: /* Rule out pickup bar, blank rests, non-centered. Remember islur b19=> rp */ -#line 18186 "" +#line 18515 "" cwrest[commvl_1.ivx] = TRUE_; -#line 18187 "" +#line 18516 "" iscwr = TRUE_; -#line 18188 "" +#line 18517 "" notex_(cwrq + (commvl_1.ivx - 1) * 79, &lcwr[ commvl_1.ivx - 1], (ftnlen)79); -#line 18189 "" +#line 18518 "" tnow += all_1.lenbar; -#line 18190 "" +#line 18519 "" goto L10; -#line 18191 "" +#line 18520 "" } else if (strtmid_1.ixrest[commvl_1.ivx - 1] == 0) { /* Before writing note or rest, check for keyboard rest height adjustment. */ @@ -43195,14 +44049,14 @@ L30: /* 2. There are two voices on the staff */ /* 3. No user-def height adjustments have been applied (nolev<50) */ -#line 18199 "" +#line 18528 "" if (comkbdrests_1.kbdrests && bit_test(all_1.irest[ commvl_1.ivx + ip * 24 - 25],0) && ! bit_test( all_1.islur[commvl_1.ivx + ip * 24 - 25],29) && commvl_1.nvmx[all_1.iv - 1] == 2 && all_1.nolev[commvl_1.ivx + ip * 24 - 25] <= 50) { -#line 18202 "" +#line 18531 "" chkkbdrests_(&ip, &all_1.iv, &commvl_1.ivx, all_1.nn, all_1.islur, all_1.irest, all_1.nolev, commvl_1.ivmx, all_1.nib, & @@ -43211,199 +44065,199 @@ L30: comkbdrests_1.levtopr, comkbdrests_1.levbotr, all_1.mult, all_1.ipl); -#line 18205 "" +#line 18534 "" } -#line 18206 "" +#line 18535 "" if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],4) ) { /* Deal with single stem tremolo */ /* Get up-downness, borrowed from notex */ -#line 18211 "" +#line 18540 "" i__12 = ncmid_(&all_1.iv, &ip); -#line 18211 "" +#line 18540 "" udqq_(ch__6, (ftnlen)1, &all_1.nolev[commvl_1.ivx + ip * 24 - 25], &i__12, &all_1.islur[ commvl_1.ivx + ip * 24 - 25], & commvl_1.nvmx[all_1.iv - 1], & commvl_1.ivx, &all_1.nv); -#line 18211 "" +#line 18540 "" if (*(unsigned char *)&ch__6[0] == 'u') { -#line 18213 "" +#line 18542 "" *(unsigned char *)udq = 'u'; -#line 18214 "" +#line 18543 "" } else { -#line 18215 "" +#line 18544 "" *(unsigned char *)udq = 'l'; -#line 18216 "" +#line 18545 "" } -#line 18217 "" +#line 18546 "" multtrem = igetbits_(&all_1.ipl[commvl_1.ivx + ip * 24 - 25], &c__2, &c__5) + 1; -#line 18218 "" +#line 18547 "" if (all_1.nodur[commvl_1.ivx + ip * 24 - 25] < 64) { /* Writing concatenation */ -#line 18219 "" +#line 18548 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 18219 "" +#line 18548 "" i__4[1] = 2, a__2[1] = "tr"; -#line 18219 "" +#line 18548 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 18220 "" +#line 18549 "" } else { /* Writing concatenation */ -#line 18221 "" +#line 18550 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 18221 "" +#line 18550 "" i__4[1] = 2, a__2[1] = "Tr"; -#line 18221 "" +#line 18550 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 18222 "" +#line 18551 "" } -#line 18223 "" +#line 18552 "" lnote = 3; -#line 18224 "" +#line 18553 "" if (multtrem == 2) { /* Writing concatenation */ -#line 18225 "" +#line 18554 "" i__4[0] = 3, a__2[0] = notexq; -#line 18225 "" +#line 18554 "" i__4[1] = 1, a__2[1] = "r"; -#line 18225 "" +#line 18554 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 18226 "" +#line 18555 "" lnote = 4; -#line 18227 "" +#line 18556 "" } else if (multtrem == 3) { /* Writing concatenation */ -#line 18228 "" +#line 18557 "" i__4[0] = 3, a__2[0] = notexq; -#line 18228 "" +#line 18557 "" i__4[1] = 2, a__2[1] = "rr"; -#line 18228 "" +#line 18557 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 18229 "" +#line 18558 "" lnote = 5; -#line 18230 "" +#line 18559 "" } /* Get a numerical pitch argument */ -#line 18234 "" +#line 18563 "" lineno = all_1.nolev[commvl_1.ivx + ip * 24 - 25] - ncmid_(&all_1.iv, &ip) + 4; -#line 18235 "" +#line 18564 "" if (lineno < 0 || lineno > 9) { -#line 18236 "" - s_wsfi(&io___1116); -#line 18236 "" +#line 18565 "" + s_wsfi(&io___1132); +#line 18565 "" do_fio(&c__1, "{", (ftnlen)1); -#line 18236 "" +#line 18565 "" do_fio(&c__1, (char *)&lineno, (ftnlen)sizeof( integer)); -#line 18236 "" +#line 18565 "" do_fio(&c__1, "}", (ftnlen)1); -#line 18236 "" +#line 18565 "" e_wsfi(); -#line 18237 "" +#line 18566 "" lnoten = 4; -#line 18238 "" +#line 18567 "" } else { -#line 18239 "" +#line 18568 "" *(unsigned char *)&ch__6[0] = lineno + 48; -#line 18239 "" +#line 18568 "" s_copy(noteq, ch__6, (ftnlen)8, (ftnlen)1); -#line 18240 "" +#line 18569 "" lnoten = 1; -#line 18241 "" +#line 18570 "" } /* Writing concatenation */ -#line 18242 "" +#line 18571 "" i__9[0] = lnote, a__6[0] = notexq; -#line 18242 "" +#line 18571 "" i__9[1] = 1, a__6[1] = "m"; -#line 18242 "" +#line 18571 "" i__9[2] = 1, a__6[2] = udq; -#line 18242 "" +#line 18571 "" i__9[3] = lnoten, a__6[3] = noteq; -#line 18242 "" +#line 18571 "" s_cat(notexq, a__6, i__9, &c__4, (ftnlen)79); -#line 18243 "" +#line 18572 "" lnote = lnote + 2 + lnoten; -#line 18244 "" +#line 18573 "" addstr_(notexq, &lnote, soutq, &lsout, (ftnlen)79, (ftnlen)80); -#line 18245 "" +#line 18574 "" } /* Get code for a separate note or rest */ /* If nacc(ivx,ip)(30-31)=1 (dotted chordal 2nd including main note), */ /* pitch will be shifted +/-1 inside notex. */ -#line 18251 "" +#line 18580 "" notex_(notexq, &lnote, (ftnlen)79); -#line 18252 "" +#line 18581 "" } /* Right offset? This may cause trouble */ -#line 18256 "" +#line 18585 "" if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],8)) { /* Writing concatenation */ -#line 18257 "" +#line 18586 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 18257 "" +#line 18586 "" i__4[1] = 5, a__2[1] = "loff{"; -#line 18257 "" +#line 18586 "" s_cat(ch__17, a__2, i__4, &c__2, (ftnlen)6); -#line 18257 "" +#line 18586 "" addstr_(ch__17, &c__6, soutq, &lsout, (ftnlen)6, ( ftnlen)80); -#line 18258 "" +#line 18587 "" } else if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25] ,9)) { /* Writing concatenation */ -#line 18259 "" +#line 18588 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 18259 "" +#line 18588 "" i__4[1] = 5, a__2[1] = "roff{"; -#line 18259 "" +#line 18588 "" s_cat(ch__17, a__2, i__4, &c__2, (ftnlen)6); -#line 18259 "" +#line 18588 "" addstr_(ch__17, &c__6, soutq, &lsout, (ftnlen)6, ( ftnlen)80); -#line 18260 "" +#line 18589 "" } -#line 18261 "" +#line 18590 "" if (strtmid_1.ixrest[commvl_1.ivx - 1] == 0 && lnote > 0) { -#line 18262 "" +#line 18591 "" addstr_(notexq, &lnote, soutq, &lsout, (ftnlen)79, ( ftnlen)80); -#line 18263 "" +#line 18592 "" } -#line 18264 "" +#line 18593 "" if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],8) || bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],9) ) { -#line 18264 "" +#line 18593 "" addstr_("}", &c__1, soutq, &lsout, (ftnlen)1, (ftnlen) 80); -#line 18264 "" +#line 18593 "" } /* Terminate user-defined offsets. Fix format */ -#line 18269 "" +#line 18598 "" if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],15) || bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],17)) { -#line 18269 "" +#line 18598 "" putshft_(&commvl_1.ivx, &c_false, soutq, &lsout, ( ftnlen)80); -#line 18269 "" +#line 18598 "" } /* Deal with After- and Way-after-graces. First, if end of bar, compute space */ @@ -43411,225 +44265,225 @@ L30: /* rq'd, convert GW to GA. Therefore GW at end of bar never needs extra sp. */ /* But will still need to add extra space as hardspace. */ -#line 18277 "" +#line 18606 "" if (ip == all_1.nn[commvl_1.ivx - 1] && (bit_test( all_1.ipl[commvl_1.ivx + ip * 24 - 25],31) || bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25], 29))) { -#line 18279 "" +#line 18608 "" i__12 = comgrace_1.ngrace; -#line 18279 "" +#line 18608 "" for (ig = 1; ig <= i__12; ++ig) { -#line 18280 "" +#line 18609 "" if (comgrace_1.ipg[ig - 1] == ip && comgrace_1.ivg[ig - 1] == commvl_1.ivx) { -#line 18280 "" +#line 18609 "" goto L78; -#line 18280 "" +#line 18609 "" } -#line 18281 "" +#line 18610 "" /* L77: */ -#line 18281 "" +#line 18610 "" } -#line 18282 "" - s_wsle(&io___1117); -#line 18282 "" +#line 18611 "" + s_wsle(&io___1133); +#line 18611 "" do_lio(&c__9, &c__1, "Problem finding grace index "\ "at \"do 77\"", (ftnlen)38); -#line 18282 "" +#line 18611 "" e_wsle(); -#line 18283 "" +#line 18612 "" stop1_(); -#line 18284 "" +#line 18613 "" L78: /* Get elemskip to end of bar. WON'T WORK IF XTUPS !! */ -#line 18288 "" +#line 18617 "" esk = 0.f; -#line 18289 "" +#line 18618 "" i__12 = comnsp_2.nb; -#line 18289 "" +#line 18618 "" for (iib = ib; iib <= i__12; ++iib) { -#line 18290 "" +#line 18619 "" if (iib == ib) { -#line 18291 "" +#line 18620 "" itleft = i_nint(&all_1.to[comipl2_1.ipl2[ commvl_1.ivx + ip * 24 - 25] - 1]); -#line 18292 "" +#line 18621 "" } else { -#line 18293 "" +#line 18622 "" itleft = i_nint(&tstart[ib]); -#line 18294 "" +#line 18623 "" } -#line 18295 "" +#line 18624 "" if (iib < comnsp_2.nb) { -#line 18296 "" +#line 18625 "" itright = i_nint(&tstart[iib + 1]); -#line 18297 "" +#line 18626 "" } else { -#line 18298 "" +#line 18627 "" itright = all_1.lenbar; -#line 18299 "" +#line 18628 "" } -#line 18300 "" +#line 18629 "" esk += feon_(&comnsp_2.space[ib - 1]) * (itright - itleft) / comnsp_2.space[ib - 1]; -#line 18302 "" +#line 18631 "" /* L40: */ -#line 18302 "" +#line 18631 "" } -#line 18303 "" +#line 18632 "" ptsavail = comask_1.poenom * esk - comask_1.wheadpt; -#line 18304 "" +#line 18633 "" if (comgrace_1.nng[ig - 1] == 1) { -#line 18305 "" +#line 18634 "" wgr = spfacs_1.grafac; -#line 18306 "" +#line 18635 "" } else { -#line 18307 "" +#line 18636 "" wgr = comgrace_1.nng[ig - 1] * spfacs_1.emgfac; -#line 18308 "" +#line 18637 "" i__12 = comgrace_1.nng[ig - 1]; -#line 18308 "" +#line 18637 "" for (ing = 1; ing <= i__12; ++ing) { -#line 18309 "" +#line 18638 "" if (comgrace_1.naccg[comgrace_1.ngstrt[ig - 1] - 1 + ing - 1] > 0) { -#line 18309 "" +#line 18638 "" wgr += spfacs_1.acgfac; -#line 18309 "" +#line 18638 "" } -#line 18310 "" +#line 18639 "" /* L41: */ -#line 18310 "" +#line 18639 "" } -#line 18311 "" +#line 18640 "" } -#line 18312 "" +#line 18641 "" ptgr[ig - 1] = wgr * comask_1.wheadpt; -#line 18313 "" +#line 18642 "" ptsneed = (wgr + .5f) * comask_1.wheadpt; -#line 18314 "" +#line 18643 "" ptsndg[commvl_1.ivx - 1] = 0.f; -#line 18315 "" +#line 18644 "" if (ptsavail < ptsneed) { -#line 18316 "" +#line 18645 "" ptsndg[commvl_1.ivx - 1] = ptsneed; -#line 18317 "" +#line 18646 "" eskndg[commvl_1.ivx - 1] = esk; -#line 18318 "" +#line 18647 "" if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],31)) { /* Convert GW to GA */ -#line 18322 "" +#line 18651 "" all_1.ipl[commvl_1.ivx + ip * 24 - 25] = bit_set(bit_clear(all_1.ipl[ commvl_1.ivx + ip * 24 - 25],31),29); -#line 18323 "" +#line 18652 "" } -#line 18324 "" +#line 18653 "" } -#line 18325 "" +#line 18654 "" } /* Check for GA */ -#line 18329 "" +#line 18658 "" if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],29)) { -#line 18329 "" +#line 18658 "" i__12 = ncmid_(&all_1.iv, &ip); -#line 18329 "" +#line 18658 "" dograce_(&commvl_1.ivx, &ip, ptgr, soutq, &lsout, & i__12, &all_1.nacc[commvl_1.ivx + ip * 24 - 25], &ig, &all_1.ipl[commvl_1.ivx + ip * 24 - 25], &c_false, &c_false, &c__0, &c__0, &c__0, - &c__0, &c__0, &c__0, &c_b1009, all_1.ulq, & + &c__0, &c__0, &c__0, &c_b1008, all_1.ulq, & cominsttrans_1.instno[all_1.iv - 1], (ftnlen) 80, (ftnlen)1); -#line 18329 "" +#line 18658 "" } /* 130324 */ /* * .false.,0,0,0,0,0,0,0.,ulq) */ /* Update running time */ -#line 18338 "" +#line 18667 "" tnow += comnsp_2.space[ib - 1]; -#line 18339 "" +#line 18668 "" L10: -#line 18339 "" +#line 18668 "" ; -#line 18339 "" +#line 18668 "" } /* Have finished last note in this voice and block */ -#line 18343 "" +#line 18672 "" r__1 = all_1.to[istop[ib] - 1] + comnsp_2.space[ib - 1]; -#line 18343 "" +#line 18672 "" itendb = i_nint(&r__1); -#line 18344 "" +#line 18673 "" if (all_1.figbass && commvl_1.ivx == 1 || commvl_1.ivx == comfig_1.ivxfig2) { -#line 18345 "" +#line 18674 "" ivf = 1; -#line 18346 "" +#line 18675 "" if (commvl_1.ivx > 1) { -#line 18346 "" +#line 18675 "" ivf = 2; -#line 18346 "" +#line 18675 "" } -#line 18347 "" +#line 18676 "" L17: -#line 18347 "" +#line 18676 "" if (all_1.figchk[ivf - 1] && comfig_1.itfig[ivf + (ifig[ ivf - 1] << 1) - 3] < itendb) { /* There's at least one figure left. offnsk could be <0 */ -#line 18351 "" +#line 18680 "" offnsk = (tnow - comfig_1.itfig[ivf + (ifig[ivf - 1] << 1) - 3]) / comnsp_2.space[ib - 1]; -#line 18352 "" +#line 18681 "" putfig_(&ivf, &ifig[ivf - 1], &offnsk, &all_1.figchk[ ivf - 1], soutq, &lsout, (ftnlen)80); -#line 18353 "" +#line 18682 "" goto L17; -#line 18354 "" +#line 18683 "" } -#line 18355 "" +#line 18684 "" } /* Check for flag, dot, or upstem on last note of bar. */ -#line 18359 "" +#line 18688 "" if (ib == comnsp_2.nb) { -#line 18360 "" +#line 18689 "" ip = all_1.ipo[comipl2_1.ipl2[commvl_1.ivx + all_1.nn[ commvl_1.ivx - 1] * 24 - 25] - 1]; -#line 18361 "" +#line 18690 "" comnsp_2.flgndv[commvl_1.ivx - 1] = 0.f; -#line 18362 "" +#line 18691 "" if ((r__1 = all_1.tnote[comipl2_1.ipl2[commvl_1.ivx + ip * 24 - 25] - 1] - comnsp_2.space[ib - 1], dabs( r__1)) < comtol_1.tol) { -#line 18363 "" +#line 18692 "" if (comnsp_2.space[ib - 1] < 16.f - comtol_1.tol) { /* Note in last space, smaller than a quarter note. */ -#line 18367 "" +#line 18696 "" i__10 = ncmid_(&all_1.iv, &ip); -#line 18367 "" +#line 18696 "" udqq_(ch__6, (ftnlen)1, &all_1.nolev[commvl_1.ivx + ip * 24 - 25], &i__10, &all_1.islur[ commvl_1.ivx + ip * 24 - 25], & commvl_1.nvmx[all_1.iv - 1], & commvl_1.ivx, &all_1.nv); -#line 18367 "" +#line 18696 "" if (! bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],0) && *(unsigned char *)&ch__6[0] == 'u' || isdotted_(all_1.nodur, & @@ -43638,9 +44492,9 @@ L17: /* Upstem non-rest, or dotted */ /* Computing MAX */ -#line 18374 "" +#line 18703 "" i__10 = 1, i__12 = numbms[commvl_1.ivx]; -#line 18374 "" +#line 18703 "" if (numbms[commvl_1.ivx] > 0 && ip == all_1.ibm2[commvl_1.ivx + max(i__10, i__12) * 24 - 25] && ! isdotted_( @@ -43648,70 +44502,70 @@ L17: /* In beam and not dotted, so use smaller space */ -#line 18381 "" +#line 18710 "" comnsp_2.flgndv[commvl_1.ivx - 1] = spfacs_1.upstmfac; -#line 18382 "" +#line 18711 "" } else { -#line 18383 "" +#line 18712 "" comnsp_2.flgndv[commvl_1.ivx - 1] = spfacs_1.flagfac; -#line 18384 "" +#line 18713 "" } -#line 18385 "" +#line 18714 "" } -#line 18386 "" +#line 18715 "" } else { /* Last space, nonflagged (no beam) only worry dot or up */ -#line 18390 "" +#line 18719 "" if (isdotted_(all_1.nodur, &commvl_1.ivx, &ip)) { -#line 18391 "" +#line 18720 "" comnsp_2.flgndv[commvl_1.ivx - 1] = spfacs_1.flagfac; -#line 18392 "" +#line 18721 "" } else /* if(complicated condition) */ { -#line 18392 "" +#line 18721 "" i__10 = ncmid_(&all_1.iv, &ip); -#line 18392 "" +#line 18721 "" udqq_(ch__6, (ftnlen)1, &all_1.nolev[ commvl_1.ivx + ip * 24 - 25], &i__10, &all_1.islur[commvl_1.ivx + ip * 24 - 25], &commvl_1.nvmx[all_1.iv - 1], & commvl_1.ivx, &all_1.nv); -#line 18392 "" +#line 18721 "" if (all_1.tnote[comipl2_1.ipl2[commvl_1.ivx + ip * 24 - 25] - 1] < 64.f && *( unsigned char *)&ch__6[0] == 'u') { /* Upstem on last note , non-flagged */ -#line 18398 "" +#line 18727 "" comnsp_2.flgndv[commvl_1.ivx - 1] = spfacs_1.upstmfac; -#line 18399 "" +#line 18728 "" } -#line 18399 "" +#line 18728 "" } -#line 18400 "" +#line 18729 "" } -#line 18401 "" +#line 18730 "" } /* Check for right-shifted chordal note */ -#line 18405 "" +#line 18734 "" if (bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],20)) { -#line 18405 "" +#line 18734 "" comnsp_2.flgndv[commvl_1.ivx - 1] = spfacs_1.rtshfac; -#line 18405 "" +#line 18734 "" } -#line 18406 "" +#line 18735 "" comnsp_2.flgndb = comnsp_2.flgndb || comnsp_2.flgndv[ commvl_1.ivx - 1] > 0.f; -#line 18407 "" +#line 18736 "" if (commidi_1.ismidi) { /* For midi, set flags for accidentals on last note of bar. Assume they affect */ @@ -43723,102 +44577,102 @@ L17: /* c Old old lbacc(icm) = iand(nacc(ivx,ip),7) */ /* New old if (lbacc(icm).eq.0) lbacc(icm) = iand(nacc(ivx,ip),7) */ -#line 18418 "" +#line 18747 "" if ((all_1.nacc[commvl_1.ivx + ip * 24 - 25] & 7) > 0) { /* Explicit accidental on last main note in bar */ -#line 18422 "" +#line 18751 "" i__10 = comslm_1.naccbl[icm]; -#line 18422 "" +#line 18751 "" for (kacc = 1; kacc <= i__10; ++kacc) { -#line 18423 "" +#line 18752 "" if (comslm_1.laccbl[icm + kacc * 25 - 25] == all_1.nolev[commvl_1.ivx + ip * 24 - 25]) { -#line 18423 "" +#line 18752 "" goto L56; -#line 18423 "" +#line 18752 "" } -#line 18424 "" +#line 18753 "" /* L55: */ -#line 18424 "" +#line 18753 "" } -#line 18425 "" +#line 18754 "" ++comslm_1.naccbl[icm]; -#line 18426 "" +#line 18755 "" comslm_1.laccbl[icm + comslm_1.naccbl[icm] * 25 - 25] = all_1.nolev[commvl_1.ivx + ip * 24 - 25]; -#line 18427 "" +#line 18756 "" i__10 = all_1.nacc[commvl_1.ivx + ip * 24 - 25] & 7; -#line 18427 "" +#line 18756 "" comslm_1.jaccbl[icm + comslm_1.naccbl[icm] * 25 - 25] = iashft_(&i__10); -#line 18428 "" +#line 18757 "" } -#line 18429 "" +#line 18758 "" L56: -#line 18430 "" +#line 18759 "" if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25], 10) && commidi_1.crdacc) { -#line 18431 "" +#line 18760 "" i__10 = comtrill_1.icrd2; -#line 18431 "" +#line 18760 "" for (icrd = comtrill_1.icrd1; icrd <= i__10; ++icrd) { -#line 18432 "" +#line 18761 "" iacc = igetbits_(&comtrill_1.icrdat[icrd - 1], &c__3, &c__20); -#line 18433 "" +#line 18762 "" if (iacc > 0) { /* Explicit accidental on chord note at end of bar */ -#line 18437 "" +#line 18766 "" nolevc = igetbits_(&comtrill_1.icrdat[ icrd - 1], &c__7, &c__12); -#line 18438 "" +#line 18767 "" i__12 = comslm_1.naccbl[icm]; -#line 18438 "" +#line 18767 "" for (kacc = 1; kacc <= i__12; ++kacc) { -#line 18439 "" +#line 18768 "" if (comslm_1.laccbl[icm + kacc * 25 - 25] == nolevc) { -#line 18439 "" +#line 18768 "" goto L59; -#line 18439 "" +#line 18768 "" } -#line 18440 "" +#line 18769 "" /* L58: */ -#line 18440 "" +#line 18769 "" } -#line 18441 "" +#line 18770 "" ++comslm_1.naccbl[icm]; -#line 18442 "" +#line 18771 "" comslm_1.laccbl[icm + comslm_1.naccbl[icm] * 25 - 25] = nolevc; -#line 18443 "" +#line 18772 "" comslm_1.jaccbl[icm + comslm_1.naccbl[icm] * 25 - 25] = iashft_(&iacc); -#line 18444 "" +#line 18773 "" } -#line 18445 "" +#line 18774 "" L59: -#line 18446 "" +#line 18775 "" /* L57: */ -#line 18446 "" +#line 18775 "" ; -#line 18446 "" +#line 18775 "" } -#line 18447 "" +#line 18776 "" } /* if (lbacc(icm).eq.0 .and. accb4(icm)) then */ -#line 18449 "" +#line 18778 "" i__10 = commidi_1.naccim[icm]; -#line 18449 "" +#line 18778 "" for (kacc = 1; kacc <= i__10; ++kacc) { /* If naccim(icm)>0, */ @@ -43827,570 +44681,646 @@ L59: /* explicit action from just above. Assuming any accid on last note in bar, */ /* either explicit or implicit, has same effect on 1st note of next bar. */ -#line 18457 "" +#line 18786 "" if (all_1.nolev[commvl_1.ivx + ip * 24 - 25] == commidi_1.laccim[icm + kacc * 25 - 25]) { -#line 18457 "" +#line 18786 "" goto L66; -#line 18457 "" +#line 18786 "" } -#line 18458 "" +#line 18787 "" if (bit_test(all_1.ipl[commvl_1.ivx + ip * 24 - 25],10)) { -#line 18459 "" +#line 18788 "" i__12 = comtrill_1.icrd2; -#line 18459 "" +#line 18788 "" for (icrd = comtrill_1.icrd1; icrd <= i__12; ++icrd) { -#line 18460 "" +#line 18789 "" if ((lbit_shift(comtrill_1.icrdat[icrd - 1], (ftnlen)-12) & 127) == commidi_1.laccim[icm + kacc * 25 - 25]) { -#line 18460 "" +#line 18789 "" goto L66; -#line 18460 "" +#line 18789 "" } -#line 18462 "" +#line 18791 "" /* L67: */ -#line 18462 "" +#line 18791 "" } -#line 18463 "" +#line 18792 "" } -#line 18464 "" +#line 18793 "" goto L65; -#line 18465 "" +#line 18794 "" L66: /* So far we know there is a main or chord note at level laccim(icm,kacc). So */ /* it will get a bl-accid if it didn't just already get one. */ -#line 18470 "" +#line 18799 "" i__12 = comslm_1.naccbl[icm]; -#line 18470 "" +#line 18799 "" for (macc = 1; macc <= i__12; ++macc) { -#line 18471 "" +#line 18800 "" if (comslm_1.laccbl[icm + macc * 25 - 25] == commidi_1.laccim[icm + kacc * 25 - 25] ) { -#line 18471 "" +#line 18800 "" goto L65; -#line 18471 "" +#line 18800 "" } -#line 18472 "" +#line 18801 "" /* L68: */ -#line 18472 "" +#line 18801 "" } -#line 18473 "" +#line 18802 "" ++comslm_1.naccbl[icm]; -#line 18474 "" +#line 18803 "" comslm_1.laccbl[icm + comslm_1.naccbl[icm] * 25 - 25] = commidi_1.laccim[icm + kacc * 25 - 25]; -#line 18475 "" +#line 18804 "" comslm_1.jaccbl[icm + comslm_1.naccbl[icm] * 25 - 25] = commidi_1.jaccim[icm + kacc * 25 - 25]; -#line 18476 "" +#line 18805 "" L65: -#line 18476 "" +#line 18805 "" ; -#line 18476 "" +#line 18805 "" } -#line 18477 "" +#line 18806 "" } -#line 18478 "" +#line 18807 "" } -#line 18479 "" +#line 18808 "" /* L11: */ -#line 18479 "" +#line 18808 "" } -#line 18479 "" +#line 18808 "" } /* Close out the notes group */ /* Writing concatenation */ -#line 18483 "" +#line 18812 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 18483 "" +#line 18812 "" i__4[1] = 2, a__2[1] = "en"; -#line 18483 "" +#line 18812 "" s_cat(ch__14, a__2, i__4, &c__2, (ftnlen)3); -#line 18483 "" +#line 18812 "" addstr_(ch__14, &c__3, soutq, &lsout, (ftnlen)3, (ftnlen)80); -#line 18484 "" +#line 18813 "" if (comlast_1.islast && lsout > 0) { -#line 18484 "" - s_wsfe(&io___1130); +#line 18813 "" + s_wsfe(&io___1146); /* Writing concatenation */ -#line 18484 "" +#line 18813 "" i__4[0] = lsout, a__2[0] = soutq; -#line 18484 "" +#line 18813 "" i__4[1] = 1, a__2[1] = "%"; -#line 18484 "" +#line 18813 "" s_cat(ch__12, a__2, i__4, &c__2, (ftnlen)81); -#line 18484 "" +#line 18813 "" do_fio(&c__1, ch__12, lsout + 1); -#line 18484 "" +#line 18813 "" e_wsfe(); -#line 18484 "" +#line 18813 "" } -#line 18485 "" +#line 18814 "" /* L16: */ -#line 18485 "" +#line 18814 "" } /* Check for way-after graces at end of bar. We could not link these to notes */ /* as in midbar since there is no note following grace! Also, set flag if */ /* hardspace is needed. Also, save nvmx, ivmx for use in space checks on reloop. */ -#line 18491 "" +#line 18820 "" isgrace = FALSE_; -#line 18492 "" +#line 18821 "" i__2 = all_1.nv; -#line 18492 "" +#line 18821 "" for (all_1.iv = 1; all_1.iv <= i__2; ++all_1.iv) { -#line 18493 "" +#line 18822 "" comnsp_2.nvmxsav[all_1.iv - 1] = commvl_1.nvmx[all_1.iv - 1]; -#line 18494 "" +#line 18823 "" i__7 = commvl_1.nvmx[all_1.iv - 1]; -#line 18494 "" +#line 18823 "" for (kv = 1; kv <= i__7; ++kv) { -#line 18495 "" +#line 18824 "" comnsp_2.ivmxsav[all_1.iv + kv * 24 - 25] = commvl_1.ivmx[ all_1.iv + kv * 24 - 25]; -#line 18496 "" +#line 18825 "" commvl_1.ivx = commvl_1.ivmx[all_1.iv + kv * 24 - 25]; -#line 18497 "" +#line 18826 "" comnsp_2.ptsgnd = 0.f; -#line 18498 "" +#line 18827 "" if ((bit_test(all_1.ipl[commvl_1.ivx + all_1.nn[commvl_1.ivx - 1] * 24 - 25],29) || bit_test(all_1.ipl[commvl_1.ivx + all_1.nn[commvl_1.ivx - 1] * 24 - 25],31)) && ptsndg[ commvl_1.ivx - 1] > 0.f) { -#line 18500 "" +#line 18829 "" comnsp_2.flgndb = TRUE_; -#line 18501 "" +#line 18830 "" if (ptsndg[commvl_1.ivx - 1] > comnsp_2.ptsgnd) { -#line 18502 "" +#line 18831 "" comnsp_2.ptsgnd = ptsndg[commvl_1.ivx - 1]; -#line 18503 "" +#line 18832 "" comnsp_2.eskgnd = eskndg[commvl_1.ivx - 1]; -#line 18504 "" +#line 18833 "" } -#line 18505 "" +#line 18834 "" } -#line 18506 "" +#line 18835 "" if (bit_test(all_1.ipl[commvl_1.ivx + all_1.nn[commvl_1.ivx - 1] * 24 - 25],31)) { /* This voice has a way-after grace here at end of bar */ -#line 18510 "" +#line 18839 "" if (! isgrace) { /* This is the first one, so set up the string */ -#line 18514 "" +#line 18843 "" isgrace = TRUE_; -#line 18515 "" +#line 18844 "" ivlast = 1; /* Writing concatenation */ -#line 18516 "" +#line 18845 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 18516 "" +#line 18845 "" i__4[1] = 6, a__2[1] = "znotes"; -#line 18516 "" +#line 18845 "" s_cat(soutq, a__2, i__4, &c__2, (ftnlen)80); -#line 18517 "" +#line 18846 "" lsout = 7; -#line 18518 "" +#line 18847 "" } -#line 18519 "" +#line 18848 "" i__1 = all_1.iv - 1; -#line 18519 "" +#line 18848 "" for (iiv = ivlast; iiv <= i__1; ++iiv) { -#line 18520 "" +#line 18849 "" addstr_(all_1.sepsymq + (iiv - 1), &c__1, soutq, &lsout, ( ftnlen)1, (ftnlen)80); -#line 18521 "" +#line 18850 "" /* L76: */ -#line 18521 "" +#line 18850 "" } -#line 18522 "" +#line 18851 "" ivlast = all_1.iv; /* No need to put in 'nextvoice', even if 2 lines/staff */ -#line 18526 "" +#line 18855 "" i__1 = ncmid_(&all_1.iv, &all_1.nn[commvl_1.ivx - 1]); -#line 18526 "" +#line 18855 "" dograce_(&commvl_1.ivx, &all_1.nn[commvl_1.ivx - 1], ptgr, soutq, &lsout, &i__1, &all_1.nacc[commvl_1.ivx + all_1.nn[commvl_1.ivx - 1] * 24 - 25], &ig, & all_1.ipl[commvl_1.ivx + all_1.nn[commvl_1.ivx - 1] * 24 - 25], &c_true, &c_false, &c__0, &c__0, &c__0, & - c__0, &c__0, &c__0, &c_b1009, all_1.ulq, & + c__0, &c__0, &c__0, &c_b1008, all_1.ulq, & cominsttrans_1.instno[all_1.iv - 1], (ftnlen)80, ( ftnlen)1); /* 130324 */ /* * .false.,0,0,0,0,0,0,0.,ulq) */ -#line 18531 "" +#line 18860 "" } -#line 18532 "" +#line 18861 "" /* L75: */ -#line 18532 "" +#line 18861 "" } -#line 18532 "" +#line 18861 "" } -#line 18533 "" +#line 18862 "" if (isgrace) { /* Writing concatenation */ -#line 18534 "" +#line 18863 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 18534 "" +#line 18863 "" i__4[1] = 3, a__2[1] = "en%"; -#line 18534 "" - s_cat(ch__19, a__2, i__4, &c__2, (ftnlen)4); -#line 18534 "" - addstr_(ch__19, &c__4, soutq, &lsout, (ftnlen)4, (ftnlen)80); -#line 18535 "" +#line 18863 "" + s_cat(ch__20, a__2, i__4, &c__2, (ftnlen)4); +#line 18863 "" + addstr_(ch__20, &c__4, soutq, &lsout, (ftnlen)4, (ftnlen)80); +#line 18864 "" if (comlast_1.islast && lsout > 0) { -#line 18535 "" - s_wsfe(&io___1133); -#line 18535 "" +#line 18864 "" + s_wsfe(&io___1149); +#line 18864 "" do_fio(&c__1, soutq, lsout); -#line 18535 "" +#line 18864 "" e_wsfe(); -#line 18535 "" +#line 18864 "" } -#line 18536 "" +#line 18865 "" } -#line 18537 "" +#line 18866 "" lsout = 0; /* Write multibar rest. Assuming nv = 1 and do not worry about cwbrest */ /* This has to be the only use of atnextbar */ -#line 18542 "" +#line 18871 "" if (all_1.ibar == comgrace_1.ibarmbr && comlast_1.islast) { +#line 18872 "" + if (comignorenats_1.newmbrhgt) { /* Writing concatenation */ -#line 18543 "" +#line 18873 "" + i__9[0] = 1, a__6[0] = all_1.sq; +#line 18873 "" + i__9[1] = 3, a__6[1] = "def"; +#line 18873 "" + i__9[2] = 1, a__6[2] = all_1.sq; +#line 18873 "" + i__9[3] = 7, a__6[3] = "mbrhgt{"; +#line 18873 "" + s_cat(soutq, a__6, i__9, &c__4, (ftnlen)80); +#line 18874 "" + if (comignorenats_1.mbrhgt <= -10) { +#line 18875 "" + s_wsfi(&io___1150); +#line 18875 "" + do_fio(&c__1, (char *)&comignorenats_1.mbrhgt, (ftnlen)sizeof( + integer)); +#line 18875 "" + e_wsfi(); +#line 18876 "" + lsout = 15; +#line 18877 "" + } else if (comignorenats_1.mbrhgt >= 10 || comignorenats_1.mbrhgt + <= -1) { +#line 18878 "" + s_wsfi(&io___1151); +#line 18878 "" + do_fio(&c__1, (char *)&comignorenats_1.mbrhgt, (ftnlen)sizeof( + integer)); +#line 18878 "" + e_wsfi(); +#line 18879 "" + lsout = 14; +#line 18880 "" + } else { +/* Writing concatenation */ +#line 18881 "" + i__4[0] = 12, a__2[0] = soutq; +#line 18881 "" + *(unsigned char *)&ch__6[0] = comignorenats_1.mbrhgt + 48; +#line 18881 "" + i__4[1] = 1, a__2[1] = ch__6; +#line 18881 "" + s_cat(soutq, a__2, i__4, &c__2, (ftnlen)80); +#line 18882 "" + lsout = 13; +#line 18883 "" + } +/* Writing concatenation */ +#line 18884 "" + i__4[0] = lsout, a__2[0] = soutq; +#line 18884 "" + i__4[1] = 2, a__2[1] = "}%"; +#line 18884 "" + s_cat(soutq, a__2, i__4, &c__2, (ftnlen)80); +#line 18885 "" + s_wsfe(&io___1152); +#line 18885 "" + do_fio(&c__1, soutq, lsout + 2); +#line 18885 "" + e_wsfe(); +#line 18886 "" + comignorenats_1.newmbrhgt = FALSE_; +#line 18887 "" + } +/* Writing concatenation */ +#line 18888 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 18543 "" +#line 18888 "" i__3[1] = 3, a__1[1] = "def"; -#line 18543 "" +#line 18888 "" i__3[2] = 1, a__1[2] = all_1.sq; -#line 18543 "" +#line 18888 "" i__3[3] = 10, a__1[3] = "atnextbar{"; -#line 18543 "" +#line 18888 "" i__3[4] = 1, a__1[4] = all_1.sq; -#line 18543 "" +#line 18888 "" i__3[5] = 6, a__1[5] = "znotes"; -#line 18543 "" +#line 18888 "" s_cat(soutq, a__1, i__3, &c__6, (ftnlen)80); -#line 18544 "" +#line 18889 "" lsout = 22; /* Writing concatenation */ -#line 18545 "" +#line 18890 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 18545 "" +#line 18890 "" i__4[1] = 6, a__2[1] = "mbrest"; -#line 18545 "" +#line 18890 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 18546 "" +#line 18891 "" lnote = 7; -#line 18547 "" +#line 18892 "" istring_(&comgrace_1.mbrest, noteq, &len, (ftnlen)8); /* Writing concatenation */ -#line 18548 "" +#line 18893 "" i__4[0] = lnote, a__2[0] = notexq; -#line 18548 "" +#line 18893 "" i__4[1] = len, a__2[1] = noteq; -#line 18548 "" +#line 18893 "" s_cat(notexq, a__2, i__4, &c__2, (ftnlen)79); -#line 18549 "" +#line 18894 "" lnote += len; -#line 18550 "" +#line 18895 "" mtrspc = i_nint(&comgrace_1.xb4mbr); -#line 18551 "" +#line 18896 "" comgrace_1.xb4mbr = 0.f; -#line 18552 "" +#line 18897 "" istring_(&mtrspc, noteq, &len, (ftnlen)8); /* Writing concatenation */ -#line 18553 "" +#line 18898 "" i__6[0] = lnote, a__4[0] = notexq; -#line 18553 "" +#line 18898 "" i__6[1] = len, a__4[1] = noteq; -#line 18553 "" +#line 18898 "" i__6[2] = 1, a__4[2] = "0"; -#line 18553 "" +#line 18898 "" s_cat(notexq, a__4, i__6, &c__3, (ftnlen)79); -#line 18554 "" +#line 18899 "" lnote = lnote + len + 1; -#line 18555 "" +#line 18900 "" i__7 = all_1.nv; -#line 18555 "" +#line 18900 "" for (all_1.iv = 1; all_1.iv <= i__7; ++all_1.iv) { -#line 18556 "" +#line 18901 "" addstr_(notexq, &lnote, soutq, &lsout, (ftnlen)79, (ftnlen)80); -#line 18557 "" +#line 18902 "" if (all_1.iv < all_1.nv) { -#line 18557 "" +#line 18902 "" addstr_(all_1.sepsymq + (all_1.iv - 1), &c__1, soutq, &lsout, (ftnlen)1, (ftnlen)80); -#line 18557 "" +#line 18902 "" } -#line 18558 "" +#line 18903 "" /* L62: */ -#line 18558 "" +#line 18903 "" } /* Writing concatenation */ -#line 18559 "" +#line 18904 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 18559 "" +#line 18904 "" i__4[1] = 4, a__2[1] = "en}%"; -#line 18559 "" - s_cat(ch__18, a__2, i__4, &c__2, (ftnlen)5); -#line 18559 "" - addstr_(ch__18, &c__5, soutq, &lsout, (ftnlen)5, (ftnlen)80); -#line 18560 "" - s_wsfe(&io___1136); -#line 18560 "" +#line 18904 "" + s_cat(ch__19, a__2, i__4, &c__2, (ftnlen)5); +#line 18904 "" + addstr_(ch__19, &c__5, soutq, &lsout, (ftnlen)5, (ftnlen)80); +#line 18905 "" + s_wsfe(&io___1155); +#line 18905 "" do_fio(&c__1, soutq, lsout); -#line 18560 "" +#line 18905 "" e_wsfe(); -#line 18561 "" +#line 18906 "" lsout = 0; -#line 18562 "" +#line 18907 "" + if (comshort_1.ishort > 0) { +#line 18908 "" + comshort_1.mbrsum += comgrace_1.mbrest; +#line 18909 "" + ++comshort_1.nmbr; +#line 18910 "" + } +#line 18911 "" if (comgrace_1.mbrest > 1) { -#line 18563 "" +#line 18912 "" r__1 = comgrace_1.mbrest - 1 + .01f; -#line 18563 "" +#line 18912 "" ndig = (integer) r_lg10(&r__1) + 1; -#line 18564 "" +#line 18913 "" ci__1.cierr = 0; -#line 18564 "" +#line 18913 "" ci__1.ciunit = 11; /* Writing concatenation */ -#line 18564 "" +#line 18913 "" i__6[0] = 6, a__4[0] = "(a14,i"; -#line 18564 "" +#line 18913 "" i__7 = ndig + 48; -#line 18564 "" +#line 18913 "" chax_(ch__6, (ftnlen)1, &i__7); -#line 18564 "" +#line 18913 "" i__6[1] = 1, a__4[1] = ch__6; -#line 18564 "" +#line 18913 "" i__6[2] = 4, a__4[2] = ",a1)"; -#line 18564 "" +#line 18913 "" ci__1.cifmt = (s_cat(ch__9, a__4, i__6, &c__3, (ftnlen)11), ch__9) ; -#line 18564 "" +#line 18913 "" s_wsfe(&ci__1); /* Writing concatenation */ -#line 18564 "" +#line 18913 "" i__9[0] = 1, a__6[0] = all_1.sq; -#line 18564 "" +#line 18913 "" i__9[1] = 7, a__6[1] = "advance"; -#line 18564 "" +#line 18913 "" i__9[2] = 1, a__6[2] = all_1.sq; -#line 18564 "" +#line 18913 "" i__9[3] = 5, a__6[3] = "barno"; -#line 18564 "" +#line 18913 "" s_cat(ch__4, a__6, i__9, &c__4, (ftnlen)14); -#line 18564 "" +#line 18913 "" do_fio(&c__1, ch__4, (ftnlen)14); -#line 18564 "" +#line 18913 "" i__2 = comgrace_1.mbrest - 1; -#line 18564 "" +#line 18913 "" do_fio(&c__1, (char *)&i__2, (ftnlen)sizeof(integer)); -#line 18564 "" +#line 18913 "" do_fio(&c__1, "%", (ftnlen)1); -#line 18564 "" +#line 18913 "" e_wsfe(); -#line 18566 "" +#line 18915 "" } -#line 18567 "" +#line 18916 "" } else if (iscwr) { /* Centered whole-bar rests. Set flag to pass to pmxb at start of NEXT bar */ /* to check for new clef and add space by redefining \CenterBar */ -#line 18572 "" +#line 18921 "" comclefrests_1.centrests = TRUE_; /* Writing concatenation */ -#line 18573 "" +#line 18922 "" i__9[0] = 1, a__6[0] = all_1.sq; -#line 18573 "" +#line 18922 "" i__9[1] = 3, a__6[1] = "def"; -#line 18573 "" +#line 18922 "" i__9[2] = 1, a__6[2] = all_1.sq; -#line 18573 "" +#line 18922 "" i__9[3] = 8, a__6[3] = "value{0}"; -#line 18573 "" - s_cat(ch__20, a__6, i__9, &c__4, (ftnlen)13); -#line 18573 "" - addstr_(ch__20, &c__13, soutq, &lsout, (ftnlen)13, (ftnlen)80); +#line 18922 "" + s_cat(ch__18, a__6, i__9, &c__4, (ftnlen)13); +#line 18922 "" + addstr_(ch__18, &c__13, soutq, &lsout, (ftnlen)13, (ftnlen)80); /* Writing concatenation */ -#line 18574 "" +#line 18923 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 18574 "" +#line 18923 "" i__3[1] = 3, a__1[1] = "def"; -#line 18574 "" +#line 18923 "" i__3[2] = 1, a__1[2] = all_1.sq; -#line 18574 "" +#line 18923 "" i__3[3] = 10, a__1[3] = "atnextbar{"; -#line 18574 "" +#line 18923 "" i__3[4] = 1, a__1[4] = all_1.sq; -#line 18574 "" +#line 18923 "" i__3[5] = 6, a__1[5] = "znotes"; -#line 18574 "" +#line 18923 "" s_cat(ch__21, a__1, i__3, &c__6, (ftnlen)22); -#line 18574 "" +#line 18923 "" addstr_(ch__21, &c__22, soutq, &lsout, (ftnlen)22, (ftnlen)80); -#line 18576 "" +#line 18925 "" i__7 = all_1.nv; -#line 18576 "" +#line 18925 "" for (all_1.iv = 1; all_1.iv <= i__7; ++all_1.iv) { /* added */ -#line 18578 "" +#line 18927 "" lnote = 0; -#line 18580 "" +#line 18929 "" i__2 = commvl_1.nvmx[all_1.iv - 1]; -#line 18580 "" +#line 18929 "" for (kv = 1; kv <= i__2; ++kv) { -#line 18581 "" +#line 18930 "" commvl_1.ivx = commvl_1.ivmx[all_1.iv + kv * 24 - 25]; -#line 18582 "" +#line 18931 "" if (cwrest[commvl_1.ivx]) { /* Writing concatenation */ -#line 18583 "" +#line 18932 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 18583 "" +#line 18932 "" i__4[1] = 10, a__2[1] = "CenterBar{"; -#line 18583 "" +#line 18932 "" s_cat(ch__9, a__2, i__4, &c__2, (ftnlen)11); -#line 18583 "" +#line 18932 "" addstr_(ch__9, &c__11, soutq, &lsout, (ftnlen)11, (ftnlen) 80); -#line 18584 "" +#line 18933 "" if (! comcwrf_1.cwrferm[commvl_1.ivx - 1]) { -#line 18585 "" +#line 18934 "" if (lcwr[commvl_1.ivx - 1] >= 11 && *(unsigned char *) &cwrq[(commvl_1.ivx - 1) * 79 + 10] != 'p') { /* Kluge to use new definitions for centered, stacked rests */ -#line 18589 "" +#line 18938 "" if (s_cmp(cwrq + ((commvl_1.ivx - 1) * 79 + 1), "liftpause", (ftnlen)9, (ftnlen)9) == 0 || s_cmp(cwrq + ((commvl_1.ivx - 1) * 79 + 1), "liftPAuse", (ftnlen)9, (ftnlen)9) == 0) { -#line 18589 "" +#line 18938 "" *(unsigned char *)&cwrq[(commvl_1.ivx - 1) * 79 + 9] = 'c'; -#line 18589 "" +#line 18938 "" } -#line 18592 "" +#line 18941 "" } -#line 18593 "" +#line 18942 "" addstr_(cwrq + (commvl_1.ivx - 1) * 79, &lcwr[ commvl_1.ivx - 1], soutq, &lsout, lcwr[ commvl_1.ivx - 1], (ftnlen)80); /* Writing concatenation */ -#line 18595 "" +#line 18944 "" i__6[0] = 6, a__4[0] = "}{-2}{"; -#line 18595 "" +#line 18944 "" i__6[1] = 1, a__4[1] = all_1.sq; -#line 18595 "" +#line 18944 "" i__6[2] = 6, a__4[2] = "value}"; -#line 18595 "" - s_cat(ch__20, a__4, i__6, &c__3, (ftnlen)13); -#line 18595 "" - addstr_(ch__20, &c__13, soutq, &lsout, (ftnlen)13, ( +#line 18944 "" + s_cat(ch__18, a__4, i__6, &c__3, (ftnlen)13); +#line 18944 "" + addstr_(ch__18, &c__13, soutq, &lsout, (ftnlen)13, ( ftnlen)80); -#line 18596 "" +#line 18945 "" } else { /* Fermata on centered rest. Will need to fix up level. */ /* 12/6/07 shift it left so it's centered over rest */ /* Writing concatenation */ -#line 18601 "" +#line 18950 "" i__15[0] = lnote, a__9[0] = notexq; -#line 18601 "" +#line 18950 "" i__15[1] = 1, a__9[1] = all_1.sq; -#line 18601 "" +#line 18950 "" i__15[2] = 13, a__9[2] = "loffset{.33}{"; -#line 18601 "" +#line 18950 "" i__15[3] = 1, a__9[3] = all_1.sq; -#line 18601 "" +#line 18950 "" i__15[4] = 11, a__9[4] = "fermataup7}"; -#line 18601 "" +#line 18950 "" i__15[5] = lcwr[commvl_1.ivx - 1], a__9[5] = cwrq + ( commvl_1.ivx - 1) * 79; -#line 18601 "" +#line 18950 "" i__15[6] = 6, a__9[6] = "}{-2}{"; -#line 18601 "" +#line 18950 "" i__15[7] = 1, a__9[7] = all_1.sq; -#line 18601 "" +#line 18950 "" i__15[8] = 6, a__9[8] = "value}"; -#line 18601 "" +#line 18950 "" s_cat(notexq, a__9, i__15, &c__9, (ftnlen)79); -#line 18604 "" +#line 18953 "" lnote = lnote + 26 + lcwr[commvl_1.ivx - 1] + 13; -#line 18605 "" +#line 18954 "" addstr_(notexq, &lnote, soutq, &lsout, (ftnlen)79, ( ftnlen)80); -#line 18606 "" +#line 18955 "" comcwrf_1.cwrferm[commvl_1.ivx - 1] = FALSE_; -#line 18607 "" +#line 18956 "" } -#line 18608 "" +#line 18957 "" } -#line 18609 "" +#line 18958 "" /* L61: */ -#line 18609 "" +#line 18958 "" } -#line 18610 "" +#line 18959 "" if (all_1.iv != all_1.nv) { -#line 18610 "" +#line 18959 "" addstr_(all_1.sepsymq + (all_1.iv - 1), &c__1, soutq, &lsout, (ftnlen)1, (ftnlen)80); -#line 18610 "" +#line 18959 "" } -#line 18611 "" +#line 18960 "" /* L60: */ -#line 18611 "" +#line 18960 "" } -#line 18612 "" +#line 18961 "" if (comlast_1.islast) { /* Writing concatenation */ -#line 18613 "" +#line 18962 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 18613 "" +#line 18962 "" i__4[1] = 4, a__2[1] = "en}%"; -#line 18613 "" - s_cat(ch__18, a__2, i__4, &c__2, (ftnlen)5); -#line 18613 "" - addstr_(ch__18, &c__5, soutq, &lsout, (ftnlen)5, (ftnlen)80); -#line 18614 "" +#line 18962 "" + s_cat(ch__19, a__2, i__4, &c__2, (ftnlen)5); +#line 18962 "" + addstr_(ch__19, &c__5, soutq, &lsout, (ftnlen)5, (ftnlen)80); +#line 18963 "" if (lsout > 0) { -#line 18614 "" - s_wsfe(&io___1138); -#line 18614 "" +#line 18963 "" + s_wsfe(&io___1157); +#line 18963 "" do_fio(&c__1, soutq, lsout); -#line 18614 "" +#line 18963 "" e_wsfe(); -#line 18614 "" +#line 18963 "" } -#line 18615 "" +#line 18964 "" } -#line 18616 "" +#line 18965 "" } /* End of block for centered whole-bar rests and multi-bar rests */ @@ -44398,52 +45328,52 @@ L65: /* If at end of block, save durations of last notes in bar, for possible use */ /* if clef changes at start of next bar */ -#line 18623 "" +#line 18972 "" if (all_1.ibar == all_1.nbars) { -#line 18624 "" +#line 18973 "" i__7 = all_1.nv; -#line 18624 "" +#line 18973 "" for (all_1.iv = 1; all_1.iv <= i__7; ++all_1.iv) { -#line 18625 "" +#line 18974 "" i__2 = commvl_1.nvmx[all_1.iv - 1]; -#line 18625 "" +#line 18974 "" for (kv = 1; kv <= i__2; ++kv) { -#line 18626 "" +#line 18975 "" commvl_1.ivx = commvl_1.ivmx[all_1.iv + kv * 24 - 25]; -#line 18627 "" +#line 18976 "" comnsp_2.prevtn[commvl_1.ivx - 1] = all_1.tnote[ comipl2_1.ipl2[commvl_1.ivx + all_1.nn[commvl_1.ivx - 1] * 24 - 25] - 1]; -#line 18628 "" +#line 18977 "" /* L63: */ -#line 18628 "" +#line 18977 "" } -#line 18628 "" +#line 18977 "" } -#line 18629 "" +#line 18978 "" } /* Update time for midi. This is only used for the event track */ -#line 18633 "" +#line 18982 "" if (commidi_1.ismidi) { -#line 18634 "" +#line 18983 "" comevent_1.miditime += all_1.lenbar * 15; /* If pickup, write the real time signature to the event track. Cannot use */ /* mtrnuml since it was reset to 0, have to recompute it */ -#line 18639 "" +#line 18988 "" if (all_1.lenb0 == all_1.lenbar) { -#line 18639 "" +#line 18988 "" i__2 = all_1.mtrdenl * all_1.lenb1 / 64; -#line 18639 "" +#line 18988 "" midievent_("m", &i__2, &all_1.mtrdenl, (ftnlen)1); -#line 18639 "" +#line 18988 "" } -#line 18641 "" +#line 18990 "" } -#line 18642 "" +#line 18991 "" return 0; } /* make2bar_ */ @@ -44509,185 +45439,185 @@ L65: /* * ibaroff,udsp(nkb),wheadpt,gotclef,sqzb(maxblks) */ /* logical rest,firstline,newmeter,gotclef */ -#line 18691 "" +#line 19040 "" linecom_1.elskb = 0.f; -#line 18692 "" +#line 19041 "" linecom_1.tnminb[c1omnotes_1.ibarcnt - 1] = 1e3f; -#line 18693 "" +#line 19042 "" i__1 = a1ll_2.nv; -#line 18693 "" +#line 19042 "" for (a1ll_2.iv = 1; a1ll_2.iv <= i__1; ++a1ll_2.iv) { -#line 18694 "" +#line 19043 "" i__2 = c1ommvl_1.nvmx[a1ll_2.iv - 1]; -#line 18694 "" +#line 19043 "" for (kv = 1; kv <= i__2; ++kv) { -#line 18695 "" +#line 19044 "" c1ommvl_1.ivx = c1ommvl_1.ivmx[a1ll_2.iv + kv * 24 - 25]; -#line 18696 "" +#line 19045 "" if (a1ll_2.ibar > 1) { -#line 18697 "" +#line 19046 "" a1ll_2.nn[c1ommvl_1.ivx - 1] = a1ll_2.nib[c1ommvl_1.ivx + a1ll_2.ibar * 24 - 25] - a1ll_2.nib[c1ommvl_1.ivx + ( a1ll_2.ibar - 1) * 24 - 25]; -#line 18698 "" +#line 19047 "" } else { -#line 18699 "" +#line 19048 "" a1ll_2.nn[c1ommvl_1.ivx - 1] = a1ll_2.nib[c1ommvl_1.ivx + a1ll_2.ibar * 24 - 25]; -#line 18700 "" +#line 19049 "" } -#line 18701 "" +#line 19050 "" /* L1: */ -#line 18701 "" +#line 19050 "" } -#line 18701 "" +#line 19050 "" } /* initialize list note counter, time(iv), curr. note(iv) */ -#line 18705 "" +#line 19054 "" ilnc = 1; -#line 18706 "" +#line 19055 "" i__2 = a1ll_2.nv; -#line 18706 "" +#line 19055 "" for (a1ll_2.iv = 1; a1ll_2.iv <= i__2; ++a1ll_2.iv) { -#line 18707 "" +#line 19056 "" i__1 = c1ommvl_1.nvmx[a1ll_2.iv - 1]; -#line 18707 "" +#line 19056 "" for (kv = 1; kv <= i__1; ++kv) { -#line 18708 "" +#line 19057 "" c1ommvl_1.ivx = c1ommvl_1.ivmx[a1ll_2.iv + kv * 24 - 25]; -#line 18709 "" +#line 19058 "" cnn[c1ommvl_1.ivx - 1] = 1; -#line 18710 "" +#line 19059 "" a1ll_2.ivxo[ilnc - 1] = c1ommvl_1.ivx; -#line 18711 "" +#line 19060 "" a1ll_2.ipo[ilnc - 1] = 1; -#line 18712 "" +#line 19061 "" a1ll_2.to[ilnc - 1] = 0.f; -#line 18713 "" +#line 19062 "" tnote[ilnc - 1] = fnote_(a1ll_2.nodur, &c1ommvl_1.ivx, &c__1, c1ommvl_1.nacc); -#line 18714 "" +#line 19063 "" xit[c1ommvl_1.ivx - 1] = tnote[ilnc - 1]; -#line 18715 "" +#line 19064 "" if ((r__1 = xit[c1ommvl_1.ivx - 1] - a1ll_2.lenbar, dabs(r__1)) < comtol_1.tol) { -#line 18715 "" +#line 19064 "" xit[c1ommvl_1.ivx - 1] = 1e3f; -#line 18715 "" +#line 19064 "" } -#line 18716 "" +#line 19065 "" ++ilnc; -#line 18717 "" +#line 19066 "" /* L4: */ -#line 18717 "" +#line 19066 "" } -#line 18717 "" +#line 19066 "" } /* Build the list */ -#line 18721 "" +#line 19070 "" L5: /* Determine which voice comes next from end of notes done so far. */ /* tmin is the earliest ending time of notes done so far */ -#line 18726 "" +#line 19075 "" tmin = 1e3f; -#line 18727 "" +#line 19076 "" i__1 = a1ll_2.nv; -#line 18727 "" +#line 19076 "" for (a1ll_2.iv = 1; a1ll_2.iv <= i__1; ++a1ll_2.iv) { -#line 18728 "" +#line 19077 "" i__2 = c1ommvl_1.nvmx[a1ll_2.iv - 1]; -#line 18728 "" +#line 19077 "" for (kv = 1; kv <= i__2; ++kv) { -#line 18729 "" +#line 19078 "" c1ommvl_1.ivx = c1ommvl_1.ivmx[a1ll_2.iv + kv * 24 - 25]; /* Computing MIN */ -#line 18730 "" +#line 19079 "" r__1 = tmin, r__2 = xit[c1ommvl_1.ivx - 1]; -#line 18730 "" +#line 19079 "" tminn = dmin(r__1,r__2); -#line 18731 "" +#line 19080 "" if (tminn < tmin) { -#line 18732 "" +#line 19081 "" tmin = tminn; -#line 18733 "" +#line 19082 "" ivnext = c1ommvl_1.ivx; -#line 18734 "" +#line 19083 "" } -#line 18735 "" +#line 19084 "" /* L6: */ -#line 18735 "" +#line 19084 "" } -#line 18735 "" +#line 19084 "" } -#line 18736 "" +#line 19085 "" if (tmin > 999.f) { -#line 18736 "" +#line 19085 "" goto L7; -#line 18736 "" +#line 19085 "" } -#line 18737 "" +#line 19086 "" a1ll_2.ivxo[ilnc - 1] = ivnext; -#line 18738 "" +#line 19087 "" ++cnn[ivnext - 1]; -#line 18739 "" +#line 19088 "" a1ll_2.ipo[ilnc - 1] = cnn[ivnext - 1]; -#line 18740 "" +#line 19089 "" a1ll_2.to[ilnc - 1] = tmin; /* Check if this voice is done */ -#line 18744 "" +#line 19093 "" tnote[ilnc - 1] = fnote_(a1ll_2.nodur, &ivnext, &cnn[ivnext - 1], c1ommvl_1.nacc); -#line 18745 "" +#line 19094 "" if (cnn[ivnext - 1] == a1ll_2.nn[ivnext - 1]) { -#line 18746 "" +#line 19095 "" xit[ivnext - 1] = 1e3f; -#line 18747 "" +#line 19096 "" } else { -#line 18748 "" +#line 19097 "" xit[ivnext - 1] += tnote[ilnc - 1]; -#line 18749 "" +#line 19098 "" } -#line 18750 "" +#line 19099 "" ++ilnc; -#line 18751 "" +#line 19100 "" goto L5; -#line 18752 "" +#line 19101 "" L7: -#line 18753 "" +#line 19102 "" ntot = ilnc - 1; -#line 18754 "" +#line 19103 "" if (ntot > 600) { -#line 18755 "" +#line 19104 "" printl_(" ", (ftnlen)1); -#line 18756 "" +#line 19105 "" printl_("Cannot have more than 600 notes per bar, stopping", (ftnlen) 49); -#line 18757 "" +#line 19106 "" stop1_(); -#line 18758 "" +#line 19107 "" } -#line 18759 "" +#line 19108 "" i__2 = ntot - 1; -#line 18759 "" +#line 19108 "" for (in = 1; in <= i__2; ++in) { -#line 18760 "" +#line 19109 "" a1ll_2.tno[in - 1] = a1ll_2.to[in] - a1ll_2.to[in - 1]; -#line 18761 "" +#line 19110 "" /* L8: */ -#line 18761 "" +#line 19110 "" } -#line 18762 "" +#line 19111 "" a1ll_2.tno[ntot - 1] = fnote_(a1ll_2.nodur, &a1ll_2.ivxo[ntot - 1], & a1ll_2.ipo[ntot - 1], c1ommvl_1.nacc); -#line 18763 "" +#line 19112 "" tnote[ntot - 1] = a1ll_2.tno[ntot - 1]; /* Debug writes */ @@ -44702,198 +45632,198 @@ L7: /* Done w/ list. Initialize loop for building note blocks: */ -#line 18777 "" +#line 19126 "" ib = 1; -#line 18778 "" +#line 19127 "" istart[0] = 1; -#line 18779 "" +#line 19128 "" space[0] = 0.f; -#line 18780 "" +#line 19129 "" in = 1; /* Start the loop */ -#line 18784 "" +#line 19133 "" L9: -#line 18785 "" +#line 19134 "" if (in == ntot) { -#line 18786 "" +#line 19135 "" if (space[ib - 1] < comtol_1.tol) { -#line 18787 "" +#line 19136 "" space[ib - 1] = a1ll_2.tno[in - 1]; /* Last gap in bar is spanned by a note, so cannot need a squeeze. */ -#line 18791 "" +#line 19140 "" squez[ib - 1] = 1.f; -#line 18792 "" +#line 19141 "" } -#line 18793 "" +#line 19142 "" istop[ib - 1] = ntot; /* From here flow out of this if block and into block-setup */ -#line 18797 "" +#line 19146 "" } else if (space[ib - 1] < comtol_1.tol) { /* space hasn't been set yet, so tentatively set: */ -#line 18801 "" +#line 19150 "" space[ib - 1] = a1ll_2.tno[in - 1]; -#line 18802 "" +#line 19151 "" if (space[ib - 1] < comtol_1.tol) { -#line 18803 "" +#line 19152 "" ++in; -#line 18804 "" +#line 19153 "" } else { /* Tentative space tno(in) is non-zero. Set squez, which will be kept (since */ /* it is a unique property of the particular increment starting here) : */ -#line 18809 "" +#line 19158 "" squez[ib - 1] = getsquez_(&in, &ntot, &space[ib - 1], tnote, a1ll_2.to); -#line 18810 "" +#line 19159 "" istop[ib - 1] = in; -#line 18811 "" +#line 19160 "" } -#line 18812 "" +#line 19161 "" goto L9; -#line 18813 "" +#line 19162 "" } else if (a1ll_2.tno[in] < comtol_1.tol) { /* This is not the last note in the space, so */ -#line 18817 "" +#line 19166 "" ++in; -#line 18818 "" +#line 19167 "" goto L9; -#line 18819 "" +#line 19168 "" } else if ((r__1 = a1ll_2.tno[in] - space[ib - 1], dabs(r__1)) < comtol_1.tol) { /* Next increment has same space. Does it have same squez? */ -#line 18823 "" +#line 19172 "" i__2 = in + 1; -#line 18823 "" +#line 19172 "" xsquez = getsquez_(&i__2, &ntot, &space[ib - 1], tnote, a1ll_2.to); /* If it does have the same squez, loop, otherwise flow out */ -#line 18827 "" +#line 19176 "" if ((r__1 = xsquez - squez[ib - 1], dabs(r__1)) < comtol_1.tol) { /* Keep spacing the same, update tentative stop point */ -#line 18831 "" +#line 19180 "" ++in; -#line 18832 "" +#line 19181 "" istop[ib - 1] = in; -#line 18833 "" +#line 19182 "" goto L9; -#line 18834 "" +#line 19183 "" } -#line 18835 "" +#line 19184 "" } /* At this point istart, istop, space, and squez are good, so close out block */ -#line 18839 "" +#line 19188 "" tstart[ib - 1] = a1ll_2.to[istart[ib - 1] - 1]; /* Compute elemskips assuming no flattening to increase min space. The formula */ /* is only correct if f1eon(t) = sqrt(t/2); more generally (after possible */ /* flattening in pmxb), elsperns = squez*feon(space/squez) */ -#line 18845 "" +#line 19194 "" r__1 = space[ib - 1] * squez[ib - 1]; -#line 18845 "" +#line 19194 "" elsperns = f1eon_(&r__1); -#line 18846 "" +#line 19195 "" if (istop[ib - 1] == ntot) { -#line 18847 "" +#line 19196 "" r__1 = (a1ll_2.lenbar - tstart[ib - 1]) / space[ib - 1]; -#line 18847 "" +#line 19196 "" nnsk = i_nint(&r__1); -#line 18848 "" +#line 19197 "" } else { -#line 18849 "" +#line 19198 "" r__1 = (a1ll_2.to[istop[ib - 1]] - tstart[ib - 1]) / space[ib - 1]; -#line 18849 "" +#line 19198 "" nnsk = i_nint(&r__1); -#line 18850 "" +#line 19199 "" } -#line 18851 "" +#line 19200 "" linecom_1.elskb += elsperns * nnsk; -#line 18852 "" +#line 19201 "" if (c1omnotes_1.nptr[c1omnotes_1.ibarcnt] > c1omnotes_1.nptr[ c1omnotes_1.ibarcnt - 1]) { -#line 18853 "" +#line 19202 "" catspace_(&space[ib - 1], &squez[ib - 1], &nnsk); -#line 18854 "" +#line 19203 "" } else { /* This is the first entry for this bar */ -#line 18858 "" +#line 19207 "" c1omnotes_1.nnpd[c1omnotes_1.nptr[c1omnotes_1.ibarcnt - 1] - 1] = nnsk; -#line 18859 "" +#line 19208 "" c1omnotes_1.durb[c1omnotes_1.nptr[c1omnotes_1.ibarcnt - 1] - 1] = space[ib - 1]; -#line 18860 "" +#line 19209 "" c1omnotes_1.sqzb[c1omnotes_1.nptr[c1omnotes_1.ibarcnt - 1] - 1] = squez[ib - 1]; -#line 18861 "" +#line 19210 "" ++c1omnotes_1.nptr[c1omnotes_1.ibarcnt]; -#line 18862 "" +#line 19211 "" } /* Update minimum space spanned by a note */ -#line 18866 "" +#line 19215 "" if ((r__1 = squez[ib - 1] - 1, dabs(r__1)) < comtol_1.tol) { /* Computing MIN */ -#line 18866 "" +#line 19215 "" r__2 = linecom_1.tnminb[c1omnotes_1.ibarcnt - 1], r__3 = space[ib - 1] ; -#line 18866 "" +#line 19215 "" linecom_1.tnminb[c1omnotes_1.ibarcnt - 1] = dmin(r__2,r__3); -#line 18866 "" +#line 19215 "" } -#line 18868 "" +#line 19217 "" if (istop[ib - 1] == ntot) { -#line 18868 "" +#line 19217 "" goto L15; -#line 18868 "" +#line 19217 "" } /* End of spatial accounting for now */ -#line 18872 "" +#line 19221 "" ++ib; -#line 18873 "" +#line 19222 "" istart[ib - 1] = istop[ib - 2] + 1; -#line 18874 "" +#line 19223 "" in = istart[ib - 1]; /* Set tentative block space for new block */ -#line 18878 "" +#line 19227 "" space[ib - 1] = a1ll_2.tno[in - 1]; -#line 18879 "" +#line 19228 "" if (space[ib - 1] > comtol_1.tol) { -#line 18879 "" +#line 19228 "" squez[ib - 1] = getsquez_(&in, &ntot, &space[ib - 1], tnote, a1ll_2.to); -#line 18879 "" +#line 19228 "" } -#line 18881 "" +#line 19230 "" istop[ib - 1] = in; -#line 18882 "" +#line 19231 "" goto L9; -#line 18883 "" +#line 19232 "" L15: /* nb = ib */ @@ -44904,7 +45834,7 @@ L15: /* write(*,'(16f5.1)')(space(ib),ib=1,nb) */ /* write(*,'(16f5.1)')(squez(ib),ib=1,nb) */ -#line 18893 "" +#line 19242 "" return 0; } /* makeabar_ */ @@ -44927,136 +45857,136 @@ L15: static integer nbytes, misperq; /* Fortran I/O blocks */ - static cilist io___1162 = { 0, 6, 0, 0, 0 }; + static cilist io___1181 = { 0, 6, 0, 0, 0 }; /* We now store "conductor" events in mmidi(numchan,.), and count bytes */ /* with imidi(numchan) */ -#line 18912 "" +#line 19261 "" i__1 = comevent_1.miditime - comevent_1.lasttime; -#line 18912 "" +#line 19261 "" idur = isetvarlen_(&i__1, &nbytes); -#line 18913 "" +#line 19262 "" commidi_1.imidi[commidi_1.numchan] = commidi_1.imidi[commidi_1.numchan] + nbytes + 1; -#line 18914 "" +#line 19263 "" i__1 = nbytes; -#line 18914 "" +#line 19263 "" for (i__ = 1; i__ <= i__1; ++i__) { -#line 18915 "" +#line 19264 "" commidi_1.mmidi[commidi_1.numchan + (commidi_1.imidi[ commidi_1.numchan] - i__) * 25 - 25] = (shortint) (idur % 256) ; -#line 18916 "" +#line 19265 "" idur = lbit_shift(idur, (ftnlen)-8); -#line 18917 "" +#line 19266 "" /* L1: */ -#line 18917 "" +#line 19266 "" } -#line 18918 "" +#line 19267 "" commidi_1.mmidi[commidi_1.numchan + commidi_1.imidi[commidi_1.numchan] * 25 - 25] = 255; -#line 18919 "" +#line 19268 "" if (*(unsigned char *)typeq == 't') { /* Tempo event. in1 = quarters per minute (integer) */ -#line 18923 "" +#line 19272 "" commidi_1.mmidi[commidi_1.numchan + (commidi_1.imidi[ commidi_1.numchan] + 1) * 25 - 25] = 81; -#line 18924 "" +#line 19273 "" commidi_1.mmidi[commidi_1.numchan + (commidi_1.imidi[ commidi_1.numchan] + 2) * 25 - 25] = 3; -#line 18925 "" +#line 19274 "" r__1 = 6e7f / *in1; -#line 18925 "" +#line 19274 "" misperq = i_nint(&r__1); -#line 18926 "" +#line 19275 "" for (i__ = 1; i__ <= 3; ++i__) { -#line 18927 "" +#line 19276 "" commidi_1.mmidi[commidi_1.numchan + (commidi_1.imidi[ commidi_1.numchan] + 6 - i__) * 25 - 25] = (shortint) ( misperq % 256); -#line 18928 "" +#line 19277 "" misperq = lbit_shift(misperq, (ftnlen)-8); -#line 18929 "" +#line 19278 "" /* L2: */ -#line 18929 "" +#line 19278 "" } -#line 18930 "" +#line 19279 "" commidi_1.imidi[commidi_1.numchan] += 5; -#line 18931 "" +#line 19280 "" } else if (*(unsigned char *)typeq == 'm') { /* Meter event. in1=numerator, in2=denom (power of 2) */ -#line 18935 "" +#line 19284 "" commidi_1.mmidi[commidi_1.numchan + (commidi_1.imidi[ commidi_1.numchan] + 1) * 25 - 25] = 88; -#line 18936 "" +#line 19285 "" commidi_1.mmidi[commidi_1.numchan + (commidi_1.imidi[ commidi_1.numchan] + 2) * 25 - 25] = 4; -#line 18937 "" +#line 19286 "" commidi_1.mmidi[commidi_1.numchan + (commidi_1.imidi[ commidi_1.numchan] + 3) * 25 - 25] = (shortint) (*in1); -#line 18938 "" +#line 19287 "" if (*in2 > 0) { -#line 18939 "" +#line 19288 "" commidi_1.mmidi[commidi_1.numchan + (commidi_1.imidi[ commidi_1.numchan] + 4) * 25 - 25] = (shortint) log2_(in2) ; -#line 18940 "" +#line 19289 "" } else { -#line 18941 "" +#line 19290 "" commidi_1.mmidi[commidi_1.numchan + (commidi_1.imidi[ commidi_1.numchan] + 4) * 25 - 25] = 0; -#line 18942 "" +#line 19291 "" } -#line 18943 "" +#line 19292 "" commidi_1.mmidi[commidi_1.numchan + (commidi_1.imidi[ commidi_1.numchan] + 5) * 25 - 25] = 24; -#line 18944 "" +#line 19293 "" commidi_1.mmidi[commidi_1.numchan + (commidi_1.imidi[ commidi_1.numchan] + 6) * 25 - 25] = 8; -#line 18945 "" +#line 19294 "" commidi_1.imidi[commidi_1.numchan] += 6; -#line 18946 "" +#line 19295 "" } else if (*(unsigned char *)typeq == 'k') { /* Keychange event. in1 = isig */ -#line 18950 "" +#line 19299 "" commidi_1.mmidi[commidi_1.numchan + (commidi_1.imidi[ commidi_1.numchan] + 1) * 25 - 25] = 89; -#line 18951 "" +#line 19300 "" commidi_1.mmidi[commidi_1.numchan + (commidi_1.imidi[ commidi_1.numchan] + 2) * 25 - 25] = 2; -#line 18952 "" +#line 19301 "" commidi_1.mmidi[commidi_1.numchan + (commidi_1.imidi[ commidi_1.numchan] + 3) * 25 - 25] = (shortint) ((*in1 + 256) % 256); -#line 18953 "" +#line 19302 "" commidi_1.mmidi[commidi_1.numchan + (commidi_1.imidi[ commidi_1.numchan] + 4) * 25 - 25] = 0; -#line 18954 "" +#line 19303 "" commidi_1.imidi[commidi_1.numchan] += 4; -#line 18955 "" +#line 19304 "" } else { -#line 18956 "" - s_wsle(&io___1162); -#line 18956 "" +#line 19305 "" + s_wsle(&io___1181); +#line 19305 "" do_lio(&c__9, &c__1, "Program flameout in midievent", (ftnlen)29); -#line 18956 "" +#line 19305 "" e_wsle(); -#line 18957 "" +#line 19306 "" stop1_(); -#line 18958 "" +#line 19307 "" } -#line 18959 "" +#line 19308 "" comevent_1.lasttime = comevent_1.miditime; -#line 18960 "" +#line 19309 "" return 0; } /* midievent_ */ @@ -45075,55 +46005,55 @@ L15: static integer lenout; /* Fortran I/O blocks */ - static cilist io___1163 = { 0, 0, 1, "(a)", 0 }; - static cilist io___1166 = { 0, 0, 0, "(a)", 0 }; + static cilist io___1182 = { 0, 0, 1, "(a)", 0 }; + static cilist io___1185 = { 0, 0, 0, "(a)", 0 }; -#line 18965 "" +#line 19314 "" *done = FALSE_; -#line 18966 "" - io___1163.ciunit = *iuin; -#line 18966 "" - i__1 = s_rsfe(&io___1163); -#line 18966 "" +#line 19315 "" + io___1182.ciunit = *iuin; +#line 19315 "" + i__1 = s_rsfe(&io___1182); +#line 19315 "" if (i__1 != 0) { -#line 18966 "" +#line 19315 "" goto L1; -#line 18966 "" +#line 19315 "" } -#line 18966 "" +#line 19315 "" i__1 = do_fio(&c__1, outq, (ftnlen)129); -#line 18966 "" +#line 19315 "" if (i__1 != 0) { -#line 18966 "" +#line 19315 "" goto L1; -#line 18966 "" +#line 19315 "" } -#line 18966 "" +#line 19315 "" i__1 = e_rsfe(); -#line 18966 "" +#line 19315 "" if (i__1 != 0) { -#line 18966 "" +#line 19315 "" goto L1; -#line 18966 "" +#line 19315 "" } -#line 18967 "" +#line 19316 "" lenout = llen_(outq, &c__129, (ftnlen)129); -#line 18968 "" - io___1166.ciunit = *iuout; -#line 18968 "" - s_wsfe(&io___1166); -#line 18968 "" +#line 19317 "" + io___1185.ciunit = *iuout; +#line 19317 "" + s_wsfe(&io___1185); +#line 19317 "" do_fio(&c__1, outq, lenout); -#line 18968 "" +#line 19317 "" e_wsfe(); -#line 18969 "" +#line 19318 "" return 0; -#line 18970 "" +#line 19319 "" L1: -#line 18970 "" +#line 19319 "" *done = TRUE_; -#line 18971 "" +#line 19320 "" return 0; } /* moveln_ */ @@ -45143,55 +46073,55 @@ L1: /* This is called when (a) macro recording is just starting and */ /* (b) at the start of a new line, if recording is on */ -#line 18987 "" +#line 19336 "" if (! commac_1.mrecord) { /* Starting the macro */ -#line 18991 "" +#line 19340 "" c1ommac_1.ip1mac[commac_1.macnum - 1] = inbuff_1.ipbuf - inbuff_1.lbuf[inbuff_1.ilbuf - 2] + *iccount; -#line 18992 "" +#line 19341 "" c1ommac_1.il1mac[commac_1.macnum - 1] = inbuff_1.ilbuf - 1; -#line 18993 "" +#line 19342 "" c1ommac_1.ic1mac[commac_1.macnum - 1] = *iccount; -#line 18994 "" +#line 19343 "" commac_1.mrecord = TRUE_; -#line 18995 "" +#line 19344 "" } -#line 18996 "" +#line 19345 "" if (*iccount < 128) { -#line 18997 "" +#line 19346 "" i__1 = *iccount; -#line 18997 "" +#line 19346 "" *ndxm = i_indx(lineq + i__1, "M", 128 - i__1, (ftnlen)1); -#line 18998 "" +#line 19347 "" if (*ndxm > 0) { -#line 18998 "" +#line 19347 "" i__1 = *iccount; -#line 18998 "" +#line 19347 "" i__2 = 128 - *iccount; -#line 18998 "" +#line 19347 "" *ndxm = ntindex_(lineq + i__1, "M", &i__2, 128 - i__1, (ftnlen)1); -#line 18998 "" +#line 19347 "" } -#line 19000 "" +#line 19349 "" if (*ndxm > 0) { /* This line ends the macro. */ -#line 19004 "" +#line 19353 "" c1ommac_1.ip2mac[commac_1.macnum - 1] = inbuff_1.ipbuf - inbuff_1.lbuf[inbuff_1.ilbuf - 2] + *iccount + *ndxm; -#line 19005 "" +#line 19354 "" c1ommac_1.il2mac[commac_1.macnum - 1] = inbuff_1.ilbuf - 1; -#line 19006 "" +#line 19355 "" commac_1.mrecord = FALSE_; -#line 19007 "" +#line 19356 "" } -#line 19008 "" +#line 19357 "" } -#line 19009 "" +#line 19358 "" return 0; } /* mrec1_ */ @@ -45210,42 +46140,42 @@ integer ncmid_(integer *iv, integer *ip) static real xtime; /* Fortran I/O blocks */ - static cilist io___1169 = { 0, 6, 0, 0, 0 }; + static cilist io___1188 = { 0, 6, 0, 0, 0 }; -#line 19029 "" +#line 19378 "" if (comcc_1.ncc[*iv - 1] == 1) { -#line 19030 "" +#line 19379 "" ret_val = comcc_1.ncmidcc[*iv - 1]; -#line 19031 "" +#line 19380 "" } else { -#line 19032 "" +#line 19381 "" xtime = all_2.to[comipl2_1.ipl2[commvl_1.ivx + *ip * 24 - 25] - 1]; -#line 19033 "" +#line 19382 "" for (icc = comcc_1.ncc[*iv - 1]; icc >= 1; --icc) { -#line 19034 "" +#line 19383 "" if (xtime > comcc_1.tcc[*iv + icc * 24 - 25] - comtol_1.tol) { -#line 19035 "" +#line 19384 "" ret_val = comcc_1.ncmidcc[*iv + icc * 24 - 25]; -#line 19036 "" +#line 19385 "" return ret_val; -#line 19037 "" +#line 19386 "" } -#line 19038 "" +#line 19387 "" /* L1: */ -#line 19038 "" +#line 19387 "" } -#line 19039 "" - s_wsle(&io___1169); -#line 19039 "" +#line 19388 "" + s_wsle(&io___1188); +#line 19388 "" do_lio(&c__9, &c__1, "Problem in ncmid()", (ftnlen)18); -#line 19039 "" +#line 19388 "" e_wsle(); -#line 19040 "" +#line 19389 "" s_stop("", (ftnlen)0); -#line 19041 "" +#line 19390 "" } -#line 19042 "" +#line 19391 "" return ret_val; } /* ncmid_ */ @@ -45260,21 +46190,21 @@ integer ncmidf_(char *clefq, ftnlen clefq_len) /* Return middle line of a clef */ -#line 19048 "" +#line 19397 "" if (*(unsigned char *)clefq == '8') { /* treblelowoct; will treat as treble for this purpose */ -#line 19052 "" +#line 19401 "" ret_val = 35; -#line 19053 "" +#line 19402 "" } else { -#line 19054 "" +#line 19403 "" ret_val = (i_indx(" b6r5n4a3m2s1t0f7", clefq, (ftnlen)17, (ftnlen)1) / 2 << 1) + 21; -#line 19055 "" +#line 19404 "" } -#line 19056 "" +#line 19405 "" return ret_val; } /* ncmidf_ */ @@ -45284,60 +46214,60 @@ integer ncmidf_(char *clefq, ftnlen clefq_len) static integer j; extern integer ncmidf_(char *, ftnlen); -#line 19079 "" +#line 19428 "" commvl_1.nvmx[*jv - 1] = 1; -#line 19080 "" +#line 19429 "" commvl_1.ivmx[*jv - 1] = *jv; -#line 19081 "" +#line 19430 "" all_1.itsofar[*jv - 1] = 0; -#line 19082 "" +#line 19431 "" all_1.nnl[*jv - 1] = 0; -#line 19083 "" +#line 19432 "" comfb_1.nfb[*jv - 1] = 0; -#line 19084 "" +#line 19433 "" if (all_1.firstgulp || *change) { -#line 19085 "" +#line 19434 "" comcc_1.ncmidcc[*jv - 1] = ncmidf_(clefq, (ftnlen)1); -#line 19086 "" +#line 19435 "" } else { -#line 19087 "" +#line 19436 "" comcc_1.ncmidcc[*jv - 1] = comcc_1.ncmidcc[*jv + comcc_1.ncc[*jv - 1] * 24 - 25]; -#line 19088 "" +#line 19437 "" } -#line 19089 "" +#line 19438 "" comcc_1.tcc[*jv - 1] = 0.f; -#line 19090 "" +#line 19439 "" comcc_1.ncc[*jv - 1] = 1; -#line 19091 "" +#line 19440 "" comudsp_1.nudoff[*jv - 1] = 0; -#line 19092 "" +#line 19441 "" comcc_1.ndotmv[*jv - 1] = 0; -#line 19093 "" +#line 19442 "" for (j = 1; j <= 200; ++j) { -#line 19094 "" +#line 19443 "" all_1.irest[*jv + j * 24 - 25] = 0; -#line 19095 "" +#line 19444 "" all_1.islur[*jv + j * 24 - 25] = 0; -#line 19096 "" +#line 19445 "" all_1.ipl[*jv + j * 24 - 25] = 0; -#line 19097 "" +#line 19446 "" all_1.nacc[*jv + j * 24 - 25] = 0; -#line 19098 "" +#line 19447 "" all_1.iornq[*jv + j * 24 - 1] = 0; -#line 19099 "" +#line 19448 "" all_1.mult[*jv + j * 24 - 25] = 0; -#line 19100 "" +#line 19449 "" if (*jv <= 2) { -#line 19100 "" +#line 19449 "" all_1.isfig[*jv + (j << 1) - 3] = FALSE_; -#line 19100 "" +#line 19449 "" } -#line 19101 "" +#line 19450 "" /* L5: */ -#line 19101 "" +#line 19450 "" } -#line 19102 "" +#line 19451 "" return 0; } /* newvoice_ */ @@ -45364,118 +46294,118 @@ integer ncmidf_(char *clefq, ftnlen clefq_len) /* Returns name of note level with octave transpositions, updates noctup. */ -#line 19111 "" +#line 19460 "" nupfroma = (*nolev + 1) % 7; -#line 19112 "" +#line 19461 "" iname = nupfroma + 97; -#line 19113 "" +#line 19462 "" ioctup = (*nolev + 1) / 7 - 4; -#line 19114 "" +#line 19463 "" chax_(ch__1, (ftnlen)1, &iname); -#line 19114 "" +#line 19463 "" *(unsigned char *)noteqt = *(unsigned char *)&ch__1[0]; -#line 19115 "" +#line 19464 "" if (*ncmid == 23) { -#line 19115 "" +#line 19464 "" upcaseq_(ch__1, (ftnlen)1, noteqt, (ftnlen)1); -#line 19115 "" +#line 19464 "" *(unsigned char *)noteqt = *(unsigned char *)&ch__1[0]; -#line 19115 "" +#line 19464 "" } -#line 19116 "" +#line 19465 "" if (ioctup == comoct_1.noctup) { -#line 19117 "" +#line 19466 "" s_copy(noteq, noteqt, (ftnlen)8, (ftnlen)1); -#line 19118 "" +#line 19467 "" *lnote = 1; /* Must ALWAYS check if lnote=1 for use with functions requiring a blank */ -#line 19122 "" +#line 19471 "" } else if (ioctup > comoct_1.noctup) { /* Raise octave. Encase in {} */ -#line 19126 "" +#line 19475 "" ici__1.icierr = 0; -#line 19126 "" +#line 19475 "" ici__1.icirnum = 1; -#line 19126 "" +#line 19475 "" ici__1.icirlen = 8; -#line 19126 "" +#line 19475 "" ici__1.iciunit = noteq; -#line 19126 "" +#line 19475 "" ici__1.icifmt = "(8a1)"; -#line 19126 "" +#line 19475 "" s_wsfi(&ici__1); -#line 19126 "" +#line 19475 "" do_fio(&c__1, "{", (ftnlen)1); -#line 19126 "" +#line 19475 "" i__1 = ioctup - 1; -#line 19126 "" +#line 19475 "" for (i__ = comoct_1.noctup; i__ <= i__1; ++i__) { -#line 19126 "" +#line 19475 "" chax_(ch__2, (ftnlen)1, &c__39); -#line 19126 "" +#line 19475 "" *(unsigned char *)&ch__1[0] = *(unsigned char *)&ch__2[0]; -#line 19126 "" +#line 19475 "" do_fio(&c__1, ch__1, (ftnlen)1); -#line 19126 "" +#line 19475 "" } -#line 19126 "" +#line 19475 "" do_fio(&c__1, noteqt, (ftnlen)1); -#line 19126 "" +#line 19475 "" do_fio(&c__1, "}", (ftnlen)1); -#line 19126 "" +#line 19475 "" e_wsfi(); -#line 19128 "" +#line 19477 "" *lnote = ioctup + 3 - comoct_1.noctup; -#line 19129 "" +#line 19478 "" comoct_1.noctup = ioctup; -#line 19130 "" +#line 19479 "" } else { /* Lower octave */ -#line 19134 "" +#line 19483 "" ici__1.icierr = 0; -#line 19134 "" +#line 19483 "" ici__1.icirnum = 1; -#line 19134 "" +#line 19483 "" ici__1.icirlen = 8; -#line 19134 "" +#line 19483 "" ici__1.iciunit = noteq; -#line 19134 "" +#line 19483 "" ici__1.icifmt = "(8a1)"; -#line 19134 "" +#line 19483 "" s_wsfi(&ici__1); -#line 19134 "" +#line 19483 "" do_fio(&c__1, "{", (ftnlen)1); -#line 19134 "" +#line 19483 "" i__1 = comoct_1.noctup - 1; -#line 19134 "" +#line 19483 "" for (i__ = ioctup; i__ <= i__1; ++i__) { -#line 19134 "" +#line 19483 "" chax_(ch__2, (ftnlen)1, &c__96); -#line 19134 "" +#line 19483 "" *(unsigned char *)&ch__1[0] = *(unsigned char *)&ch__2[0]; -#line 19134 "" +#line 19483 "" do_fio(&c__1, ch__1, (ftnlen)1); -#line 19134 "" +#line 19483 "" } -#line 19134 "" +#line 19483 "" do_fio(&c__1, noteqt, (ftnlen)1); -#line 19134 "" +#line 19483 "" do_fio(&c__1, "}", (ftnlen)1); -#line 19134 "" +#line 19483 "" e_wsfi(); -#line 19136 "" +#line 19485 "" *lnote = comoct_1.noctup + 3 - ioctup; -#line 19137 "" +#line 19486 "" comoct_1.noctup = ioctup; -#line 19138 "" +#line 19487 "" } -#line 19139 "" +#line 19488 "" return 0; } /* notefq_ */ @@ -45518,980 +46448,980 @@ integer ncmidf_(char *clefq, ftnlen clefq_len) static integer lnoten; /* Fortran I/O blocks */ - static icilist io___1188 = { 0, noteq, 0, "(i2)", 2, 1 }; - static icilist io___1192 = { 0, numq, 0, "(i2)", 2, 1 }; - static icilist io___1193 = { 0, noteq+1, 0, "(i2)", 2, 1 }; - static icilist io___1194 = { 0, noteq+1, 0, "(i3)", 3, 1 }; + static icilist io___1207 = { 0, noteq, 0, "(i2)", 2, 1 }; + static icilist io___1211 = { 0, numq, 0, "(i2)", 2, 1 }; + static icilist io___1212 = { 0, noteq+1, 0, "(i2)", 2, 1 }; + static icilist io___1213 = { 0, noteq+1, 0, "(i3)", 3, 1 }; /* Returns non-beamed full note name */ -#line 19169 "" +#line 19518 "" ip = all_1.ipo[all_1.jn - 1]; -#line 19170 "" +#line 19519 "" nole = all_1.nolev[commvl_1.ivx + ip * 24 - 25]; /* Check for special situations with 2nds (see precrd) */ -#line 19174 "" +#line 19523 "" if (bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],30)) { -#line 19175 "" +#line 19524 "" --nole; -#line 19176 "" +#line 19525 "" } else if (bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],31)) { -#line 19177 "" +#line 19526 "" ++nole; -#line 19178 "" +#line 19527 "" } -#line 19179 "" +#line 19528 "" nodu = all_1.nodur[commvl_1.ivx + ip * 24 - 25]; -#line 19180 "" +#line 19529 "" if (! bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],0)) { -#line 19181 "" +#line 19530 "" i__1 = ncmid_(&all_1.iv, &ip); -#line 19181 "" +#line 19530 "" udqq_(ch__1, (ftnlen)1, &nole, &i__1, &all_1.islur[commvl_1.ivx + ip * 24 - 25], &commvl_1.nvmx[all_1.iv - 1], &commvl_1.ivx, & all_1.nv); -#line 19181 "" +#line 19530 "" *(unsigned char *)udq = *(unsigned char *)&ch__1[0]; -#line 19183 "" +#line 19532 "" } /* Check figure level */ /* if (figbass .and. isfig(ivx,ip) */ /* * .and. .not.btest(irest(ivx,ip),0)) then */ -#line 19189 "" +#line 19538 "" if (all_1.figbass && ! bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25], 0) && (commvl_1.ivx == 1 && all_1.isfig[(ip << 1) - 2] || commvl_1.ivx == comfig_1.ivxfig2 && all_1.isfig[(ip << 1) - 1])) { -#line 19192 "" +#line 19541 "" if (*(unsigned char *)udq == 'u' || nodu >= 64) { /* Upper or no stem, fnole (in noleunits) set by notehead */ -#line 19196 "" +#line 19545 "" fnole = (real) nole; -#line 19197 "" +#line 19546 "" } else { /* Lower stem, fnole set by bottom of stem */ -#line 19201 "" +#line 19550 "" fnole = nole - all_1.stemlen; -#line 19202 "" +#line 19551 "" } -#line 19203 "" +#line 19552 "" zmin = fnole - ncmid_(&commvl_1.ivx, &ip) + 4; -#line 19204 "" +#line 19553 "" if (commvl_1.ivx == 1) { /* Computing MAX */ -#line 19205 "" +#line 19554 "" r__1 = 4 - zmin; -#line 19205 "" +#line 19554 "" i__1 = all_1.ifigdr[(all_1.iline << 1) - 2], i__2 = i_nint(&r__1); -#line 19205 "" +#line 19554 "" all_1.ifigdr[(all_1.iline << 1) - 2] = max(i__1,i__2); -#line 19206 "" +#line 19555 "" } else { /* Computing MAX */ -#line 19207 "" +#line 19556 "" r__1 = 4 - zmin; -#line 19207 "" +#line 19556 "" i__1 = all_1.ifigdr[(all_1.iline << 1) - 1], i__2 = i_nint(&r__1); -#line 19207 "" +#line 19556 "" all_1.ifigdr[(all_1.iline << 1) - 1] = max(i__1,i__2); -#line 19208 "" +#line 19557 "" } -#line 19209 "" +#line 19558 "" } -#line 19210 "" +#line 19559 "" if (! bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],0)) { -#line 19211 "" +#line 19560 "" i__1 = ncmid_(&all_1.iv, &ip); -#line 19211 "" +#line 19560 "" notefq_(noteq, &lnoten, &nole, &i__1, (ftnlen)8); -#line 19212 "" +#line 19561 "" if (lnoten == 1) { -#line 19212 "" +#line 19561 "" addblank_(noteq, &lnoten, (ftnlen)8); -#line 19212 "" +#line 19561 "" } -#line 19213 "" +#line 19562 "" if (nodu == 1) { /* Writing concatenation */ -#line 19214 "" +#line 19563 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 19214 "" +#line 19563 "" i__3[1] = 4, a__1[1] = "cccc"; -#line 19214 "" +#line 19563 "" i__3[2] = 1, a__1[2] = udq; -#line 19214 "" +#line 19563 "" i__3[3] = lnoten, a__1[3] = noteq; -#line 19214 "" +#line 19563 "" s_cat(notexq, a__1, i__3, &c__4, (ftnlen)79); -#line 19215 "" +#line 19564 "" *lnote = lnoten + 6; -#line 19216 "" +#line 19565 "" } else if (nodu == 2) { /* Writing concatenation */ -#line 19217 "" +#line 19566 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 19217 "" +#line 19566 "" i__3[1] = 3, a__1[1] = "ccc"; -#line 19217 "" +#line 19566 "" i__3[2] = 1, a__1[2] = udq; -#line 19217 "" +#line 19566 "" i__3[3] = lnoten, a__1[3] = noteq; -#line 19217 "" +#line 19566 "" s_cat(notexq, a__1, i__3, &c__4, (ftnlen)79); -#line 19218 "" +#line 19567 "" *lnote = lnoten + 5; -#line 19219 "" +#line 19568 "" } else if (nodu == 4) { /* Writing concatenation */ -#line 19220 "" +#line 19569 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 19220 "" +#line 19569 "" i__3[1] = 2, a__1[1] = "cc"; -#line 19220 "" +#line 19569 "" i__3[2] = 1, a__1[2] = udq; -#line 19220 "" +#line 19569 "" i__3[3] = lnoten, a__1[3] = noteq; -#line 19220 "" +#line 19569 "" s_cat(notexq, a__1, i__3, &c__4, (ftnlen)79); -#line 19221 "" +#line 19570 "" *lnote = lnoten + 4; -#line 19222 "" +#line 19571 "" } else if (nodu == 8) { /* Writing concatenation */ -#line 19223 "" +#line 19572 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 19223 "" +#line 19572 "" i__3[1] = 1, a__1[1] = "c"; -#line 19223 "" +#line 19572 "" i__3[2] = 1, a__1[2] = udq; -#line 19223 "" +#line 19572 "" i__3[3] = lnoten, a__1[3] = noteq; -#line 19223 "" +#line 19572 "" s_cat(notexq, a__1, i__3, &c__4, (ftnlen)79); -#line 19224 "" +#line 19573 "" *lnote = lnoten + 3; -#line 19225 "" +#line 19574 "" } else if (nodu == 16) { /* Writing concatenation */ -#line 19226 "" +#line 19575 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 19226 "" +#line 19575 "" i__3[1] = 1, a__1[1] = "q"; -#line 19226 "" +#line 19575 "" i__3[2] = 1, a__1[2] = udq; -#line 19226 "" +#line 19575 "" i__3[3] = lnoten, a__1[3] = noteq; -#line 19226 "" +#line 19575 "" s_cat(notexq, a__1, i__3, &c__4, (ftnlen)79); -#line 19227 "" +#line 19576 "" *lnote = lnoten + 3; -#line 19228 "" +#line 19577 "" } else if (nodu == 32) { /* Writing concatenation */ -#line 19229 "" +#line 19578 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 19229 "" +#line 19578 "" i__3[1] = 1, a__1[1] = "h"; -#line 19229 "" +#line 19578 "" i__3[2] = 1, a__1[2] = udq; -#line 19229 "" +#line 19578 "" i__3[3] = lnoten, a__1[3] = noteq; -#line 19229 "" +#line 19578 "" s_cat(notexq, a__1, i__3, &c__4, (ftnlen)79); -#line 19230 "" +#line 19579 "" *lnote = lnoten + 3; -#line 19231 "" +#line 19580 "" } else if (nodu == 64) { /* Writing concatenation */ -#line 19232 "" +#line 19581 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 19232 "" +#line 19581 "" i__4[1] = 2, a__2[1] = "wh"; -#line 19232 "" +#line 19581 "" i__4[2] = lnoten, a__2[2] = noteq; -#line 19232 "" +#line 19581 "" s_cat(notexq, a__2, i__4, &c__3, (ftnlen)79); -#line 19233 "" +#line 19582 "" *lnote = lnoten + 3; -#line 19234 "" +#line 19583 "" } else if (nodu == 128) { /* notexq =sq//'zbreve'//noteq(1:lnoten)//sq//'sk' */ /* lnote = lnoten+10 */ /* Writing concatenation */ -#line 19237 "" +#line 19586 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 19237 "" +#line 19586 "" i__4[1] = 5, a__2[1] = "breve"; -#line 19237 "" +#line 19586 "" i__4[2] = lnoten, a__2[2] = noteq; -#line 19237 "" +#line 19586 "" s_cat(notexq, a__2, i__4, &c__3, (ftnlen)79); -#line 19238 "" +#line 19587 "" *lnote = lnoten + 6; -#line 19239 "" +#line 19588 "" } else { -#line 19240 "" +#line 19589 "" s_copy(dotq, "p", (ftnlen)4, (ftnlen)1); -#line 19241 "" +#line 19590 "" ldot = 1; -#line 19242 "" +#line 19591 "" if (bit_test(all_1.iornq[commvl_1.ivx + ip * 24 - 1],13)) { /* Dotted note with ')' ornament */ -#line 19246 "" +#line 19595 "" s_copy(dotq, "m", (ftnlen)4, (ftnlen)1); -#line 19247 "" +#line 19596 "" } else if (bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],3)) { /* Double dot */ -#line 19251 "" +#line 19600 "" s_copy(dotq, "pp", (ftnlen)4, (ftnlen)2); -#line 19252 "" +#line 19601 "" ldot = 2; -#line 19253 "" +#line 19602 "" } -#line 19254 "" +#line 19603 "" if (nodu >= 192) { /* Writing concatenation */ -#line 19255 "" +#line 19604 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 19255 "" +#line 19604 "" i__3[1] = 5, a__1[1] = "breve"; -#line 19255 "" +#line 19604 "" i__3[2] = ldot, a__1[2] = dotq; -#line 19255 "" +#line 19604 "" i__3[3] = lnoten, a__1[3] = noteq; -#line 19255 "" +#line 19604 "" s_cat(notexq, a__1, i__3, &c__4, (ftnlen)79); -#line 19256 "" +#line 19605 "" *lnote = lnoten + 6 + ldot; -#line 19257 "" +#line 19606 "" } else if (nodu >= 96) { /* Writing concatenation */ -#line 19258 "" +#line 19607 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 19258 "" +#line 19607 "" i__3[1] = 2, a__1[1] = "wh"; -#line 19258 "" +#line 19607 "" i__3[2] = ldot, a__1[2] = dotq; -#line 19258 "" +#line 19607 "" i__3[3] = lnoten, a__1[3] = noteq; -#line 19258 "" +#line 19607 "" s_cat(notexq, a__1, i__3, &c__4, (ftnlen)79); -#line 19259 "" +#line 19608 "" *lnote = lnoten + 3 + ldot; -#line 19260 "" +#line 19609 "" } else if (nodu >= 48) { /* Writing concatenation */ -#line 19261 "" +#line 19610 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 19261 "" +#line 19610 "" i__5[1] = 1, a__3[1] = "h"; -#line 19261 "" +#line 19610 "" i__5[2] = 1, a__3[2] = udq; -#line 19261 "" +#line 19610 "" i__5[3] = ldot, a__3[3] = dotq; -#line 19261 "" +#line 19610 "" i__5[4] = lnoten, a__3[4] = noteq; -#line 19261 "" +#line 19610 "" s_cat(notexq, a__3, i__5, &c__5, (ftnlen)79); -#line 19262 "" +#line 19611 "" *lnote = lnoten + 3 + ldot; -#line 19263 "" +#line 19612 "" } else if (nodu >= 24) { /* Writing concatenation */ -#line 19264 "" +#line 19613 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 19264 "" +#line 19613 "" i__5[1] = 1, a__3[1] = "q"; -#line 19264 "" +#line 19613 "" i__5[2] = 1, a__3[2] = udq; -#line 19264 "" +#line 19613 "" i__5[3] = ldot, a__3[3] = dotq; -#line 19264 "" +#line 19613 "" i__5[4] = lnoten, a__3[4] = noteq; -#line 19264 "" +#line 19613 "" s_cat(notexq, a__3, i__5, &c__5, (ftnlen)79); -#line 19265 "" +#line 19614 "" *lnote = lnoten + 3 + ldot; -#line 19266 "" +#line 19615 "" } else if (nodu >= 12) { /* Writing concatenation */ -#line 19267 "" +#line 19616 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 19267 "" +#line 19616 "" i__5[1] = 1, a__3[1] = "c"; -#line 19267 "" +#line 19616 "" i__5[2] = 1, a__3[2] = udq; -#line 19267 "" +#line 19616 "" i__5[3] = ldot, a__3[3] = dotq; -#line 19267 "" +#line 19616 "" i__5[4] = lnoten, a__3[4] = noteq; -#line 19267 "" +#line 19616 "" s_cat(notexq, a__3, i__5, &c__5, (ftnlen)79); -#line 19268 "" +#line 19617 "" *lnote = lnoten + 3 + ldot; -#line 19269 "" +#line 19618 "" } else if (nodu >= 6) { /* Writing concatenation */ -#line 19270 "" +#line 19619 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 19270 "" +#line 19619 "" i__5[1] = 2, a__3[1] = "cc"; -#line 19270 "" +#line 19619 "" i__5[2] = 1, a__3[2] = udq; -#line 19270 "" +#line 19619 "" i__5[3] = ldot, a__3[3] = dotq; -#line 19270 "" +#line 19619 "" i__5[4] = lnoten, a__3[4] = noteq; -#line 19270 "" +#line 19619 "" s_cat(notexq, a__3, i__5, &c__5, (ftnlen)79); -#line 19271 "" +#line 19620 "" *lnote = lnoten + 4 + ldot; -#line 19272 "" +#line 19621 "" compoi_1.ispoi = TRUE_; -#line 19273 "" +#line 19622 "" } else { /* Writing concatenation */ -#line 19274 "" +#line 19623 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 19274 "" +#line 19623 "" i__5[1] = 3, a__3[1] = "ccc"; -#line 19274 "" +#line 19623 "" i__5[2] = 1, a__3[2] = udq; -#line 19274 "" +#line 19623 "" i__5[3] = ldot, a__3[3] = dotq; -#line 19274 "" +#line 19623 "" i__5[4] = lnoten, a__3[4] = noteq; -#line 19274 "" +#line 19623 "" s_cat(notexq, a__3, i__5, &c__5, (ftnlen)79); -#line 19275 "" +#line 19624 "" *lnote = lnoten + 5 + ldot; -#line 19276 "" +#line 19625 "" compoi_1.ispoi = TRUE_; -#line 19277 "" +#line 19626 "" } -#line 19278 "" +#line 19627 "" if (*(unsigned char *)dotq == 'm') { /* Need another call to the note, in case the first one has octave shifts */ -#line 19282 "" +#line 19631 "" if (lnoten == 2) { /* Writing concatenation */ -#line 19283 "" +#line 19632 "" i__3[0] = *lnote, a__1[0] = notexq; -#line 19283 "" +#line 19632 "" i__3[1] = 1, a__1[1] = "{"; -#line 19283 "" +#line 19632 "" i__3[2] = 1, a__1[2] = noteq + 1; -#line 19283 "" +#line 19632 "" i__3[3] = 1, a__1[3] = "}"; -#line 19283 "" +#line 19632 "" s_cat(notexq, a__1, i__3, &c__4, (ftnlen)79); -#line 19284 "" +#line 19633 "" *lnote += 3; -#line 19285 "" +#line 19634 "" } else { -#line 19286 "" +#line 19635 "" i__1 = lnoten - 2; /* Writing concatenation */ -#line 19286 "" +#line 19635 "" i__6[0] = *lnote, a__4[0] = notexq; -#line 19286 "" +#line 19635 "" i__6[1] = lnoten - 1 - i__1, a__4[1] = noteq + i__1; -#line 19286 "" +#line 19635 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19287 "" +#line 19636 "" ++(*lnote); -#line 19288 "" +#line 19637 "" } -#line 19289 "" +#line 19638 "" } -#line 19290 "" +#line 19639 "" } -#line 19291 "" +#line 19640 "" } else if (bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],29)) { /* Blank rest */ /* Writing concatenation */ -#line 19295 "" +#line 19644 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19295 "" +#line 19644 "" i__6[1] = 2, a__4[1] = "sk"; -#line 19295 "" +#line 19644 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19296 "" +#line 19645 "" *lnote = 3; -#line 19297 "" +#line 19646 "" } else { /* Non-blank rest */ -#line 19301 "" +#line 19650 "" *lnote = 0; -#line 19302 "" +#line 19651 "" nole = (nole + 20) % 100 - 20; /* Kluge to get pause symbol for rp: */ -#line 19306 "" +#line 19655 "" if (bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25],19)) { -#line 19306 "" +#line 19655 "" nodu = 64; -#line 19306 "" +#line 19655 "" } -#line 19307 "" +#line 19656 "" if (nodu <= 28) { /* Normal rest < or = double-dotted quarter */ -#line 19311 "" +#line 19660 "" lrest = 3; -#line 19312 "" +#line 19661 "" if (nodu > 14) { /* Writing concatenation */ -#line 19313 "" +#line 19662 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19313 "" +#line 19662 "" i__6[1] = 2, a__4[1] = "qp"; -#line 19313 "" +#line 19662 "" s_cat(restq, a__4, i__6, &c__2, (ftnlen)40); -#line 19314 "" +#line 19663 "" } else if (nodu > 7) { /* Writing concatenation */ -#line 19315 "" +#line 19664 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19315 "" +#line 19664 "" i__6[1] = 2, a__4[1] = "ds"; -#line 19315 "" +#line 19664 "" s_cat(restq, a__4, i__6, &c__2, (ftnlen)40); -#line 19316 "" +#line 19665 "" } else if (nodu > 3) { /* Writing concatenation */ -#line 19317 "" +#line 19666 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19317 "" +#line 19666 "" i__6[1] = 2, a__4[1] = "qs"; -#line 19317 "" +#line 19666 "" s_cat(restq, a__4, i__6, &c__2, (ftnlen)40); -#line 19318 "" +#line 19667 "" } else if (nodu > 1) { /* Writing concatenation */ -#line 19319 "" +#line 19668 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19319 "" +#line 19668 "" i__6[1] = 2, a__4[1] = "hs"; -#line 19319 "" +#line 19668 "" s_cat(restq, a__4, i__6, &c__2, (ftnlen)40); -#line 19320 "" +#line 19669 "" } else { /* Writing concatenation */ -#line 19321 "" +#line 19670 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19321 "" +#line 19670 "" i__6[1] = 3, a__4[1] = "qqs"; -#line 19321 "" +#line 19670 "" s_cat(restq, a__4, i__6, &c__2, (ftnlen)40); -#line 19322 "" +#line 19671 "" lrest = 4; -#line 19323 "" +#line 19672 "" } /* Special case for rest at start of F-tuplet inside a forced beam */ -#line 19327 "" +#line 19676 "" if (bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],18) && bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],19)) { /* Writing concatenation */ -#line 19329 "" +#line 19678 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 19329 "" +#line 19678 "" i__4[1] = 3, a__2[1] = "pt4"; -#line 19329 "" +#line 19678 "" i__4[2] = lrest, a__2[2] = restq; -#line 19329 "" +#line 19678 "" s_cat(restq, a__2, i__4, &c__3, (ftnlen)40); -#line 19330 "" +#line 19679 "" lrest += 4; -#line 19331 "" +#line 19680 "" } -#line 19332 "" +#line 19681 "" s_copy(notexq, restq, (ftnlen)79, (ftnlen)40); -#line 19333 "" +#line 19682 "" *lnote = lrest; /* At this point notexq=restq,lnote=lrest are name of rest. Now raise if necc. */ -#line 19337 "" +#line 19686 "" if (nole != 0) { -#line 19338 "" +#line 19687 "" if (abs(nole) < 10) { -#line 19339 "" +#line 19688 "" i__1 = abs(nole) + 48; -#line 19339 "" +#line 19688 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 19339 "" +#line 19688 "" s_copy(noteq, ch__1, (ftnlen)8, (ftnlen)1); -#line 19340 "" +#line 19689 "" lnoten = 1; -#line 19341 "" +#line 19690 "" } else { -#line 19342 "" - s_wsfi(&io___1188); -#line 19342 "" +#line 19691 "" + s_wsfi(&io___1207); +#line 19691 "" i__1 = abs(nole); -#line 19342 "" +#line 19691 "" do_fio(&c__1, (char *)&i__1, (ftnlen)sizeof(integer)); -#line 19342 "" +#line 19691 "" e_wsfi(); -#line 19343 "" +#line 19692 "" lnoten = 2; -#line 19344 "" +#line 19693 "" } -#line 19345 "" +#line 19694 "" if (nole > 0) { /* Writing concatenation */ -#line 19346 "" +#line 19695 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 19346 "" +#line 19695 "" i__5[1] = 5, a__3[1] = "raise"; -#line 19346 "" +#line 19695 "" i__5[2] = lnoten, a__3[2] = noteq; -#line 19346 "" +#line 19695 "" i__5[3] = 1, a__3[3] = all_1.sq; -#line 19346 "" +#line 19695 "" i__5[4] = 9, a__3[4] = "internote"; -#line 19346 "" +#line 19695 "" s_cat(notexq, a__3, i__5, &c__5, (ftnlen)79); -#line 19347 "" +#line 19696 "" } else { /* Writing concatenation */ -#line 19348 "" +#line 19697 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 19348 "" +#line 19697 "" i__5[1] = 5, a__3[1] = "lower"; -#line 19348 "" +#line 19697 "" i__5[2] = lnoten, a__3[2] = noteq; -#line 19348 "" +#line 19697 "" i__5[3] = 1, a__3[3] = all_1.sq; -#line 19348 "" +#line 19697 "" i__5[4] = 9, a__3[4] = "internote"; -#line 19348 "" +#line 19697 "" s_cat(notexq, a__3, i__5, &c__5, (ftnlen)79); -#line 19349 "" +#line 19698 "" } -#line 19350 "" +#line 19699 "" *lnote = lnoten + 16; /* Writing concatenation */ -#line 19351 "" +#line 19700 "" i__6[0] = *lnote, a__4[0] = notexq; -#line 19351 "" +#line 19700 "" i__6[1] = lrest, a__4[1] = restq; -#line 19351 "" +#line 19700 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19352 "" +#line 19701 "" *lnote += lrest; -#line 19353 "" +#line 19702 "" } -#line 19354 "" +#line 19703 "" i__1 = log2_(&nodu); -#line 19354 "" +#line 19703 "" if (pow_ii(&c__2, &i__1) != nodu) { /* Deal with dots (on rests shorter than half rest) */ /* Writing concatenation */ -#line 19358 "" +#line 19707 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19358 "" +#line 19707 "" i__6[1] = 2, a__4[1] = "pt"; -#line 19358 "" +#line 19707 "" s_cat(restq, a__4, i__6, &c__2, (ftnlen)40); -#line 19359 "" +#line 19708 "" lrest = 3; -#line 19360 "" +#line 19709 "" i__1 = log2_(&nodu); -#line 19360 "" +#line 19709 "" if (nodu << 1 > pow_ii(&c__2, &i__1) * 3) { /* Writing concatenation */ -#line 19361 "" +#line 19710 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19361 "" +#line 19710 "" i__6[1] = 3, a__4[1] = "ppt"; -#line 19361 "" +#line 19710 "" s_cat(restq, a__4, i__6, &c__2, (ftnlen)40); -#line 19362 "" +#line 19711 "" lrest = 4; -#line 19363 "" +#line 19712 "" } -#line 19364 "" +#line 19713 "" nole += 4; -#line 19365 "" +#line 19714 "" raisedot = 0.f; /* Tweak dot positions for special cases */ -#line 19369 "" +#line 19718 "" even = (nole + 100) % 2 == 0; /* if (.not.even.and.nodu.gt.8.and. */ /* * (nole.lt.0.or.nole.gt.8)) then */ -#line 19372 "" +#line 19721 "" if (! even && (nole < 0 || nole > 8)) { -#line 19373 "" +#line 19722 "" raisedot = 1.f; -#line 19374 "" +#line 19723 "" } -#line 19375 "" +#line 19724 "" if (nole >= 10 || nole <= -1) { -#line 19376 "" - s_wsfi(&io___1192); -#line 19376 "" +#line 19725 "" + s_wsfi(&io___1211); +#line 19725 "" do_fio(&c__1, (char *)&nole, (ftnlen)sizeof(integer)); -#line 19376 "" +#line 19725 "" e_wsfi(); /* Writing concatenation */ -#line 19377 "" +#line 19726 "" i__3[0] = lrest, a__1[0] = restq; -#line 19377 "" +#line 19726 "" i__3[1] = 1, a__1[1] = "{"; -#line 19377 "" +#line 19726 "" i__3[2] = 2, a__1[2] = numq; -#line 19377 "" +#line 19726 "" i__3[3] = 1, a__1[3] = "}"; -#line 19377 "" +#line 19726 "" s_cat(restq, a__1, i__3, &c__4, (ftnlen)40); -#line 19378 "" +#line 19727 "" lrest += 4; -#line 19379 "" +#line 19728 "" } else { /* Writing concatenation */ -#line 19380 "" +#line 19729 "" i__6[0] = lrest, a__4[0] = restq; -#line 19380 "" +#line 19729 "" i__1 = nole + 48; -#line 19380 "" +#line 19729 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 19380 "" +#line 19729 "" i__6[1] = 1, a__4[1] = ch__1; -#line 19380 "" +#line 19729 "" s_cat(restq, a__4, i__6, &c__2, (ftnlen)40); -#line 19381 "" +#line 19730 "" ++lrest; -#line 19382 "" +#line 19731 "" } -#line 19383 "" +#line 19732 "" if (raisedot > 0.f) { /* Writing concatenation */ -#line 19384 "" +#line 19733 "" i__7[0] = 1, a__5[0] = all_1.sq; -#line 19384 "" +#line 19733 "" i__7[1] = 5, a__5[1] = "raise"; -#line 19384 "" +#line 19733 "" i__7[2] = 1, a__5[2] = all_1.sq; -#line 19384 "" +#line 19733 "" i__7[3] = 9, a__5[3] = "internote"; -#line 19384 "" +#line 19733 "" i__7[4] = 1, a__5[4] = all_1.sq; -#line 19384 "" +#line 19733 "" i__7[5] = 5, a__5[5] = "hbox{"; -#line 19384 "" +#line 19733 "" i__7[6] = lrest, a__5[6] = restq; -#line 19384 "" +#line 19733 "" i__7[7] = 1, a__5[7] = "}"; -#line 19384 "" +#line 19733 "" s_cat(restq, a__5, i__7, &c__8, (ftnlen)40); -#line 19386 "" +#line 19735 "" lrest += 23; -#line 19387 "" +#line 19736 "" } /* Writing concatenation */ -#line 19388 "" +#line 19737 "" i__6[0] = lrest, a__4[0] = restq; -#line 19388 "" +#line 19737 "" i__6[1] = *lnote, a__4[1] = notexq; -#line 19388 "" +#line 19737 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19389 "" +#line 19738 "" *lnote += lrest; -#line 19390 "" +#line 19739 "" } -#line 19391 "" +#line 19740 "" } else { /* Half rest or longer */ -#line 19395 "" +#line 19744 "" if (nole == 0) { /* Half or longer rest is not raised or lowered */ -#line 19399 "" +#line 19748 "" if (nodu <= 56) { /* Writing concatenation */ -#line 19400 "" +#line 19749 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19400 "" +#line 19749 "" i__6[1] = 6, a__4[1] = "hpause"; -#line 19400 "" +#line 19749 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19401 "" +#line 19750 "" *lnote = 7; -#line 19402 "" +#line 19751 "" } else if (nodu <= 112) { -#line 19403 "" +#line 19752 "" if (! bit_test(all_1.islur[commvl_1.ivx + ip * 24 - 25], 19) || bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],25)) { /* Writing concatenation */ -#line 19405 "" +#line 19754 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19405 "" +#line 19754 "" i__6[1] = 5, a__4[1] = "pause"; -#line 19405 "" +#line 19754 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19406 "" +#line 19755 "" } else { /* Writing concatenation */ -#line 19407 "" +#line 19756 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19407 "" +#line 19756 "" i__6[1] = 5, a__4[1] = "pausc"; -#line 19407 "" +#line 19756 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19408 "" +#line 19757 "" } -#line 19409 "" +#line 19758 "" *lnote = 6; -#line 19410 "" +#line 19759 "" } else { /* Writing concatenation */ -#line 19411 "" +#line 19760 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19411 "" +#line 19760 "" i__6[1] = 5, a__4[1] = "PAuse"; -#line 19411 "" +#line 19760 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19412 "" +#line 19761 "" *lnote = 6; -#line 19413 "" +#line 19762 "" } -#line 19414 "" +#line 19763 "" i__1 = log2_(&nodu); -#line 19414 "" +#line 19763 "" if (pow_ii(&c__2, &i__1) != nodu) { /* Dotted rest, hpause or longer */ /* Writing concatenation */ -#line 19418 "" +#line 19767 "" i__6[0] = *lnote, a__4[0] = notexq; -#line 19418 "" +#line 19767 "" i__6[1] = 1, a__4[1] = "p"; -#line 19418 "" +#line 19767 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19419 "" +#line 19768 "" ++(*lnote); -#line 19420 "" +#line 19769 "" i__1 = log2_(&nodu); -#line 19420 "" +#line 19769 "" if (nodu << 1 > pow_ii(&c__2, &i__1) * 3) { /* Double dotted long rest */ /* Writing concatenation */ -#line 19424 "" +#line 19773 "" i__6[0] = *lnote, a__4[0] = notexq; -#line 19424 "" +#line 19773 "" i__6[1] = 1, a__4[1] = "p"; -#line 19424 "" +#line 19773 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19425 "" +#line 19774 "" ++(*lnote); -#line 19426 "" +#line 19775 "" } -#line 19427 "" +#line 19776 "" } -#line 19428 "" +#line 19777 "" } else { /* Raised or lowered half or whole rest */ -#line 19432 "" +#line 19781 "" if (nodu == 32) { /* Writing concatenation */ -#line 19433 "" +#line 19782 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19433 "" +#line 19782 "" i__6[1] = 10, a__4[1] = "lifthpause"; -#line 19433 "" +#line 19782 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19434 "" +#line 19783 "" *lnote = 11; -#line 19435 "" +#line 19784 "" } else if (nodu == 48) { /* Writing concatenation */ -#line 19436 "" +#line 19785 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19436 "" +#line 19785 "" i__6[1] = 11, a__4[1] = "lifthpausep"; -#line 19436 "" +#line 19785 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19437 "" +#line 19786 "" *lnote = 12; -#line 19438 "" +#line 19787 "" } else if (nodu == 56) { /* Writing concatenation */ -#line 19439 "" +#line 19788 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19439 "" +#line 19788 "" i__6[1] = 12, a__4[1] = "lifthpausepp"; -#line 19439 "" +#line 19788 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19440 "" +#line 19789 "" *lnote = 13; -#line 19441 "" +#line 19790 "" } else if (nodu == 64) { /* Writing concatenation */ -#line 19442 "" +#line 19791 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19442 "" +#line 19791 "" i__6[1] = 9, a__4[1] = "liftpause"; -#line 19442 "" +#line 19791 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19443 "" +#line 19792 "" *lnote = 10; -#line 19444 "" +#line 19793 "" } else if (nodu == 96) { /* Writing concatenation */ -#line 19445 "" +#line 19794 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19445 "" +#line 19794 "" i__6[1] = 10, a__4[1] = "liftpausep"; -#line 19445 "" +#line 19794 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19446 "" +#line 19795 "" *lnote = 11; -#line 19447 "" +#line 19796 "" } else if (nodu == 112) { /* Writing concatenation */ -#line 19448 "" +#line 19797 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19448 "" +#line 19797 "" i__6[1] = 11, a__4[1] = "liftpausepp"; -#line 19448 "" +#line 19797 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19449 "" +#line 19798 "" *lnote = 12; -#line 19450 "" +#line 19799 "" } else if (nodu == 128) { /* Writing concatenation */ -#line 19451 "" +#line 19800 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19451 "" +#line 19800 "" i__6[1] = 9, a__4[1] = "liftPAuse"; -#line 19451 "" +#line 19800 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19452 "" +#line 19801 "" *lnote = 10; -#line 19453 "" +#line 19802 "" } else { /* Assume dotted double whole rest */ /* Writing concatenation */ -#line 19457 "" +#line 19806 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 19457 "" +#line 19806 "" i__6[1] = 10, a__4[1] = "liftPAusep"; -#line 19457 "" +#line 19806 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19458 "" +#line 19807 "" *lnote = 11; -#line 19459 "" +#line 19808 "" } /* Set up height spec */ -#line 19463 "" +#line 19812 "" i__1 = abs(nole) / 2; -#line 19463 "" +#line 19812 "" nole = i_sign(&i__1, &nole); -#line 19464 "" +#line 19813 "" if (nole <= 9 && nole >= 0) { -#line 19465 "" +#line 19814 "" i__1 = nole + 48; -#line 19465 "" +#line 19814 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 19465 "" +#line 19814 "" s_copy(noteq, ch__1, (ftnlen)8, (ftnlen)1); -#line 19466 "" +#line 19815 "" lnoten = 1; -#line 19467 "" +#line 19816 "" } else { -#line 19468 "" +#line 19817 "" s_copy(noteq, "{", (ftnlen)8, (ftnlen)1); -#line 19469 "" +#line 19818 "" if (nole >= -9) { -#line 19470 "" - s_wsfi(&io___1193); -#line 19470 "" +#line 19819 "" + s_wsfi(&io___1212); +#line 19819 "" do_fio(&c__1, (char *)&nole, (ftnlen)sizeof(integer)); -#line 19470 "" +#line 19819 "" e_wsfi(); -#line 19471 "" +#line 19820 "" lnoten = 3; -#line 19472 "" +#line 19821 "" } else { -#line 19473 "" - s_wsfi(&io___1194); -#line 19473 "" +#line 19822 "" + s_wsfi(&io___1213); +#line 19822 "" do_fio(&c__1, (char *)&nole, (ftnlen)sizeof(integer)); -#line 19473 "" +#line 19822 "" e_wsfi(); -#line 19474 "" +#line 19823 "" lnoten = 4; -#line 19475 "" +#line 19824 "" } /* Writing concatenation */ -#line 19476 "" +#line 19825 "" i__6[0] = lnoten, a__4[0] = noteq; -#line 19476 "" +#line 19825 "" i__6[1] = 1, a__4[1] = "}"; -#line 19476 "" +#line 19825 "" s_cat(noteq, a__4, i__6, &c__2, (ftnlen)8); -#line 19477 "" +#line 19826 "" ++lnoten; -#line 19478 "" +#line 19827 "" } /* Writing concatenation */ -#line 19479 "" +#line 19828 "" i__6[0] = *lnote, a__4[0] = notexq; -#line 19479 "" +#line 19828 "" i__6[1] = lnoten, a__4[1] = noteq; -#line 19479 "" +#line 19828 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 19480 "" +#line 19829 "" *lnote += lnoten; -#line 19481 "" +#line 19830 "" } -#line 19482 "" +#line 19831 "" } -#line 19483 "" +#line 19832 "" } -#line 19484 "" +#line 19833 "" return 0; } /* notex_ */ @@ -46518,98 +47448,98 @@ integer ntindex_(char *line, char *s2q, integer *lenline, ftnlen line_len, /* Returns index(line,s2q) if NOT in TeX string, 0 otherwise */ -#line 19493 "" +#line 19842 "" ndxs2 = i_indx(line, s2q, line_len, s2q_len); -#line 19494 "" +#line 19843 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 19494 "" +#line 19843 "" ndxbs = i_indx(line, ch__1, line_len, (ftnlen)1); -#line 19495 "" +#line 19844 "" if (ndxbs == 0 || ndxs2 < ndxbs) { -#line 19496 "" +#line 19845 "" ret_val = ndxs2; -#line 19497 "" +#line 19846 "" } else { /* There are both bs and s2q, and bs is to the left of sq2. So check bs's to */ /* right of first: End is '\ ', start is ' \' */ -#line 19502 "" +#line 19851 "" len = lenstr_(line, lenline, line_len); -#line 19503 "" +#line 19852 "" intex = TRUE_; -#line 19504 "" +#line 19853 "" i__1 = len; -#line 19504 "" +#line 19853 "" for (ic = ndxbs + 1; ic <= i__1; ++ic) { -#line 19505 "" +#line 19854 "" if (ic == ndxs2) { -#line 19506 "" +#line 19855 "" if (intex) { -#line 19507 "" +#line 19856 "" ret_val = 0; -#line 19508 "" +#line 19857 "" i__2 = ic; -#line 19508 "" +#line 19857 "" ndxs2 = i_indx(line + i__2, s2q, len - i__2, s2q_len) + ic; -#line 19509 "" +#line 19858 "" } else { -#line 19510 "" +#line 19859 "" ret_val = ndxs2; -#line 19511 "" +#line 19860 "" return ret_val; -#line 19512 "" +#line 19861 "" } -#line 19513 "" +#line 19862 "" } else /* if(complicated condition) */ { -#line 19513 "" +#line 19862 "" i__2 = ic; /* Writing concatenation */ -#line 19513 "" +#line 19862 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 19513 "" +#line 19862 "" i__3[0] = 1, a__1[0] = ch__1; -#line 19513 "" +#line 19862 "" i__3[1] = 1, a__1[1] = " "; -#line 19513 "" +#line 19862 "" s_cat(ch__2, a__1, i__3, &c__2, (ftnlen)2); -#line 19513 "" +#line 19862 "" if (intex && s_cmp(line + i__2, ch__2, ic + 2 - i__2, (ftnlen) 2) == 0) { -#line 19514 "" +#line 19863 "" intex = FALSE_; -#line 19515 "" +#line 19864 "" } else /* if(complicated condition) */ { -#line 19515 "" +#line 19864 "" i__2 = ic; /* Writing concatenation */ -#line 19515 "" +#line 19864 "" i__3[0] = 1, a__1[0] = " "; -#line 19515 "" +#line 19864 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 19515 "" +#line 19864 "" i__3[1] = 1, a__1[1] = ch__1; -#line 19515 "" +#line 19864 "" s_cat(ch__2, a__1, i__3, &c__2, (ftnlen)2); -#line 19515 "" +#line 19864 "" if (! intex && s_cmp(line + i__2, ch__2, ic + 2 - i__2, ( ftnlen)2) == 0) { -#line 19517 "" +#line 19866 "" intex = TRUE_; -#line 19518 "" +#line 19867 "" } -#line 19518 "" +#line 19867 "" } -#line 19518 "" +#line 19867 "" } -#line 19519 "" +#line 19868 "" /* L1: */ -#line 19519 "" +#line 19868 "" } -#line 19520 "" +#line 19869 "" } -#line 19521 "" +#line 19870 "" return ret_val; } /* ntindex_ */ @@ -46636,56 +47566,56 @@ integer ntindex_(char *line, char *s2q, integer *lenline, ftnlen line_len, /* This appends to notexq e.g. '\ibbbu1' */ -#line 19532 "" +#line 19881 "" if (*n >= 5) { -#line 19532 "" +#line 19881 "" combbm_1.isbbm = TRUE_; -#line 19532 "" +#line 19881 "" } -#line 19533 "" +#line 19882 "" if (*lnote > 0) { /* Writing concatenation */ -#line 19534 "" +#line 19883 "" i__1[0] = *lnote, a__1[0] = notexq; -#line 19534 "" +#line 19883 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 19534 "" +#line 19883 "" i__1[1] = 1, a__1[1] = ch__1; -#line 19534 "" +#line 19883 "" i__1[2] = 1, a__1[2] = char1q; -#line 19534 "" +#line 19883 "" s_cat(notexq, a__1, i__1, &c__3, (ftnlen)79); -#line 19535 "" +#line 19884 "" } else { /* Writing concatenation */ -#line 19536 "" +#line 19885 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 19536 "" +#line 19885 "" i__2[0] = 1, a__2[0] = ch__1; -#line 19536 "" +#line 19885 "" i__2[1] = 1, a__2[1] = char1q; -#line 19536 "" +#line 19885 "" s_cat(notexq, a__2, i__2, &c__2, (ftnlen)79); -#line 19537 "" +#line 19886 "" } -#line 19538 "" +#line 19887 "" *lnote += 2; -#line 19539 "" +#line 19888 "" i__3 = *n; -#line 19539 "" +#line 19888 "" for (im = 1; im <= i__3; ++im) { /* Writing concatenation */ -#line 19540 "" +#line 19889 "" i__2[0] = *lnote, a__2[0] = notexq; -#line 19540 "" +#line 19889 "" i__2[1] = 1, a__2[1] = "b"; -#line 19540 "" +#line 19889 "" s_cat(notexq, a__2, i__2, &c__2, (ftnlen)79); -#line 19541 "" +#line 19890 "" ++(*lnote); -#line 19542 "" +#line 19891 "" /* L3: */ -#line 19542 "" +#line 19891 "" } /* add the number, 0 if 12 */ @@ -46693,36 +47623,36 @@ integer ntindex_(char *line, char *s2q, integer *lenline, ftnlen line_len, /* 5/25/08 Allow >12 */ /* call istring(mod(iv,12),tempq,len) */ -#line 19549 "" +#line 19898 "" if (*iv < 24) { -#line 19550 "" +#line 19899 "" istring_(iv, tempq, &len, (ftnlen)4); -#line 19551 "" +#line 19900 "" } else if (*iv == 24) { -#line 19552 "" +#line 19901 "" *(unsigned char *)tempq = '0'; -#line 19553 "" +#line 19902 "" len = 1; -#line 19554 "" +#line 19903 "" } else { -#line 19555 "" +#line 19904 "" printl_("Sorry, too man open beams", (ftnlen)25); -#line 19556 "" +#line 19905 "" stop1_(); -#line 19557 "" +#line 19906 "" } /* Writing concatenation */ -#line 19558 "" +#line 19907 "" i__1[0] = *lnote, a__1[0] = notexq; -#line 19558 "" +#line 19907 "" i__1[1] = 1, a__1[1] = ulqq; -#line 19558 "" +#line 19907 "" i__1[2] = len, a__1[2] = tempq; -#line 19558 "" +#line 19907 "" s_cat(notexq, a__1, i__1, &c__3, (ftnlen)79); -#line 19559 "" +#line 19908 "" *lnote = *lnote + 1 + len; -#line 19560 "" +#line 19909 "" return 0; } /* ntrbbb_ */ @@ -46740,27 +47670,27 @@ integer numclef_(char *clefq, ftnlen clefq_len) /* 7 f 9 */ /* 8 0 */ -#line 19570 "" +#line 19919 "" if (*(unsigned char *)clefq < 55) { /* if (ichar(clefq) .le. 55) then */ -#line 19572 "" +#line 19921 "" ret_val = *(unsigned char *)clefq - 48; /* if (numclef .eq. 7) numclef = 9 */ -#line 19574 "" +#line 19923 "" } else if (*(unsigned char *)clefq == '7') { -#line 19575 "" +#line 19924 "" ret_val = 9; -#line 19576 "" +#line 19925 "" } else if (*(unsigned char *)clefq == '8') { -#line 19577 "" +#line 19926 "" ret_val = 0; -#line 19578 "" +#line 19927 "" } else { -#line 19579 "" +#line 19928 "" ret_val = i_indx("tsmanrbxxf", clefq, (ftnlen)10, (ftnlen)1) - 1; -#line 19580 "" +#line 19929 "" } -#line 19581 "" +#line 19930 "" return ret_val; } /* numclef_ */ @@ -46782,121 +47712,121 @@ integer numclef_(char *clefq, ftnlen clefq_len) extern /* Character */ VOID chax_(char *, ftnlen, integer *); static integer nfmt; -#line 19585 "" +#line 19934 "" r__1 = *i__ + .5f; -#line 19585 "" +#line 19934 "" nfmt = r_lg10(&r__1) + 2; -#line 19586 "" +#line 19935 "" if (*jlast + 5 + nfmt < 80) { -#line 19587 "" +#line 19936 "" ci__1.cierr = 0; -#line 19587 "" +#line 19936 "" ci__1.ciunit = 6; /* Writing concatenation */ -#line 19587 "" +#line 19936 "" i__1[0] = 5, a__1[0] = "(a5,i"; -#line 19587 "" +#line 19936 "" i__2 = nfmt + 48; -#line 19587 "" +#line 19936 "" chax_(ch__2, (ftnlen)1, &i__2); -#line 19587 "" +#line 19936 "" i__1[1] = 1, a__1[1] = ch__2; -#line 19587 "" +#line 19936 "" i__1[2] = 3, a__1[2] = ",$)"; -#line 19587 "" +#line 19936 "" ci__1.cifmt = (s_cat(ch__1, a__1, i__1, &c__3, (ftnlen)9), ch__1); -#line 19587 "" +#line 19936 "" s_wsfe(&ci__1); -#line 19587 "" +#line 19936 "" do_fio(&c__1, " Bar", (ftnlen)5); -#line 19587 "" +#line 19936 "" do_fio(&c__1, (char *)&(*i__), (ftnlen)sizeof(integer)); -#line 19587 "" +#line 19936 "" e_wsfe(); -#line 19588 "" +#line 19937 "" ci__1.cierr = 0; -#line 19588 "" +#line 19937 "" ci__1.ciunit = 15; /* Writing concatenation */ -#line 19588 "" +#line 19937 "" i__1[0] = 5, a__1[0] = "(a5,i"; -#line 19588 "" +#line 19937 "" i__2 = nfmt + 48; -#line 19588 "" +#line 19937 "" chax_(ch__2, (ftnlen)1, &i__2); -#line 19588 "" +#line 19937 "" i__1[1] = 1, a__1[1] = ch__2; -#line 19588 "" +#line 19937 "" i__1[2] = 3, a__1[2] = ",$)"; -#line 19588 "" +#line 19937 "" ci__1.cifmt = (s_cat(ch__1, a__1, i__1, &c__3, (ftnlen)9), ch__1); -#line 19588 "" +#line 19937 "" s_wsfe(&ci__1); -#line 19588 "" +#line 19937 "" do_fio(&c__1, " Bar", (ftnlen)5); -#line 19588 "" +#line 19937 "" do_fio(&c__1, (char *)&(*i__), (ftnlen)sizeof(integer)); -#line 19588 "" +#line 19937 "" e_wsfe(); -#line 19589 "" +#line 19938 "" *jlast = *jlast + 5 + nfmt; -#line 19590 "" +#line 19939 "" } else { -#line 19591 "" +#line 19940 "" ci__1.cierr = 0; -#line 19591 "" +#line 19940 "" ci__1.ciunit = 6; /* Writing concatenation */ -#line 19591 "" +#line 19940 "" i__1[0] = 7, a__1[0] = "(/,a5,i"; -#line 19591 "" +#line 19940 "" i__2 = nfmt + 48; -#line 19591 "" +#line 19940 "" chax_(ch__2, (ftnlen)1, &i__2); -#line 19591 "" +#line 19940 "" i__1[1] = 1, a__1[1] = ch__2; -#line 19591 "" +#line 19940 "" i__1[2] = 3, a__1[2] = ",$)"; -#line 19591 "" +#line 19940 "" ci__1.cifmt = (s_cat(ch__3, a__1, i__1, &c__3, (ftnlen)11), ch__3); -#line 19591 "" +#line 19940 "" s_wsfe(&ci__1); -#line 19591 "" +#line 19940 "" do_fio(&c__1, " Bar", (ftnlen)5); -#line 19591 "" +#line 19940 "" do_fio(&c__1, (char *)&(*i__), (ftnlen)sizeof(integer)); -#line 19591 "" +#line 19940 "" e_wsfe(); -#line 19592 "" +#line 19941 "" ci__1.cierr = 0; -#line 19592 "" +#line 19941 "" ci__1.ciunit = 15; /* Writing concatenation */ -#line 19592 "" +#line 19941 "" i__1[0] = 7, a__1[0] = "(/,a5,i"; -#line 19592 "" +#line 19941 "" i__2 = nfmt + 48; -#line 19592 "" +#line 19941 "" chax_(ch__2, (ftnlen)1, &i__2); -#line 19592 "" +#line 19941 "" i__1[1] = 1, a__1[1] = ch__2; -#line 19592 "" +#line 19941 "" i__1[2] = 3, a__1[2] = ",$)"; -#line 19592 "" +#line 19941 "" ci__1.cifmt = (s_cat(ch__3, a__1, i__1, &c__3, (ftnlen)11), ch__3); -#line 19592 "" +#line 19941 "" s_wsfe(&ci__1); -#line 19592 "" +#line 19941 "" do_fio(&c__1, " Bar", (ftnlen)5); -#line 19592 "" +#line 19941 "" do_fio(&c__1, (char *)&(*i__), (ftnlen)sizeof(integer)); -#line 19592 "" +#line 19941 "" e_wsfe(); -#line 19593 "" +#line 19942 "" *jlast = nfmt + 5; -#line 19594 "" +#line 19943 "" } -#line 19595 "" +#line 19944 "" return 0; } /* outbar_ */ @@ -46936,7 +47866,7 @@ integer numclef_(char *clefq, ftnlen clefq_len) static real elsstarg; static logical cstuplet; static real c__, d__; - static integer j, listcresc; + static integer i__, j, listcresc; extern /* Subroutine */ int getpmxmod_(logical *, char *, ftnlen); static integer isysendpg; static logical fulltrans; @@ -46968,11 +47898,10 @@ integer numclef_(char *clefq, ftnlen clefq_len) static integer isysb4; static real omegag, facins, glueil; extern /* Subroutine */ int outbar_(integer *, integer *); - static integer jprntb, nintpg, mtrdnp; + static integer jprntb, nintpg, mtrdnp, mtrnmp; extern /* Subroutine */ int printl_(char *, ftnlen); - static real poenom; - static integer mtrnmp, nshort; - static real wminpt, celskb4, xiltxt; + static integer nshort; + static real wminpt, poenom, celskb4, xiltxt; static integer nsystp; static real wsyspt; extern /* Subroutine */ int g1etset_(integer *, integer *, integer *, @@ -46987,32 +47916,32 @@ integer numclef_(char *clefq, ftnlen clefq_len) static integer instnow, nsystpp; /* Fortran I/O blocks */ - static cilist io___1207 = { 0, 6, 0, 0, 0 }; - static cilist io___1208 = { 0, 6, 0, 0, 0 }; - static cilist io___1209 = { 0, 15, 0, "(a)", 0 }; - static cilist io___1210 = { 0, 19, 0, "(i6)", 0 }; - static cilist io___1222 = { 0, 6, 0, 0, 0 }; - static cilist io___1226 = { 0, 6, 0, 0, 0 }; - static cilist io___1232 = { 0, 15, 0, "(/,a20,i4,a1,i4)", 0 }; - static cilist io___1233 = { 0, 6, 0, "(/,a20,i4,a1,i4)", 0 }; - static cilist io___1238 = { 0, 6, 0, 0, 0 }; - static cilist io___1240 = { 0, 6, 0, 0, 0 }; - static cilist io___1241 = { 0, 6, 0, 0, 0 }; + static cilist io___1227 = { 0, 6, 0, 0, 0 }; + static cilist io___1228 = { 0, 6, 0, 0, 0 }; + static cilist io___1229 = { 0, 15, 0, "(a)", 0 }; + static cilist io___1230 = { 0, 19, 0, "(i6)", 0 }; static cilist io___1242 = { 0, 6, 0, 0, 0 }; - static cilist io___1243 = { 0, 15, 0, "(a,2i5)", 0 }; - static cilist io___1244 = { 0, 15, 0, "(a)", 0 }; - static cilist io___1246 = { 0, 12, 0, "(a)", 0 }; - static cilist io___1247 = { 0, 12, 0, 0, 0 }; - static cilist io___1248 = { 0, 12, 0, "(6f10.5/f10.5,3i5)", 0 }; - static cilist io___1249 = { 0, 12, 0, 0, 0 }; - static cilist io___1268 = { 0, 12, 0, 0, 0 }; - static cilist io___1283 = { 0, 12, 0, "(i5)", 0 }; - static cilist io___1301 = { 0, 12, 0, "(1pe12.5/i5,5e12.3)", 0 }; - static cilist io___1302 = { 0, 13, 0, "(i5)", 0 }; - static cilist io___1303 = { 0, 6, 0, "(/,a)", 0 }; - static cilist io___1304 = { 0, 6, 0, 0, 0 }; - static cilist io___1305 = { 0, 15, 0, "(/,a)", 0 }; - static cilist io___1306 = { 0, 15, 0, "()", 0 }; + static cilist io___1246 = { 0, 6, 0, 0, 0 }; + static cilist io___1252 = { 0, 15, 0, "(/,a20,i4,a1,i4)", 0 }; + static cilist io___1253 = { 0, 6, 0, "(/,a20,i4,a1,i4)", 0 }; + static cilist io___1258 = { 0, 6, 0, 0, 0 }; + static cilist io___1260 = { 0, 6, 0, 0, 0 }; + static cilist io___1261 = { 0, 6, 0, 0, 0 }; + static cilist io___1262 = { 0, 6, 0, 0, 0 }; + static cilist io___1263 = { 0, 15, 0, "(a,2i5)", 0 }; + static cilist io___1264 = { 0, 15, 0, "(a)", 0 }; + static cilist io___1266 = { 0, 12, 0, "(a)", 0 }; + static cilist io___1267 = { 0, 12, 0, 0, 0 }; + static cilist io___1268 = { 0, 12, 0, "(6f10.5/f10.5,3i5)", 0 }; + static cilist io___1269 = { 0, 12, 0, 0, 0 }; + static cilist io___1288 = { 0, 12, 0, 0, 0 }; + static cilist io___1303 = { 0, 12, 0, "(i5)", 0 }; + static cilist io___1321 = { 0, 12, 0, "(1pe12.5/i5,5e12.3)", 0 }; + static cilist io___1322 = { 0, 13, 0, "(i5)", 0 }; + static cilist io___1323 = { 0, 6, 0, "(/,a)", 0 }; + static cilist io___1324 = { 0, 6, 0, 0, 0 }; + static cilist io___1325 = { 0, 15, 0, "(/,a)", 0 }; + static cilist io___1326 = { 0, 15, 0, "()", 0 }; /* ccccccccccccccccccccccccccccccccccccccccccccccc */ @@ -47046,359 +47975,372 @@ integer numclef_(char *clefq, ftnlen clefq_len) /* cccccccccccccccccccccccccccccccccc */ /* * ibaroff,udsp(nkb),wheadpt,gotclef,sqzb(maxblks) */ /* logical mrecord,mplay,endmac,gotclef,cstuplet */ -#line 19680 "" +#line 20033 "" /* Parameter adjustments */ -#line 19680 "" +#line 20033 "" --nbarss; -#line 19680 "" +#line 20033 "" -#line 19680 "" +#line 20033 "" /* Function Body */ -#line 19682 "" +/* data poefa /125*1./ */ +/* This corrected a problem in Bob Tennent's compilation of pmx2.94 */ + +#line 20038 "" + for (i__ = 1; i__ <= 125; ++i__) { +#line 20039 "" + comshort_1.poefa[i__ - 1] = 1.f; +#line 20040 "" +/* L97: */ +#line 20040 "" + } +#line 20041 "" comis4bignv_1.is4bignv = FALSE_; -#line 19683 "" +#line 20042 "" comis4bignv_1.aiset = FALSE_; -#line 19684 "" +#line 20043 "" commus_1.whead20 = .3f; -#line 19685 "" +#line 20044 "" + comshort_1.ishort = 0; +#line 20045 "" if (! (*optimize)) { -#line 19686 "" - s_wsle(&io___1207); -#line 19686 "" +#line 20046 "" + s_wsle(&io___1227); +#line 20046 "" e_wsle(); -#line 19687 "" - s_wsle(&io___1208); -#line 19687 "" +#line 20047 "" + s_wsle(&io___1228); +#line 20047 "" do_lio(&c__9, &c__1, "Starting first PMX pass", (ftnlen)23); -#line 19687 "" +#line 20047 "" e_wsle(); -#line 19688 "" - s_wsfe(&io___1209); -#line 19688 "" +#line 20048 "" + s_wsfe(&io___1229); +#line 20048 "" do_fio(&c__1, " Starting first PMX pass", (ftnlen)24); -#line 19688 "" +#line 20048 "" e_wsfe(); -#line 19689 "" +#line 20049 "" } -#line 19690 "" +#line 20050 "" if (*isfirst) { -#line 19691 "" +#line 20051 "" o__1.oerr = 0; -#line 19691 "" +#line 20051 "" o__1.ounit = 19; -#line 19691 "" +#line 20051 "" o__1.ofnmlen = 11; -#line 19691 "" +#line 20051 "" o__1.ofnm = "pmxaerr.dat"; -#line 19691 "" +#line 20051 "" o__1.orl = 0; -#line 19691 "" +#line 20051 "" o__1.osta = 0; -#line 19691 "" +#line 20051 "" o__1.oacc = 0; -#line 19691 "" +#line 20051 "" o__1.ofm = 0; -#line 19691 "" +#line 20051 "" o__1.oblnk = 0; -#line 19691 "" +#line 20051 "" f_open(&o__1); -#line 19692 "" - s_wsfe(&io___1210); -#line 19692 "" +#line 20052 "" + s_wsfe(&io___1230); +#line 20052 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 19692 "" +#line 20052 "" e_wsfe(); -#line 19693 "" +#line 20053 "" cl__1.cerr = 0; -#line 19693 "" +#line 20053 "" cl__1.cunit = 19; -#line 19693 "" +#line 20053 "" cl__1.csta = 0; -#line 19693 "" +#line 20053 "" f_clos(&cl__1); -#line 19694 "" +#line 20054 "" } -#line 19695 "" +#line 20055 "" if (! (*optimize)) { -#line 19695 "" +#line 20055 "" jprntb = 81; -#line 19695 "" +#line 20055 "" } -#line 19696 "" +#line 20056 "" commac_1.macuse = 0; -#line 19697 "" +#line 20057 "" comkeys_1.ornrpt = FALSE_; -#line 19698 "" +#line 20058 "" comkeys_1.stickys = FALSE_; -#line 19699 "" +#line 20059 "" commac_1.mrecord = FALSE_; -#line 19700 "" +#line 20060 "" commac_1.mplay = FALSE_; -#line 19701 "" +#line 20061 "" c1omget_1.lastchar = FALSE_; -#line 19702 "" +#line 20062 "" comnvst_2.novshrinktop = FALSE_; -#line 19703 "" +#line 20063 "" cstuplet = FALSE_; -#line 19704 "" +#line 20064 "" comslur_1.fontslur = TRUE_; -#line 19705 "" +#line 20065 "" comligfont_1.isligfont = FALSE_; -#line 19706 "" +#line 20066 "" fulltrans = FALSE_; -#line 19707 "" +#line 20067 "" for (c1omnotes_1.ibarcnt = 1; c1omnotes_1.ibarcnt <= 3999; ++c1omnotes_1.ibarcnt) { -#line 19708 "" +#line 20068 "" c1omnotes_1.udsp[c1omnotes_1.ibarcnt - 1] = 0.f; -#line 19709 "" +#line 20069 "" c1omnotes_1.wminnh[c1omnotes_1.ibarcnt - 1] = -1.f; -#line 19710 "" +#line 20070 "" /* L42: */ -#line 19710 "" +#line 20070 "" } /* Initialize input buffer */ -#line 19714 "" +#line 20074 "" c1omget_1.lenbuf0 = inbuff_1.ipbuf; -#line 19715 "" +#line 20075 "" inbuff_1.ipbuf = 0; -#line 19716 "" +#line 20076 "" inbuff_1.ilbuf = 1; -#line 19717 "" +#line 20077 "" g1etset_(&a1ll_2.nv, &comkeys_1.noinst, &a1ll_2.mtrnuml, &mtrdenl, & mtrnmp, &mtrdnp, &xmtrnum0, comkeys_1.newkey, &compage_1.npages, & compage_1.nsyst, &commus_1.musize, &bottreb); /* Set up list of instrument numbers (iv) */ -#line 19722 "" +#line 20082 "" ivnow = 0; -#line 19723 "" +#line 20083 "" i__1 = comkeys_1.noinst; -#line 19723 "" +#line 20083 "" for (instnow = 1; instnow <= i__1; ++instnow) { -#line 19724 "" +#line 20084 "" i__2 = c1omget_1.nsperi[instnow - 1]; -#line 19724 "" +#line 20084 "" for (iscount = 1; iscount <= i__2; ++iscount) { -#line 19725 "" +#line 20085 "" ++ivnow; -#line 19726 "" +#line 20086 "" cominsttrans_1.instno[ivnow - 1] = instnow; -#line 19727 "" +#line 20087 "" /* L14: */ -#line 19727 "" +#line 20087 "" } -#line 19728 "" +#line 20088 "" /* L13: */ -#line 19728 "" +#line 20088 "" } /* Save initial meter for midi */ -#line 19732 "" +#line 20092 "" if (! (*isfirst) && compage_1.npages == 0) { -#line 19733 "" - s_wsle(&io___1222); -#line 19733 "" +#line 20093 "" + s_wsle(&io___1242); +#line 20093 "" do_lio(&c__9, &c__1, "Sorry, must have npages>0 for optimization.", ( ftnlen)43); -#line 19733 "" +#line 20093 "" e_wsle(); -#line 19734 "" +#line 20094 "" stop1_(); -#line 19735 "" +#line 20095 "" } -#line 19736 "" +#line 20096 "" *nsyout = compage_1.nsyst; /* isig1 will be changed in getnote if there is a transposition */ -#line 19740 "" +#line 20100 "" comkeys_1.isig1 = comkeys_1.newkey[0]; -#line 19741 "" +#line 20101 "" if (compage_1.npages > compage_1.nsyst) { -#line 19742 "" +#line 20102 "" printl_("npages > nsyst in input. Please fix the input.", (ftnlen)47) ; -#line 19743 "" +#line 20103 "" stop1_(); -#line 19744 "" +#line 20104 "" } /* fbar = afterruleskip/elemskip */ /* apt = width of small accidental + space in points (= 6 at 20pt) =wheadpt */ -#line 19749 "" +#line 20109 "" c1ommvl_1.fbar = 1.f; -#line 19750 "" +#line 20110 "" c1omnotes_1.wheadpt = commus_1.whead20 * commus_1.musize; -#line 19751 "" +#line 20111 "" ifig = 0; -#line 19752 "" +#line 20112 "" compage_1.usefig = TRUE_; -#line 19753 "" +#line 20113 "" lenbeat = i1fnodur_(&mtrdenl, "x", (ftnlen)1); -#line 19754 "" +#line 20114 "" lenmult = 1; -#line 19755 "" +#line 20115 "" if (mtrdenl == 2) { -#line 19756 "" +#line 20116 "" lenbeat = 16; -#line 19757 "" +#line 20117 "" lenmult = 2; -#line 19758 "" +#line 20118 "" } -#line 19759 "" +#line 20119 "" a1ll_2.lenbr1 = lenmult * a1ll_2.mtrnuml * lenbeat; -#line 19760 "" +#line 20120 "" r__1 = lenmult * xmtrnum0 * lenbeat; -#line 19760 "" +#line 20120 "" a1ll_2.lenbr0 = i_nint(&r__1); -#line 19761 "" +#line 20121 "" a1ll_2.mtrnuml = 0; -#line 19762 "" +#line 20122 "" if (a1ll_2.lenbr0 != 0) { -#line 19763 "" +#line 20123 "" c1omnotes_1.ibaroff = 1; -#line 19764 "" +#line 20124 "" a1ll_2.lenbar = a1ll_2.lenbr0; -#line 19765 "" +#line 20125 "" } else { -#line 19766 "" +#line 20126 "" c1omnotes_1.ibaroff = 0; -#line 19767 "" +#line 20127 "" a1ll_2.lenbar = a1ll_2.lenbr1; -#line 19768 "" +#line 20128 "" } -#line 19769 "" +#line 20129 "" c1omnotes_1.ibarcnt = 0; -#line 19770 "" +#line 20130 "" c1omnotes_1.nptr[0] = 1; -#line 19771 "" +#line 20131 "" a1ll_2.iccount = 128; -#line 19772 "" +#line 20132 "" compage_1.nmovbrk = 0; -#line 19773 "" +#line 20133 "" compage_1.nflb = 0; -#line 19774 "" +#line 20134 "" compage_1.nfpb = 0; -#line 19775 "" +#line 20135 "" compage_1.ipagfpb[0] = 1; -#line 19776 "" +#line 20136 "" compage_1.isysfpb[0] = 1; -#line 19777 "" +#line 20137 "" compage_1.ibarflb[0] = 1; -#line 19778 "" +#line 20138 "" compage_1.isysflb[0] = 1; -#line 19779 "" +#line 20139 "" compage_1.nistaff[0] = a1ll_2.nv - 1; /* Check for pmx.mod */ -#line 19783 "" +#line 20143 "" c1omget_1.linesinpmxmod = 0; /* line1pmxmod = ilbuf */ -#line 19785 "" +#line 20145 "" getpmxmod_(&c_true, " ", (ftnlen)1); -#line 19786 "" +#line 20146 "" if (! (*isfirst) && c1omget_1.linesinpmxmod > 0) { -#line 19787 "" - s_wsle(&io___1226); -#line 19787 "" +#line 20147 "" + s_wsle(&io___1246); +#line 20147 "" do_lio(&c__9, &c__1, "Sorry, cannot optimize if there is a pmx.mod f"\ "ile", (ftnlen)49); -#line 19787 "" +#line 20147 "" e_wsle(); -#line 19788 "" +#line 20148 "" stop1_(); -#line 19789 "" +#line 20149 "" } /* Initialize for loop over lines */ -#line 19793 "" +#line 20153 "" comkeys_1.nkeys = 1; -#line 19794 "" +#line 20154 "" comkeys_1.ibrkch[0] = 1; -#line 19795 "" +#line 20155 "" comkeys_1.mbrestsav = 0; -#line 19796 "" +#line 20156 "" comkeys_1.shifton = FALSE_; -#line 19797 "" +#line 20157 "" a1ll_2.firstline = TRUE_; -#line 19798 "" +#line 20158 "" a1ll_2.newmeter = FALSE_; -#line 19799 "" +#line 20159 "" c1omget_1.ihead = 0; -#line 19800 "" +#line 20160 "" c1omget_1.isheadr = FALSE_; /* gotclef = .false. */ -#line 19802 "" +#line 20162 "" comkeys_1.idsig = 0; -#line 19803 "" +#line 20163 "" c1omnotes_1.iddot = 0; -#line 19804 "" +#line 20164 "" compage_1.fintstf = -1.f; -#line 19805 "" +#line 20165 "" compage_1.gintstf = 1.f; -#line 19806 "" +#line 20166 "" listcresc = 0; -#line 19807 "" +#line 20167 "" listdecresc = 0; -#line 19808 "" +#line 20168 "" L30: -#line 19808 "" +#line 20168 "" loop = TRUE_; -#line 19809 "" +#line 20169 "" comkeys_1.iskchb = FALSE_; -#line 19810 "" +#line 20170 "" c1omget_1.issegno = FALSE_; -#line 19811 "" +#line 20171 "" a1ll_2.nbars = 0; -#line 19812 "" +#line 20172 "" c1omnotes_1.ibarmbr = 0; -#line 19813 "" +#line 20173 "" i__1 = a1ll_2.nv; -#line 19813 "" +#line 20173 "" for (a1ll_2.iv = 1; a1ll_2.iv <= i__1; ++a1ll_2.iv) { -#line 19814 "" +#line 20174 "" c1ommvl_1.nvmx[a1ll_2.iv - 1] = 1; -#line 19815 "" +#line 20175 "" c1ommvl_1.ivmx[a1ll_2.iv - 1] = a1ll_2.iv; -#line 19816 "" +#line 20176 "" a1ll_2.itsofar[a1ll_2.iv - 1] = 0; -#line 19817 "" +#line 20177 "" a1ll_2.nnl[a1ll_2.iv - 1] = 0; -#line 19818 "" +#line 20178 "" for (j = 1; j <= 200; ++j) { -#line 19819 "" +#line 20179 "" a1ll_2.rest[a1ll_2.iv + j * 24 - 25] = FALSE_; -#line 19820 "" +#line 20180 "" c1ommvl_1.nacc[a1ll_2.iv + j * 24 - 25] = 0.f; -#line 19821 "" +#line 20181 "" /* L5: */ -#line 19821 "" +#line 20181 "" } -#line 19822 "" +#line 20182 "" /* L4: */ -#line 19822 "" +#line 20182 "" } -#line 19823 "" +#line 20183 "" a1ll_2.iv = 1; -#line 19824 "" +#line 20184 "" c1ommvl_1.ivx = 1; -#line 19825 "" +#line 20185 "" c1omget_1.fbon = FALSE_; -#line 19826 "" +#line 20186 "" comkeys_1.barend = FALSE_; -#line 19827 "" +#line 20187 "" c1omget_1.isvolt = FALSE_; -#line 19828 "" +#line 20188 "" L2: -#line 19828 "" +#line 20188 "" if (loop) { /* Within this short loop, nv voices are filled up for the duration of a block. */ @@ -47406,525 +48348,525 @@ L2: /* nodur(..),rest(..). nnl will later be */ /* increased and things slid around as accidental skips are added. */ -#line 19835 "" +#line 20195 "" g1etnote_(&loop, &ifig, optimize, &fulltrans); -#line 19836 "" +#line 20196 "" if (c1omget_1.lastchar) { -#line 19836 "" +#line 20196 "" goto L20; -#line 19836 "" +#line 20196 "" } -#line 19837 "" +#line 20197 "" goto L2; -#line 19838 "" +#line 20198 "" } -#line 19839 "" +#line 20199 "" if (comkeys_1.mbrestsav > 0) { -#line 19840 "" +#line 20200 "" printl_(" ", (ftnlen)1); -#line 19841 "" +#line 20201 "" printl_("You must enter the same multibar rest in ALL parts", (ftnlen) 50); -#line 19843 "" +#line 20203 "" stop1_(); -#line 19844 "" +#line 20204 "" } -#line 19845 "" +#line 20205 "" i__1 = a1ll_2.nbars; -#line 19845 "" +#line 20205 "" for (a1ll_2.ibar = 1; a1ll_2.ibar <= i__1; ++a1ll_2.ibar) { -#line 19846 "" +#line 20206 "" ++c1omnotes_1.ibarcnt; /* The following is just a signal to start a new bar when cataloging spaces */ /* for catspace(...) */ -#line 19851 "" +#line 20211 "" c1omnotes_1.nptr[c1omnotes_1.ibarcnt] = c1omnotes_1.nptr[ c1omnotes_1.ibarcnt - 1]; -#line 19852 "" +#line 20212 "" newmb[c1omnotes_1.ibarcnt - 1] = FALSE_; -#line 19853 "" +#line 20213 "" if (a1ll_2.newmeter && a1ll_2.ibar == 1) { -#line 19853 "" +#line 20213 "" newmb[c1omnotes_1.ibarcnt - 1] = TRUE_; -#line 19853 "" +#line 20213 "" } /* Above is only for spacing calcs later on. Remember new meter can only occur */ /* at START of a new input line (ibar = 1) */ -#line 19858 "" +#line 20218 "" if (a1ll_2.ibar != c1omnotes_1.ibarmbr) { -#line 19859 "" +#line 20219 "" if (! (*optimize)) { -#line 19859 "" +#line 20219 "" i__2 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff; -#line 19859 "" +#line 20219 "" outbar_(&i__2, &jprntb); -#line 19859 "" +#line 20219 "" } -#line 19860 "" +#line 20220 "" } else { -#line 19861 "" +#line 20221 "" if (! (*optimize)) { -#line 19862 "" - s_wsfe(&io___1232); -#line 19862 "" +#line 20222 "" + s_wsfe(&io___1252); +#line 20222 "" do_fio(&c__1, " Multibar rest, bars", (ftnlen)20); -#line 19862 "" +#line 20222 "" i__2 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff; -#line 19862 "" +#line 20222 "" do_fio(&c__1, (char *)&i__2, (ftnlen)sizeof(integer)); -#line 19862 "" +#line 20222 "" do_fio(&c__1, "-", (ftnlen)1); -#line 19862 "" +#line 20222 "" i__3 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + c1omnotes_1.mbrest - 1; -#line 19862 "" +#line 20222 "" do_fio(&c__1, (char *)&i__3, (ftnlen)sizeof(integer)); -#line 19862 "" +#line 20222 "" e_wsfe(); -#line 19864 "" - s_wsfe(&io___1233); -#line 19864 "" +#line 20224 "" + s_wsfe(&io___1253); +#line 20224 "" do_fio(&c__1, " Multibar rest, bars", (ftnlen)20); -#line 19864 "" +#line 20224 "" i__2 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff; -#line 19864 "" +#line 20224 "" do_fio(&c__1, (char *)&i__2, (ftnlen)sizeof(integer)); -#line 19864 "" +#line 20224 "" do_fio(&c__1, "-", (ftnlen)1); -#line 19864 "" +#line 20224 "" i__3 = c1omnotes_1.ibarcnt - c1omnotes_1.ibaroff + c1omnotes_1.mbrest - 1; -#line 19864 "" +#line 20224 "" do_fio(&c__1, (char *)&i__3, (ftnlen)sizeof(integer)); -#line 19864 "" +#line 20224 "" e_wsfe(); -#line 19866 "" +#line 20226 "" jprntb = 0; -#line 19867 "" +#line 20227 "" } -#line 19868 "" +#line 20228 "" c1omnotes_1.ibaroff = c1omnotes_1.ibaroff - c1omnotes_1.mbrest + 1; -#line 19869 "" +#line 20229 "" } -#line 19870 "" +#line 20230 "" if (a1ll_2.firstline && a1ll_2.lenbr0 != 0) { -#line 19871 "" +#line 20231 "" if (a1ll_2.ibar == 1) { -#line 19872 "" +#line 20232 "" a1ll_2.lenbar = a1ll_2.lenbr0; -#line 19873 "" +#line 20233 "" } else { -#line 19874 "" +#line 20234 "" a1ll_2.lenbar = a1ll_2.lenbr1; -#line 19875 "" +#line 20235 "" } -#line 19876 "" +#line 20236 "" } -#line 19877 "" +#line 20237 "" if (a1ll_2.ibar > 1) { /* For bars after first, slide all stuff down to beginning of arrays */ -#line 19881 "" +#line 20241 "" i__2 = a1ll_2.nv; -#line 19881 "" +#line 20241 "" for (a1ll_2.iv = 1; a1ll_2.iv <= i__2; ++a1ll_2.iv) { -#line 19882 "" +#line 20242 "" i__3 = c1ommvl_1.nvmx[a1ll_2.iv - 1]; -#line 19882 "" +#line 20242 "" for (kv = 1; kv <= i__3; ++kv) { -#line 19883 "" +#line 20243 "" c1ommvl_1.ivx = c1ommvl_1.ivmx[a1ll_2.iv + kv * 24 - 25]; -#line 19884 "" +#line 20244 "" ioff = a1ll_2.nib[c1ommvl_1.ivx + (a1ll_2.ibar - 1) * 24 - 25]; -#line 19885 "" +#line 20245 "" i__4 = a1ll_2.nib[c1ommvl_1.ivx + a1ll_2.ibar * 24 - 25] - ioff; -#line 19885 "" +#line 20245 "" for (ip = 1; ip <= i__4; ++ip) { -#line 19886 "" +#line 20246 "" a1ll_2.nodur[c1ommvl_1.ivx + ip * 24 - 25] = a1ll_2.nodur[c1ommvl_1.ivx + (ip + ioff) * 24 - 25]; -#line 19887 "" +#line 20247 "" a1ll_2.rest[c1ommvl_1.ivx + ip * 24 - 25] = a1ll_2.rest[c1ommvl_1.ivx + (ip + ioff) * 24 - 25]; -#line 19888 "" +#line 20248 "" c1ommvl_1.nacc[c1ommvl_1.ivx + ip * 24 - 25] = c1ommvl_1.nacc[c1ommvl_1.ivx + (ip + ioff) * 24 - 25]; -#line 19889 "" +#line 20249 "" /* L12: */ -#line 19889 "" +#line 20249 "" } -#line 19890 "" +#line 20250 "" /* L11: */ -#line 19890 "" +#line 20250 "" } -#line 19890 "" +#line 20250 "" } -#line 19891 "" +#line 20251 "" } -#line 19892 "" +#line 20252 "" i__3 = a1ll_2.nv; -#line 19892 "" +#line 20252 "" for (a1ll_2.iv = 1; a1ll_2.iv <= i__3; ++a1ll_2.iv) { -#line 19893 "" +#line 20253 "" i__2 = c1ommvl_1.nvmx[a1ll_2.iv - 1]; -#line 19893 "" +#line 20253 "" for (kv = 1; kv <= i__2; ++kv) { -#line 19894 "" +#line 20254 "" ioff = 0; -#line 19895 "" +#line 20255 "" if (a1ll_2.ibar > 1) { -#line 19895 "" +#line 20255 "" ioff = a1ll_2.nib[c1ommvl_1.ivmx[a1ll_2.iv + kv * 24 - 25] + (a1ll_2.ibar - 1) * 24 - 25]; -#line 19895 "" +#line 20255 "" } -#line 19896 "" +#line 20256 "" /* L67: */ -#line 19896 "" +#line 20256 "" } -#line 19896 "" +#line 20256 "" } -#line 19897 "" +#line 20257 "" makeabar_(); -#line 19898 "" +#line 20258 "" elsk[c1omnotes_1.ibarcnt - 1] = linecom_1.elskb + c1ommvl_1.fbar; -#line 19899 "" +#line 20259 "" /* L10: */ -#line 19899 "" +#line 20259 "" } -#line 19900 "" +#line 20260 "" a1ll_2.newmeter = FALSE_; -#line 19901 "" +#line 20261 "" a1ll_2.firstline = FALSE_; -#line 19902 "" +#line 20262 "" goto L30; -#line 19903 "" +#line 20263 "" L20: /* Vertical analysis. */ -#line 19907 "" +#line 20267 "" if (compage_1.npages == 0) { -#line 19908 "" +#line 20268 "" if (compage_1.nsyst == 0) { -#line 19909 "" - s_wsle(&io___1238); -#line 19909 "" +#line 20269 "" + s_wsle(&io___1258); +#line 20269 "" do_lio(&c__9, &c__1, "When npages=0, must set nsyst=bars/syst, n"\ "ot 0", (ftnlen)46); -#line 19909 "" +#line 20269 "" e_wsle(); -#line 19910 "" +#line 20270 "" stop1_(); -#line 19911 "" +#line 20271 "" } -#line 19912 "" +#line 20272 "" compage_1.nsyst = (c1omnotes_1.ibarcnt - 1) / compage_1.nsyst + 1; -#line 19913 "" +#line 20273 "" if (a1ll_2.nv == 1) { -#line 19914 "" +#line 20274 "" nsystpp = 12; -#line 19915 "" +#line 20275 "" } else if (a1ll_2.nv == 2) { -#line 19916 "" +#line 20276 "" nsystpp = 7; -#line 19917 "" +#line 20277 "" } else if (a1ll_2.nv == 3) { -#line 19918 "" +#line 20278 "" nsystpp = 5; -#line 19919 "" +#line 20279 "" } else if (a1ll_2.nv == 4) { -#line 19920 "" +#line 20280 "" nsystpp = 3; -#line 19921 "" +#line 20281 "" } else if (a1ll_2.nv <= 7) { -#line 19922 "" +#line 20282 "" nsystpp = 2; -#line 19923 "" +#line 20283 "" } else { -#line 19924 "" +#line 20284 "" nsystpp = 1; -#line 19925 "" +#line 20285 "" } -#line 19926 "" +#line 20286 "" compage_1.npages = (compage_1.nsyst - 1) / nsystpp + 1; -#line 19927 "" +#line 20287 "" } /* Check nsyst vs ibarcnt */ -#line 19931 "" +#line 20291 "" if (compage_1.nsyst > c1omnotes_1.ibarcnt) { -#line 19932 "" - s_wsle(&io___1240); -#line 19932 "" +#line 20292 "" + s_wsle(&io___1260); +#line 20292 "" e_wsle(); -#line 19933 "" - s_wsle(&io___1241); -#line 19933 "" +#line 20293 "" + s_wsle(&io___1261); +#line 20293 "" do_lio(&c__9, &c__1, "nsyst,ibarcnt:", (ftnlen)14); -#line 19933 "" +#line 20293 "" do_lio(&c__3, &c__1, (char *)&compage_1.nsyst, (ftnlen)sizeof(integer) ); -#line 19933 "" +#line 20293 "" do_lio(&c__3, &c__1, (char *)&c1omnotes_1.ibarcnt, (ftnlen)sizeof( integer)); -#line 19933 "" +#line 20293 "" e_wsle(); -#line 19934 "" - s_wsle(&io___1242); -#line 19934 "" +#line 20294 "" + s_wsle(&io___1262); +#line 20294 "" do_lio(&c__9, &c__1, "There are more systems than bars.", (ftnlen)33); -#line 19934 "" +#line 20294 "" e_wsle(); -#line 19935 "" - s_wsfe(&io___1243); -#line 19935 "" +#line 20295 "" + s_wsfe(&io___1263); +#line 20295 "" do_fio(&c__1, " nsyst,ibarcnt:", (ftnlen)15); -#line 19935 "" +#line 20295 "" do_fio(&c__1, (char *)&compage_1.nsyst, (ftnlen)sizeof(integer)); -#line 19935 "" +#line 20295 "" do_fio(&c__1, (char *)&c1omnotes_1.ibarcnt, (ftnlen)sizeof(integer)); -#line 19935 "" +#line 20295 "" e_wsfe(); -#line 19936 "" - s_wsfe(&io___1244); -#line 19936 "" +#line 20296 "" + s_wsfe(&io___1264); +#line 20296 "" do_fio(&c__1, " There are more systems than bars.", (ftnlen)34); -#line 19936 "" +#line 20296 "" e_wsfe(); -#line 19937 "" +#line 20297 "" stop1_(); -#line 19938 "" +#line 20298 "" } /* Set up dummy forced line & page breaks after last real one */ -#line 19942 "" +#line 20302 "" ++compage_1.nflb; -#line 19943 "" +#line 20303 "" compage_1.ibarflb[compage_1.nflb] = c1omnotes_1.ibarcnt + 1; -#line 19944 "" +#line 20304 "" compage_1.isysflb[compage_1.nflb] = compage_1.nsyst + 1; -#line 19945 "" +#line 20305 "" ++compage_1.nfpb; -#line 19946 "" +#line 20306 "" compage_1.ipagfpb[compage_1.nfpb] = compage_1.npages + 1; -#line 19947 "" +#line 20307 "" compage_1.isysfpb[compage_1.nfpb] = compage_1.nsyst + 1; -#line 19948 "" +#line 20308 "" heightil = compage_1.ptheight * 4.f / commus_1.musize; -#line 19949 "" +#line 20309 "" o__1.oerr = 0; -#line 19949 "" +#line 20309 "" o__1.ounit = 12; -#line 19949 "" +#line 20309 "" o__1.ofnm = 0; -#line 19949 "" +#line 20309 "" o__1.orl = 0; -#line 19949 "" +#line 20309 "" o__1.osta = "SCRATCH"; -#line 19949 "" +#line 20309 "" o__1.oacc = 0; -#line 19949 "" +#line 20309 "" o__1.ofm = 0; -#line 19949 "" +#line 20309 "" o__1.oblnk = 0; -#line 19949 "" +#line 20309 "" f_open(&o__1); -#line 19950 "" - s_wsfe(&io___1246); -#line 19950 "" +#line 20310 "" + s_wsfe(&io___1266); +#line 20310 "" do_fio(&c__1, basenameq, (*lbase)); -#line 19950 "" +#line 20310 "" e_wsfe(); -#line 19951 "" - s_wsle(&io___1247); -#line 19951 "" +#line 20311 "" + s_wsle(&io___1267); +#line 20311 "" do_lio(&c__3, &c__1, (char *)&(*lbase), (ftnlen)sizeof(integer)); -#line 19951 "" +#line 20311 "" e_wsle(); /* Pass to pmxb the initial signature, including effect of transposition. */ -#line 19955 "" - s_wsfe(&io___1248); -#line 19955 "" +#line 20315 "" + s_wsfe(&io___1268); +#line 20315 "" do_fio(&c__1, (char *)&c1ommvl_1.fbar, (ftnlen)sizeof(real)); -#line 19955 "" +#line 20315 "" do_fio(&c__1, (char *)&c1omnotes_1.wheadpt, (ftnlen)sizeof(real)); -#line 19955 "" +#line 20315 "" do_fio(&c__1, (char *)&cblock_1.etait, (ftnlen)sizeof(real)); -#line 19955 "" +#line 20315 "" do_fio(&c__1, (char *)&cblock_1.etatc, (ftnlen)sizeof(real)); -#line 19955 "" +#line 20315 "" do_fio(&c__1, (char *)&cblock_1.etacs1, (ftnlen)sizeof(real)); -#line 19955 "" +#line 20315 "" do_fio(&c__1, (char *)&cblock_1.etatop, (ftnlen)sizeof(real)); -#line 19955 "" +#line 20315 "" do_fio(&c__1, (char *)&cblock_1.etabot, (ftnlen)sizeof(real)); -#line 19955 "" +#line 20315 "" do_fio(&c__1, (char *)&cominbot_1.inbothd, (ftnlen)sizeof(integer)); -#line 19955 "" +#line 20315 "" do_fio(&c__1, (char *)&cblock_1.inhnoh, (ftnlen)sizeof(integer)); -#line 19955 "" +#line 20315 "" do_fio(&c__1, (char *)&comkeys_1.isig1, (ftnlen)sizeof(integer)); -#line 19955 "" +#line 20315 "" e_wsfe(); -#line 19957 "" - s_wsle(&io___1249); -#line 19957 "" +#line 20317 "" + s_wsle(&io___1269); +#line 20317 "" do_lio(&c__3, &c__1, (char *)&compage_1.npages, (ftnlen)sizeof(integer)); -#line 19957 "" +#line 20317 "" do_lio(&c__4, &c__1, (char *)&compage_1.widthpt, (ftnlen)sizeof(real)); -#line 19957 "" +#line 20317 "" do_lio(&c__4, &c__1, (char *)&compage_1.ptheight, (ftnlen)sizeof(real)); -#line 19957 "" +#line 20317 "" do_lio(&c__4, &c__1, (char *)&compage_1.hoffpt, (ftnlen)sizeof(real)); -#line 19957 "" +#line 20317 "" do_lio(&c__4, &c__1, (char *)&compage_1.voffpt, (ftnlen)sizeof(real)); -#line 19957 "" +#line 20317 "" do_lio(&c__3, &c__1, (char *)&compage_1.nsyst, (ftnlen)sizeof(integer)); -#line 19957 "" +#line 20317 "" e_wsle(); -#line 19958 "" +#line 20318 "" iflbnow = -1; -#line 19959 "" +#line 20319 "" isysb4 = 0; -#line 19960 "" +#line 20320 "" i__1 = compage_1.nfpb; -#line 19960 "" +#line 20320 "" for (ifpb = 1; ifpb <= i__1; ++ifpb) { /* Each time thru this loop is like a single score with several pages */ -#line 19964 "" +#line 20324 "" compage_1.npages = compage_1.ipagfpb[ifpb] - compage_1.ipagfpb[ifpb - 1]; -#line 19965 "" +#line 20325 "" compage_1.nsyst = compage_1.isysfpb[ifpb] - compage_1.isysfpb[ifpb - 1]; -#line 19966 "" +#line 20326 "" nomnsystp = (compage_1.nsyst - 1) / compage_1.npages + 1; -#line 19967 "" +#line 20327 "" nshort = nomnsystp * compage_1.npages - compage_1.nsyst; -#line 19968 "" +#line 20328 "" i__2 = compage_1.npages; -#line 19968 "" +#line 20328 "" for (ipage = 1; ipage <= i__2; ++ipage) { -#line 19969 "" +#line 20329 "" nsystp = nomnsystp; -#line 19970 "" +#line 20330 "" if (ipage <= nshort) { -#line 19970 "" +#line 20330 "" --nsystp; -#line 19970 "" +#line 20330 "" } /* Last system number on this page: */ -#line 19973 "" +#line 20333 "" isysendpg = isysb4 + nsystp; -#line 19974 "" +#line 20334 "" nintpg = 0; -#line 19975 "" +#line 20335 "" i__3 = isysendpg; -#line 19975 "" +#line 20335 "" for (isy = isysb4 + 1; isy <= i__3; ++isy) { -#line 19976 "" +#line 20336 "" if (compage_1.isysflb[iflbnow + 1] == isy) { -#line 19976 "" +#line 20336 "" ++iflbnow; -#line 19976 "" +#line 20336 "" } -#line 19977 "" +#line 20337 "" nintpg += compage_1.nistaff[iflbnow]; -#line 19978 "" +#line 20338 "" /* L15: */ -#line 19978 "" +#line 20338 "" } -#line 19979 "" +#line 20339 "" xilfrac = 0.f; -#line 19980 "" +#line 20340 "" xiltxt = 0.f; -#line 19981 "" +#line 20341 "" if (ipage == 1 && c1omget_1.ihead > 0) { /* Needn't zero out ihead after printing titles if we only allow titles at top? */ -#line 19985 "" +#line 20345 "" if ((c1omget_1.ihead & 1) == 1) { -#line 19986 "" +#line 20346 "" xiltxt += cblock_1.hgtin * 4 / commus_1.musize; -#line 19987 "" +#line 20347 "" xilfrac += cblock_1.etait; -#line 19988 "" +#line 20348 "" } -#line 19989 "" +#line 20349 "" if ((c1omget_1.ihead & 2) == 2) { -#line 19990 "" +#line 20350 "" xiltxt += cblock_1.hgtti * 4 / commus_1.musize; -#line 19991 "" +#line 20351 "" xilfrac += cblock_1.etatc; -#line 19992 "" +#line 20352 "" } -#line 19993 "" +#line 20353 "" if ((c1omget_1.ihead & 4) == 4) { -#line 19994 "" +#line 20354 "" xiltxt += cblock_1.hgtco * 4 / commus_1.musize; -#line 19995 "" +#line 20355 "" xilfrac += cblock_1.etacs1; -#line 19996 "" +#line 20356 "" } else { /* Use double the title-composer space if there is no composer */ -#line 20000 "" +#line 20360 "" xilfrac += cblock_1.etatc; -#line 20001 "" +#line 20361 "" } -#line 20002 "" +#line 20362 "" } -#line 20003 "" +#line 20363 "" d__ = xilfrac + nsystp - 1 + cblock_1.etatop + cblock_1.etabot; /* C = nsystp*(nv-1) */ -#line 20005 "" +#line 20365 "" c__ = (real) nintpg; /* xN = heightil - xiltxt - 4*nsystp*nv - (nsystp-1)*xilbn */ -#line 20007 "" +#line 20367 "" xn = heightil - xiltxt - (nintpg + nsystp << 2) - (nsystp - 1) * cblock_1.xilbn; -#line 20008 "" +#line 20368 "" if (bottreb) { -#line 20008 "" +#line 20368 "" xn -= (nsystp - 1) * cblock_1.xilbtc; -#line 20008 "" +#line 20368 "" } -#line 20009 "" +#line 20369 "" if (c1omget_1.ihead == 0 && c1omget_1.isheadr) { -#line 20009 "" +#line 20369 "" xn -= cblock_1.xilhdr; -#line 20009 "" +#line 20369 "" } -#line 20010 "" +#line 20370 "" if (ifig == 1) { -#line 20011 "" +#line 20371 "" xn -= nsystp * cblock_1.xilfig; -#line 20012 "" +#line 20372 "" } -#line 20013 "" +#line 20373 "" glueil = (xn - cblock_1.b * c__) / (d__ + cblock_1.a * c__); -#line 20014 "" +#line 20374 "" omegag = (cblock_1.b * d__ + cblock_1.a * xn) / (d__ + cblock_1.a * c__); @@ -47953,573 +48895,573 @@ L20: /* Only the first page will get local adjustment now if needed, others in pmxb */ -#line 20041 "" +#line 20401 "" if (ifpb == 1 && ipage == 1 && compage_1.fintstf > 0.f) { -#line 20042 "" +#line 20402 "" facins = compage_1.fintstf; -#line 20043 "" +#line 20403 "" compage_1.fintstf = -1.f; -#line 20044 "" +#line 20404 "" } else { /* gintstf = 1.0 by default, but may be changed with AI<x> */ -#line 20048 "" +#line 20408 "" facins = compage_1.gintstf; -#line 20049 "" +#line 20409 "" } -#line 20050 "" - s_wsle(&io___1268); -#line 20050 "" +#line 20410 "" + s_wsle(&io___1288); +#line 20410 "" do_lio(&c__3, &c__1, (char *)&nsystp, (ftnlen)sizeof(integer)); /* Computing MAX */ -#line 20050 "" +#line 20410 "" r__2 = 0.f, r__3 = cblock_1.etatop * glueil; -#line 20050 "" +#line 20410 "" r__1 = dmax(r__2,r__3); -#line 20050 "" +#line 20410 "" do_lio(&c__4, &c__1, (char *)&r__1, (ftnlen)sizeof(real)); -#line 20050 "" +#line 20410 "" r__4 = facins * (omegag + 4); -#line 20050 "" +#line 20410 "" do_lio(&c__4, &c__1, (char *)&r__4, (ftnlen)sizeof(real)); -#line 20050 "" +#line 20410 "" e_wsle(); -#line 20051 "" +#line 20411 "" c1omget_1.ihead = 0; -#line 20052 "" +#line 20412 "" c1omget_1.isheadr = FALSE_; -#line 20053 "" +#line 20413 "" isysb4 = isysendpg; -#line 20054 "" +#line 20414 "" /* L7: */ -#line 20054 "" +#line 20414 "" } -#line 20055 "" +#line 20415 "" /* L8: */ -#line 20055 "" +#line 20415 "" } /* Done with vertical, now do horizontals */ -#line 20059 "" +#line 20419 "" celsk[1] = elsk[0]; -#line 20060 "" +#line 20420 "" i__1 = c1omnotes_1.ibarcnt; -#line 20060 "" +#line 20420 "" for (a1ll_2.ibar = 2; a1ll_2.ibar <= i__1; ++a1ll_2.ibar) { -#line 20061 "" +#line 20421 "" celsk[a1ll_2.ibar] = celsk[a1ll_2.ibar - 1] + elsk[a1ll_2.ibar - 1]; -#line 20062 "" +#line 20422 "" /* L21: */ -#line 20062 "" +#line 20422 "" } -#line 20063 "" +#line 20423 "" lastbar[0] = 0; -#line 20064 "" +#line 20424 "" ibar1 = 1; -#line 20065 "" +#line 20425 "" wmins = -1.f; -#line 20066 "" +#line 20426 "" iflb = 1; -#line 20067 "" +#line 20427 "" imovbrk = 0; -#line 20068 "" +#line 20428 "" ikey = 1; /* Return nsyst to its *total* value */ -#line 20072 "" +#line 20432 "" compage_1.nsyst = compage_1.isysfpb[compage_1.nfpb] - 1; -#line 20073 "" +#line 20433 "" i__1 = compage_1.nsyst; -#line 20073 "" +#line 20433 "" for (isyst = 1; isyst <= i__1; ++isyst) { -#line 20074 "" +#line 20434 "" if (isyst == compage_1.isysflb[iflb]) { -#line 20074 "" +#line 20434 "" ++iflb; -#line 20074 "" +#line 20434 "" } -#line 20075 "" +#line 20435 "" if (compage_1.nmovbrk > 0 && imovbrk < compage_1.nmovbrk) { -#line 20076 "" +#line 20436 "" if (isyst == compage_1.isysmb[imovbrk + 1]) { -#line 20076 "" +#line 20436 "" ++imovbrk; -#line 20076 "" +#line 20436 "" } -#line 20077 "" +#line 20437 "" } -#line 20078 "" +#line 20438 "" ibarb4 = lastbar[isyst - 1]; -#line 20079 "" +#line 20439 "" if (isyst == 1) { -#line 20080 "" +#line 20440 "" if (*isfirst) { -#line 20080 "" +#line 20440 "" elsstarg = celsk[compage_1.ibarflb[1] - 1] / ( compage_1.isysflb[1] - 1 - c1omget_1.fracindent) * (1 - c1omget_1.fracindent); -#line 20080 "" +#line 20440 "" } -#line 20082 "" +#line 20442 "" celskb4 = 0.f; -#line 20083 "" +#line 20443 "" } else { -#line 20084 "" +#line 20444 "" celskb4 = celsk[ibarb4]; /* Must dimension isysmb(0:*) just so I can execute this test! */ -#line 20088 "" +#line 20448 "" if (*isfirst) { -#line 20089 "" +#line 20449 "" if (compage_1.nmovbrk > 0 && isyst == compage_1.isysmb[ imovbrk]) { /* First syst after forced line break. There may be indentation. */ -#line 20093 "" +#line 20453 "" elsstarg = (celsk[compage_1.ibarflb[iflb] - 1] - celskb4) / (compage_1.isysflb[iflb] - isyst - compage_1.fracsys[imovbrk - 1]) * (1 - compage_1.fracsys[imovbrk - 1]); -#line 20096 "" +#line 20456 "" } else { /* There is no indentation to deal with */ -#line 20100 "" +#line 20460 "" elsstarg = (celsk[compage_1.ibarflb[iflb] - 1] - celskb4) / (compage_1.isysflb[iflb] - isyst); -#line 20102 "" +#line 20462 "" } -#line 20103 "" +#line 20463 "" } -#line 20104 "" +#line 20464 "" } -#line 20105 "" +#line 20465 "" if (*isfirst) { -#line 20106 "" +#line 20466 "" diff1 = (r__1 = elsstarg - elsk[ibarb4], dabs(r__1)); -#line 20107 "" +#line 20467 "" i__2 = c1omnotes_1.ibarcnt; -#line 20107 "" +#line 20467 "" for (a1ll_2.ibar = ibarb4 + 2; a1ll_2.ibar <= i__2; ++a1ll_2.ibar) { -#line 20108 "" +#line 20468 "" diff = elsstarg - (celsk[a1ll_2.ibar] - celskb4); -#line 20109 "" +#line 20469 "" if (dabs(diff) >= diff1) { -#line 20109 "" +#line 20469 "" goto L24; -#line 20109 "" +#line 20469 "" } -#line 20110 "" +#line 20470 "" diff1 = dabs(diff); -#line 20111 "" +#line 20471 "" /* L23: */ -#line 20111 "" +#line 20471 "" } -#line 20112 "" +#line 20472 "" L24: -#line 20112 "" +#line 20472 "" --a1ll_2.ibar; -#line 20113 "" +#line 20473 "" lastbar[isyst] = a1ll_2.ibar; -#line 20114 "" +#line 20474 "" nbarss[isyst] = a1ll_2.ibar - ibarb4; -#line 20115 "" +#line 20475 "" } else { /* nbarss is given as an input, must compute lastbar and ibar */ -#line 20119 "" +#line 20479 "" lastbar[isyst] = nbarss[isyst] + ibarb4; -#line 20120 "" +#line 20480 "" a1ll_2.ibar = lastbar[isyst]; -#line 20121 "" +#line 20481 "" } /* elss is # of elemskip in the syst. from notes & ars's, not ruleskips, ask's. */ -#line 20125 "" +#line 20485 "" elss[isyst - 1] = celsk[a1ll_2.ibar] - celskb4; -#line 20126 "" - s_wsfe(&io___1283); -#line 20126 "" +#line 20486 "" + s_wsfe(&io___1303); +#line 20486 "" i__2 = lastbar[isyst - 1] + 1; -#line 20126 "" +#line 20486 "" do_fio(&c__1, (char *)&i__2, (ftnlen)sizeof(integer)); -#line 20126 "" +#line 20486 "" e_wsfe(); /* Transposed sigs are isig1, newkey(2,3,...). */ -#line 20130 "" +#line 20490 "" if (ikey == 1) { -#line 20131 "" +#line 20491 "" key1 = comkeys_1.isig1; -#line 20132 "" +#line 20492 "" } else { -#line 20133 "" +#line 20493 "" key1 = comkeys_1.newkey[ikey - 1]; -#line 20134 "" +#line 20494 "" } -#line 20135 "" +#line 20495 "" fsyst = wclef + abs(key1) * wkeysig + 2.f / commus_1.musize; -#line 20136 "" +#line 20496 "" xelsk = 0.f; -#line 20137 "" +#line 20497 "" L1: -#line 20137 "" +#line 20497 "" if (ikey < comkeys_1.nkeys) { -#line 20138 "" +#line 20498 "" if (comkeys_1.ibrkch[ikey] <= lastbar[isyst]) { /* Add space for all key changes */ -#line 20142 "" +#line 20502 "" ++ikey; -#line 20143 "" +#line 20503 "" key2 = comkeys_1.newkey[ikey - 1]; /* Computing MAX */ /* Computing MAX */ -#line 20144 "" +#line 20504 "" i__5 = abs(key1), i__6 = abs(key2); -#line 20144 "" +#line 20504 "" i__3 = (i__2 = key2 - key1, abs(i__2)), i__4 = max(i__5,i__6); -#line 20144 "" +#line 20504 "" naccs = max(i__3,i__4); -#line 20145 "" +#line 20505 "" fsyst += naccs * wkeysig; /* Account for afterruleskips (fbar) */ -#line 20149 "" +#line 20509 "" xelsk += c1ommvl_1.fbar / 2; -#line 20150 "" +#line 20510 "" if (comkeys_1.ibrkch[ikey - 1] < lastbar[isyst] && ! comkeys_1.kchmid[ikey - 1]) { -#line 20150 "" +#line 20510 "" xelsk += -1.f; -#line 20150 "" +#line 20510 "" } -#line 20152 "" +#line 20512 "" key1 = key2; -#line 20153 "" +#line 20513 "" goto L1; -#line 20154 "" +#line 20514 "" } -#line 20155 "" +#line 20515 "" } /* Add extra fixed space for double bar */ -#line 20159 "" +#line 20519 "" if (isyst == compage_1.nsyst) { -#line 20160 "" +#line 20520 "" fsyst += 4.5f / commus_1.musize; -#line 20161 "" +#line 20521 "" } /* Add extra fixed space for initial time signature */ -#line 20165 "" +#line 20525 "" if (isyst == 1) { -#line 20166 "" +#line 20526 "" fsyst += wtimesig; -#line 20167 "" +#line 20527 "" } /* Add extra fixed space for time signature changes & user-defined spaces */ -#line 20171 "" +#line 20531 "" i__2 = lastbar[isyst]; -#line 20171 "" +#line 20531 "" for (ibars = ibarb4 + 1; ibars <= i__2; ++ibars) { -#line 20172 "" +#line 20532 "" if (newmb[ibars - 1]) { -#line 20172 "" +#line 20532 "" fsyst += wtimesig; -#line 20172 "" +#line 20532 "" } -#line 20173 "" +#line 20533 "" fsyst += c1omnotes_1.udsp[ibars - 1] / commus_1.musize; -#line 20174 "" +#line 20534 "" /* L26: */ -#line 20174 "" +#line 20534 "" } -#line 20175 "" +#line 20535 "" if (isyst == 1) { -#line 20176 "" +#line 20536 "" wdpt = compage_1.widthpt * (1 - c1omget_1.fracindent); -#line 20177 "" +#line 20537 "" } else { -#line 20178 "" +#line 20538 "" if (compage_1.nmovbrk > 0 && imovbrk > 0 && isyst == compage_1.isysmb[imovbrk]) { -#line 20180 "" +#line 20540 "" wdpt = compage_1.widthpt * (1 - compage_1.fracsys[imovbrk - 1] ); -#line 20181 "" +#line 20541 "" } else { -#line 20182 "" +#line 20542 "" wdpt = compage_1.widthpt; -#line 20183 "" +#line 20543 "" } -#line 20184 "" +#line 20544 "" } -#line 20185 "" +#line 20545 "" wsyspt = wdpt - fsyst * commus_1.musize - nbarss[isyst] * .4f; /* Checks for min spacing */ /* Get min allowable space */ -#line 20190 "" +#line 20550 "" dtmin = 1e3f; -#line 20191 "" +#line 20551 "" i__2 = ibar1 + nbarss[isyst] - 1; -#line 20191 "" +#line 20551 "" for (a1ll_2.ibar = ibar1; a1ll_2.ibar <= i__2; ++a1ll_2.ibar) { /* Computing MIN */ -#line 20192 "" +#line 20552 "" r__1 = dtmin, r__2 = linecom_1.tnminb[a1ll_2.ibar - 1]; -#line 20192 "" +#line 20552 "" dtmin = dmin(r__1,r__2); -#line 20193 "" +#line 20553 "" if (c1omnotes_1.wminnh[a1ll_2.ibar - 1] >= 0.f) { -#line 20193 "" +#line 20553 "" wmins = c1omnotes_1.wminnh[a1ll_2.ibar - 1]; -#line 20193 "" +#line 20553 "" } -#line 20194 "" +#line 20554 "" /* L45: */ -#line 20194 "" +#line 20554 "" } -#line 20195 "" +#line 20555 "" if (wmins < 0.f) { -#line 20195 "" +#line 20555 "" wmins = .3f; -#line 20195 "" +#line 20555 "" } -#line 20196 "" +#line 20556 "" wminpt = (wmins + 1) * .3f * commus_1.musize; /* Find max duration & # of notes for this system */ -#line 20200 "" +#line 20560 "" dtmax = 0.f; -#line 20201 "" +#line 20561 "" nns = 0; -#line 20202 "" +#line 20562 "" i__2 = c1omnotes_1.nptr[ibar1 + nbarss[isyst] - 1] - 1; -#line 20202 "" +#line 20562 "" for (iptr = c1omnotes_1.nptr[ibar1 - 1]; iptr <= i__2; ++iptr) { /* Computing MAX */ -#line 20203 "" +#line 20563 "" r__1 = dtmax, r__2 = c1omnotes_1.durb[iptr - 1]; -#line 20203 "" +#line 20563 "" dtmax = dmax(r__1,r__2); -#line 20204 "" +#line 20564 "" nns += c1omnotes_1.nnpd[iptr - 1]; -#line 20205 "" +#line 20565 "" /* L43: */ -#line 20205 "" +#line 20565 "" } -#line 20206 "" +#line 20566 "" elmin0 = wsyspt * f1eon_(&dtmin) / (elss[isyst - 1] + xelsk); -#line 20207 "" +#line 20567 "" if (elmin0 >= wminpt) { /* Subtract out fbar stuff to keep old way of passing sumelsk to pmxb; */ /* there is no need to "flatten" */ -#line 20212 "" +#line 20572 "" sumelsk = elss[isyst - 1] - c1ommvl_1.fbar * nbarss[isyst]; -#line 20213 "" +#line 20573 "" comeon_1.eonk = 0.f; -#line 20214 "" +#line 20574 "" comeon_1.ewmxk = 1.f; -#line 20215 "" +#line 20575 "" } else { -#line 20216 "" +#line 20576 "" elmin1 = wsyspt / ((c1ommvl_1.fbar * nbarss[isyst] + xelsk) / f1eon_(&dtmax) + nns); -#line 20217 "" +#line 20577 "" if (elmin1 <= wminpt) { /* print* */ /* print*,'In system #',isyst,' cannot meet min. space rqmt' */ /* write(15,'(/a,i5,a)') */ /* * 'In system #',isyst,' cannot meet min. space rqmt' */ -#line 20222 "" +#line 20582 "" comeon_1.eonk = .9f; -#line 20223 "" +#line 20583 "" } else { /* Find eonk by Newton method */ -#line 20227 "" +#line 20587 "" i__2 = c1omnotes_1.nptr[ibar1 + nbarss[isyst] - 1] - 1; -#line 20227 "" +#line 20587 "" r__1 = wsyspt / wminpt; -#line 20227 "" +#line 20587 "" r__2 = c1ommvl_1.fbar * nbarss[isyst] + xelsk; -#line 20227 "" +#line 20587 "" r__3 = (wminpt - elmin0) / (elmin1 - elmin0); -#line 20227 "" +#line 20587 "" findeonk_(&c1omnotes_1.nptr[ibar1 - 1], &i__2, &r__1, &r__2, & dtmin, &dtmax, &r__3); -#line 20230 "" +#line 20590 "" comeon_1.eonk = dmin(.9f,comeon_1.eonk); -#line 20231 "" +#line 20591 "" } -#line 20232 "" +#line 20592 "" d__1 = (doublereal) f1eon_(&dtmax); -#line 20232 "" +#line 20592 "" d__2 = (doublereal) comeon_1.eonk; -#line 20232 "" +#line 20592 "" comeon_1.ewmxk = pow_dd(&d__1, &d__2); /* Recompute poenom! */ -#line 20236 "" +#line 20596 "" sumelsk = 0.f; -#line 20237 "" +#line 20597 "" i__2 = c1omnotes_1.nptr[ibar1 + nbarss[isyst] - 1] - 1; -#line 20237 "" +#line 20597 "" for (iptr = c1omnotes_1.nptr[ibar1 - 1]; iptr <= i__2; ++iptr) { -#line 20238 "" +#line 20598 "" r__1 = c1omnotes_1.durb[iptr - 1] / c1omnotes_1.sqzb[iptr - 1] ; -#line 20238 "" +#line 20598 "" sumelsk += c1omnotes_1.nnpd[iptr - 1] * c1omnotes_1.sqzb[iptr - 1] * feon_(&r__1); -#line 20240 "" +#line 20600 "" /* L44: */ -#line 20240 "" +#line 20600 "" } -#line 20241 "" +#line 20601 "" } -#line 20242 "" +#line 20602 "" poenom = wsyspt / (sumelsk + c1ommvl_1.fbar * nbarss[isyst] + xelsk); /* Set fracindent for output: orig if isyst=1, fracsys(imovbrk) if movbrk, else 0 */ -#line 20246 "" +#line 20606 "" if (isyst > 0) { -#line 20247 "" +#line 20607 "" if (compage_1.nmovbrk > 0 && imovbrk > 0 && isyst == compage_1.isysmb[imovbrk]) { -#line 20249 "" +#line 20609 "" c1omget_1.fracindent = compage_1.fracsys[imovbrk - 1]; -#line 20250 "" +#line 20610 "" } else { -#line 20251 "" +#line 20611 "" c1omget_1.fracindent = 0.f; -#line 20252 "" +#line 20612 "" } -#line 20253 "" +#line 20613 "" } -#line 20254 "" - s_wsfe(&io___1301); -#line 20254 "" +#line 20614 "" + s_wsfe(&io___1321); +#line 20614 "" do_fio(&c__1, (char *)&poenom, (ftnlen)sizeof(real)); -#line 20254 "" +#line 20614 "" do_fio(&c__1, (char *)&nbarss[isyst], (ftnlen)sizeof(integer)); -#line 20254 "" +#line 20614 "" do_fio(&c__1, (char *)&sumelsk, (ftnlen)sizeof(real)); -#line 20254 "" +#line 20614 "" do_fio(&c__1, (char *)&fsyst, (ftnlen)sizeof(real)); -#line 20254 "" +#line 20614 "" do_fio(&c__1, (char *)&c1omget_1.fracindent, (ftnlen)sizeof(real)); -#line 20254 "" +#line 20614 "" do_fio(&c__1, (char *)&comeon_1.eonk, (ftnlen)sizeof(real)); -#line 20254 "" +#line 20614 "" do_fio(&c__1, (char *)&comeon_1.ewmxk, (ftnlen)sizeof(real)); -#line 20254 "" +#line 20614 "" e_wsfe(); -#line 20256 "" +#line 20616 "" ibar1 += nbarss[isyst]; -#line 20257 "" +#line 20617 "" /* L22: */ -#line 20257 "" +#line 20617 "" } -#line 20258 "" +#line 20618 "" al__1.aerr = 0; -#line 20258 "" +#line 20618 "" al__1.aunit = 12; -#line 20258 "" +#line 20618 "" f_rew(&al__1); -#line 20259 "" +#line 20619 "" o__1.oerr = 0; -#line 20259 "" +#line 20619 "" o__1.ounit = 13; -#line 20259 "" +#line 20619 "" o__1.ofnm = 0; -#line 20259 "" +#line 20619 "" o__1.orl = 0; -#line 20259 "" +#line 20619 "" o__1.osta = "SCRATCH"; -#line 20259 "" +#line 20619 "" o__1.oacc = 0; -#line 20259 "" +#line 20619 "" o__1.ofm = 0; -#line 20259 "" +#line 20619 "" o__1.oblnk = 0; -#line 20259 "" +#line 20619 "" f_open(&o__1); -#line 20260 "" - s_wsfe(&io___1302); -#line 20260 "" +#line 20620 "" + s_wsfe(&io___1322); +#line 20620 "" do_fio(&c__1, (char *)&ifig, (ftnlen)sizeof(integer)); -#line 20260 "" +#line 20620 "" e_wsfe(); -#line 20261 "" +#line 20621 "" al__1.aerr = 0; -#line 20261 "" +#line 20621 "" al__1.aunit = 13; -#line 20261 "" +#line 20621 "" f_rew(&al__1); -#line 20262 "" +#line 20622 "" inbuff_1.ilbuf = 1; -#line 20263 "" +#line 20623 "" inbuff_1.ipbuf = 0; -#line 20264 "" +#line 20624 "" if (! (*optimize)) { -#line 20265 "" - s_wsfe(&io___1303); -#line 20265 "" +#line 20625 "" + s_wsfe(&io___1323); +#line 20625 "" do_fio(&c__1, " Done with first pass", (ftnlen)21); -#line 20265 "" +#line 20625 "" e_wsfe(); -#line 20266 "" - s_wsle(&io___1304); -#line 20266 "" +#line 20626 "" + s_wsle(&io___1324); +#line 20626 "" e_wsle(); -#line 20267 "" - s_wsfe(&io___1305); -#line 20267 "" +#line 20627 "" + s_wsfe(&io___1325); +#line 20627 "" do_fio(&c__1, " Done with first pass", (ftnlen)21); -#line 20267 "" +#line 20627 "" e_wsfe(); -#line 20268 "" - s_wsfe(&io___1306); -#line 20268 "" +#line 20628 "" + s_wsfe(&io___1326); +#line 20628 "" e_wsfe(); -#line 20269 "" +#line 20629 "" } /* Following syntax is needed since pmxa is called with literal argument .false. */ -#line 20273 "" +#line 20633 "" if (*isfirst) { -#line 20273 "" +#line 20633 "" *isfirst = FALSE_; -#line 20273 "" +#line 20633 "" } -#line 20274 "" +#line 20634 "" return 0; } /* pmxa_ */ @@ -48528,19 +49470,20 @@ L1: { /* System generated locals */ address a__1[12], a__2[6], a__3[4], a__4[2], a__5[3], a__6[10], a__7[9], - a__8[2], a__9[5], a__10[8], a__11[14]; + a__8[2], a__9[5], a__10[8], a__11[7], a__12[11], a__13[14]; integer i__1, i__2, i__3[12], i__4[6], i__5[4], i__6[2], i__7, i__8[3], - i__9[10], i__10[9], i__11[2], i__12[5], i__13, i__14[8], i__15[14] - ; + i__9[10], i__10[9], i__11[2], i__12[5], i__13, i__14[8], i__15[7], + i__16[11], i__17[14]; real r__1, r__2; char ch__1[1], ch__2[46], ch__3[23], ch__4[26], ch__5[27], ch__6[20], ch__7[29], ch__8[8], ch__9[35], ch__10[14], ch__11[19], ch__12[ 107], ch__13[17], ch__14[12], ch__15[11], ch__16[15], ch__17[13], ch__18[9], ch__19[32], ch__20[10], ch__21[4], ch__22[16], ch__23[ - 33], ch__24[18], ch__25[82], ch__26[66], ch__27[60], ch__28[45], - ch__29[11], ch__30[6], ch__31[76], ch__32[40], ch__33[69], ch__34[ - 41], ch__35[44], ch__36[5], ch__37[7], ch__38[24], ch__39[22], - ch__40[96]; + 40], ch__24[24], ch__25[6], ch__26[18], ch__27[82], ch__28[66], + ch__29[60], ch__30[45], ch__31[28], ch__32[11], ch__33[76], + ch__34[38], ch__35[33], ch__36[43], ch__37[69], ch__38[41], + ch__39[44], ch__40[5], ch__41[7], ch__42[25], ch__43[22], ch__44[ + 96]; cilist ci__1; icilist ici__1; olist o__1; @@ -48564,18 +49507,25 @@ L1: f_clos(cllist *), f_rew(alist *); /* Local variables */ + extern /* Subroutine */ int outbar_(integer *, integer *); + static real ptsndb, ptsndv, ptsdflt; extern /* Subroutine */ int clefsym_(integer *, char *, integer *, integer *, ftnlen), wsclef_(integer *, integer *, integer *); static integer nvalue, islnow, iplnow, lvoltxt, nbarss; static real elsktot; - static integer ndigbn, indsym; - extern /* Subroutine */ int wgmeter_(integer *, integer *); - static integer mtrnms; + static integer ndigbn, isdat; + extern integer ncmid_(integer *, integer *); + static integer indsym; + extern /* Subroutine */ int wgmeter_(integer *, integer *), writesetsign_( + integer *, integer *, integer *, logical *); + static integer mtrnms, ibarcnt0, lntmp; static real xnstbot; - static integer iptemp, islide, ipnew, iudorn, idynd; + static integer iptemp, naccs, islide, ipnew, iudorn, idynd, iflagbot; extern /* Subroutine */ int setbits_(integer *, integer *, integer *, integer *); - static integer itxtdyn, isdata, iarps; + static integer itxtdyn; + static real xmtrnum0; + static integer isdata, iarps; extern /* Subroutine */ int make1bar_(integer *, real *, real *, logical * , real *, integer *, integer *, integer *), make2bar_(integer *, real *, real *, logical *, real *, integer *, integer *, integer * @@ -48583,7 +49533,6 @@ L1: static real hardb4; extern /* Subroutine */ int askfig_(char *, integer *, char *, integer *, logical *, logical *, ftnlen, ftnlen); - static real xmtrnum0; extern integer igetbits_(integer *, integer *, integer *); extern /* Subroutine */ int newvoice_(integer *, char *, logical *, ftnlen); @@ -48596,21 +49545,24 @@ L1: extern /* Subroutine */ int midievent_(char *, integer *, integer *, ftnlen); static real xintstaff[75]; - static integer ia, ig, il, ip, it, kv, ip2, ibc, icc, ipa, ipi; + static char shortfraq[3]; + static integer ia, ig, il, ip, it, kv, ip2, iv1, ibc, icc, ipa, ipi; static real esk; static char nmq[40]; static integer iiv; static real poe, frac; - static integer ifig, jfig, ndig; + static integer ifig, ndig; extern /* Character */ VOID chax_(char *, ftnlen, integer *); static real hesk[23]; static integer ioff; - extern doublereal feon_(real *); static char fmtq[24]; static logical loop; - static real hpts[23], wdpt; - static logical lrpt, rrpt; - static integer lnmq, icrd, idyn; + static real hpts[23]; + extern doublereal feon_(real *); + static logical lrpt; + static real wdpt; + static logical rrpt; + static integer lnmq, ntmp, icrd, idyn, jfig; static real tglp1; extern /* Subroutine */ int stop1_(void); static logical clchb; @@ -48620,36 +49572,30 @@ L1: static integer istop[80]; static real squez[80]; static logical ismbr; + static char rendq[3]; static real etait, etatc, etacs1; static integer nsyst, lpath, iauto; static real slfac1; - static integer lnote, nclef, ipnow; + static integer lnote, nclef, iinst, ipnow; extern /* Subroutine */ int linebreakties_(integer *, integer *, integer * , integer *, integer *, logical *, char *, ftnlen); static real fsyst; - static integer isdat; - extern integer ncmid_(integer *, integer *); - extern /* Subroutine */ int writesetsign_(integer *, integer *, integer *, - logical *); - static integer naccs; static logical evolta; static integer numbms[24], istart[80]; static logical cwrest[24], svolta; static char notexq[79]; static logical onvolt; static real tstart[80]; - static logical putmbr; - static real etatop; - static logical istype0; - static real etabot; + static logical putmbr, istype0; + static real etatop, etabot; static integer inhnoh; extern /* Subroutine */ int getset_(integer *, integer *, integer *, integer *, integer *, integer *, real *, integer *, integer *, integer *, real *, logical *, char *, char *, char *, char *, integer *, integer *, ftnlen, ftnlen, ftnlen, ftnlen); - static integer noinst, npages, ibcoff, ibmrep, lenbeat, nhstot, jprntb; + static integer noinst, npages, ibcoff; static logical newclef; - static integer nhssys; + static integer lenbeat; extern /* Subroutine */ int topfile_(char *, integer *, integer *, char *, integer *, integer *, real *, integer *, integer *, logical *, real *, logical *, ftnlen, ftnlen); @@ -48657,134 +49603,177 @@ L1: static integer isyscnt; static real xntrial; extern integer ifnodur_(integer *, char *, ftnlen); - static integer isystpg; - extern /* Subroutine */ int getnote_(logical *), addmidi_(integer *, - integer *, integer *, integer *, real *, logical *, logical *), - outbar_(integer *, integer *); - static real ptsndb, ptsndv, xnsttop[75], ptsdflt; + static integer ibmrep, isystpg, nhstot, jprntb, nhssys; + extern /* Subroutine */ int getnote_(logical *); + static real xnsttop[75]; + extern /* Subroutine */ int addmidi_(integer *, integer *, integer *, + integer *, real *, logical *, logical *); /* Fortran I/O blocks */ - static cilist io___1307 = { 0, 6, 0, 0, 0 }; - static cilist io___1308 = { 0, 6, 0, 0, 0 }; - static cilist io___1309 = { 0, 6, 0, 0, 0 }; - static cilist io___1310 = { 0, 15, 0, "(a)", 0 }; - static cilist io___1314 = { 0, 12, 0, "(a)", 0 }; - static cilist io___1316 = { 0, 12, 0, 0, 0 }; - static cilist io___1318 = { 0, 12, 0, 0, 0 }; - static cilist io___1334 = { 0, 6, 0, 0, 0 }; - static cilist io___1335 = { 0, 12, 0, 0, 0 }; - static cilist io___1341 = { 0, 13, 0, 0, 0 }; - static cilist io___1343 = { 0, 14, 0, "(a)", 0 }; - static cilist io___1346 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1347 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1348 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1351 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1361 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1363 = { 0, 6, 0, "(/,a20,i4,a1,i4)", 0 }; - static cilist io___1364 = { 0, 15, 0, "(/,a20,i4,a1,i4)", 0 }; + static cilist io___1327 = { 0, 6, 0, 0, 0 }; + static cilist io___1328 = { 0, 6, 0, 0, 0 }; + static cilist io___1329 = { 0, 6, 0, 0, 0 }; + static cilist io___1330 = { 0, 15, 0, "(a)", 0 }; + static cilist io___1334 = { 0, 12, 0, "(a)", 0 }; + static cilist io___1336 = { 0, 12, 0, 0, 0 }; + static cilist io___1338 = { 0, 12, 0, 0, 0 }; + static cilist io___1354 = { 0, 6, 0, 0, 0 }; + static cilist io___1355 = { 0, 12, 0, 0, 0 }; + static cilist io___1361 = { 0, 13, 0, 0, 0 }; + static cilist io___1363 = { 0, 14, 0, "(a)", 0 }; + static cilist io___1366 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1367 = { 0, 11, 0, "(a)", 0 }; static cilist io___1368 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1369 = { 0, 11, 0, "(a14,f4.1,a)", 0 }; - static cilist io___1378 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1387 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1388 = { 0, 11, 0, "(a20,i1,a)", 0 }; - static cilist io___1389 = { 0, 11, 0, "(a20,i2,a)", 0 }; - static cilist io___1390 = { 0, 11, 0, "(a20)", 0 }; - static cilist io___1391 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1393 = { 0, 11, 0, "(a11,i2,a2)", 0 }; - static cilist io___1394 = { 0, 11, 0, "(a11,i1,a2)", 0 }; - static cilist io___1395 = { 0, 12, 0, 0, 0 }; - static cilist io___1398 = { 0, 6, 0, 0, 0 }; - static cilist io___1399 = { 0, 6, 0, 0, 0 }; - static cilist io___1402 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1403 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1404 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1405 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1406 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1407 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1410 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1411 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1413 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1414 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1423 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1424 = { 0, 12, 0, 0, 0 }; - static cilist io___1426 = { 0, 14, 0, "(a9,i2,a10,i2,1x,a4)", 0 }; - static cilist io___1429 = { 0, 11, 0, fmtq, 0 }; - static cilist io___1431 = { 0, 6, 0, 0, 0 }; - static cilist io___1432 = { 0, 6, 0, 0, 0 }; - static cilist io___1433 = { 0, 11, 0, "(a)", 0 }; - static icilist io___1436 = { 0, nmq+12, 0, "(2i1)", 2, 1 }; - static icilist io___1437 = { 0, nmq+12, 0, "(a1,i2,a1,i1)", 5, 1 }; + static cilist io___1371 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1382 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1384 = { 0, 6, 0, "(/,a20,i4,a1,i4)", 0 }; + static cilist io___1385 = { 0, 15, 0, "(/,a20,i4,a1,i4)", 0 }; + static cilist io___1389 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1390 = { 0, 11, 0, "(a14,f4.1,a)", 0 }; + static cilist io___1399 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1408 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1411 = { 0, 6, 0, 0, 0 }; + static cilist io___1412 = { 0, 6, 0, 0, 0 }; + static cilist io___1413 = { 0, 11, 0, "(a20,i1,a)", 0 }; + static cilist io___1414 = { 0, 11, 0, "(a20,i2,a)", 0 }; + static cilist io___1415 = { 0, 11, 0, "(a20)", 0 }; + static cilist io___1416 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1418 = { 0, 11, 0, "(a11,i2,a2)", 0 }; + static cilist io___1419 = { 0, 11, 0, "(a11,i1,a2)", 0 }; + static cilist io___1420 = { 0, 12, 0, 0, 0 }; + static cilist io___1423 = { 0, 6, 0, 0, 0 }; + static cilist io___1424 = { 0, 6, 0, 0, 0 }; + static cilist io___1427 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1428 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1429 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1430 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1431 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1432 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1435 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1436 = { 0, 11, 0, "(a)", 0 }; static cilist io___1438 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1439 = { 0, 11, 0, "(a18,i1,a2)", 0 }; - static cilist io___1440 = { 0, 11, 0, "(a18,i2,a2)", 0 }; - static cilist io___1442 = { 0, 11, 0, "(a11,i1,a2)", 0 }; - static cilist io___1443 = { 0, 11, 0, "(a11,i2,a2)", 0 }; - static cilist io___1444 = { 0, 11, 0, "(a11,i3,a2)", 0 }; - static cilist io___1446 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1447 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1439 = { 0, 11, 0, "(a)", 0 }; static cilist io___1448 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1449 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1450 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1451 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1452 = { 0, 11, 0, fmtq, 0 }; + static cilist io___1449 = { 0, 12, 0, 0, 0 }; + static cilist io___1451 = { 0, 14, 0, "(a9,i2,a10,i2,1x,a4)", 0 }; static cilist io___1454 = { 0, 11, 0, fmtq, 0 }; - static cilist io___1455 = { 0, 11, 0, fmtq, 0 }; - static cilist io___1456 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1457 = { 0, 11, 0, fmtq, 0 }; + static cilist io___1456 = { 0, 6, 0, 0, 0 }; + static cilist io___1457 = { 0, 6, 0, 0, 0 }; static cilist io___1458 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1459 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1460 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1461 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1462 = { 0, 11, 0, "(a)", 0 }; + static icilist io___1461 = { 0, nmq+12, 0, "(2i1)", 2, 1 }; + static icilist io___1462 = { 0, nmq+12, 0, "(a1,i2,a1,i1)", 5, 1 }; static cilist io___1463 = { 0, 11, 0, "(a)", 0 }; static cilist io___1464 = { 0, 11, 0, "(a)", 0 }; static cilist io___1465 = { 0, 11, 0, "(a)", 0 }; static cilist io___1466 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1467 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1468 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1469 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1470 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1471 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1472 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1473 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1474 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1475 = { 0, 11, 0, "(a16,i1,a14)", 0 }; - static cilist io___1476 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1477 = { 0, 12, 1, 0, 0 }; + static cilist io___1467 = { 0, 11, 0, "(a6,i2,a11)", 0 }; + static cilist io___1468 = { 0, 11, 0, "(a6,i1,a11)", 0 }; + static cilist io___1469 = { 0, 11, 0, "(a8,i1,a3)", 0 }; + static cilist io___1470 = { 0, 11, 0, "(a9,i2,a4)", 0 }; + static cilist io___1471 = { 0, 11, 0, "(a18,i1,a2)", 0 }; + static cilist io___1472 = { 0, 11, 0, "(a18,i2,a2)", 0 }; + static cilist io___1474 = { 0, 11, 0, "(a11,i1,a2)", 0 }; + static cilist io___1475 = { 0, 11, 0, "(a11,i2,a2)", 0 }; + static cilist io___1476 = { 0, 11, 0, "(a11,i3,a2)", 0 }; + static cilist io___1477 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1478 = { 0, 11, 0, "(a)", 0 }; static cilist io___1480 = { 0, 11, 0, "(a)", 0 }; static cilist io___1481 = { 0, 11, 0, "(a)", 0 }; static cilist io___1482 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1483 = { 0, 11, 0, "(a)", 0 }; static cilist io___1484 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1485 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1486 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1487 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1488 = { 0, 11, 0, "(a,2i1,a)", 0 }; - static cilist io___1489 = { 0, 11, 0, "(a)", 0 }; + static icilist io___1489 = { 0, shortfraq, 0, "(i2)", 2, 1 }; static cilist io___1490 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1491 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1492 = { 0, 11, 0, fmtq, 0 }; + static cilist io___1494 = { 0, 11, 0, fmtq, 0 }; + static cilist io___1495 = { 0, 11, 0, fmtq, 0 }; + static cilist io___1496 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1497 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1498 = { 0, 11, 0, fmtq, 0 }; + static cilist io___1499 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1500 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1501 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1502 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1503 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1504 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1505 = { 0, 11, 0, "(a)", 0 }; static cilist io___1506 = { 0, 11, 0, "(a)", 0 }; static cilist io___1507 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1515 = { 0, 11, 0, "(a11,f5.1,a4)", 0 }; + static cilist io___1508 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1509 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1510 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1511 = { 0, 11, 0, "(a)", 0 }; + static icilist io___1512 = { 0, shortfraq, 0, "(f3.2)", 3, 1 }; + static cilist io___1513 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1514 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1515 = { 0, 11, 0, "(a)", 0 }; static cilist io___1516 = { 0, 11, 0, "(a)", 0 }; static cilist io___1517 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1518 = { 0, 11, 0, "(a)", 0 }; + static icilist io___1518 = { 0, shortfraq, 0, "(i2)", 2, 1 }; static cilist io___1519 = { 0, 11, 0, "(a)", 0 }; static cilist io___1520 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1521 = { 0, 6, 0, 0, 0 }; - static cilist io___1522 = { 0, 6, 0, 0, 0 }; - static cilist io___1523 = { 0, 15, 0, 0, 0 }; - static cilist io___1524 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1521 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1522 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1523 = { 0, 11, 0, "(a)", 0 }; + static icilist io___1524 = { 0, shortfraq, 0, "(f3.2)", 3, 1 }; static cilist io___1525 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1526 = { 0, 11, 0, fmtq, 0 }; - static cilist io___1527 = { 0, 11, 0, fmtq, 0 }; + static cilist io___1526 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1527 = { 0, 11, 0, "(a)", 0 }; static cilist io___1528 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1529 = { 0, 11, 0, "(a)", 0 }; + static icilist io___1529 = { 0, shortfraq, 0, "(i2)", 2, 1 }; static cilist io___1530 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1531 = { 0, 14, 0, "(a9,i2,a10,i2,1x,a5)", 0 }; - static cilist io___1532 = { 0, 6, 0, 0, 0 }; - static cilist io___1533 = { 0, 6, 0, 0, 0 }; - static cilist io___1534 = { 0, 6, 0, 0, 0 }; - static cilist io___1535 = { 0, 15, 0, "(/,a)", 0 }; - static cilist io___1536 = { 0, 15, 0, "(a)", 0 }; + static cilist io___1531 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1532 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1533 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1534 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1535 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1536 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1537 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1538 = { 0, 11, 0, "(a16,i1,a14)", 0 }; + static cilist io___1539 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1540 = { 0, 12, 1, 0, 0 }; + static cilist io___1543 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1544 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1545 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1547 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1548 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1549 = { 0, 11, 0, "(a)", 0 }; + static icilist io___1550 = { 0, shortfraq, 0, "(i2)", 2, 1 }; + static cilist io___1551 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1552 = { 0, 11, 0, "(a)", 0 }; + static icilist io___1553 = { 0, shortfraq, 0, "(f3.2)", 3, 1 }; + static cilist io___1554 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1555 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1556 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1557 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1558 = { 0, 11, 0, "(a,2i1,a)", 0 }; + static cilist io___1559 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1560 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1576 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1577 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1585 = { 0, 11, 0, "(a11,f5.1,a4)", 0 }; + static cilist io___1586 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1588 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1589 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1590 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1591 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1592 = { 0, 6, 0, 0, 0 }; + static cilist io___1593 = { 0, 6, 0, 0, 0 }; + static cilist io___1594 = { 0, 15, 0, 0, 0 }; + static cilist io___1595 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1596 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1597 = { 0, 11, 0, fmtq, 0 }; + static cilist io___1598 = { 0, 11, 0, fmtq, 0 }; + static cilist io___1599 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1600 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1601 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1602 = { 0, 14, 0, "(a9,i2,a10,i2,1x,a5)", 0 }; + static cilist io___1603 = { 0, 6, 0, 0, 0 }; + static cilist io___1604 = { 0, 6, 0, 0, 0 }; + static cilist io___1605 = { 0, 6, 0, 0, 0 }; + static cilist io___1606 = { 0, 15, 0, "(/,a)", 0 }; + static cilist io___1607 = { 0, 15, 0, "(a)", 0 }; /* ccccccccccccccccccccccccc */ @@ -49108,122 +50097,124 @@ L1: /* Bits in icrdorn are same as in iornq, even tho most orns won't go in crds. */ /* ccccccccccccccccccccccccccccccc */ -#line 20733 "" +#line 21100 "" /* Parameter adjustments */ -#line 20733 "" +#line 21100 "" --poevec; -#line 20733 "" +#line 21100 "" -#line 20733 "" +#line 21100 "" /* Function Body */ -#line 20733 "" +#line 21100 "" combottop_1.bottopgap = FALSE_; -#line 20734 "" +#line 21101 "" comlyr_1.inputmlyr = FALSE_; -#line 20735 "" +#line 21102 "" comhair_2.idhairuse = 0; -#line 20736 "" +#line 21103 "" if (! (*optimize)) { -#line 20737 "" - s_wsle(&io___1307); -#line 20737 "" +#line 21104 "" + s_wsle(&io___1327); +#line 21104 "" e_wsle(); -#line 20738 "" - s_wsle(&io___1308); -#line 20738 "" +#line 21105 "" + s_wsle(&io___1328); +#line 21105 "" do_lio(&c__9, &c__1, "Starting second PMX pass", (ftnlen)24); -#line 20738 "" +#line 21105 "" e_wsle(); -#line 20739 "" - s_wsle(&io___1309); -#line 20739 "" +#line 21106 "" + s_wsle(&io___1329); +#line 21106 "" e_wsle(); -#line 20740 "" - s_wsfe(&io___1310); -#line 20740 "" +#line 21107 "" + s_wsfe(&io___1330); +#line 21107 "" do_fio(&c__1, "Starting second PMX pass", (ftnlen)24); -#line 20740 "" +#line 21107 "" e_wsfe(); -#line 20741 "" +#line 21108 "" } -#line 20742 "" +#line 21109 "" newclef = FALSE_; -#line 20743 "" +#line 21110 "" comclefrests_1.centrests = FALSE_; -#line 20744 "" +#line 21111 "" ++(*ncalls); -#line 20745 "" +#line 21112 "" comlast_1.islast = *inlast; -#line 20746 "" +#line 21113 "" commac_1.macuse = 0; -#line 20747 "" +#line 21114 "" isyscnt = 0; -#line 20748 "" +#line 21115 "" all_1.stemmax = 8.2f; -#line 20749 "" +#line 21116 "" all_1.stemmin = 3.9f; -#line 20750 "" +#line 21117 "" all_1.stemlen = 6.f; -#line 20751 "" +#line 21118 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 20751 "" +#line 21118 "" *(unsigned char *)all_1.sq = *(unsigned char *)&ch__1[0]; -#line 20752 "" +#line 21119 "" comignorenats_1.ignorenats = FALSE_; -#line 20753 "" +#line 21120 "" + comignorenats_1.newmbrhgt = FALSE_; +#line 21121 "" combc_1.bcspec = TRUE_; -#line 20754 "" +#line 21122 "" comas3_1.topmods = FALSE_; -#line 20755 "" +#line 21123 "" ismbr = FALSE_; -#line 20756 "" - s_rsfe(&io___1314); -#line 20756 "" +#line 21124 "" + s_rsfe(&io___1334); +#line 21124 "" do_fio(&c__1, basenameq, (ftnlen)44); -#line 20756 "" +#line 21124 "" e_rsfe(); -#line 20757 "" - s_rsle(&io___1316); -#line 20757 "" +#line 21125 "" + s_rsle(&io___1336); +#line 21125 "" do_lio(&c__3, &c__1, (char *)&lbase, (ftnlen)sizeof(integer)); -#line 20757 "" +#line 21125 "" e_rsle(); -#line 20758 "" - s_rsle(&io___1318); -#line 20758 "" +#line 21126 "" + s_rsle(&io___1338); +#line 21126 "" do_lio(&c__4, &c__1, (char *)&comask_1.fbar, (ftnlen)sizeof(real)); -#line 20758 "" +#line 21126 "" do_lio(&c__4, &c__1, (char *)&comask_1.wheadpt, (ftnlen)sizeof(real)); -#line 20758 "" +#line 21126 "" do_lio(&c__4, &c__1, (char *)&etait, (ftnlen)sizeof(real)); -#line 20758 "" +#line 21126 "" do_lio(&c__4, &c__1, (char *)&etatc, (ftnlen)sizeof(real)); -#line 20758 "" +#line 21126 "" do_lio(&c__4, &c__1, (char *)&etacs1, (ftnlen)sizeof(real)); -#line 20758 "" +#line 21126 "" do_lio(&c__4, &c__1, (char *)&etatop, (ftnlen)sizeof(real)); -#line 20758 "" +#line 21126 "" do_lio(&c__4, &c__1, (char *)&etabot, (ftnlen)sizeof(real)); -#line 20758 "" +#line 21126 "" do_lio(&c__3, &c__1, (char *)&cominbot_1.inbothd, (ftnlen)sizeof(integer)) ; -#line 20758 "" +#line 21126 "" do_lio(&c__3, &c__1, (char *)&inhnoh, (ftnlen)sizeof(integer)); -#line 20758 "" +#line 21126 "" do_lio(&c__3, &c__1, (char *)&comtop_1.isig, (ftnlen)sizeof(integer)); -#line 20758 "" +#line 21126 "" e_rsle(); -#line 20760 "" +#line 21128 "" inbuff_1.ilbuf = 1; -#line 20761 "" +#line 21129 "" inbuff_1.ipbuf = 0; -#line 20762 "" +#line 21130 "" getset_(&all_1.nv, &noinst, &all_1.mtrnuml, &all_1.mtrdenl, &all_1.mtrnmp, &all_1.mtrdnp, &xmtrnum0, &npages, &nsyst, &all_1.musicsize, & comtop_1.fracindent, &istype0, comtop_1.inameq, comclefq_1.clefq, all_1.sepsymq, pathnameq, &lpath, &comtop_1.isig0, (ftnlen)79, ( ftnlen)1, (ftnlen)1, (ftnlen)40); -#line 20765 "" +#line 21133 "" if (commidi_1.ismidi) { /* Initial key signature and meter for pickup bar */ @@ -49236,199 +50227,199 @@ L1: /* Above is probably cosmetic */ /* call midievent('k',midisig,0) */ -#line 20777 "" +#line 21145 "" if (xmtrnum0 > comtol_1.tol) { /* We have a pickup. Some tricky stuff to get a meter: */ -#line 20781 "" +#line 21149 "" xntrial = xmtrnum0; -#line 20782 "" +#line 21150 "" for (ip2 = 0; ip2 <= 5; ++ip2) { -#line 20783 "" - if ((r__1 = r_mod(&xntrial, &c_b1054), dabs(r__1)) < +#line 21151 "" + if ((r__1 = r_mod(&xntrial, &c_b1053), dabs(r__1)) < comtol_1.tol) { -#line 20783 "" +#line 21151 "" goto L6; -#line 20783 "" +#line 21151 "" } -#line 20784 "" +#line 21152 "" xntrial *= 2; -#line 20785 "" +#line 21153 "" /* L5: */ -#line 20785 "" +#line 21153 "" } -#line 20786 "" - s_wsle(&io___1334); -#line 20786 "" +#line 21154 "" + s_wsle(&io___1354); +#line 21154 "" do_lio(&c__9, &c__1, "Problem finding meter for pickup bar", ( ftnlen)36); -#line 20786 "" +#line 21154 "" e_wsle(); -#line 20787 "" +#line 21155 "" xntrial = 1.f; -#line 20788 "" +#line 21156 "" ip2 = 0; -#line 20789 "" +#line 21157 "" L6: -#line 20790 "" +#line 21158 "" i__1 = i_nint(&xntrial); -#line 20790 "" +#line 21158 "" i__2 = pow_ii(&c__2, &ip2) * all_1.mtrdenl; -#line 20790 "" +#line 21158 "" midievent_("m", &i__1, &i__2, (ftnlen)1); -#line 20791 "" +#line 21159 "" } else { /* No pickup, enter the starting meter */ -#line 20795 "" +#line 21163 "" midievent_("m", &all_1.mtrnuml, &all_1.mtrdenl, (ftnlen)1); -#line 20796 "" +#line 21164 "" } -#line 20797 "" +#line 21165 "" } /* Set musicsize from value passed in common, due to possible reset by S[n]m16 */ -#line 20801 "" +#line 21169 "" all_1.musicsize = commus_1.musize; -#line 20802 "" - s_rsle(&io___1335); -#line 20802 "" +#line 21170 "" + s_rsle(&io___1355); +#line 21170 "" do_lio(&c__3, &c__1, (char *)&npages, (ftnlen)sizeof(integer)); -#line 20802 "" +#line 21170 "" do_lio(&c__4, &c__1, (char *)&comtop_1.widthpt, (ftnlen)sizeof(real)); -#line 20802 "" +#line 21170 "" do_lio(&c__4, &c__1, (char *)&comtop_1.height, (ftnlen)sizeof(real)); -#line 20802 "" +#line 21170 "" do_lio(&c__4, &c__1, (char *)&comtop_1.hoffpt, (ftnlen)sizeof(real)); -#line 20802 "" +#line 21170 "" do_lio(&c__4, &c__1, (char *)&comtop_1.voffpt, (ftnlen)sizeof(real)); -#line 20802 "" +#line 21170 "" do_lio(&c__3, &c__1, (char *)&nsyst, (ftnlen)sizeof(integer)); -#line 20802 "" +#line 21170 "" i__1 = npages; -#line 20802 "" +#line 21170 "" for (ipa = 1; ipa <= i__1; ++ipa) { -#line 20802 "" +#line 21170 "" do_lio(&c__3, &c__1, (char *)&comnotes_1.nsystp[ipa - 1], (ftnlen) sizeof(integer)); -#line 20802 "" +#line 21170 "" do_lio(&c__4, &c__1, (char *)&xnsttop[ipa - 1], (ftnlen)sizeof(real)); -#line 20802 "" +#line 21170 "" do_lio(&c__4, &c__1, (char *)&xintstaff[ipa - 1], (ftnlen)sizeof(real) ); -#line 20802 "" +#line 21170 "" } -#line 20802 "" +#line 21170 "" do_lio(&c__3, &c__1, (char *)&iauto, (ftnlen)sizeof(integer)); -#line 20802 "" +#line 21170 "" e_rsle(); /* If default width ever changes, must adjust this stmt. */ -#line 20807 "" +#line 21175 "" slfac1 = 2.98156f / comtop_1.widthpt; -#line 20808 "" +#line 21176 "" all_1.figbass = FALSE_; -#line 20809 "" - s_rsle(&io___1341); -#line 20809 "" +#line 21177 "" + s_rsle(&io___1361); +#line 21177 "" do_lio(&c__3, &c__1, (char *)&ifig, (ftnlen)sizeof(integer)); -#line 20809 "" +#line 21177 "" e_rsle(); -#line 20810 "" +#line 21178 "" if (ifig == 1) { -#line 20811 "" +#line 21179 "" all_1.figbass = TRUE_; -#line 20812 "" +#line 21180 "" o__1.oerr = 0; -#line 20812 "" +#line 21180 "" o__1.ounit = 14; -#line 20812 "" +#line 21180 "" o__1.ofnm = 0; -#line 20812 "" +#line 21180 "" o__1.orl = 0; -#line 20812 "" +#line 21180 "" o__1.osta = "SCRATCH"; -#line 20812 "" +#line 21180 "" o__1.oacc = 0; -#line 20812 "" +#line 21180 "" o__1.ofm = 0; -#line 20812 "" +#line 21180 "" o__1.oblnk = 0; -#line 20812 "" +#line 21180 "" f_open(&o__1); -#line 20813 "" - s_wsfe(&io___1343); +#line 21181 "" + s_wsfe(&io___1363); /* Writing concatenation */ -#line 20813 "" +#line 21181 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 20813 "" +#line 21181 "" i__3[1] = 3, a__1[1] = "def"; -#line 20813 "" +#line 21181 "" i__3[2] = 1, a__1[2] = all_1.sq; -#line 20813 "" +#line 21181 "" i__3[3] = 8, a__1[3] = "fixdrop{"; -#line 20813 "" +#line 21181 "" i__3[4] = 1, a__1[4] = all_1.sq; -#line 20813 "" +#line 21181 "" i__3[5] = 7, a__1[5] = "advance"; -#line 20813 "" +#line 21181 "" i__3[6] = 1, a__1[6] = all_1.sq; -#line 20813 "" +#line 21181 "" i__3[7] = 10, a__1[7] = "sysno by 1"; -#line 20813 "" +#line 21181 "" i__3[8] = 1, a__1[8] = all_1.sq; -#line 20813 "" +#line 21181 "" i__3[9] = 6, a__1[9] = "ifcase"; -#line 20813 "" +#line 21181 "" i__3[10] = 1, a__1[10] = all_1.sq; -#line 20813 "" +#line 21181 "" i__3[11] = 6, a__1[11] = "sysno%"; -#line 20813 "" +#line 21181 "" s_cat(ch__2, a__1, i__3, &c__12, (ftnlen)46); -#line 20813 "" +#line 21181 "" do_fio(&c__1, ch__2, (ftnlen)46); -#line 20813 "" +#line 21181 "" e_wsfe(); -#line 20815 "" +#line 21183 "" } -#line 20816 "" +#line 21184 "" comget_1.lastchar = FALSE_; -#line 20817 "" +#line 21185 "" ibcoff = 0; -#line 20818 "" +#line 21186 "" if (xmtrnum0 > 0.f) { -#line 20818 "" +#line 21186 "" ibcoff = -1; -#line 20818 "" +#line 21186 "" } -#line 20819 "" +#line 21187 "" o__1.oerr = 0; -#line 20819 "" +#line 21187 "" o__1.ounit = 11; -#line 20819 "" +#line 21187 "" o__1.ofnm = 0; -#line 20819 "" +#line 21187 "" o__1.orl = 0; -#line 20819 "" +#line 21187 "" o__1.osta = "SCRATCH"; -#line 20819 "" +#line 21187 "" o__1.oacc = 0; -#line 20819 "" +#line 21187 "" o__1.ofm = 0; -#line 20819 "" +#line 21187 "" o__1.oblnk = 0; -#line 20819 "" +#line 21187 "" f_open(&o__1); /* vshrink for the first page is calculated in topfile, */ /* and if true set interstaff=10. vshrink affects Titles. */ /* Must also save vshrink for page ending. */ -#line 20825 "" +#line 21193 "" topfile_(basenameq, &lbase, &all_1.nv, comclefq_1.clefq, &noinst, & all_1.musicsize, xintstaff, &all_1.mtrnmp, &all_1.mtrdnp, & vshrink, &comask_1.fbar, &comslur_1.fontslur, (ftnlen)44, (ftnlen) @@ -49436,394 +50427,404 @@ L6: /* ninow is working value of # of instruments. noinst is max #, and # at start. */ -#line 20830 "" +#line 21198 "" comnotes_1.ninow = noinst; /* Save original printed meter in case movement breaks */ -#line 20834 "" +#line 21202 "" comget_1.movnmp = all_1.mtrnmp; -#line 20835 "" +#line 21203 "" comget_1.movdnp = all_1.mtrdnp; -#line 20837 "" +#line 21205 "" if (comlast_1.islast && all_1.figbass && all_1.musicsize == 16) { -#line 20837 "" - s_wsfe(&io___1346); +#line 21205 "" + s_wsfe(&io___1366); /* Writing concatenation */ -#line 20837 "" +#line 21205 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 20837 "" +#line 21205 "" i__4[1] = 3, a__2[1] = "def"; -#line 20837 "" +#line 21205 "" i__4[2] = 1, a__2[2] = all_1.sq; -#line 20837 "" +#line 21205 "" i__4[3] = 8, a__2[3] = "figfont{"; -#line 20837 "" +#line 21205 "" i__4[4] = 1, a__2[4] = all_1.sq; -#line 20837 "" +#line 21205 "" i__4[5] = 9, a__2[5] = "eightrm}%"; -#line 20837 "" +#line 21205 "" s_cat(ch__3, a__2, i__4, &c__6, (ftnlen)23); -#line 20837 "" +#line 21205 "" do_fio(&c__1, ch__3, (ftnlen)23); -#line 20837 "" +#line 21205 "" e_wsfe(); -#line 20837 "" +#line 21205 "" } -#line 20840 "" +#line 21208 "" if (comlast_1.islast && comligfont_1.isligfont) { -#line 20841 "" +#line 21209 "" if (all_1.musicsize == 16) { -#line 20842 "" - s_wsfe(&io___1347); +#line 21210 "" + s_wsfe(&io___1367); /* Writing concatenation */ -#line 20842 "" +#line 21210 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 20842 "" +#line 21210 "" i__5[1] = 4, a__3[1] = "font"; -#line 20842 "" +#line 21210 "" i__5[2] = 1, a__3[2] = all_1.sq; -#line 20842 "" +#line 21210 "" i__5[3] = 20, a__3[3] = "ligfont=cmrj at 8pt%"; -#line 20842 "" +#line 21210 "" s_cat(ch__4, a__3, i__5, &c__4, (ftnlen)26); -#line 20842 "" +#line 21210 "" do_fio(&c__1, ch__4, (ftnlen)26); -#line 20842 "" +#line 21210 "" e_wsfe(); -#line 20843 "" +#line 21211 "" } else { -#line 20844 "" - s_wsfe(&io___1348); +#line 21212 "" + s_wsfe(&io___1368); /* Writing concatenation */ -#line 20844 "" +#line 21212 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 20844 "" +#line 21212 "" i__5[1] = 4, a__3[1] = "font"; -#line 20844 "" +#line 21212 "" i__5[2] = 1, a__3[2] = all_1.sq; -#line 20844 "" +#line 21212 "" i__5[3] = 21, a__3[3] = "ligfont=cmrj at 10pt%"; -#line 20844 "" +#line 21212 "" s_cat(ch__5, a__3, i__5, &c__4, (ftnlen)27); -#line 20844 "" +#line 21212 "" do_fio(&c__1, ch__5, (ftnlen)27); -#line 20844 "" +#line 21212 "" e_wsfe(); -#line 20845 "" +#line 21213 "" } -#line 20846 "" +#line 21214 "" } -#line 20847 "" +#line 21215 "" lenbeat = ifnodur_(&all_1.mtrdenl, "x", (ftnlen)1); -#line 20848 "" +#line 21216 "" if (all_1.mtrdenl == 2) { -#line 20848 "" +#line 21216 "" lenbeat = 16; -#line 20848 "" +#line 21216 "" } -#line 20849 "" +#line 21217 "" all_1.lenb1 = all_1.mtrnuml * lenbeat; -#line 20850 "" +#line 21218 "" if (all_1.mtrdenl == 2) { -#line 20850 "" +#line 21218 "" all_1.lenb1 <<= 1; -#line 20850 "" +#line 21218 "" } -#line 20851 "" +#line 21219 "" setmeter_(&all_1.mtrnuml, &all_1.mtrdenl, &combeam_1.ibmtyp, &ibmrep); -#line 20852 "" +#line 21220 "" r__1 = xmtrnum0 * lenbeat; -#line 20852 "" +#line 21220 "" all_1.lenb0 = i_nint(&r__1); -#line 20853 "" +#line 21221 "" if (all_1.mtrdenl == 2) { -#line 20853 "" +#line 21221 "" all_1.lenb0 <<= 1; -#line 20853 "" +#line 21221 "" } -#line 20854 "" +#line 21222 "" if (all_1.lenb0 != 0) { -#line 20855 "" +#line 21223 "" if (comlast_1.islast) { -#line 20855 "" - s_wsfe(&io___1351); +#line 21223 "" + s_wsfe(&io___1371); /* Writing concatenation */ -#line 20855 "" +#line 21223 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 20855 "" +#line 21223 "" i__5[1] = 7, a__3[1] = "advance"; -#line 20855 "" +#line 21223 "" i__5[2] = 1, a__3[2] = all_1.sq; -#line 20855 "" +#line 21223 "" i__5[3] = 11, a__3[3] = "barno by -1"; -#line 20855 "" +#line 21223 "" s_cat(ch__6, a__3, i__5, &c__4, (ftnlen)20); -#line 20855 "" +#line 21223 "" do_fio(&c__1, ch__6, (ftnlen)20); -#line 20855 "" +#line 21223 "" e_wsfe(); -#line 20855 "" +#line 21223 "" } -#line 20856 "" +#line 21224 "" all_1.lenbar = all_1.lenb0; -#line 20857 "" +#line 21225 "" } else { -#line 20858 "" +#line 21226 "" all_1.lenbar = all_1.lenb1; -#line 20859 "" +#line 21227 "" } /* Initialize full-program variables */ -#line 20863 "" +#line 21231 "" comask_1.fixednew = 0.f; -#line 20864 "" +#line 21232 "" comask_1.scaldold = 0.f; -#line 20865 "" +#line 21233 "" comget_1.fintstf = -1.f; -#line 20866 "" +#line 21234 "" comget_1.gintstf = 1.f; -#line 20867 "" +#line 21235 "" comas2_1.nasksys = 0; -#line 20868 "" +#line 21236 "" combibarcnt_1.ibarcnt = 0; -#line 20869 "" +#line 21237 "" all_1.iline = 0; -#line 20870 "" +#line 21238 "" comget_1.movbrk = 0; -#line 20871 "" +#line 21239 "" isystpg = 0; -#line 20872 "" +#line 21240 "" comnotes_1.ipage = 1; -#line 20873 "" +#line 21241 "" all_1.iccount = 128; -#line 20874 "" +#line 21242 "" comas3_1.iask = 0; -#line 20875 "" +#line 21243 "" nhstot = 0; -#line 20876 "" +#line 21244 "" comnsp_2.nb = 1; -#line 20877 "" +#line 21245 "" if (! (*optimize)) { -#line 20877 "" +#line 21245 "" jprntb = 81; -#line 20877 "" +#line 21245 "" } -#line 20878 "" +#line 21246 "" comtop_1.idsig = 0; +#line 21247 "" + iflagbot = 0; /* Next 5 are raise-barno parameters. irzbnd is integer part of default level. */ -#line 20882 "" +#line 21251 "" comsln_1.irzbnd = 3; -#line 20883 "" +#line 21252 "" if (comtop_1.isig == 3 && *(unsigned char *)&comclefq_1.clefq[all_1.nv - 1] == 't') { -#line 20883 "" +#line 21252 "" comsln_1.irzbnd = 4; -#line 20883 "" +#line 21252 "" } -#line 20884 "" +#line 21253 "" comsln_1.is1n1 = 0; -#line 20885 "" +#line 21254 "" comsln_1.isnx = 0; -#line 20886 "" +#line 21255 "" comslur_1.slurcurve = 0.f; +#line 21256 "" + comshort_1.ishort = 0; +#line 21257 "" + comshort_1.nocodabn = FALSE_; +#line 21258 "" + comshort_1.mbrsum = 0; +#line 21259 "" + comshort_1.nmbr = 0; /* 111109 Made global rather than per gulp */ -#line 20890 "" +#line 21263 "" comdyn_1.ndyn = 0; -#line 20891 "" +#line 21264 "" compoi_1.ispoi = FALSE_; -#line 20892 "" +#line 21265 "" slint = FALSE_; -#line 20893 "" +#line 21266 "" lrptpend = FALSE_; -#line 20894 "" +#line 21267 "" comget_1.rptnd1 = FALSE_; -#line 20895 "" +#line 21268 "" *(unsigned char *)comget_1.rptfq2 = 'E'; -#line 20896 "" +#line 21269 "" comget_1.rptprev = FALSE_; -#line 20897 "" +#line 21270 "" onvolt = FALSE_; -#line 20898 "" +#line 21271 "" comnsp_2.flgndb = FALSE_; -#line 20899 "" +#line 21272 "" comget_1.fbon = FALSE_; -#line 20900 "" +#line 21273 "" comnotes_1.shifton = FALSE_; -#line 20901 "" +#line 21274 "" comget_1.ornrpt = FALSE_; -#line 20902 "" +#line 21275 "" comnotes_1.setis = FALSE_; -#line 20903 "" +#line 21276 "" comarp_1.lowdot = FALSE_; -#line 20904 "" +#line 21277 "" comnvi_1.rename = FALSE_; -#line 20905 "" +#line 21278 "" comnotes_1.nobar1 = FALSE_; -#line 20906 "" +#line 21279 "" comget_1.equalize = FALSE_; -#line 20907 "" +#line 21280 "" comlast_1.usevshrink = TRUE_; -#line 20908 "" +#line 21281 "" comslur_1.wrotepsslurdefaults = FALSE_; -#line 20909 "" +#line 21282 "" comnotes_1.optlinebreakties = FALSE_; -#line 20910 "" +#line 21283 "" comnotes_1.headerspecial = FALSE_; /* vshrink is initialized in topfile */ -#line 20914 "" +#line 21287 "" comget_1.stickys = FALSE_; /* ixrest = 1 or 2 if xtup has started with a rest */ -#line 20918 "" +#line 21291 "" for (commvl_1.ivx = 1; commvl_1.ivx <= 24; ++commvl_1.ivx) { -#line 20919 "" +#line 21292 "" strtmid_1.ixrest[commvl_1.ivx - 1] = 0; -#line 20920 "" +#line 21293 "" comfig_1.fullsize[commvl_1.ivx - 1] = 1.f; /* Set legacy note level to middle c as default */ -#line 20924 "" +#line 21297 "" comnotes_1.ndlev[commvl_1.ivx - 1] = 29; -#line 20925 "" +#line 21298 "" comnotes_1.ndlev[commvl_1.ivx + 23] = 29; -#line 20926 "" +#line 21299 "" /* L1: */ -#line 20926 "" +#line 21299 "" } -#line 20927 "" +#line 21300 "" comnotes_1.npreslur = 0; -#line 20928 "" +#line 21301 "" nhssys = 0; -#line 20929 "" +#line 21302 "" comslur_1.listslur = 0; -#line 20930 "" +#line 21303 "" for (i__ = 1; i__ <= 202; ++i__) { -#line 20931 "" +#line 21304 "" all_1.isdat1[i__ - 1] = 0; -#line 20932 "" +#line 21305 "" all_1.isdat2[i__ - 1] = 0; -#line 20933 "" +#line 21306 "" /* L31: */ -#line 20933 "" +#line 21306 "" } -#line 20934 "" +#line 21307 "" all_1.nsdat = 0; /* Initialize flag for figures in any other voice than 1 */ -#line 20938 "" +#line 21311 "" comfig_1.ivxfig2 = 0; /* Initialize for loop over gulps */ -#line 20942 "" +#line 21315 "" all_1.firstgulp = TRUE_; /* Start a gulp */ -#line 20946 "" +#line 21319 "" L30: -#line 20946 "" +#line 21319 "" loop = TRUE_; -#line 20947 "" +#line 21320 "" comnotes_1.notcrd = TRUE_; -#line 20948 "" +#line 21321 "" combjmp_1.isbjmp = FALSE_; -#line 20949 "" +#line 21322 "" combjmp_1.isbj2 = FALSE_; -#line 20950 "" +#line 21323 "" comfb_1.autofbon = FALSE_; -#line 20951 "" +#line 21324 "" comfb_1.tautofb = 0.f; -#line 20952 "" +#line 21325 "" all_1.nbars = 0; -#line 20953 "" +#line 21326 "" comfig_1.nfigs[0] = 0; -#line 20954 "" +#line 21327 "" comfig_1.nfigs[1] = 0; -#line 20955 "" +#line 21328 "" comgrace_1.ngrace = 0; -#line 20956 "" +#line 21329 "" comtrill_1.ntrill = 0; -#line 20957 "" +#line 21330 "" comtrill_1.ncrd = 0; -#line 20958 "" +#line 21331 "" comtrill_1.nudorn = 0; -#line 20959 "" +#line 21332 "" comgrace_1.nlit = 0; -#line 20960 "" +#line 21333 "" comgrace_1.nvolt = 0; -#line 20961 "" +#line 21334 "" comgrace_1.ibarmbr = 0; -#line 20962 "" +#line 21335 "" comudsp_1.nudsp = 0; /* ndyn = 0 ! 111109 */ -#line 20964 "" +#line 21337 "" comdyn_1.ntxtdyn = 0; -#line 20965 "" +#line 21338 "" comcb_1.nbc = 0; -#line 20966 "" +#line 21339 "" comarpshift_1.numarpshift = 0; -#line 20967 "" +#line 21340 "" for (i__ = 1; i__ <= 37; ++i__) { -#line 20968 "" +#line 21341 "" comgrace_1.graspace[i__ - 1] = 0.f; -#line 20969 "" +#line 21342 "" /* L3: */ -#line 20969 "" +#line 21342 "" } /* Now initialize up to nv. Do it in getnote as r'qd for 2nd voices per syst. */ /* and also if nv increases in an 'M' directive. */ -#line 20974 "" +#line 21347 "" i__1 = all_1.nv; -#line 20974 "" +#line 21347 "" for (all_1.iv = 1; all_1.iv <= i__1; ++all_1.iv) { -#line 20975 "" +#line 21348 "" newvoice_(&all_1.iv, comclefq_1.clefq + (all_1.iv - 1), &c_false, ( ftnlen)1); -#line 20976 "" +#line 21349 "" /* L4: */ -#line 20976 "" +#line 21349 "" } /* Check if endsymbol was set earlier */ -#line 20980 "" +#line 21353 "" if (comget_1.rptnd1) { -#line 20981 "" +#line 21354 "" comget_1.rptnd1 = FALSE_; -#line 20982 "" +#line 21355 "" *(unsigned char *)comget_1.rptfq2 = *(unsigned char *)comget_1.rptfq1; -#line 20983 "" +#line 21356 "" } else { /* Only use if movbrk>0, to signal default ('RD') */ -#line 20987 "" +#line 21360 "" *(unsigned char *)comget_1.rptfq2 = 'E'; -#line 20988 "" +#line 21361 "" } -#line 20989 "" +#line 21362 "" all_1.iv = 1; -#line 20990 "" +#line 21363 "" commvl_1.ivx = 1; -#line 20991 "" +#line 21364 "" L2: -#line 20991 "" +#line 21364 "" if (loop) { /* Within this loop, nv voices are filled up for the duration of the block. */ @@ -49833,212 +50834,212 @@ L2: /* Only at the beginning of an input block will there be a possible mtr change, */ /* signalled by a nonzero mtrnuml. (which will be re-zeroed right after change) */ -#line 21000 "" +#line 21373 "" getnote_(&loop); -#line 21001 "" +#line 21374 "" if (comget_1.lastchar) { -#line 21001 "" +#line 21374 "" goto L40; -#line 21001 "" +#line 21374 "" } -#line 21002 "" +#line 21375 "" goto L2; -#line 21003 "" +#line 21376 "" } /* Finished an input block (gulp). */ -#line 21007 "" +#line 21380 "" if (commidi_1.ismidi) { /* Put rests into midi array for 2nd lines that were not used in this gulp. */ -#line 21011 "" +#line 21384 "" i__1 = all_1.nv; -#line 21011 "" +#line 21384 "" for (all_1.iv = 1; all_1.iv <= i__1; ++all_1.iv) { -#line 21012 "" +#line 21385 "" if (commidi_1.twoline[all_1.iv - 1] && commvl_1.nvmx[all_1.iv - 1] == 1) { -#line 21013 "" +#line 21386 "" if (all_1.firstgulp && all_1.lenb0 != 0) { -#line 21014 "" +#line 21387 "" r__1 = (all_1.nbars - 1.f) * all_1.lenbar + all_1.lenb0; -#line 21014 "" +#line 21387 "" addmidi_(&commidi_1.midchan[all_1.iv + 23], &c__0, &c__0, &c__0, &r__1, &c_true, &c_false); -#line 21016 "" +#line 21389 "" } else { -#line 21017 "" +#line 21390 "" r__1 = all_1.nbars * 1.f * all_1.lenbar; -#line 21017 "" +#line 21390 "" addmidi_(&commidi_1.midchan[all_1.iv + 23], &c__0, &c__0, &c__0, &r__1, &c_true, &c_false); -#line 21019 "" +#line 21392 "" } -#line 21020 "" +#line 21393 "" } -#line 21021 "" +#line 21394 "" /* L60: */ -#line 21021 "" +#line 21394 "" } -#line 21022 "" +#line 21395 "" } -#line 21023 "" +#line 21396 "" comgrace_1.nvolt = 0; -#line 21024 "" +#line 21397 "" for (all_1.iv = 1; all_1.iv <= 24; ++all_1.iv) { -#line 21025 "" +#line 21398 "" comudsp_1.nudoff[all_1.iv - 1] = 0; -#line 21026 "" +#line 21399 "" comcc_1.maxdotmv[all_1.iv - 1] = comcc_1.ndotmv[all_1.iv - 1]; -#line 21027 "" +#line 21400 "" comcc_1.ndotmv[all_1.iv - 1] = 0; -#line 21028 "" +#line 21401 "" /* L28: */ -#line 21028 "" +#line 21401 "" } /* Put stuff at top of p.1. Must wait until now to have read title info. */ -#line 21032 "" +#line 21405 "" if (combibarcnt_1.ibarcnt == 0) { -#line 21033 "" +#line 21406 "" puttitle_(&inhnoh, &xnsttop[comnotes_1.ipage - 1], &etatop, all_1.sq, &etait, &etatc, &etacs1, &all_1.nv, &vshrink, all_1.sepsymq, ( ftnlen)1, (ftnlen)1); -#line 21035 "" +#line 21408 "" if (comnotes_1.headerspecial) { -#line 21035 "" - s_wsfe(&io___1361); +#line 21408 "" + s_wsfe(&io___1382); /* Writing concatenation */ -#line 21035 "" +#line 21408 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 21035 "" +#line 21408 "" i__6[0] = 1, a__4[0] = ch__1; -#line 21035 "" +#line 21408 "" i__6[1] = 28, a__4[1] = "special{header=psslurs.pro}%"; -#line 21035 "" +#line 21408 "" s_cat(ch__7, a__4, i__6, &c__2, (ftnlen)29); -#line 21035 "" +#line 21408 "" do_fio(&c__1, ch__7, (ftnlen)29); -#line 21035 "" +#line 21408 "" e_wsfe(); -#line 21035 "" +#line 21408 "" } /* Write special header for first page */ -#line 21040 "" +#line 21413 "" } -#line 21041 "" +#line 21414 "" i__1 = all_1.nbars; -#line 21041 "" +#line 21414 "" for (all_1.ibar = 1; all_1.ibar <= i__1; ++all_1.ibar) { -#line 21042 "" +#line 21415 "" ++combibarcnt_1.ibarcnt; -#line 21043 "" +#line 21416 "" comask_1.bar1syst = combibarcnt_1.ibarcnt == iauto; /* Computing MAX */ -#line 21044 "" +#line 21417 "" r__1 = combibarcnt_1.ibarcnt + .001f + ibcoff; -#line 21044 "" +#line 21417 "" i__2 = 0, i__7 = (integer) r_lg10(&r__1); -#line 21044 "" +#line 21417 "" ndig = max(i__2,i__7); -#line 21045 "" +#line 21418 "" if (comlast_1.islast) { -#line 21045 "" +#line 21418 "" ci__1.cierr = 0; -#line 21045 "" +#line 21418 "" ci__1.ciunit = 11; /* Writing concatenation */ -#line 21045 "" +#line 21418 "" i__8[0] = 6, a__5[0] = "(a11,i"; -#line 21045 "" +#line 21418 "" i__2 = ndig + 50; -#line 21045 "" +#line 21418 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 21045 "" +#line 21418 "" i__8[1] = 1, a__5[1] = ch__1; -#line 21045 "" +#line 21418 "" i__8[2] = 1, a__5[2] = ")"; -#line 21045 "" +#line 21418 "" ci__1.cifmt = (s_cat(ch__8, a__5, i__8, &c__3, (ftnlen)8), ch__8); -#line 21045 "" +#line 21418 "" s_wsfe(&ci__1); -#line 21045 "" +#line 21418 "" do_fio(&c__1, "% Bar count", (ftnlen)11); -#line 21045 "" +#line 21418 "" i__7 = combibarcnt_1.ibarcnt + ibcoff; -#line 21045 "" +#line 21418 "" do_fio(&c__1, (char *)&i__7, (ftnlen)sizeof(integer)); -#line 21045 "" +#line 21418 "" e_wsfe(); -#line 21045 "" +#line 21418 "" } -#line 21048 "" +#line 21421 "" if (all_1.ibar != comgrace_1.ibarmbr) { -#line 21049 "" +#line 21422 "" if (! (*optimize)) { -#line 21049 "" +#line 21422 "" i__2 = combibarcnt_1.ibarcnt + ibcoff; -#line 21049 "" +#line 21422 "" outbar_(&i__2, &jprntb); -#line 21049 "" +#line 21422 "" } -#line 21050 "" +#line 21423 "" } else { -#line 21051 "" +#line 21424 "" if (! (*optimize)) { -#line 21052 "" - s_wsfe(&io___1363); -#line 21052 "" +#line 21425 "" + s_wsfe(&io___1384); +#line 21425 "" do_fio(&c__1, " Multibar rest, bars", (ftnlen)20); -#line 21052 "" +#line 21425 "" i__2 = combibarcnt_1.ibarcnt + ibcoff; -#line 21052 "" +#line 21425 "" do_fio(&c__1, (char *)&i__2, (ftnlen)sizeof(integer)); -#line 21052 "" +#line 21425 "" do_fio(&c__1, "-", (ftnlen)1); -#line 21052 "" +#line 21425 "" i__7 = combibarcnt_1.ibarcnt + ibcoff + comgrace_1.mbrest - 1; -#line 21052 "" +#line 21425 "" do_fio(&c__1, (char *)&i__7, (ftnlen)sizeof(integer)); -#line 21052 "" +#line 21425 "" e_wsfe(); -#line 21054 "" - s_wsfe(&io___1364); -#line 21054 "" +#line 21427 "" + s_wsfe(&io___1385); +#line 21427 "" do_fio(&c__1, " Multibar rest, bars", (ftnlen)20); -#line 21054 "" +#line 21427 "" i__2 = combibarcnt_1.ibarcnt + ibcoff; -#line 21054 "" +#line 21427 "" do_fio(&c__1, (char *)&i__2, (ftnlen)sizeof(integer)); -#line 21054 "" +#line 21427 "" do_fio(&c__1, "-", (ftnlen)1); -#line 21054 "" +#line 21427 "" i__7 = combibarcnt_1.ibarcnt + ibcoff + comgrace_1.mbrest - 1; -#line 21054 "" +#line 21427 "" do_fio(&c__1, (char *)&i__7, (ftnlen)sizeof(integer)); -#line 21054 "" +#line 21427 "" e_wsfe(); -#line 21056 "" +#line 21429 "" jprntb = 0; -#line 21057 "" +#line 21430 "" } -#line 21058 "" +#line 21431 "" ibcoff = ibcoff + comgrace_1.mbrest - 1; /* if (ibar.eq.1 .and. firstgulp .and. */ /* * .not.btest(islur(1,1),5)) xb4mbr = facmtr*musicsize */ -#line 21061 "" +#line 21434 "" if (all_1.ibar == 1 && all_1.firstgulp && ! bit_test(all_1.islur[ 0],5)) { -#line 21061 "" +#line 21434 "" comgrace_1.xb4mbr = all_1.musicsize * -.2f; -#line 21061 "" +#line 21434 "" } -#line 21063 "" +#line 21436 "" } /* Move the read to after end-of-bar hardspace checks, so we get right poenom */ @@ -50055,137 +51056,137 @@ L2: /* compute additional pts and store them in hpttot(1...nhstot). Finally in */ /* subroutine askfig, write true pts where placeholders are. */ -#line 21079 "" +#line 21452 "" ioff = 0; -#line 21080 "" +#line 21453 "" if (all_1.ibar > 1) { -#line 21080 "" +#line 21453 "" ioff = all_1.nib[(all_1.ibar - 1) * 24 - 24]; -#line 21080 "" +#line 21453 "" } -#line 21081 "" +#line 21454 "" clchb = bit_test(all_1.islur[(ioff + 1) * 24 - 24],15); -#line 21082 "" +#line 21455 "" putmbr = FALSE_; -#line 21083 "" +#line 21456 "" if (ismbr) { -#line 21084 "" +#line 21457 "" if (clchb) { /* cc */ /* cc Clef change and multi-bar rest coming up. Kluge to get space at end of rest. */ /* cc */ -#line 21088 "" - s_wsfe(&io___1368); +#line 21461 "" + s_wsfe(&io___1389); /* Writing concatenation */ -#line 21088 "" +#line 21461 "" i__9[0] = 1, a__6[0] = all_1.sq; -#line 21088 "" +#line 21461 "" i__9[1] = 3, a__6[1] = "let"; -#line 21088 "" +#line 21461 "" i__9[2] = 1, a__6[2] = all_1.sq; -#line 21088 "" +#line 21461 "" i__9[3] = 4, a__6[3] = "mbrt"; -#line 21088 "" +#line 21461 "" i__9[4] = 1, a__6[4] = all_1.sq; -#line 21088 "" +#line 21461 "" i__9[5] = 6, a__6[5] = "mbrest"; -#line 21088 "" +#line 21461 "" i__9[6] = 1, a__6[6] = all_1.sq; -#line 21088 "" +#line 21461 "" i__9[7] = 3, a__6[7] = "def"; -#line 21088 "" +#line 21461 "" i__9[8] = 1, a__6[8] = all_1.sq; -#line 21088 "" +#line 21461 "" i__9[9] = 14, a__6[9] = "mbrest#1#2#3{%"; -#line 21088 "" +#line 21461 "" s_cat(ch__9, a__6, i__9, &c__10, (ftnlen)35); -#line 21088 "" +#line 21461 "" do_fio(&c__1, ch__9, (ftnlen)35); -#line 21088 "" +#line 21461 "" e_wsfe(); -#line 21090 "" - s_wsfe(&io___1369); +#line 21463 "" + s_wsfe(&io___1390); /* Writing concatenation */ -#line 21090 "" +#line 21463 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21090 "" +#line 21463 "" i__6[1] = 13, a__4[1] = "mbrt{#1}{#2}{"; -#line 21090 "" +#line 21463 "" s_cat(ch__10, a__4, i__6, &c__2, (ftnlen)14); -#line 21090 "" +#line 21463 "" do_fio(&c__1, ch__10, (ftnlen)14); -#line 21090 "" +#line 21463 "" r__1 = all_1.musicsize * .55f; -#line 21090 "" +#line 21463 "" do_fio(&c__1, (char *)&r__1, (ftnlen)sizeof(real)); /* Writing concatenation */ -#line 21090 "" +#line 21463 "" i__10[0] = 1, a__7[0] = "}"; -#line 21090 "" +#line 21463 "" i__10[1] = 1, a__7[1] = all_1.sq; -#line 21090 "" +#line 21463 "" i__10[2] = 6, a__7[2] = "global"; -#line 21090 "" +#line 21463 "" i__10[3] = 1, a__7[3] = all_1.sq; -#line 21090 "" +#line 21463 "" i__10[4] = 3, a__7[4] = "let"; -#line 21090 "" +#line 21463 "" i__10[5] = 1, a__7[5] = all_1.sq; -#line 21090 "" +#line 21463 "" i__10[6] = 6, a__7[6] = "mbrest"; -#line 21090 "" +#line 21463 "" i__10[7] = 1, a__7[7] = all_1.sq; -#line 21090 "" +#line 21463 "" i__10[8] = 6, a__7[8] = "mbrt}%"; -#line 21090 "" +#line 21463 "" s_cat(ch__4, a__7, i__10, &c__9, (ftnlen)26); -#line 21090 "" +#line 21463 "" do_fio(&c__1, ch__4, (ftnlen)26); -#line 21090 "" +#line 21463 "" e_wsfe(); /* c */ /* c RDT suggestion is inset blank barline - 160103 Abandoned */ /* c */ /* write(11,'(a)')sq//'setemptybar'//sq//'bar'//sq//'qspace' */ /* * //sq//'advance'//sq//'barno-1' */ -#line 21097 "" +#line 21470 "" } -#line 21098 "" +#line 21471 "" ismbr = FALSE_; -#line 21099 "" +#line 21472 "" putmbr = TRUE_; -#line 21100 "" +#line 21473 "" } -#line 21101 "" +#line 21474 "" if (all_1.ibar == comgrace_1.ibarmbr) { -#line 21101 "" +#line 21474 "" ismbr = TRUE_; -#line 21101 "" +#line 21474 "" } /* Set flag here so at start of next bar, if there's a clef change, can add space */ /* after the mbr with the above kluge */ -#line 21106 "" +#line 21479 "" if (! (clchb || comnsp_2.flgndb)) { -#line 21106 "" +#line 21479 "" goto L23; -#line 21106 "" +#line 21479 "" } /* Must check available space */ -#line 21110 "" +#line 21483 "" ptsndb = 0.f; /* Zero out block signal */ -#line 21114 "" +#line 21487 "" if (clchb) { -#line 21114 "" +#line 21487 "" all_1.islur[(ioff + 1) * 24 - 24] = bit_clear(all_1.islur[(ioff + 1) * 24 - 24],15); -#line 21114 "" +#line 21487 "" } /* In this loop, we determine how much hardspace is needed (if any) */ @@ -50195,240 +51196,239 @@ L2: /* one. */ /* 4/18/98 Apparently nmxsav was a solution to the above problem */ -#line 21123 "" +#line 21496 "" i__2 = all_1.nv; -#line 21123 "" +#line 21496 "" for (all_1.iv = 1; all_1.iv <= i__2; ++all_1.iv) { -#line 21124 "" +#line 21497 "" i__7 = comnsp_2.nvmxsav[all_1.iv - 1]; -#line 21124 "" +#line 21497 "" for (kv = 1; kv <= i__7; ++kv) { -#line 21125 "" +#line 21498 "" commvl_1.ivx = comnsp_2.ivmxsav[all_1.iv + kv * 24 - 25]; -#line 21126 "" +#line 21499 "" ptsndv = comnsp_2.flgndv[commvl_1.ivx - 1] * comask_1.wheadpt; -#line 21127 "" +#line 21500 "" ioff = 0; -#line 21128 "" +#line 21501 "" if (all_1.ibar > 1) { -#line 21129 "" +#line 21502 "" ioff = all_1.nib[commvl_1.ivx + (all_1.ibar - 1) * 24 - 25]; -#line 21130 "" +#line 21503 "" ip = ioff; -#line 21131 "" +#line 21504 "" if (all_1.ibar > 2) { -#line 21131 "" +#line 21504 "" ip = ioff - all_1.nib[commvl_1.ivx + (all_1.ibar - 2) * 24 - 25]; -#line 21131 "" +#line 21504 "" } /* prevtn(ivx) = tnote(iand(ipl(ivx,ip),255)) */ -#line 21133 "" +#line 21506 "" comnsp_2.prevtn[commvl_1.ivx - 1] = all_1.tnote[ comipl2_1.ipl2[commvl_1.ivx + ip * 24 - 25] - 1]; /* If ibar=1 (1st bar in input block), prevtn(ivx) was set at end of makeabar. */ -#line 21137 "" +#line 21510 "" } /* Only allow clef changes when ivx <= nv */ -#line 21141 "" +#line 21514 "" if (commvl_1.ivx <= all_1.nv) { -#line 21142 "" +#line 21515 "" clchv[all_1.iv - 1] = clchb && bit_test(all_1.islur[ all_1.iv + (ioff + 1) * 24 - 25],11); -#line 21143 "" +#line 21516 "" if (clchv[all_1.iv - 1]) { /* Clef change in this voice. Turn off signal. Get space avail. */ -#line 21147 "" +#line 21520 "" all_1.islur[all_1.iv + (ioff + 1) * 24 - 25] = bit_clear(all_1.islur[all_1.iv + (ioff + 1) * 24 - 25],11); -#line 21148 "" +#line 21521 "" if ((r__1 = comnsp_2.prevtn[all_1.iv - 1] - comnsp_2.space[comnsp_2.nb - 1], dabs(r__1)) < comtol_1.tol) { -#line 21148 "" +#line 21521 "" ptsndv += combmh_1.clefend * comask_1.wheadpt; -#line 21148 "" +#line 21521 "" } -#line 21150 "" +#line 21523 "" } -#line 21151 "" +#line 21524 "" } /* Computing MAX */ -#line 21152 "" +#line 21525 "" r__1 = ptsndb, r__2 = ptsndv + comask_1.wheadpt * spfacs_1.xspfac; -#line 21152 "" +#line 21525 "" ptsndb = dmax(r__1,r__2); -#line 21153 "" +#line 21526 "" /* L16: */ -#line 21153 "" +#line 21526 "" } -#line 21153 "" +#line 21526 "" } /* ???? where is nb set??? nb probably in left over from makeabar */ -#line 21157 "" +#line 21530 "" r__1 = comnsp_2.space[comnsp_2.nb - 1] * squez[comnsp_2.nb - 1]; -#line 21157 "" +#line 21530 "" esk = feon_(&r__1); -#line 21158 "" +#line 21531 "" ptsdflt = esk * comask_1.poenom - comask_1.wheadpt; /* if ((ptsndb.gt.ptsdflt.or.ptsgnd.gt.0.) .and. movbrk.eq.0) then */ -#line 21160 "" +#line 21533 "" if ((ptsndb > ptsdflt || comnsp_2.ptsgnd > 0.f) && comget_1.movbrk == 0 && ! putmbr) { /* Must ADD hardspace! So put in a placeholder, and store params for later. */ -#line 21165 "" +#line 21538 "" if (comlast_1.islast) { -#line 21165 "" - s_wsfe(&io___1378); +#line 21538 "" + s_wsfe(&io___1399); /* Writing concatenation */ -#line 21165 "" +#line 21538 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21165 "" +#line 21538 "" i__6[1] = 18, a__4[1] = "xardspace{ pt}%"; -#line 21165 "" +#line 21538 "" s_cat(ch__11, a__4, i__6, &c__2, (ftnlen)19); -#line 21165 "" +#line 21538 "" do_fio(&c__1, ch__11, (ftnlen)19); -#line 21165 "" +#line 21538 "" e_wsfe(); -#line 21165 "" +#line 21538 "" } -#line 21166 "" +#line 21539 "" ++nhssys; -#line 21167 "" +#line 21540 "" if (ptsndb - ptsdflt > comnsp_2.ptsgnd - comask_1.poenom * comnsp_2.eskgnd) { -#line 21168 "" +#line 21541 "" hesk[nhssys - 1] = esk; -#line 21169 "" +#line 21542 "" hpts[nhssys - 1] = ptsndb + comask_1.wheadpt; -#line 21170 "" +#line 21543 "" } else { -#line 21171 "" +#line 21544 "" hesk[nhssys - 1] = comnsp_2.eskgnd; -#line 21172 "" +#line 21545 "" hpts[nhssys - 1] = comnsp_2.ptsgnd + comask_1.wheadpt; -#line 21173 "" +#line 21546 "" } -#line 21174 "" +#line 21547 "" comask_1.fixednew += hpts[nhssys - 1]; -#line 21175 "" +#line 21548 "" comask_1.scaldold += hesk[nhssys - 1]; -#line 21176 "" +#line 21549 "" } -#line 21177 "" +#line 21550 "" if (clchb) { -#line 21178 "" +#line 21551 "" i__7 = all_1.nv; -#line 21178 "" +#line 21551 "" for (all_1.iv = 1; all_1.iv <= i__7; ++all_1.iv) { -#line 21179 "" +#line 21552 "" if (clchv[all_1.iv - 1]) { /* Writing concatenation */ -#line 21180 "" +#line 21553 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21180 "" +#line 21553 "" i__6[1] = 6, a__4[1] = "znotes"; -#line 21180 "" +#line 21553 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 21181 "" +#line 21554 "" lnote = 7; -#line 21182 "" +#line 21555 "" i__2 = all_1.iv; -#line 21182 "" +#line 21555 "" for (iiv = 2; iiv <= i__2; ++iiv) { /* Writing concatenation */ -#line 21183 "" +#line 21556 "" i__6[0] = lnote, a__4[0] = notexq; -#line 21183 "" +#line 21556 "" i__6[1] = 1, a__4[1] = all_1.sepsymq + (iiv - 2); -#line 21183 "" +#line 21556 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 21184 "" +#line 21557 "" ++lnote; -#line 21185 "" +#line 21558 "" /* L24: */ -#line 21185 "" +#line 21558 "" } /* Recompute ioff since it will vary from voice to voice */ -#line 21189 "" +#line 21562 "" if (all_1.ibar == 1) { -#line 21190 "" +#line 21563 "" ioff = 0; -#line 21191 "" +#line 21564 "" } else { -#line 21192 "" +#line 21565 "" ioff = all_1.nib[all_1.iv + (all_1.ibar - 1) * 24 - 25]; -#line 21193 "" +#line 21566 "" } /* Must call clefsym to get nclef, even if there is a movement break */ -#line 21197 "" +#line 21570 "" clefsym_(&all_1.islur[all_1.iv + (ioff + 1) * 24 - 25], fmtq, &lclef, &nclef, (ftnlen)24); /* If clefq = '8', must change '0' in pos'n 9 to '8' */ -#line 21201 "" +#line 21574 "" if (bit_test(all_1.ipl[all_1.iv + (ioff + 1) * 24 - 25],2) ) { /* Writing concatenation */ -#line 21201 "" +#line 21574 "" i__8[0] = 8, a__5[0] = fmtq; -#line 21201 "" +#line 21574 "" i__8[1] = 1, a__5[1] = "8"; -#line 21201 "" +#line 21574 "" i__8[2] = 1, a__5[2] = fmtq + 9; -#line 21201 "" +#line 21574 "" s_cat(fmtq, a__5, i__8, &c__3, (ftnlen)24); -#line 21201 "" +#line 21574 "" } -#line 21203 "" +#line 21576 "" if (comget_1.movbrk == 0 && comlast_1.islast) { -#line 21203 "" - s_wsfe(&io___1387); +#line 21576 "" + s_wsfe(&io___1408); /* Writing concatenation */ -#line 21203 "" +#line 21576 "" i__5[0] = lnote, a__3[0] = notexq; -#line 21203 "" +#line 21576 "" i__5[1] = lclef, a__3[1] = fmtq; -#line 21203 "" +#line 21576 "" i__5[2] = 1, a__3[2] = all_1.sq; -#line 21203 "" +#line 21576 "" i__5[3] = 3, a__3[3] = "en%"; -#line 21203 "" +#line 21576 "" s_cat(ch__12, a__3, i__5, &c__4, (ftnlen)107); -#line 21203 "" +#line 21576 "" do_fio(&c__1, ch__12, lnote + lclef + 4); -#line 21203 "" +#line 21576 "" e_wsfe(); -#line 21203 "" +#line 21576 "" } -/* call wsclef(iv,ninow,clefq,nclef) */ -#line 21207 "" +#line 21579 "" wsclef_(&all_1.iv, &comnotes_1.ninow, &nclef); /* Set new flag to be used just outside this loop, to kluge */ /* any calls to \CenterBar for full-bar rests, to make room for clef. */ -#line 21212 "" +#line 21584 "" newclef = TRUE_; /* 151220 */ @@ -50438,576 +51438,614 @@ L2: /* and if we change from TLO to normal clef, need to resetclefsymbols */ /* if (clefq(iv) .eq. '8') then */ -#line 21221 "" +#line 21593 "" if (bit_test(all_1.ipl[all_1.iv + (ioff + 1) * 24 - 25],2) ) { -#line 21222 "" - if (all_1.iv <= 9) { -#line 21223 "" - s_wsfe(&io___1388); + +/* Find instrument number for voice iv */ + +#line 21597 "" + iv1 = 1; +#line 21598 "" + i__2 = comnotes_1.ninow; +#line 21598 "" + for (iinst = 1; iinst <= i__2; ++iinst) { +#line 21599 "" + if (all_1.iv < iv1 + comnvi_1.nspern[iinst - 1]) { +#line 21599 "" + goto L2222; +#line 21599 "" + } +#line 21600 "" + iv1 += comnvi_1.nspern[iinst - 1]; +#line 21601 "" +/* L1111: */ +#line 21601 "" + } +#line 21602 "" + s_wsle(&io___1411); +#line 21602 "" + e_wsle(); +#line 21603 "" + s_wsle(&io___1412); +#line 21603 "" + do_lio(&c__9, &c__1, "Should not be here in pmxb!", ( + ftnlen)27); +#line 21603 "" + e_wsle(); +#line 21604 "" + stop1_(); +#line 21605 "" +L2222: +#line 21606 "" + if (iinst <= 9) { +#line 21607 "" + s_wsfe(&io___1413); /* Writing concatenation */ -#line 21223 "" +#line 21607 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21223 "" +#line 21607 "" i__6[1] = 19, a__4[1] = "settrebleclefsymbol"; -#line 21223 "" +#line 21607 "" s_cat(ch__6, a__4, i__6, &c__2, (ftnlen)20); -#line 21223 "" +#line 21607 "" do_fio(&c__1, ch__6, (ftnlen)20); -#line 21223 "" - do_fio(&c__1, (char *)&all_1.iv, (ftnlen)sizeof( +#line 21607 "" + do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof( integer)); /* Writing concatenation */ -#line 21223 "" +#line 21607 "" i__11[0] = 1, a__8[0] = all_1.sq; -#line 21223 "" +#line 21607 "" i__11[1] = 13, a__8[1] = "treblelowoct%"; -#line 21223 "" +#line 21607 "" s_cat(ch__10, a__8, i__11, &c__2, (ftnlen)14); -#line 21223 "" +#line 21607 "" do_fio(&c__1, ch__10, (ftnlen)14); -#line 21223 "" +#line 21607 "" e_wsfe(); -#line 21225 "" +#line 21609 "" } else { -#line 21226 "" - s_wsfe(&io___1389); +#line 21610 "" + s_wsfe(&io___1414); /* Writing concatenation */ -#line 21226 "" +#line 21610 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21226 "" +#line 21610 "" i__6[1] = 19, a__4[1] = "settrebleclefsymbol"; -#line 21226 "" +#line 21610 "" s_cat(ch__6, a__4, i__6, &c__2, (ftnlen)20); -#line 21226 "" +#line 21610 "" do_fio(&c__1, ch__6, (ftnlen)20); -#line 21226 "" - do_fio(&c__1, (char *)&all_1.iv, (ftnlen)sizeof( +#line 21610 "" + do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof( integer)); /* Writing concatenation */ -#line 21226 "" +#line 21610 "" i__11[0] = 1, a__8[0] = all_1.sq; -#line 21226 "" +#line 21610 "" i__11[1] = 13, a__8[1] = "treblelowoct%"; -#line 21226 "" +#line 21610 "" s_cat(ch__10, a__8, i__11, &c__2, (ftnlen)14); -#line 21226 "" +#line 21610 "" do_fio(&c__1, ch__10, (ftnlen)14); -#line 21226 "" +#line 21610 "" e_wsfe(); -#line 21228 "" +#line 21612 "" } -#line 21229 "" +#line 21613 "" + comc8flag_1.c8flag[all_1.iv - 1] = TRUE_; +#line 21614 "" } else { -#line 21230 "" +#line 21615 "" if (*(unsigned char *)&comclefq_1.clefq[all_1.iv - 1] == '8') { -#line 21231 "" - s_wsfe(&io___1390); +#line 21616 "" + s_wsfe(&io___1415); /* Writing concatenation */ -#line 21231 "" +#line 21616 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21231 "" +#line 21616 "" i__6[1] = 16, a__4[1] = "resetclefsymbols"; -#line 21231 "" +#line 21616 "" s_cat(ch__13, a__4, i__6, &c__2, (ftnlen)17); -#line 21231 "" +#line 21616 "" do_fio(&c__1, ch__13, (ftnlen)17); -#line 21231 "" +#line 21616 "" e_wsfe(); -#line 21232 "" +#line 21617 "" } -#line 21233 "" +#line 21618 "" } -#line 21234 "" +#line 21619 "" } -#line 21235 "" +#line 21620 "" /* L17: */ -#line 21235 "" +#line 21620 "" } -#line 21236 "" +#line 21621 "" if (comlast_1.islast) { -#line 21236 "" - s_wsfe(&io___1391); +#line 21621 "" + s_wsfe(&io___1416); /* Writing concatenation */ -#line 21236 "" +#line 21621 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21236 "" +#line 21621 "" i__6[1] = 11, a__4[1] = "pmxnewclefs"; -#line 21236 "" +#line 21621 "" s_cat(ch__14, a__4, i__6, &c__2, (ftnlen)12); -#line 21236 "" +#line 21621 "" do_fio(&c__1, ch__14, (ftnlen)12); -#line 21236 "" +#line 21621 "" e_wsfe(); -#line 21236 "" +#line 21621 "" } -#line 21237 "" +#line 21622 "" } -#line 21238 "" +#line 21623 "" L23: /* Kluge \CenterBar for whole bar rests if necessary */ -#line 21242 "" +#line 21627 "" if (newclef && comclefrests_1.centrests) { /* write(11,'(a)')sq//'def'//sq//'value{11}%' */ -#line 21244 "" +#line 21629 "" r__1 = all_1.musicsize * .55f; -#line 21244 "" +#line 21629 "" nvalue = i_nint(&r__1); -#line 21245 "" +#line 21630 "" if (nvalue > 10) { -#line 21246 "" - s_wsfe(&io___1393); +#line 21631 "" + s_wsfe(&io___1418); /* Writing concatenation */ -#line 21246 "" +#line 21631 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 21246 "" +#line 21631 "" i__5[1] = 3, a__3[1] = "def"; -#line 21246 "" +#line 21631 "" i__5[2] = 1, a__3[2] = all_1.sq; -#line 21246 "" +#line 21631 "" i__5[3] = 6, a__3[3] = "value{"; -#line 21246 "" +#line 21631 "" s_cat(ch__15, a__3, i__5, &c__4, (ftnlen)11); -#line 21246 "" +#line 21631 "" do_fio(&c__1, ch__15, (ftnlen)11); -#line 21246 "" +#line 21631 "" do_fio(&c__1, (char *)&nvalue, (ftnlen)sizeof(integer)); -#line 21246 "" +#line 21631 "" do_fio(&c__1, "}%", (ftnlen)2); -#line 21246 "" +#line 21631 "" e_wsfe(); -#line 21248 "" +#line 21633 "" } else { -#line 21249 "" - s_wsfe(&io___1394); +#line 21634 "" + s_wsfe(&io___1419); /* Writing concatenation */ -#line 21249 "" +#line 21634 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 21249 "" +#line 21634 "" i__5[1] = 3, a__3[1] = "def"; -#line 21249 "" +#line 21634 "" i__5[2] = 1, a__3[2] = all_1.sq; -#line 21249 "" +#line 21634 "" i__5[3] = 6, a__3[3] = "value{"; -#line 21249 "" +#line 21634 "" s_cat(ch__15, a__3, i__5, &c__4, (ftnlen)11); -#line 21249 "" +#line 21634 "" do_fio(&c__1, ch__15, (ftnlen)11); -#line 21249 "" +#line 21634 "" do_fio(&c__1, (char *)&nvalue, (ftnlen)sizeof(integer)); -#line 21249 "" +#line 21634 "" do_fio(&c__1, "}%", (ftnlen)2); -#line 21249 "" +#line 21634 "" e_wsfe(); -#line 21251 "" +#line 21636 "" } -#line 21252 "" +#line 21637 "" } -#line 21253 "" +#line 21638 "" newclef = FALSE_; -#line 21254 "" +#line 21639 "" comclefrests_1.centrests = FALSE_; /* End of loop for end-of-bar hardspaces and non-movbrk clef symbol. */ -#line 21258 "" +#line 21643 "" if (comask_1.bar1syst) { -#line 21259 "" - s_rsle(&io___1395); -#line 21259 "" +#line 21644 "" + s_rsle(&io___1420); +#line 21644 "" do_lio(&c__4, &c__1, (char *)&comask_1.poenom, (ftnlen)sizeof( real)); -#line 21259 "" +#line 21644 "" e_rsle(); -#line 21260 "" +#line 21645 "" } /* Repeat symbols. Haven't slid down yet, so use islur(1,nib(1,ibar-1)+1) */ -#line 21264 "" +#line 21649 "" if (all_1.ibar == 1) { -#line 21265 "" +#line 21650 "" islnow = all_1.islur[0]; /* iornqnow = iornq(1,1) */ -#line 21267 "" +#line 21652 "" iplnow = all_1.ipl[0]; -#line 21268 "" +#line 21653 "" } else { -#line 21269 "" +#line 21654 "" islnow = all_1.islur[(all_1.nib[(all_1.ibar - 1) * 24 - 24] + 1) * 24 - 24]; /* iornqnow = iornq(1,nib(1,ibar-1)+1) */ -#line 21271 "" +#line 21656 "" iplnow = all_1.ipl[(all_1.nib[(all_1.ibar - 1) * 24 - 24] + 1) * 24 - 24]; -#line 21272 "" +#line 21657 "" } /* Check for R-symbols set at end of prior input block */ -#line 21276 "" +#line 21661 "" if (comget_1.movbrk == 0 && *(unsigned char *)comget_1.rptfq2 != 'E') { -#line 21277 "" +#line 21662 "" if (*(unsigned char *)comget_1.rptfq2 == 'D') { -#line 21278 "" +#line 21663 "" islnow = bit_set(islnow,26); -#line 21279 "" +#line 21664 "" } else if (*(unsigned char *)comget_1.rptfq2 == 'r') { -#line 21280 "" +#line 21665 "" islnow = bit_set(islnow,6); -#line 21281 "" +#line 21666 "" } else if (*(unsigned char *)comget_1.rptfq2 == 'd') { -#line 21282 "" +#line 21667 "" islnow = bit_set(islnow,8); -#line 21283 "" +#line 21668 "" } else if (*(unsigned char *)comget_1.rptfq2 == 'b') { -#line 21284 "" +#line 21669 "" islnow = bit_set(islnow,25); -#line 21285 "" +#line 21670 "" } else { -#line 21286 "" - s_wsle(&io___1398); -#line 21286 "" +#line 21671 "" + s_wsle(&io___1423); +#line 21671 "" e_wsle(); -#line 21287 "" - s_wsle(&io___1399); -#line 21287 "" +#line 21672 "" + s_wsle(&io___1424); +#line 21672 "" do_lio(&c__9, &c__1, "Illegal symbol with \"R\" at end of in"\ "put block:", (ftnlen)46); -#line 21287 "" +#line 21672 "" do_lio(&c__9, &c__1, comget_1.rptfq2, (ftnlen)1); -#line 21287 "" +#line 21672 "" e_wsle(); -#line 21289 "" +#line 21674 "" stop1_(); -#line 21290 "" +#line 21675 "" } -#line 21291 "" +#line 21676 "" *(unsigned char *)comget_1.rptfq2 = 'E'; -#line 21292 "" +#line 21677 "" } -#line 21293 "" +#line 21678 "" if ((islnow & 352) != 0) { /* Bit 5(lrpt), 6(rrpt), or 8(doublebar) has been set */ -#line 21297 "" +#line 21682 "" lrpt = bit_test(islnow,5); -#line 21298 "" +#line 21683 "" rrpt = bit_test(islnow,6); -#line 21299 "" +#line 21684 "" lrptpend = lrpt && comask_1.bar1syst; -#line 21300 "" +#line 21685 "" if (lrpt && ! lrptpend) { -#line 21301 "" +#line 21686 "" if (rrpt) { -#line 21302 "" +#line 21687 "" if (comlast_1.islast) { -#line 21302 "" - s_wsfe(&io___1402); +#line 21687 "" + s_wsfe(&io___1427); /* Writing concatenation */ -#line 21302 "" +#line 21687 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21302 "" +#line 21687 "" i__6[1] = 18, a__4[1] = "setleftrightrepeat"; -#line 21302 "" +#line 21687 "" s_cat(ch__11, a__4, i__6, &c__2, (ftnlen)19); -#line 21302 "" +#line 21687 "" do_fio(&c__1, ch__11, (ftnlen)19); -#line 21302 "" +#line 21687 "" e_wsfe(); -#line 21302 "" +#line 21687 "" } -#line 21303 "" +#line 21688 "" comask_1.fixednew = comask_1.fixednew + comask_1.wheadpt * spfacs_1.lrrptfac - .4f; -#line 21304 "" +#line 21689 "" } else { -#line 21305 "" +#line 21690 "" if (comlast_1.islast) { -#line 21305 "" - s_wsfe(&io___1403); +#line 21690 "" + s_wsfe(&io___1428); /* Writing concatenation */ -#line 21305 "" +#line 21690 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21305 "" +#line 21690 "" i__6[1] = 13, a__4[1] = "setleftrepeat"; -#line 21305 "" +#line 21690 "" s_cat(ch__10, a__4, i__6, &c__2, (ftnlen)14); -#line 21305 "" +#line 21690 "" do_fio(&c__1, ch__10, (ftnlen)14); -#line 21305 "" +#line 21690 "" e_wsfe(); -#line 21305 "" +#line 21690 "" } -#line 21306 "" +#line 21691 "" comask_1.fixednew = comask_1.fixednew + comask_1.wheadpt * spfacs_1.rptfac - .4f; -#line 21307 "" +#line 21692 "" } -#line 21308 "" +#line 21693 "" } else if (rrpt) { -#line 21309 "" +#line 21694 "" if (comlast_1.islast) { -#line 21309 "" - s_wsfe(&io___1404); +#line 21694 "" + s_wsfe(&io___1429); /* Writing concatenation */ -#line 21309 "" +#line 21694 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21309 "" +#line 21694 "" i__6[1] = 14, a__4[1] = "setrightrepeat"; -#line 21309 "" +#line 21694 "" s_cat(ch__16, a__4, i__6, &c__2, (ftnlen)15); -#line 21309 "" +#line 21694 "" do_fio(&c__1, ch__16, (ftnlen)15); -#line 21309 "" +#line 21694 "" e_wsfe(); -#line 21309 "" +#line 21694 "" } -#line 21310 "" +#line 21695 "" comask_1.fixednew = comask_1.fixednew + comask_1.wheadpt * spfacs_1.rptfac - .4f; -#line 21311 "" +#line 21696 "" } else if (bit_test(islnow,8)) { -#line 21312 "" +#line 21697 "" if (comlast_1.islast) { -#line 21312 "" - s_wsfe(&io___1405); +#line 21697 "" + s_wsfe(&io___1430); /* Writing concatenation */ -#line 21312 "" +#line 21697 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21312 "" +#line 21697 "" i__6[1] = 12, a__4[1] = "setdoublebar"; -#line 21312 "" +#line 21697 "" s_cat(ch__17, a__4, i__6, &c__2, (ftnlen)13); -#line 21312 "" +#line 21697 "" do_fio(&c__1, ch__17, (ftnlen)13); -#line 21312 "" +#line 21697 "" e_wsfe(); -#line 21312 "" +#line 21697 "" } -#line 21313 "" +#line 21698 "" comask_1.fixednew = comask_1.fixednew + comask_1.wheadpt * spfacs_1.dbarfac - .4f; -#line 21314 "" +#line 21699 "" } -#line 21315 "" +#line 21700 "" } else if (bit_test(islnow,26)) { /* doubleBAR */ -#line 21319 "" +#line 21704 "" if (comlast_1.islast) { -#line 21319 "" - s_wsfe(&io___1406); +#line 21704 "" + s_wsfe(&io___1431); /* Writing concatenation */ -#line 21319 "" +#line 21704 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21319 "" +#line 21704 "" i__6[1] = 12, a__4[1] = "setdoubleBAR"; -#line 21319 "" +#line 21704 "" s_cat(ch__17, a__4, i__6, &c__2, (ftnlen)13); -#line 21319 "" +#line 21704 "" do_fio(&c__1, ch__17, (ftnlen)13); -#line 21319 "" +#line 21704 "" e_wsfe(); -#line 21319 "" +#line 21704 "" } -#line 21320 "" +#line 21705 "" comask_1.fixednew = comask_1.fixednew + comask_1.wheadpt * spfacs_1.ddbarfac - .4f; /* else if (btest(iornqnow,29)) then */ -#line 21322 "" +#line 21707 "" } else if (bit_test(iplnow,0)) { /* no bar line */ /* -- if (islast) write(11,'(a)')sq//'setzalaligne' */ /* ++ */ -#line 21328 "" +#line 21713 "" if (comlast_1.islast) { -#line 21329 "" +#line 21714 "" if (comget_1.movbrk == 0) { -#line 21330 "" - s_wsfe(&io___1407); +#line 21715 "" + s_wsfe(&io___1432); /* Writing concatenation */ -#line 21330 "" +#line 21715 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21330 "" +#line 21715 "" i__6[1] = 12, a__4[1] = "setzalaligne"; -#line 21330 "" +#line 21715 "" s_cat(ch__17, a__4, i__6, &c__2, (ftnlen)13); -#line 21330 "" +#line 21715 "" do_fio(&c__1, ch__17, (ftnlen)13); -#line 21330 "" +#line 21715 "" e_wsfe(); -#line 21331 "" +#line 21716 "" } else { /* Encountered "Rz" at start of input block at start of new movement, Must */ /* use newmovement macro with arg 4 rather than setzalaligne, since former */ /* already redefines stoppiece. */ -#line 21337 "" +#line 21722 "" *(unsigned char *)comget_1.rptfq2 = 'z'; -#line 21338 "" +#line 21723 "" } -#line 21339 "" +#line 21724 "" } /* ++ */ -#line 21341 "" +#line 21726 "" comask_1.fixednew += -.4f; -#line 21342 "" +#line 21727 "" } /* 1st and 2nd endings */ -#line 21346 "" +#line 21731 "" svolta = bit_test(islnow,7); -#line 21347 "" +#line 21732 "" evolta = bit_test(islnow,9); -#line 21348 "" +#line 21733 "" if (evolta) { -#line 21349 "" +#line 21734 "" if (bit_test(islnow,10)) { -#line 21350 "" +#line 21735 "" if (comlast_1.islast) { -#line 21350 "" - s_wsfe(&io___1410); +#line 21735 "" + s_wsfe(&io___1435); /* Writing concatenation */ -#line 21350 "" +#line 21735 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21350 "" +#line 21735 "" i__6[1] = 11, a__4[1] = "endvoltabox"; -#line 21350 "" +#line 21735 "" s_cat(ch__14, a__4, i__6, &c__2, (ftnlen)12); -#line 21350 "" +#line 21735 "" do_fio(&c__1, ch__14, (ftnlen)12); -#line 21350 "" +#line 21735 "" e_wsfe(); -#line 21350 "" +#line 21735 "" } -#line 21351 "" +#line 21736 "" } else { -#line 21352 "" +#line 21737 "" if (comlast_1.islast) { -#line 21352 "" - s_wsfe(&io___1411); +#line 21737 "" + s_wsfe(&io___1436); /* Writing concatenation */ -#line 21352 "" +#line 21737 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21352 "" +#line 21737 "" i__6[1] = 8, a__4[1] = "endvolta"; -#line 21352 "" +#line 21737 "" s_cat(ch__18, a__4, i__6, &c__2, (ftnlen)9); -#line 21352 "" +#line 21737 "" do_fio(&c__1, ch__18, (ftnlen)9); -#line 21352 "" +#line 21737 "" e_wsfe(); -#line 21352 "" +#line 21737 "" } -#line 21353 "" +#line 21738 "" } -#line 21354 "" +#line 21739 "" onvolt = FALSE_; -#line 21355 "" +#line 21740 "" } -#line 21356 "" +#line 21741 "" if (svolta) { -#line 21357 "" +#line 21742 "" ++comgrace_1.nvolt; -#line 21358 "" +#line 21743 "" lvoltxt = i_indx(comgrace_1.voltxtq + (comgrace_1.nvolt - 1) * 20, " ", (ftnlen)20, (ftnlen)1) - 1; -#line 21359 "" +#line 21744 "" if (lvoltxt == 1) { -#line 21360 "" +#line 21745 "" if (comlast_1.islast) { -#line 21360 "" - s_wsfe(&io___1413); +#line 21745 "" + s_wsfe(&io___1438); /* Writing concatenation */ -#line 21360 "" +#line 21745 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 21360 "" +#line 21745 "" i__5[1] = 8, a__3[1] = "Setvolta"; -#line 21360 "" +#line 21745 "" i__5[2] = 1, a__3[2] = comgrace_1.voltxtq + ( comgrace_1.nvolt - 1) * 20; -#line 21360 "" +#line 21745 "" i__5[3] = 1, a__3[3] = "%"; -#line 21360 "" +#line 21745 "" s_cat(ch__15, a__3, i__5, &c__4, (ftnlen)11); -#line 21360 "" +#line 21745 "" do_fio(&c__1, ch__15, (ftnlen)11); -#line 21360 "" +#line 21745 "" e_wsfe(); -#line 21360 "" +#line 21745 "" } -#line 21362 "" +#line 21747 "" } else { -#line 21363 "" +#line 21748 "" if (comlast_1.islast) { -#line 21363 "" - s_wsfe(&io___1414); +#line 21748 "" + s_wsfe(&io___1439); /* Writing concatenation */ -#line 21363 "" +#line 21748 "" i__12[0] = 1, a__9[0] = all_1.sq; -#line 21363 "" +#line 21748 "" i__12[1] = 8, a__9[1] = "Setvolta"; -#line 21363 "" +#line 21748 "" i__12[2] = 1, a__9[2] = "{"; -#line 21363 "" +#line 21748 "" i__12[3] = lvoltxt, a__9[3] = comgrace_1.voltxtq + ( comgrace_1.nvolt - 1) * 20; -#line 21363 "" +#line 21748 "" i__12[4] = 2, a__9[4] = "}%"; -#line 21363 "" +#line 21748 "" s_cat(ch__19, a__9, i__12, &c__5, (ftnlen)32); -#line 21363 "" +#line 21748 "" do_fio(&c__1, ch__19, lvoltxt + 12); -#line 21363 "" +#line 21748 "" e_wsfe(); -#line 21363 "" +#line 21748 "" } -#line 21365 "" +#line 21750 "" } -#line 21366 "" +#line 21751 "" onvolt = TRUE_; -#line 21367 "" +#line 21752 "" } -#line 21368 "" +#line 21753 "" if (all_1.ibar > 1) { -#line 21369 "" +#line 21754 "" ipnow = all_1.nib[(all_1.ibar - 1) * 24 - 24] + 1; -#line 21370 "" +#line 21755 "" } else { -#line 21371 "" +#line 21756 "" ipnow = 1; -#line 21372 "" +#line 21757 "" } -#line 21373 "" +#line 21758 "" iplnow = all_1.ipl[ipnow * 24 - 24]; -#line 21374 "" +#line 21759 "" if (comask_1.bar1syst) { /* If listslur>0, then there is at least one slur or tie carried over the break */ -#line 21378 "" +#line 21763 "" ispstie = FALSE_; -#line 21379 "" +#line 21764 "" if (comnotes_1.optlinebreakties && ! comslur_1.fontslur && comslur_1.listslur != 0 && comlast_1.islast) { -#line 21379 "" +#line 21764 "" linebreakties_(all_1.isdat1, all_1.isdat2, all_1.isdat3, all_1.isdat4, &all_1.nsdat, &ispstie, all_1.sepsymq, ( ftnlen)1); -#line 21379 "" +#line 21764 "" } -#line 21383 "" +#line 21768 "" ++all_1.iline; /* End an old system, Start a new system */ @@ -51015,225 +52053,225 @@ L23: /* Reduce space before mbrest at start of system */ /* Need this even if no accidentals in key signature */ -#line 21390 "" +#line 21775 "" if (all_1.ibar == comgrace_1.ibarmbr) { -#line 21390 "" +#line 21775 "" comgrace_1.xb4mbr = all_1.musicsize * -.2f; -#line 21390 "" +#line 21775 "" } -#line 21392 "" +#line 21777 "" if (all_1.iline != 1) { /* Not first line. */ /* Get corrected poe = points/elemskip for *previous* system */ -#line 21397 "" +#line 21782 "" wdpt = comtop_1.widthpt * (1 - comtop_1.fracindent); -#line 21398 "" +#line 21783 "" poe = (wdpt - fsyst * all_1.musicsize - nbarss * .4f - comask_1.fixednew) / (elsktot + comask_1.fbar * nbarss - comask_1.scaldold); -#line 21400 "" +#line 21785 "" ++isyscnt; -#line 21401 "" +#line 21786 "" poevec[isyscnt] = poe; /* Transfer data for system into global arrays to hold until very end */ -#line 21405 "" +#line 21790 "" i__7 = comas2_1.nasksys; -#line 21405 "" +#line 21790 "" for (ia = 1; ia <= i__7; ++ia) { -#line 21406 "" +#line 21791 "" ++comas3_1.iask; -#line 21407 "" - comas3_1.ask[comas3_1.iask - 1] = comas2_1.wasksys[ia - 1] - / poe - (r__1 = comas2_1.elasksys[ia - 1], dabs( - r__1)); +#line 21792 "" + comas3_1.ask[comas3_1.iask - 1] = (comas2_1.wasksys[ia - + 1] / poe - (r__1 = comas2_1.elasksys[ia - 1], + dabs(r__1))) / comshort_1.poefa[all_1.iline - 2]; /* Only admit negative ask if it was user-defined space, signalled by elask<=0. */ -#line 21411 "" +#line 21797 "" if (comas2_1.elasksys[ia - 1] > 0.f) { -#line 21411 "" +#line 21797 "" comas3_1.ask[comas3_1.iask - 1] = r_dim(&comas3_1.ask[ - comas3_1.iask - 1], &c_b1009); -#line 21411 "" + comas3_1.iask - 1], &c_b1008); +#line 21797 "" } -#line 21412 "" +#line 21798 "" /* L9: */ -#line 21412 "" +#line 21798 "" } -#line 21413 "" +#line 21799 "" i__7 = nhssys; -#line 21413 "" +#line 21799 "" for (ia = 1; ia <= i__7; ++ia) { -#line 21414 "" +#line 21800 "" ++nhstot; /* Computing MAX */ -#line 21415 "" +#line 21801 "" r__1 = hpts[ia - 1] - hesk[ia - 1] * poe; -#line 21415 "" +#line 21801 "" comhsp_1.hpttot[nhstot - 1] = dmax(r__1,0.f); -#line 21416 "" +#line 21802 "" /* L25: */ -#line 21416 "" +#line 21802 "" } /* Reset counters for new system */ -#line 21420 "" +#line 21806 "" comask_1.scaldold = 0.f; -#line 21421 "" +#line 21807 "" comask_1.fixednew = 0.f; -#line 21422 "" +#line 21808 "" comas2_1.nasksys = 0; -#line 21423 "" +#line 21809 "" nhssys = 0; -#line 21424 "" +#line 21810 "" } /* End of if block for first bar of non-first system. Still 1st bar, any system */ -#line 21428 "" +#line 21814 "" if (comlast_1.islast && all_1.figbass) { -#line 21428 "" - s_wsfe(&io___1423); +#line 21814 "" + s_wsfe(&io___1448); /* Writing concatenation */ -#line 21428 "" +#line 21814 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21428 "" +#line 21814 "" i__6[1] = 8, a__4[1] = "fixdrop%"; -#line 21428 "" +#line 21814 "" s_cat(ch__18, a__4, i__6, &c__2, (ftnlen)9); -#line 21428 "" +#line 21814 "" do_fio(&c__1, ch__18, (ftnlen)9); -#line 21428 "" +#line 21814 "" e_wsfe(); -#line 21428 "" +#line 21814 "" } -#line 21429 "" +#line 21815 "" ++isystpg; /* Try moving the next stmt way down, to fix a bug and get \eject printed at */ /* end of single-system page. */ /* if (isystpg .eq. nsystp(ipage)) isystpg = 0 */ -#line 21434 "" - s_rsle(&io___1424); -#line 21434 "" +#line 21820 "" + s_rsle(&io___1449); +#line 21820 "" do_lio(&c__3, &c__1, (char *)&nbarss, (ftnlen)sizeof(integer)); -#line 21434 "" +#line 21820 "" do_lio(&c__4, &c__1, (char *)&elsktot, (ftnlen)sizeof(real)); -#line 21434 "" +#line 21820 "" do_lio(&c__4, &c__1, (char *)&fsyst, (ftnlen)sizeof(real)); -#line 21434 "" +#line 21820 "" do_lio(&c__4, &c__1, (char *)&frac, (ftnlen)sizeof(real)); -#line 21434 "" +#line 21820 "" do_lio(&c__4, &c__1, (char *)&comeon_1.eonk, (ftnlen)sizeof(real)) ; -#line 21434 "" +#line 21820 "" do_lio(&c__4, &c__1, (char *)&comeon_1.ewmxk, (ftnlen)sizeof(real) ); -#line 21434 "" +#line 21820 "" e_rsle(); -#line 21435 "" +#line 21821 "" if (all_1.iline > 1) { -#line 21435 "" +#line 21821 "" comtop_1.fracindent = frac; -#line 21435 "" +#line 21821 "" } -#line 21436 "" +#line 21822 "" if (all_1.figbass) { -#line 21437 "" +#line 21823 "" all_1.ifigdr[(all_1.iline << 1) - 2] = 4; -#line 21438 "" +#line 21824 "" all_1.ifigdr[(all_1.iline << 1) - 1] = 4; -#line 21439 "" +#line 21825 "" } -#line 21440 "" +#line 21826 "" all_1.slfac = slfac1 * all_1.musicsize * elsktot; -#line 21441 "" +#line 21827 "" if (all_1.iline != 1) { /* For the line just _finished_, put figdrop in separate file. */ -#line 21445 "" +#line 21831 "" if (all_1.figbass) { -#line 21445 "" - s_wsfe(&io___1426); +#line 21831 "" + s_wsfe(&io___1451); /* Writing concatenation */ -#line 21445 "" +#line 21831 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21445 "" +#line 21831 "" i__6[1] = 8, a__4[1] = "figdrop="; -#line 21445 "" +#line 21831 "" s_cat(ch__18, a__4, i__6, &c__2, (ftnlen)9); -#line 21445 "" +#line 21831 "" do_fio(&c__1, ch__18, (ftnlen)9); -#line 21445 "" +#line 21831 "" do_fio(&c__1, (char *)&all_1.ifigdr[(all_1.iline - 1 << 1) - 2], (ftnlen)sizeof(integer)); /* Writing concatenation */ -#line 21445 "" +#line 21831 "" i__8[0] = 1, a__5[0] = " "; -#line 21445 "" +#line 21831 "" i__8[1] = 1, a__5[1] = all_1.sq; -#line 21445 "" +#line 21831 "" i__8[2] = 8, a__5[2] = "figdtwo="; -#line 21445 "" +#line 21831 "" s_cat(ch__20, a__5, i__8, &c__3, (ftnlen)10); -#line 21445 "" +#line 21831 "" do_fio(&c__1, ch__20, (ftnlen)10); -#line 21445 "" +#line 21831 "" do_fio(&c__1, (char *)&all_1.ifigdr[(all_1.iline - 1 << 1) - 1], (ftnlen)sizeof(integer)); /* Writing concatenation */ -#line 21445 "" +#line 21831 "" i__11[0] = 1, a__8[0] = all_1.sq; -#line 21445 "" +#line 21831 "" i__11[1] = 3, a__8[1] = "or%"; -#line 21445 "" +#line 21831 "" s_cat(ch__21, a__8, i__11, &c__2, (ftnlen)4); -#line 21445 "" +#line 21831 "" do_fio(&c__1, ch__21, (ftnlen)4); -#line 21445 "" +#line 21831 "" e_wsfe(); -#line 21445 "" +#line 21831 "" } /* Check slurs in top staff for interference w/ barno. Only check when */ /* # if digits in barno >= |isig| But to keep on/off phasing, must ALWAYS */ /* keep track of ons and offs when |isig|<=3. */ -#line 21453 "" +#line 21839 "" r__1 = combibarcnt_1.ibarcnt + ibcoff + .01f; -#line 21453 "" +#line 21839 "" ndigbn = (integer) r_lg10(&r__1) + 1; -#line 21454 "" +#line 21840 "" comsln_1.isnx = 0; -#line 21455 "" +#line 21841 "" if (ndigbn >= abs(comtop_1.isig) && comsln_1.is1n1 > 0) { /* There's a slur in top voice over the line break, hgt=is1n1, idcode=is2n1 */ /* Look for termination in remainder of this input block. If not found, */ /* just use is1n1. Remember, haven't slid down yet. */ -#line 21461 "" +#line 21847 "" ioff = 0; -#line 21462 "" +#line 21848 "" if (all_1.ibar > 1) { -#line 21462 "" +#line 21848 "" ioff = all_1.nib[commvl_1.ivmx[all_1.nv + commvl_1.nvmx[all_1.nv - 1] * 24 - 25] + ( all_1.ibar - 1) * 24 - 25]; -#line 21462 "" +#line 21848 "" } -#line 21463 "" +#line 21849 "" i__7 = all_1.nsdat; -#line 21463 "" +#line 21849 "" for (isdat = 1; isdat <= i__7; ++isdat) { -#line 21464 "" +#line 21850 "" if (igetbits_(&all_1.isdat1[isdat - 1], &c__5, &c__13) == commvl_1.ivmx[all_1.nv + commvl_1.nvmx[ all_1.nv - 1] * 24 - 25] && ! bit_test( @@ -51245,82 +52283,82 @@ L23: /* is1n1 = max(is1n1,igetbits(isdat2(nsdat),7,19)) */ /* Computing MAX */ -#line 21471 "" +#line 21857 "" i__2 = comsln_1.is1n1, i__13 = igetbits_(& all_1.isdat2[isdat - 1], &c__7, &c__19); -#line 21471 "" +#line 21857 "" comsln_1.is1n1 = max(i__2,i__13); -#line 21472 "" +#line 21858 "" goto L51; -#line 21473 "" +#line 21859 "" } -#line 21474 "" +#line 21860 "" /* L50: */ -#line 21474 "" +#line 21860 "" } /* If exiting loop normally, did not find end of slur. c'est la vie. */ -#line 21478 "" +#line 21864 "" L51: -#line 21479 "" +#line 21865 "" i__7 = ncmid_(&all_1.nv, &c__1) + 1 + comsln_1.irzbnd; -#line 21479 "" +#line 21865 "" comsln_1.isnx = i_dim(&comsln_1.is1n1, &i__7); -#line 21480 "" +#line 21866 "" if (comsln_1.isnx > 0) { /* AHA! Slur likely to interfere with barno. */ /* Modified 090525 to use \bnrs */ -#line 21486 "" +#line 21872 "" slint = TRUE_; -#line 21487 "" +#line 21873 "" s_copy(fmtq, "(a16,i1,a14)", (ftnlen)24, (ftnlen)12); -#line 21488 "" +#line 21874 "" if (comsln_1.irzbnd + comsln_1.isnx > 9) { -#line 21488 "" +#line 21874 "" s_copy(fmtq, "(a16,i2,a14)", (ftnlen)24, (ftnlen) 12); -#line 21488 "" +#line 21874 "" } -#line 21489 "" +#line 21875 "" if (comlast_1.islast) { -#line 21489 "" - s_wsfe(&io___1429); +#line 21875 "" + s_wsfe(&io___1454); /* Writing concatenation */ -#line 21489 "" +#line 21875 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 21489 "" +#line 21875 "" i__5[1] = 3, a__3[1] = "def"; -#line 21489 "" +#line 21875 "" i__5[2] = 1, a__3[2] = all_1.sq; -#line 21489 "" +#line 21875 "" i__5[3] = 11, a__3[3] = "raisebarno{"; -#line 21489 "" +#line 21875 "" s_cat(ch__22, a__3, i__5, &c__4, (ftnlen)16); -#line 21489 "" +#line 21875 "" do_fio(&c__1, ch__22, (ftnlen)16); -#line 21489 "" +#line 21875 "" i__7 = comsln_1.irzbnd + comsln_1.isnx; -#line 21489 "" +#line 21875 "" do_fio(&c__1, (char *)&i__7, (ftnlen)sizeof( integer)); /* Writing concatenation */ -#line 21489 "" +#line 21875 "" i__8[0] = 2, a__5[0] = ".5"; -#line 21489 "" +#line 21875 "" i__8[1] = 1, a__5[1] = all_1.sq; -#line 21489 "" +#line 21875 "" i__8[2] = 11, a__5[2] = "internote}%"; -#line 21489 "" +#line 21875 "" s_cat(ch__10, a__5, i__8, &c__3, (ftnlen)14); -#line 21489 "" +#line 21875 "" do_fio(&c__1, ch__10, (ftnlen)14); -#line 21489 "" +#line 21875 "" e_wsfe(); -#line 21489 "" +#line 21875 "" } /* if (islast) then */ /* if (isnx .le. 9) then */ @@ -51330,11 +52368,11 @@ L51: /* end if */ /* end if */ -#line 21499 "" +#line 21885 "" } -#line 21500 "" +#line 21886 "" } -#line 21501 "" +#line 21887 "" if (comget_1.movbrk > 0) { /* movbrk = 0 */ @@ -51345,78 +52383,85 @@ L51: /* indsym = 0,1,2 for doubleBAR , doublebar, rightrepeat. */ /* This is passed to \newmovement. */ -#line 21511 "" +#line 21897 "" if (*(unsigned char *)comget_1.rptfq2 == 'E') { -#line 21511 "" +#line 21897 "" *(unsigned char *)comget_1.rptfq2 = 'D'; -#line 21511 "" +#line 21897 "" } -#line 21512 "" +#line 21898 "" indsym = i_indx("Ddrbz", comget_1.rptfq2, (ftnlen)5, ( ftnlen)1) - 1; -#line 21513 "" +#line 21899 "" *(unsigned char *)comget_1.rptfq2 = 'E'; /* Also check for Rd or Rr set the normal way */ -#line 21517 "" +#line 21903 "" if (bit_test(islnow,8)) { -#line 21518 "" +#line 21904 "" indsym = 1; -#line 21519 "" +#line 21905 "" } else if (bit_test(islnow,6)) { -#line 21520 "" +#line 21906 "" indsym = 2; -#line 21521 "" +#line 21907 "" } -#line 21522 "" +#line 21908 "" if (indsym < 0) { -#line 21523 "" - s_wsle(&io___1431); -#line 21523 "" +#line 21909 "" + s_wsle(&io___1456); +#line 21909 "" e_wsle(); -#line 21524 "" - s_wsle(&io___1432); -#line 21524 "" +#line 21910 "" + s_wsle(&io___1457); +#line 21910 "" do_lio(&c__9, &c__1, "Illegal end symbol before \"/\"" , (ftnlen)29); -#line 21524 "" +#line 21910 "" e_wsle(); -#line 21525 "" +#line 21911 "" stop1_(); -#line 21526 "" +#line 21912 "" } /* Check for continuation (no bar number reset) */ -#line 21530 "" +#line 21916 "" if (comlast_1.islast && comnotes_1.nobar1) { -#line 21530 "" - s_wsfe(&io___1433); +#line 21917 "" + s_wsfe(&io___1458); /* Writing concatenation */ -#line 21530 "" - i__14[0] = 1, a__10[0] = all_1.sq; -#line 21530 "" - i__14[1] = 7, a__10[1] = "advance"; -#line 21530 "" - i__14[2] = 1, a__10[2] = all_1.sq; -#line 21530 "" - i__14[3] = 6, a__10[3] = "barno1"; -#line 21530 "" - i__14[4] = 1, a__10[4] = all_1.sq; -#line 21530 "" - i__14[5] = 10, a__10[5] = "startbarno"; -#line 21530 "" - i__14[6] = 1, a__10[6] = all_1.sq; -#line 21530 "" - i__14[7] = 6, a__10[7] = "barno%"; -#line 21530 "" - s_cat(ch__23, a__10, i__14, &c__8, (ftnlen)33); -#line 21530 "" - do_fio(&c__1, ch__23, (ftnlen)33); -#line 21530 "" +#line 21917 "" + i__9[0] = 1, a__6[0] = all_1.sq; +#line 21917 "" + i__9[1] = 7, a__6[1] = "advance"; +#line 21917 "" + i__9[2] = 1, a__6[2] = all_1.sq; +#line 21917 "" + i__9[3] = 6, a__6[3] = "barno1"; +#line 21917 "" + i__9[4] = 1, a__6[4] = all_1.sq; +#line 21917 "" + i__9[5] = 6, a__6[5] = "global"; +#line 21917 "" + i__9[6] = 1, a__6[6] = all_1.sq; +#line 21917 "" + i__9[7] = 10, a__6[7] = "startbarno"; +#line 21917 "" + i__9[8] = 1, a__6[8] = all_1.sq; +#line 21917 "" + i__9[9] = 6, a__6[9] = "barno%"; +#line 21917 "" + s_cat(ch__23, a__6, i__9, &c__10, (ftnlen)40); +#line 21917 "" + do_fio(&c__1, ch__23, (ftnlen)40); +#line 21917 "" e_wsfe(); -#line 21530 "" + +/* Need above for shortening case mcm with Mc */ + +#line 21922 "" } /* Per Rainer's suggestion, changing \nbinstruments via 3rd arg of \newmovement */ @@ -51428,294 +52473,528 @@ L51: /* if (islast) write(11,'(a13,i2,a1,i1,a1)') */ /* * sq//'newmovement{',movgap,'}',indsym,'%' */ /* end if */ -#line 21543 "" +#line 21933 "" if (comlast_1.islast) { /* Writing concatenation */ -#line 21544 "" +#line 21934 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21544 "" +#line 21934 "" i__6[1] = 11, a__4[1] = "newmovement"; -#line 21544 "" +#line 21934 "" s_cat(nmq, a__4, i__6, &c__2, (ftnlen)40); -#line 21545 "" +#line 21935 "" lnmq = 12; -#line 21546 "" +#line 21936 "" if (comget_1.movgap < 10) { -#line 21547 "" +#line 21937 "" lnmq = 14; -#line 21548 "" - s_wsfi(&io___1436); -#line 21548 "" +#line 21938 "" + s_wsfi(&io___1461); +#line 21938 "" do_fio(&c__1, (char *)&comget_1.movgap, (ftnlen) sizeof(integer)); -#line 21548 "" +#line 21938 "" do_fio(&c__1, (char *)&indsym, (ftnlen)sizeof( integer)); -#line 21548 "" +#line 21938 "" e_wsfi(); -#line 21549 "" +#line 21939 "" } else { -#line 21550 "" +#line 21940 "" lnmq = 17; -#line 21551 "" - s_wsfi(&io___1437); -#line 21551 "" +#line 21941 "" + s_wsfi(&io___1462); +#line 21941 "" do_fio(&c__1, "{", (ftnlen)1); -#line 21551 "" +#line 21941 "" do_fio(&c__1, (char *)&comget_1.movgap, (ftnlen) sizeof(integer)); -#line 21551 "" +#line 21941 "" do_fio(&c__1, "}", (ftnlen)1); -#line 21551 "" +#line 21941 "" do_fio(&c__1, (char *)&indsym, (ftnlen)sizeof( integer)); -#line 21551 "" +#line 21941 "" e_wsfi(); -#line 21552 "" +#line 21942 "" } -#line 21553 "" +#line 21943 "" if (comnotes_1.ninow < 10) { -#line 21554 "" +#line 21944 "" ++lnmq; -#line 21555 "" +#line 21945 "" ici__1.icierr = 0; -#line 21555 "" +#line 21945 "" ici__1.icirnum = 1; -#line 21555 "" +#line 21945 "" ici__1.icirlen = 1; -#line 21555 "" +#line 21945 "" ici__1.iciunit = nmq + (lnmq - 1); -#line 21555 "" +#line 21945 "" ici__1.icifmt = "(i1)"; -#line 21555 "" +#line 21945 "" s_wsfi(&ici__1); -#line 21555 "" +#line 21945 "" do_fio(&c__1, (char *)&comnotes_1.ninow, (ftnlen) sizeof(integer)); -#line 21555 "" +#line 21945 "" e_wsfi(); -#line 21556 "" +#line 21946 "" } else { -#line 21557 "" +#line 21947 "" lnmq += 4; -#line 21558 "" +#line 21948 "" i__7 = lnmq - 4; -#line 21558 "" +#line 21948 "" ici__1.icierr = 0; -#line 21558 "" +#line 21948 "" ici__1.icirnum = 1; -#line 21558 "" +#line 21948 "" ici__1.icirlen = lnmq - i__7; -#line 21558 "" +#line 21948 "" ici__1.iciunit = nmq + i__7; -#line 21558 "" +#line 21948 "" ici__1.icifmt = "(a1,i2,a1)"; -#line 21558 "" +#line 21948 "" s_wsfi(&ici__1); -#line 21558 "" +#line 21948 "" do_fio(&c__1, "{", (ftnlen)1); -#line 21558 "" +#line 21948 "" do_fio(&c__1, (char *)&comnotes_1.ninow, (ftnlen) sizeof(integer)); -#line 21558 "" +#line 21948 "" do_fio(&c__1, "}", (ftnlen)1); -#line 21558 "" +#line 21948 "" e_wsfi(); -#line 21559 "" +#line 21949 "" } -#line 21560 "" +#line 21950 "" ++lnmq; -#line 21561 "" +#line 21951 "" ici__1.icierr = 0; -#line 21561 "" +#line 21951 "" ici__1.icirnum = 1; -#line 21561 "" +#line 21951 "" ici__1.icirlen = 1; -#line 21561 "" +#line 21951 "" ici__1.iciunit = nmq + (lnmq - 1); -#line 21561 "" +#line 21951 "" ici__1.icifmt = "(a1)"; -#line 21561 "" +#line 21951 "" s_wsfi(&ici__1); -#line 21561 "" +#line 21951 "" do_fio(&c__1, "%", (ftnlen)1); -#line 21561 "" +#line 21951 "" e_wsfi(); -#line 21562 "" - s_wsfe(&io___1438); -#line 21562 "" +#line 21952 "" + if (comshort_1.ishort == 4) { + +/* Ending Short-blank-coda */ + +#line 21956 "" + s_wsfe(&io___1463); +/* Writing concatenation */ +#line 21956 "" + i__6[0] = 1, a__4[0] = all_1.sq; +#line 21956 "" + i__6[1] = 11, a__4[1] = "Endpiece}}%"; +#line 21956 "" + s_cat(ch__14, a__4, i__6, &c__2, (ftnlen)12); +#line 21956 "" + do_fio(&c__1, ch__14, (ftnlen)12); +#line 21956 "" + e_wsfe(); +#line 21957 "" + } +#line 21958 "" + s_wsfe(&io___1464); +#line 21958 "" do_fio(&c__1, nmq, lnmq); -#line 21562 "" +#line 21958 "" e_wsfe(); -#line 21563 "" +#line 21959 "" + if (comshort_1.ishort == 2) { +#line 21960 "" + s_wsfe(&io___1465); +/* Writing concatenation */ +#line 21960 "" + i__6[0] = 1, a__4[0] = all_1.sq; +#line 21960 "" + i__6[1] = 12, a__4[1] = "stoppiece}}%"; +#line 21960 "" + s_cat(ch__17, a__4, i__6, &c__2, (ftnlen)13); +#line 21960 "" + do_fio(&c__1, ch__17, (ftnlen)13); +#line 21960 "" + e_wsfe(); +#line 21961 "" + comshort_1.ishort = 5; +#line 21962 "" + } else if (comshort_1.ishort == 4) { +#line 21963 "" + s_wsfe(&io___1466); +/* Writing concatenation */ +#line 21963 "" + i__4[0] = 1, a__2[0] = all_1.sq; +#line 21963 "" + i__4[1] = 3, a__2[1] = "let"; +#line 21963 "" + i__4[2] = 1, a__2[2] = all_1.sq; +#line 21963 "" + i__4[3] = 9, a__2[3] = "stoppiece"; +#line 21963 "" + i__4[4] = 1, a__2[4] = all_1.sq; +#line 21963 "" + i__4[5] = 9, a__2[5] = "holdstop%"; +#line 21963 "" + s_cat(ch__24, a__2, i__4, &c__6, (ftnlen)24); +#line 21963 "" + do_fio(&c__1, ch__24, (ftnlen)24); +#line 21963 "" + e_wsfe(); + +/* Since we bypass newmovement, need to set the vertical gap. */ + +#line 21968 "" + if (comget_1.movgap > 10) { +#line 21969 "" + s_wsfe(&io___1467); +/* Writing concatenation */ +#line 21969 "" + i__6[0] = 1, a__4[0] = all_1.sq; +#line 21969 "" + i__6[1] = 5, a__4[1] = "vskip"; +#line 21969 "" + s_cat(ch__25, a__4, i__6, &c__2, (ftnlen)6); +#line 21969 "" + do_fio(&c__1, ch__25, (ftnlen)6); +#line 21969 "" + do_fio(&c__1, (char *)&comget_1.movgap, ( + ftnlen)sizeof(integer)); +/* Writing concatenation */ +#line 21969 "" + i__11[0] = 1, a__8[0] = all_1.sq; +#line 21969 "" + i__11[1] = 10, a__8[1] = "internote%"; +#line 21969 "" + s_cat(ch__15, a__8, i__11, &c__2, (ftnlen)11); +#line 21969 "" + do_fio(&c__1, ch__15, (ftnlen)11); +#line 21969 "" + e_wsfe(); +#line 21971 "" + } else if (comget_1.movgap > 0) { +#line 21972 "" + s_wsfe(&io___1468); +/* Writing concatenation */ +#line 21972 "" + i__6[0] = 1, a__4[0] = all_1.sq; +#line 21972 "" + i__6[1] = 5, a__4[1] = "vskip"; +#line 21972 "" + s_cat(ch__25, a__4, i__6, &c__2, (ftnlen)6); +#line 21972 "" + do_fio(&c__1, ch__25, (ftnlen)6); +#line 21972 "" + do_fio(&c__1, (char *)&comget_1.movgap, ( + ftnlen)sizeof(integer)); +/* Writing concatenation */ +#line 21972 "" + i__11[0] = 1, a__8[0] = all_1.sq; +#line 21972 "" + i__11[1] = 10, a__8[1] = "internote%"; +#line 21972 "" + s_cat(ch__15, a__8, i__11, &c__2, (ftnlen)11); +#line 21972 "" + do_fio(&c__1, ch__15, (ftnlen)11); +#line 21972 "" + e_wsfe(); +#line 21974 "" + } +#line 21975 "" + comshort_1.ishort = 6; +#line 21976 "" + } +#line 21977 "" + if ((comshort_1.ishort == 5 || comshort_1.ishort == 6) + && ! comnvi_1.rename) { +#line 21978 "" + i__7 = comnotes_1.ninow; +#line 21978 "" + for (iinst = 1; iinst <= i__7; ++iinst) { +#line 21979 "" + if (comlast_1.islast) { +#line 21980 "" + if (iinst < 10) { +#line 21981 "" + s_wsfe(&io___1469); +/* Writing concatenation */ +#line 21981 "" + i__6[0] = 1, a__4[0] = all_1.sq; +#line 21981 "" + i__6[1] = 7, a__4[1] = "setname"; +#line 21981 "" + s_cat(ch__8, a__4, i__6, &c__2, ( + ftnlen)8); +#line 21981 "" + do_fio(&c__1, ch__8, (ftnlen)8); +#line 21981 "" + do_fio(&c__1, (char *)&iinst, (ftnlen) + sizeof(integer)); +#line 21981 "" + do_fio(&c__1, "{}%", (ftnlen)3); +#line 21981 "" + e_wsfe(); +#line 21982 "" + } else { +#line 21983 "" + s_wsfe(&io___1470); +/* Writing concatenation */ +#line 21983 "" + i__6[0] = 1, a__4[0] = all_1.sq; +#line 21983 "" + i__6[1] = 8, a__4[1] = "setname{"; +#line 21983 "" + s_cat(ch__18, a__4, i__6, &c__2, ( + ftnlen)9); +#line 21983 "" + do_fio(&c__1, ch__18, (ftnlen)9); +#line 21983 "" + do_fio(&c__1, (char *)&iinst, (ftnlen) + sizeof(integer)); +#line 21983 "" + do_fio(&c__1, "}{}%", (ftnlen)4); +#line 21983 "" + e_wsfe(); +#line 21985 "" + } +#line 21986 "" + } +#line 21987 "" +/* L62: */ +#line 21987 "" + } +#line 21988 "" + } +#line 21989 "" + comnvi_1.rename = FALSE_; +#line 21990 "" } /* Change generalmeter if necessary */ -#line 21567 "" +#line 21994 "" if (comlast_1.islast) { -#line 21567 "" +#line 21995 "" wgmeter_(&all_1.mtrnmp, &all_1.mtrdnp); -#line 21567 "" +#line 21996 "" } +#line 21997 "" + all_1.mtrnuml = 0; /* (Moved all name-writing to getnote, right when 'M' is detected) */ -#line 21571 "" +#line 22001 "" if (bit_test(iplnow,28)) { /* Key signature at movement break */ -#line 21575 "" +#line 22005 "" iplnow = bit_clear(iplnow,28); -#line 21576 "" +#line 22006 "" if (comtop_1.isig > 0) { -#line 21577 "" +#line 22007 "" if (comlast_1.islast) { -#line 21577 "" - s_wsfe(&io___1439); +#line 22007 "" + s_wsfe(&io___1471); /* Writing concatenation */ -#line 21577 "" +#line 22007 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21577 "" +#line 22007 "" i__6[1] = 17, a__4[1] = "generalsignature{"; -#line 21577 "" - s_cat(ch__24, a__4, i__6, &c__2, (ftnlen)18); -#line 21577 "" - do_fio(&c__1, ch__24, (ftnlen)18); -#line 21577 "" +#line 22007 "" + s_cat(ch__26, a__4, i__6, &c__2, (ftnlen)18); +#line 22007 "" + do_fio(&c__1, ch__26, (ftnlen)18); +#line 22007 "" do_fio(&c__1, (char *)&comtop_1.isig, (ftnlen) sizeof(integer)); -#line 21577 "" +#line 22007 "" do_fio(&c__1, "}%", (ftnlen)2); -#line 21577 "" +#line 22007 "" e_wsfe(); -#line 21577 "" +#line 22007 "" } -#line 21579 "" +#line 22009 "" } else { -#line 21580 "" +#line 22010 "" if (comlast_1.islast) { -#line 21580 "" - s_wsfe(&io___1440); +#line 22010 "" + s_wsfe(&io___1472); /* Writing concatenation */ -#line 21580 "" +#line 22010 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21580 "" +#line 22010 "" i__6[1] = 17, a__4[1] = "generalsignature{"; -#line 21580 "" - s_cat(ch__24, a__4, i__6, &c__2, (ftnlen)18); -#line 21580 "" - do_fio(&c__1, ch__24, (ftnlen)18); -#line 21580 "" +#line 22010 "" + s_cat(ch__26, a__4, i__6, &c__2, (ftnlen)18); +#line 22010 "" + do_fio(&c__1, ch__26, (ftnlen)18); +#line 22010 "" do_fio(&c__1, (char *)&comtop_1.isig, (ftnlen) sizeof(integer)); -#line 21580 "" +#line 22010 "" do_fio(&c__1, "}%", (ftnlen)2); -#line 21580 "" +#line 22010 "" e_wsfe(); -#line 21580 "" +#line 22010 "" } -#line 21582 "" +#line 22012 "" } -#line 21583 "" +#line 22013 "" if (comlast_1.islast && cominsttrans_1.laterinsttrans) { -#line 21584 "" +#line 22014 "" writesetsign_(&cominsttrans_1.ninsttrans, cominsttrans_1.iinsttrans, cominsttrans_1.itranskey, & cominsttrans_1.laterinsttrans); -#line 21586 "" +#line 22016 "" } -#line 21587 "" +#line 22017 "" } -#line 21588 "" +#line 22018 "" if (comget_1.parmov >= -.1f) { /* Resent paragraph indentation */ -#line 21592 "" +#line 22022 "" ipi = comget_1.parmov * comtop_1.widthpt + .1f; -#line 21593 "" +#line 22023 "" if (ipi < 10) { -#line 21594 "" +#line 22024 "" if (comlast_1.islast) { -#line 21594 "" - s_wsfe(&io___1442); +#line 22024 "" + s_wsfe(&io___1474); /* Writing concatenation */ -#line 21594 "" +#line 22024 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21594 "" +#line 22024 "" i__6[1] = 10, a__4[1] = "parindent "; -#line 21594 "" +#line 22024 "" s_cat(ch__15, a__4, i__6, &c__2, (ftnlen)11); -#line 21594 "" +#line 22024 "" do_fio(&c__1, ch__15, (ftnlen)11); -#line 21594 "" +#line 22024 "" do_fio(&c__1, (char *)&ipi, (ftnlen)sizeof( integer)); -#line 21594 "" +#line 22024 "" do_fio(&c__1, "pt", (ftnlen)2); -#line 21594 "" +#line 22024 "" e_wsfe(); -#line 21594 "" +#line 22024 "" } -#line 21596 "" +#line 22026 "" } else if (ipi < 100) { -#line 21597 "" +#line 22027 "" if (comlast_1.islast) { -#line 21597 "" - s_wsfe(&io___1443); +#line 22027 "" + s_wsfe(&io___1475); /* Writing concatenation */ -#line 21597 "" +#line 22027 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21597 "" +#line 22027 "" i__6[1] = 10, a__4[1] = "parindent "; -#line 21597 "" +#line 22027 "" s_cat(ch__15, a__4, i__6, &c__2, (ftnlen)11); -#line 21597 "" +#line 22027 "" do_fio(&c__1, ch__15, (ftnlen)11); -#line 21597 "" +#line 22027 "" do_fio(&c__1, (char *)&ipi, (ftnlen)sizeof( integer)); -#line 21597 "" +#line 22027 "" do_fio(&c__1, "pt", (ftnlen)2); -#line 21597 "" +#line 22027 "" e_wsfe(); -#line 21597 "" +#line 22027 "" } -#line 21599 "" +#line 22029 "" } else { -#line 21600 "" +#line 22030 "" if (comlast_1.islast) { -#line 21600 "" - s_wsfe(&io___1444); +#line 22030 "" + s_wsfe(&io___1476); /* Writing concatenation */ -#line 21600 "" +#line 22030 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21600 "" +#line 22030 "" i__6[1] = 10, a__4[1] = "parindent "; -#line 21600 "" +#line 22030 "" s_cat(ch__15, a__4, i__6, &c__2, (ftnlen)11); -#line 21600 "" +#line 22030 "" do_fio(&c__1, ch__15, (ftnlen)11); -#line 21600 "" +#line 22030 "" do_fio(&c__1, (char *)&ipi, (ftnlen)sizeof( integer)); -#line 21600 "" +#line 22030 "" do_fio(&c__1, "pt", (ftnlen)2); -#line 21600 "" +#line 22030 "" e_wsfe(); -#line 21600 "" +#line 22030 "" } -#line 21602 "" +#line 22032 "" } -#line 21603 "" +#line 22033 "" } -#line 21604 "" +#line 22034 "" + if (comshort_1.ishort == 6) { +#line 22035 "" + if (iflagbot == 1) { +#line 22036 "" + s_wsfe(&io___1477); +/* Writing concatenation */ +#line 22036 "" + i__5[0] = 1, a__3[0] = all_1.sq; +#line 22036 "" + i__5[1] = 5, a__3[1] = "vfill"; +#line 22036 "" + i__5[2] = 1, a__3[2] = all_1.sq; +#line 22036 "" + i__5[3] = 5, a__3[3] = "eject"; +#line 22036 "" + s_cat(ch__14, a__3, i__5, &c__4, (ftnlen)12); +#line 22036 "" + do_fio(&c__1, ch__14, (ftnlen)12); +#line 22036 "" + e_wsfe(); +/* iflagbot = 0 */ +/* ishort = 0 */ +#line 22039 "" + } else { +#line 22040 "" + s_wsfe(&io___1478); +/* Writing concatenation */ +#line 22040 "" + i__6[0] = 1, a__4[0] = all_1.sq; +#line 22040 "" + i__6[1] = 9, a__4[1] = "contpiece"; +#line 22040 "" + s_cat(ch__20, a__4, i__6, &c__2, (ftnlen)10); +#line 22040 "" + do_fio(&c__1, ch__20, (ftnlen)10); +#line 22040 "" + e_wsfe(); +#line 22041 "" + } + +/* Zero ishort later trying to write alaligne */ + +#line 22045 "" + } +#line 22046 "" } -#line 21605 "" +/* End of movement break stuff */ +#line 22047 "" if (isystpg == 1) { /* First line on a page (not 1st page, still first bar). Tidy up old page */ @@ -51731,247 +53010,307 @@ L51: /* Check for meter change at start of a new PAGE */ -#line 21620 "" +#line 22062 "" if (all_1.mtrnuml > 0) { /* Meter change at start of a new page. Ugly repeated coding here. */ -#line 21624 "" +#line 22066 "" mtrnms = all_1.mtrnuml; -#line 21625 "" +#line 22067 "" setmeter_(&all_1.mtrnuml, &all_1.mtrdenl, & combeam_1.ibmtyp, &ibmrep); -#line 21626 "" +#line 22068 "" all_1.mtrnuml = mtrnms; -#line 21627 "" +#line 22069 "" if (comget_1.movbrk == 0 && comlast_1.islast) { -#line 21627 "" +#line 22070 "" wgmeter_(&all_1.mtrnmp, &all_1.mtrdnp); -#line 21627 "" +#line 22071 "" } -#line 21629 "" +#line 22072 "" } /* Key signature change? */ -#line 21633 "" +#line 22076 "" if (bit_test(iplnow,28) && comget_1.movbrk == 0) { /* Writing concatenation */ -#line 21634 "" +#line 22077 "" i__14[0] = 1, a__10[0] = all_1.sq; -#line 21634 "" +#line 22077 "" i__14[1] = 4, a__10[1] = "xbar"; -#line 21634 "" +#line 22077 "" i__14[2] = 1, a__10[2] = all_1.sq; -#line 21634 "" +#line 22077 "" i__14[3] = 10, a__10[3] = "addspace{-"; -#line 21634 "" +#line 22077 "" i__14[4] = 1, a__10[4] = all_1.sq; -#line 21634 "" +#line 22077 "" i__14[5] = 14, a__10[5] = "afterruleskip}"; -#line 21634 "" +#line 22077 "" i__14[6] = 1, a__10[6] = all_1.sq; -#line 21634 "" +#line 22077 "" i__14[7] = 17, a__10[7] = "generalsignature{"; -#line 21634 "" +#line 22077 "" s_cat(notexq, a__10, i__14, &c__8, (ftnlen)79); -#line 21636 "" +#line 22079 "" lnote = 49; -#line 21637 "" +#line 22080 "" if (comtop_1.isig < 0) { /* Writing concatenation */ -#line 21638 "" +#line 22081 "" i__6[0] = 49, a__4[0] = notexq; -#line 21638 "" +#line 22081 "" i__6[1] = 1, a__4[1] = "-"; -#line 21638 "" +#line 22081 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 21639 "" +#line 22082 "" lnote = 50; -#line 21640 "" +#line 22083 "" } -#line 21641 "" +#line 22084 "" if (comlast_1.islast) { -#line 21641 "" - s_wsfe(&io___1446); +#line 22084 "" + s_wsfe(&io___1480); /* Writing concatenation */ -#line 21641 "" +#line 22084 "" i__8[0] = lnote, a__5[0] = notexq; -#line 21641 "" +#line 22084 "" i__7 = abs(comtop_1.isig) + 48; -#line 21641 "" +#line 22084 "" chax_(ch__1, (ftnlen)1, &i__7); -#line 21641 "" +#line 22084 "" i__8[1] = 1, a__5[1] = ch__1; -#line 21641 "" +#line 22084 "" i__8[2] = 2, a__5[2] = "}%"; -#line 21641 "" - s_cat(ch__25, a__5, i__8, &c__3, (ftnlen)82); -#line 21641 "" - do_fio(&c__1, ch__25, lnote + 3); -#line 21641 "" +#line 22084 "" + s_cat(ch__27, a__5, i__8, &c__3, (ftnlen)82); +#line 22084 "" + do_fio(&c__1, ch__27, lnote + 3); +#line 22084 "" e_wsfe(); -#line 21641 "" +#line 22084 "" } -#line 21643 "" +#line 22086 "" if (comlast_1.islast && cominsttrans_1.laterinsttrans) { -#line 21644 "" +#line 22087 "" writesetsign_(&cominsttrans_1.ninsttrans, cominsttrans_1.iinsttrans, cominsttrans_1.itranskey, & cominsttrans_1.laterinsttrans); -#line 21646 "" +#line 22089 "" } -#line 21647 "" +#line 22090 "" if (comlast_1.islast && comignorenats_1.ignorenats) { -#line 21647 "" - s_wsfe(&io___1447); +#line 22090 "" + s_wsfe(&io___1481); /* Writing concatenation */ -#line 21647 "" +#line 22090 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21647 "" +#line 22090 "" i__6[1] = 11, a__4[1] = "ignorenats%"; -#line 21647 "" +#line 22090 "" s_cat(ch__14, a__4, i__6, &c__2, (ftnlen)12); -#line 21647 "" +#line 22090 "" do_fio(&c__1, ch__14, (ftnlen)12); -#line 21647 "" +#line 22090 "" e_wsfe(); -#line 21647 "" +#line 22090 "" } -#line 21649 "" +#line 22092 "" if (comlast_1.islast) { -#line 21649 "" - s_wsfe(&io___1448); +#line 22092 "" + s_wsfe(&io___1482); /* Writing concatenation */ -#line 21649 "" +#line 22092 "" i__9[0] = 1, a__6[0] = all_1.sq; -#line 21649 "" +#line 22092 "" i__9[1] = 14, a__6[1] = "zchangecontext"; -#line 21649 "" +#line 22092 "" i__9[2] = 1, a__6[2] = all_1.sq; -#line 21649 "" +#line 22092 "" i__9[3] = 10, a__6[3] = "addspace{-"; -#line 21649 "" +#line 22092 "" i__9[4] = 1, a__6[4] = all_1.sq; -#line 21649 "" +#line 22092 "" i__9[5] = 14, a__6[5] = "afterruleskip}"; -#line 21649 "" +#line 22092 "" i__9[6] = 1, a__6[6] = all_1.sq; -#line 21649 "" +#line 22092 "" i__9[7] = 10, a__6[7] = "zstoppiece"; -#line 21649 "" +#line 22092 "" i__9[8] = 1, a__6[8] = all_1.sq; -#line 21649 "" +#line 22092 "" i__9[9] = 13, a__6[9] = "PMXbarnotrue%"; -#line 21649 "" - s_cat(ch__26, a__6, i__9, &c__10, (ftnlen)66); -#line 21649 "" - do_fio(&c__1, ch__26, (ftnlen)66); -#line 21649 "" +#line 22092 "" + s_cat(ch__28, a__6, i__9, &c__10, (ftnlen)66); +#line 22092 "" + do_fio(&c__1, ch__28, (ftnlen)66); +#line 22092 "" e_wsfe(); -#line 21649 "" +#line 22092 "" } -#line 21652 "" +#line 22095 "" } else if (all_1.mtrnuml > 0 && comget_1.movbrk == 0) { /* Meter change but no signature change */ -#line 21656 "" +#line 22099 "" if (comlast_1.islast) { -#line 21656 "" - s_wsfe(&io___1449); +#line 22099 "" + s_wsfe(&io___1483); /* Writing concatenation */ -#line 21656 "" +#line 22099 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 21656 "" +#line 22099 "" i__3[1] = 14, a__1[1] = "xchangecontext"; -#line 21656 "" +#line 22099 "" i__3[2] = 1, a__1[2] = all_1.sq; -#line 21656 "" +#line 22099 "" i__3[3] = 10, a__1[3] = "addspace{-"; -#line 21656 "" +#line 22099 "" i__3[4] = 1, a__1[4] = all_1.sq; -#line 21656 "" +#line 22099 "" i__3[5] = 14, a__1[5] = "afterruleskip}"; -#line 21656 "" +#line 22099 "" i__3[6] = 1, a__1[6] = all_1.sq; -#line 21656 "" +#line 22099 "" i__3[7] = 3, a__1[7] = "let"; -#line 21656 "" +#line 22099 "" i__3[8] = 1, a__1[8] = all_1.sq; -#line 21656 "" +#line 22099 "" i__3[9] = 4, a__1[9] = "bnat"; -#line 21656 "" +#line 22099 "" i__3[10] = 1, a__1[10] = all_1.sq; -#line 21656 "" +#line 22099 "" i__3[11] = 9, a__1[11] = "barnoadd%"; -#line 21656 "" - s_cat(ch__27, a__1, i__3, &c__12, (ftnlen)60); -#line 21656 "" - do_fio(&c__1, ch__27, (ftnlen)60); -#line 21656 "" +#line 22099 "" + s_cat(ch__29, a__1, i__3, &c__12, (ftnlen)60); +#line 22099 "" + do_fio(&c__1, ch__29, (ftnlen)60); +#line 22099 "" e_wsfe(); -#line 21656 "" +#line 22099 "" } -#line 21660 "" +#line 22103 "" if (comlast_1.islast) { -#line 21660 "" - s_wsfe(&io___1450); +#line 22103 "" + s_wsfe(&io___1484); /* Writing concatenation */ -#line 21660 "" +#line 22103 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 21660 "" +#line 22103 "" i__3[1] = 3, a__1[1] = "def"; -#line 21660 "" +#line 22103 "" i__3[2] = 1, a__1[2] = all_1.sq; -#line 21660 "" +#line 22103 "" i__3[3] = 9, a__1[3] = "barnoadd{"; -#line 21660 "" +#line 22103 "" i__3[4] = 1, a__1[4] = all_1.sq; -#line 21660 "" +#line 22103 "" i__3[5] = 3, a__1[5] = "let"; -#line 21660 "" +#line 22103 "" i__3[6] = 1, a__1[6] = all_1.sq; -#line 21660 "" +#line 22103 "" i__3[7] = 8, a__1[7] = "barnoadd"; -#line 21660 "" +#line 22103 "" i__3[8] = 1, a__1[8] = all_1.sq; -#line 21660 "" +#line 22103 "" i__3[9] = 5, a__1[9] = "bnat}"; -#line 21660 "" +#line 22103 "" i__3[10] = 1, a__1[10] = all_1.sq; -#line 21660 "" +#line 22103 "" i__3[11] = 11, a__1[11] = "zstoppiece%"; -#line 21660 "" - s_cat(ch__28, a__1, i__3, &c__12, (ftnlen)45); -#line 21660 "" - do_fio(&c__1, ch__28, (ftnlen)45); -#line 21660 "" +#line 22103 "" + s_cat(ch__30, a__1, i__3, &c__12, (ftnlen)45); +#line 22103 "" + do_fio(&c__1, ch__30, (ftnlen)45); +#line 22103 "" e_wsfe(); -#line 21660 "" +#line 22103 "" } -#line 21663 "" +#line 22106 "" } else { -#line 21664 "" +#line 22107 "" if (comlast_1.islast) { -#line 21664 "" - s_wsfe(&io___1451); +#line 22108 "" + if ((comshort_1.ishort == 4 || comshort_1.ishort + == 2) && iflagbot == 1) { +#line 22110 "" + ntmp = combibarcnt_1.ibarcnt - ibarcnt0 - + comshort_1.nmbr + comshort_1.mbrsum; +#line 22111 "" + if (ntmp <= 9) { +#line 22112 "" + *(unsigned char *)shortfraq = (char) ( + ntmp + 48); +#line 22113 "" + lntmp = 1; +#line 22114 "" + } else { +#line 22115 "" + s_wsfi(&io___1489); +#line 22115 "" + do_fio(&c__1, (char *)&ntmp, (ftnlen) + sizeof(integer)); +#line 22115 "" + e_wsfi(); +#line 22116 "" + lntmp = 2; +#line 22117 "" + } +#line 22118 "" + s_wsfe(&io___1490); /* Writing concatenation */ -#line 21664 "" - i__6[0] = 1, a__4[0] = all_1.sq; -#line 21664 "" - i__6[1] = 10, a__4[1] = "stoppiece%"; -#line 21664 "" - s_cat(ch__15, a__4, i__6, &c__2, (ftnlen)11); -#line 21664 "" - do_fio(&c__1, ch__15, (ftnlen)11); -#line 21664 "" - e_wsfe(); -#line 21664 "" +#line 22118 "" + i__15[0] = 1, a__11[0] = all_1.sq; +#line 22118 "" + i__15[1] = 10, a__11[1] = "endpiece}}"; +#line 22118 "" + i__15[2] = 1, a__11[2] = all_1.sq; +#line 22118 "" + i__15[3] = 7, a__11[3] = "advance"; +#line 22118 "" + i__15[4] = 1, a__11[4] = all_1.sq; +#line 22118 "" + i__15[5] = 5, a__11[5] = "barno"; +#line 22118 "" + i__15[6] = lntmp, a__11[6] = shortfraq; +#line 22118 "" + s_cat(ch__31, a__11, i__15, &c__7, (ftnlen)28) + ; +#line 22118 "" + do_fio(&c__1, ch__31, lntmp + 25); +#line 22118 "" + e_wsfe(); + +/* Move down so can insert fil@begin */ +/* iflagbot = 0 */ +/* ishort = 0 */ + +#line 22125 "" + } else if (comshort_1.ishort != 6 && + comshort_1.ishort != 2 || iflagbot != 1) { +#line 22127 "" + s_wsfe(&io___1491); +/* Writing concatenation */ +#line 22127 "" + i__6[0] = 1, a__4[0] = all_1.sq; +#line 22127 "" + i__6[1] = 10, a__4[1] = "stoppiece%"; +#line 22127 "" + s_cat(ch__15, a__4, i__6, &c__2, (ftnlen)11); +#line 22127 "" + do_fio(&c__1, ch__15, (ftnlen)11); +#line 22127 "" + e_wsfe(); +#line 22128 "" + } +#line 22129 "" } -#line 21665 "" +#line 22130 "" } /* This is the key spot when vshrink is used. Value of vshrink here comes from */ @@ -51985,666 +53324,1212 @@ L51: /* second pass, vshrink at top of page one is dealt with in topfile, which is called */ /* *before* any reading in any "Av" at the top of the first input block. */ -#line 21678 "" +#line 22143 "" if (! vshrink) { -#line 21679 "" +#line 22144 "" if (comlast_1.islast && combottop_1.bottopgap) { -#line 21680 "" +#line 22145 "" if (dabs(combottop_1.botamt) > 1e-6f) { -#line 21681 "" +#line 22146 "" if (combottop_1.botamt > 9.95f) { -#line 21682 "" +#line 22147 "" s_copy(fmtq, "(a,f4.1,a)", (ftnlen)24, ( ftnlen)10); -#line 21683 "" +#line 22148 "" } else if (combottop_1.botamt > 0.f) { -#line 21684 "" +#line 22149 "" s_copy(fmtq, "(a,f3.1,a)", (ftnlen)24, ( ftnlen)10); -#line 21685 "" +#line 22150 "" } else if (combottop_1.botamt > -9.95f) { -#line 21686 "" +#line 22151 "" s_copy(fmtq, "(a,f4.1,a)", (ftnlen)24, ( ftnlen)10); -#line 21687 "" +#line 22152 "" } else { -#line 21688 "" +#line 22153 "" s_copy(fmtq, "(a,f5.1,a)", (ftnlen)24, ( ftnlen)10); -#line 21689 "" +#line 22154 "" } -#line 21690 "" - s_wsfe(&io___1452); +#line 22155 "" + s_wsfe(&io___1492); /* Writing concatenation */ -#line 21690 "" +#line 22155 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 21690 "" +#line 22155 "" i__5[1] = 4, a__3[1] = "null"; -#line 21690 "" +#line 22155 "" i__5[2] = 1, a__3[2] = all_1.sq; -#line 21690 "" +#line 22155 "" i__5[3] = 5, a__3[3] = "vskip"; -#line 21690 "" +#line 22155 "" s_cat(ch__15, a__3, i__5, &c__4, (ftnlen)11); -#line 21690 "" +#line 22155 "" do_fio(&c__1, ch__15, (ftnlen)11); -#line 21690 "" +#line 22155 "" do_fio(&c__1, (char *)&combottop_1.botamt, ( ftnlen)sizeof(real)); /* Writing concatenation */ -#line 21690 "" +#line 22155 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21690 "" +#line 22155 "" i__6[1] = 10, a__4[1] = "Internote%"; -#line 21690 "" - s_cat(ch__29, a__4, i__6, &c__2, (ftnlen)11); -#line 21690 "" - do_fio(&c__1, ch__29, (ftnlen)11); -#line 21690 "" +#line 22155 "" + s_cat(ch__32, a__4, i__6, &c__2, (ftnlen)11); +#line 22155 "" + do_fio(&c__1, ch__32, (ftnlen)11); +#line 22155 "" e_wsfe(); -#line 21692 "" +#line 22157 "" } -#line 21693 "" +#line 22158 "" } -#line 21694 "" +#line 22159 "" xnstbot = xnsttop[comnotes_1.ipage - 1] * etabot / etatop; -#line 21695 "" +#line 22160 "" if (xnstbot < 9.95f) { -#line 21696 "" +#line 22161 "" s_copy(fmtq, "(a,f3.1,a)", (ftnlen)24, (ftnlen)10) ; -#line 21697 "" +#line 22162 "" } else { -#line 21698 "" +#line 22163 "" s_copy(fmtq, "(a,f4.1,a)", (ftnlen)24, (ftnlen)10) ; -#line 21699 "" +#line 22164 "" } -#line 21700 "" +#line 22165 "" if (comlast_1.islast) { -#line 21700 "" - s_wsfe(&io___1454); +#line 22165 "" + s_wsfe(&io___1494); /* Writing concatenation */ -#line 21700 "" +#line 22165 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21700 "" +#line 22165 "" i__6[1] = 5, a__4[1] = "vskip"; -#line 21700 "" - s_cat(ch__30, a__4, i__6, &c__2, (ftnlen)6); -#line 21700 "" - do_fio(&c__1, ch__30, (ftnlen)6); -#line 21700 "" +#line 22165 "" + s_cat(ch__25, a__4, i__6, &c__2, (ftnlen)6); +#line 22165 "" + do_fio(&c__1, ch__25, (ftnlen)6); +#line 22165 "" do_fio(&c__1, (char *)&xnstbot, (ftnlen)sizeof( real)); /* Writing concatenation */ -#line 21700 "" +#line 22165 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 21700 "" +#line 22165 "" i__5[1] = 10, a__3[1] = "Interligne"; -#line 21700 "" +#line 22165 "" i__5[2] = 1, a__3[2] = all_1.sq; -#line 21700 "" +#line 22165 "" i__5[3] = 6, a__3[3] = "eject%"; -#line 21700 "" - s_cat(ch__24, a__3, i__5, &c__4, (ftnlen)18); -#line 21700 "" - do_fio(&c__1, ch__24, (ftnlen)18); -#line 21700 "" +#line 22165 "" + s_cat(ch__26, a__3, i__5, &c__4, (ftnlen)18); +#line 22165 "" + do_fio(&c__1, ch__26, (ftnlen)18); +#line 22165 "" e_wsfe(); -#line 21700 "" +#line 22165 "" } -#line 21702 "" +#line 22167 "" if (comlast_1.islast && combottop_1.bottopgap) { -#line 21703 "" +#line 22168 "" if (dabs(combottop_1.topamt) > 1e-6f) { -#line 21704 "" +#line 22169 "" if (combottop_1.topamt > 9.95f) { -#line 21705 "" +#line 22170 "" s_copy(fmtq, "(a,f4.1,a)", (ftnlen)24, ( ftnlen)10); -#line 21706 "" +#line 22171 "" } else if (combottop_1.topamt > 0.f) { -#line 21707 "" +#line 22172 "" s_copy(fmtq, "(a,f3.1,a)", (ftnlen)24, ( ftnlen)10); -#line 21708 "" +#line 22173 "" } else if (combottop_1.topamt > -9.95f) { -#line 21709 "" +#line 22174 "" s_copy(fmtq, "(a,f4.1,a)", (ftnlen)24, ( ftnlen)10); -#line 21710 "" +#line 22175 "" } else { -#line 21711 "" +#line 22176 "" s_copy(fmtq, "(a,f5.1,a)", (ftnlen)24, ( ftnlen)10); -#line 21712 "" +#line 22177 "" } -#line 21713 "" - s_wsfe(&io___1455); +#line 22178 "" + s_wsfe(&io___1495); /* Writing concatenation */ -#line 21713 "" +#line 22178 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 21713 "" +#line 22178 "" i__5[1] = 4, a__3[1] = "null"; -#line 21713 "" +#line 22178 "" i__5[2] = 1, a__3[2] = all_1.sq; -#line 21713 "" +#line 22178 "" i__5[3] = 5, a__3[3] = "vskip"; -#line 21713 "" +#line 22178 "" s_cat(ch__15, a__3, i__5, &c__4, (ftnlen)11); -#line 21713 "" +#line 22178 "" do_fio(&c__1, ch__15, (ftnlen)11); -#line 21713 "" +#line 22178 "" do_fio(&c__1, (char *)&combottop_1.topamt, ( ftnlen)sizeof(real)); /* Writing concatenation */ -#line 21713 "" +#line 22178 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21713 "" +#line 22178 "" i__6[1] = 10, a__4[1] = "Internote%"; -#line 21713 "" - s_cat(ch__29, a__4, i__6, &c__2, (ftnlen)11); -#line 21713 "" - do_fio(&c__1, ch__29, (ftnlen)11); -#line 21713 "" +#line 22178 "" + s_cat(ch__32, a__4, i__6, &c__2, (ftnlen)11); +#line 22178 "" + do_fio(&c__1, ch__32, (ftnlen)11); +#line 22178 "" e_wsfe(); -#line 21715 "" +#line 22180 "" } -#line 21716 "" +#line 22181 "" combottop_1.bottopgap = FALSE_; -#line 21717 "" +#line 22182 "" } -#line 21718 "" +#line 22183 "" } else { -#line 21719 "" +#line 22184 "" if (comlast_1.islast) { -#line 21719 "" - s_wsfe(&io___1456); +#line 22185 "" + if (iflagbot == 1 && comshort_1.ishort == 6) { + +/* cleanup for case bcm only */ + +#line 22189 "" + iflagbot = 0; +#line 22190 "" + comshort_1.ishort = 0; +#line 22191 "" + } else { +#line 22192 "" + s_wsfe(&io___1496); /* Writing concatenation */ -#line 21719 "" - i__5[0] = 1, a__3[0] = all_1.sq; -#line 21719 "" - i__5[1] = 5, a__3[1] = "vfill"; -#line 21719 "" - i__5[2] = 1, a__3[2] = all_1.sq; -#line 21719 "" - i__5[3] = 6, a__3[3] = "eject%"; -#line 21719 "" - s_cat(ch__17, a__3, i__5, &c__4, (ftnlen)13); -#line 21719 "" - do_fio(&c__1, ch__17, (ftnlen)13); -#line 21719 "" - e_wsfe(); -#line 21719 "" +#line 22192 "" + i__5[0] = 1, a__3[0] = all_1.sq; +#line 22192 "" + i__5[1] = 5, a__3[1] = "vfill"; +#line 22192 "" + i__5[2] = 1, a__3[2] = all_1.sq; +#line 22192 "" + i__5[3] = 6, a__3[3] = "eject%"; +#line 22192 "" + s_cat(ch__17, a__3, i__5, &c__4, (ftnlen)13); +#line 22192 "" + do_fio(&c__1, ch__17, (ftnlen)13); +#line 22192 "" + e_wsfe(); +#line 22193 "" + if (iflagbot == 1 && comshort_1.ishort == 2) { +/* Clean up case bsl only */ +#line 22195 "" + s_wsfe(&io___1497); +/* Writing concatenation */ +#line 22195 "" + i__4[0] = 1, a__2[0] = all_1.sq; +#line 22195 "" + i__4[1] = 12, a__2[1] = "makeatletter"; +#line 22195 "" + i__4[2] = 1, a__2[2] = all_1.sq; +#line 22195 "" + i__4[3] = 9, a__2[3] = "fil@begin"; +#line 22195 "" + i__4[4] = 1, a__2[4] = all_1.sq; +#line 22195 "" + i__4[5] = 11, a__2[5] = "makeatother"; +#line 22195 "" + s_cat(ch__9, a__2, i__4, &c__6, (ftnlen) + 35); +#line 22195 "" + do_fio(&c__1, ch__9, (ftnlen)35); +#line 22195 "" + e_wsfe(); +#line 22197 "" + iflagbot = 0; +#line 22198 "" + comshort_1.ishort = 0; +#line 22199 "" + } +#line 22200 "" + } +#line 22201 "" } -#line 21720 "" +#line 22202 "" } -#line 21721 "" +#line 22203 "" ++comnotes_1.ipage; /* Now that page is ejected, compute new vshrink */ -#line 21725 "" +#line 22207 "" vshrink = xintstaff[comnotes_1.ipage - 1] > 20.f && comlast_1.usevshrink; -#line 21726 "" +#line 22208 "" if (vshrink) { -#line 21727 "" +#line 22209 "" comarp_1.xinsnow = 10.f; -#line 21728 "" +#line 22210 "" } else { -#line 21729 "" +#line 22211 "" comarp_1.xinsnow = xintstaff[comnotes_1.ipage - 1]; -#line 21730 "" +#line 22212 "" } -#line 21731 "" +#line 22213 "" if (comget_1.fintstf > 0.f && comnotes_1.ipage > 1) { -#line 21732 "" +#line 22214 "" comarp_1.xinsnow = comarp_1.xinsnow * comget_1.fintstf / comget_1.gintstf; -#line 21733 "" +#line 22215 "" comget_1.fintstf = -1.f; -#line 21734 "" +#line 22216 "" } -#line 21735 "" +#line 22217 "" if (comarp_1.xinsnow < 9.95f) { -#line 21736 "" +#line 22218 "" s_copy(fmtq, "(a,f3.1,a)", (ftnlen)24, (ftnlen)10); -#line 21737 "" +#line 22219 "" } else if (comarp_1.xinsnow < 99.95f) { -#line 21738 "" +#line 22220 "" s_copy(fmtq, "(a,f4.1,a)", (ftnlen)24, (ftnlen)10); -#line 21739 "" +#line 22221 "" } else { -#line 21740 "" +#line 22222 "" s_copy(fmtq, "(a,f5.1,a)", (ftnlen)24, (ftnlen)10); -#line 21741 "" +#line 22223 "" } /* Vertical spacing parameters, then restart */ -#line 21745 "" +#line 22227 "" if (comis4bignv_1.is4bignv) { -#line 21745 "" +#line 22227 "" comarp_1.xinsnow *= .95f; -#line 21745 "" +#line 22227 "" } -#line 21746 "" +#line 22228 "" if (comlast_1.islast) { -#line 21746 "" - s_wsfe(&io___1457); +#line 22229 "" + s_wsfe(&io___1498); /* Writing concatenation */ -#line 21746 "" +#line 22229 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21746 "" +#line 22229 "" i__6[1] = 11, a__4[1] = "interstaff{"; -#line 21746 "" +#line 22229 "" s_cat(ch__14, a__4, i__6, &c__2, (ftnlen)12); -#line 21746 "" +#line 22229 "" do_fio(&c__1, ch__14, (ftnlen)12); -#line 21746 "" +#line 22229 "" do_fio(&c__1, (char *)&comarp_1.xinsnow, (ftnlen) sizeof(real)); /* Writing concatenation */ -#line 21746 "" +#line 22229 "" i__8[0] = 1, a__5[0] = "}"; -#line 21746 "" +#line 22229 "" i__8[1] = 1, a__5[1] = all_1.sq; -#line 21746 "" +#line 22229 "" i__8[2] = 9, a__5[2] = "contpiece"; -#line 21746 "" +#line 22229 "" s_cat(ch__15, a__5, i__8, &c__3, (ftnlen)11); -#line 21746 "" +#line 22229 "" do_fio(&c__1, ch__15, (ftnlen)11); -#line 21746 "" +#line 22229 "" e_wsfe(); -#line 21746 "" +#line 22231 "" } /* Check for meter change at start of a new PAGE */ -#line 21751 "" +#line 22235 "" if (all_1.mtrnuml > 0) { /* Meter change at start of a new page */ -#line 21755 "" +#line 22239 "" setmeter_(&all_1.mtrnuml, &all_1.mtrdenl, & combeam_1.ibmtyp, &ibmrep); -#line 21756 "" +#line 22240 "" if (comget_1.movbrk == 0) { -#line 21757 "" +#line 22241 "" if (comlast_1.islast) { -#line 21757 "" +#line 22242 "" wgmeter_(&all_1.mtrnmp, &all_1.mtrdnp); -#line 21757 "" +#line 22243 "" } -#line 21758 "" +#line 22244 "" if (all_1.mtrdnp > 0) { -#line 21759 "" +#line 22245 "" if (comlast_1.islast) { -#line 21759 "" - s_wsfe(&io___1458); +#line 22245 "" + s_wsfe(&io___1499); /* Writing concatenation */ -#line 21759 "" +#line 22245 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21759 "" +#line 22245 "" i__6[1] = 10, a__4[1] = "newtimes2%"; -#line 21759 "" +#line 22245 "" s_cat(ch__15, a__4, i__6, &c__2, (ftnlen) 11); -#line 21759 "" +#line 22245 "" do_fio(&c__1, ch__15, (ftnlen)11); -#line 21759 "" +#line 22245 "" e_wsfe(); -#line 21759 "" +#line 22245 "" } -#line 21760 "" +#line 22246 "" if (all_1.ibar == comgrace_1.ibarmbr) { -#line 21760 "" +#line 22246 "" comgrace_1.xb4mbr = all_1.musicsize * -.2f; -#line 21760 "" +#line 22246 "" } -#line 21761 "" +#line 22247 "" } -#line 21762 "" +#line 22248 "" } -#line 21763 "" +#line 22249 "" } /* If no real titles here, which there probably will never be, make vertical */ /* space at page top with \titles{...}. headlog=.false.<=>no real titles */ -#line 21768 "" +#line 22254 "" + if (comshort_1.ishort == 4 && iflagbot == 1) { +#line 22255 "" + comshort_1.ishort = 0; +#line 22256 "" + iflagbot = 0; +#line 22257 "" + s_wsfe(&io___1500); +/* Writing concatenation */ +#line 22257 "" + i__4[0] = 1, a__2[0] = all_1.sq; +#line 22257 "" + i__4[1] = 12, a__2[1] = "makeatletter"; +#line 22257 "" + i__4[2] = 1, a__2[2] = all_1.sq; +#line 22257 "" + i__4[3] = 9, a__2[3] = "fil@begin"; +#line 22257 "" + i__4[4] = 1, a__2[4] = all_1.sq; +#line 22257 "" + i__4[5] = 11, a__2[5] = "makeatother"; +#line 22257 "" + s_cat(ch__9, a__2, i__4, &c__6, (ftnlen)35); +#line 22257 "" + do_fio(&c__1, ch__9, (ftnlen)35); +#line 22257 "" + e_wsfe(); +#line 22259 "" + } +#line 22260 "" puttitle_(&inhnoh, &xnsttop[comnotes_1.ipage - 1], & etatop, all_1.sq, &etait, &etatc, &etacs1, & all_1.nv, &vshrink, all_1.sepsymq, (ftnlen)1, ( ftnlen)1); -#line 21770 "" +#line 22262 "" if (comnotes_1.headerspecial) { -#line 21770 "" - s_wsfe(&io___1459); +#line 22262 "" + s_wsfe(&io___1501); /* Writing concatenation */ -#line 21770 "" +#line 22262 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 21770 "" +#line 22262 "" i__6[0] = 1, a__4[0] = ch__1; -#line 21770 "" +#line 22262 "" i__6[1] = 28, a__4[1] = "special{header=psslurs.pro}%" ; -#line 21770 "" +#line 22262 "" s_cat(ch__7, a__4, i__6, &c__2, (ftnlen)29); -#line 21770 "" +#line 22262 "" do_fio(&c__1, ch__7, (ftnlen)29); -#line 21770 "" +#line 22262 "" e_wsfe(); -#line 21770 "" +#line 22262 "" } /* Write special header for first page */ -#line 21775 "" +#line 22267 "" } else { /* First bar of system, not a new page, force line break */ -#line 21779 "" +#line 22271 "" if (bit_test(iplnow,28)) { /* Signature change */ /* Writing concatenation */ -#line 21783 "" +#line 22275 "" i__14[0] = 1, a__10[0] = all_1.sq; -#line 21783 "" +#line 22275 "" i__14[1] = 4, a__10[1] = "xbar"; -#line 21783 "" +#line 22275 "" i__14[2] = 1, a__10[2] = all_1.sq; -#line 21783 "" +#line 22275 "" i__14[3] = 10, a__10[3] = "addspace{-"; -#line 21783 "" +#line 22275 "" i__14[4] = 1, a__10[4] = all_1.sq; -#line 21783 "" +#line 22275 "" i__14[5] = 14, a__10[5] = "afterruleskip}"; -#line 21783 "" +#line 22275 "" i__14[6] = 1, a__10[6] = all_1.sq; -#line 21783 "" +#line 22275 "" i__14[7] = 17, a__10[7] = "generalsignature{"; -#line 21783 "" +#line 22275 "" s_cat(notexq, a__10, i__14, &c__8, (ftnlen)79); -#line 21785 "" +#line 22277 "" lnote = 49; -#line 21786 "" +#line 22278 "" if (comtop_1.isig < 0) { /* Writing concatenation */ -#line 21787 "" +#line 22279 "" i__6[0] = 49, a__4[0] = notexq; -#line 21787 "" +#line 22279 "" i__6[1] = 1, a__4[1] = "-"; -#line 21787 "" +#line 22279 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 21788 "" +#line 22280 "" lnote = 50; -#line 21789 "" +#line 22281 "" } -#line 21790 "" +#line 22282 "" if (comlast_1.islast) { -#line 21790 "" - s_wsfe(&io___1460); +#line 22282 "" + s_wsfe(&io___1502); /* Writing concatenation */ -#line 21790 "" +#line 22282 "" i__8[0] = lnote, a__5[0] = notexq; -#line 21790 "" +#line 22282 "" i__7 = abs(comtop_1.isig) + 48; -#line 21790 "" +#line 22282 "" chax_(ch__1, (ftnlen)1, &i__7); -#line 21790 "" +#line 22282 "" i__8[1] = 1, a__5[1] = ch__1; -#line 21790 "" +#line 22282 "" i__8[2] = 2, a__5[2] = "}%"; -#line 21790 "" - s_cat(ch__25, a__5, i__8, &c__3, (ftnlen)82); -#line 21790 "" - do_fio(&c__1, ch__25, lnote + 3); -#line 21790 "" +#line 22282 "" + s_cat(ch__27, a__5, i__8, &c__3, (ftnlen)82); +#line 22282 "" + do_fio(&c__1, ch__27, lnote + 3); +#line 22282 "" e_wsfe(); -#line 21790 "" +#line 22282 "" } -#line 21792 "" +#line 22284 "" if (comlast_1.islast && cominsttrans_1.laterinsttrans) { -#line 21793 "" +#line 22285 "" writesetsign_(&cominsttrans_1.ninsttrans, cominsttrans_1.iinsttrans, cominsttrans_1.itranskey, & cominsttrans_1.laterinsttrans); -#line 21795 "" +#line 22287 "" } -#line 21796 "" +#line 22288 "" if (comlast_1.islast) { -#line 21796 "" - s_wsfe(&io___1461); +#line 22288 "" + s_wsfe(&io___1503); /* Writing concatenation */ -#line 21796 "" +#line 22288 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 21796 "" +#line 22288 "" i__5[1] = 7, a__3[1] = "advance"; -#line 21796 "" +#line 22288 "" i__5[2] = 1, a__3[2] = all_1.sq; -#line 21796 "" +#line 22288 "" i__5[3] = 8, a__3[3] = "barno-1%"; -#line 21796 "" +#line 22288 "" s_cat(ch__13, a__3, i__5, &c__4, (ftnlen)17); -#line 21796 "" +#line 22288 "" do_fio(&c__1, ch__13, (ftnlen)17); -#line 21796 "" +#line 22288 "" e_wsfe(); -#line 21796 "" +#line 22288 "" } -#line 21797 "" +#line 22289 "" if (all_1.mtrnuml != 0) { /* Meter+sig change, new line, may need mods if movement break here. */ -#line 21801 "" +#line 22293 "" setmeter_(&all_1.mtrnuml, &all_1.mtrdenl, & combeam_1.ibmtyp, &ibmrep); -#line 21802 "" +#line 22294 "" if (comlast_1.islast) { -#line 21803 "" +#line 22295 "" wgmeter_(&all_1.mtrnmp, &all_1.mtrdnp); -#line 21804 "" +#line 22296 "" if (comignorenats_1.ignorenats) { -#line 21804 "" - s_wsfe(&io___1462); +#line 22296 "" + s_wsfe(&io___1504); /* Writing concatenation */ -#line 21804 "" +#line 22296 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21804 "" +#line 22296 "" i__6[1] = 11, a__4[1] = "ignorenats%"; -#line 21804 "" +#line 22296 "" s_cat(ch__14, a__4, i__6, &c__2, (ftnlen) 12); -#line 21804 "" +#line 22296 "" do_fio(&c__1, ch__14, (ftnlen)12); -#line 21804 "" +#line 22296 "" e_wsfe(); -#line 21804 "" +#line 22296 "" } -#line 21805 "" - s_wsfe(&io___1463); +#line 22297 "" + s_wsfe(&io___1505); /* Writing concatenation */ -#line 21805 "" +#line 22297 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 21805 "" +#line 22297 "" i__3[1] = 14, a__1[1] = "xchangecontext"; -#line 21805 "" +#line 22297 "" i__3[2] = 1, a__1[2] = all_1.sq; -#line 21805 "" +#line 22297 "" i__3[3] = 10, a__1[3] = "addspace{-"; -#line 21805 "" +#line 22297 "" i__3[4] = 1, a__1[4] = all_1.sq; -#line 21805 "" +#line 22297 "" i__3[5] = 14, a__1[5] = "afterruleskip}"; -#line 21805 "" +#line 22297 "" i__3[6] = 1, a__1[6] = all_1.sq; -#line 21805 "" +#line 22297 "" i__3[7] = 10, a__1[7] = "zstoppiece"; -#line 21805 "" +#line 22297 "" i__3[8] = 1, a__1[8] = all_1.sq; -#line 21805 "" +#line 22297 "" i__3[9] = 12, a__1[9] = "PMXbarnotrue"; -#line 21805 "" +#line 22297 "" i__3[10] = 1, a__1[10] = all_1.sq; -#line 21805 "" +#line 22297 "" i__3[11] = 10, a__1[11] = "contpiece%"; -#line 21805 "" - s_cat(ch__31, a__1, i__3, &c__12, (ftnlen)76); -#line 21805 "" - do_fio(&c__1, ch__31, (ftnlen)76); -#line 21805 "" +#line 22297 "" + s_cat(ch__33, a__1, i__3, &c__12, (ftnlen)76); +#line 22297 "" + do_fio(&c__1, ch__33, (ftnlen)76); +#line 22297 "" e_wsfe(); -/* * 'addspace{-'//sq//'afterruleskip}'//sq//'def' */ -/* * //sq//'writezbarno{}'//sq//'zalaligne%' */ -#line 21810 "" - s_wsfe(&io___1464); +#line 22300 "" + s_wsfe(&io___1506); /* Writing concatenation */ -#line 21810 "" +#line 22300 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 21810 "" +#line 22300 "" i__5[1] = 10, a__3[1] = "addspace{-"; -#line 21810 "" +#line 22300 "" i__5[2] = 1, a__3[2] = all_1.sq; -#line 21810 "" +#line 22300 "" i__5[3] = 15, a__3[3] = "afterruleskip}%"; -#line 21810 "" +#line 22300 "" s_cat(ch__5, a__3, i__5, &c__4, (ftnlen)27); -#line 21810 "" +#line 22300 "" do_fio(&c__1, ch__5, (ftnlen)27); -#line 21810 "" +#line 22300 "" e_wsfe(); -#line 21812 "" +#line 22302 "" wgmeter_(&all_1.mtrnmp, &all_1.mtrdnp); -#line 21813 "" +#line 22303 "" if (comignorenats_1.ignorenats) { -#line 21813 "" - s_wsfe(&io___1465); +#line 22303 "" + s_wsfe(&io___1507); /* Writing concatenation */ -#line 21813 "" +#line 22303 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21813 "" +#line 22303 "" i__6[1] = 11, a__4[1] = "ignorenats%"; -#line 21813 "" +#line 22303 "" s_cat(ch__14, a__4, i__6, &c__2, (ftnlen) 12); -#line 21813 "" +#line 22303 "" do_fio(&c__1, ch__14, (ftnlen)12); -#line 21813 "" +#line 22303 "" e_wsfe(); -#line 21813 "" +#line 22303 "" } -#line 21814 "" - s_wsfe(&io___1466); +#line 22304 "" + s_wsfe(&io___1508); /* Writing concatenation */ -#line 21814 "" +#line 22304 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21814 "" +#line 22304 "" i__6[1] = 14, a__4[1] = "zchangecontext"; -#line 21814 "" +#line 22304 "" s_cat(ch__16, a__4, i__6, &c__2, (ftnlen)15); -#line 21814 "" +#line 22304 "" do_fio(&c__1, ch__16, (ftnlen)15); -#line 21814 "" +#line 22304 "" e_wsfe(); -#line 21815 "" +#line 22305 "" } -#line 21816 "" +#line 22306 "" } else { -#line 21817 "" +#line 22307 "" if (comlast_1.islast && comignorenats_1.ignorenats) { -#line 21817 "" - s_wsfe(&io___1467); +#line 22307 "" + s_wsfe(&io___1509); /* Writing concatenation */ -#line 21817 "" +#line 22307 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21817 "" +#line 22307 "" i__6[1] = 11, a__4[1] = "ignorenats%"; -#line 21817 "" +#line 22307 "" s_cat(ch__14, a__4, i__6, &c__2, (ftnlen)12); -#line 21817 "" +#line 22307 "" do_fio(&c__1, ch__14, (ftnlen)12); -#line 21817 "" +#line 22307 "" e_wsfe(); -#line 21817 "" +#line 22307 "" } -#line 21819 "" +#line 22309 "" if (comlast_1.islast) { -#line 21819 "" - s_wsfe(&io___1468); +#line 22309 "" + s_wsfe(&io___1510); /* Writing concatenation */ -#line 21819 "" +#line 22309 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 21819 "" +#line 22309 "" i__3[1] = 14, a__1[1] = "xchangecontext"; -#line 21819 "" +#line 22309 "" i__3[2] = 1, a__1[2] = all_1.sq; -#line 21819 "" +#line 22309 "" i__3[3] = 10, a__1[3] = "addspace{-"; -#line 21819 "" +#line 22309 "" i__3[4] = 1, a__1[4] = all_1.sq; -#line 21819 "" +#line 22309 "" i__3[5] = 14, a__1[5] = "afterruleskip}"; -#line 21819 "" +#line 22309 "" i__3[6] = 1, a__1[6] = all_1.sq; -#line 21819 "" +#line 22309 "" i__3[7] = 10, a__1[7] = "zstoppiece"; -#line 21819 "" +#line 22309 "" i__3[8] = 1, a__1[8] = all_1.sq; -#line 21819 "" +#line 22309 "" i__3[9] = 12, a__1[9] = "PMXbarnotrue"; -#line 21819 "" +#line 22309 "" i__3[10] = 1, a__1[10] = all_1.sq; -#line 21819 "" +#line 22309 "" i__3[11] = 10, a__1[11] = "contpiece%"; -#line 21819 "" - s_cat(ch__31, a__1, i__3, &c__12, (ftnlen)76); -#line 21819 "" - do_fio(&c__1, ch__31, (ftnlen)76); -#line 21819 "" +#line 22309 "" + s_cat(ch__33, a__1, i__3, &c__12, (ftnlen)76); +#line 22309 "" + do_fio(&c__1, ch__33, (ftnlen)76); +#line 22309 "" e_wsfe(); -#line 21819 "" +#line 22309 "" } -/* * 'addspace{-'//sq//'afterruleskip}'//sq//'def'// */ -/* * sq//'writezbarno{}'//sq//'zalaligne%' */ -#line 21824 "" +#line 22312 "" } -#line 21825 "" - } else if (all_1.mtrnuml == 0) { +#line 22313 "" + } else if (all_1.mtrnuml == 0 && (comshort_1.ishort == 0 + || comshort_1.ishort == 6)) { /* No meter change */ -#line 21829 "" +#line 22318 "" if (comlast_1.islast) { -#line 21829 "" - s_wsfe(&io___1469); +#line 22319 "" + if (comshort_1.ishort != 6) { +#line 22320 "" + s_wsfe(&io___1511); /* Writing concatenation */ -#line 21829 "" +#line 22320 "" + i__6[0] = 1, a__4[0] = all_1.sq; +#line 22320 "" + i__6[1] = 8, a__4[1] = "alaligne"; +#line 22320 "" + s_cat(ch__18, a__4, i__6, &c__2, (ftnlen)9); +#line 22320 "" + do_fio(&c__1, ch__18, (ftnlen)9); +#line 22320 "" + e_wsfe(); +#line 22321 "" + } else { +#line 22322 "" + comshort_1.ishort = 0; +#line 22323 "" + } +#line 22324 "" + } +#line 22325 "" + } else if (comshort_1.ishort != 0) { +#line 22326 "" + if (comshort_1.ishort == 1) { +/* Start short line */ +#line 22327 "" + s_wsfi(&io___1512); +#line 22327 "" + do_fio(&c__1, (char *)&comshort_1.shortfrac, ( + ftnlen)sizeof(real)); +#line 22327 "" + e_wsfi(); +#line 22328 "" + s_wsfe(&io___1513); +/* Writing concatenation */ +#line 22328 "" + i__5[0] = 1, a__3[0] = all_1.sq; +#line 22328 "" + i__5[1] = 9, a__3[1] = "stoppiece"; +#line 22328 "" + i__5[2] = 1, a__3[2] = all_1.sq; +#line 22328 "" + i__5[3] = 13, a__3[3] = "parindent 0pt"; +#line 22328 "" + s_cat(ch__24, a__3, i__5, &c__4, (ftnlen)24); +#line 22328 "" + do_fio(&c__1, ch__24, (ftnlen)24); +#line 22328 "" + e_wsfe(); +#line 22329 "" + s_wsfe(&io___1514); +/* Writing concatenation */ +#line 22329 "" + i__5[0] = 1, a__3[0] = all_1.sq; +#line 22329 "" + i__5[1] = 5, a__3[1] = "vskip"; +#line 22329 "" + i__5[2] = 1, a__3[2] = all_1.sq; +#line 22329 "" + i__5[3] = 7, a__3[3] = "parskip"; +#line 22329 "" + s_cat(ch__10, a__3, i__5, &c__4, (ftnlen)14); +#line 22329 "" + do_fio(&c__1, ch__10, (ftnlen)14); +#line 22329 "" + e_wsfe(); +#line 22330 "" + s_wsfe(&io___1515); +/* Writing concatenation */ +#line 22330 "" + i__16[0] = 1, a__12[0] = all_1.sq; +#line 22330 "" + i__16[1] = 7, a__12[1] = "hbox to"; +#line 22330 "" + i__16[2] = 1, a__12[2] = all_1.sq; +#line 22330 "" + i__16[3] = 6, a__12[3] = "hsize{"; +#line 22330 "" + i__16[4] = 1, a__12[4] = all_1.sq; +#line 22330 "" + i__16[5] = 5, a__12[5] = "vbox{"; +#line 22330 "" + i__16[6] = 1, a__12[6] = all_1.sq; +#line 22330 "" + i__16[7] = 6, a__12[7] = "hsize="; +#line 22330 "" + i__16[8] = 3, a__12[8] = shortfraq; +#line 22330 "" + i__16[9] = 1, a__12[9] = all_1.sq; +#line 22330 "" + i__16[10] = 6, a__12[10] = "hsize%"; +#line 22330 "" + s_cat(ch__34, a__12, i__16, &c__11, (ftnlen)38); +#line 22330 "" + do_fio(&c__1, ch__34, (ftnlen)38); +#line 22330 "" + e_wsfe(); +#line 22333 "" + s_wsfe(&io___1516); +/* Writing concatenation */ +#line 22333 "" + i__6[0] = 1, a__4[0] = all_1.sq; +#line 22333 "" + i__6[1] = 9, a__4[1] = "contpiece"; +#line 22333 "" + s_cat(ch__20, a__4, i__6, &c__2, (ftnlen)10); +#line 22333 "" + do_fio(&c__1, ch__20, (ftnlen)10); +#line 22333 "" + e_wsfe(); +#line 22334 "" + s_wsfe(&io___1517); +/* Writing concatenation */ +#line 22334 "" + i__4[0] = 1, a__2[0] = all_1.sq; +#line 22334 "" + i__4[1] = 12, a__2[1] = "makeatletter"; +#line 22334 "" + i__4[2] = 1, a__2[2] = all_1.sq; +#line 22334 "" + i__4[3] = 9, a__2[3] = "fil@begin"; +#line 22334 "" + i__4[4] = 1, a__2[4] = all_1.sq; +#line 22334 "" + i__4[5] = 11, a__2[5] = "makeatother"; +#line 22334 "" + s_cat(ch__9, a__2, i__4, &c__6, (ftnlen)35); +#line 22334 "" + do_fio(&c__1, ch__9, (ftnlen)35); +#line 22334 "" + e_wsfe(); +#line 22336 "" + ibarcnt0 = combibarcnt_1.ibarcnt; +#line 22337 "" + comshort_1.mbrsum = 0; +#line 22338 "" + comshort_1.ishort = 2; +#line 22339 "" + comshort_1.nmbr = 0; +#line 22340 "" + } else if (comshort_1.ishort == 2) { +/* End short line, no new mv */ +#line 22341 "" + ntmp = combibarcnt_1.ibarcnt - ibarcnt0 - + comshort_1.nmbr + comshort_1.mbrsum; +#line 22342 "" + if (ntmp <= 9) { +#line 22343 "" + *(unsigned char *)shortfraq = (char) (ntmp + + 48); +#line 22344 "" + lntmp = 1; +#line 22345 "" + } else { +#line 22346 "" + s_wsfi(&io___1518); +#line 22346 "" + do_fio(&c__1, (char *)&ntmp, (ftnlen)sizeof( + integer)); +#line 22346 "" + e_wsfi(); +#line 22347 "" + lntmp = 2; +#line 22348 "" + } +#line 22349 "" + s_wsfe(&io___1519); +/* Writing concatenation */ +#line 22349 "" + i__15[0] = 1, a__11[0] = all_1.sq; +#line 22349 "" + i__15[1] = 11, a__11[1] = "stoppiece}}"; +#line 22349 "" + i__15[2] = 1, a__11[2] = all_1.sq; +#line 22349 "" + i__15[3] = 7, a__11[3] = "advance"; +#line 22349 "" + i__15[4] = 1, a__11[4] = all_1.sq; +#line 22349 "" + i__15[5] = 5, a__11[5] = "barno"; +#line 22349 "" + i__15[6] = lntmp, a__11[6] = shortfraq; +#line 22349 "" + s_cat(ch__7, a__11, i__15, &c__7, (ftnlen)29); +#line 22349 "" + do_fio(&c__1, ch__7, lntmp + 26); +#line 22349 "" + e_wsfe(); + +/* Not clear why we needed this */ +/* //sq//'startbarno'//sq//'barno%' */ +#line 22354 "" + s_wsfe(&io___1520); +/* Writing concatenation */ +#line 22354 "" + i__6[0] = 1, a__4[0] = all_1.sq; +#line 22354 "" + i__6[1] = 9, a__4[1] = "contpiece"; +#line 22354 "" + s_cat(ch__20, a__4, i__6, &c__2, (ftnlen)10); +#line 22354 "" + do_fio(&c__1, ch__20, (ftnlen)10); +#line 22354 "" + e_wsfe(); +#line 22355 "" + s_wsfe(&io___1521); +/* Writing concatenation */ +#line 22355 "" + i__4[0] = 1, a__2[0] = all_1.sq; +#line 22355 "" + i__4[1] = 12, a__2[1] = "makeatletter"; +#line 22355 "" + i__4[2] = 1, a__2[2] = all_1.sq; +#line 22355 "" + i__4[3] = 9, a__2[3] = "fil@begin"; +#line 22355 "" + i__4[4] = 1, a__2[4] = all_1.sq; +#line 22355 "" + i__4[5] = 11, a__2[5] = "makeatother"; +#line 22355 "" + s_cat(ch__9, a__2, i__4, &c__6, (ftnlen)35); +#line 22355 "" + do_fio(&c__1, ch__9, (ftnlen)35); +#line 22355 "" + e_wsfe(); +#line 22357 "" + comshort_1.ishort = 0; +#line 22358 "" + } else if (comshort_1.ishort == 5) { +/* End short line, new mvt */ +#line 22359 "" + if (comnotes_1.nobar1) { +/* Continue bar numbering */ +#line 22360 "" + s_wsfe(&io___1522); +/* Writing concatenation */ +#line 22360 "" + i__10[0] = 1, a__7[0] = all_1.sq; +#line 22360 "" + i__10[1] = 7, a__7[1] = "advance"; +#line 22360 "" + i__10[2] = 1, a__7[2] = all_1.sq; +#line 22360 "" + i__10[3] = 5, a__7[3] = "barno"; +#line 22360 "" + *(unsigned char *)&ch__1[0] = + combibarcnt_1.ibarcnt - ibarcnt0 + 48; +#line 22360 "" + i__10[4] = 1, a__7[4] = ch__1; +#line 22360 "" + i__10[5] = 1, a__7[5] = all_1.sq; +#line 22360 "" + i__10[6] = 10, a__7[6] = "startbarno"; +#line 22360 "" + i__10[7] = 1, a__7[7] = all_1.sq; +#line 22360 "" + i__10[8] = 6, a__7[8] = "barno%"; +#line 22360 "" + s_cat(ch__35, a__7, i__10, &c__9, (ftnlen)33); +#line 22360 "" + do_fio(&c__1, ch__35, (ftnlen)33); +#line 22360 "" + e_wsfe(); + +/* Must leave in \startbarno to get msm with LMc to work. */ + +#line 22366 "" + } +#line 22367 "" + s_wsfe(&io___1523); +/* Writing concatenation */ +#line 22367 "" + i__4[0] = 1, a__2[0] = all_1.sq; +#line 22367 "" + i__4[1] = 10, a__2[1] = "startpiece"; +#line 22367 "" + i__4[2] = 1, a__2[2] = all_1.sq; +#line 22367 "" + i__4[3] = 8, a__2[3] = "addspace"; +#line 22367 "" + i__4[4] = 1, a__2[4] = all_1.sq; +#line 22367 "" + i__4[5] = 14, a__2[5] = "afterruleskip%"; +#line 22367 "" + s_cat(ch__9, a__2, i__4, &c__6, (ftnlen)35); +#line 22367 "" + do_fio(&c__1, ch__9, (ftnlen)35); +#line 22367 "" + e_wsfe(); +#line 22369 "" + comshort_1.ishort = 0; +#line 22370 "" + } else if (comshort_1.ishort == 3) { +/* May never come thru here. Stuff is done later at least for mcl.pmx */ +/* Mid line gap, start coda */ +#line 22372 "" + s_wsfi(&io___1524); +#line 22372 "" + do_fio(&c__1, (char *)&comshort_1.codafrac, ( + ftnlen)sizeof(real)); +#line 22372 "" + e_wsfi(); +#line 22373 "" + s_wsfe(&io___1525); +/* Writing concatenation */ +#line 22373 "" + i__16[0] = 1, a__12[0] = all_1.sq; +#line 22373 "" + i__16[1] = 9, a__12[1] = "endpiece}"; +#line 22373 "" + i__16[2] = 1, a__12[2] = all_1.sq; +#line 22373 "" + i__16[3] = 7, a__12[3] = "advance"; +#line 22373 "" + i__16[4] = 1, a__12[4] = all_1.sq; +#line 22373 "" + i__16[5] = 5, a__12[5] = "barno"; +#line 22373 "" + *(unsigned char *)&ch__1[0] = + combibarcnt_1.ibarcnt - ibarcnt0 + 48; +#line 22373 "" + i__16[6] = 1, a__12[6] = ch__1; +#line 22373 "" + i__16[7] = 1, a__12[7] = all_1.sq; +#line 22373 "" + i__16[8] = 10, a__12[8] = "startbarno"; +#line 22373 "" + i__16[9] = 1, a__12[9] = all_1.sq; +#line 22373 "" + i__16[10] = 6, a__12[10] = "barno%"; +#line 22373 "" + s_cat(ch__36, a__12, i__16, &c__11, (ftnlen)43); +#line 22373 "" + do_fio(&c__1, ch__36, (ftnlen)43); +#line 22373 "" + e_wsfe(); +#line 22376 "" + s_wsfe(&io___1526); +/* Writing concatenation */ +#line 22376 "" + i__14[0] = 1, a__10[0] = all_1.sq; +#line 22376 "" + i__14[1] = 5, a__10[1] = "hfill"; +#line 22376 "" + i__14[2] = 1, a__10[2] = all_1.sq; +#line 22376 "" + i__14[3] = 5, a__10[3] = "vbox{"; +#line 22376 "" + i__14[4] = 1, a__10[4] = all_1.sq; +#line 22376 "" + i__14[5] = 6, a__10[5] = "hsize="; +#line 22376 "" + i__14[6] = 3, a__10[6] = shortfraq; +#line 22376 "" + i__14[7] = 1, a__10[7] = "%"; +#line 22376 "" + s_cat(ch__3, a__10, i__14, &c__8, (ftnlen)23); +#line 22376 "" + do_fio(&c__1, ch__3, (ftnlen)23); +#line 22376 "" + e_wsfe(); +#line 22378 "" + s_wsfe(&io___1527); +/* Writing concatenation */ +#line 22378 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21829 "" - i__6[1] = 8, a__4[1] = "alaligne"; -#line 21829 "" - s_cat(ch__18, a__4, i__6, &c__2, (ftnlen)9); -#line 21829 "" - do_fio(&c__1, ch__18, (ftnlen)9); -#line 21829 "" +#line 22378 "" + i__6[1] = 9, a__4[1] = "contpiece"; +#line 22378 "" + s_cat(ch__20, a__4, i__6, &c__2, (ftnlen)10); +#line 22378 "" + do_fio(&c__1, ch__20, (ftnlen)10); +#line 22378 "" e_wsfe(); -#line 21829 "" +#line 22379 "" + s_wsfe(&io___1528); +/* Writing concatenation */ +#line 22379 "" + i__4[0] = 1, a__2[0] = all_1.sq; +#line 22379 "" + i__4[1] = 12, a__2[1] = "makeatletter"; +#line 22379 "" + i__4[2] = 1, a__2[2] = all_1.sq; +#line 22379 "" + i__4[3] = 9, a__2[3] = "fil@begin"; +#line 22379 "" + i__4[4] = 1, a__2[4] = all_1.sq; +#line 22379 "" + i__4[5] = 11, a__2[5] = "makeatother"; +#line 22379 "" + s_cat(ch__9, a__2, i__4, &c__6, (ftnlen)35); +#line 22379 "" + do_fio(&c__1, ch__9, (ftnlen)35); +#line 22379 "" + e_wsfe(); +#line 22381 "" + comshort_1.ishort = 4; +#line 22382 "" + } else if (comshort_1.ishort == 4) { +/* End coda */ +#line 22383 "" + ntmp = combibarcnt_1.ibarcnt - ibarcnt0 - + comshort_1.nmbr + comshort_1.mbrsum; +#line 22384 "" + if (ntmp <= 9) { +#line 22385 "" + *(unsigned char *)shortfraq = (char) (ntmp + + 48); +#line 22386 "" + lntmp = 1; +#line 22387 "" + } else { +#line 22388 "" + s_wsfi(&io___1529); +#line 22388 "" + do_fio(&c__1, (char *)&ntmp, (ftnlen)sizeof( + integer)); +#line 22388 "" + e_wsfi(); +#line 22389 "" + lntmp = 2; +#line 22390 "" + } +#line 22391 "" + s_wsfe(&io___1530); +/* Writing concatenation */ +#line 22391 "" + i__15[0] = 1, a__11[0] = all_1.sq; +#line 22391 "" + i__15[1] = 10, a__11[1] = "endpiece}}"; +#line 22391 "" + i__15[2] = 1, a__11[2] = all_1.sq; +#line 22391 "" + i__15[3] = 7, a__11[3] = "advance"; +#line 22391 "" + i__15[4] = 1, a__11[4] = all_1.sq; +#line 22391 "" + i__15[5] = 5, a__11[5] = "barno"; +#line 22391 "" + i__15[6] = lntmp, a__11[6] = shortfraq; +#line 22391 "" + s_cat(ch__31, a__11, i__15, &c__7, (ftnlen)28); +#line 22391 "" + do_fio(&c__1, ch__31, lntmp + 25); +#line 22391 "" + e_wsfe(); +#line 22393 "" + s_wsfe(&io___1531); +/* Writing concatenation */ +#line 22393 "" + i__6[0] = 1, a__4[0] = all_1.sq; +#line 22393 "" + i__6[1] = 9, a__4[1] = "contpiece"; +#line 22393 "" + s_cat(ch__20, a__4, i__6, &c__2, (ftnlen)10); +#line 22393 "" + do_fio(&c__1, ch__20, (ftnlen)10); +#line 22393 "" + e_wsfe(); +#line 22394 "" + s_wsfe(&io___1532); +/* Writing concatenation */ +#line 22394 "" + i__4[0] = 1, a__2[0] = all_1.sq; +#line 22394 "" + i__4[1] = 12, a__2[1] = "makeatletter"; +#line 22394 "" + i__4[2] = 1, a__2[2] = all_1.sq; +#line 22394 "" + i__4[3] = 9, a__2[3] = "fil@begin"; +#line 22394 "" + i__4[4] = 1, a__2[4] = all_1.sq; +#line 22394 "" + i__4[5] = 11, a__2[5] = "makeatother"; +#line 22394 "" + s_cat(ch__9, a__2, i__4, &c__6, (ftnlen)35); +#line 22394 "" + do_fio(&c__1, ch__9, (ftnlen)35); +#line 22394 "" + e_wsfe(); +#line 22396 "" + comshort_1.ishort = 0; +#line 22397 "" + comshort_1.mbrsum = 0; +#line 22398 "" + comshort_1.nmbr = 0; +#line 22399 "" } -#line 21830 "" - } else { +#line 22400 "" + } else if (all_1.mtrnuml != 0) { /* New meter, no new sig, end of line, not new page. */ @@ -52653,1846 +54538,2003 @@ L51: /* \zalaligne\generalmeter{\meterfrac{3}{4}}\addspace{-\afterruleskip}% */ /* \zchangecontext */ -#line 21839 "" +#line 22410 "" setmeter_(&all_1.mtrnuml, &all_1.mtrdenl, & combeam_1.ibmtyp, &ibmrep); -#line 21840 "" +#line 22411 "" if (comget_1.movbrk == 0) { -#line 21841 "" +#line 22412 "" if (comlast_1.islast) { -#line 21841 "" +#line 22413 "" wgmeter_(&all_1.mtrnmp, &all_1.mtrdnp); -#line 21841 "" +#line 22414 "" } -#line 21842 "" +#line 22415 "" if (all_1.mtrdnp > 0) { -#line 21843 "" +#line 22416 "" if (comlast_1.islast) { -#line 21844 "" - s_wsfe(&io___1470); +#line 22417 "" + s_wsfe(&io___1533); /* Writing concatenation */ -#line 21844 "" +#line 22417 "" i__3[0] = 1, a__1[0] = all_1.sq; -#line 21844 "" +#line 22417 "" i__3[1] = 3, a__1[1] = "let"; -#line 21844 "" +#line 22417 "" i__3[2] = 1, a__1[2] = all_1.sq; -#line 21844 "" +#line 22417 "" i__3[3] = 4, a__1[3] = "bnat"; -#line 21844 "" +#line 22417 "" i__3[4] = 1, a__1[4] = all_1.sq; -#line 21844 "" +#line 22417 "" i__3[5] = 8, a__1[5] = "barnoadd"; -#line 21844 "" +#line 22417 "" i__3[6] = 1, a__1[6] = all_1.sq; -#line 21844 "" +#line 22417 "" i__3[7] = 3, a__1[7] = "def"; -#line 21844 "" +#line 22417 "" i__3[8] = 1, a__1[8] = all_1.sq; -#line 21844 "" +#line 22417 "" i__3[9] = 9, a__1[9] = "barnoadd{"; -#line 21844 "" +#line 22417 "" i__3[10] = 1, a__1[10] = all_1.sq; -#line 21844 "" +#line 22417 "" i__3[11] = 7, a__1[11] = "empty}%"; -#line 21844 "" - s_cat(ch__32, a__1, i__3, &c__12, (ftnlen) +#line 22417 "" + s_cat(ch__23, a__1, i__3, &c__12, (ftnlen) 40); -#line 21844 "" - do_fio(&c__1, ch__32, (ftnlen)40); -#line 21844 "" +#line 22417 "" + do_fio(&c__1, ch__23, (ftnlen)40); +#line 22417 "" e_wsfe(); -#line 21847 "" - s_wsfe(&io___1471); +#line 22420 "" + s_wsfe(&io___1534); /* Writing concatenation */ -#line 21847 "" - i__15[0] = 1, a__11[0] = all_1.sq; -#line 21847 "" - i__15[1] = 14, a__11[1] = "xchangecontext" +#line 22420 "" + i__17[0] = 1, a__13[0] = all_1.sq; +#line 22420 "" + i__17[1] = 14, a__13[1] = "xchangecontext" ; -#line 21847 "" - i__15[2] = 1, a__11[2] = all_1.sq; -#line 21847 "" - i__15[3] = 10, a__11[3] = "addspace{-"; -#line 21847 "" - i__15[4] = 1, a__11[4] = all_1.sq; -#line 21847 "" - i__15[5] = 14, a__11[5] = "afterruleskip}" +#line 22420 "" + i__17[2] = 1, a__13[2] = all_1.sq; +#line 22420 "" + i__17[3] = 10, a__13[3] = "addspace{-"; +#line 22420 "" + i__17[4] = 1, a__13[4] = all_1.sq; +#line 22420 "" + i__17[5] = 14, a__13[5] = "afterruleskip}" ; -#line 21847 "" - i__15[6] = 1, a__11[6] = all_1.sq; -#line 21847 "" - i__15[7] = 9, a__11[7] = "zalaligne"; -#line 21847 "" - i__15[8] = 1, a__11[8] = all_1.sq; -#line 21847 "" - i__15[9] = 3, a__11[9] = "let"; -#line 21847 "" - i__15[10] = 1, a__11[10] = all_1.sq; -#line 21847 "" - i__15[11] = 8, a__11[11] = "barnoadd"; -#line 21847 "" - i__15[12] = 1, a__11[12] = all_1.sq; -#line 21847 "" - i__15[13] = 4, a__11[13] = "bnat"; -#line 21847 "" - s_cat(ch__33, a__11, i__15, &c__14, ( +#line 22420 "" + i__17[6] = 1, a__13[6] = all_1.sq; +#line 22420 "" + i__17[7] = 9, a__13[7] = "zalaligne"; +#line 22420 "" + i__17[8] = 1, a__13[8] = all_1.sq; +#line 22420 "" + i__17[9] = 3, a__13[9] = "let"; +#line 22420 "" + i__17[10] = 1, a__13[10] = all_1.sq; +#line 22420 "" + i__17[11] = 8, a__13[11] = "barnoadd"; +#line 22420 "" + i__17[12] = 1, a__13[12] = all_1.sq; +#line 22420 "" + i__17[13] = 4, a__13[13] = "bnat"; +#line 22420 "" + s_cat(ch__37, a__13, i__17, &c__14, ( ftnlen)69); -#line 21847 "" - do_fio(&c__1, ch__33, (ftnlen)69); -#line 21847 "" +#line 22420 "" + do_fio(&c__1, ch__37, (ftnlen)69); +#line 22420 "" e_wsfe(); -#line 21850 "" +#line 22423 "" wgmeter_(&all_1.mtrnmp, &all_1.mtrdnp); -#line 21851 "" - s_wsfe(&io___1472); +#line 22424 "" + s_wsfe(&io___1535); /* Writing concatenation */ -#line 21851 "" +#line 22424 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 21851 "" +#line 22424 "" i__4[1] = 10, a__2[1] = "addspace{-"; -#line 21851 "" +#line 22424 "" i__4[2] = 1, a__2[2] = all_1.sq; -#line 21851 "" +#line 22424 "" i__4[3] = 14, a__2[3] = "afterruleskip}"; -#line 21851 "" +#line 22424 "" i__4[4] = 1, a__2[4] = all_1.sq; -#line 21851 "" +#line 22424 "" i__4[5] = 14, a__2[5] = "zchangecontext"; -#line 21851 "" - s_cat(ch__34, a__2, i__4, &c__6, (ftnlen) +#line 22424 "" + s_cat(ch__38, a__2, i__4, &c__6, (ftnlen) 41); -#line 21851 "" - do_fio(&c__1, ch__34, (ftnlen)41); -#line 21851 "" +#line 22424 "" + do_fio(&c__1, ch__38, (ftnlen)41); +#line 22424 "" e_wsfe(); -#line 21853 "" +#line 22426 "" } -#line 21854 "" +#line 22427 "" if (all_1.ibar == comgrace_1.ibarmbr) { -#line 21854 "" +#line 22427 "" comgrace_1.xb4mbr = all_1.musicsize * -.2f; -#line 21854 "" +#line 22427 "" } -#line 21855 "" +#line 22428 "" } else { -#line 21856 "" +#line 22429 "" if (comlast_1.islast) { -#line 21856 "" - s_wsfe(&io___1473); +#line 22429 "" + s_wsfe(&io___1536); /* Writing concatenation */ -#line 21856 "" +#line 22429 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21856 "" +#line 22429 "" i__6[1] = 8, a__4[1] = "alaligne"; -#line 21856 "" +#line 22429 "" s_cat(ch__18, a__4, i__6, &c__2, (ftnlen) 9); -#line 21856 "" +#line 22429 "" do_fio(&c__1, ch__18, (ftnlen)9); -#line 21856 "" +#line 22429 "" e_wsfe(); -#line 21856 "" +#line 22429 "" } -#line 21857 "" +#line 22430 "" } -#line 21858 "" +#line 22431 "" } else { -#line 21859 "" +#line 22432 "" if (comlast_1.islast) { -#line 21859 "" - s_wsfe(&io___1474); +#line 22432 "" + s_wsfe(&io___1537); /* Writing concatenation */ -#line 21859 "" +#line 22432 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21859 "" +#line 22432 "" i__6[1] = 8, a__4[1] = "alaligne"; -#line 21859 "" +#line 22432 "" s_cat(ch__18, a__4, i__6, &c__2, (ftnlen)9); -#line 21859 "" +#line 22432 "" do_fio(&c__1, ch__18, (ftnlen)9); -#line 21859 "" +#line 22432 "" e_wsfe(); -#line 21859 "" +#line 22432 "" } -#line 21860 "" +#line 22433 "" } -#line 21861 "" +#line 22434 "" } -#line 21862 "" +#line 22435 "" } /* Modified 090525 to use \bnrs */ -#line 21866 "" +#line 22439 "" if (slint) { -#line 21867 "" +#line 22440 "" slint = FALSE_; -#line 21868 "" +#line 22441 "" if (comlast_1.islast) { -#line 21868 "" - s_wsfe(&io___1475); +#line 22441 "" + s_wsfe(&io___1538); /* Writing concatenation */ -#line 21868 "" +#line 22441 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 21868 "" +#line 22441 "" i__5[1] = 3, a__3[1] = "def"; -#line 21868 "" +#line 22441 "" i__5[2] = 1, a__3[2] = all_1.sq; -#line 21868 "" +#line 22441 "" i__5[3] = 11, a__3[3] = "raisebarno{"; -#line 21868 "" +#line 22441 "" s_cat(ch__22, a__3, i__5, &c__4, (ftnlen)16); -#line 21868 "" +#line 22441 "" do_fio(&c__1, ch__22, (ftnlen)16); -#line 21868 "" +#line 22441 "" do_fio(&c__1, (char *)&comsln_1.irzbnd, (ftnlen) sizeof(integer)); /* Writing concatenation */ -#line 21868 "" +#line 22441 "" i__8[0] = 2, a__5[0] = ".5"; -#line 21868 "" +#line 22441 "" i__8[1] = 1, a__5[1] = all_1.sq; -#line 21868 "" +#line 22441 "" i__8[2] = 11, a__5[2] = "internote}%"; -#line 21868 "" +#line 22441 "" s_cat(ch__10, a__5, i__8, &c__3, (ftnlen)14); -#line 21868 "" +#line 22441 "" do_fio(&c__1, ch__10, (ftnlen)14); -#line 21868 "" +#line 22441 "" e_wsfe(); -#line 21868 "" +#line 22441 "" } -#line 21870 "" +#line 22443 "" } -#line 21871 "" +#line 22444 "" comget_1.movbrk = 0; -#line 21872 "" +#line 22445 "" } /* Clean up if we squelched bar number reset at movement break */ -#line 21876 "" +#line 22449 "" if (comnotes_1.nobar1) { -#line 21877 "" +#line 22450 "" if (comlast_1.islast) { -#line 21877 "" - s_wsfe(&io___1476); +#line 22450 "" + s_wsfe(&io___1539); /* Writing concatenation */ -#line 21877 "" +#line 22450 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21877 "" +#line 22450 "" i__6[1] = 11, a__4[1] = "startbarno1"; -#line 21877 "" +#line 22450 "" s_cat(ch__14, a__4, i__6, &c__2, (ftnlen)12); -#line 21877 "" +#line 22450 "" do_fio(&c__1, ch__14, (ftnlen)12); -#line 21877 "" +#line 22450 "" e_wsfe(); -#line 21877 "" +#line 22450 "" } -#line 21878 "" +#line 22451 "" comnotes_1.nobar1 = FALSE_; -#line 21879 "" +#line 22452 "" } -#line 21880 "" - i__7 = s_rsle(&io___1477); -#line 21880 "" +#line 22453 "" + i__7 = s_rsle(&io___1540); +#line 22453 "" if (i__7 != 0) { -#line 21880 "" +#line 22453 "" goto L14; -#line 21880 "" +#line 22453 "" } -#line 21880 "" +#line 22453 "" i__7 = do_lio(&c__3, &c__1, (char *)&iauto, (ftnlen)sizeof( integer)); -#line 21880 "" +#line 22453 "" if (i__7 != 0) { -#line 21880 "" +#line 22453 "" goto L14; -#line 21880 "" +#line 22453 "" } -#line 21880 "" +#line 22453 "" i__7 = e_rsle(); -#line 21880 "" +#line 22453 "" if (i__7 != 0) { -#line 21880 "" +#line 22453 "" goto L14; -#line 21880 "" +#line 22453 "" } -#line 21881 "" +#line 22454 "" L14: /* We come thru here for the 1st bar of every system, so initialize is1n1 */ -#line 21885 "" +#line 22458 "" comsln_1.is1n1 = 0; /* Brought down from above */ -#line 21889 "" +#line 22462 "" if (isystpg == comnotes_1.nsystp[comnotes_1.ipage - 1]) { -#line 21889 "" +#line 22463 "" isystpg = 0; -#line 21889 "" + +/* The following is to avoid moving this reset of isystpg, but still send a signal */ +/* down below for last system shortening events */ + +#line 22468 "" + if (comshort_1.ishort == 2) { +#line 22468 "" + iflagbot = 1; +#line 22468 "" + } +#line 22469 "" } /* Check for linebreak ties */ -#line 21893 "" +#line 22473 "" if (ispstie) { -#line 21893 "" +#line 22473 "" linebreakties_(all_1.isdat1, all_1.isdat2, all_1.isdat3, all_1.isdat4, &all_1.nsdat, &ispstie, all_1.sepsymq, ( ftnlen)1); -#line 21893 "" +#line 22473 "" } -#line 21896 "" +#line 22476 "" } else { /* Not first bar of system */ -#line 21900 "" +#line 22480 "" if (bit_test(iplnow,28)) { /* Signature change */ -#line 21904 "" +#line 22484 "" if (all_1.mtrnuml != 0) { /* Meter+signature change mid line, assume no movement break */ -#line 21908 "" +#line 22488 "" setmeter_(&all_1.mtrnuml, &all_1.mtrdenl, & combeam_1.ibmtyp, &ibmrep); -#line 21909 "" +#line 22489 "" if (comlast_1.islast) { -#line 21909 "" +#line 22489 "" wgmeter_(&all_1.mtrnmp, &all_1.mtrdnp); -#line 21909 "" +#line 22489 "" } /* Writing concatenation */ -#line 21910 "" +#line 22490 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21910 "" +#line 22490 "" i__6[1] = 17, a__4[1] = "generalsignature{"; -#line 21910 "" +#line 22490 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 21911 "" +#line 22491 "" lnote = 18; -#line 21912 "" +#line 22492 "" if (comtop_1.isig < 0) { /* Writing concatenation */ -#line 21913 "" +#line 22493 "" i__6[0] = 18, a__4[0] = notexq; -#line 21913 "" +#line 22493 "" i__6[1] = 1, a__4[1] = "-"; -#line 21913 "" +#line 22493 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 21914 "" +#line 22494 "" lnote = 19; -#line 21915 "" +#line 22495 "" } -#line 21916 "" +#line 22496 "" if (comlast_1.islast) { -#line 21917 "" +#line 22497 "" iptemp = abs(comtop_1.isig) + 48; -#line 21918 "" +#line 22498 "" chax_(ch__1, (ftnlen)1, &iptemp); -#line 21918 "" +#line 22498 "" *(unsigned char *)charq = *(unsigned char *)&ch__1[0]; /* Writing concatenation */ -#line 21919 "" +#line 22499 "" i__8[0] = lnote, a__5[0] = notexq; -#line 21919 "" +#line 22499 "" i__8[1] = 1, a__5[1] = charq; -#line 21919 "" +#line 22499 "" i__8[2] = 2, a__5[2] = "}%"; -#line 21919 "" +#line 22499 "" s_cat(notexq, a__5, i__8, &c__3, (ftnlen)79); -#line 21920 "" +#line 22500 "" lnote += 3; -#line 21921 "" - s_wsfe(&io___1480); -#line 21921 "" +#line 22501 "" + s_wsfe(&io___1543); +#line 22501 "" do_fio(&c__1, notexq, lnote); -#line 21921 "" +#line 22501 "" e_wsfe(); -#line 21922 "" +#line 22502 "" if (comlast_1.islast && cominsttrans_1.laterinsttrans) { -#line 21923 "" +#line 22503 "" writesetsign_(&cominsttrans_1.ninsttrans, cominsttrans_1.iinsttrans, cominsttrans_1.itranskey, & cominsttrans_1.laterinsttrans); -#line 21925 "" +#line 22505 "" } -#line 21926 "" +#line 22506 "" if (comignorenats_1.ignorenats) { -#line 21926 "" - s_wsfe(&io___1481); +#line 22506 "" + s_wsfe(&io___1544); /* Writing concatenation */ -#line 21926 "" +#line 22506 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21926 "" +#line 22506 "" i__6[1] = 11, a__4[1] = "ignorenats%"; -#line 21926 "" +#line 22506 "" s_cat(ch__14, a__4, i__6, &c__2, (ftnlen)12); -#line 21926 "" +#line 22506 "" do_fio(&c__1, ch__14, (ftnlen)12); -#line 21926 "" +#line 22506 "" e_wsfe(); -#line 21926 "" +#line 22506 "" } -#line 21927 "" - s_wsfe(&io___1482); +#line 22507 "" + s_wsfe(&io___1545); /* Writing concatenation */ -#line 21927 "" +#line 22507 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21927 "" +#line 22507 "" i__6[1] = 15, a__4[1] = "xchangecontext%"; -#line 21927 "" +#line 22507 "" s_cat(ch__22, a__4, i__6, &c__2, (ftnlen)16); -#line 21927 "" +#line 22507 "" do_fio(&c__1, ch__22, (ftnlen)16); -#line 21927 "" +#line 22507 "" e_wsfe(); -#line 21928 "" +#line 22508 "" } -#line 21929 "" +#line 22509 "" if (all_1.ibar == comgrace_1.ibarmbr) { /* Compute space for multibar rest */ -#line 21933 "" +#line 22513 "" if (comtop_1.lastisig * comtop_1.isig >= 0) { /* Computing MAX */ -#line 21934 "" +#line 22514 "" i__7 = abs(comtop_1.lastisig), i__2 = abs( comtop_1.isig); -#line 21934 "" +#line 22514 "" naccs = max(i__7,i__2); -#line 21935 "" +#line 22515 "" } else { -#line 21936 "" +#line 22516 "" naccs = (i__7 = comtop_1.lastisig - comtop_1.isig, abs(i__7)); -#line 21937 "" +#line 22517 "" } /* xb4mbr = (facmtr+naccs*.24)*musicsize */ -#line 21939 "" +#line 22519 "" comgrace_1.xb4mbr = all_1.musicsize * -.2f; -#line 21940 "" +#line 22520 "" } -#line 21941 "" +#line 22521 "" } else { /* Signature change only */ /* Writing concatenation */ -#line 21945 "" +#line 22525 "" i__14[0] = 1, a__10[0] = all_1.sq; -#line 21945 "" +#line 22525 "" i__14[1] = 4, a__10[1] = "xbar"; -#line 21945 "" +#line 22525 "" i__14[2] = 1, a__10[2] = all_1.sq; -#line 21945 "" +#line 22525 "" i__14[3] = 10, a__10[3] = "addspace{-"; -#line 21945 "" +#line 22525 "" i__14[4] = 1, a__10[4] = all_1.sq; -#line 21945 "" +#line 22525 "" i__14[5] = 14, a__10[5] = "afterruleskip}"; -#line 21945 "" +#line 22525 "" i__14[6] = 1, a__10[6] = all_1.sq; -#line 21945 "" +#line 22525 "" i__14[7] = 17, a__10[7] = "generalsignature{"; -#line 21945 "" +#line 22525 "" s_cat(notexq, a__10, i__14, &c__8, (ftnlen)79); -#line 21947 "" +#line 22527 "" lnote = 49; -#line 21948 "" +#line 22528 "" if (comtop_1.isig < 0) { /* Writing concatenation */ -#line 21949 "" +#line 22529 "" i__6[0] = 49, a__4[0] = notexq; -#line 21949 "" +#line 22529 "" i__6[1] = 1, a__4[1] = "-"; -#line 21949 "" +#line 22529 "" s_cat(notexq, a__4, i__6, &c__2, (ftnlen)79); -#line 21950 "" +#line 22530 "" lnote = 50; -#line 21951 "" +#line 22531 "" } -#line 21952 "" +#line 22532 "" if (comlast_1.islast) { -#line 21952 "" - s_wsfe(&io___1484); +#line 22532 "" + s_wsfe(&io___1547); /* Writing concatenation */ -#line 21952 "" +#line 22532 "" i__8[0] = lnote, a__5[0] = notexq; -#line 21952 "" +#line 22532 "" i__7 = abs(comtop_1.isig) + 48; -#line 21952 "" +#line 22532 "" chax_(ch__1, (ftnlen)1, &i__7); -#line 21952 "" +#line 22532 "" i__8[1] = 1, a__5[1] = ch__1; -#line 21952 "" +#line 22532 "" i__8[2] = 2, a__5[2] = "}%"; -#line 21952 "" - s_cat(ch__25, a__5, i__8, &c__3, (ftnlen)82); -#line 21952 "" - do_fio(&c__1, ch__25, lnote + 3); -#line 21952 "" +#line 22532 "" + s_cat(ch__27, a__5, i__8, &c__3, (ftnlen)82); +#line 22532 "" + do_fio(&c__1, ch__27, lnote + 3); +#line 22532 "" e_wsfe(); -#line 21952 "" +#line 22532 "" } -#line 21954 "" +#line 22534 "" if (comlast_1.islast && cominsttrans_1.laterinsttrans) { -#line 21955 "" +#line 22535 "" writesetsign_(&cominsttrans_1.ninsttrans, cominsttrans_1.iinsttrans, cominsttrans_1.itranskey, & cominsttrans_1.laterinsttrans); -#line 21957 "" +#line 22537 "" } -#line 21958 "" +#line 22538 "" if (comlast_1.islast && comignorenats_1.ignorenats) { -#line 21958 "" - s_wsfe(&io___1485); +#line 22538 "" + s_wsfe(&io___1548); /* Writing concatenation */ -#line 21958 "" +#line 22538 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21958 "" +#line 22538 "" i__6[1] = 11, a__4[1] = "ignorenats%"; -#line 21958 "" +#line 22538 "" s_cat(ch__14, a__4, i__6, &c__2, (ftnlen)12); -#line 21958 "" +#line 22538 "" do_fio(&c__1, ch__14, (ftnlen)12); -#line 21958 "" +#line 22538 "" e_wsfe(); -#line 21958 "" +#line 22538 "" } -#line 21960 "" +#line 22540 "" if (comlast_1.islast) { -#line 21960 "" - s_wsfe(&io___1486); +#line 22540 "" + s_wsfe(&io___1549); /* Writing concatenation */ -#line 21960 "" +#line 22540 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 21960 "" +#line 22540 "" i__4[1] = 14, a__2[1] = "zchangecontext"; -#line 21960 "" +#line 22540 "" i__4[2] = 1, a__2[2] = all_1.sq; -#line 21960 "" +#line 22540 "" i__4[3] = 12, a__2[3] = "addspace{-.5"; -#line 21960 "" +#line 22540 "" i__4[4] = 1, a__2[4] = all_1.sq; -#line 21960 "" +#line 22540 "" i__4[5] = 15, a__2[5] = "afterruleskip}%"; -#line 21960 "" - s_cat(ch__35, a__2, i__4, &c__6, (ftnlen)44); -#line 21960 "" - do_fio(&c__1, ch__35, (ftnlen)44); -#line 21960 "" +#line 22540 "" + s_cat(ch__39, a__2, i__4, &c__6, (ftnlen)44); +#line 22540 "" + do_fio(&c__1, ch__39, (ftnlen)44); +#line 22540 "" e_wsfe(); -#line 21960 "" +#line 22540 "" } -#line 21962 "" +#line 22542 "" if (all_1.ibar == comgrace_1.ibarmbr) { /* Compute space for multibar rest */ -#line 21966 "" +#line 22546 "" if (comtop_1.lastisig * comtop_1.isig >= 0) { /* Computing MAX */ -#line 21967 "" +#line 22547 "" i__7 = abs(comtop_1.lastisig), i__2 = abs( comtop_1.isig); -#line 21967 "" +#line 22547 "" naccs = max(i__7,i__2); -#line 21968 "" +#line 22548 "" } else { -#line 21969 "" +#line 22549 "" naccs = (i__7 = comtop_1.lastisig - comtop_1.isig, abs(i__7)); -#line 21970 "" +#line 22550 "" } /* xb4mbr = naccs*.24*musicsize */ -#line 21972 "" +#line 22552 "" comgrace_1.xb4mbr = all_1.musicsize * -.2f; -#line 21973 "" +#line 22553 "" } -#line 21974 "" +#line 22554 "" } -#line 21975 "" +#line 22555 "" + } else if (comshort_1.ishort == 3) { + +/* Gap before coda, assumed no signature change! */ + +#line 22559 "" + ntmp = combibarcnt_1.ibarcnt - ibarcnt0 - comshort_1.nmbr + + comshort_1.mbrsum; +#line 22560 "" + if (ntmp <= 9) { +#line 22561 "" + *(unsigned char *)shortfraq = (char) (ntmp + 48); +#line 22562 "" + lntmp = 1; +#line 22563 "" + } else { +#line 22564 "" + s_wsfi(&io___1550); +#line 22564 "" + do_fio(&c__1, (char *)&ntmp, (ftnlen)sizeof(integer)); +#line 22564 "" + e_wsfi(); +#line 22565 "" + lntmp = 2; +#line 22566 "" + } +#line 22567 "" + s_wsfe(&io___1551); +/* Writing concatenation */ +#line 22567 "" + i__15[0] = 1, a__11[0] = all_1.sq; +#line 22567 "" + i__15[1] = 9, a__11[1] = "endpiece}"; +#line 22567 "" + i__15[2] = 1, a__11[2] = all_1.sq; +#line 22567 "" + i__15[3] = 7, a__11[3] = "advance"; +#line 22567 "" + i__15[4] = 1, a__11[4] = all_1.sq; +#line 22567 "" + i__15[5] = 5, a__11[5] = "barno"; +#line 22567 "" + i__15[6] = lntmp, a__11[6] = shortfraq; +#line 22567 "" + s_cat(ch__5, a__11, i__15, &c__7, (ftnlen)27); +#line 22567 "" + do_fio(&c__1, ch__5, lntmp + 24); +#line 22567 "" + e_wsfe(); +#line 22569 "" + if (comshort_1.nocodabn) { +#line 22570 "" + s_wsfe(&io___1552); +/* Writing concatenation */ +#line 22570 "" + i__6[0] = 1, a__4[0] = all_1.sq; +#line 22570 "" + i__6[1] = 7, a__4[1] = "nobarno"; +#line 22570 "" + s_cat(ch__8, a__4, i__6, &c__2, (ftnlen)8); +#line 22570 "" + do_fio(&c__1, ch__8, (ftnlen)8); +#line 22570 "" + e_wsfe(); +#line 22571 "" + comshort_1.nocodabn = FALSE_; +#line 22572 "" + } +#line 22573 "" + s_wsfi(&io___1553); +#line 22573 "" + do_fio(&c__1, (char *)&comshort_1.codafrac, (ftnlen)sizeof( + real)); +#line 22573 "" + e_wsfi(); +#line 22574 "" + s_wsfe(&io___1554); +/* Writing concatenation */ +#line 22574 "" + i__10[0] = 1, a__7[0] = all_1.sq; +#line 22574 "" + i__10[1] = 5, a__7[1] = "hfill"; +#line 22574 "" + i__10[2] = 1, a__7[2] = all_1.sq; +#line 22574 "" + i__10[3] = 5, a__7[3] = "vbox{"; +#line 22574 "" + i__10[4] = 1, a__7[4] = all_1.sq; +#line 22574 "" + i__10[5] = 6, a__7[5] = "hsize="; +#line 22574 "" + i__10[6] = 3, a__7[6] = shortfraq; +#line 22574 "" + i__10[7] = 1, a__7[7] = all_1.sq; +#line 22574 "" + i__10[8] = 6, a__7[8] = "hsize%"; +#line 22574 "" + s_cat(ch__7, a__7, i__10, &c__9, (ftnlen)29); +#line 22574 "" + do_fio(&c__1, ch__7, (ftnlen)29); +#line 22574 "" + e_wsfe(); +#line 22576 "" + s_wsfe(&io___1555); +/* Writing concatenation */ +#line 22576 "" + i__6[0] = 1, a__4[0] = all_1.sq; +#line 22576 "" + i__6[1] = 9, a__4[1] = "contpiece"; +#line 22576 "" + s_cat(ch__20, a__4, i__6, &c__2, (ftnlen)10); +#line 22576 "" + do_fio(&c__1, ch__20, (ftnlen)10); +#line 22576 "" + e_wsfe(); +#line 22577 "" + s_wsfe(&io___1556); +/* Writing concatenation */ +#line 22577 "" + i__4[0] = 1, a__2[0] = all_1.sq; +#line 22577 "" + i__4[1] = 12, a__2[1] = "makeatletter"; +#line 22577 "" + i__4[2] = 1, a__2[2] = all_1.sq; +#line 22577 "" + i__4[3] = 9, a__2[3] = "fil@begin"; +#line 22577 "" + i__4[4] = 1, a__2[4] = all_1.sq; +#line 22577 "" + i__4[5] = 11, a__2[5] = "makeatother"; +#line 22577 "" + s_cat(ch__9, a__2, i__4, &c__6, (ftnlen)35); +#line 22577 "" + do_fio(&c__1, ch__9, (ftnlen)35); +#line 22577 "" + e_wsfe(); +#line 22579 "" + comshort_1.ishort = 4; +#line 22580 "" } else if (all_1.mtrnuml == 0) { /* No meter change */ -#line 21979 "" +#line 22584 "" if (comlast_1.islast) { -#line 21979 "" - s_wsfe(&io___1487); +#line 22584 "" + s_wsfe(&io___1557); /* Writing concatenation */ -#line 21979 "" +#line 22584 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21979 "" +#line 22584 "" i__6[1] = 4, a__4[1] = "xbar"; -#line 21979 "" - s_cat(ch__36, a__4, i__6, &c__2, (ftnlen)5); -#line 21979 "" - do_fio(&c__1, ch__36, (ftnlen)5); -#line 21979 "" +#line 22584 "" + s_cat(ch__40, a__4, i__6, &c__2, (ftnlen)5); +#line 22584 "" + do_fio(&c__1, ch__40, (ftnlen)5); +#line 22584 "" e_wsfe(); -#line 21979 "" +#line 22584 "" } -#line 21980 "" +#line 22585 "" } else { /* Change meter midline */ -#line 21984 "" +#line 22589 "" setmeter_(&all_1.mtrnuml, &all_1.mtrdenl, &combeam_1.ibmtyp, & ibmrep); -#line 21985 "" +#line 22590 "" if (comget_1.movbrk == 0) { -#line 21986 "" +#line 22591 "" if (comlast_1.islast) { -#line 21986 "" +#line 22592 "" wgmeter_(&all_1.mtrnmp, &all_1.mtrdnp); -#line 21986 "" +#line 22593 "" } -#line 21987 "" +#line 22594 "" if (all_1.mtrdnp > 0) { -#line 21988 "" +#line 22595 "" if (comlast_1.islast) { -/* if (mbrest .gt. 0) then */ -/* c write(11,'(a)')sq//'addspace{-2'//sq// */ -/* c * 'afterruleskip}'//sq//'setemptybar'//sq//'bar' */ -/* write(11,'(a)')sq//'setemptybar'//sq//'bar'//sq// */ -/* * 'advance'//sq//'barno-1%' */ -/* end if */ -#line 21995 "" - s_wsfe(&io___1488); +#line 22596 "" + s_wsfe(&io___1558); /* Writing concatenation */ -#line 21995 "" +#line 22596 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 21995 "" +#line 22596 "" i__6[1] = 10, a__4[1] = "newtimes0%"; -#line 21995 "" +#line 22596 "" s_cat(ch__15, a__4, i__6, &c__2, (ftnlen)11); -#line 21995 "" +#line 22596 "" do_fio(&c__1, ch__15, (ftnlen)11); -#line 21995 "" +#line 22596 "" e_wsfe(); -#line 21996 "" +#line 22597 "" } /* if (ibar .eq. ibarmbr) xb4mbr = facmtr*musicsize */ -#line 21998 "" +#line 22599 "" if (all_1.ibar == comgrace_1.ibarmbr) { -#line 21998 "" +#line 22599 "" comgrace_1.xb4mbr = all_1.musicsize * -.2f; -#line 21998 "" +#line 22599 "" } -#line 21999 "" +#line 22600 "" } else { -#line 22000 "" +#line 22601 "" if (comlast_1.islast) { -#line 22000 "" - s_wsfe(&io___1489); +#line 22601 "" + s_wsfe(&io___1559); /* Writing concatenation */ -#line 22000 "" +#line 22601 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 22000 "" +#line 22601 "" i__6[1] = 4, a__4[1] = "xbar"; -#line 22000 "" - s_cat(ch__36, a__4, i__6, &c__2, (ftnlen)5); -#line 22000 "" - do_fio(&c__1, ch__36, (ftnlen)5); -#line 22000 "" +#line 22601 "" + s_cat(ch__40, a__4, i__6, &c__2, (ftnlen)5); +#line 22601 "" + do_fio(&c__1, ch__40, (ftnlen)5); +#line 22601 "" e_wsfe(); -#line 22000 "" +#line 22601 "" } -#line 22001 "" +#line 22602 "" } -#line 22002 "" +#line 22603 "" } -#line 22003 "" +#line 22604 "" } -#line 22004 "" +#line 22605 "" } /* Now that xbar's are written, can put in left-repeats at line beginnings */ -#line 22008 "" +#line 22609 "" if (lrptpend) { -#line 22009 "" +#line 22610 "" if (comlast_1.islast) { -#line 22009 "" - s_wsfe(&io___1490); +#line 22610 "" + s_wsfe(&io___1560); /* Writing concatenation */ -#line 22009 "" +#line 22610 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 22009 "" +#line 22610 "" i__4[1] = 7, a__2[1] = "advance"; -#line 22009 "" +#line 22610 "" i__4[2] = 1, a__2[2] = all_1.sq; -#line 22009 "" +#line 22610 "" i__4[3] = 7, a__2[3] = "barno-1"; -#line 22009 "" +#line 22610 "" i__4[4] = 1, a__2[4] = all_1.sq; -#line 22009 "" +#line 22610 "" i__4[5] = 10, a__2[5] = "leftrepeat"; -#line 22009 "" +#line 22610 "" s_cat(ch__5, a__2, i__4, &c__6, (ftnlen)27); -#line 22009 "" +#line 22610 "" do_fio(&c__1, ch__5, (ftnlen)27); -#line 22009 "" +#line 22610 "" e_wsfe(); -#line 22009 "" +#line 22610 "" } -#line 22011 "" +#line 22612 "" lrptpend = FALSE_; -#line 22012 "" +#line 22613 "" } -#line 22013 "" +#line 22614 "" if (all_1.ibar > 1) { /* For bars after first, slide all stuff down to beginning of arrays */ -#line 22017 "" +#line 22618 "" i__7 = all_1.nv; -#line 22017 "" +#line 22618 "" for (all_1.iv = 1; all_1.iv <= i__7; ++all_1.iv) { -#line 22018 "" +#line 22619 "" i__2 = commvl_1.nvmx[all_1.iv - 1]; -#line 22018 "" +#line 22619 "" for (kv = 1; kv <= i__2; ++kv) { -#line 22019 "" +#line 22620 "" commvl_1.ivx = commvl_1.ivmx[all_1.iv + kv * 24 - 25]; -#line 22020 "" +#line 22621 "" ioff = all_1.nib[commvl_1.ivx + (all_1.ibar - 1) * 24 - 25]; -#line 22021 "" +#line 22622 "" i__13 = all_1.nib[commvl_1.ivx + all_1.ibar * 24 - 25] - ioff; -#line 22021 "" +#line 22622 "" for (ip = 1; ip <= i__13; ++ip) { -#line 22022 "" +#line 22623 "" all_1.nolev[commvl_1.ivx + ip * 24 - 25] = all_1.nolev[commvl_1.ivx + (ip + ioff) * 24 - 25]; -#line 22023 "" +#line 22624 "" all_1.nodur[commvl_1.ivx + ip * 24 - 25] = all_1.nodur[commvl_1.ivx + (ip + ioff) * 24 - 25]; -#line 22024 "" +#line 22625 "" all_1.nacc[commvl_1.ivx + ip * 24 - 25] = all_1.nacc[ commvl_1.ivx + (ip + ioff) * 24 - 25]; -#line 22025 "" +#line 22626 "" all_1.irest[commvl_1.ivx + ip * 24 - 25] = all_1.irest[commvl_1.ivx + (ip + ioff) * 24 - 25]; -#line 22026 "" +#line 22627 "" all_1.islur[commvl_1.ivx + ip * 24 - 25] = all_1.islur[commvl_1.ivx + (ip + ioff) * 24 - 25]; -#line 22027 "" +#line 22628 "" all_1.ipl[commvl_1.ivx + ip * 24 - 25] = all_1.ipl[ commvl_1.ivx + (ip + ioff) * 24 - 25]; -#line 22028 "" +#line 22629 "" all_1.iornq[commvl_1.ivx + ip * 24 - 1] = all_1.iornq[ commvl_1.ivx + (ip + ioff) * 24 - 1]; -#line 22029 "" +#line 22630 "" all_1.mult[commvl_1.ivx + ip * 24 - 25] = all_1.mult[ commvl_1.ivx + (ip + ioff) * 24 - 25]; -#line 22030 "" +#line 22631 "" if (all_1.figbass && commvl_1.ivx == 1 || commvl_1.ivx == comfig_1.ivxfig2) { -#line 22031 "" +#line 22632 "" if (commvl_1.ivx == 1) { -#line 22032 "" +#line 22633 "" all_1.isfig[(ip << 1) - 2] = all_1.isfig[(ip + ioff << 1) - 2]; -#line 22033 "" +#line 22634 "" } else { -#line 22034 "" +#line 22635 "" all_1.isfig[(ip << 1) - 1] = all_1.isfig[(ip + ioff << 1) - 1]; -#line 22035 "" +#line 22636 "" } -#line 22036 "" +#line 22637 "" } -#line 22037 "" +#line 22638 "" /* L12: */ -#line 22037 "" +#line 22638 "" } -#line 22038 "" +#line 22639 "" if (commvl_1.ivx <= all_1.nv && comcc_1.ncc[all_1.iv - 1] > 1) { -#line 22039 "" +#line 22640 "" islide = 0; -#line 22040 "" +#line 22641 "" i__13 = comcc_1.ncc[all_1.iv - 1]; -#line 22040 "" +#line 22641 "" for (icc = 1; icc <= i__13; ++icc) { -#line 22041 "" +#line 22642 "" if (comcc_1.tcc[all_1.iv + icc * 24 - 25] <= ( real) all_1.lenbar) { /* This time will drop <=0 when slid. */ -#line 22045 "" +#line 22646 "" islide = icc - 1; -#line 22046 "" +#line 22647 "" comcc_1.ncmidcc[all_1.iv - 1] = comcc_1.ncmidcc[all_1.iv + icc * 24 - 25]; -#line 22047 "" +#line 22648 "" } else { -#line 22048 "" +#line 22649 "" comcc_1.tcc[all_1.iv + (icc - islide) * 24 - 25] = comcc_1.tcc[all_1.iv + icc * 24 - 25] - all_1.lenbar; -#line 22049 "" +#line 22650 "" comcc_1.ncmidcc[all_1.iv + (icc - islide) * 24 - 25] = comcc_1.ncmidcc[all_1.iv + icc * 24 - 25]; -#line 22050 "" +#line 22651 "" } -#line 22051 "" +#line 22652 "" /* L13: */ -#line 22051 "" +#line 22652 "" } -#line 22052 "" +#line 22653 "" comcc_1.ncc[all_1.iv - 1] -= islide; -#line 22053 "" +#line 22654 "" comcc_1.tcc[all_1.iv - 1] = 0.f; -#line 22054 "" +#line 22655 "" } -#line 22055 "" +#line 22656 "" /* L11: */ -#line 22055 "" +#line 22656 "" } -#line 22055 "" +#line 22656 "" } -#line 22056 "" +#line 22657 "" i__2 = comgrace_1.ngrace; -#line 22056 "" +#line 22657 "" for (ig = 1; ig <= i__2; ++ig) { -#line 22057 "" +#line 22658 "" comgrace_1.ipg[ig - 1] -= all_1.nib[comgrace_1.ivg[ig - 1] + ( all_1.ibar - 1) * 24 - 25]; -#line 22058 "" +#line 22659 "" if (all_1.ibar > 2) { -#line 22058 "" +#line 22659 "" comgrace_1.ipg[ig - 1] += all_1.nib[comgrace_1.ivg[ig - 1] + (all_1.ibar - 2) * 24 - 25]; -#line 22058 "" +#line 22659 "" } -#line 22059 "" +#line 22660 "" /* L15: */ -#line 22059 "" +#line 22660 "" } -#line 22060 "" +#line 22661 "" i__2 = comgrace_1.nlit; -#line 22060 "" +#line 22661 "" for (il = 1; il <= i__2; ++il) { -#line 22061 "" +#line 22662 "" comgrace_1.iplit[il - 1] -= all_1.nib[comgrace_1.ivlit[il - 1] + (all_1.ibar - 1) * 24 - 25]; -#line 22062 "" +#line 22663 "" if (all_1.ibar > 2) { -#line 22062 "" +#line 22663 "" comgrace_1.iplit[il - 1] += all_1.nib[comgrace_1.ivlit[il - 1] + (all_1.ibar - 2) * 24 - 25]; -#line 22062 "" +#line 22663 "" } -#line 22063 "" +#line 22664 "" /* L21: */ -#line 22063 "" +#line 22664 "" } -#line 22064 "" +#line 22665 "" i__2 = comtrill_1.ntrill; -#line 22064 "" +#line 22665 "" for (it = 1; it <= i__2; ++it) { -#line 22065 "" +#line 22666 "" comtrill_1.iptrill[it - 1] -= all_1.nib[comtrill_1.ivtrill[it - 1] + (all_1.ibar - 1) * 24 - 25]; -#line 22066 "" +#line 22667 "" if (all_1.ibar > 2) { -#line 22066 "" +#line 22667 "" comtrill_1.iptrill[it - 1] += all_1.nib[ comtrill_1.ivtrill[it - 1] + (all_1.ibar - 2) * 24 - 25]; -#line 22066 "" +#line 22667 "" } -#line 22068 "" +#line 22669 "" /* L22: */ -#line 22068 "" +#line 22669 "" } -#line 22069 "" +#line 22670 "" i__2 = comtrill_1.ncrd; -#line 22069 "" +#line 22670 "" for (icrd = 1; icrd <= i__2; ++icrd) { -#line 22070 "" +#line 22671 "" commvl_1.ivx = (15 & lbit_shift(comtrill_1.icrdat[icrd - 1], ( ftnlen)-8)) + (igetbits_(&comtrill_1.icrdat[icrd - 1], &c__1, &c__28) << 4); -#line 22072 "" +#line 22673 "" ipnew = (255 & comtrill_1.icrdat[icrd - 1]) - all_1.nib[ commvl_1.ivx + (all_1.ibar - 1) * 24 - 25]; -#line 22073 "" +#line 22674 "" if (all_1.ibar > 2) { -#line 22073 "" +#line 22674 "" ipnew += all_1.nib[commvl_1.ivx + (all_1.ibar - 2) * 24 - 25]; -#line 22073 "" +#line 22674 "" } -#line 22074 "" +#line 22675 "" comtrill_1.icrdat[icrd - 1] = -256 & comtrill_1.icrdat[icrd - 1]; -#line 22075 "" +#line 22676 "" comtrill_1.icrdat[icrd - 1] = max(0,ipnew) | comtrill_1.icrdat[icrd - 1]; -#line 22076 "" +#line 22677 "" /* L27: */ -#line 22076 "" +#line 22677 "" } -#line 22077 "" +#line 22678 "" i__2 = comtrill_1.nudorn; -#line 22077 "" +#line 22678 "" for (iudorn = 1; iudorn <= i__2; ++iudorn) { -#line 22078 "" +#line 22679 "" commvl_1.ivx = comivxudorn_1.ivxudorn[iudorn - 1]; -#line 22079 "" +#line 22680 "" ipnew = (255 & comtrill_1.kudorn[iudorn - 1]) - all_1.nib[ commvl_1.ivx + (all_1.ibar - 1) * 24 - 25]; -#line 22080 "" +#line 22681 "" if (all_1.ibar > 2) { -#line 22080 "" +#line 22681 "" ipnew += all_1.nib[commvl_1.ivx + (all_1.ibar - 2) * 24 - 25]; -#line 22080 "" +#line 22681 "" } -#line 22081 "" +#line 22682 "" comtrill_1.kudorn[iudorn - 1] = -256 & comtrill_1.kudorn[ iudorn - 1]; -#line 22082 "" +#line 22683 "" comtrill_1.kudorn[iudorn - 1] = max(0,ipnew) | comtrill_1.kudorn[iudorn - 1]; -#line 22083 "" +#line 22684 "" /* L29: */ -#line 22083 "" +#line 22684 "" } -#line 22084 "" +#line 22685 "" i__2 = comdyn_1.ndyn; -#line 22084 "" +#line 22685 "" for (idyn = 1; idyn <= i__2; ++idyn) { -#line 22085 "" +#line 22686 "" idynd = comdyn_1.idyndat[idyn - 1]; -#line 22086 "" +#line 22687 "" commvl_1.ivx = (15 & idynd) + (igetbits_(&comdyn_1.idynda2[ idyn - 1], &c__1, &c__10) << 4); -#line 22087 "" +#line 22688 "" ipnew = igetbits_(&idynd, &c__8, &c__4) - all_1.nib[ commvl_1.ivx + (all_1.ibar - 1) * 24 - 25]; /* The following construction avoids array bound errors in some compilers */ -#line 22091 "" +#line 22692 "" if (all_1.ibar > 2) { -#line 22092 "" +#line 22693 "" ipnew += all_1.nib[commvl_1.ivx + (all_1.ibar - 2) * 24 - 25]; -#line 22093 "" +#line 22694 "" } -#line 22094 "" +#line 22695 "" ipnew = i_dim(&ipnew, &c__0); -#line 22095 "" +#line 22696 "" setbits_(&idynd, &c__8, &c__4, &ipnew); -#line 22096 "" +#line 22697 "" comdyn_1.idyndat[idyn - 1] = idynd; -#line 22097 "" +#line 22698 "" /* L42: */ -#line 22097 "" +#line 22698 "" } -#line 22098 "" +#line 22699 "" i__2 = comdyn_1.ntxtdyn; -#line 22098 "" +#line 22699 "" for (itxtdyn = 1; itxtdyn <= i__2; ++itxtdyn) { -#line 22099 "" +#line 22700 "" idynd = comdyn_1.ivxiptxt[itxtdyn - 1]; -#line 22100 "" +#line 22701 "" commvl_1.ivx = 31 & idynd; -#line 22101 "" +#line 22702 "" ipnew = igetbits_(&idynd, &c__8, &c__5) - all_1.nib[ commvl_1.ivx + (all_1.ibar - 1) * 24 - 25]; -#line 22102 "" +#line 22703 "" if (all_1.ibar > 2) { -#line 22103 "" +#line 22704 "" ipnew += all_1.nib[commvl_1.ivx + (all_1.ibar - 2) * 24 - 25]; -#line 22104 "" +#line 22705 "" } -#line 22105 "" +#line 22706 "" ipnew = i_dim(&ipnew, &c__0); /* call setbits(idynd,8,4,ipnew) */ -#line 22107 "" +#line 22708 "" setbits_(&idynd, &c__8, &c__5, &ipnew); -#line 22108 "" +#line 22709 "" comdyn_1.ivxiptxt[itxtdyn - 1] = idynd; -#line 22109 "" +#line 22710 "" /* L43: */ -#line 22109 "" +#line 22710 "" } -#line 22110 "" +#line 22711 "" i__2 = all_1.nsdat; -#line 22110 "" +#line 22711 "" for (isdat = 1; isdat <= i__2; ++isdat) { -#line 22111 "" +#line 22712 "" isdata = all_1.isdat1[isdat - 1]; -#line 22112 "" +#line 22713 "" commvl_1.ivx = commvl_1.ivmx[igetbits_(&isdata, &c__5, &c__13) + (igetbits_(&isdata, &c__1, &c__12) + 1) * 24 - 25]; -#line 22113 "" +#line 22714 "" ipnew = igetbits_(&isdata, &c__8, &c__3) - all_1.nib[ commvl_1.ivx + (all_1.ibar - 1) * 24 - 25]; -#line 22114 "" +#line 22715 "" if (all_1.ibar > 2) { -#line 22115 "" +#line 22716 "" ipnew += all_1.nib[commvl_1.ivx + (all_1.ibar - 2) * 24 - 25]; -#line 22116 "" +#line 22717 "" } -#line 22117 "" +#line 22718 "" ipnew = i_dim(&ipnew, &c__0); -#line 22118 "" +#line 22719 "" setbits_(&isdata, &c__8, &c__3, &ipnew); -#line 22119 "" +#line 22720 "" all_1.isdat1[isdat - 1] = isdata; -#line 22120 "" +#line 22721 "" /* L41: */ -#line 22120 "" +#line 22721 "" } -#line 22121 "" +#line 22722 "" i__2 = comcb_1.nbc; -#line 22121 "" +#line 22722 "" for (ibc = 1; ibc <= i__2; ++ibc) { -#line 22122 "" +#line 22723 "" commvl_1.ivx = (15 & comcb_1.ibcdata[ibc - 1]) + (igetbits_(& comcb_1.ibcdata[ibc - 1], &c__1, &c__28) << 4); -#line 22123 "" +#line 22724 "" ipnew = igetbits_(&comcb_1.ibcdata[ibc - 1], &c__8, &c__4) - all_1.nib[commvl_1.ivx + (all_1.ibar - 1) * 24 - 25]; -#line 22124 "" +#line 22725 "" if (all_1.ibar > 2) { -#line 22125 "" +#line 22726 "" ipnew += all_1.nib[commvl_1.ivx + (all_1.ibar - 2) * 24 - 25]; -#line 22126 "" +#line 22727 "" } -#line 22127 "" +#line 22728 "" ipnew = i_dim(&ipnew, &c__0); -#line 22128 "" +#line 22729 "" setbits_(&comcb_1.ibcdata[ibc - 1], &c__8, &c__4, &ipnew); -#line 22129 "" +#line 22730 "" /* L44: */ -#line 22129 "" +#line 22730 "" } -#line 22130 "" +#line 22731 "" i__2 = comarpshift_1.numarpshift; -#line 22130 "" +#line 22731 "" for (iarps = 1; iarps <= i__2; ++iarps) { -#line 22131 "" +#line 22732 "" comarpshift_1.iparpshift[iarps - 1] -= all_1.nib[ comarpshift_1.ivarpshift[iarps - 1] + (all_1.ibar - 1) * 24 - 25]; -#line 22133 "" +#line 22734 "" if (all_1.ibar > 2) { -#line 22134 "" +#line 22735 "" comarpshift_1.iparpshift[iarps - 1] += all_1.nib[ comarpshift_1.ivarpshift[iarps - 1] + (all_1.ibar - 2) * 24 - 25]; -#line 22136 "" +#line 22737 "" } -#line 22137 "" +#line 22738 "" /* L45: */ -#line 22137 "" +#line 22738 "" } /* Bookkeeping for figures. This will set nfigs = 0 if there are no figs left. */ /* If there are figs left, it will reset all times relative to start of */ /* current bar. */ -#line 22143 "" +#line 22744 "" for (commvl_1.ivx = 1; commvl_1.ivx <= 2; ++commvl_1.ivx) { -#line 22144 "" +#line 22745 "" if (all_1.figbass) { -#line 22145 "" +#line 22746 "" islide = 0; -#line 22146 "" +#line 22747 "" i__2 = comfig_1.nfigs[commvl_1.ivx - 1]; -#line 22146 "" +#line 22747 "" for (jfig = 1; jfig <= i__2; ++jfig) { -#line 22147 "" +#line 22748 "" if (comfig_1.itfig[commvl_1.ivx + (jfig << 1) - 3] < all_1.lenbar) { /* This figure was already used */ -#line 22151 "" +#line 22752 "" islide = jfig; -#line 22152 "" +#line 22753 "" } else { -#line 22153 "" +#line 22754 "" comfig_1.itfig[commvl_1.ivx + (jfig - islide << 1) - 3] = comfig_1.itfig[commvl_1.ivx + ( jfig << 1) - 3] - all_1.lenbar; -#line 22154 "" +#line 22755 "" s_copy(comfig_1.figq + (commvl_1.ivx + (jfig - islide << 1) - 3) * 10, comfig_1.figq + ( commvl_1.ivx + (jfig << 1) - 3) * 10, ( ftnlen)10, (ftnlen)10); -#line 22155 "" +#line 22756 "" comgrace_1.itoff[commvl_1.ivx + (jfig - islide << 1) - 3] = comgrace_1.itoff[commvl_1.ivx + (jfig << 1) - 3]; -#line 22156 "" +#line 22757 "" comfig_1.ivupfig[commvl_1.ivx + (jfig - islide << 1) - 3] = comfig_1.ivupfig[commvl_1.ivx + (jfig << 1) - 3]; -#line 22157 "" +#line 22758 "" comfig_1.ivvfig[commvl_1.ivx + (jfig - islide << 1) - 3] = comfig_1.ivvfig[commvl_1.ivx + ( jfig << 1) - 3]; -#line 22158 "" +#line 22759 "" } -#line 22159 "" +#line 22760 "" /* L20: */ -#line 22159 "" +#line 22760 "" } -#line 22160 "" +#line 22761 "" comfig_1.nfigs[commvl_1.ivx - 1] -= islide; -#line 22161 "" +#line 22762 "" } -#line 22162 "" +#line 22763 "" if (comfig_1.nfigs[1] == 0) { -#line 22162 "" +#line 22763 "" goto L47; -#line 22162 "" +#line 22763 "" } -#line 22163 "" +#line 22764 "" /* L46: */ -#line 22163 "" +#line 22764 "" } -#line 22164 "" +#line 22765 "" L47: -#line 22165 "" +#line 22766 "" ; -#line 22165 "" +#line 22766 "" } /* End of sliding down for bars after first in gulp. */ /* The following may not be needed by makeabar, but just in case... */ -#line 22171 "" +#line 22772 "" if (all_1.firstgulp && all_1.lenb0 != 0) { -#line 22172 "" +#line 22773 "" if (all_1.ibar == 1) { -#line 22173 "" +#line 22774 "" all_1.lenbar = all_1.lenb0; -#line 22174 "" +#line 22775 "" } else { -#line 22175 "" +#line 22776 "" all_1.lenbar = all_1.lenb1; -#line 22176 "" +#line 22777 "" } -#line 22177 "" +#line 22778 "" } /* Equal line spacing stuff */ -#line 22181 "" +#line 22782 "" if (comget_1.equalize && comask_1.bar1syst) { -#line 22182 "" +#line 22783 "" if (isystpg == 1) { -#line 22183 "" - s_wsfe(&io___1506); +#line 22784 "" + s_wsfe(&io___1576); /* Writing concatenation */ -#line 22183 "" +#line 22784 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 22183 "" +#line 22784 "" i__6[1] = 8, a__4[1] = "starteq%"; -#line 22183 "" +#line 22784 "" s_cat(ch__18, a__4, i__6, &c__2, (ftnlen)9); -#line 22183 "" +#line 22784 "" do_fio(&c__1, ch__18, (ftnlen)9); -#line 22183 "" +#line 22784 "" e_wsfe(); -#line 22184 "" +#line 22785 "" } else if (isystpg == comnotes_1.nsystp[comnotes_1.ipage - 1] - 1) { -#line 22185 "" - s_wsfe(&io___1507); +#line 22786 "" + s_wsfe(&io___1577); /* Writing concatenation */ -#line 22185 "" +#line 22786 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 22185 "" +#line 22786 "" i__6[1] = 6, a__4[1] = "endeq%"; -#line 22185 "" - s_cat(ch__37, a__4, i__6, &c__2, (ftnlen)7); -#line 22185 "" - do_fio(&c__1, ch__37, (ftnlen)7); -#line 22185 "" +#line 22786 "" + s_cat(ch__41, a__4, i__6, &c__2, (ftnlen)7); +#line 22786 "" + do_fio(&c__1, ch__41, (ftnlen)7); +#line 22786 "" e_wsfe(); -#line 22186 "" +#line 22787 "" } -#line 22187 "" +#line 22788 "" } -#line 22188 "" +#line 22789 "" make1bar_(&ibmrep, &tglp1, tstart, cwrest, squez, istop, numbms, istart); -#line 22190 "" +#line 22791 "" make2bar_(&comnotes_1.ninow, &tglp1, tstart, cwrest, squez, istop, numbms, istart, comclefq_1.clefq, (ftnlen)1); /* Hardspace before barline? */ -#line 22195 "" +#line 22796 "" hardb4 = 0.f; -#line 22196 "" +#line 22797 "" i__2 = all_1.nv; -#line 22196 "" +#line 22797 "" for (all_1.iv = 1; all_1.iv <= i__2; ++all_1.iv) { -#line 22197 "" +#line 22798 "" i__7 = commvl_1.nvmx[all_1.iv - 1]; -#line 22197 "" +#line 22798 "" for (kv = 1; kv <= i__7; ++kv) { -#line 22198 "" +#line 22799 "" commvl_1.ivx = commvl_1.ivmx[all_1.iv + kv * 24 - 25]; -#line 22199 "" +#line 22800 "" if (bit_test(all_1.irest[commvl_1.ivx + all_1.nn[commvl_1.ivx - 1] * 24 - 25],18)) { -#line 22200 "" +#line 22801 "" ++comudsp_1.nudoff[commvl_1.ivx - 1]; /* Computing MAX */ -#line 22201 "" +#line 22802 "" r__1 = hardb4, r__2 = comudsp_1.udoff[commvl_1.ivx + comudsp_1.nudoff[commvl_1.ivx - 1] * 24 - 25]; -#line 22201 "" +#line 22802 "" hardb4 = dmax(r__1,r__2); -#line 22202 "" +#line 22803 "" } -#line 22203 "" +#line 22804 "" /* L35: */ -#line 22203 "" +#line 22804 "" } -#line 22203 "" +#line 22804 "" } -#line 22204 "" +#line 22805 "" if (hardb4 > 0.f) { -#line 22205 "" +#line 22806 "" if (comlast_1.islast) { -#line 22205 "" - s_wsfe(&io___1515); +#line 22806 "" + s_wsfe(&io___1585); /* Writing concatenation */ -#line 22205 "" +#line 22806 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 22205 "" +#line 22806 "" i__6[1] = 10, a__4[1] = "hardspace{"; -#line 22205 "" +#line 22806 "" s_cat(ch__15, a__4, i__6, &c__2, (ftnlen)11); -#line 22205 "" +#line 22806 "" do_fio(&c__1, ch__15, (ftnlen)11); -#line 22205 "" +#line 22806 "" do_fio(&c__1, (char *)&hardb4, (ftnlen)sizeof(real)); -#line 22205 "" +#line 22806 "" do_fio(&c__1, "pt}%", (ftnlen)4); -#line 22205 "" +#line 22806 "" e_wsfe(); -#line 22205 "" +#line 22806 "" } /* This was causing an incorrect poe in an example, which did not affect main */ /* spacing, but did cause an extra accidental space to be too small */ -#line 22211 "" +#line 22812 "" comask_1.fixednew -= hardb4; -#line 22212 "" +#line 22813 "" } -#line 22213 "" +#line 22814 "" /* L10: */ -#line 22213 "" +#line 22814 "" } -#line 22214 "" +#line 22815 "" all_1.firstgulp = FALSE_; -#line 22215 "" +#line 22816 "" all_1.lenb0 = 0; -#line 22216 "" +#line 22817 "" goto L30; -#line 22217 "" +#line 22818 "" L40: -#line 22217 "" +#line 22818 "" cl__1.cerr = 0; -#line 22217 "" +#line 22818 "" cl__1.cunit = 12; -#line 22217 "" +#line 22818 "" cl__1.csta = 0; -#line 22217 "" +#line 22818 "" f_clos(&cl__1); -#line 22218 "" +#line 22819 "" cl__1.cerr = 0; -#line 22218 "" +#line 22819 "" cl__1.cunit = 13; -#line 22218 "" +#line 22819 "" cl__1.csta = 0; -#line 22218 "" +#line 22819 "" f_clos(&cl__1); -#line 22219 "" +#line 22820 "" inbuff_1.ilbuf = 1; -#line 22220 "" +#line 22821 "" inbuff_1.ipbuf = 0; -#line 22221 "" +#line 22822 "" wdpt = comtop_1.widthpt; -#line 22222 "" +#line 22823 "" if (all_1.iline == 1) { -#line 22222 "" +#line 22823 "" wdpt = comtop_1.widthpt * (1 - comtop_1.fracindent); -#line 22222 "" +#line 22823 "" } -#line 22223 "" +#line 22824 "" poe = (wdpt - fsyst * all_1.musicsize - nbarss * .4f - comask_1.fixednew) / (elsktot + comask_1.fbar * nbarss - comask_1.scaldold); -#line 22225 "" +#line 22826 "" poevec[nsyst] = poe; -#line 22226 "" +#line 22827 "" if (! comlast_1.islast) { -#line 22227 "" +#line 22828 "" cl__1.cerr = 0; -#line 22227 "" +#line 22828 "" cl__1.cunit = 11; -#line 22227 "" +#line 22828 "" cl__1.csta = 0; -#line 22227 "" +#line 22828 "" f_clos(&cl__1); -#line 22228 "" +#line 22829 "" cl__1.cerr = 0; -#line 22228 "" +#line 22829 "" cl__1.cunit = 16; -#line 22228 "" +#line 22829 "" cl__1.csta = 0; -#line 22228 "" +#line 22829 "" f_clos(&cl__1); -#line 22229 "" +#line 22830 "" if (all_1.figbass) { -#line 22229 "" +#line 22830 "" cl__1.cerr = 0; -#line 22229 "" +#line 22830 "" cl__1.cunit = 14; -#line 22229 "" +#line 22830 "" cl__1.csta = 0; -#line 22229 "" +#line 22830 "" f_clos(&cl__1); -#line 22229 "" +#line 22830 "" } -#line 22230 "" +#line 22831 "" return 0; -#line 22231 "" +#line 22832 "" } -#line 22232 "" +#line 22833 "" i__1 = comas2_1.nasksys; -#line 22232 "" +#line 22833 "" for (ia = 1; ia <= i__1; ++ia) { -#line 22233 "" +#line 22834 "" ++comas3_1.iask; -#line 22234 "" - comas3_1.ask[comas3_1.iask - 1] = comas2_1.wasksys[ia - 1] / poe - ( - r__1 = comas2_1.elasksys[ia - 1], dabs(r__1)); -#line 22235 "" +#line 22835 "" + comas3_1.ask[comas3_1.iask - 1] = (comas2_1.wasksys[ia - 1] / poe - ( + r__1 = comas2_1.elasksys[ia - 1], dabs(r__1))) / + comshort_1.poefa[all_1.iline - 1]; +#line 22836 "" if (comas2_1.elasksys[ia - 1] > 0.f) { -#line 22235 "" +#line 22836 "" comas3_1.ask[comas3_1.iask - 1] = r_dim(&comas3_1.ask[ - comas3_1.iask - 1], &c_b1009); -#line 22235 "" + comas3_1.iask - 1], &c_b1008); +#line 22836 "" } -#line 22236 "" +#line 22837 "" /* L19: */ -#line 22236 "" +#line 22837 "" } -#line 22237 "" +#line 22838 "" i__1 = nhssys; -#line 22237 "" +#line 22838 "" for (ia = 1; ia <= i__1; ++ia) { -#line 22238 "" +#line 22839 "" ++nhstot; /* Computing MAX */ -#line 22239 "" +#line 22840 "" r__1 = hpts[ia - 1] - hesk[ia - 1] * poe; -#line 22239 "" +#line 22840 "" comhsp_1.hpttot[nhstot - 1] = dmax(r__1,0.f); -#line 22240 "" +#line 22841 "" /* L26: */ -#line 22240 "" +#line 22841 "" } -#line 22241 "" +#line 22842 "" if (comlast_1.islast && onvolt) { -#line 22241 "" - s_wsfe(&io___1516); +#line 22842 "" + s_wsfe(&io___1586); /* Writing concatenation */ -#line 22241 "" +#line 22842 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 22241 "" +#line 22842 "" i__6[1] = 11, a__4[1] = "endvoltabox"; -#line 22241 "" +#line 22842 "" s_cat(ch__14, a__4, i__6, &c__2, (ftnlen)12); -#line 22241 "" +#line 22842 "" do_fio(&c__1, ch__14, (ftnlen)12); -#line 22241 "" +#line 22842 "" e_wsfe(); -#line 22241 "" +#line 22842 "" } -#line 22243 "" +#line 22844 "" + s_copy(rendq, "% ", (ftnlen)3, (ftnlen)3); +#line 22845 "" + if (comshort_1.ishort != 0) { +#line 22845 "" + s_copy(rendq, "}}%", (ftnlen)3, (ftnlen)3); +#line 22845 "" + } +#line 22846 "" if (*(unsigned char *)comget_1.rptfq2 != 'E') { /* Terminal repeat. Right or double? */ -#line 22247 "" +#line 22850 "" if (*(unsigned char *)comget_1.rptfq2 == 'r') { -#line 22248 "" +#line 22851 "" if (comlast_1.islast) { -#line 22248 "" - s_wsfe(&io___1517); +#line 22851 "" + s_wsfe(&io___1588); /* Writing concatenation */ -#line 22248 "" - i__5[0] = 1, a__3[0] = all_1.sq; -#line 22248 "" - i__5[1] = 14, a__3[1] = "setrightrepeat"; -#line 22248 "" - i__5[2] = 1, a__3[2] = all_1.sq; -#line 22248 "" - i__5[3] = 8, a__3[3] = "endpiece"; -#line 22248 "" - s_cat(ch__38, a__3, i__5, &c__4, (ftnlen)24); -#line 22248 "" - do_fio(&c__1, ch__38, (ftnlen)24); -#line 22248 "" +#line 22851 "" + i__12[0] = 1, a__9[0] = all_1.sq; +#line 22851 "" + i__12[1] = 14, a__9[1] = "setrightrepeat"; +#line 22851 "" + i__12[2] = 1, a__9[2] = all_1.sq; +#line 22851 "" + i__12[3] = 8, a__9[3] = "endpiece"; +#line 22851 "" + i__12[4] = 3, a__9[4] = rendq; +#line 22851 "" + s_cat(ch__5, a__9, i__12, &c__5, (ftnlen)27); +#line 22851 "" + do_fio(&c__1, ch__5, (ftnlen)27); +#line 22851 "" e_wsfe(); -#line 22248 "" +#line 22851 "" } -#line 22250 "" +#line 22853 "" } else if (*(unsigned char *)comget_1.rptfq2 == 'd') { -#line 22251 "" +#line 22854 "" if (comlast_1.islast) { -#line 22251 "" - s_wsfe(&io___1518); -/* Writing concatenation */ -#line 22251 "" - i__5[0] = 1, a__3[0] = all_1.sq; -#line 22251 "" - i__5[1] = 12, a__3[1] = "setdoublebar"; -#line 22251 "" - i__5[2] = 1, a__3[2] = all_1.sq; -#line 22251 "" - i__5[3] = 8, a__3[3] = "endpiece"; -#line 22251 "" - s_cat(ch__39, a__3, i__5, &c__4, (ftnlen)22); -#line 22251 "" - do_fio(&c__1, ch__39, (ftnlen)22); -#line 22251 "" +#line 22854 "" + s_wsfe(&io___1589); +/* Writing concatenation */ +#line 22854 "" + i__12[0] = 1, a__9[0] = all_1.sq; +#line 22854 "" + i__12[1] = 12, a__9[1] = "setdoublebar"; +#line 22854 "" + i__12[2] = 1, a__9[2] = all_1.sq; +#line 22854 "" + i__12[3] = 8, a__9[3] = "endpiece"; +#line 22854 "" + i__12[4] = 3, a__9[4] = rendq; +#line 22854 "" + s_cat(ch__42, a__9, i__12, &c__5, (ftnlen)25); +#line 22854 "" + do_fio(&c__1, ch__42, (ftnlen)25); +#line 22854 "" e_wsfe(); -#line 22251 "" +#line 22854 "" } -#line 22252 "" +#line 22856 "" } else if (*(unsigned char *)comget_1.rptfq2 == 'b') { -#line 22253 "" +#line 22857 "" if (comlast_1.islast) { -#line 22253 "" - s_wsfe(&io___1519); -/* Writing concatenation */ -#line 22253 "" - i__6[0] = 1, a__4[0] = all_1.sq; -#line 22253 "" - i__6[1] = 8, a__4[1] = "endpiece"; -#line 22253 "" - s_cat(ch__18, a__4, i__6, &c__2, (ftnlen)9); -#line 22253 "" - do_fio(&c__1, ch__18, (ftnlen)9); -#line 22253 "" +#line 22857 "" + s_wsfe(&io___1590); +/* Writing concatenation */ +#line 22857 "" + i__8[0] = 1, a__5[0] = all_1.sq; +#line 22857 "" + i__8[1] = 8, a__5[1] = "endpiece"; +#line 22857 "" + i__8[2] = 3, a__5[2] = rendq; +#line 22857 "" + s_cat(ch__14, a__5, i__8, &c__3, (ftnlen)12); +#line 22857 "" + do_fio(&c__1, ch__14, (ftnlen)12); +#line 22857 "" e_wsfe(); -#line 22253 "" +#line 22857 "" } -#line 22254 "" +#line 22858 "" } else if (*(unsigned char *)comget_1.rptfq2 == 'z') { -#line 22255 "" +#line 22859 "" if (comlast_1.islast) { -#line 22255 "" - s_wsfe(&io___1520); +#line 22859 "" + s_wsfe(&io___1591); /* Writing concatenation */ -#line 22255 "" - i__5[0] = 1, a__3[0] = all_1.sq; -#line 22255 "" - i__5[1] = 12, a__3[1] = "setzalaligne"; -#line 22255 "" - i__5[2] = 1, a__3[2] = all_1.sq; -#line 22255 "" - i__5[3] = 8, a__3[3] = "Endpiece"; -#line 22255 "" - s_cat(ch__39, a__3, i__5, &c__4, (ftnlen)22); -#line 22255 "" - do_fio(&c__1, ch__39, (ftnlen)22); -#line 22255 "" +#line 22859 "" + i__12[0] = 1, a__9[0] = all_1.sq; +#line 22859 "" + i__12[1] = 12, a__9[1] = "setzalaligne"; +#line 22859 "" + i__12[2] = 1, a__9[2] = all_1.sq; +#line 22859 "" + i__12[3] = 8, a__9[3] = "Endpiece"; +#line 22859 "" + i__12[4] = 3, a__9[4] = rendq; +#line 22859 "" + s_cat(ch__42, a__9, i__12, &c__5, (ftnlen)25); +#line 22859 "" + do_fio(&c__1, ch__42, (ftnlen)25); +#line 22859 "" e_wsfe(); -#line 22255 "" +#line 22859 "" } -#line 22256 "" +#line 22861 "" } else { -#line 22257 "" - s_wsle(&io___1521); -#line 22257 "" +#line 22862 "" + s_wsle(&io___1592); +#line 22862 "" e_wsle(); -#line 22258 "" - s_wsle(&io___1522); -#line 22258 "" +#line 22863 "" + s_wsle(&io___1593); +#line 22863 "" do_lio(&c__9, &c__1, "R? , ? not \"d\",\"r\",or\"b\",\"z\"; rptf"\ "q2:", (ftnlen)37); -#line 22258 "" +#line 22863 "" do_lio(&c__9, &c__1, comget_1.rptfq2, (ftnlen)1); -#line 22258 "" +#line 22863 "" e_wsle(); -#line 22259 "" - s_wsle(&io___1523); -#line 22259 "" +#line 22864 "" + s_wsle(&io___1594); +#line 22864 "" do_lio(&c__9, &c__1, "R? , ? not \"d\",\"r\",or\"b\",\"z\"; rptf"\ "q2:", (ftnlen)37); -#line 22259 "" +#line 22864 "" do_lio(&c__9, &c__1, comget_1.rptfq2, (ftnlen)1); -#line 22259 "" +#line 22864 "" e_wsle(); -#line 22260 "" +#line 22865 "" if (comlast_1.islast) { -#line 22260 "" - s_wsfe(&io___1524); +#line 22865 "" + s_wsfe(&io___1595); /* Writing concatenation */ -#line 22260 "" +#line 22865 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 22260 "" +#line 22865 "" i__6[1] = 8, a__4[1] = "Endpiece"; -#line 22260 "" +#line 22865 "" s_cat(ch__18, a__4, i__6, &c__2, (ftnlen)9); -#line 22260 "" +#line 22865 "" do_fio(&c__1, ch__18, (ftnlen)9); -#line 22260 "" +#line 22865 "" e_wsfe(); -#line 22260 "" +#line 22865 "" } -#line 22261 "" +#line 22866 "" } -#line 22262 "" +#line 22867 "" } else { -#line 22263 "" - if (comlast_1.islast) { -#line 22263 "" - s_wsfe(&io___1525); -/* Writing concatenation */ -#line 22263 "" - i__6[0] = 1, a__4[0] = all_1.sq; -#line 22263 "" - i__6[1] = 8, a__4[1] = "Endpiece"; -#line 22263 "" - s_cat(ch__18, a__4, i__6, &c__2, (ftnlen)9); -#line 22263 "" - do_fio(&c__1, ch__18, (ftnlen)9); -#line 22263 "" - e_wsfe(); -#line 22263 "" - } -#line 22264 "" +#line 22868 "" + s_wsfe(&io___1596); +/* Writing concatenation */ +#line 22868 "" + i__8[0] = 1, a__5[0] = all_1.sq; +#line 22868 "" + i__8[1] = 8, a__5[1] = "Endpiece"; +#line 22868 "" + i__8[2] = 3, a__5[2] = rendq; +#line 22868 "" + s_cat(ch__14, a__5, i__8, &c__3, (ftnlen)12); +#line 22868 "" + do_fio(&c__1, ch__14, (ftnlen)12); +#line 22868 "" + e_wsfe(); +#line 22869 "" } -#line 22265 "" +#line 22870 "" if (! vshrink) { -#line 22266 "" +#line 22871 "" if (comlast_1.islast && combottop_1.bottopgap) { -#line 22267 "" +#line 22872 "" if (dabs(combottop_1.botamt) > 1e-6f) { -#line 22268 "" +#line 22873 "" if (combottop_1.botamt > 9.95f) { -#line 22269 "" +#line 22874 "" s_copy(fmtq, "(a,f4.1,a)", (ftnlen)24, (ftnlen)10); -#line 22270 "" +#line 22875 "" } else if (combottop_1.botamt > 0.f) { -#line 22271 "" +#line 22876 "" s_copy(fmtq, "(a,f3.1,a)", (ftnlen)24, (ftnlen)10); -#line 22272 "" +#line 22877 "" } else if (combottop_1.botamt > -9.95f) { -#line 22273 "" +#line 22878 "" s_copy(fmtq, "(a,f4.1,a)", (ftnlen)24, (ftnlen)10); -#line 22274 "" +#line 22879 "" } else { -#line 22275 "" +#line 22880 "" s_copy(fmtq, "(a,f5.1,a)", (ftnlen)24, (ftnlen)10); -#line 22276 "" +#line 22881 "" } -#line 22277 "" - s_wsfe(&io___1526); +#line 22882 "" + s_wsfe(&io___1597); /* Writing concatenation */ -#line 22277 "" +#line 22882 "" i__5[0] = 1, a__3[0] = all_1.sq; -#line 22277 "" +#line 22882 "" i__5[1] = 4, a__3[1] = "null"; -#line 22277 "" +#line 22882 "" i__5[2] = 1, a__3[2] = all_1.sq; -#line 22277 "" +#line 22882 "" i__5[3] = 5, a__3[3] = "vskip"; -#line 22277 "" +#line 22882 "" s_cat(ch__15, a__3, i__5, &c__4, (ftnlen)11); -#line 22277 "" +#line 22882 "" do_fio(&c__1, ch__15, (ftnlen)11); -#line 22277 "" +#line 22882 "" do_fio(&c__1, (char *)&combottop_1.botamt, (ftnlen)sizeof( real)); /* Writing concatenation */ -#line 22277 "" +#line 22882 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 22277 "" +#line 22882 "" i__6[1] = 10, a__4[1] = "Internote%"; -#line 22277 "" - s_cat(ch__29, a__4, i__6, &c__2, (ftnlen)11); -#line 22277 "" - do_fio(&c__1, ch__29, (ftnlen)11); -#line 22277 "" +#line 22882 "" + s_cat(ch__32, a__4, i__6, &c__2, (ftnlen)11); +#line 22882 "" + do_fio(&c__1, ch__32, (ftnlen)11); +#line 22882 "" e_wsfe(); -#line 22279 "" +#line 22884 "" } -#line 22280 "" +#line 22885 "" } -#line 22281 "" +#line 22886 "" xnstbot = xnsttop[comnotes_1.ipage - 1] * etabot / etatop; -#line 22282 "" +#line 22887 "" if (xnstbot < 9.95f) { -#line 22283 "" +#line 22888 "" s_copy(fmtq, "(a,f3.1,a)", (ftnlen)24, (ftnlen)10); -#line 22284 "" +#line 22889 "" } else { -#line 22285 "" +#line 22890 "" s_copy(fmtq, "(a,f4.1,a)", (ftnlen)24, (ftnlen)10); -#line 22286 "" +#line 22891 "" } -#line 22287 "" +#line 22892 "" if (comlast_1.islast) { -#line 22287 "" - s_wsfe(&io___1527); +#line 22892 "" + s_wsfe(&io___1598); /* Writing concatenation */ -#line 22287 "" +#line 22892 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 22287 "" +#line 22892 "" i__6[1] = 5, a__4[1] = "vskip"; -#line 22287 "" - s_cat(ch__30, a__4, i__6, &c__2, (ftnlen)6); -#line 22287 "" - do_fio(&c__1, ch__30, (ftnlen)6); -#line 22287 "" +#line 22892 "" + s_cat(ch__25, a__4, i__6, &c__2, (ftnlen)6); +#line 22892 "" + do_fio(&c__1, ch__25, (ftnlen)6); +#line 22892 "" do_fio(&c__1, (char *)&xnstbot, (ftnlen)sizeof(real)); /* Writing concatenation */ -#line 22287 "" +#line 22892 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 22287 "" +#line 22892 "" i__4[1] = 10, a__2[1] = "Interligne"; -#line 22287 "" +#line 22892 "" i__4[2] = 1, a__2[2] = all_1.sq; -#line 22287 "" +#line 22892 "" i__4[3] = 5, a__2[3] = "eject"; -#line 22287 "" +#line 22892 "" i__4[4] = 1, a__2[4] = all_1.sq; -#line 22287 "" +#line 22892 "" i__4[5] = 9, a__2[5] = "endmuflex"; -#line 22287 "" +#line 22892 "" s_cat(ch__5, a__2, i__4, &c__6, (ftnlen)27); -#line 22287 "" +#line 22892 "" do_fio(&c__1, ch__5, (ftnlen)27); -#line 22287 "" +#line 22892 "" e_wsfe(); -#line 22287 "" +#line 22892 "" } -#line 22289 "" +#line 22894 "" if (comlast_1.islast) { -#line 22289 "" - s_wsfe(&io___1528); +#line 22894 "" + s_wsfe(&io___1599); /* Writing concatenation */ -#line 22289 "" +#line 22894 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 22289 "" +#line 22894 "" i__6[1] = 3, a__4[1] = "bye"; -#line 22289 "" +#line 22894 "" s_cat(ch__21, a__4, i__6, &c__2, (ftnlen)4); -#line 22289 "" +#line 22894 "" do_fio(&c__1, ch__21, (ftnlen)4); -#line 22289 "" +#line 22894 "" e_wsfe(); -#line 22289 "" +#line 22894 "" } -#line 22290 "" +#line 22895 "" } else { -#line 22291 "" +#line 22896 "" if (comlast_1.islast) { -#line 22291 "" - s_wsfe(&io___1529); +#line 22896 "" + s_wsfe(&io___1600); /* Writing concatenation */ -#line 22291 "" +#line 22896 "" i__4[0] = 1, a__2[0] = all_1.sq; -#line 22291 "" +#line 22896 "" i__4[1] = 5, a__2[1] = "vfill"; -#line 22291 "" +#line 22896 "" i__4[2] = 1, a__2[2] = all_1.sq; -#line 22291 "" +#line 22896 "" i__4[3] = 5, a__2[3] = "eject"; -#line 22291 "" +#line 22896 "" i__4[4] = 1, a__2[4] = all_1.sq; -#line 22291 "" +#line 22896 "" i__4[5] = 9, a__2[5] = "endmuflex"; -#line 22291 "" - s_cat(ch__39, a__2, i__4, &c__6, (ftnlen)22); -#line 22291 "" - do_fio(&c__1, ch__39, (ftnlen)22); -#line 22291 "" +#line 22896 "" + s_cat(ch__43, a__2, i__4, &c__6, (ftnlen)22); +#line 22896 "" + do_fio(&c__1, ch__43, (ftnlen)22); +#line 22896 "" e_wsfe(); -#line 22291 "" +#line 22896 "" } -#line 22293 "" +#line 22898 "" if (comlast_1.islast) { -#line 22293 "" - s_wsfe(&io___1530); +#line 22898 "" + s_wsfe(&io___1601); /* Writing concatenation */ -#line 22293 "" +#line 22898 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 22293 "" +#line 22898 "" i__6[1] = 3, a__4[1] = "bye"; -#line 22293 "" +#line 22898 "" s_cat(ch__21, a__4, i__6, &c__2, (ftnlen)4); -#line 22293 "" +#line 22898 "" do_fio(&c__1, ch__21, (ftnlen)4); -#line 22293 "" +#line 22898 "" e_wsfe(); -#line 22293 "" +#line 22898 "" } -#line 22294 "" +#line 22899 "" } -#line 22295 "" +#line 22900 "" al__1.aerr = 0; -#line 22295 "" +#line 22900 "" al__1.aunit = 11; -#line 22295 "" +#line 22900 "" f_rew(&al__1); -#line 22296 "" +#line 22901 "" if (all_1.figbass) { -#line 22297 "" - s_wsfe(&io___1531); +#line 22902 "" + s_wsfe(&io___1602); /* Writing concatenation */ -#line 22297 "" +#line 22902 "" i__6[0] = 1, a__4[0] = all_1.sq; -#line 22297 "" +#line 22902 "" i__6[1] = 8, a__4[1] = "figdrop="; -#line 22297 "" +#line 22902 "" s_cat(ch__18, a__4, i__6, &c__2, (ftnlen)9); -#line 22297 "" +#line 22902 "" do_fio(&c__1, ch__18, (ftnlen)9); -#line 22297 "" +#line 22902 "" do_fio(&c__1, (char *)&all_1.ifigdr[(all_1.iline << 1) - 2], (ftnlen) sizeof(integer)); /* Writing concatenation */ -#line 22297 "" +#line 22902 "" i__8[0] = 1, a__5[0] = " "; -#line 22297 "" +#line 22902 "" i__8[1] = 1, a__5[1] = all_1.sq; -#line 22297 "" +#line 22902 "" i__8[2] = 8, a__5[2] = "figdtwo="; -#line 22297 "" +#line 22902 "" s_cat(ch__20, a__5, i__8, &c__3, (ftnlen)10); -#line 22297 "" +#line 22902 "" do_fio(&c__1, ch__20, (ftnlen)10); -#line 22297 "" +#line 22902 "" do_fio(&c__1, (char *)&all_1.ifigdr[(all_1.iline << 1) - 1], (ftnlen) sizeof(integer)); /* Writing concatenation */ -#line 22297 "" +#line 22902 "" i__11[0] = 1, a__8[0] = all_1.sq; -#line 22297 "" +#line 22902 "" i__11[1] = 4, a__8[1] = "fi}%"; -#line 22297 "" - s_cat(ch__36, a__8, i__11, &c__2, (ftnlen)5); -#line 22297 "" - do_fio(&c__1, ch__36, (ftnlen)5); -#line 22297 "" +#line 22902 "" + s_cat(ch__40, a__8, i__11, &c__2, (ftnlen)5); +#line 22902 "" + do_fio(&c__1, ch__40, (ftnlen)5); +#line 22902 "" e_wsfe(); -#line 22300 "" +#line 22905 "" al__1.aerr = 0; -#line 22300 "" +#line 22905 "" al__1.aunit = 14; -#line 22300 "" +#line 22905 "" f_rew(&al__1); -#line 22301 "" +#line 22906 "" } -#line 22302 "" +#line 22907 "" askfig_(pathnameq, &lpath, basenameq, &lbase, &all_1.figbass, &istype0, ( ftnlen)40, (ftnlen)44); -#line 22303 "" +#line 22908 "" if (! (*optimize)) { -#line 22304 "" - s_wsle(&io___1532); -#line 22304 "" +#line 22909 "" + s_wsle(&io___1603); +#line 22909 "" e_wsle(); -#line 22305 "" - s_wsle(&io___1533); +#line 22910 "" + s_wsle(&io___1604); /* Writing concatenation */ -#line 22305 "" +#line 22910 "" i__5[0] = 8, a__3[0] = "Writing "; -#line 22305 "" +#line 22910 "" i__5[1] = lpath, a__3[1] = pathnameq; -#line 22305 "" +#line 22910 "" i__5[2] = lbase, a__3[2] = basenameq; -#line 22305 "" +#line 22910 "" i__5[3] = 4, a__3[3] = ".tex"; -#line 22305 "" - s_cat(ch__40, a__3, i__5, &c__4, (ftnlen)96); -#line 22305 "" - do_lio(&c__9, &c__1, ch__40, lpath + 8 + lbase + 4); -#line 22305 "" +#line 22910 "" + s_cat(ch__44, a__3, i__5, &c__4, (ftnlen)96); +#line 22910 "" + do_lio(&c__9, &c__1, ch__44, lpath + 8 + lbase + 4); +#line 22910 "" e_wsle(); -#line 22307 "" - s_wsle(&io___1534); -#line 22307 "" +#line 22912 "" + s_wsle(&io___1605); +#line 22912 "" do_lio(&c__9, &c__1, "Done with second PMX pass.", (ftnlen)26); -#line 22307 "" +#line 22912 "" e_wsle(); -#line 22308 "" - s_wsfe(&io___1535); +#line 22913 "" + s_wsfe(&io___1606); /* Writing concatenation */ -#line 22308 "" +#line 22913 "" i__5[0] = 8, a__3[0] = "Writing "; -#line 22308 "" +#line 22913 "" i__5[1] = lpath, a__3[1] = pathnameq; -#line 22308 "" +#line 22913 "" i__5[2] = lbase, a__3[2] = basenameq; -#line 22308 "" +#line 22913 "" i__5[3] = 4, a__3[3] = ".tex"; -#line 22308 "" - s_cat(ch__40, a__3, i__5, &c__4, (ftnlen)96); -#line 22308 "" - do_fio(&c__1, ch__40, lpath + 8 + lbase + 4); -#line 22308 "" +#line 22913 "" + s_cat(ch__44, a__3, i__5, &c__4, (ftnlen)96); +#line 22913 "" + do_fio(&c__1, ch__44, lpath + 8 + lbase + 4); +#line 22913 "" e_wsfe(); -#line 22310 "" - s_wsfe(&io___1536); -#line 22310 "" +#line 22915 "" + s_wsfe(&io___1607); +#line 22915 "" do_fio(&c__1, " Done with second PMX pass. Now run TeX", (ftnlen)40); -#line 22310 "" +#line 22915 "" e_wsfe(); -#line 22311 "" +#line 22916 "" } -#line 22312 "" +#line 22917 "" return 0; } /* pmxb_ */ @@ -54514,41 +56556,41 @@ L40: /* Compute avg. & norm. std. dev. of poe. */ -#line 22320 "" +#line 22925 "" /* Parameter adjustments */ -#line 22320 "" +#line 22925 "" --poe; -#line 22320 "" +#line 22925 "" -#line 22320 "" +#line 22925 "" /* Function Body */ -#line 22320 "" +#line 22925 "" sumx = 0.f; -#line 22321 "" +#line 22926 "" sumxx = 0.f; -#line 22322 "" +#line 22927 "" i__1 = *nsyst; -#line 22322 "" +#line 22927 "" for (isyst = 1; isyst <= i__1; ++isyst) { -#line 22323 "" +#line 22928 "" sumx += poe[isyst]; /* Computing 2nd power */ -#line 22324 "" +#line 22929 "" r__1 = poe[isyst]; -#line 22324 "" +#line 22929 "" sumxx += r__1 * r__1; -#line 22325 "" +#line 22930 "" /* L1: */ -#line 22325 "" +#line 22930 "" } /* Computing 2nd power */ -#line 22326 "" +#line 22931 "" r__1 = sumx; -#line 22326 "" +#line 22931 "" *devnorm = sqrt(*nsyst * sumxx / (r__1 * r__1) - 1); -#line 22327 "" +#line 22932 "" *poebar = sumx / *nsyst; -#line 22328 "" +#line 22933 "" return 0; } /* poestats_ */ @@ -54577,10 +56619,10 @@ L40: integer *); /* Fortran I/O blocks */ - static cilist io___1544 = { 0, 6, 0, 0, 0 }; - static cilist io___1545 = { 0, 6, 0, 0, 0 }; - static cilist io___1556 = { 0, 6, 0, 0, 0 }; - static cilist io___1557 = { 0, 6, 0, 0, 0 }; + static cilist io___1615 = { 0, 6, 0, 0, 0 }; + static cilist io___1616 = { 0, 6, 0, 0, 0 }; + static cilist io___1627 = { 0, 6, 0, 0, 0 }; + static cilist io___1628 = { 0, 6, 0, 0, 0 }; @@ -54595,308 +56637,308 @@ L40: /* levtabl(i)=0 if no note at this level, -1 if main note, icrd if chord note. */ /* icrdot(icrd)(27-29) sequence order of chord note if accid, top down */ -#line 22350 "" +#line 22955 "" for (i__ = 1; i__ <= 88; ++i__) { -#line 22351 "" +#line 22956 "" levtabl[i__ - 1] = 0; -#line 22352 "" +#line 22957 "" /* L11: */ -#line 22352 "" +#line 22957 "" } -#line 22353 "" +#line 22958 "" i__1 = comtrill_1.ncrd; -#line 22353 "" +#line 22958 "" for (comtrill_1.icrd1 = 1; comtrill_1.icrd1 <= i__1; ++comtrill_1.icrd1) { -#line 22354 "" +#line 22959 "" ivx1 = (15 & lbit_shift(comtrill_1.icrdat[comtrill_1.icrd1 - 1], ( ftnlen)-8)) + (igetbits_(&comtrill_1.icrdat[comtrill_1.icrd1 - 1], &c__1, &c__28) << 4); -#line 22356 "" +#line 22961 "" ip1 = 255 & comtrill_1.icrdat[comtrill_1.icrd1 - 1]; -#line 22357 "" +#line 22962 "" if (ip1 == *ip && ivx1 == *ivx) { -#line 22357 "" +#line 22962 "" goto L2; -#line 22357 "" +#line 22962 "" } -#line 22358 "" +#line 22963 "" /* L1: */ -#line 22358 "" +#line 22963 "" } -#line 22359 "" - s_wsle(&io___1544); -#line 22359 "" +#line 22964 "" + s_wsle(&io___1615); +#line 22964 "" e_wsle(); -#line 22360 "" - s_wsle(&io___1545); -#line 22360 "" +#line 22965 "" + s_wsle(&io___1616); +#line 22965 "" do_lio(&c__9, &c__1, "Cannot find first chord note in precrd. Send sourc"\ "e to Dr. Don!", (ftnlen)63); -#line 22360 "" +#line 22965 "" e_wsle(); -#line 22362 "" +#line 22967 "" stop1_(); -#line 22363 "" +#line 22968 "" L2: -#line 22364 "" +#line 22969 "" comtrill_1.maxlev = *nolevm; -#line 22365 "" +#line 22970 "" comtrill_1.minlev = *nolevm; -#line 22366 "" +#line 22971 "" levtabl[*nolevm - 1] = -1; -#line 22367 "" +#line 22972 "" is2nd = FALSE_; -#line 22368 "" +#line 22973 "" naccid = 0; -#line 22369 "" +#line 22974 "" levmaxacc = -100; -#line 22370 "" +#line 22975 "" levminacc = 1000; /* Check 1st 3 bits of nacc for accid on main note of chord. */ -#line 22374 "" +#line 22979 "" if ((7 & *nacc) > 0) { -#line 22375 "" +#line 22980 "" naccid = 1; /* Start list of notes with accid's. There will be naccid of them. kicrd=0 if main, */ /* otherwise icrd value for note with accidental. */ -#line 22380 "" +#line 22985 "" kicrd[0] = 0; -#line 22381 "" +#line 22986 "" levmaxacc = *nolevm; -#line 22382 "" +#line 22987 "" levminacc = *nolevm; /* Start the level-ranking */ -#line 22386 "" +#line 22991 "" icrdot0 = 1; -#line 22387 "" +#line 22992 "" } -#line 22388 "" +#line 22993 "" i__1 = comtrill_1.ncrd; -#line 22388 "" +#line 22993 "" for (comtrill_1.icrd2 = comtrill_1.icrd1; comtrill_1.icrd2 <= i__1; ++comtrill_1.icrd2) { -#line 22389 "" +#line 22994 "" nolev = igetbits_(&comtrill_1.icrdat[comtrill_1.icrd2 - 1], &c__7, & c__12); -#line 22390 "" +#line 22995 "" levtabl[nolev - 1] = comtrill_1.icrd2; -#line 22391 "" +#line 22996 "" comtrill_1.maxlev = max(comtrill_1.maxlev,nolev); -#line 22392 "" +#line 22997 "" comtrill_1.minlev = min(comtrill_1.minlev,nolev); /* Check for accidental */ -#line 22396 "" +#line 23001 "" if (bit_test(comtrill_1.icrdat[comtrill_1.icrd2 - 1],19)) { -#line 22397 "" +#line 23002 "" ++naccid; -#line 22398 "" +#line 23003 "" levmaxacc = max(levmaxacc,nolev); -#line 22399 "" +#line 23004 "" levminacc = min(levminacc,nolev); /* Add this icrd to list of values for notes with accid's. */ -#line 22403 "" +#line 23008 "" kicrd[naccid - 1] = comtrill_1.icrd2; -#line 22404 "" +#line 23009 "" if (! bit_test(*nacc,28)) { /* Order not forced, so get the level-ranking, top down */ -#line 22408 "" +#line 23013 "" iorder = 1; -#line 22409 "" +#line 23014 "" i__2 = naccid - 1; -#line 22409 "" +#line 23014 "" for (iaccid = 1; iaccid <= i__2; ++iaccid) { -#line 22410 "" +#line 23015 "" if (kicrd[iaccid - 1] == 0) { -#line 22411 "" +#line 23016 "" if (*nolevm > nolev) { -#line 22412 "" +#line 23017 "" ++iorder; -#line 22413 "" +#line 23018 "" } else { -#line 22414 "" +#line 23019 "" ++icrdot0; -#line 22415 "" +#line 23020 "" } -#line 22416 "" +#line 23021 "" } else { -#line 22417 "" +#line 23022 "" if (igetbits_(&comtrill_1.icrdat[kicrd[iaccid - 1] - 1], &c__7, &c__12) > nolev) { -#line 22419 "" +#line 23024 "" ++iorder; -#line 22420 "" +#line 23025 "" } else { -#line 22421 "" +#line 23026 "" iold = igetbits_(&comtrill_1.icrdot[kicrd[iaccid - 1] - 1], &c__3, &c__27); -#line 22422 "" +#line 23027 "" i__3 = iold + 1; -#line 22422 "" +#line 23027 "" setbits_(&comtrill_1.icrdot[kicrd[iaccid - 1] - 1] , &c__3, &c__27, &i__3); -#line 22423 "" +#line 23028 "" } -#line 22424 "" +#line 23029 "" } -#line 22425 "" +#line 23030 "" /* L12: */ -#line 22425 "" +#line 23030 "" } -#line 22426 "" +#line 23031 "" setbits_(&comtrill_1.icrdot[comtrill_1.icrd2 - 1], &c__3, & c__27, &iorder); -#line 22427 "" +#line 23032 "" } -#line 22428 "" +#line 23033 "" } /* Exit loop if last note in this chord */ -#line 22432 "" +#line 23037 "" if (comtrill_1.icrd2 == comtrill_1.ncrd) { -#line 22432 "" +#line 23037 "" goto L4; -#line 22432 "" +#line 23037 "" } -#line 22433 "" +#line 23038 "" if (igetbits_(&comtrill_1.icrdat[comtrill_1.icrd2], &c__8, &c__0) != * ip || igetbits_(&comtrill_1.icrdat[comtrill_1.icrd2], &c__4, & c__8) + (igetbits_(&comtrill_1.icrdat[comtrill_1.icrd2], & c__1, &c__28) << 4) != *ivx) { -#line 22433 "" +#line 23038 "" goto L4; -#line 22433 "" +#line 23038 "" } /* * igetbits(icrdat(icrd2+1),4,8) .ne. ivx) go to 4 */ -#line 22437 "" +#line 23042 "" /* L3: */ -#line 22437 "" +#line 23042 "" } -#line 22438 "" - s_wsle(&io___1556); -#line 22438 "" +#line 23043 "" + s_wsle(&io___1627); +#line 23043 "" e_wsle(); -#line 22439 "" - s_wsle(&io___1557); -#line 22439 "" +#line 23044 "" + s_wsle(&io___1628); +#line 23044 "" do_lio(&c__9, &c__1, "Failed to find last chord note. Send source to Dr."\ " Don!", (ftnlen)55); -#line 22439 "" +#line 23044 "" e_wsle(); -#line 22440 "" +#line 23045 "" stop1_(); -#line 22441 "" +#line 23046 "" L4: /* Now icrd1, icrd2 define range of icrd for this chord. */ /* Bypass autos-shifting if any manual shifts are present */ -#line 22447 "" +#line 23052 "" if (bit_test(*irest,20) || bit_test(*irest,27)) { -#line 22447 "" +#line 23052 "" goto L10; -#line 22447 "" +#line 23052 "" } /* Check for 2nds */ -#line 22451 "" +#line 23056 "" for (ilev = 1; ilev <= 87; ++ilev) { -#line 22452 "" +#line 23057 "" if (levtabl[ilev - 1] != 0 && levtabl[ilev] != 0) { /* There is at least one 2nd.. */ -#line 22456 "" +#line 23061 "" if (*(unsigned char *)udq == 'u') { /* Upstem. Start with 2nd just found and go up, rt-shifting upper */ /* member of each pair */ -#line 22461 "" +#line 23066 "" ile = ilev; /* Set main-note flag for ANY right-shift */ -#line 22465 "" +#line 23070 "" *irest = bit_set(*irest,20); -#line 22466 "" +#line 23071 "" L7: -#line 22467 "" +#line 23072 "" if (levtabl[ile] < 0) { /* Upstem, & upper member is main so must be rt-shifted. This would move */ /* stem too, so we rt-shift the OTHER note, and set flag that signals */ /* to interchange pitches just when these two notes are placed. */ -#line 22473 "" +#line 23078 "" *nacc = bit_set(*nacc,30); -#line 22474 "" +#line 23079 "" comtrill_1.icrdat[levtabl[ile - 1] - 1] = bit_set( comtrill_1.icrdat[levtabl[ile - 1] - 1],24); -#line 22475 "" +#line 23080 "" } else { /* Upper member is chord note, must be rt-shifted */ -#line 22479 "" +#line 23084 "" comtrill_1.icrdat[levtabl[ile] - 1] = bit_set( comtrill_1.icrdat[levtabl[ile] - 1],24); -#line 22480 "" +#line 23085 "" } -#line 22481 "" +#line 23086 "" ++ile; -#line 22482 "" +#line 23087 "" L8: -#line 22483 "" +#line 23088 "" ++ile; -#line 22484 "" +#line 23089 "" if (ile < 87) { -#line 22485 "" +#line 23090 "" if (levtabl[ile - 1] != 0 && levtabl[ile] != 0) { -#line 22486 "" +#line 23091 "" goto L7; -#line 22487 "" +#line 23092 "" } else { -#line 22488 "" +#line 23093 "" goto L8; -#line 22489 "" +#line 23094 "" } -#line 22490 "" +#line 23095 "" } -#line 22491 "" +#line 23096 "" goto L10; -#line 22492 "" +#line 23097 "" } else { /* Downstem. Start at top and work down, left-shifting lower member of each pair. */ /* We know that lowest pair is at (ilev,ilev+1). */ -#line 22497 "" +#line 23102 "" ile = 88; /* Set main-note flag for ANY right-shift */ -#line 22501 "" +#line 23106 "" *irest = bit_set(*irest,27); -#line 22502 "" +#line 23107 "" L9: -#line 22503 "" +#line 23108 "" if (levtabl[ile - 1] != 0 && levtabl[ile - 2] != 0) { -#line 22504 "" +#line 23109 "" if (levtabl[ile - 2] < 0) { /* ipl = ibset(ipl,8) */ @@ -54904,57 +56946,57 @@ L9: /* stem too, so we left-shift the OTHER note, and set flag that signals */ /* to interchange pitches just when these two notes are placed. */ -#line 22511 "" +#line 23116 "" *nacc = bit_set(*nacc,31); -#line 22512 "" +#line 23117 "" comtrill_1.icrdat[levtabl[ile - 1] - 1] = bit_set( comtrill_1.icrdat[levtabl[ile - 1] - 1],23); -#line 22513 "" +#line 23118 "" } else { /* Lower member is chord note, must be shifted */ -#line 22517 "" +#line 23122 "" comtrill_1.icrdat[levtabl[ile - 2] - 1] = bit_set( comtrill_1.icrdat[levtabl[ile - 2] - 1],23); -#line 22519 "" +#line 23124 "" } -#line 22520 "" +#line 23125 "" --ile; -#line 22521 "" +#line 23126 "" } -#line 22522 "" +#line 23127 "" --ile; -#line 22523 "" +#line 23128 "" if (ile >= ilev + 1) { -#line 22523 "" +#line 23128 "" goto L9; -#line 22523 "" +#line 23128 "" } -#line 22524 "" +#line 23129 "" goto L10; -#line 22525 "" +#line 23130 "" } -#line 22526 "" +#line 23131 "" } -#line 22527 "" +#line 23132 "" /* L5: */ -#line 22527 "" +#line 23132 "" } -#line 22528 "" +#line 23133 "" L10: /* Done with 2nds, now do accid's. Call even if just one, in case left shifts. */ /* if (naccid .gt. 1) call crdaccs(nacc,ipl,irest,naccid, */ -#line 22533 "" +#line 23138 "" if (naccid >= 1) { -#line 22533 "" +#line 23138 "" crdaccs_(nacc, ipl, irest, &naccid, kicrd, nolevm, &levmaxacc, & levminacc, &icrdot0, twooftwo, icashft); -#line 22533 "" +#line 23138 "" } -#line 22535 "" +#line 23140 "" return 0; } /* precrd_ */ @@ -54966,26 +57008,26 @@ L10: e_wsfe(void); /* Fortran I/O blocks */ - static cilist io___1560 = { 0, 6, 0, 0, 0 }; - static cilist io___1561 = { 0, 15, 0, "(a)", 0 }; + static cilist io___1631 = { 0, 6, 0, 0, 0 }; + static cilist io___1632 = { 0, 15, 0, "(a)", 0 }; /* Send string to console and to log file */ -#line 22542 "" - s_wsle(&io___1560); -#line 22542 "" +#line 23147 "" + s_wsle(&io___1631); +#line 23147 "" do_lio(&c__9, &c__1, string, string_len); -#line 22542 "" +#line 23147 "" e_wsle(); -#line 22543 "" - s_wsfe(&io___1561); -#line 22543 "" +#line 23148 "" + s_wsfe(&io___1632); +#line 23148 "" do_fio(&c__1, string, string_len); -#line 22543 "" +#line 23148 "" e_wsfe(); -#line 22544 "" +#line 23149 "" return 0; } /* printl_ */ @@ -55023,9 +57065,9 @@ L10: static integer iivivx1; /* Fortran I/O blocks */ - static icilist io___1567 = { 0, notexq+9, 0, "(f3.1,a2)", 5, 1 }; - static cilist io___1573 = { 0, 6, 0, 0, 0 }; - static cilist io___1574 = { 0, 6, 0, 0, 0 }; + static icilist io___1638 = { 0, notexq+9, 0, "(f3.1,a2)", 5, 1 }; + static cilist io___1644 = { 0, 6, 0, 0, 0 }; + static cilist io___1645 = { 0, 6, 0, 0, 0 }; @@ -55033,320 +57075,320 @@ L10: /* Find which iarp, if any */ -#line 22565 "" +#line 23170 "" i__1 = comarp_1.narp; -#line 22565 "" +#line 23170 "" for (iarp = 1; iarp <= i__1; ++iarp) { -#line 22566 "" +#line 23171 "" if ((r__1 = *tnow - comarp_1.tar[iarp - 1], dabs(r__1)) < comtol_1.tol) { -#line 22566 "" +#line 23171 "" goto L2; -#line 22566 "" +#line 23171 "" } -#line 22567 "" +#line 23172 "" /* L1: */ -#line 22567 "" +#line 23172 "" } /* If here, this is the *first* call for this arp. */ -#line 22571 "" +#line 23176 "" ++comarp_1.narp; -#line 22572 "" +#line 23177 "" comarp_1.tar[comarp_1.narp - 1] = *tnow + comtol_1.tol * .5f; -#line 22573 "" +#line 23178 "" comarp_1.ivar1[comarp_1.narp - 1] = *iv; -#line 22574 "" +#line 23179 "" comarp_1.ipar1[comarp_1.narp - 1] = *ip; -#line 22575 "" +#line 23180 "" comarp_1.levar1[comarp_1.narp - 1] = *nolev; -#line 22576 "" +#line 23181 "" comarp_1.ncmar1[comarp_1.narp - 1] = *ncm; -#line 22577 "" +#line 23182 "" return 0; -#line 22578 "" +#line 23183 "" L2: /* If here, this is *second* call at this time, narp points to values from 1st. */ /* Check for shift. Set IsArpShift and iarps */ -#line 22584 "" +#line 23189 "" i__1 = comarpshift_1.numarpshift; -#line 22584 "" +#line 23189 "" for (iarps = 1; iarps <= i__1; ++iarps) { -#line 22585 "" +#line 23190 "" if (comarpshift_1.ivarpshift[iarps - 1] == comarp_1.ivar1[iarp - 1] && comarpshift_1.iparpshift[iarps - 1] == comarp_1.ipar1[iarp - 1]) { -#line 22587 "" +#line 23192 "" isarpshift = TRUE_; /* Writing concatenation */ -#line 22588 "" +#line 23193 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 22588 "" +#line 23193 "" i__2[0] = 1, a__1[0] = ch__1; -#line 22588 "" +#line 23193 "" i__2[1] = 8, a__1[1] = "loffset{"; -#line 22588 "" +#line 23193 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 22589 "" - s_wsfi(&io___1567); -#line 22589 "" +#line 23194 "" + s_wsfi(&io___1638); +#line 23194 "" do_fio(&c__1, (char *)&comarpshift_1.arpshift[iarps - 1], (ftnlen) sizeof(real)); -#line 22589 "" +#line 23194 "" do_fio(&c__1, "}{", (ftnlen)2); -#line 22589 "" +#line 23194 "" e_wsfi(); -#line 22590 "" +#line 23195 "" lnote = 14; -#line 22591 "" +#line 23196 "" goto L4; -#line 22592 "" +#line 23197 "" } -#line 22593 "" +#line 23198 "" /* L3: */ -#line 22593 "" +#line 23198 "" } -#line 22594 "" +#line 23199 "" isarpshift = FALSE_; -#line 22595 "" +#line 23200 "" lnote = 0; -#line 22596 "" +#line 23201 "" L4: -#line 22597 "" +#line 23202 "" if (*iv == comarp_1.ivar1[iarp - 1]) { /* Arp is in a single voice. */ /* Computing MIN */ -#line 22601 "" +#line 23206 "" i__1 = comarp_1.levar1[iarp - 1]; -#line 22601 "" +#line 23206 "" levbot = min(i__1,*nolev) - *ncm + 3; -#line 22602 "" +#line 23207 "" invert = (i__1 = comarp_1.levar1[iarp - 1] - *nolev, abs(i__1)) + 1; -#line 22603 "" +#line 23208 "" } else { /* Arp covers >1 voice. Lower voice has to be the first, upper is current and */ /* is where the symbol will be written. */ /* Check whether ivx's ivar1(iarp) & iv are in same staff */ -#line 22609 "" +#line 23214 "" for (iiv = 1; iiv <= 24; ++iiv) { -#line 22610 "" +#line 23215 "" if (commvl_1.ivmx[iiv - 1] == comarp_1.ivar1[iarp - 1] || commvl_1.nvmx[iiv - 1] == 2 && commvl_1.ivmx[iiv + 23] == comarp_1.ivar1[iarp - 1]) { -#line 22612 "" +#line 23217 "" iivivx1 = iiv; -#line 22613 "" +#line 23218 "" goto L6; -#line 22614 "" +#line 23219 "" } -#line 22615 "" +#line 23220 "" /* L5: */ -#line 22615 "" +#line 23220 "" } -#line 22616 "" - s_wsle(&io___1573); -#line 22616 "" +#line 23221 "" + s_wsle(&io___1644); +#line 23221 "" do_lio(&c__9, &c__1, "Screwup#1 in putarp", (ftnlen)19); -#line 22616 "" +#line 23221 "" e_wsle(); -#line 22617 "" +#line 23222 "" s_stop("", (ftnlen)0); -#line 22618 "" +#line 23223 "" L6: -#line 22619 "" +#line 23224 "" for (iiv = 1; iiv <= 24; ++iiv) { -#line 22620 "" +#line 23225 "" if (commvl_1.ivmx[iiv - 1] == *iv || commvl_1.nvmx[iiv - 1] == 2 && commvl_1.ivmx[iiv + 23] == *iv) { -#line 22620 "" +#line 23225 "" goto L8; -#line 22620 "" +#line 23225 "" } /* Found iv for both voices (iivivx1, iiv), done looking */ -#line 22625 "" +#line 23230 "" /* L7: */ -#line 22625 "" +#line 23230 "" } -#line 22626 "" - s_wsle(&io___1574); -#line 22626 "" +#line 23231 "" + s_wsle(&io___1645); +#line 23231 "" do_lio(&c__9, &c__1, "Screwup#2 in putarp", (ftnlen)19); -#line 22626 "" +#line 23231 "" e_wsle(); -#line 22627 "" +#line 23232 "" s_stop("", (ftnlen)0); -#line 22628 "" +#line 23233 "" L8: -#line 22629 "" +#line 23234 "" if (iivivx1 == iiv) { -#line 22630 "" +#line 23235 "" nstaffshift = 0; -#line 22631 "" +#line 23236 "" } else { -#line 22632 "" +#line 23237 "" r__1 = comarp_1.xinsnow * 2; -#line 22632 "" +#line 23237 "" nstaffshift = -i_nint(&r__1); -#line 22633 "" +#line 23238 "" } /* levbot = -nint(2*xinsnow)+3+levar1(iarp)-ncmar1(iarp) */ -#line 22635 "" +#line 23240 "" levbot = nstaffshift + 3 + comarp_1.levar1[iarp - 1] - comarp_1.ncmar1[iarp - 1]; -#line 22636 "" +#line 23241 "" invert = -levbot + 4 + *nolev - *ncm; -#line 22637 "" +#line 23242 "" } /* isym will be (1,2) if invert is (even,odd). If even, raise .5\internote */ -#line 22641 "" +#line 23246 "" isym = invert % 2 + 1; -#line 22642 "" +#line 23247 "" ilvert = (invert + 1) / 2; -#line 22643 "" +#line 23248 "" if (levbot >= 0 && levbot <= 9) { /* Single digit */ -#line 22647 "" +#line 23252 "" if (! isarpshift) { /* Writing concatenation */ -#line 22648 "" +#line 23253 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 22648 "" +#line 23253 "" i__3[0] = 1, a__2[0] = ch__1; -#line 22648 "" +#line 23253 "" i__3[1] = 8, a__2[1] = symq + (isym - 1 << 3); -#line 22648 "" +#line 23253 "" i__1 = levbot + 48; -#line 22648 "" +#line 23253 "" chax_(ch__2, (ftnlen)1, &i__1); -#line 22648 "" +#line 23253 "" i__3[2] = 1, a__2[2] = ch__2; -#line 22648 "" +#line 23253 "" s_cat(notexq, a__2, i__3, &c__3, (ftnlen)79); -#line 22649 "" +#line 23254 "" } else { /* Writing concatenation */ -#line 22650 "" +#line 23255 "" i__4[0] = lnote, a__3[0] = notexq; -#line 22650 "" +#line 23255 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 22650 "" +#line 23255 "" i__4[1] = 1, a__3[1] = ch__1; -#line 22650 "" +#line 23255 "" i__4[2] = 8, a__3[2] = symq + (isym - 1 << 3); -#line 22650 "" +#line 23255 "" i__1 = levbot + 48; -#line 22650 "" +#line 23255 "" chax_(ch__2, (ftnlen)1, &i__1); -#line 22650 "" +#line 23255 "" i__4[3] = 1, a__3[3] = ch__2; -#line 22650 "" +#line 23255 "" s_cat(notexq, a__3, i__4, &c__4, (ftnlen)79); -#line 22652 "" +#line 23257 "" } -#line 22653 "" +#line 23258 "" lnote += 10; -#line 22654 "" +#line 23259 "" } else { -#line 22655 "" +#line 23260 "" if (! isarpshift) { /* Writing concatenation */ -#line 22656 "" +#line 23261 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 22656 "" +#line 23261 "" i__3[0] = 1, a__2[0] = ch__1; -#line 22656 "" +#line 23261 "" i__3[1] = 8, a__2[1] = symq + (isym - 1 << 3); -#line 22656 "" +#line 23261 "" i__3[2] = 1, a__2[2] = "{"; -#line 22656 "" +#line 23261 "" s_cat(notexq, a__2, i__3, &c__3, (ftnlen)79); -#line 22657 "" +#line 23262 "" } else { /* Writing concatenation */ -#line 22658 "" +#line 23263 "" i__4[0] = lnote, a__3[0] = notexq; -#line 22658 "" +#line 23263 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 22658 "" +#line 23263 "" i__4[1] = 1, a__3[1] = ch__1; -#line 22658 "" +#line 23263 "" i__4[2] = 8, a__3[2] = symq + (isym - 1 << 3); -#line 22658 "" +#line 23263 "" i__4[3] = 1, a__3[3] = "{"; -#line 22658 "" +#line 23263 "" s_cat(notexq, a__3, i__4, &c__4, (ftnlen)79); -#line 22659 "" +#line 23264 "" } -#line 22660 "" +#line 23265 "" lnote += 10; -#line 22661 "" +#line 23266 "" if (levbot >= -9) { /* Need two spaces for number */ -#line 22665 "" +#line 23270 "" i__1 = lnote; -#line 22665 "" +#line 23270 "" ici__1.icierr = 0; -#line 22665 "" +#line 23270 "" ici__1.icirnum = 1; -#line 22665 "" +#line 23270 "" ici__1.icirlen = lnote + 3 - i__1; -#line 22665 "" +#line 23270 "" ici__1.iciunit = notexq + i__1; -#line 22665 "" +#line 23270 "" ici__1.icifmt = "(i2,a1)"; -#line 22665 "" +#line 23270 "" s_wsfi(&ici__1); -#line 22665 "" +#line 23270 "" do_fio(&c__1, (char *)&levbot, (ftnlen)sizeof(integer)); -#line 22665 "" +#line 23270 "" do_fio(&c__1, "}", (ftnlen)1); -#line 22665 "" +#line 23270 "" e_wsfi(); -#line 22666 "" +#line 23271 "" lnote += 3; -#line 22667 "" +#line 23272 "" } else { -#line 22668 "" +#line 23273 "" i__1 = lnote; -#line 22668 "" +#line 23273 "" ici__1.icierr = 0; -#line 22668 "" +#line 23273 "" ici__1.icirnum = 1; -#line 22668 "" +#line 23273 "" ici__1.icirlen = lnote + 4 - i__1; -#line 22668 "" +#line 23273 "" ici__1.iciunit = notexq + i__1; -#line 22668 "" +#line 23273 "" ici__1.icifmt = "(i3,a1)"; -#line 22668 "" +#line 23273 "" s_wsfi(&ici__1); -#line 22668 "" +#line 23273 "" do_fio(&c__1, (char *)&levbot, (ftnlen)sizeof(integer)); -#line 22668 "" +#line 23273 "" do_fio(&c__1, "}", (ftnlen)1); -#line 22668 "" +#line 23273 "" e_wsfi(); -#line 22669 "" +#line 23274 "" lnote += 4; -#line 22670 "" +#line 23275 "" } -#line 22671 "" +#line 23276 "" } /* if (ilvert .le. 9) then */ /* call addstr(notexq(1:lnote)//chax(48+ilvert),lnote+1, */ @@ -55355,70 +57397,70 @@ L8: /* write(notexq(lnote+1:lnote+4),'(a1,i2,a1)')'{',ilvert,'}' */ /* call addstr(notexq(1:lnote+4),lnote+4,soutq,lsout) */ /* end if */ -#line 22680 "" +#line 23285 "" if (ilvert > 9) { -#line 22681 "" +#line 23286 "" i__1 = lnote; -#line 22681 "" +#line 23286 "" ici__1.icierr = 0; -#line 22681 "" +#line 23286 "" ici__1.icirnum = 1; -#line 22681 "" +#line 23286 "" ici__1.icirlen = lnote + 4 - i__1; -#line 22681 "" +#line 23286 "" ici__1.iciunit = notexq + i__1; -#line 22681 "" +#line 23286 "" ici__1.icifmt = "(a1,i2,a1)"; -#line 22681 "" +#line 23286 "" s_wsfi(&ici__1); -#line 22681 "" +#line 23286 "" do_fio(&c__1, "{", (ftnlen)1); -#line 22681 "" +#line 23286 "" do_fio(&c__1, (char *)&ilvert, (ftnlen)sizeof(integer)); -#line 22681 "" +#line 23286 "" do_fio(&c__1, "}", (ftnlen)1); -#line 22681 "" +#line 23286 "" e_wsfi(); -#line 22682 "" +#line 23287 "" lnote += 4; -#line 22683 "" +#line 23288 "" } else { /* Writing concatenation */ -#line 22684 "" +#line 23289 "" i__2[0] = lnote, a__1[0] = notexq; -#line 22684 "" +#line 23289 "" i__1 = ilvert + 48; -#line 22684 "" +#line 23289 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 22684 "" +#line 23289 "" i__2[1] = 1, a__1[1] = ch__1; -#line 22684 "" +#line 23289 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 22685 "" +#line 23290 "" ++lnote; -#line 22686 "" +#line 23291 "" } -#line 22687 "" +#line 23292 "" if (isarpshift) { /* Writing concatenation */ -#line 22688 "" +#line 23293 "" i__2[0] = lnote, a__1[0] = notexq; -#line 22688 "" +#line 23293 "" i__2[1] = 1, a__1[1] = "}"; -#line 22688 "" +#line 23293 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 22689 "" +#line 23294 "" ++lnote; -#line 22690 "" +#line 23295 "" } -#line 22691 "" +#line 23296 "" addstr_(notexq, &lnote, soutq, lsout, lnote, (ftnlen)80); /* cancel out the stored time, to permit two arps at same time! */ -#line 22695 "" +#line 23300 "" comarp_1.tar[iarp - 1] = -1.f; -#line 22696 "" +#line 23301 "" return 0; } /* putarp_ */ @@ -55441,42 +57483,42 @@ L8: static char tag[129], fmtq[9]; /* Fortran I/O blocks */ - static icilist io___1580 = { 0, fmtq, 0, "(a5,i1,a3)", 9, 1 }; + static icilist io___1651 = { 0, fmtq, 0, "(a5,i1,a3)", 9, 1 }; -#line 22701 "" +#line 23306 "" if (*elask >= 0.f) { -#line 22702 "" +#line 23307 "" if (*elask < .995f) { -#line 22703 "" +#line 23308 "" lp = 3; -#line 22704 "" +#line 23309 "" } else if (*elask < 9.995f) { -#line 22705 "" +#line 23310 "" lp = 4; -#line 22706 "" +#line 23311 "" } else { -#line 22707 "" +#line 23312 "" lp = 5; -#line 22708 "" +#line 23313 "" } -#line 22709 "" - s_wsfi(&io___1580); -#line 22709 "" +#line 23314 "" + s_wsfi(&io___1651); +#line 23314 "" do_fio(&c__1, "(a2,f", (ftnlen)5); -#line 22709 "" +#line 23314 "" do_fio(&c__1, (char *)&lp, (ftnlen)sizeof(integer)); -#line 22709 "" +#line 23314 "" do_fio(&c__1, ".2)", (ftnlen)3); -#line 22709 "" +#line 23314 "" e_wsfi(); -#line 22710 "" +#line 23315 "" } else { -#line 22711 "" +#line 23316 "" lp = 5; -#line 22712 "" +#line 23317 "" s_copy(fmtq, "(a2,f5.1)", (ftnlen)9, (ftnlen)9); -#line 22713 "" +#line 23318 "" } /* Overwrite as follows: ...xyz*ask *lmnop... -> */ @@ -55484,40 +57526,40 @@ L8: /* ...xyz*ast{n.nn}*lmnop... */ /* ...xyz*ast{nn.nn}*lmnop... */ /* or for negative, ...xyz*ast{-nn.n}*lmnop... */ -#line 22720 "" +#line 23325 "" i__1 = *indxask + 8; -#line 22720 "" +#line 23325 "" s_copy(tag, outq + i__1, (ftnlen)129, 129 - i__1); -#line 22721 "" +#line 23326 "" i__1 = *indxask + 2; -#line 22721 "" +#line 23326 "" ici__1.icierr = 0; -#line 22721 "" +#line 23326 "" ici__1.icirnum = 1; -#line 22721 "" +#line 23326 "" ici__1.icirlen = 129 - i__1; -#line 22721 "" +#line 23326 "" ici__1.iciunit = outq + i__1; -#line 22721 "" +#line 23326 "" ici__1.icifmt = fmtq; -#line 22721 "" +#line 23326 "" s_wsfi(&ici__1); -#line 22721 "" +#line 23326 "" do_fio(&c__1, "t{", (ftnlen)2); -#line 22721 "" +#line 23326 "" do_fio(&c__1, (char *)&(*elask), (ftnlen)sizeof(real)); -#line 22721 "" +#line 23326 "" e_wsfi(); /* Writing concatenation */ -#line 22722 "" +#line 23327 "" i__2[0] = *indxask + 4 + lp, a__1[0] = outq; -#line 22722 "" +#line 23327 "" i__2[1] = 1, a__1[1] = "}"; -#line 22722 "" +#line 23327 "" i__2[2] = 129, a__1[2] = tag; -#line 22722 "" +#line 23327 "" s_cat(outq, a__1, i__2, &c__3, (ftnlen)129); -#line 22723 "" +#line 23328 "" return 0; } /* putast_ */ @@ -55545,247 +57587,247 @@ L8: extern /* Subroutine */ int printl_(char *, ftnlen); /* ivxip = ivx+16*ip */ -#line 22730 "" +#line 23335 "" i__1 = comcb_1.nbc; -#line 22730 "" +#line 23335 "" for (ibc = 1; ibc <= i__1; ++ibc) { /* if (ivxip .eq. iand(1023,ibcdata(ibc))) go to 2 */ /* if (ivx.eq.iand(15,ibcdata(ibc))+16*igetbits(ibcdata(ibc),1,28) */ /* * .and. ip.eq.iand(1008,ibcdata(ibc))) go to 2 */ -#line 22734 "" +#line 23339 "" ivxbc = (15 & comcb_1.ibcdata[ibc - 1]) + (igetbits_(&comcb_1.ibcdata[ ibc - 1], &c__1, &c__28) << 4); -#line 22735 "" +#line 23340 "" ipbc = igetbits_(&comcb_1.ibcdata[ibc - 1], &c__8, &c__4); -#line 22736 "" +#line 23341 "" if (*ivx == ivxbc && *ip == ipbc) { -#line 22736 "" +#line 23341 "" goto L2; -#line 22736 "" +#line 23341 "" } -#line 22737 "" +#line 23342 "" /* L1: */ -#line 22737 "" +#line 23342 "" } -#line 22738 "" +#line 23343 "" printl_("Error in putbc, Call Dr. Don", (ftnlen)28); -#line 22739 "" +#line 23344 "" s_stop("", (ftnlen)0); -#line 22740 "" +#line 23345 "" L2: -#line 22741 "" +#line 23346 "" if (bit_test(comcb_1.ibcdata[ibc - 1],27)) { -#line 22742 "" +#line 23347 "" *lnote = 8; -#line 22743 "" +#line 23348 "" s_copy(notexq, "\\pbreath", (ftnlen)79, (ftnlen)8); -#line 22744 "" +#line 23349 "" } else { -#line 22745 "" +#line 23350 "" *lnote = 9; -#line 22746 "" +#line 23351 "" s_copy(notexq, "\\pcaesura", (ftnlen)79, (ftnlen)9); -#line 22747 "" +#line 23352 "" } -#line 22748 "" +#line 23353 "" ivshft = igetbits_(&comcb_1.ibcdata[ibc - 1], &c__6, &c__13); /* ?? ivshft = igetbits(ibcdata(ibc),6,13)-32 */ -#line 22750 "" +#line 23355 "" if (ivshft > 0) { -#line 22750 "" +#line 23355 "" ivshft += -32; -#line 22750 "" +#line 23355 "" } -#line 22751 "" +#line 23356 "" if (ivshft < 0 || ivshft > 9) { /* Writing concatenation */ -#line 22752 "" +#line 23357 "" i__2[0] = *lnote, a__1[0] = notexq; -#line 22752 "" +#line 23357 "" i__2[1] = 1, a__1[1] = "{"; -#line 22752 "" +#line 23357 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 22753 "" +#line 23358 "" ++(*lnote); -#line 22754 "" +#line 23359 "" if (ivshft < -9) { -#line 22755 "" +#line 23360 "" i__1 = *lnote; -#line 22755 "" +#line 23360 "" ici__1.icierr = 0; -#line 22755 "" +#line 23360 "" ici__1.icirnum = 1; -#line 22755 "" +#line 23360 "" ici__1.icirlen = *lnote + 3 - i__1; -#line 22755 "" +#line 23360 "" ici__1.iciunit = notexq + i__1; -#line 22755 "" +#line 23360 "" ici__1.icifmt = "(i3)"; -#line 22755 "" +#line 23360 "" s_wsfi(&ici__1); -#line 22755 "" +#line 23360 "" do_fio(&c__1, (char *)&ivshft, (ftnlen)sizeof(integer)); -#line 22755 "" +#line 23360 "" e_wsfi(); -#line 22756 "" +#line 23361 "" *lnote += 3; -#line 22757 "" +#line 23362 "" } else { -#line 22758 "" +#line 23363 "" i__1 = *lnote; -#line 22758 "" +#line 23363 "" ici__1.icierr = 0; -#line 22758 "" +#line 23363 "" ici__1.icirnum = 1; -#line 22758 "" +#line 23363 "" ici__1.icirlen = *lnote + 2 - i__1; -#line 22758 "" +#line 23363 "" ici__1.iciunit = notexq + i__1; -#line 22758 "" +#line 23363 "" ici__1.icifmt = "(i2)"; -#line 22758 "" +#line 23363 "" s_wsfi(&ici__1); -#line 22758 "" +#line 23363 "" do_fio(&c__1, (char *)&ivshft, (ftnlen)sizeof(integer)); -#line 22758 "" +#line 23363 "" e_wsfi(); -#line 22759 "" +#line 23364 "" *lnote += 2; -#line 22760 "" +#line 23365 "" } /* Writing concatenation */ -#line 22761 "" +#line 23366 "" i__2[0] = *lnote, a__1[0] = notexq; -#line 22761 "" +#line 23366 "" i__2[1] = 1, a__1[1] = "}"; -#line 22761 "" +#line 23366 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 22762 "" +#line 23367 "" ++(*lnote); -#line 22763 "" +#line 23368 "" } else { /* Writing concatenation */ -#line 22764 "" +#line 23369 "" i__2[0] = *lnote, a__1[0] = notexq; -#line 22764 "" +#line 23369 "" *(unsigned char *)&ch__1[0] = ivshft + 48; -#line 22764 "" +#line 23369 "" i__2[1] = 1, a__1[1] = ch__1; -#line 22764 "" +#line 23369 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 22765 "" +#line 23370 "" ++(*lnote); -#line 22766 "" +#line 23371 "" } -#line 22767 "" +#line 23372 "" ihshft = igetbits_(&comcb_1.ibcdata[ibc - 1], &c__8, &c__19); -#line 22768 "" +#line 23373 "" if (ihshft == 0) { /* Writing concatenation */ -#line 22769 "" +#line 23374 "" i__2[0] = *lnote, a__1[0] = notexq; -#line 22769 "" +#line 23374 "" i__2[1] = 1, a__1[1] = "0"; -#line 22769 "" +#line 23374 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 22770 "" +#line 23375 "" ++(*lnote); -#line 22771 "" +#line 23376 "" } else { -#line 22772 "" +#line 23377 "" hshft = (ihshft - 128) * .1f; /* -12.8<hshft<12.8 */ /* Writing concatenation */ -#line 22776 "" +#line 23381 "" i__2[0] = *lnote, a__1[0] = notexq; -#line 22776 "" +#line 23381 "" i__2[1] = 1, a__1[1] = "{"; -#line 22776 "" +#line 23381 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 22777 "" +#line 23382 "" ++(*lnote); -#line 22778 "" +#line 23383 "" if (hshft < -9.95f) { -#line 22779 "" +#line 23384 "" i__1 = *lnote; -#line 22779 "" +#line 23384 "" ici__1.icierr = 0; -#line 22779 "" +#line 23384 "" ici__1.icirnum = 1; -#line 22779 "" +#line 23384 "" ici__1.icirlen = *lnote + 5 - i__1; -#line 22779 "" +#line 23384 "" ici__1.iciunit = notexq + i__1; -#line 22779 "" +#line 23384 "" ici__1.icifmt = "(f5.1)"; -#line 22779 "" +#line 23384 "" s_wsfi(&ici__1); -#line 22779 "" +#line 23384 "" do_fio(&c__1, (char *)&hshft, (ftnlen)sizeof(real)); -#line 22779 "" +#line 23384 "" e_wsfi(); -#line 22780 "" +#line 23385 "" *lnote += 5; -#line 22781 "" +#line 23386 "" } else if (hshft < -.05f || hshft > 9.95f) { -#line 22782 "" +#line 23387 "" i__1 = *lnote; -#line 22782 "" +#line 23387 "" ici__1.icierr = 0; -#line 22782 "" +#line 23387 "" ici__1.icirnum = 1; -#line 22782 "" +#line 23387 "" ici__1.icirlen = *lnote + 4 - i__1; -#line 22782 "" +#line 23387 "" ici__1.iciunit = notexq + i__1; -#line 22782 "" +#line 23387 "" ici__1.icifmt = "(f4.1)"; -#line 22782 "" +#line 23387 "" s_wsfi(&ici__1); -#line 22782 "" +#line 23387 "" do_fio(&c__1, (char *)&hshft, (ftnlen)sizeof(real)); -#line 22782 "" +#line 23387 "" e_wsfi(); -#line 22783 "" +#line 23388 "" *lnote += 4; -#line 22784 "" +#line 23389 "" } else { -#line 22785 "" +#line 23390 "" i__1 = *lnote; -#line 22785 "" +#line 23390 "" ici__1.icierr = 0; -#line 22785 "" +#line 23390 "" ici__1.icirnum = 1; -#line 22785 "" +#line 23390 "" ici__1.icirlen = *lnote + 3 - i__1; -#line 22785 "" +#line 23390 "" ici__1.iciunit = notexq + i__1; -#line 22785 "" +#line 23390 "" ici__1.icifmt = "(f3.1)"; -#line 22785 "" +#line 23390 "" s_wsfi(&ici__1); -#line 22785 "" +#line 23390 "" do_fio(&c__1, (char *)&hshft, (ftnlen)sizeof(real)); -#line 22785 "" +#line 23390 "" e_wsfi(); -#line 22786 "" +#line 23391 "" *lnote += 3; -#line 22787 "" +#line 23392 "" } /* Writing concatenation */ -#line 22788 "" +#line 23393 "" i__2[0] = *lnote, a__1[0] = notexq; -#line 22788 "" +#line 23393 "" i__2[1] = 1, a__1[1] = "}"; -#line 22788 "" +#line 23393 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 22789 "" +#line 23394 "" ++(*lnote); -#line 22790 "" +#line 23395 "" } -#line 22791 "" +#line 23396 "" return 0; } /* putcb_ */ @@ -55825,188 +57867,188 @@ L2: ; /* Fortran I/O blocks */ - static icilist io___1593 = { 0, notexq+5, 0, "(f6.2)", 6, 1 }; - static icilist io___1594 = { 0, notexq+5, 0, "(f5.2)", 5, 1 }; - static icilist io___1595 = { 0, notexq+5, 0, "(f4.2)", 4, 1 }; - static icilist io___1596 = { 0, notexq+5, 0, "(f3.2)", 3, 1 }; - static icilist io___1609 = { 0, notexq+5, 0, "(f6.2)", 6, 1 }; - static icilist io___1610 = { 0, notexq+5, 0, "(f5.2)", 5, 1 }; - static icilist io___1611 = { 0, notexq+5, 0, "(f4.2)", 4, 1 }; - static icilist io___1612 = { 0, notexq+5, 0, "(f3.2)", 3, 1 }; + static icilist io___1664 = { 0, notexq+5, 0, "(f6.2)", 6, 1 }; + static icilist io___1665 = { 0, notexq+5, 0, "(f5.2)", 5, 1 }; + static icilist io___1666 = { 0, notexq+5, 0, "(f4.2)", 4, 1 }; + static icilist io___1667 = { 0, notexq+5, 0, "(f3.2)", 3, 1 }; + static icilist io___1680 = { 0, notexq+5, 0, "(f6.2)", 6, 1 }; + static icilist io___1681 = { 0, notexq+5, 0, "(f5.2)", 5, 1 }; + static icilist io___1682 = { 0, notexq+5, 0, "(f4.2)", 4, 1 }; + static icilist io___1683 = { 0, notexq+5, 0, "(f3.2)", 3, 1 }; -#line 22803 "" +#line 23408 "" if (*ivx == 1) { -#line 22804 "" +#line 23409 "" s_copy(figutq, "Figu", (ftnlen)4, (ftnlen)4); -#line 22805 "" +#line 23410 "" s_copy(conttq, "Cont", (ftnlen)4, (ftnlen)4); -#line 22806 "" +#line 23411 "" } else { -#line 22807 "" +#line 23412 "" s_copy(figutq, "Figt", (ftnlen)4, (ftnlen)4); -#line 22808 "" +#line 23413 "" s_copy(conttq, "Cott", (ftnlen)4, (ftnlen)4); -#line 22809 "" +#line 23414 "" } -#line 22810 "" +#line 23415 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 22810 "" +#line 23415 "" *(unsigned char *)sq = *(unsigned char *)&ch__1[0]; -#line 22811 "" +#line 23416 "" if (comfig_2.ivvfig[*ivx + (*ifig << 1) - 3] != 0) { /* Alter figdrop */ /* Writing concatenation */ -#line 22815 "" +#line 23420 "" i__1[0] = 1, a__1[0] = sq; -#line 22815 "" +#line 23420 "" i__1[1] = 6, a__1[1] = "global"; -#line 22815 "" +#line 23420 "" i__1[2] = 1, a__1[2] = sq; -#line 22815 "" +#line 23420 "" i__1[3] = 7, a__1[3] = "advance"; -#line 22815 "" +#line 23420 "" i__1[4] = 1, a__1[4] = sq; -#line 22815 "" +#line 23420 "" i__1[5] = 7, a__1[5] = "figdrop"; -#line 22815 "" +#line 23420 "" s_cat(notexq, a__1, i__1, &c__6, (ftnlen)80); -#line 22816 "" +#line 23421 "" lnote = 23; -#line 22817 "" +#line 23422 "" if (comfig_2.ivvfig[*ivx + (*ifig << 1) - 3] < 0) { /* Writing concatenation */ -#line 22818 "" +#line 23423 "" i__2[0] = lnote, a__2[0] = notexq; -#line 22818 "" +#line 23423 "" i__2[1] = 1, a__2[1] = "-"; -#line 22818 "" +#line 23423 "" s_cat(notexq, a__2, i__2, &c__2, (ftnlen)80); -#line 22819 "" +#line 23424 "" ++lnote; -#line 22820 "" +#line 23425 "" } /* Writing concatenation */ -#line 22821 "" +#line 23426 "" i__2[0] = lnote, a__2[0] = notexq; -#line 22821 "" +#line 23426 "" *(unsigned char *)&ch__1[0] = (i__3 = comfig_2.ivvfig[*ivx + (*ifig << 1) - 3], abs(i__3)) + 48; -#line 22821 "" +#line 23426 "" i__2[1] = 1, a__2[1] = ch__1; -#line 22821 "" +#line 23426 "" s_cat(notexq, a__2, i__2, &c__2, (ftnlen)80); -#line 22822 "" +#line 23427 "" ++lnote; -#line 22823 "" +#line 23428 "" addstr_(notexq, &lnote, soutq, lsout, (ftnlen)80, (ftnlen)80); -#line 22824 "" +#line 23429 "" } -#line 22825 "" +#line 23430 "" if (dabs(*offnsk) > 1e-4f) { /* Write offset for floating figure, to two decimal places */ /* Writing concatenation */ -#line 22829 "" +#line 23434 "" i__2[0] = 1, a__2[0] = sq; -#line 22829 "" +#line 23434 "" i__2[1] = 4, a__2[1] = "off{"; -#line 22829 "" +#line 23434 "" s_cat(notexq, a__2, i__2, &c__2, (ftnlen)80); -#line 22830 "" +#line 23435 "" if (-(*offnsk) < -9.995f) { -#line 22831 "" - s_wsfi(&io___1593); -#line 22831 "" +#line 23436 "" + s_wsfi(&io___1664); +#line 23436 "" r__1 = -(*offnsk); -#line 22831 "" +#line 23436 "" do_fio(&c__1, (char *)&r__1, (ftnlen)sizeof(real)); -#line 22831 "" +#line 23436 "" e_wsfi(); -#line 22832 "" +#line 23437 "" lnote = 11; -#line 22833 "" +#line 23438 "" } else if (-(*offnsk) < -.995f || -(*offnsk) > 9.995f) { -#line 22834 "" - s_wsfi(&io___1594); -#line 22834 "" +#line 23439 "" + s_wsfi(&io___1665); +#line 23439 "" r__1 = -(*offnsk); -#line 22834 "" +#line 23439 "" do_fio(&c__1, (char *)&r__1, (ftnlen)sizeof(real)); -#line 22834 "" +#line 23439 "" e_wsfi(); -#line 22835 "" +#line 23440 "" lnote = 10; -#line 22836 "" +#line 23441 "" } else if (-(*offnsk) < -1e-4f || -(*offnsk) > .995f) { -#line 22837 "" - s_wsfi(&io___1595); -#line 22837 "" +#line 23442 "" + s_wsfi(&io___1666); +#line 23442 "" r__1 = -(*offnsk); -#line 22837 "" +#line 23442 "" do_fio(&c__1, (char *)&r__1, (ftnlen)sizeof(real)); -#line 22837 "" +#line 23442 "" e_wsfi(); -#line 22838 "" +#line 23443 "" lnote = 9; -#line 22839 "" +#line 23444 "" } else { -#line 22840 "" - s_wsfi(&io___1596); -#line 22840 "" +#line 23445 "" + s_wsfi(&io___1667); +#line 23445 "" r__1 = -(*offnsk); -#line 22840 "" +#line 23445 "" do_fio(&c__1, (char *)&r__1, (ftnlen)sizeof(real)); -#line 22840 "" +#line 23445 "" e_wsfi(); -#line 22841 "" +#line 23446 "" lnote = 8; -#line 22842 "" +#line 23447 "" } /* Writing concatenation */ -#line 22843 "" +#line 23448 "" i__4[0] = lnote, a__3[0] = notexq; -#line 22843 "" +#line 23448 "" i__4[1] = 1, a__3[1] = sq; -#line 22843 "" +#line 23448 "" i__4[2] = 9, a__3[2] = "noteskip}"; -#line 22843 "" +#line 23448 "" s_cat(notexq, a__3, i__4, &c__3, (ftnlen)80); -#line 22844 "" +#line 23449 "" i__3 = lnote + 10; -#line 22844 "" +#line 23449 "" addstr_(notexq, &i__3, soutq, lsout, (ftnlen)80, (ftnlen)80); -#line 22845 "" +#line 23450 "" } -#line 22846 "" +#line 23451 "" s_copy(figq, comfig_2.figqq + (*ivx + (*ifig << 1) - 3) * 10, (ftnlen)10, (ftnlen)10); -#line 22847 "" +#line 23452 "" ic = 1; /* nof = 0 */ /* nofa = -1 */ -#line 22850 "" +#line 23455 "" nof = -comfig_2.ivupfig[*ivx + (*ifig << 1) - 3]; -#line 22851 "" +#line 23456 "" nofa = -comfig_2.ivupfig[*ivx + (*ifig << 1) - 3] - 1; /* Beginning of manual loop */ -#line 22855 "" +#line 23460 "" L1: -#line 22855 "" +#line 23460 "" *(unsigned char *)ch1q = *(unsigned char *)&figq[ic - 1]; /* Exit when first blank is encountered */ -#line 22859 "" +#line 23464 "" if (*(unsigned char *)ch1q == ' ') { -#line 22859 "" +#line 23464 "" goto L2; -#line 22859 "" +#line 23464 "" } /* Starting a level. Set up vertical offset. */ @@ -56027,387 +58069,387 @@ L1: /* lnofa = 2 */ /* nofaq = '1'//chax(nofa+38) */ /* end if */ -#line 22879 "" +#line 23484 "" istring_(&nof, nofq, &lnof, (ftnlen)5); -#line 22880 "" +#line 23485 "" istring_(&nofa, nofaq, &lnofa, (ftnlen)5); -#line 22881 "" +#line 23486 "" if (*(unsigned char *)ch1q == '0') { /* Continuation figure. Next number is length (in noteskips). The number will */ /* end at the first blank or char that is not digit or decimal point. If */ /* colon, it is a separator and must be skipped */ -#line 22887 "" +#line 23492 "" icnum = ic + 1; -#line 22888 "" +#line 23493 "" L3: -#line 22889 "" +#line 23494 "" ++ic; -#line 22890 "" +#line 23495 "" if (i_indx("0123456789.", figq + (ic - 1), (ftnlen)11, (ftnlen)1) > 0) { -#line 22890 "" +#line 23495 "" goto L3; -#line 22890 "" +#line 23495 "" } -#line 22891 "" +#line 23496 "" lnum = ic - icnum; /* Writing concatenation */ -#line 22892 "" +#line 23497 "" i__1[0] = 1, a__1[0] = sq; -#line 22892 "" +#line 23497 "" i__1[1] = 4, a__1[1] = conttq; -#line 22892 "" +#line 23497 "" i__1[2] = lnof, a__1[2] = nofq; -#line 22892 "" +#line 23497 "" i__1[3] = 1, a__1[3] = "{"; -#line 22892 "" +#line 23497 "" i__1[4] = ic - 1 - (icnum - 1), a__1[4] = figq + (icnum - 1); -#line 22892 "" +#line 23497 "" i__1[5] = 1, a__1[5] = "}"; -#line 22892 "" +#line 23497 "" s_cat(ch__2, a__1, i__1, &c__6, (ftnlen)22); -#line 22892 "" +#line 23497 "" i__3 = ic + 7 - icnum + lnof; -#line 22892 "" +#line 23497 "" addstr_(ch__2, &i__3, soutq, lsout, lnof + 6 + (ic - 1 - (icnum - 1)) + 1, (ftnlen)80); -#line 22894 "" +#line 23499 "" if (*(unsigned char *)&figq[ic - 1] != ':') { -#line 22894 "" +#line 23499 "" --ic; -#line 22894 "" +#line 23499 "" } -#line 22895 "" +#line 23500 "" } else if (*(unsigned char *)ch1q == '#' || *(unsigned char *)ch1q == '-' || *(unsigned char *)ch1q == 'n') { -#line 22896 "" +#line 23501 "" ++ic; -#line 22897 "" +#line 23502 "" *(unsigned char *)ch2q = *(unsigned char *)&figq[ic - 1]; -#line 22898 "" +#line 23503 "" if (*(unsigned char *)ch2q == ' ') { /* Figure is a stand-alone accidental, so must be centered */ -#line 22902 "" +#line 23507 "" if (*(unsigned char *)ch1q == '#') { /* Writing concatenation */ -#line 22903 "" +#line 23508 "" i__1[0] = 1, a__1[0] = sq; -#line 22903 "" +#line 23508 "" i__1[1] = 4, a__1[1] = figutq; -#line 22903 "" +#line 23508 "" i__1[2] = lnofa, a__1[2] = nofaq; -#line 22903 "" +#line 23508 "" i__1[3] = 1, a__1[3] = "{"; -#line 22903 "" +#line 23508 "" i__1[4] = 1, a__1[4] = sq; -#line 22903 "" +#line 23508 "" i__1[5] = 9, a__1[5] = "sharpfig}"; -#line 22903 "" +#line 23508 "" s_cat(ch__3, a__1, i__1, &c__6, (ftnlen)21); -#line 22903 "" +#line 23508 "" i__3 = lnofa + 16; -#line 22903 "" +#line 23508 "" addstr_(ch__3, &i__3, soutq, lsout, lnofa + 16, (ftnlen)80); -#line 22905 "" +#line 23510 "" } else if (*(unsigned char *)ch1q == '-') { /* Writing concatenation */ -#line 22906 "" +#line 23511 "" i__1[0] = 1, a__1[0] = sq; -#line 22906 "" +#line 23511 "" i__1[1] = 4, a__1[1] = figutq; -#line 22906 "" +#line 23511 "" i__1[2] = lnofa, a__1[2] = nofaq; -#line 22906 "" +#line 23511 "" i__1[3] = 1, a__1[3] = "{"; -#line 22906 "" +#line 23511 "" i__1[4] = 1, a__1[4] = sq; -#line 22906 "" +#line 23511 "" i__1[5] = 8, a__1[5] = "flatfig}"; -#line 22906 "" +#line 23511 "" s_cat(ch__4, a__1, i__1, &c__6, (ftnlen)20); -#line 22906 "" +#line 23511 "" i__3 = lnofa + 15; -#line 22906 "" +#line 23511 "" addstr_(ch__4, &i__3, soutq, lsout, lnofa + 15, (ftnlen)80); -#line 22908 "" +#line 23513 "" } else if (*(unsigned char *)ch1q == 'n') { /* Writing concatenation */ -#line 22909 "" +#line 23514 "" i__1[0] = 1, a__1[0] = sq; -#line 22909 "" +#line 23514 "" i__1[1] = 4, a__1[1] = figutq; -#line 22909 "" +#line 23514 "" i__1[2] = lnofa, a__1[2] = nofaq; -#line 22909 "" +#line 23514 "" i__1[3] = 1, a__1[3] = "{"; -#line 22909 "" +#line 23514 "" i__1[4] = 1, a__1[4] = sq; -#line 22909 "" +#line 23514 "" i__1[5] = 7, a__1[5] = "natfig}"; -#line 22909 "" +#line 23514 "" s_cat(ch__5, a__1, i__1, &c__6, (ftnlen)19); -#line 22909 "" +#line 23514 "" i__3 = lnofa + 14; -#line 22909 "" +#line 23514 "" addstr_(ch__5, &i__3, soutq, lsout, lnofa + 14, (ftnlen)80); -#line 22911 "" +#line 23516 "" } -#line 22912 "" +#line 23517 "" goto L2; -#line 22913 "" +#line 23518 "" } else { /* Figure is an accidental followed by a number */ /* First put the accidental (offset to the left) */ -#line 22918 "" +#line 23523 "" if (*(unsigned char *)ch1q == '#') { /* Writing concatenation */ -#line 22919 "" +#line 23524 "" i__1[0] = 1, a__1[0] = sq; -#line 22919 "" +#line 23524 "" i__1[1] = 4, a__1[1] = figutq; -#line 22919 "" +#line 23524 "" i__1[2] = lnofa, a__1[2] = nofaq; -#line 22919 "" +#line 23524 "" i__1[3] = 1, a__1[3] = "{"; -#line 22919 "" +#line 23524 "" i__1[4] = 1, a__1[4] = sq; -#line 22919 "" +#line 23524 "" i__1[5] = 6, a__1[5] = "fsmsh}"; -#line 22919 "" +#line 23524 "" s_cat(ch__6, a__1, i__1, &c__6, (ftnlen)18); -#line 22919 "" +#line 23524 "" i__3 = lnofa + 13; -#line 22919 "" +#line 23524 "" addstr_(ch__6, &i__3, soutq, lsout, lnofa + 13, (ftnlen)80); -#line 22922 "" +#line 23527 "" } else if (*(unsigned char *)ch1q == '-') { /* Writing concatenation */ -#line 22923 "" +#line 23528 "" i__1[0] = 1, a__1[0] = sq; -#line 22923 "" +#line 23528 "" i__1[1] = 4, a__1[1] = figutq; -#line 22923 "" +#line 23528 "" i__1[2] = lnofa, a__1[2] = nofaq; -#line 22923 "" +#line 23528 "" i__1[3] = 1, a__1[3] = "{"; -#line 22923 "" +#line 23528 "" i__1[4] = 1, a__1[4] = sq; -#line 22923 "" +#line 23528 "" i__1[5] = 6, a__1[5] = "fsmfl}"; -#line 22923 "" +#line 23528 "" s_cat(ch__6, a__1, i__1, &c__6, (ftnlen)18); -#line 22923 "" +#line 23528 "" i__3 = lnofa + 13; -#line 22923 "" +#line 23528 "" addstr_(ch__6, &i__3, soutq, lsout, lnofa + 13, (ftnlen)80); -#line 22926 "" +#line 23531 "" } else if (*(unsigned char *)ch1q == 'n') { /* Writing concatenation */ -#line 22927 "" +#line 23532 "" i__1[0] = 1, a__1[0] = sq; -#line 22927 "" +#line 23532 "" i__1[1] = 4, a__1[1] = figutq; -#line 22927 "" +#line 23532 "" i__1[2] = lnofa, a__1[2] = nofaq; -#line 22927 "" +#line 23532 "" i__1[3] = 1, a__1[3] = "{"; -#line 22927 "" +#line 23532 "" i__1[4] = 1, a__1[4] = sq; -#line 22927 "" +#line 23532 "" i__1[5] = 6, a__1[5] = "fsmna}"; -#line 22927 "" +#line 23532 "" s_cat(ch__6, a__1, i__1, &c__6, (ftnlen)18); -#line 22927 "" +#line 23532 "" i__3 = lnofa + 13; -#line 22927 "" +#line 23532 "" addstr_(ch__6, &i__3, soutq, lsout, lnofa + 13, (ftnlen)80); -#line 22930 "" +#line 23535 "" } /* Now put the number */ /* Writing concatenation */ -#line 22934 "" +#line 23539 "" i__1[0] = 1, a__1[0] = sq; -#line 22934 "" +#line 23539 "" i__1[1] = 4, a__1[1] = figutq; -#line 22934 "" +#line 23539 "" i__1[2] = lnof, a__1[2] = nofq; -#line 22934 "" +#line 23539 "" i__1[3] = 1, a__1[3] = "{"; -#line 22934 "" +#line 23539 "" i__1[4] = 1, a__1[4] = ch2q; -#line 22934 "" +#line 23539 "" i__1[5] = 1, a__1[5] = "}"; -#line 22934 "" +#line 23539 "" s_cat(ch__7, a__1, i__1, &c__6, (ftnlen)13); -#line 22934 "" +#line 23539 "" i__3 = lnof + 8; -#line 22934 "" +#line 23539 "" addstr_(ch__7, &i__3, soutq, lsout, lnof + 8, (ftnlen)80); -#line 22936 "" +#line 23541 "" } -#line 22937 "" +#line 23542 "" } else if (*(unsigned char *)ch1q == '_') { /* Placeholder only (for lowering a figure). Don't do anything! */ -#line 22942 "" +#line 23547 "" } else { /* Figure is a single number, maybe with s after */ /* Writing concatenation */ -#line 22946 "" +#line 23551 "" i__5[0] = 1, a__4[0] = sq; -#line 22946 "" +#line 23551 "" i__5[1] = 4, a__4[1] = figutq; -#line 22946 "" +#line 23551 "" i__5[2] = lnof, a__4[2] = nofq; -#line 22946 "" +#line 23551 "" i__5[3] = 1, a__4[3] = "{"; -#line 22946 "" +#line 23551 "" s_cat(ch__8, a__4, i__5, &c__4, (ftnlen)11); -#line 22946 "" +#line 23551 "" i__3 = lnof + 6; -#line 22946 "" +#line 23551 "" addstr_(ch__8, &i__3, soutq, lsout, lnof + 6, (ftnlen)80); -#line 22948 "" +#line 23553 "" i__3 = ic; -#line 22948 "" +#line 23553 "" s_copy(ch2q, figq + i__3, (ftnlen)1, ic + 1 - i__3); -#line 22949 "" +#line 23554 "" if (*(unsigned char *)ch2q == 's') { /* Use a special character. Insert font call */ -#line 22953 "" +#line 23558 "" ++ic; /* Writing concatenation */ -#line 22954 "" +#line 23559 "" i__2[0] = 1, a__2[0] = sq; -#line 22954 "" +#line 23559 "" i__2[1] = 7, a__2[1] = "ligfont"; -#line 22954 "" +#line 23559 "" s_cat(ch__9, a__2, i__2, &c__2, (ftnlen)8); -#line 22954 "" +#line 23559 "" addstr_(ch__9, &c__8, soutq, lsout, (ftnlen)8, (ftnlen)80); -#line 22955 "" +#line 23560 "" } /* Writing concatenation */ -#line 22956 "" +#line 23561 "" i__2[0] = 1, a__2[0] = ch1q; -#line 22956 "" +#line 23561 "" i__2[1] = 1, a__2[1] = "}"; -#line 22956 "" +#line 23561 "" s_cat(ch__10, a__2, i__2, &c__2, (ftnlen)2); -#line 22956 "" +#line 23561 "" addstr_(ch__10, &c__2, soutq, lsout, (ftnlen)2, (ftnlen)80); /* call addstr(sq//Figutq//nofq(1:lnof)//'{'//ch1q//'}', */ /* * 8+lnof,soutq,lsout) */ -#line 22959 "" +#line 23564 "" } -#line 22960 "" +#line 23565 "" if (ic >= 10) { -#line 22960 "" +#line 23565 "" goto L2; -#line 22960 "" +#line 23565 "" } -#line 22961 "" +#line 23566 "" ++ic; -#line 22962 "" +#line 23567 "" nof += 4; -#line 22963 "" +#line 23568 "" nofa += 4; -#line 22964 "" +#line 23569 "" goto L1; -#line 22965 "" +#line 23570 "" L2: -#line 22966 "" +#line 23571 "" if (dabs(*offnsk) > 1e-4f) { /* Writing concatenation */ -#line 22967 "" +#line 23572 "" i__2[0] = 1, a__2[0] = sq; -#line 22967 "" +#line 23572 "" i__2[1] = 4, a__2[1] = "off{"; -#line 22967 "" +#line 23572 "" s_cat(notexq, a__2, i__2, &c__2, (ftnlen)80); -#line 22968 "" +#line 23573 "" if (*offnsk < -9.995f) { -#line 22969 "" - s_wsfi(&io___1609); -#line 22969 "" +#line 23574 "" + s_wsfi(&io___1680); +#line 23574 "" do_fio(&c__1, (char *)&(*offnsk), (ftnlen)sizeof(real)); -#line 22969 "" +#line 23574 "" e_wsfi(); -#line 22970 "" +#line 23575 "" lnote = 11; -#line 22971 "" +#line 23576 "" } else if (*offnsk < -.995f || *offnsk > 9.995f) { -#line 22972 "" - s_wsfi(&io___1610); -#line 22972 "" +#line 23577 "" + s_wsfi(&io___1681); +#line 23577 "" do_fio(&c__1, (char *)&(*offnsk), (ftnlen)sizeof(real)); -#line 22972 "" +#line 23577 "" e_wsfi(); -#line 22973 "" +#line 23578 "" lnote = 10; -#line 22974 "" +#line 23579 "" } else if (*offnsk < -1e-4f || *offnsk > .995f) { -#line 22975 "" - s_wsfi(&io___1611); -#line 22975 "" +#line 23580 "" + s_wsfi(&io___1682); +#line 23580 "" do_fio(&c__1, (char *)&(*offnsk), (ftnlen)sizeof(real)); -#line 22975 "" +#line 23580 "" e_wsfi(); -#line 22976 "" +#line 23581 "" lnote = 9; -#line 22977 "" +#line 23582 "" } else { -#line 22978 "" - s_wsfi(&io___1612); -#line 22978 "" +#line 23583 "" + s_wsfi(&io___1683); +#line 23583 "" do_fio(&c__1, (char *)&(*offnsk), (ftnlen)sizeof(real)); -#line 22978 "" +#line 23583 "" e_wsfi(); -#line 22979 "" +#line 23584 "" lnote = 8; -#line 22980 "" +#line 23585 "" } /* Writing concatenation */ -#line 22981 "" +#line 23586 "" i__4[0] = lnote, a__3[0] = notexq; -#line 22981 "" +#line 23586 "" i__4[1] = 1, a__3[1] = sq; -#line 22981 "" +#line 23586 "" i__4[2] = 9, a__3[2] = "noteskip}"; -#line 22981 "" +#line 23586 "" s_cat(notexq, a__3, i__4, &c__3, (ftnlen)80); -#line 22982 "" +#line 23587 "" i__3 = lnote + 10; -#line 22982 "" +#line 23587 "" addstr_(notexq, &i__3, soutq, lsout, (ftnlen)80, (ftnlen)80); -#line 22983 "" +#line 23588 "" } -#line 22984 "" +#line 23589 "" if (*ifig < comfig_2.nfigs[*ivx - 1]) { -#line 22985 "" +#line 23590 "" ++(*ifig); -#line 22986 "" +#line 23591 "" } else { -#line 22987 "" +#line 23592 "" comfig_2.nfigs[*ivx - 1] = 0; -#line 22988 "" +#line 23593 "" *figcheck = FALSE_; -#line 22989 "" +#line 23594 "" } -#line 22990 "" +#line 23595 "" return 0; } /* putfig_ */ @@ -56460,95 +58502,95 @@ L2: /* notcrd = .true. if ornament is on main note. */ /* nolevm is level of main note (for chords) */ -#line 23010 "" +#line 23615 "" /* Parameter adjustments */ -#line 23010 "" +#line 23615 "" ihornb -= 25; -#line 23010 "" +#line 23615 "" ulq -= 25; -#line 23010 "" +#line 23615 "" --nornb; -#line 23010 "" +#line 23615 "" -#line 23010 "" +#line 23615 "" /* Function Body */ -#line 23010 "" +#line 23615 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 23010 "" +#line 23615 "" *(unsigned char *)sq = *(unsigned char *)&ch__1[0]; -#line 23011 "" +#line 23616 "" *lout = 0; -#line 23012 "" +#line 23617 "" usehornb = FALSE_; -#line 23013 "" +#line 23618 "" if (*nodur < 64) { -#line 23014 "" +#line 23619 "" stemlen = *stemlin; -#line 23015 "" +#line 23620 "" } else { -#line 23016 "" +#line 23621 "" stemlen = 0.f; -#line 23017 "" +#line 23622 "" } /* Get up-downness. ulpzq is opposite from stem direction for both beams and */ /* non beams. Can use in name of ornament [ . or _ ] */ -#line 23022 "" +#line 23627 "" if (*beamon) { -#line 23023 "" +#line 23628 "" if (*(unsigned char *)&ulq[*ivx + *ibmcnt * 24] == 'u') { -#line 23024 "" +#line 23629 "" *(unsigned char *)ulpzq = 'l'; -#line 23025 "" +#line 23630 "" } else { -#line 23026 "" +#line 23631 "" *(unsigned char *)ulpzq = 'u'; -#line 23027 "" +#line 23632 "" } -#line 23028 "" +#line 23633 "" } else { -#line 23029 "" +#line 23634 "" udqq_(ch__1, (ftnlen)1, nolevm, ncm, islur, nvmx, ivx, nv); -#line 23029 "" +#line 23634 "" if (*(unsigned char *)&ch__1[0] == 'l') { -#line 23030 "" +#line 23635 "" *(unsigned char *)ulpzq = 'u'; -#line 23031 "" +#line 23636 "" } else { -#line 23032 "" +#line 23637 "" *(unsigned char *)ulpzq = 'l'; -#line 23033 "" +#line 23638 "" } -#line 23034 "" +#line 23639 "" } /* To enable >1 ornament on a note, next line is top of manual loop. */ -#line 23038 "" +#line 23643 "" L2: /* c Bit # of last ornament (last of bits 0-21) */ /* c Bit # of last ornament (last of bits 0-24) */ /* Bit # of last ornament (last of bits 0-24,29-30) */ -#line 23043 "" +#line 23648 "" if (bit_test(*iornq,29)) { -#line 23044 "" +#line 23649 "" ibit = 29; -#line 23045 "" +#line 23650 "" } else if (bit_test(*iornq,30)) { -#line 23046 "" +#line 23651 "" ibit = 30; -#line 23047 "" +#line 23652 "" } else { -#line 23048 "" +#line 23653 "" i__1 = *iornq & 4194303; -#line 23048 "" +#line 23653 "" ibit = log2_(&i__1); /* ibit = log2(iand(iornq,33554431)) */ -#line 23050 "" +#line 23655 "" } -#line 23051 "" +#line 23656 "" iornt = pow_ii(&c__2, &ibit); /* Begin routine to set height. Bits 0-13: (stmgx+Tupf._) */ @@ -56558,568 +58600,568 @@ L2: /* Do not use beam height for . or _ */ -#line 23060 "" +#line 23665 "" if (bit_test(*iornq,22) && (iornt & 6144) == 0) { /* Height is set by special beam stuff. */ /* Do not leave ihorn set, do separately for every ornament */ -#line 23065 "" +#line 23670 "" ihorn = ihornb[*ivx + nornb[*ivx] * 24]; -#line 23066 "" +#line 23671 "" if (*(unsigned char *)ulpzq == 'u') { -#line 23066 "" +#line 23671 "" ihorn += -2; -#line 23066 "" +#line 23671 "" } /* Following flag tells whether to increment nornb when exiting the subroutine. */ -#line 23070 "" +#line 23675 "" usehornb = TRUE_; -#line 23071 "" +#line 23676 "" } else if (ibit == 14) { /* Down fermata. Don't worry about upper chord notes. */ -#line 23075 "" +#line 23680 "" if (*(unsigned char *)ulpzq == 'l') { /* Computing MIN */ -#line 23076 "" +#line 23681 "" i__1 = *nolev, i__2 = *ncm - 3; -#line 23076 "" +#line 23681 "" ihorn = min(i__1,i__2); -#line 23077 "" +#line 23682 "" } else { /* Computing MIN */ -#line 23078 "" +#line 23683 "" r__1 = *nolev - stemlen, r__2 = *ncm - 3.f; -#line 23078 "" +#line 23683 "" ihorn = dmin(r__1,r__2); -#line 23079 "" +#line 23684 "" } -#line 23080 "" +#line 23685 "" } else if (bit_test(iornt,13) || bit_test(iornt,0)) { /* ( or ) */ -#line 23084 "" +#line 23689 "" ihorn = *nolev; -#line 23085 "" +#line 23690 "" } else if ((iornt & 6144) > 0) { /* c Staccato . or tenuto _ , but not special beam stuff. Need up-down info */ /* NOTE: removed .&_ from special beam treatment. */ /* Staccato . or tenuto _ Need up-down info */ -#line 23091 "" +#line 23696 "" if (! (*iscrd) || comtrill_1.maxlev != *nolev && *(unsigned char *) ulpzq == 'l' || comtrill_1.minlev != *nolev && *(unsigned char *)ulpzq == 'u') { -#line 23093 "" +#line 23698 "" ihorn = *nolev; -#line 23094 "" +#line 23699 "" } else if (comtrill_1.maxlev == *nolev) { -#line 23095 "" +#line 23700 "" *(unsigned char *)ulpzq = 'u'; /* Computing MAX */ -#line 23096 "" +#line 23701 "" r__1 = *nolev + stemlen, r__2 = *ncm + 3.f; -#line 23096 "" +#line 23701 "" ihorn = dmax(r__1,r__2); -#line 23097 "" +#line 23702 "" } else { -#line 23098 "" +#line 23703 "" *(unsigned char *)ulpzq = 'l'; /* Computing MIN */ -#line 23099 "" +#line 23704 "" r__1 = *nolev - stemlen, r__2 = *ncm - 3.f; -#line 23099 "" +#line 23704 "" ihorn = dmin(r__1,r__2); -#line 23100 "" +#line 23705 "" } -#line 23101 "" +#line 23706 "" } else if (*iscrd && *nolev == comtrill_1.minlev) { -#line 23102 "" +#line 23707 "" if (*(unsigned char *)ulpzq == 'l') { /* Computing MIN */ -#line 23103 "" +#line 23708 "" i__1 = *nolev - 3, i__2 = *ncm - 6; -#line 23103 "" +#line 23708 "" ihorn = min(i__1,i__2); -#line 23104 "" +#line 23709 "" } else { /* Computing MIN */ -#line 23105 "" +#line 23710 "" i__1 = *nolev - i_nint(&stemlen) - 3, i__2 = *ncm - 6; -#line 23105 "" +#line 23710 "" ihorn = min(i__1,i__2); -#line 23106 "" +#line 23711 "" } -#line 23107 "" +#line 23712 "" } else if (ibit == 10 && *nolev > 90) { /* Special treatment for fermata on a shifted rest */ -#line 23111 "" +#line 23716 "" ihorn = *ncm + 5; -#line 23112 "" +#line 23717 "" } else if (*(unsigned char *)ulpzq == 'l') { /* (iscrd and nolev=maxlev) or (.not.iscrd) */ /* Computing MAX */ -#line 23116 "" +#line 23721 "" r__1 = *nolev + stemlen + 2, r__2 = *ncm + 5.f; -#line 23116 "" +#line 23721 "" ihorn = dmax(r__1,r__2); -#line 23117 "" +#line 23722 "" } else if (ibit == 29 || ibit == 30) { /* coda or new segno, no height tweak */ -#line 23121 "" +#line 23726 "" ihorn = *ncm + 5; -#line 23122 "" +#line 23727 "" } else { /* Computing MAX */ -#line 23123 "" +#line 23728 "" i__1 = *nolev + 2, i__2 = *ncm + 5; -#line 23123 "" +#line 23728 "" ihorn = max(i__1,i__2); -#line 23124 "" +#line 23729 "" } -#line 23125 "" +#line 23730 "" ioff = 0; -#line 23126 "" +#line 23731 "" iclracc = 0; /* Begin routine to set name. Bits 0-13: (stmgx+Tupf._) */ /* 14: Down fermata, was F 15: Trill w/o "tr", was U, 16-18: edit. s,f,n */ -#line 23131 "" +#line 23736 "" if (bit_test(iornt,2)) { /* Writing concatenation */ -#line 23132 "" +#line 23737 "" i__3[0] = 1, a__1[0] = sq; -#line 23132 "" +#line 23737 "" i__3[1] = 5, a__1[1] = "shake"; -#line 23132 "" +#line 23737 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23133 "" +#line 23738 "" lnote = 6; -#line 23134 "" +#line 23739 "" } else if (bit_test(iornt,3)) { /* Writing concatenation */ -#line 23135 "" +#line 23740 "" i__3[0] = 1, a__1[0] = sq; -#line 23135 "" +#line 23740 "" i__3[1] = 7, a__1[1] = "mordent"; -#line 23135 "" +#line 23740 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23136 "" +#line 23741 "" lnote = 8; -#line 23137 "" +#line 23742 "" } else if (bit_test(iornt,1)) { /* Writing concatenation */ -#line 23138 "" +#line 23743 "" i__3[0] = 1, a__1[0] = sq; -#line 23138 "" +#line 23743 "" i__3[1] = 3, a__1[1] = "mtr"; -#line 23138 "" +#line 23743 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23139 "" +#line 23744 "" lnote = 4; -#line 23140 "" +#line 23745 "" } else if (bit_test(iornt,5)) { /* Writing concatenation */ -#line 23141 "" +#line 23746 "" i__3[0] = 1, a__1[0] = sq; -#line 23141 "" +#line 23746 "" i__3[1] = 3, a__1[1] = "xtr"; -#line 23141 "" +#line 23746 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23142 "" +#line 23747 "" lnote = 4; -#line 23143 "" +#line 23748 "" } else if (bit_test(iornt,6)) { /* Writing concatenation */ -#line 23144 "" +#line 23749 "" i__3[0] = 1, a__1[0] = sq; -#line 23144 "" +#line 23749 "" i__3[1] = 3, a__1[1] = "ptr"; -#line 23144 "" +#line 23749 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23145 "" +#line 23750 "" lnote = 4; -#line 23146 "" +#line 23751 "" } else if (bit_test(iornt,13)) { /* Writing concatenation */ -#line 23147 "" +#line 23752 "" i__3[0] = 1, a__1[0] = sq; -#line 23147 "" +#line 23752 "" i__3[1] = 3, a__1[1] = "rpn"; -#line 23147 "" +#line 23752 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23148 "" +#line 23753 "" lnote = 4; -#line 23149 "" +#line 23754 "" } else if (bit_test(iornt,0)) { /* Writing concatenation */ -#line 23150 "" +#line 23755 "" i__3[0] = 1, a__1[0] = sq; -#line 23150 "" +#line 23755 "" i__3[1] = 3, a__1[1] = "lpn"; -#line 23150 "" +#line 23755 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23151 "" +#line 23756 "" lnote = 4; -#line 23152 "" +#line 23757 "" } else if (bit_test(iornt,12)) { /* Writing concatenation */ -#line 23153 "" +#line 23758 "" i__4[0] = 1, a__2[0] = sq; -#line 23153 "" +#line 23758 "" i__4[1] = 1, a__2[1] = ulpzq; -#line 23153 "" +#line 23758 "" i__4[2] = 2, a__2[2] = "st"; -#line 23153 "" +#line 23758 "" s_cat(notexq, a__2, i__4, &c__3, (ftnlen)79); -#line 23154 "" +#line 23759 "" lnote = 4; -#line 23155 "" +#line 23760 "" } else if (bit_test(iornt,11)) { /* Writing concatenation */ -#line 23156 "" +#line 23761 "" i__4[0] = 1, a__2[0] = sq; -#line 23156 "" +#line 23761 "" i__4[1] = 1, a__2[1] = ulpzq; -#line 23156 "" +#line 23761 "" i__4[2] = 2, a__2[2] = "pz"; -#line 23156 "" +#line 23761 "" s_cat(notexq, a__2, i__4, &c__3, (ftnlen)79); -#line 23157 "" +#line 23762 "" lnote = 4; -#line 23158 "" +#line 23763 "" } else if (bit_test(iornt,8)) { /* Writing concatenation */ -#line 23159 "" +#line 23764 "" i__3[0] = 1, a__1[0] = sq; -#line 23159 "" +#line 23764 "" i__3[1] = 3, a__1[1] = "upz"; -#line 23159 "" +#line 23764 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23160 "" +#line 23765 "" lnote = 4; -#line 23161 "" +#line 23766 "" ioff = -2; -#line 23162 "" +#line 23767 "" } else if (bit_test(iornt,9)) { /* Writing concatenation */ -#line 23163 "" +#line 23768 "" i__3[0] = 1, a__1[0] = sq; -#line 23163 "" +#line 23768 "" i__3[1] = 4, a__1[1] = "uppz"; -#line 23163 "" +#line 23768 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23164 "" +#line 23769 "" lnote = 5; -#line 23165 "" +#line 23770 "" ioff = -2; -#line 23166 "" +#line 23771 "" } else if (bit_test(iornt,10)) { -#line 23167 "" +#line 23772 "" if (*nodur < 48) { /* Writing concatenation */ -#line 23168 "" +#line 23773 "" i__3[0] = 1, a__1[0] = sq; -#line 23168 "" +#line 23773 "" i__3[1] = 9, a__1[1] = "fermataup"; -#line 23168 "" +#line 23773 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23169 "" +#line 23774 "" } else { /* Writing concatenation */ -#line 23170 "" +#line 23775 "" i__3[0] = 1, a__1[0] = sq; -#line 23170 "" +#line 23775 "" i__3[1] = 9, a__1[1] = "Fermataup"; -#line 23170 "" +#line 23775 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23171 "" +#line 23776 "" } -#line 23172 "" +#line 23777 "" lnote = 10; -#line 23173 "" +#line 23778 "" ioff = -2; -#line 23174 "" +#line 23779 "" } else if (bit_test(iornt,14)) { -#line 23175 "" +#line 23780 "" if (*nodur < 48) { /* Writing concatenation */ -#line 23176 "" +#line 23781 "" i__3[0] = 1, a__1[0] = sq; -#line 23176 "" +#line 23781 "" i__3[1] = 11, a__1[1] = "fermatadown"; -#line 23176 "" +#line 23781 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23177 "" +#line 23782 "" } else { /* Writing concatenation */ -#line 23178 "" +#line 23783 "" i__3[0] = 1, a__1[0] = sq; -#line 23178 "" +#line 23783 "" i__3[1] = 11, a__1[1] = "Fermatadown"; -#line 23178 "" +#line 23783 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23179 "" +#line 23784 "" } -#line 23180 "" +#line 23785 "" lnote = 12; -#line 23181 "" +#line 23786 "" } else if (bit_test(iornt,21)) { /* "?" in editorial ornament. Clear bit 16-18 after use, since ibit=21 */ -#line 23185 "" +#line 23790 "" if (bit_test(*iornq,16)) { /* Writing concatenation */ -#line 23186 "" +#line 23791 "" i__3[0] = 1, a__1[0] = sq; -#line 23186 "" +#line 23791 "" i__3[1] = 6, a__1[1] = "qsharp"; -#line 23186 "" +#line 23791 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23187 "" +#line 23792 "" lnote = 7; -#line 23188 "" +#line 23793 "" ioff = 2; -#line 23189 "" +#line 23794 "" *iornq = bit_clear(*iornq,16); -#line 23190 "" +#line 23795 "" iclracc = 16; -#line 23191 "" +#line 23796 "" } else if (bit_test(*iornq,17)) { /* Writing concatenation */ -#line 23192 "" +#line 23797 "" i__3[0] = 1, a__1[0] = sq; -#line 23192 "" +#line 23797 "" i__3[1] = 5, a__1[1] = "qflat"; -#line 23192 "" +#line 23797 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23193 "" +#line 23798 "" lnote = 6; -#line 23194 "" +#line 23799 "" ioff = 1; -#line 23195 "" +#line 23800 "" *iornq = bit_clear(*iornq,17); -#line 23196 "" +#line 23801 "" iclracc = 17; -#line 23197 "" +#line 23802 "" } else if (bit_test(*iornq,18)) { /* Writing concatenation */ -#line 23198 "" +#line 23803 "" i__3[0] = 1, a__1[0] = sq; -#line 23198 "" +#line 23803 "" i__3[1] = 4, a__1[1] = "qnat"; -#line 23198 "" +#line 23803 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23199 "" +#line 23804 "" lnote = 5; -#line 23200 "" +#line 23805 "" ioff = 2; -#line 23201 "" +#line 23806 "" *iornq = bit_clear(*iornq,18); -#line 23202 "" +#line 23807 "" iclracc = 18; -#line 23203 "" +#line 23808 "" } else { /* Writing concatenation */ -#line 23204 "" +#line 23809 "" i__3[0] = 1, a__1[0] = sq; -#line 23204 "" +#line 23809 "" i__3[1] = 5, a__1[1] = "qedit"; -#line 23204 "" +#line 23809 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23205 "" +#line 23810 "" lnote = 6; -#line 23206 "" +#line 23811 "" ioff = 0; -#line 23207 "" +#line 23812 "" } -#line 23208 "" +#line 23813 "" } else if (bit_test(iornt,16)) { /* Writing concatenation */ -#line 23209 "" +#line 23814 "" i__3[0] = 1, a__1[0] = sq; -#line 23209 "" +#line 23814 "" i__3[1] = 6, a__1[1] = "esharp"; -#line 23209 "" +#line 23814 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23210 "" +#line 23815 "" lnote = 7; -#line 23211 "" +#line 23816 "" ioff = 2; -#line 23212 "" +#line 23817 "" } else if (bit_test(iornt,17)) { /* Writing concatenation */ -#line 23213 "" +#line 23818 "" i__3[0] = 1, a__1[0] = sq; -#line 23213 "" +#line 23818 "" i__3[1] = 5, a__1[1] = "eflat"; -#line 23213 "" +#line 23818 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23214 "" +#line 23819 "" lnote = 6; -#line 23215 "" +#line 23820 "" ioff = 1; -#line 23216 "" +#line 23821 "" } else if (bit_test(iornt,18)) { /* Writing concatenation */ -#line 23217 "" +#line 23822 "" i__3[0] = 1, a__1[0] = sq; -#line 23217 "" +#line 23822 "" i__3[1] = 4, a__1[1] = "enat"; -#line 23217 "" +#line 23822 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23218 "" +#line 23823 "" lnote = 5; -#line 23219 "" +#line 23824 "" ioff = 2; -#line 23220 "" +#line 23825 "" } else if (bit_test(iornt,19)) { /* Writing concatenation */ -#line 23221 "" +#line 23826 "" i__3[0] = 1, a__1[0] = sq; -#line 23221 "" +#line 23826 "" i__3[1] = 3, a__1[1] = "usf"; -#line 23221 "" +#line 23826 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23222 "" +#line 23827 "" lnote = 4; -#line 23223 "" +#line 23828 "" ioff = -2; -#line 23224 "" +#line 23829 "" } else if (bit_test(iornt,20)) { /* Writing concatenation */ -#line 23225 "" +#line 23830 "" i__3[0] = 1, a__1[0] = sq; -#line 23225 "" +#line 23830 "" i__3[1] = 4, a__1[1] = "usfz"; -#line 23225 "" +#line 23830 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23226 "" +#line 23831 "" lnote = 5; -#line 23227 "" +#line 23832 "" ioff = -2; -#line 23228 "" +#line 23833 "" } else if (bit_test(iornt,29)) { /* Writing concatenation */ -#line 23229 "" +#line 23834 "" i__3[0] = 1, a__1[0] = sq; -#line 23229 "" +#line 23834 "" i__3[1] = 5, a__1[1] = "ccoda"; -#line 23229 "" +#line 23834 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23230 "" +#line 23835 "" lnote = 6; -#line 23231 "" +#line 23836 "" } else if (bit_test(iornt,30)) { /* Writing concatenation */ -#line 23232 "" +#line 23837 "" i__3[0] = 1, a__1[0] = sq; -#line 23232 "" +#line 23837 "" i__3[1] = 6, a__1[1] = "ssegno"; -#line 23232 "" +#line 23837 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23233 "" +#line 23838 "" lnote = 7; -#line 23234 "" +#line 23839 "" } -#line 23235 "" +#line 23840 "" iudorn = 0; /* User-defined level shift of ornament from default? */ -#line 23239 "" +#line 23844 "" if (bit_test(*iornq,25)) { /* Find which (if any) element of kudorn has the shift. */ -#line 23243 "" +#line 23848 "" i__1 = comtrill_1.nudorn; -#line 23243 "" +#line 23848 "" for (iudorn = 1; iudorn <= i__1; ++iudorn) { /* if (ibit .lt. 21) then */ /* if (ibit.lt.21 .or. ibit.eq.29) then */ -#line 23246 "" +#line 23851 "" if (ibit < 21 || ibit == 29 || ibit == 30) { -#line 23247 "" +#line 23852 "" ibitt = ibit; /* Could have oes, but not oe? or oes? */ -#line 23251 "" +#line 23856 "" } else if (iclracc > 0) { /* Earlier cleared edit. accid, meaning it was oes? */ -#line 23255 "" +#line 23860 "" ibitt = iclracc + 6; -#line 23256 "" +#line 23861 "" } else { -#line 23257 "" +#line 23862 "" ibitt = 21; -#line 23258 "" +#line 23863 "" } -#line 23259 "" +#line 23864 "" ibitt = *ip + (*ivx % 16 << 8) + (*nolev << 12) + (ibitt << 19); /* if (ibitt .eq. iand(33554431,kudorn(iudorn))) go to 4 */ -#line 23261 "" +#line 23866 "" if (ibitt == (33554431 & comtrill_1.kudorn[iudorn - 1]) && *ivx == comivxudorn_1.ivxudorn[iudorn - 1]) { -#line 23261 "" +#line 23866 "" goto L4; -#line 23261 "" +#line 23866 "" } -#line 23263 "" +#line 23868 "" /* L3: */ -#line 23263 "" +#line 23868 "" } /* Nothing shifted on this note; exit this if block */ -#line 23267 "" +#line 23872 "" iudorn = 0; -#line 23268 "" +#line 23873 "" goto L5; -#line 23269 "" +#line 23874 "" L4: -#line 23270 "" +#line 23875 "" ioffinc = (63 & lbit_shift(comtrill_1.kudorn[iudorn - 1], (ftnlen)-25) ) - 32; -#line 23271 "" +#line 23876 "" if (ibit == 19 && ioffinc < -7) { /* Convert usf to lsf. The reason has to do with positioning being impossile */ /* for some mysterious reason when you drop \usf below the staff */ /* Writing concatenation */ -#line 23276 "" +#line 23881 "" i__3[0] = 1, a__1[0] = sq; -#line 23276 "" +#line 23881 "" i__3[1] = 3, a__1[1] = "lsf"; -#line 23276 "" +#line 23881 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23277 "" +#line 23882 "" ioffinc += 6; -#line 23278 "" +#line 23883 "" } -#line 23279 "" +#line 23884 "" ioff += ioffinc; -#line 23280 "" +#line 23885 "" } -#line 23281 "" +#line 23886 "" L5: /* Shift level to avoid slur. Conditions are */ @@ -57129,149 +59171,149 @@ L5: /* 4. ornament is not segno(4), ._)(11-13), down ferm(14) or "(" (0) Bin=30737 */ /* 5. islhgt+3 >= height already computed. */ -#line 23290 "" +#line 23895 "" if (! bit_test(*iornq,25) && *islhgt > 0 && (iornt & 30737) == 0) { -#line 23290 "" +#line 23895 "" i__1 = *islhgt + 3; -#line 23290 "" +#line 23895 "" ioff += i_dim(&i__1, &ihorn); -#line 23290 "" +#line 23895 "" } -#line 23293 "" +#line 23898 "" i__1 = ihorn + ioff; -#line 23293 "" +#line 23898 "" notefq_(noteq, &lnoten, &i__1, ncm, (ftnlen)8); -#line 23294 "" +#line 23899 "" if (lnoten == 1) { -#line 23294 "" +#line 23899 "" addblank_(noteq, &lnoten, (ftnlen)8); -#line 23294 "" +#line 23899 "" } -#line 23295 "" +#line 23900 "" if ((iornt & 32896) > 0) { /* T-trill or trill w/o "tr" */ -#line 23299 "" +#line 23904 "" dotrill_(ivx, ip, &iornt, noteq, &lnoten, notexq, &lnote, (ftnlen)8, ( ftnlen)79); -#line 23300 "" +#line 23905 "" } else { /* Writing concatenation */ -#line 23301 "" +#line 23906 "" i__3[0] = lnote, a__1[0] = notexq; -#line 23301 "" +#line 23906 "" i__3[1] = lnoten, a__1[1] = noteq; -#line 23301 "" +#line 23906 "" s_cat(notexq, a__1, i__3, &c__2, (ftnlen)79); -#line 23302 "" +#line 23907 "" lnote += lnoten; -#line 23303 "" +#line 23908 "" } -#line 23304 "" +#line 23909 "" if (iudorn > 0) { -#line 23305 "" +#line 23910 "" if (bit_test(comtrill_1.kudorn[iudorn - 1],31)) { /* Horizontal shift */ -#line 23309 "" +#line 23914 "" lform = lfmt1_(&comtrill_1.ornhshft[iudorn - 1]); -#line 23310 "" +#line 23915 "" ici__1.icierr = 0; -#line 23310 "" +#line 23915 "" ici__1.icirnum = 1; -#line 23310 "" +#line 23915 "" ici__1.icirlen = lform; -#line 23310 "" +#line 23915 "" ici__1.iciunit = noteq; /* Writing concatenation */ -#line 23310 "" +#line 23915 "" i__4[0] = 2, a__2[0] = "(f"; -#line 23310 "" +#line 23915 "" i__1 = lform + 48; -#line 23310 "" +#line 23915 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 23310 "" +#line 23915 "" i__4[1] = 1, a__2[1] = ch__1; -#line 23310 "" +#line 23915 "" i__4[2] = 3, a__2[2] = ".1)"; -#line 23310 "" +#line 23915 "" ici__1.icifmt = (s_cat(ch__2, a__2, i__4, &c__3, (ftnlen)6), ch__2); -#line 23310 "" +#line 23915 "" s_wsfi(&ici__1); -#line 23310 "" +#line 23915 "" do_fio(&c__1, (char *)&comtrill_1.ornhshft[iudorn - 1], (ftnlen) sizeof(real)); -#line 23310 "" +#line 23915 "" e_wsfi(); /* Writing concatenation */ -#line 23312 "" +#line 23917 "" i__5[0] = 1, a__3[0] = sq; -#line 23312 "" +#line 23917 "" i__5[1] = 8, a__3[1] = "roffset{"; -#line 23312 "" +#line 23917 "" i__5[2] = lform, a__3[2] = noteq; -#line 23312 "" +#line 23917 "" i__5[3] = 2, a__3[3] = "}{"; -#line 23312 "" +#line 23917 "" i__5[4] = lnote, a__3[4] = notexq; -#line 23312 "" +#line 23917 "" i__5[5] = 1, a__3[5] = "}"; -#line 23312 "" +#line 23917 "" s_cat(notexq, a__3, i__5, &c__6, (ftnlen)79); -#line 23314 "" +#line 23919 "" lnote = lnote + lform + 12; -#line 23315 "" +#line 23920 "" comtrill_1.ornhshft[iudorn - 1] = 0.f; -#line 23316 "" +#line 23921 "" comtrill_1.kudorn[iudorn - 1] = bit_clear(comtrill_1.kudorn[ iudorn - 1],31); -#line 23317 "" +#line 23922 "" } -#line 23318 "" +#line 23923 "" } /* Zero out the bit for ornament just dealt with. */ -#line 23322 "" +#line 23927 "" *iornq = bit_clear(*iornq,ibit); -#line 23323 "" +#line 23928 "" if (*lout == 0) { -#line 23324 "" +#line 23929 "" s_copy(outq, notexq, (ftnlen)79, lnote); -#line 23325 "" +#line 23930 "" } else { /* Writing concatenation */ -#line 23326 "" +#line 23931 "" i__3[0] = *lout, a__1[0] = outq; -#line 23326 "" +#line 23931 "" i__3[1] = lnote, a__1[1] = notexq; -#line 23326 "" +#line 23931 "" s_cat(outq, a__1, i__3, &c__2, (ftnlen)79); -#line 23327 "" +#line 23932 "" } -#line 23328 "" +#line 23933 "" *lout += lnote; /* Check bits 0-21, go back if any are still set */ /* If bit 29 or 30 had been set, would have been used first time thru, */ /* and you wouldn't use both coda and segno on same note */ -#line 23334 "" +#line 23939 "" if ((*iornq & 4194303) > 0) { -#line 23334 "" +#line 23939 "" goto L2; -#line 23334 "" +#line 23939 "" } -#line 23335 "" +#line 23940 "" if (usehornb) { -#line 23335 "" +#line 23940 "" ++nornb[*ivx]; -#line 23335 "" +#line 23940 "" } -#line 23336 "" +#line 23941 "" return 0; } /* putorn_ */ @@ -57300,91 +59342,91 @@ L5: ftnlen, ftnlen); static char notexq[80]; -#line 23344 "" +#line 23949 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 23344 "" +#line 23949 "" *(unsigned char *)sq = *(unsigned char *)&ch__1[0]; /* Start user-defined offsets X(...): or X(...)S */ -#line 23348 "" +#line 23953 "" if (*onoff) { -#line 23348 "" +#line 23953 "" ++comudsp_1.nudoff[*ivx - 1]; -#line 23348 "" +#line 23953 "" } /* Xoff is in pts. Round off to nearest .1. Will use at end of shift. */ -#line 23352 "" +#line 23957 "" xoff = comudsp_1.udoff[*ivx + comudsp_1.nudoff[*ivx - 1] * 24 - 25]; -#line 23353 "" +#line 23958 "" r__1 = (integer) (dabs(xoff) * 10.f + .5f) / 10.f; -#line 23353 "" +#line 23958 "" xoff = r_sign(&r__1, &xoff); -#line 23354 "" +#line 23959 "" if (! (*onoff)) { -#line 23354 "" +#line 23959 "" xoff = -xoff; -#line 23354 "" +#line 23959 "" } -#line 23355 "" +#line 23960 "" if (xoff < -9.95f) { -#line 23356 "" +#line 23961 "" ifmt = 5; -#line 23357 "" +#line 23962 "" } else if (xoff < -.95f || xoff > 9.95f) { -#line 23358 "" +#line 23963 "" ifmt = 4; -#line 23359 "" +#line 23964 "" } else { -#line 23360 "" +#line 23965 "" ifmt = 3; -#line 23361 "" +#line 23966 "" } -#line 23362 "" +#line 23967 "" ici__1.icierr = 0; -#line 23362 "" +#line 23967 "" ici__1.icirnum = 1; -#line 23362 "" +#line 23967 "" ici__1.icirlen = 80; -#line 23362 "" +#line 23967 "" ici__1.iciunit = notexq; /* Writing concatenation */ -#line 23362 "" +#line 23967 "" i__1[0] = 2, a__1[0] = "(f"; -#line 23362 "" +#line 23967 "" i__2 = ifmt + 48; -#line 23362 "" +#line 23967 "" chax_(ch__1, (ftnlen)1, &i__2); -#line 23362 "" +#line 23967 "" i__1[1] = 1, a__1[1] = ch__1; -#line 23362 "" +#line 23967 "" i__1[2] = 3, a__1[2] = ".1)"; -#line 23362 "" +#line 23967 "" ici__1.icifmt = (s_cat(ch__2, a__1, i__1, &c__3, (ftnlen)6), ch__2); -#line 23362 "" +#line 23967 "" s_wsfi(&ici__1); -#line 23362 "" +#line 23967 "" do_fio(&c__1, (char *)&xoff, (ftnlen)sizeof(real)); -#line 23362 "" +#line 23967 "" e_wsfi(); /* Writing concatenation */ -#line 23363 "" +#line 23968 "" i__3[0] = 1, a__2[0] = sq; -#line 23363 "" +#line 23968 "" i__3[1] = 4, a__2[1] = "off{"; -#line 23363 "" +#line 23968 "" i__3[2] = ifmt, a__2[2] = notexq; -#line 23363 "" +#line 23968 "" i__3[3] = 3, a__2[3] = "pt}"; -#line 23363 "" +#line 23968 "" s_cat(ch__3, a__2, i__3, &c__4, (ftnlen)88); -#line 23363 "" +#line 23968 "" i__2 = ifmt + 8; -#line 23363 "" +#line 23968 "" addstr_(ch__3, &i__2, soutq, lsout, ifmt + 8, (ftnlen)80); -#line 23365 "" +#line 23970 "" return 0; } /* putshft_ */ @@ -57417,9 +59459,9 @@ L5: static integer lenline; /* Fortran I/O blocks */ - static cilist io___1640 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1643 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1646 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1711 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1714 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1717 = { 0, 11, 0, "(a)", 0 }; @@ -57427,352 +59469,352 @@ L5: /* Actual titles only allowed on p.1. (set by headlog). */ /* 3/18/01: The above comment is probably bogus...can use Tt on later pages. */ -#line 23384 "" +#line 23989 "" /* Parameter adjustments */ -#line 23384 "" +#line 23989 "" --sepsymq; -#line 23384 "" +#line 23989 "" -#line 23384 "" +#line 23989 "" /* Function Body */ /* Writing concatenation */ -#line 23384 "" +#line 23989 "" i__1[0] = 1, a__1[0] = sq; -#line 23384 "" +#line 23989 "" i__1[1] = 6, a__1[1] = "znotes"; -#line 23384 "" +#line 23989 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)127); -#line 23385 "" +#line 23990 "" lenline = 7; -#line 23386 "" +#line 23991 "" i__2 = *nv - 1; -#line 23386 "" +#line 23991 "" for (iv = 1; iv <= i__2; ++iv) { /* Writing concatenation */ -#line 23387 "" +#line 23992 "" i__1[0] = lenline, a__1[0] = notexq; -#line 23387 "" +#line 23992 "" i__1[1] = 1, a__1[1] = sepsymq + iv; -#line 23387 "" +#line 23992 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)127); -#line 23388 "" +#line 23993 "" ++lenline; -#line 23389 "" +#line 23994 "" /* L22: */ -#line 23389 "" +#line 23994 "" } /* Writing concatenation */ -#line 23390 "" +#line 23995 "" i__3[0] = lenline, a__2[0] = notexq; -#line 23390 "" +#line 23995 "" i__3[1] = 1, a__2[1] = sq; -#line 23390 "" +#line 23995 "" i__3[2] = 10, a__2[2] = "zcharnote{"; -#line 23390 "" +#line 23995 "" s_cat(notexq, a__2, i__3, &c__3, (ftnlen)127); -#line 23391 "" +#line 23996 "" lenline += 11; -#line 23392 "" +#line 23997 "" if (! comtitl_1.headlog) { -#line 23393 "" +#line 23998 "" comtitl_1.inhead = *inhnoh; -#line 23394 "" +#line 23999 "" } -#line 23395 "" +#line 24000 "" if (*vshrink && comlast_1.usevshrink) { -#line 23396 "" +#line 24001 "" comtitl_1.inhead = 16; -#line 23397 "" +#line 24002 "" } -#line 23398 "" +#line 24003 "" r__1 = comtitl_1.inhead + .01f; -#line 23398 "" +#line 24003 "" ndig = (integer) r_lg10(&r__1) + 1; -#line 23399 "" +#line 24004 "" i__2 = lenline; -#line 23399 "" +#line 24004 "" ici__1.icierr = 0; -#line 23399 "" +#line 24004 "" ici__1.icirnum = 1; -#line 23399 "" +#line 24004 "" ici__1.icirlen = lenline + ndig + 10 - i__2; -#line 23399 "" +#line 24004 "" ici__1.iciunit = notexq + i__2; /* Writing concatenation */ -#line 23399 "" +#line 24004 "" i__3[0] = 2, a__2[0] = "(i"; -#line 23399 "" +#line 24004 "" i__4 = ndig + 48; -#line 23399 "" +#line 24004 "" chax_(ch__2, (ftnlen)1, &i__4); -#line 23399 "" +#line 24004 "" i__3[1] = 1, a__2[1] = ch__2; -#line 23399 "" +#line 24004 "" i__3[2] = 5, a__2[2] = ",a10)"; -#line 23399 "" +#line 24004 "" ici__1.icifmt = (s_cat(ch__1, a__2, i__3, &c__3, (ftnlen)8), ch__1); -#line 23399 "" +#line 24004 "" s_wsfi(&ici__1); -#line 23399 "" +#line 24004 "" do_fio(&c__1, (char *)&comtitl_1.inhead, (ftnlen)sizeof(integer)); /* Writing concatenation */ -#line 23399 "" +#line 24004 "" i__5[0] = 2, a__3[0] = "}{"; -#line 23399 "" +#line 24004 "" i__5[1] = 1, a__3[1] = sq; -#line 23399 "" +#line 24004 "" i__5[2] = 7, a__3[2] = "titles{"; -#line 23399 "" +#line 24004 "" s_cat(ch__3, a__3, i__5, &c__3, (ftnlen)10); -#line 23399 "" +#line 24004 "" do_fio(&c__1, ch__3, (ftnlen)10); -#line 23399 "" +#line 24004 "" e_wsfi(); -#line 23401 "" +#line 24006 "" lenline = lenline + ndig + 10; /* Vertical skip at top of page (\Il) = etatop*glueil. Needed whether */ /* headers are present or not. */ -#line 23406 "" +#line 24011 "" glueil = *xnsttop / *etatop; -#line 23407 "" +#line 24012 "" vskil = *etatop * glueil; -#line 23408 "" +#line 24013 "" if (*vshrink && comlast_1.usevshrink) { -#line 23408 "" +#line 24013 "" vskil = 2.f; -#line 23408 "" +#line 24013 "" } -#line 23409 "" +#line 24014 "" writflot_(&vskil, notexq, &lenline, (ftnlen)127); -#line 23410 "" +#line 24015 "" if (! comtitl_1.headlog) { -#line 23411 "" +#line 24016 "" if (comlast_1.islast) { -#line 23411 "" - s_wsfe(&io___1640); +#line 24016 "" + s_wsfe(&io___1711); /* Writing concatenation */ -#line 23411 "" +#line 24016 "" i__6[0] = lenline, a__4[0] = notexq; -#line 23411 "" +#line 24016 "" i__6[1] = 17, a__4[1] = "}{}{0}{}{0}{}{0}}"; -#line 23411 "" +#line 24016 "" i__6[2] = 1, a__4[2] = sq; -#line 23411 "" +#line 24016 "" i__6[3] = 3, a__4[3] = "en%"; -#line 23411 "" +#line 24016 "" s_cat(ch__4, a__4, i__6, &c__4, (ftnlen)148); -#line 23411 "" +#line 24016 "" do_fio(&c__1, ch__4, lenline + 21); -#line 23411 "" +#line 24016 "" e_wsfe(); -#line 23411 "" +#line 24016 "" } -#line 23413 "" +#line 24018 "" } else { /* Writing concatenation */ -#line 23414 "" +#line 24019 "" i__1[0] = lenline, a__1[0] = notexq; -#line 23414 "" +#line 24019 "" i__1[1] = 2, a__1[1] = "}{"; -#line 23414 "" +#line 24019 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)127); -#line 23415 "" +#line 24020 "" lenline += 2; -#line 23416 "" +#line 24021 "" lcq = lenstr_(comtitl_1.instrq, &c__120, (ftnlen)120); -#line 23417 "" +#line 24022 "" if (lcq > 0) { -#line 23418 "" +#line 24023 "" xitil = *etait * glueil; -#line 23419 "" +#line 24024 "" if (*vshrink && comlast_1.usevshrink) { -#line 23419 "" +#line 24024 "" xitil = 2.f; -#line 23419 "" +#line 24024 "" } /* Writing concatenation */ -#line 23420 "" +#line 24025 "" i__3[0] = lenline, a__2[0] = notexq; -#line 23420 "" +#line 24025 "" i__3[1] = lcq, a__2[1] = comtitl_1.instrq; -#line 23420 "" +#line 24025 "" i__3[2] = 2, a__2[2] = "}{"; -#line 23420 "" +#line 24025 "" s_cat(notexq, a__2, i__3, &c__3, (ftnlen)127); /* Null out instrument once used */ -#line 23424 "" +#line 24029 "" s_copy(comtitl_1.instrq, " ", (ftnlen)120, (ftnlen)1); -#line 23425 "" +#line 24030 "" lenline = lenline + lcq + 2; -#line 23426 "" +#line 24031 "" writflot_(&xitil, notexq, &lenline, (ftnlen)127); -#line 23427 "" +#line 24032 "" } else { /* Writing concatenation */ -#line 23428 "" +#line 24033 "" i__1[0] = lenline, a__1[0] = notexq; -#line 23428 "" +#line 24033 "" i__1[1] = 3, a__1[1] = "}{0"; -#line 23428 "" +#line 24033 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)127); -#line 23429 "" +#line 24034 "" lenline += 3; -#line 23430 "" +#line 24035 "" } -#line 23431 "" +#line 24036 "" if (comlast_1.islast) { -#line 23431 "" - s_wsfe(&io___1643); +#line 24036 "" + s_wsfe(&io___1714); /* Writing concatenation */ -#line 23431 "" +#line 24036 "" i__1[0] = lenline, a__1[0] = notexq; -#line 23431 "" +#line 24036 "" i__1[1] = 2, a__1[1] = "}%"; -#line 23431 "" +#line 24036 "" s_cat(ch__5, a__1, i__1, &c__2, (ftnlen)129); -#line 23431 "" +#line 24036 "" do_fio(&c__1, ch__5, lenline + 2); -#line 23431 "" +#line 24036 "" e_wsfe(); -#line 23431 "" +#line 24036 "" } -#line 23432 "" +#line 24037 "" s_copy(notexq, "{", (ftnlen)127, (ftnlen)1); -#line 23433 "" +#line 24038 "" lenline = 1; -#line 23434 "" +#line 24039 "" lcq = lenstr_(comtitl_1.titleq, &c__120, (ftnlen)120); -#line 23435 "" +#line 24040 "" if (lcq > 0) { /* Writing concatenation */ -#line 23436 "" +#line 24041 "" i__1[0] = lenline, a__1[0] = notexq; -#line 23436 "" +#line 24041 "" i__1[1] = lcq, a__1[1] = comtitl_1.titleq; -#line 23436 "" +#line 24041 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)127); -#line 23437 "" +#line 24042 "" lenline += lcq; -#line 23438 "" +#line 24043 "" } else { -#line 23439 "" +#line 24044 "" printl_(" ", (ftnlen)1); -#line 23440 "" +#line 24045 "" printl_("WARNING", (ftnlen)7); -#line 23441 "" +#line 24046 "" printl_(" In a title block, you have specified instrument and/or" , (ftnlen)56); -#line 23443 "" +#line 24048 "" printl_(" composer but no title for the piece.", (ftnlen)38); -#line 23445 "" +#line 24050 "" } /* Writing concatenation */ -#line 23446 "" +#line 24051 "" i__1[0] = lenline, a__1[0] = notexq; -#line 23446 "" +#line 24051 "" i__1[1] = 2, a__1[1] = "}{"; -#line 23446 "" +#line 24051 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)127); -#line 23447 "" +#line 24052 "" lenline += 2; -#line 23448 "" +#line 24053 "" xtcil = *etatc * glueil; -#line 23449 "" +#line 24054 "" lcq = lenstr_(comtitl_1.compoq, &c__120, (ftnlen)120); -#line 23450 "" +#line 24055 "" if (lcq == 0) { -#line 23450 "" +#line 24055 "" xtcil *= 2; -#line 23450 "" +#line 24055 "" } -#line 23451 "" +#line 24056 "" if (*vshrink && comlast_1.usevshrink) { -#line 23451 "" +#line 24056 "" xtcil = 2.f; -#line 23451 "" +#line 24056 "" } -#line 23452 "" +#line 24057 "" writflot_(&xtcil, notexq, &lenline, (ftnlen)127); /* Writing concatenation */ -#line 23453 "" +#line 24058 "" i__1[0] = lenline, a__1[0] = notexq; -#line 23453 "" +#line 24058 "" i__1[1] = 2, a__1[1] = "}{"; -#line 23453 "" +#line 24058 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)127); -#line 23454 "" +#line 24059 "" lenline += 2; -#line 23455 "" +#line 24060 "" if (lcq > 0) { /* Writing concatenation */ -#line 23456 "" +#line 24061 "" i__3[0] = lenline, a__2[0] = notexq; -#line 23456 "" +#line 24061 "" i__3[1] = lcq, a__2[1] = comtitl_1.compoq; -#line 23456 "" +#line 24061 "" i__3[2] = 2, a__2[2] = "}{"; -#line 23456 "" +#line 24061 "" s_cat(notexq, a__2, i__3, &c__3, (ftnlen)127); -#line 23457 "" +#line 24062 "" lenline = lenline + 2 + lcq; /* Null out compoq so it does not get written later */ -#line 23461 "" +#line 24066 "" s_copy(comtitl_1.compoq, " ", (ftnlen)120, (ftnlen)1); -#line 23462 "" +#line 24067 "" xcsil = *etacs1 * glueil; -#line 23463 "" +#line 24068 "" if (*vshrink && comlast_1.usevshrink) { -#line 23463 "" +#line 24068 "" xcsil = 2.f; -#line 23463 "" +#line 24068 "" } -#line 23464 "" +#line 24069 "" writflot_(&xcsil, notexq, &lenline, (ftnlen)127); -#line 23465 "" +#line 24070 "" } else { /* Writing concatenation */ -#line 23466 "" +#line 24071 "" i__1[0] = lenline, a__1[0] = notexq; -#line 23466 "" +#line 24071 "" i__1[1] = 3, a__1[1] = "}{0"; -#line 23466 "" +#line 24071 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)127); -#line 23467 "" +#line 24072 "" lenline += 3; -#line 23468 "" +#line 24073 "" } -#line 23469 "" +#line 24074 "" if (comlast_1.islast) { -#line 23469 "" - s_wsfe(&io___1646); +#line 24074 "" + s_wsfe(&io___1717); /* Writing concatenation */ -#line 23469 "" +#line 24074 "" i__6[0] = lenline, a__4[0] = notexq; -#line 23469 "" +#line 24074 "" i__6[1] = 2, a__4[1] = "}}"; -#line 23469 "" +#line 24074 "" i__6[2] = 1, a__4[2] = sq; -#line 23469 "" +#line 24074 "" i__6[3] = 3, a__4[3] = "en%"; -#line 23469 "" +#line 24074 "" s_cat(ch__6, a__4, i__6, &c__4, (ftnlen)133); -#line 23469 "" +#line 24074 "" do_fio(&c__1, ch__6, lenline + 6); -#line 23469 "" +#line 24074 "" e_wsfe(); -#line 23469 "" +#line 24074 "" } -#line 23470 "" +#line 24075 "" comtitl_1.headlog = FALSE_; -#line 23471 "" +#line 24076 "" } -#line 23472 "" +#line 24077 "" return 0; } /* puttitle_ */ @@ -57808,218 +59850,218 @@ L5: /* Places digit for xtuplet. */ -#line 23485 "" +#line 24090 "" if (*iflop != 0 && *multb > 0) { /* Number goes on beam side, move R/L by .5 wheadpt for upper/lower */ -#line 23489 "" +#line 24094 "" *eloff -= *iud * .5f * *wheadpt / *poenom; /* Number goes on beam side, must use beam parameters to set pos'n */ -#line 23493 "" +#line 24098 "" *nlnum = *nolev1 + *islope / *slfac * *eloff + *iup * (*multb + 8); -#line 23494 "" +#line 24099 "" if (*multb >= 2) { -#line 23494 "" +#line 24099 "" *nlnum += *iup; -#line 23494 "" +#line 24099 "" } -#line 23495 "" +#line 24100 "" } else { -#line 23496 "" +#line 24101 "" r__1 = *xnlmid - 1 + *iud * 3 + *iflop * 11; -#line 23496 "" +#line 24101 "" *nlnum = i_nint(&r__1); -#line 23497 "" +#line 24102 "" } -#line 23498 "" +#line 24103 "" if (! bit_test(*islur,31)) { /* Only print number when wanted. First check vert, horiz offset */ -#line 23502 "" +#line 24107 "" if (bit_test(*irest,1)) { -#line 23502 "" +#line 24107 "" *nlnum = *nlnum + igetbits_(mult, &c__8, &c__16) - 64; -#line 23502 "" +#line 24107 "" } -#line 23503 "" +#line 24108 "" if (bit_test(*irest,7)) { -#line 23503 "" +#line 24108 "" *eloff += ((31 & lbit_shift(*irest, (ftnlen)-9)) * .1f - 1.6f) * * wheadpt / *poenom; -#line 23503 "" +#line 24108 "" } -#line 23505 "" +#line 24110 "" if (! (*usexnumt)) { /* Writing concatenation */ -#line 23506 "" +#line 24111 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 23506 "" +#line 24111 "" i__1[0] = 1, a__1[0] = ch__1; -#line 23506 "" +#line 24111 "" i__1[1] = 5, a__1[1] = "xnum{"; -#line 23506 "" +#line 24111 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)79); -#line 23507 "" +#line 24112 "" *lnote = 10; -#line 23508 "" +#line 24113 "" istrtn = 7; -#line 23509 "" +#line 24114 "" } else { /* Writing concatenation */ -#line 23510 "" +#line 24115 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 23510 "" +#line 24115 "" i__1[0] = 1, a__1[0] = ch__1; -#line 23510 "" +#line 24115 "" i__1[1] = 6, a__1[1] = "xnumt{"; -#line 23510 "" +#line 24115 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)79); -#line 23511 "" +#line 24116 "" *lnote = 11; -#line 23512 "" +#line 24117 "" istrtn = 8; -#line 23513 "" +#line 24118 "" } -#line 23514 "" +#line 24119 "" if (*eloff < .995f) { -#line 23515 "" +#line 24120 "" ici__1.icierr = 0; -#line 23515 "" +#line 24120 "" ici__1.icirnum = 1; -#line 23515 "" +#line 24120 "" ici__1.icirlen = 4; -#line 23515 "" +#line 24120 "" ici__1.iciunit = notexq + (istrtn - 1); -#line 23515 "" +#line 24120 "" ici__1.icifmt = "(i1,f3.2)"; -#line 23515 "" +#line 24120 "" s_wsfi(&ici__1); -#line 23515 "" +#line 24120 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 23515 "" +#line 24120 "" do_fio(&c__1, (char *)&(*eloff), (ftnlen)sizeof(real)); -#line 23515 "" +#line 24120 "" e_wsfi(); -#line 23516 "" +#line 24121 "" } else if (*eloff < 9.995f) { -#line 23517 "" +#line 24122 "" ici__1.icierr = 0; -#line 23517 "" +#line 24122 "" ici__1.icirnum = 1; -#line 23517 "" +#line 24122 "" ici__1.icirlen = 4; -#line 23517 "" +#line 24122 "" ici__1.iciunit = notexq + (istrtn - 1); -#line 23517 "" +#line 24122 "" ici__1.icifmt = "(f4.2)"; -#line 23517 "" +#line 24122 "" s_wsfi(&ici__1); -#line 23517 "" +#line 24122 "" do_fio(&c__1, (char *)&(*eloff), (ftnlen)sizeof(real)); -#line 23517 "" +#line 24122 "" e_wsfi(); -#line 23518 "" +#line 24123 "" } else { -#line 23519 "" +#line 24124 "" ici__1.icierr = 0; -#line 23519 "" +#line 24124 "" ici__1.icirnum = 1; -#line 23519 "" +#line 24124 "" ici__1.icirlen = 5; -#line 23519 "" +#line 24124 "" ici__1.iciunit = notexq + (istrtn - 1); -#line 23519 "" +#line 24124 "" ici__1.icifmt = "(f5.2)"; -#line 23519 "" +#line 24124 "" s_wsfi(&ici__1); -#line 23519 "" +#line 24124 "" do_fio(&c__1, (char *)&(*eloff), (ftnlen)sizeof(real)); -#line 23519 "" +#line 24124 "" e_wsfi(); -#line 23520 "" +#line 24125 "" ++(*lnote); -#line 23521 "" +#line 24126 "" } -#line 23522 "" +#line 24127 "" notefq_(noteq, &lnoten, nlnum, ncmid, (ftnlen)8); /* Writing concatenation */ -#line 23523 "" +#line 24128 "" i__2[0] = *lnote, a__2[0] = notexq; -#line 23523 "" +#line 24128 "" i__2[1] = 1, a__2[1] = "}"; -#line 23523 "" +#line 24128 "" i__2[2] = lnoten, a__2[2] = noteq; -#line 23523 "" +#line 24128 "" s_cat(notexq, a__2, i__2, &c__3, (ftnlen)79); -#line 23524 "" +#line 24129 "" *lnote = *lnote + 1 + lnoten; -#line 23525 "" +#line 24130 "" if (*ntupv < 10) { -#line 23526 "" +#line 24131 "" i__3 = *lnote; -#line 23526 "" +#line 24131 "" ici__1.icierr = 0; -#line 23526 "" +#line 24131 "" ici__1.icirnum = 1; -#line 23526 "" +#line 24131 "" ici__1.icirlen = *lnote + 1 - i__3; -#line 23526 "" +#line 24131 "" ici__1.iciunit = notexq + i__3; -#line 23526 "" +#line 24131 "" ici__1.icifmt = "(i1)"; -#line 23526 "" +#line 24131 "" s_wsfi(&ici__1); -#line 23526 "" +#line 24131 "" do_fio(&c__1, (char *)&(*ntupv), (ftnlen)sizeof(integer)); -#line 23526 "" +#line 24131 "" e_wsfi(); -#line 23527 "" +#line 24132 "" ++(*lnote); -#line 23528 "" +#line 24133 "" } else { /* Writing concatenation */ -#line 23529 "" +#line 24134 "" i__1[0] = *lnote, a__1[0] = notexq; -#line 23529 "" +#line 24134 "" i__1[1] = 1, a__1[1] = "{"; -#line 23529 "" +#line 24134 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)79); -#line 23530 "" +#line 24135 "" i__3 = *lnote + 1; -#line 23530 "" +#line 24135 "" ici__1.icierr = 0; -#line 23530 "" +#line 24135 "" ici__1.icirnum = 1; -#line 23530 "" +#line 24135 "" ici__1.icirlen = *lnote + 3 - i__3; -#line 23530 "" +#line 24135 "" ici__1.iciunit = notexq + i__3; -#line 23530 "" +#line 24135 "" ici__1.icifmt = "(i2)"; -#line 23530 "" +#line 24135 "" s_wsfi(&ici__1); -#line 23530 "" +#line 24135 "" do_fio(&c__1, (char *)&(*ntupv), (ftnlen)sizeof(integer)); -#line 23530 "" +#line 24135 "" e_wsfi(); /* Writing concatenation */ -#line 23531 "" +#line 24136 "" i__1[0] = *lnote + 3, a__1[0] = notexq; -#line 23531 "" +#line 24136 "" i__1[1] = 1, a__1[1] = "}"; -#line 23531 "" +#line 24136 "" s_cat(notexq, a__1, i__1, &c__2, (ftnlen)79); -#line 23532 "" +#line 24137 "" *lnote += 4; -#line 23533 "" +#line 24138 "" } -#line 23534 "" +#line 24139 "" } -#line 23535 "" +#line 24140 "" return 0; } /* putxtn_ */ @@ -58033,97 +60075,97 @@ L5: static integer ip1, ip2; extern /* Subroutine */ int getbuf_(char *, ftnlen); -#line 23549 "" +#line 24154 "" if (! commac_1.mplay) { -#line 23550 "" +#line 24155 "" if (inbuff_1.ilbuf > inbuff_1.nlbuf) { -#line 23550 "" +#line 24155 "" goto L999; -#line 23550 "" +#line 24155 "" } -#line 23551 "" +#line 24156 "" getbuf_(string, string_len); -#line 23552 "" +#line 24157 "" return 0; -#line 23553 "" +#line 24158 "" L999: -#line 23553 "" +#line 24158 "" *lastchar = TRUE_; -#line 23554 "" +#line 24159 "" return 0; -#line 23555 "" +#line 24160 "" } else { /* Play a macro. Set pointer to first character needed in buffer */ -#line 23559 "" +#line 24164 "" if (c1ommac_1.ilmac == c1ommac_1.il1mac[commac_1.macnum - 1]) { /* Getting first line of macro */ -#line 23563 "" +#line 24168 "" ip1 = c1ommac_1.ip1mac[commac_1.macnum - 1]; -#line 23564 "" +#line 24169 "" c1ommac_1.iplmac = ip1 - c1ommac_1.ic1mac[commac_1.macnum - 1]; -#line 23565 "" +#line 24170 "" } else if (c1ommac_1.ilmac <= c1ommac_1.il2mac[commac_1.macnum - 1]) { /* Beyond first line of macro. Advance line-start pointer. */ -#line 23569 "" +#line 24174 "" c1ommac_1.iplmac += inbuff_1.lbuf[c1ommac_1.ilmac - 2]; -#line 23570 "" +#line 24175 "" ip1 = c1ommac_1.iplmac + 1; -#line 23571 "" +#line 24176 "" } else { /* Beyond last line of macro. Terminate it! */ -#line 23575 "" +#line 24180 "" commac_1.mplay = FALSE_; -#line 23576 "" +#line 24181 "" commac_1.endmac = TRUE_; -#line 23577 "" +#line 24182 "" return 0; -#line 23578 "" +#line 24183 "" } -#line 23579 "" +#line 24184 "" if (c1ommac_1.ilmac == c1ommac_1.il2mac[commac_1.macnum - 1]) { /* Getting last line of macro. */ -#line 23583 "" +#line 24188 "" ip2 = c1ommac_1.ip2mac[commac_1.macnum - 1]; -#line 23584 "" +#line 24189 "" } else { /* Getting line before last line of macro. */ -#line 23588 "" +#line 24193 "" ip2 = c1ommac_1.iplmac + inbuff_1.lbuf[c1ommac_1.ilmac - 1]; -#line 23589 "" +#line 24194 "" } -#line 23590 "" +#line 24195 "" if (ip2 >= ip1) { -#line 23591 "" +#line 24196 "" s_copy(string, inbuff_1.bufq + (ip1 - 1), string_len, ip2 - (ip1 - 1)); -#line 23592 "" +#line 24197 "" } else { /* Kluge for when macro start is on a line by itself */ -#line 23596 "" +#line 24201 "" s_copy(string, " ", string_len, (ftnlen)1); -#line 23597 "" +#line 24202 "" } -#line 23598 "" +#line 24203 "" ++c1ommac_1.ilmac; -#line 23599 "" +#line 24204 "" return 0; -#line 23600 "" +#line 24205 "" } -#line 23601 "" +#line 24206 "" return 0; } /* read10_ */ @@ -58152,7 +60194,7 @@ doublereal readin_(char *lineq, integer *iccount, integer *nline, ftnlen getchar_(char *, integer *, char *, ftnlen, ftnlen); /* Fortran I/O blocks */ - static cilist io___1655 = { 0, 6, 0, 0, 0 }; + static cilist io___1726 = { 0, 6, 0, 0, 0 }; @@ -58160,123 +60202,123 @@ doublereal readin_(char *lineq, integer *iccount, integer *nline, ftnlen /* file 10 (jobname.pmx) and increments nline if needed, passes over */ /* comment lines */ -#line 23610 "" +#line 24215 "" L4: -#line 23610 "" +#line 24215 "" if (*iccount == 128) { -#line 23611 "" +#line 24216 "" L1: -#line 23611 "" +#line 24216 "" getbuf_(lineq, (ftnlen)128); -#line 23612 "" +#line 24217 "" ++(*nline); -#line 23613 "" +#line 24218 "" if (*(unsigned char *)lineq == '%') { -#line 23613 "" +#line 24218 "" goto L1; -#line 23613 "" +#line 24218 "" } -#line 23614 "" +#line 24219 "" *iccount = 0; -#line 23615 "" +#line 24220 "" } -#line 23616 "" +#line 24221 "" ++(*iccount); /* Find next non-blank or end of line */ -#line 23620 "" +#line 24225 "" for (*iccount = *iccount; *iccount <= 127; ++(*iccount)) { -#line 23621 "" +#line 24226 "" if (*(unsigned char *)&lineq[*iccount - 1] != ' ') { -#line 23621 "" +#line 24226 "" goto L3; -#line 23621 "" +#line 24226 "" } -#line 23622 "" +#line 24227 "" /* L2: */ -#line 23622 "" +#line 24227 "" } /* If here, need to get a new line */ -#line 23626 "" +#line 24231 "" *iccount = 128; -#line 23627 "" +#line 24232 "" goto L4; -#line 23628 "" +#line 24233 "" L3: /* iccount now points to start of number to read */ -#line 23632 "" +#line 24237 "" i1 = *iccount; -#line 23633 "" +#line 24238 "" L5: -#line 23633 "" +#line 24238 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); /* Remember that getchar increments iccount, then reads a character. */ -#line 23637 "" +#line 24242 "" if (i_indx("0123456789.-", durq, (ftnlen)12, (ftnlen)1) > 0) { -#line 23637 "" +#line 24242 "" goto L5; -#line 23637 "" +#line 24242 "" } -#line 23638 "" +#line 24243 "" i2 = *iccount - 1; -#line 23639 "" +#line 24244 "" if (i2 < i1) { -#line 23640 "" - s_wsle(&io___1655); +#line 24245 "" + s_wsle(&io___1726); /* Writing concatenation */ -#line 23640 "" +#line 24245 "" i__1[0] = 7, a__1[0] = "Found \""; -#line 23640 "" +#line 24245 "" i__1[1] = 1, a__1[1] = durq; -#line 23640 "" +#line 24245 "" i__1[2] = 19, a__1[2] = "\" instead of number"; -#line 23640 "" +#line 24245 "" s_cat(ch__1, a__1, i__1, &c__3, (ftnlen)27); -#line 23640 "" +#line 24245 "" do_lio(&c__9, &c__1, ch__1, (ftnlen)27); -#line 23640 "" +#line 24245 "" e_wsle(); -#line 23641 "" +#line 24246 "" stop1_(); -#line 23642 "" +#line 24247 "" } -#line 23643 "" +#line 24248 "" icf = i2 - i1 + 49; -#line 23644 "" +#line 24249 "" ici__1.icierr = 0; -#line 23644 "" +#line 24249 "" ici__1.iciend = 0; -#line 23644 "" +#line 24249 "" ici__1.icirnum = 1; -#line 23644 "" +#line 24249 "" ici__1.icirlen = i2 - (i1 - 1); -#line 23644 "" +#line 24249 "" ici__1.iciunit = lineq + (i1 - 1); /* Writing concatenation */ -#line 23644 "" +#line 24249 "" i__1[0] = 2, a__1[0] = "(f"; -#line 23644 "" +#line 24249 "" chax_(ch__3, (ftnlen)1, &icf); -#line 23644 "" +#line 24249 "" i__1[1] = 1, a__1[1] = ch__3; -#line 23644 "" +#line 24249 "" i__1[2] = 3, a__1[2] = ".0)"; -#line 23644 "" +#line 24249 "" ici__1.icifmt = (s_cat(ch__2, a__1, i__1, &c__3, (ftnlen)6), ch__2); -#line 23644 "" +#line 24249 "" s_rsfi(&ici__1); -#line 23644 "" +#line 24249 "" do_fio(&c__1, (char *)&ret_val, (ftnlen)sizeof(real)); -#line 23644 "" +#line 24249 "" e_rsfi(); -#line 23645 "" +#line 24250 "" return ret_val; } /* readin_ */ @@ -58302,160 +60344,160 @@ L5: extern /* Subroutine */ int getchar_(char *, integer *, char *, ftnlen, ftnlen); -#line 23650 "" +#line 24255 "" i__1 = *iccount; -#line 23650 "" +#line 24255 "" if (i_indx(lineq + i__1, "/", *iccount + 3 - i__1, (ftnlen)1) == 0) { /* No slashes, so use old method */ -#line 23654 "" +#line 24259 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 23655 "" +#line 24260 "" if (*(unsigned char *)durq == '-') { /* Negative numerator is used only to printed; signals vertical slash */ -#line 23659 "" +#line 24264 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 23660 "" +#line 24265 "" *mtrnum = -(*(unsigned char *)durq - 48); -#line 23661 "" +#line 24266 "" } else if (*(unsigned char *)durq == 'o') { /* Numerator is EXACTLY 1 */ -#line 23665 "" +#line 24270 "" *mtrnum = 1; -#line 23666 "" +#line 24271 "" } else { -#line 23667 "" +#line 24272 "" *mtrnum = *(unsigned char *)durq - 48; -#line 23668 "" +#line 24273 "" if (*mtrnum == 1) { /* Numerator is >9 */ -#line 23672 "" +#line 24277 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 23673 "" +#line 24278 "" *mtrnum = *(unsigned char *)durq - 38; -#line 23674 "" +#line 24279 "" } -#line 23675 "" +#line 24280 "" } -#line 23676 "" +#line 24281 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 23677 "" +#line 24282 "" if (*(unsigned char *)durq == 'o') { -#line 23678 "" +#line 24283 "" *mtrden = 1; -#line 23679 "" +#line 24284 "" } else { -#line 23680 "" +#line 24285 "" *mtrden = *(unsigned char *)durq - 48; -#line 23681 "" +#line 24286 "" if (*mtrden == 1) { -#line 23682 "" +#line 24287 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 23683 "" +#line 24288 "" *mtrden = *(unsigned char *)durq - 38; -#line 23684 "" +#line 24289 "" } -#line 23685 "" +#line 24290 "" } -#line 23686 "" +#line 24291 "" } else { /* Expect the form m[n1]/[n2]/[n3]/[n4] . Advance iccount by one from '/' or 'm' */ -#line 23690 "" +#line 24295 "" ++(*iccount); -#line 23691 "" +#line 24296 "" ns = i_indx(lineq + (*iccount - 1), "/", 128 - (*iccount - 1), ( ftnlen)1); -#line 23692 "" +#line 24297 "" ici__1.icierr = 0; -#line 23692 "" +#line 24297 "" ici__1.iciend = 0; -#line 23692 "" +#line 24297 "" ici__1.icirnum = 1; -#line 23692 "" +#line 24297 "" ici__1.icirlen = *iccount + ns - 2 - (*iccount - 1); -#line 23692 "" +#line 24297 "" ici__1.iciunit = lineq + (*iccount - 1); /* Writing concatenation */ -#line 23692 "" +#line 24297 "" i__2[0] = 2, a__1[0] = "(i"; -#line 23692 "" +#line 24297 "" i__1 = ns + 47; -#line 23692 "" +#line 24297 "" chax_(ch__2, (ftnlen)1, &i__1); -#line 23692 "" +#line 24297 "" i__2[1] = 1, a__1[1] = ch__2; -#line 23692 "" +#line 24297 "" i__2[2] = 1, a__1[2] = ")"; -#line 23692 "" +#line 24297 "" ici__1.icifmt = (s_cat(ch__1, a__1, i__2, &c__3, (ftnlen)4), ch__1); -#line 23692 "" +#line 24297 "" s_rsfi(&ici__1); -#line 23692 "" +#line 24297 "" do_fio(&c__1, (char *)&(*mtrnum), (ftnlen)sizeof(integer)); -#line 23692 "" +#line 24297 "" e_rsfi(); /* Reset iccount to start of second integer */ -#line 23696 "" +#line 24301 "" *iccount += ns; /* There must be either a slash or a blank at pos'n 2 or 3 */ -#line 23700 "" +#line 24305 "" ns = i_indx(lineq + (*iccount - 1), "/", (ftnlen)3, (ftnlen)1); -#line 23701 "" +#line 24306 "" if (ns == 0) { -#line 23701 "" +#line 24306 "" ns = i_indx(lineq + (*iccount - 1), " ", (ftnlen)3, (ftnlen)1); -#line 23701 "" +#line 24306 "" } -#line 23702 "" +#line 24307 "" ici__1.icierr = 0; -#line 23702 "" +#line 24307 "" ici__1.iciend = 0; -#line 23702 "" +#line 24307 "" ici__1.icirnum = 1; -#line 23702 "" +#line 24307 "" ici__1.icirlen = *iccount + ns - 2 - (*iccount - 1); -#line 23702 "" +#line 24307 "" ici__1.iciunit = lineq + (*iccount - 1); /* Writing concatenation */ -#line 23702 "" +#line 24307 "" i__2[0] = 2, a__1[0] = "(i"; -#line 23702 "" +#line 24307 "" i__1 = ns + 47; -#line 23702 "" +#line 24307 "" chax_(ch__2, (ftnlen)1, &i__1); -#line 23702 "" +#line 24307 "" i__2[1] = 1, a__1[1] = ch__2; -#line 23702 "" +#line 24307 "" i__2[2] = 1, a__1[2] = ")"; -#line 23702 "" +#line 24307 "" ici__1.icifmt = (s_cat(ch__1, a__1, i__2, &c__3, (ftnlen)4), ch__1); -#line 23702 "" +#line 24307 "" s_rsfi(&ici__1); -#line 23702 "" +#line 24307 "" do_fio(&c__1, (char *)&(*mtrden), (ftnlen)sizeof(integer)); -#line 23702 "" +#line 24307 "" e_rsfi(); /* Set iccount to last character used */ -#line 23706 "" +#line 24311 "" *iccount = *iccount + ns - 1; -#line 23707 "" +#line 24312 "" } -#line 23708 "" +#line 24313 "" return 0; } /* readmeter_ */ @@ -58482,7 +60524,7 @@ L5: char *, ftnlen, ftnlen); /* Fortran I/O blocks */ - static cilist io___1661 = { 0, 6, 0, 0, 0 }; + static cilist io___1732 = { 0, 6, 0, 0, 0 }; @@ -58491,78 +60533,78 @@ L5: /* call this routine *after* detecting a number or decimal. */ /* On exit, durq is next character after end of number. */ -#line 23719 "" +#line 24324 "" i1 = *iccount; -#line 23720 "" +#line 24325 "" L1: -#line 23720 "" +#line 24325 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 23721 "" +#line 24326 "" if (i_indx("0123456789.", durq, (ftnlen)11, (ftnlen)1) > 0) { -#line 23721 "" +#line 24326 "" goto L1; -#line 23721 "" +#line 24326 "" } -#line 23722 "" +#line 24327 "" i2 = *iccount - 1; -#line 23723 "" +#line 24328 "" if (i2 < i1) { -#line 23724 "" - s_wsle(&io___1661); +#line 24329 "" + s_wsle(&io___1732); /* Writing concatenation */ -#line 23724 "" +#line 24329 "" i__1[0] = 7, a__1[0] = "Found \""; -#line 23724 "" +#line 24329 "" i__1[1] = 1, a__1[1] = durq; -#line 23724 "" +#line 24329 "" i__1[2] = 19, a__1[2] = "\" instead of number"; -#line 23724 "" +#line 24329 "" s_cat(ch__1, a__1, i__1, &c__3, (ftnlen)27); -#line 23724 "" +#line 24329 "" do_lio(&c__9, &c__1, ch__1, (ftnlen)27); -#line 23724 "" +#line 24329 "" e_wsle(); -#line 23725 "" +#line 24330 "" stop1_(); -#line 23726 "" +#line 24331 "" } else if (*(unsigned char *)&lineq[i1 - 1] == '.' && *(unsigned char *)& lineq[i2 - 1] == '.') { -#line 23727 "" +#line 24332 "" --i2; -#line 23728 "" +#line 24333 "" --(*iccount); -#line 23729 "" +#line 24334 "" } -#line 23730 "" +#line 24335 "" icf = i2 - i1 + 49; -#line 23731 "" +#line 24336 "" ici__1.icierr = 0; -#line 23731 "" +#line 24336 "" ici__1.iciend = 0; -#line 23731 "" +#line 24336 "" ici__1.icirnum = 1; -#line 23731 "" +#line 24336 "" ici__1.icirlen = i2 - (i1 - 1); -#line 23731 "" +#line 24336 "" ici__1.iciunit = lineq + (i1 - 1); /* Writing concatenation */ -#line 23731 "" +#line 24336 "" i__1[0] = 2, a__1[0] = "(f"; -#line 23731 "" +#line 24336 "" chax_(ch__3, (ftnlen)1, &icf); -#line 23731 "" +#line 24336 "" i__1[1] = 1, a__1[1] = ch__3; -#line 23731 "" +#line 24336 "" i__1[2] = 3, a__1[2] = ".0)"; -#line 23731 "" +#line 24336 "" ici__1.icifmt = (s_cat(ch__2, a__1, i__1, &c__3, (ftnlen)6), ch__2); -#line 23731 "" +#line 24336 "" s_rsfi(&ici__1); -#line 23731 "" +#line 24336 "" do_fio(&c__1, (char *)&(*fnum), (ftnlen)sizeof(real)); -#line 23731 "" +#line 24336 "" e_rsfi(); -#line 23732 "" +#line 24337 "" return 0; } /* readnum_ */ @@ -58578,13 +60620,13 @@ L1: /* Sets iwidbits of isdata, shifted by ishift, to ivalue */ -#line 23738 "" +#line 24343 "" ibase = pow_ii(&c__2, iwidbit) - 1; -#line 23739 "" +#line 24344 "" *isdata = ~ lbit_shift(ibase, *ishift) & *isdata; -#line 23740 "" +#line 24345 "" *isdata |= lbit_shift(*ivalue, *ishift); -#line 23741 "" +#line 24346 "" return 0; } /* setbits_ */ @@ -58606,97 +60648,97 @@ L1: /* The MEAN SQUARE slope algorithm */ -#line 23763 "" +#line 24368 "" /* Parameter adjustments */ -#line 23763 "" +#line 24368 "" --ipb; -#line 23763 "" +#line 24368 "" --xelsk; -#line 23763 "" +#line 24368 "" -#line 23763 "" +#line 24368 "" /* Function Body */ -#line 23763 "" +#line 24368 "" ibc = all_1.ibmcnt[commvl_1.ivx - 1]; -#line 23764 "" +#line 24369 "" sumxx = 0.f; -#line 23765 "" +#line 24370 "" sumxy = 0.f; -#line 23766 "" +#line 24371 "" i__1 = *nnb; -#line 23766 "" +#line 24371 "" for (inb = 1; inb <= i__1; ++inb) { /* Computing 2nd power */ -#line 23767 "" +#line 24372 "" r__1 = xelsk[inb]; -#line 23767 "" +#line 24372 "" sumxx += r__1 * r__1; -#line 23768 "" +#line 24373 "" sumxy += xelsk[inb] * all_1.nolev[commvl_1.ivx + ipb[inb] * 24 - 25]; -#line 23769 "" +#line 24374 "" /* L2: */ -#line 23769 "" +#line 24374 "" } -#line 23770 "" +#line 24375 "" delta = *nnb * sumxx - *sumx * *sumx; -#line 23771 "" +#line 24376 "" em = (*nnb * sumxy - *sumx * *sumy) / delta; -#line 23772 "" +#line 24377 "" r__1 = em * .5f * all_1.slfac; -#line 23772 "" +#line 24377 "" *islope = i_nint(&r__1); -#line 23773 "" +#line 24378 "" if (abs(*islope) > 9) { -#line 23773 "" +#line 24378 "" *islope = i_sign(&c__9, islope); -#line 23773 "" +#line 24378 "" } -#line 23774 "" +#line 24379 "" beta = (*sumy - *islope / all_1.slfac * *sumx) / *nnb; -#line 23775 "" +#line 24380 "" *nolev1 = i_nint(&beta); /* Check if any stems are too short */ -#line 23779 "" +#line 24384 "" smin = 100.f; -#line 23780 "" +#line 24385 "" iul = -1; -#line 23781 "" +#line 24386 "" if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + ibc * 24 - 25] == 'u') { -#line 23781 "" +#line 24386 "" iul = 1; -#line 23781 "" +#line 24386 "" } -#line 23782 "" +#line 24387 "" i__1 = *nnb; -#line 23782 "" +#line 24387 "" for (inb = 1; inb <= i__1; ++inb) { -#line 23783 "" +#line 24388 "" ybeam = *nolev1 + iul * all_1.stemlen + *islope * xelsk[inb] / all_1.slfac; -#line 23784 "" +#line 24389 "" ynote = (real) all_1.nolev[commvl_1.ivx + ipb[inb] * 24 - 25]; /* Computing MIN */ -#line 23785 "" +#line 24390 "" r__1 = smin, r__2 = iul * (ybeam - ynote); -#line 23785 "" +#line 24390 "" smin = dmin(r__1,r__2); -#line 23786 "" +#line 24391 "" /* L4: */ -#line 23786 "" +#line 24391 "" } -#line 23787 "" +#line 24392 "" if (smin < all_1.stemmin) { -#line 23788 "" +#line 24393 "" deficit = all_1.stemmin - smin; -#line 23789 "" +#line 24394 "" r__1 = *nolev1 + iul * deficit; -#line 23789 "" +#line 24394 "" *nolev1 = i_nint(&r__1); -#line 23790 "" +#line 24395 "" } -#line 23791 "" +#line 24396 "" return 0; } /* setbm2_ */ @@ -58724,165 +60766,165 @@ L1: ftnlen), g1etchar_(char *, integer *, char *, ftnlen, ftnlen); /* Fortran I/O blocks */ - static cilist io___1676 = { 0, 6, 0, 0, 0 }; - static cilist io___1677 = { 0, 6, 0, 0, 0 }; - static cilist io___1678 = { 0, 6, 0, 0, 0 }; + static cilist io___1747 = { 0, 6, 0, 0, 0 }; + static cilist io___1748 = { 0, 6, 0, 0, 0 }; + static cilist io___1749 = { 0, 6, 0, 0, 0 }; /* Macro action */ -#line 23804 "" +#line 24409 "" g1etchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 23805 "" +#line 24410 "" if (*(unsigned char *)charq == 'S' && *ivx != 1) { -#line 23806 "" - s_wsle(&io___1676); -#line 23806 "" +#line 24411 "" + s_wsle(&io___1747); +#line 24411 "" e_wsle(); -#line 23807 "" - s_wsle(&io___1677); -#line 23807 "" +#line 24412 "" + s_wsle(&io___1748); +#line 24412 "" e_wsle(); -#line 23808 "" - s_wsle(&io___1678); -#line 23808 "" +#line 24413 "" + s_wsle(&io___1749); +#line 24413 "" do_lio(&c__9, &c__1, "*********WARNING*********", (ftnlen)25); -#line 23808 "" +#line 24413 "" e_wsle(); -#line 23809 "" +#line 24414 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 23809 "" +#line 24414 "" errmsg_(lineq, iccount, &i__1, "\"MS...\" only put in parts by scor2"\ "prt if in voice #1!", (ftnlen)128, (ftnlen)53); -#line 23811 "" +#line 24416 "" } -#line 23812 "" +#line 24417 "" if (i_indx("RSP ", charq, (ftnlen)4, (ftnlen)1) == 0) { -#line 23813 "" +#line 24418 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 23813 "" +#line 24418 "" errmsg_(lineq, iccount, &i__1, "Illegal character after \"M\" (macro"\ ")!", (ftnlen)128, (ftnlen)36); -#line 23815 "" +#line 24420 "" stop1_(); -#line 23816 "" +#line 24421 "" } else if (*(unsigned char *)charq != ' ') { /* Record or playback a macro. Get the number of the macro. */ -#line 23820 "" +#line 24425 "" g1etchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 23821 "" +#line 24426 "" if (i_indx("123456789", durq, (ftnlen)9, (ftnlen)1) == 0) { -#line 23822 "" +#line 24427 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 23822 "" +#line 24427 "" errmsg_(lineq, iccount, &i__1, "Must input number after \"MR\""\ ",\"MP\", or \"MS\"!", (ftnlen)128, (ftnlen)43); -#line 23824 "" +#line 24429 "" stop1_(); -#line 23825 "" +#line 24430 "" } -#line 23826 "" +#line 24431 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 23827 "" +#line 24432 "" commac_1.macnum = i_nint(&fnum); -#line 23828 "" +#line 24433 "" if (*(unsigned char *)durq != ' ') { -#line 23829 "" +#line 24434 "" i__1 = *ibarcnt - *ibaroff + *nbars + 1; -#line 23829 "" +#line 24434 "" errmsg_(lineq, iccount, &i__1, "Macro number must be followed by"\ " a blank!", (ftnlen)128, (ftnlen)41); -#line 23831 "" +#line 24436 "" stop1_(); -#line 23832 "" +#line 24437 "" } -#line 23833 "" +#line 24438 "" if (i_indx("RS", charq, (ftnlen)2, (ftnlen)1) > 0) { /* Record or save a macro */ -#line 23837 "" +#line 24442 "" if (commac_1.macnum < 1 || commac_1.macnum > 20) { -#line 23838 "" +#line 24443 "" i__1 = *iccount - 1; -#line 23838 "" +#line 24443 "" i__2 = *ibarcnt - *ibaroff + *nbars + 1; -#line 23838 "" +#line 24443 "" errmsg_(lineq, &i__1, &i__2, "Macro number not in range 1-20!" , (ftnlen)128, (ftnlen)31); -#line 23840 "" +#line 24445 "" stop1_(); -#line 23841 "" +#line 24446 "" } -#line 23842 "" +#line 24447 "" commac_1.macuse = bit_set(commac_1.macuse,commac_1.macnum); -#line 23843 "" +#line 24448 "" if (*(unsigned char *)charq == 'R') { -#line 23844 "" +#line 24449 "" m1rec1_(lineq, iccount, ibarcnt, ibaroff, nbars, &ndxm, ( ftnlen)128); -#line 23845 "" +#line 24450 "" } else if (*(unsigned char *)charq == 'S') { /* Save (Record but don't activate) */ -#line 23849 "" +#line 24454 "" L1: -#line 23849 "" +#line 24454 "" m1rec1_(lineq, iccount, ibarcnt, ibaroff, nbars, &ndxm, ( ftnlen)128); -#line 23850 "" +#line 24455 "" if (commac_1.mrecord) { -#line 23851 "" +#line 24456 "" getbuf_(lineq, (ftnlen)128); -#line 23852 "" +#line 24457 "" ++(*nline); -#line 23853 "" +#line 24458 "" *iccount = 0; -#line 23854 "" +#line 24459 "" goto L1; -#line 23855 "" +#line 24460 "" } -#line 23856 "" +#line 24461 "" *iccount = *iccount + ndxm + 1; -#line 23857 "" +#line 24462 "" } -#line 23858 "" +#line 24463 "" } else { /* Playback the macro */ -#line 23862 "" +#line 24467 "" if (! bit_test(commac_1.macuse,commac_1.macnum)) { -#line 23863 "" +#line 24468 "" i__1 = *iccount - 1; -#line 23863 "" +#line 24468 "" i__2 = *ibarcnt - *ibaroff + *nbars + 1; -#line 23863 "" +#line 24468 "" errmsg_(lineq, &i__1, &i__2, "Cannot play a macro that has n"\ "ot been recorded!", (ftnlen)128, (ftnlen)47); -#line 23865 "" +#line 24470 "" stop1_(); -#line 23866 "" +#line 24471 "" } -#line 23867 "" +#line 24472 "" commac_1.icchold = *iccount; -#line 23868 "" +#line 24473 "" s_copy(commac_1.lnholdq, lineq, (ftnlen)128, (ftnlen)128); -#line 23869 "" +#line 24474 "" *iccount = 128; -#line 23870 "" +#line 24475 "" commac_1.mplay = TRUE_; -#line 23871 "" +#line 24476 "" c1ommac_1.ilmac = c1ommac_1.il1mac[commac_1.macnum - 1]; -#line 23872 "" +#line 24477 "" } -#line 23873 "" +#line 24478 "" } -#line 23874 "" +#line 24479 "" return 0; } /* setmac_ */ @@ -58897,67 +60939,67 @@ L1: /* 3: triple w/ denom=8, subdivide in groups of 3 8ths */ /* Note that lenbar is set at top or when 'm' symbol is read in getnote */ -#line 23885 "" +#line 24490 "" if (*mtrdenl == 4) { -#line 23886 "" +#line 24491 "" if (*mtrnuml % 3 == 0) { -#line 23887 "" +#line 24492 "" *ibmtyp = 2; -#line 23888 "" +#line 24493 "" *ibmrep = *mtrnuml / 3; -#line 23889 "" +#line 24494 "" } else { -#line 23890 "" +#line 24495 "" *ibmtyp = 1; -#line 23891 "" +#line 24496 "" *ibmrep = *mtrnuml / 2; -#line 23892 "" +#line 24497 "" } -#line 23893 "" +#line 24498 "" } else if (*mtrdenl == 2) { -#line 23894 "" +#line 24499 "" *ibmtyp = 1; -#line 23895 "" +#line 24500 "" if (*mtrnuml == 3) { -#line 23896 "" +#line 24501 "" *ibmrep = 3; -#line 23897 "" +#line 24502 "" } else { -#line 23898 "" +#line 24503 "" *ibmrep = (*mtrnuml << 1) / *mtrdenl; -#line 23899 "" +#line 24504 "" } -#line 23900 "" +#line 24505 "" } else if (*mtrdenl == 8 && (*mtrnuml == 8 || *mtrnuml == 4)) { /* Added 170726 */ -#line 23904 "" +#line 24509 "" *ibmtyp = 1; -#line 23905 "" +#line 24510 "" *ibmrep = *mtrnuml / 4; -#line 23906 "" +#line 24511 "" } else { /* Assumes mtrdenl=8 and 3/8, 6/8, 9/8, or 12/8 */ -#line 23910 "" +#line 24515 "" *ibmtyp = 3; -#line 23911 "" +#line 24516 "" *ibmrep = *mtrnuml / 3; -#line 23912 "" +#line 24517 "" } /* Reset so we don't keep writing new meters */ -#line 23916 "" +#line 24521 "" *mtrnuml = 0; /* Prevent ibmrep=0. Needed for odd bars, e.g. 1/8, where beams don't matter */ -#line 23920 "" +#line 24525 "" *ibmrep = max(*ibmrep,1); -#line 23921 "" +#line 24526 "" return 0; } /* setmeter_ */ @@ -59002,86 +61044,86 @@ L1: /* The outer combo algorithm */ -#line 23955 "" +#line 24560 "" /* Parameter adjustments */ -#line 23955 "" +#line 24560 "" --ipb; -#line 23955 "" +#line 24560 "" --xelsk; -#line 23955 "" +#line 24560 "" -#line 23955 "" +#line 24560 "" /* Function Body */ -#line 23955 "" +#line 24560 "" ibc = all_1.ibmcnt[commvl_1.ivx - 1]; -#line 23956 "" +#line 24561 "" comxtup_2.nxtinbm[commvl_1.ivx - 1] = 0; -#line 23957 "" +#line 24562 "" n1 = comipl2_1.ipl2[commvl_1.ivx + all_1.ibm1[commvl_1.ivx + ibc * 24 - 25] * 24 - 25]; /* Initialize counters used in this subroutine, and then later during actual */ /* beam drawing, to count later segments of single-slope beam groups */ -#line 23962 "" +#line 24567 "" comxtup_2.nssb[commvl_1.ivx - 1] = 0; -#line 23963 "" +#line 24568 "" comxtup_2.issb[commvl_1.ivx - 1] = 0; /* Set flag for xtup beam starting with rest (no others can start with rest) */ -#line 23967 "" +#line 24572 "" if (bit_test(all_1.irest[commvl_1.ivx + all_1.ipo[n1 - 1] * 24 - 25],0)) { -#line 23967 "" +#line 24572 "" *ixrest = 1; -#line 23967 "" +#line 24572 "" } /* Figure how many elemskips to each note. Use the list, counting only non-rests. */ -#line 23971 "" +#line 24576 "" eskz0 = all_1.eskz[commvl_1.ivx + all_1.ibm1[commvl_1.ivx + ibc * 24 - 25] * 24 - 25]; -#line 23972 "" +#line 24577 "" *nnb = 0; -#line 23973 "" +#line 24578 "" *sumx = 0.f; -#line 23974 "" +#line 24579 "" *sumy = 0.f; -#line 23975 "" +#line 24580 "" ipxt1 = 0; -#line 23976 "" +#line 24581 "" iplast = all_1.ibm2[commvl_1.ivx + ibc * 24 - 25]; -#line 23977 "" +#line 24582 "" i__1 = iplast; -#line 23977 "" +#line 24582 "" for (ip = all_1.ibm1[commvl_1.ivx + ibc * 24 - 25]; ip <= i__1; ++ip) { -#line 23978 "" +#line 24583 "" if (! bit_test(all_1.irest[commvl_1.ivx + ip * 24 - 25],0)) { -#line 23979 "" +#line 24584 "" ++(*nnb); -#line 23980 "" +#line 24585 "" ipb[*nnb] = ip; -#line 23981 "" +#line 24586 "" xelsk[*nnb] = all_1.eskz[commvl_1.ivx + ip * 24 - 25] - eskz0; -#line 23982 "" +#line 24587 "" *sumx += xelsk[*nnb]; -#line 23983 "" +#line 24588 "" *sumy += all_1.nolev[commvl_1.ivx + ipb[*nnb] * 24 - 25]; -#line 23984 "" +#line 24589 "" if (bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],21)) { /* This is the starting note of later segment of single-slope beam group */ /* Temporarily store ip here. */ -#line 23989 "" +#line 24594 "" ++comxtup_2.nssb[commvl_1.ivx - 1]; -#line 23990 "" +#line 24595 "" comxtup_2.lev1ssb[commvl_1.ivx + comxtup_2.nssb[commvl_1.ivx - 1] * 24 - 25] = *nnb; -#line 23991 "" +#line 24596 "" } -#line 23992 "" +#line 24597 "" } /* New xtup stuff here. Final object is to get distance from start of xtup */ @@ -59089,220 +61131,220 @@ L1: /* number. ntupv is number of notes in xtup, and is only used to get */ /* eloff, the distance from start of xtup to the number. */ -#line 23999 "" +#line 24604 "" if (bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],18)) { -#line 23999 "" +#line 24604 "" ++ndoub; -#line 23999 "" +#line 24604 "" } -#line 24000 "" +#line 24605 "" if (ipxt1 == 0 && all_1.nodur[commvl_1.ivx + ip * 24 - 25] == 0) { /* Xtup is starting here */ -#line 24004 "" +#line 24609 "" ++comxtup_2.nxtinbm[commvl_1.ivx - 1]; -#line 24005 "" +#line 24610 "" ipxt1 = ip; -#line 24006 "" +#line 24611 "" if (bit_test(all_1.nacc[commvl_1.ivx + ip * 24 - 25],18)) { -#line 24007 "" +#line 24612 "" ndoub = 1; -#line 24008 "" +#line 24613 "" } else { -#line 24009 "" +#line 24614 "" ndoub = 0; -#line 24010 "" +#line 24615 "" } -#line 24011 "" +#line 24616 "" } else if (ipxt1 > 0 && all_1.nodur[commvl_1.ivx + ip * 24 - 25] > 0) { /* Xtup ends here. Set total number of notes in xtup. */ -#line 24015 "" +#line 24620 "" comxtup_2.ntupv[commvl_1.ivx + comxtup_2.nxtinbm[commvl_1.ivx - 1] * 24 - 25] = ip + 1 - ipxt1; /* Set printed number for embedded xtup. */ -#line 24019 "" +#line 24624 "" comxtup_2.mtupv[commvl_1.ivx + comxtup_2.nxtinbm[commvl_1.ivx - 1] * 24 - 25] = comxtup_2.ntupv[commvl_1.ivx + comxtup_2.nxtinbm[commvl_1.ivx - 1] * 24 - 25] + ndoub; /* Middle note of xtup if ntupv odd, note to left of gap if even. */ -#line 24023 "" +#line 24628 "" ipxtmid = (ip + ipxt1) / 2; -#line 24024 "" +#line 24629 "" comxtup_2.eloff[commvl_1.ivx + comxtup_2.nxtinbm[commvl_1.ivx - 1] * 24 - 25] = comeskz2_1.eskz2[commvl_1.ivx + ipxtmid * 24 - 25] - comeskz2_1.eskz2[commvl_1.ivx + ipxt1 * 24 - 25]; -#line 24025 "" +#line 24630 "" if (comxtup_2.ntupv[commvl_1.ivx + comxtup_2.nxtinbm[commvl_1.ivx - 1] * 24 - 25] % 2 == 0) { -#line 24025 "" +#line 24630 "" comxtup_2.eloff[commvl_1.ivx + comxtup_2.nxtinbm[commvl_1.ivx - 1] * 24 - 25] += (comeskz2_1.eskz2[commvl_1.ivx + ( ipxtmid + 1) * 24 - 25] - comeskz2_1.eskz2[ commvl_1.ivx + ipxtmid * 24 - 25]) * .5f; -#line 24025 "" +#line 24630 "" } -#line 24028 "" +#line 24633 "" ipxt1 = 0; -#line 24029 "" +#line 24634 "" } -#line 24030 "" +#line 24635 "" /* L2: */ -#line 24030 "" +#line 24635 "" } /* Reset nxtinbm for use as counter as #'s are posted by putxtn(..) */ -#line 24034 "" +#line 24639 "" comxtup_2.nxtinbm[commvl_1.ivx - 1] = 0; -#line 24035 "" +#line 24640 "" *smed = 0.f; /* if (.not.btest(islur(ivx,ipb(1)),2)) then */ -#line 24037 "" +#line 24642 "" if (! bit_test(all_1.islur[commvl_1.ivx + ipb[1] * 24 - 25],2) && *nnb > 1) { /* No forced 0 slope */ /* if (nnb .eq. 1) go to 6 */ -#line 24042 "" +#line 24647 "" nsc = 0; -#line 24043 "" +#line 24648 "" i__1 = *nnb - 1; -#line 24043 "" +#line 24648 "" for (inb = 1; inb <= i__1; ++inb) { -#line 24044 "" +#line 24649 "" i__2 = *nnb; -#line 24044 "" +#line 24649 "" for (jnb = inb + 1; jnb <= i__2; ++jnb) { -#line 24045 "" +#line 24650 "" ++nsc; -#line 24046 "" +#line 24651 "" slope[nsc - 1] = (all_1.nolev[commvl_1.ivx + ipb[jnb] * 24 - 25] - all_1.nolev[commvl_1.ivx + ipb[inb] * 24 - 25]) / (xelsk[jnb] - xelsk[inb]); -#line 24048 "" +#line 24653 "" if ((r__1 = slope[nsc - 1], dabs(r__1)) < 1e-4f) { -#line 24049 "" +#line 24654 "" ++nsc; -#line 24050 "" +#line 24655 "" slope[nsc - 1] = slope[nsc - 2]; -#line 24051 "" +#line 24656 "" ++nsc; -#line 24052 "" +#line 24657 "" slope[nsc - 1] = slope[nsc - 2]; -#line 24053 "" +#line 24658 "" } -#line 24054 "" +#line 24659 "" /* L5: */ -#line 24054 "" +#line 24659 "" } -#line 24054 "" +#line 24659 "" } -#line 24055 "" +#line 24660 "" if (nsc == 1) { -#line 24056 "" +#line 24661 "" *smed = slope[0]; -#line 24057 "" +#line 24662 "" goto L6; -#line 24058 "" +#line 24663 "" } -#line 24059 "" +#line 24664 "" nscmid = nsc / 2 + 1; -#line 24060 "" +#line 24665 "" i__2 = nscmid; -#line 24060 "" +#line 24665 "" for (i__ = 1; i__ <= i__2; ++i__) { -#line 24061 "" +#line 24666 "" i__1 = nsc; -#line 24061 "" +#line 24666 "" for (j = i__ + 1; j <= i__1; ++j) { -#line 24062 "" +#line 24667 "" if (slope[j - 1] < slope[i__ - 1]) { -#line 24063 "" +#line 24668 "" t = slope[j - 1]; -#line 24064 "" +#line 24669 "" slope[j - 1] = slope[i__ - 1]; -#line 24065 "" +#line 24670 "" slope[i__ - 1] = t; -#line 24066 "" +#line 24671 "" } -#line 24067 "" +#line 24672 "" /* L7: */ -#line 24067 "" +#line 24672 "" } -#line 24067 "" +#line 24672 "" } -#line 24068 "" +#line 24673 "" *smed = slope[nscmid - 1]; -#line 24069 "" +#line 24674 "" if (nsc == nsc / 2 << 1) { /* Even number of slopes in the list, so median is ambiguous */ -#line 24073 "" +#line 24678 "" if ((r__2 = slope[nscmid - 2], dabs(r__2)) < (r__1 = slope[nscmid - 1], dabs(r__1)) - comtol_1.tol) { /* Lower-numbered one is truly less in absolute value, so use it */ -#line 24077 "" +#line 24682 "" *smed = slope[nscmid - 2]; -#line 24078 "" +#line 24683 "" } else if ((r__1 = slope[nscmid - 2] + slope[nscmid - 1], dabs( r__1)) < comtol_1.tol) { /* Two slopes are effectively equal. Take the one with sign of the average */ -#line 24082 "" +#line 24687 "" sum = 0.f; -#line 24083 "" +#line 24688 "" i__1 = nsc; -#line 24083 "" +#line 24688 "" for (i__ = 1; i__ <= i__1; ++i__) { -#line 24084 "" +#line 24689 "" sum += slope[i__ - 1]; -#line 24085 "" +#line 24690 "" /* L1: */ -#line 24085 "" +#line 24690 "" } -#line 24086 "" +#line 24691 "" *smed = r_sign(smed, &sum); -#line 24087 "" +#line 24692 "" } -#line 24088 "" +#line 24693 "" } -#line 24089 "" +#line 24694 "" L6: -#line 24090 "" +#line 24695 "" r__1 = *smed * .5f * all_1.slfac; -#line 24090 "" +#line 24695 "" comxtup_2.islope[commvl_1.ivx - 1] = i_nint(&r__1); -#line 24091 "" +#line 24696 "" if ((i__1 = comxtup_2.islope[commvl_1.ivx - 1], abs(i__1)) > 9) { -#line 24091 "" +#line 24696 "" comxtup_2.islope[commvl_1.ivx - 1] = i_sign(&c__9, & comxtup_2.islope[commvl_1.ivx - 1]); -#line 24091 "" +#line 24696 "" } -#line 24093 "" +#line 24698 "" } else { /* Forced horizontal beam */ -#line 24097 "" +#line 24702 "" comxtup_2.islope[commvl_1.ivx - 1] = 0; -#line 24098 "" +#line 24703 "" } -#line 24099 "" +#line 24704 "" beta = (*sumy - comxtup_2.islope[commvl_1.ivx - 1] / all_1.slfac * *sumx) / *nnb; @@ -59310,90 +61352,90 @@ L6: /* as is for placing xtup number and/or bracket, then reset it for start of */ /* actual beam */ -#line 24105 "" +#line 24710 "" comxtup_2.nolev1[commvl_1.ivx - 1] = i_nint(&beta); /* Check if any stems are too short */ -#line 24109 "" +#line 24714 "" smin = 100.f; -#line 24110 "" +#line 24715 "" iul = -1; -#line 24111 "" +#line 24716 "" if (*(unsigned char *)&all_1.ulq[commvl_1.ivx + ibc * 24 - 25] == 'u') { -#line 24111 "" +#line 24716 "" iul = 1; -#line 24111 "" +#line 24716 "" } -#line 24112 "" +#line 24717 "" ssq = 0.f; -#line 24113 "" +#line 24718 "" syb = 0.f; -#line 24114 "" +#line 24719 "" yb1 = comxtup_2.nolev1[commvl_1.ivx - 1] + iul * (all_1.stemlen + combmh_1.bmhgt * ((15 & all_1.mult[commvl_1.ivx + ipb[1] * 24 - 25]) - 9)); -#line 24116 "" +#line 24721 "" i__1 = *nnb; -#line 24116 "" +#line 24721 "" for (inb = 1; inb <= i__1; ++inb) { -#line 24117 "" +#line 24722 "" ybeam = yb1 + comxtup_2.islope[commvl_1.ivx - 1] * xelsk[inb] / all_1.slfac - iul * combmh_1.bmhgt * ((15 & all_1.mult[ commvl_1.ivx + ipb[inb] * 24 - 25]) - 9); -#line 24119 "" +#line 24724 "" syb += ybeam; -#line 24120 "" +#line 24725 "" ynote = (real) all_1.nolev[commvl_1.ivx + ipb[inb] * 24 - 25]; -#line 24121 "" +#line 24726 "" off = ybeam - ynote; -#line 24122 "" +#line 24727 "" if (inb == 1) { -#line 24123 "" +#line 24728 "" off1 = off; -#line 24124 "" +#line 24729 "" } else if (inb == *nnb) { -#line 24125 "" +#line 24730 "" off2 = off; -#line 24126 "" +#line 24731 "" } -#line 24127 "" +#line 24732 "" ssq += off * off; /* Computing MIN */ -#line 24128 "" +#line 24733 "" r__1 = smin, r__2 = iul * off; -#line 24128 "" +#line 24733 "" smin = dmin(r__1,r__2); -#line 24129 "" +#line 24734 "" /* L4: */ -#line 24129 "" +#line 24734 "" } -#line 24130 "" +#line 24735 "" dnolev = 0.f; -#line 24131 "" +#line 24736 "" if (smin < all_1.stemmin) { -#line 24132 "" +#line 24737 "" deficit = all_1.stemmin - smin; -#line 24133 "" +#line 24738 "" nolevo = comxtup_2.nolev1[commvl_1.ivx - 1]; -#line 24134 "" +#line 24739 "" r__1 = comxtup_2.nolev1[commvl_1.ivx - 1] + iul * deficit; -#line 24134 "" +#line 24739 "" comxtup_2.nolev1[commvl_1.ivx - 1] = i_nint(&r__1); -#line 24135 "" +#line 24740 "" dnolev = (real) (comxtup_2.nolev1[commvl_1.ivx - 1] - nolevo); -#line 24136 "" +#line 24741 "" off1 += dnolev; -#line 24137 "" +#line 24742 "" off2 += dnolev; -#line 24138 "" +#line 24743 "" } /* Computing 2nd power */ -#line 24139 "" +#line 24744 "" r__1 = dnolev; -#line 24139 "" +#line 24744 "" ssq = ssq + dnolev * 2 * (syb - *sumy) + r__1 * r__1; -#line 24140 "" +#line 24745 "" if (! comxtup_2.vxtup[commvl_1.ivx - 1] && sqrt(ssq / *nnb) > all_1.stemmax && (dabs(off1) < all_1.stemmax || dabs(off2) < all_1.stemmax) && ! bit_test(all_1.islur[commvl_1.ivx + ipb[1] * @@ -59404,83 +61446,83 @@ L6: /* The penultimate check is that first and last stems aren't both excessive. */ /* The last check is that a 0 slope has not been forced */ -#line 24150 "" +#line 24755 "" setbm2_(&xelsk[1], nnb, sumx, sumy, &ipb[1], &comxtup_2.islope[ commvl_1.ivx - 1], &comxtup_2.nolev1[commvl_1.ivx - 1]); -#line 24151 "" +#line 24756 "" } /* Check if beam starts or ends too high or low. */ -#line 24155 "" +#line 24760 "" xboff = combmh_1.bmhgt * ((15 & all_1.mult[commvl_1.ivx + ipb[1] * 24 - 25]) - 9); -#line 24156 "" +#line 24761 "" l1ng = iul * (comxtup_2.nolev1[commvl_1.ivx - 1] - ncmid_(&all_1.iv, &ipb[ 1])) + xboff + 7 < 0.f; -#line 24157 "" +#line 24762 "" xnolev2 = comxtup_2.nolev1[commvl_1.ivx - 1] + comxtup_2.islope[ commvl_1.ivx - 1] / all_1.slfac * xelsk[*nnb]; -#line 24158 "" +#line 24763 "" l2ng = iul * (xnolev2 - ncmid_(&all_1.iv, &ipb[*nnb])) + xboff + 7 < 0.f; -#line 24159 "" +#line 24764 "" if (l1ng || l2ng) { /* Need to correct start or stop, also slope */ -#line 24163 "" +#line 24768 "" if (l1ng) { -#line 24164 "" +#line 24769 "" r__1 = ncmid_(&all_1.iv, &ipb[1]) - (xboff + 7.f) * iul; -#line 24164 "" +#line 24769 "" comxtup_2.nolev1[commvl_1.ivx - 1] = i_nint(&r__1); -#line 24165 "" +#line 24770 "" } -#line 24166 "" +#line 24771 "" if (l2ng) { -#line 24167 "" +#line 24772 "" r__1 = ncmid_(&all_1.iv, &ipb[*nnb]) - (xboff + 7.f) * iul; -#line 24167 "" +#line 24772 "" xnolev2 = (real) i_nint(&r__1); -#line 24168 "" +#line 24773 "" } /* Since one or the other end has changed, need to change slope */ /* if (.not.btest(islur(ivx,ipb(1)),2)) */ -#line 24173 "" +#line 24778 "" if (! bit_test(all_1.islur[commvl_1.ivx + ipb[1] * 24 - 25],2) && * nnb != 1) { -#line 24173 "" +#line 24778 "" r__1 = all_1.slfac * (xnolev2 - comxtup_2.nolev1[commvl_1.ivx - 1] ) / xelsk[*nnb]; -#line 24173 "" +#line 24778 "" comxtup_2.islope[commvl_1.ivx - 1] = i_nint(&r__1); -#line 24173 "" +#line 24778 "" } -#line 24175 "" +#line 24780 "" } -#line 24176 "" +#line 24781 "" if (comxtup_2.nssb[commvl_1.ivx - 1] > 0) { /* This is a single-slope beam group. Store start heights for later segs. */ -#line 24180 "" +#line 24785 "" i__1 = comxtup_2.nssb[commvl_1.ivx - 1]; -#line 24180 "" +#line 24785 "" for (issbs = 1; issbs <= i__1; ++issbs) { -#line 24181 "" +#line 24786 "" comxtup_2.lev1ssb[commvl_1.ivx + issbs * 24 - 25] = comxtup_2.nolev1[commvl_1.ivx - 1] + comxtup_2.islope[ commvl_1.ivx - 1] / all_1.slfac * xelsk[comxtup_2.lev1ssb[ commvl_1.ivx + issbs * 24 - 25]]; -#line 24183 "" +#line 24788 "" /* L3: */ -#line 24183 "" +#line 24788 "" } -#line 24184 "" +#line 24789 "" } -#line 24185 "" +#line 24790 "" return 0; } /* setupb_ */ @@ -59495,60 +61537,60 @@ L6: /* Initialize ipoe: */ -#line 24194 "" +#line 24799 "" /* Parameter adjustments */ -#line 24194 "" +#line 24799 "" --ipoe; -#line 24194 "" +#line 24799 "" --poe; -#line 24194 "" +#line 24799 "" -#line 24194 "" +#line 24799 "" /* Function Body */ -#line 24194 "" +#line 24799 "" i__1 = *nsyst; -#line 24194 "" +#line 24799 "" for (iord = 1; iord <= i__1; ++iord) { -#line 24195 "" +#line 24800 "" ipoe[iord] = iord; -#line 24196 "" +#line 24801 "" /* L3: */ -#line 24196 "" +#line 24801 "" } /* Construct ipoe vector with pairwise interchanges. When done, ipoe(1) will */ /* be index of smallest poe, and ipoe(nsyst) will be index of biggest poe. */ -#line 24201 "" +#line 24806 "" i__1 = *nsyst - 1; -#line 24201 "" +#line 24806 "" for (io1 = 1; io1 <= i__1; ++io1) { -#line 24202 "" +#line 24807 "" i__2 = *nsyst; -#line 24202 "" +#line 24807 "" for (io2 = io1 + 1; io2 <= i__2; ++io2) { -#line 24203 "" +#line 24808 "" if (poe[ipoe[io1]] > poe[ipoe[io2]]) { /* Interchange the indices */ -#line 24207 "" +#line 24812 "" itemp = ipoe[io1]; -#line 24208 "" +#line 24813 "" ipoe[io1] = ipoe[io2]; -#line 24209 "" +#line 24814 "" ipoe[io2] = itemp; -#line 24210 "" +#line 24815 "" } -#line 24211 "" +#line 24816 "" /* L5: */ -#line 24211 "" +#line 24816 "" } -#line 24212 "" +#line 24817 "" /* L4: */ -#line 24212 "" +#line 24817 "" } -#line 24213 "" +#line 24818 "" return 0; } /* sortpoe_ */ @@ -59585,114 +61627,114 @@ L6: /* Counter for signed integers. 1st is height, 2nd is horiz, 3rd is curve */ -#line 24238 "" +#line 24843 "" /* Parameter adjustments */ -#line 24238 "" +#line 24843 "" --isdat4; -#line 24238 "" +#line 24843 "" --isdat3; -#line 24238 "" +#line 24843 "" --isdat2; -#line 24238 "" +#line 24843 "" --isdat1; -#line 24238 "" +#line 24843 "" -#line 24238 "" +#line 24843 "" /* Function Body */ -#line 24238 "" +#line 24843 "" numint = 0; -#line 24239 "" +#line 24844 "" ivoff = 0; -#line 24240 "" +#line 24845 "" ihoff = 0; -#line 24241 "" +#line 24846 "" ++(*nsdat); -#line 24242 "" +#line 24847 "" if (*(unsigned char *)starter == '{' || *(unsigned char *)starter == '}') { -#line 24242 "" +#line 24847 "" isdat2[*nsdat] = bit_set(isdat2[*nsdat],3); -#line 24242 "" +#line 24847 "" } -#line 24244 "" +#line 24849 "" setbits_(&isdat1[*nsdat], &c__5, &c__13, iv); -#line 24245 "" +#line 24850 "" i__1 = *kv - 1; -#line 24245 "" +#line 24850 "" setbits_(&isdat1[*nsdat], &c__1, &c__12, &i__1); -#line 24246 "" +#line 24851 "" setbits_(&isdat1[*nsdat], &c__8, &c__3, ip); -#line 24247 "" +#line 24852 "" isdat3[*nsdat] = 0; -#line 24248 "" +#line 24853 "" isdat4[*nsdat] = 0; -#line 24249 "" +#line 24854 "" ilb12 = 0; /* Get ID code */ /* flag for tweaks of 1st or 2nd (0|1) seg of linebreak slur */ -#line 24253 "" +#line 24858 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); /* if (index('uldtb+-hfnHps ',durq) .gt. 0) then */ -#line 24255 "" +#line 24860 "" if (i_indx("uldtb+-hfnHpsv ", durq, (ftnlen)15, (ftnlen)1) > 0) { /* Null id. Note for ps slurs, 'H' cannot be an ID */ -#line 24259 "" +#line 24864 "" --(*iccount); -#line 24260 "" +#line 24865 "" if (*(unsigned char *)&lineq[*iccount - 1] == 't') { -#line 24261 "" +#line 24866 "" idcode = 1; -#line 24262 "" +#line 24867 "" } else { -#line 24263 "" +#line 24868 "" idcode = 32; -#line 24264 "" +#line 24869 "" } -#line 24265 "" +#line 24870 "" } else { /* Set explicit idcode */ -#line 24269 "" +#line 24874 "" idcode = *(unsigned char *)durq; -#line 24270 "" +#line 24875 "" i__1 = *iccount - 2; -#line 24270 "" +#line 24875 "" if (s_cmp(lineq + i__1, "t", *iccount - 1 - i__1, (ftnlen)1) == 0) { /* Make t[ID] look like s[ID]t */ -#line 24274 "" +#line 24879 "" isdat2[*nsdat] = bit_set(isdat2[*nsdat],3); -#line 24275 "" +#line 24880 "" } -#line 24276 "" +#line 24881 "" i__1 = *iccount; -#line 24276 "" +#line 24881 "" if (s_cmp(lineq + i__1, "x", *iccount + 1 - i__1, (ftnlen)1) == 0) { /* Flag for 2-voice, indexed slurs */ -#line 24280 "" +#line 24885 "" ++(*iccount); -#line 24281 "" +#line 24886 "" setbits_(&isdat1[*nsdat], &c__1, &c__1, &c__1); -#line 24282 "" +#line 24887 "" } -#line 24283 "" +#line 24888 "" } -#line 24284 "" +#line 24889 "" setbits_(&isdat1[*nsdat], &c__7, &c__19, &idcode); /* Set start/stop: look thru list from end for same idcode,iv,kv */ -#line 24288 "" +#line 24893 "" for (isdat = *nsdat - 1; isdat >= 1; --isdat) { -#line 24289 "" +#line 24894 "" if (idcode == igetbits_(&isdat1[isdat], &c__7, &c__19) && *iv == igetbits_(&isdat1[isdat], &c__5, &c__13) && (*kv - 1 == igetbits_(&isdat1[isdat], &c__1, &c__12) || bit_test(isdat1[ @@ -59701,372 +61743,372 @@ L6: /* Matched idcode & ivx. On/off?. If on, new is turnoff, leave bit 11 at 0. */ -#line 24297 "" +#line 24902 "" if (bit_test(isdat1[isdat],11)) { -#line 24297 "" +#line 24902 "" goto L3; -#line 24297 "" +#line 24902 "" } /* Found slur is a turnoff, so new one is a turnon. Jump down to set bit */ -#line 24301 "" +#line 24906 "" goto L4; -#line 24302 "" +#line 24907 "" } -#line 24303 "" +#line 24908 "" /* L2: */ -#line 24303 "" +#line 24908 "" } /* If here, this is turnon. */ -#line 24307 "" +#line 24912 "" L4: -#line 24308 "" +#line 24913 "" isdat1[*nsdat] = bit_set(isdat1[*nsdat],11); -#line 24309 "" +#line 24914 "" L3: /* Now done with initial turnon- or turnoff-specifics. */ -#line 24313 "" +#line 24918 "" if (i_nint(&comslur_1.slurcurve) != 0 && bit_test(isdat1[*nsdat],11)) { /* There's a default curvature tweak */ -#line 24317 "" +#line 24922 "" icurv1 = i_nint(&comslur_1.slurcurve) + 3; -#line 24318 "" +#line 24923 "" if (icurv1 == 2) { -#line 24318 "" +#line 24923 "" icurv1 = 1; -#line 24318 "" +#line 24923 "" } -#line 24319 "" +#line 24924 "" isdat3[*nsdat] = bit_set(isdat3[*nsdat],0); -#line 24320 "" +#line 24925 "" i__1 = icurv1 + 32; -#line 24320 "" +#line 24925 "" setbits_(&isdat3[*nsdat], &c__6, &c__2, &i__1); -#line 24321 "" +#line 24926 "" } /* Loop for rest of input */ -#line 24325 "" +#line 24930 "" L1: -#line 24325 "" +#line 24930 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 24326 "" +#line 24931 "" if (i_indx("uld", durq, (ftnlen)3, (ftnlen)1) > 0) { /* Force direction */ -#line 24330 "" +#line 24935 "" isdat1[*nsdat] = bit_set(isdat1[*nsdat],26); -#line 24331 "" +#line 24936 "" if (*(unsigned char *)durq == 'u') { -#line 24331 "" +#line 24936 "" isdat1[*nsdat] = bit_set(isdat1[*nsdat],27); -#line 24331 "" +#line 24936 "" } -#line 24332 "" +#line 24937 "" goto L1; -#line 24333 "" +#line 24938 "" } else if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { -#line 24334 "" +#line 24939 "" ++numint; -#line 24335 "" +#line 24940 "" if (numint == 1) { /* Vertical offset */ -#line 24339 "" +#line 24944 "" ++(*iccount); -#line 24340 "" +#line 24945 "" readnum_(lineq, iccount, dumq, &fnum, (ftnlen)128, (ftnlen)1); -#line 24341 "" +#line 24946 "" --(*iccount); -#line 24342 "" +#line 24947 "" ivoff = i_nint(&fnum); -#line 24343 "" +#line 24948 "" if (*(unsigned char *)durq == '-') { -#line 24343 "" +#line 24948 "" ivoff = -ivoff; -#line 24343 "" +#line 24948 "" } -#line 24344 "" +#line 24949 "" } else if (numint == 2) { /* Horizontal offset */ -#line 24348 "" +#line 24953 "" ++(*iccount); -#line 24349 "" +#line 24954 "" readnum_(lineq, iccount, dumq, &fnum, (ftnlen)128, (ftnlen)1); -#line 24350 "" +#line 24955 "" --(*iccount); /* fnum is abs(hshift), must be 0 to 6.3 */ -#line 24354 "" +#line 24959 "" ihoff = fnum * 10 + .5f; -#line 24355 "" +#line 24960 "" if (*(unsigned char *)durq == '-') { -#line 24355 "" +#line 24960 "" ihoff = -ihoff; -#line 24355 "" +#line 24960 "" } /* Later will set bits to 1...127 to represent -6.3,...+6.3 */ -#line 24359 "" +#line 24964 "" } else { /* Must be the 3rd signed integer, so it's a curve specification */ -#line 24363 "" +#line 24968 "" isdat3[*nsdat] = bit_set(isdat3[*nsdat],0); -#line 24364 "" +#line 24969 "" ++(*iccount); -#line 24365 "" +#line 24970 "" readnum_(lineq, iccount, dumq, &fnum, (ftnlen)128, (ftnlen)1); -#line 24366 "" +#line 24971 "" icurv1 = i_nint(&fnum); -#line 24367 "" +#line 24972 "" if (*(unsigned char *)durq == '-') { -#line 24367 "" +#line 24972 "" icurv1 = -icurv1; -#line 24367 "" +#line 24972 "" } -#line 24368 "" +#line 24973 "" i__1 = icurv1 + 32; -#line 24368 "" +#line 24973 "" setbits_(&isdat3[*nsdat], &c__6, &c__2, &i__1); -#line 24369 "" +#line 24974 "" if (*(unsigned char *)dumq != ':') { /* Back up the pointer and loop for more input */ -#line 24373 "" +#line 24978 "" --(*iccount); -#line 24374 "" +#line 24979 "" } else { /* Expect two single digits as parameters for curve */ -#line 24378 "" +#line 24983 "" isdat3[*nsdat] = bit_set(isdat3[*nsdat],1); -#line 24379 "" +#line 24984 "" i__1 = *iccount; -#line 24379 "" +#line 24984 "" i__2 = *(unsigned char *)&lineq[i__1] - 48; -#line 24379 "" +#line 24984 "" setbits_(&isdat3[*nsdat], &c__3, &c__8, &i__2); -#line 24381 "" +#line 24986 "" i__1 = *iccount + 1; -#line 24381 "" +#line 24986 "" i__2 = *(unsigned char *)&lineq[i__1] - 48; -#line 24381 "" +#line 24986 "" setbits_(&isdat3[*nsdat], &c__3, &c__11, &i__2); -#line 24383 "" +#line 24988 "" *iccount += 2; -#line 24384 "" +#line 24989 "" } -#line 24385 "" +#line 24990 "" } -#line 24386 "" +#line 24991 "" goto L1; -#line 24387 "" +#line 24992 "" } else if (*(unsigned char *)durq == 't') { -#line 24388 "" +#line 24993 "" isdat2[*nsdat] = bit_set(isdat2[*nsdat],3); -#line 24389 "" +#line 24994 "" goto L1; -#line 24390 "" +#line 24995 "" } else if (*(unsigned char *)durq == 'b') { -#line 24391 "" +#line 24996 "" isdat2[*nsdat] = bit_set(isdat2[*nsdat],4); -#line 24392 "" +#line 24997 "" goto L1; -#line 24393 "" +#line 24998 "" } else if (*(unsigned char *)durq == 's') { /* Endpoint tweaks for linebreak slurs. */ -#line 24397 "" +#line 25002 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); /* Next is vertical offset */ /* Must be +|- */ -#line 24401 "" +#line 25006 "" ++(*iccount); -#line 24402 "" +#line 25007 "" readnum_(lineq, iccount, dumq, &fnum, (ftnlen)128, (ftnlen)1); -#line 24403 "" +#line 25008 "" if (*(unsigned char *)durq == '-') { -#line 24403 "" +#line 25008 "" fnum = -fnum; -#line 24403 "" +#line 25008 "" } -#line 24404 "" +#line 25009 "" i__1 = ilb12 << 4; -#line 24404 "" +#line 25009 "" i__2 = i_nint(&fnum) + 32; -#line 24404 "" +#line 25009 "" setbits_(&isdat4[*nsdat], &c__6, &i__1, &i__2); -#line 24405 "" +#line 25010 "" if (i_indx("+-", dumq, (ftnlen)2, (ftnlen)1) > 0) { /* Also a horizontal offset */ -#line 24409 "" +#line 25014 "" ++(*iccount); -#line 24410 "" +#line 25015 "" readnum_(lineq, iccount, durq, &fnum, (ftnlen)128, (ftnlen)1); -#line 24411 "" +#line 25016 "" if (*(unsigned char *)dumq == '-') { -#line 24411 "" +#line 25016 "" fnum = -fnum; -#line 24411 "" +#line 25016 "" } -#line 24412 "" +#line 25017 "" i__1 = (ilb12 << 4) + 6; -#line 24412 "" +#line 25017 "" r__1 = fnum * 10; -#line 24412 "" +#line 25017 "" i__2 = i_nint(&r__1) + 64; -#line 24412 "" +#line 25017 "" setbits_(&isdat4[*nsdat], &c__7, &i__1, &i__2); -#line 24413 "" +#line 25018 "" } -#line 24414 "" +#line 25019 "" --(*iccount); -#line 24415 "" +#line 25020 "" ilb12 = 1; -#line 24416 "" +#line 25021 "" goto L1; -#line 24417 "" +#line 25022 "" } else if (i_indx("fnhH", durq, (ftnlen)4, (ftnlen)1) > 0) { /* Special ps slur curvatures. */ /* Translate to old \midslur args (1,4,5,6) */ -#line 24422 "" +#line 25027 "" icurv1 = i_indx("fnxhH", durq, (ftnlen)5, (ftnlen)1); -#line 24423 "" +#line 25028 "" if (icurv1 == 5) { /* check for 2nd H */ -#line 24427 "" +#line 25032 "" i__1 = *iccount; -#line 24427 "" +#line 25032 "" if (s_cmp(lineq + i__1, "H", *iccount + 1 - i__1, (ftnlen)1) == 0) { -#line 24428 "" +#line 25033 "" ++(*iccount); -#line 24429 "" +#line 25034 "" icurv1 = 6; -#line 24430 "" +#line 25035 "" } -#line 24431 "" +#line 25036 "" } -#line 24432 "" +#line 25037 "" isdat3[*nsdat] = bit_set(isdat3[*nsdat],0); -#line 24433 "" +#line 25038 "" i__1 = icurv1 + 32; -#line 24433 "" +#line 25038 "" setbits_(&isdat3[*nsdat], &c__6, &c__2, &i__1); -#line 24434 "" +#line 25039 "" goto L1; -#line 24435 "" +#line 25040 "" } else if (*(unsigned char *)durq == 'p') { /* Local adjustment */ -#line 24436 "" +#line 25041 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); /* +|- */ -#line 24437 "" +#line 25042 "" getchar_(lineq, iccount, dumq, (ftnlen)128, (ftnlen)1); /* 26 \sluradjust (p+s) */ /* 27 \nosluradjust (p-s) */ /* 28 \tieadjust (p+t) */ /* 29 \notieadjust (p-t) */ /* s|t */ -#line 24442 "" +#line 25047 "" if (*(unsigned char *)durq == '+') { -#line 24443 "" +#line 25048 "" if (*(unsigned char *)dumq == 's') { -#line 24444 "" +#line 25049 "" isdat2[*nsdat] = bit_set(isdat2[*nsdat],26); -#line 24445 "" +#line 25050 "" } else { -#line 24446 "" +#line 25051 "" isdat2[*nsdat] = bit_set(isdat2[*nsdat],28); -#line 24447 "" +#line 25052 "" } -#line 24448 "" +#line 25053 "" } else { -#line 24449 "" +#line 25054 "" if (*(unsigned char *)dumq == 's') { -#line 24450 "" +#line 25055 "" isdat2[*nsdat] = bit_set(isdat2[*nsdat],27); -#line 24451 "" +#line 25056 "" } else { -#line 24452 "" +#line 25057 "" isdat2[*nsdat] = bit_set(isdat2[*nsdat],29); -#line 24453 "" +#line 25058 "" } -#line 24454 "" +#line 25059 "" } -#line 24455 "" +#line 25060 "" goto L1; -#line 24456 "" +#line 25061 "" } else if (*(unsigned char *)durq == 'v') { /* Stem slur */ -#line 24457 "" +#line 25062 "" isdat1[*nsdat] = bit_set(isdat1[*nsdat],2); -#line 24458 "" +#line 25063 "" goto L1; -#line 24459 "" +#line 25064 "" } /* Record shifts */ -#line 24463 "" +#line 25068 "" i__1 = ivoff + 32; -#line 24463 "" +#line 25068 "" setbits_(&isdat2[*nsdat], &c__6, &c__6, &i__1); -#line 24464 "" +#line 25069 "" i__1 = ihoff + 64; -#line 24464 "" +#line 25069 "" setbits_(&isdat2[*nsdat], &c__7, &c__12, &i__1); /* Record chord flag, note level, notehead shift */ -#line 24468 "" +#line 25073 "" if (*notcrd) { -#line 24469 "" +#line 25074 "" setbits_(&isdat2[*nsdat], &c__7, &c__19, nolev); -#line 24470 "" +#line 25075 "" } else { -#line 24471 "" +#line 25076 "" nolevc = igetbits_(&comtrill_1.icrdat[comtrill_1.ncrd - 1], &c__7, & c__12); -#line 24472 "" +#line 25077 "" setbits_(&isdat2[*nsdat], &c__7, &c__19, &nolevc); -#line 24473 "" +#line 25078 "" isdat2[*nsdat] = bit_set(isdat2[*nsdat],0); -#line 24474 "" +#line 25079 "" i__1 = igetbits_(&comtrill_1.icrdat[comtrill_1.ncrd - 1], &c__2, & c__23); -#line 24474 "" +#line 25079 "" setbits_(&isdat2[*nsdat], &c__2, &c__1, &i__1); -#line 24475 "" +#line 25080 "" } -#line 24476 "" +#line 25081 "" return 0; } /* spsslur_ */ @@ -60101,346 +62143,346 @@ L1: /* Counter for signed integers. 1st is height, 2nd is horiz, 3rd is curve */ -#line 24501 "" +#line 25106 "" /* Parameter adjustments */ -#line 24501 "" +#line 25106 "" --isdat3; -#line 24501 "" +#line 25106 "" --isdat2; -#line 24501 "" +#line 25106 "" --isdat1; -#line 24501 "" +#line 25106 "" -#line 24501 "" +#line 25106 "" /* Function Body */ -#line 24501 "" +#line 25106 "" numint = 0; -#line 24502 "" +#line 25107 "" ivoff = 0; -#line 24503 "" +#line 25108 "" ihoff = 0; -#line 24504 "" +#line 25109 "" ++(*nsdat); -#line 24505 "" +#line 25110 "" if (*(unsigned char *)starter == '{' || *(unsigned char *)starter == '}') { -#line 24505 "" +#line 25110 "" isdat2[*nsdat] = bit_set(isdat2[*nsdat],3); -#line 24505 "" +#line 25110 "" } -#line 24507 "" +#line 25112 "" setbits_(&isdat1[*nsdat], &c__5, &c__13, iv); -#line 24508 "" +#line 25113 "" i__1 = *kv - 1; -#line 24508 "" +#line 25113 "" setbits_(&isdat1[*nsdat], &c__1, &c__12, &i__1); -#line 24509 "" +#line 25114 "" setbits_(&isdat1[*nsdat], &c__8, &c__3, ip); -#line 24510 "" +#line 25115 "" isdat3[*nsdat] = 0; /* Get id letter */ -#line 24514 "" +#line 25119 "" if (*(unsigned char *)&lineq[*iccount - 1] == 't') { /* Old-style t-slur. Use special idcode = 1 */ -#line 24518 "" +#line 25123 "" idcode = 1; -#line 24519 "" +#line 25124 "" } else { -#line 24520 "" +#line 25125 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 24521 "" +#line 25126 "" if (i_indx("uldtb+-hf ", durq, (ftnlen)10, (ftnlen)1) > 0) { /* Null id */ -#line 24525 "" +#line 25130 "" idcode = 32; -#line 24526 "" +#line 25131 "" --(*iccount); -#line 24527 "" +#line 25132 "" } else if (*(unsigned char *)durq == 'H') { /* Postscript slur, cannot use 'H' as code, must check for 2nd 'H' */ -#line 24531 "" +#line 25136 "" idcode = 32; -#line 24532 "" +#line 25137 "" --(*iccount); /* There may be another "H", but no need to deal with it yet */ -#line 24536 "" +#line 25141 "" } else { /* Set explicit idcode */ -#line 24540 "" +#line 25145 "" idcode = *(unsigned char *)durq; -#line 24541 "" +#line 25146 "" } -#line 24542 "" +#line 25147 "" } -#line 24543 "" +#line 25148 "" setbits_(&isdat1[*nsdat], &c__7, &c__19, &idcode); /* Set start/stop: look thru list from end for same idcode,iv,kv */ -#line 24547 "" +#line 25152 "" for (isdat = *nsdat - 1; isdat >= 1; --isdat) { -#line 24548 "" +#line 25153 "" if (idcode == igetbits_(&isdat1[isdat], &c__7, &c__19) && *iv == igetbits_(&isdat1[isdat], &c__5, &c__13) && *kv - 1 == igetbits_(&isdat1[isdat], &c__1, &c__12)) { /* Matched idcode & ivx. On/off?. If on, new is turnoff, leave bit 11 at 0. */ -#line 24554 "" +#line 25159 "" if (bit_test(isdat1[isdat],11)) { -#line 24554 "" +#line 25159 "" goto L3; -#line 24554 "" +#line 25159 "" } /* Found slur is a turnoff, so new one is a turnon. Jump down to set bit */ -#line 24558 "" +#line 25163 "" goto L4; -#line 24559 "" +#line 25164 "" } -#line 24560 "" +#line 25165 "" /* L2: */ -#line 24560 "" +#line 25165 "" } /* If here, this is turnon. */ -#line 24564 "" +#line 25169 "" L4: -#line 24565 "" +#line 25170 "" isdat1[*nsdat] = bit_set(isdat1[*nsdat],11); -#line 24566 "" +#line 25171 "" L3: /* Now done with initial turnon- or turnoff-specifics. Loop for rest of input */ -#line 24570 "" +#line 25175 "" L1: -#line 24570 "" +#line 25175 "" getchar_(lineq, iccount, durq, (ftnlen)128, (ftnlen)1); -#line 24571 "" +#line 25176 "" if (i_indx("uld", durq, (ftnlen)3, (ftnlen)1) > 0) { /* Force direction */ -#line 24575 "" +#line 25180 "" isdat1[*nsdat] = bit_set(isdat1[*nsdat],26); -#line 24576 "" +#line 25181 "" if (*(unsigned char *)durq == 'u') { -#line 24576 "" +#line 25181 "" isdat1[*nsdat] = bit_set(isdat1[*nsdat],27); -#line 24576 "" +#line 25181 "" } -#line 24577 "" +#line 25182 "" goto L1; -#line 24578 "" +#line 25183 "" } else if (i_indx("+-", durq, (ftnlen)2, (ftnlen)1) > 0) { -#line 24579 "" +#line 25184 "" ++numint; -#line 24580 "" +#line 25185 "" if (numint == 1) { /* Vertical offset */ -#line 24584 "" +#line 25189 "" ++(*iccount); -#line 24585 "" +#line 25190 "" readnum_(lineq, iccount, dumq, &fnum, (ftnlen)128, (ftnlen)1); -#line 24586 "" +#line 25191 "" --(*iccount); -#line 24587 "" +#line 25192 "" ivoff = i_nint(&fnum); -#line 24588 "" +#line 25193 "" if (*(unsigned char *)durq == '-') { -#line 24588 "" +#line 25193 "" ivoff = -ivoff; -#line 24588 "" +#line 25193 "" } -#line 24589 "" +#line 25194 "" } else if (numint == 2) { /* Horizontal offset */ -#line 24593 "" +#line 25198 "" ++(*iccount); -#line 24594 "" +#line 25199 "" readnum_(lineq, iccount, dumq, &fnum, (ftnlen)128, (ftnlen)1); -#line 24595 "" +#line 25200 "" --(*iccount); /* fnum is abs(hshift), must be 0 to 6.3 */ -#line 24599 "" +#line 25204 "" ihoff = fnum * 10 + .5f; -#line 24600 "" +#line 25205 "" if (*(unsigned char *)durq == '-') { -#line 24600 "" +#line 25205 "" ihoff = -ihoff; -#line 24600 "" +#line 25205 "" } /* Later will set bits to 1...127 to represent -6.3,...+6.3 */ -#line 24604 "" +#line 25209 "" } else { /* Must be the 3rd signed integer, so it's a curve specification */ -#line 24608 "" +#line 25213 "" isdat3[*nsdat] = bit_set(isdat3[*nsdat],0); -#line 24609 "" +#line 25214 "" ++(*iccount); -#line 24610 "" +#line 25215 "" readnum_(lineq, iccount, dumq, &fnum, (ftnlen)128, (ftnlen)1); -#line 24611 "" +#line 25216 "" icurv1 = i_nint(&fnum); -#line 24612 "" +#line 25217 "" if (*(unsigned char *)durq == '-') { -#line 24612 "" +#line 25217 "" icurv1 = -icurv1; -#line 24612 "" +#line 25217 "" } -#line 24613 "" +#line 25218 "" i__1 = icurv1 + 32; -#line 24613 "" +#line 25218 "" setbits_(&isdat3[*nsdat], &c__6, &c__2, &i__1); -#line 24614 "" +#line 25219 "" if (*(unsigned char *)dumq != ':') { /* Back up the pointer and loop for more input */ -#line 24618 "" +#line 25223 "" --(*iccount); -#line 24619 "" +#line 25224 "" } else { /* Expect two single digits as parameters for curve */ -#line 24623 "" +#line 25228 "" isdat3[*nsdat] = bit_set(isdat3[*nsdat],1); -#line 24624 "" +#line 25229 "" i__1 = *iccount; -#line 24624 "" +#line 25229 "" i__2 = *(unsigned char *)&lineq[i__1] - 48; -#line 24624 "" +#line 25229 "" setbits_(&isdat3[*nsdat], &c__3, &c__8, &i__2); -#line 24626 "" +#line 25231 "" i__1 = *iccount + 1; -#line 24626 "" +#line 25231 "" i__2 = *(unsigned char *)&lineq[i__1] - 48; -#line 24626 "" +#line 25231 "" setbits_(&isdat3[*nsdat], &c__3, &c__11, &i__2); -#line 24628 "" +#line 25233 "" *iccount += 2; -#line 24629 "" +#line 25234 "" } -#line 24630 "" +#line 25235 "" } -#line 24631 "" +#line 25236 "" goto L1; -#line 24632 "" +#line 25237 "" } else if (*(unsigned char *)durq == 't') { -#line 24633 "" +#line 25238 "" isdat2[*nsdat] = bit_set(isdat2[*nsdat],3); -#line 24634 "" +#line 25239 "" goto L1; -#line 24635 "" +#line 25240 "" } else if (*(unsigned char *)durq == 'b') { -#line 24636 "" +#line 25241 "" isdat2[*nsdat] = bit_set(isdat2[*nsdat],4); -#line 24637 "" +#line 25242 "" goto L1; -#line 24638 "" +#line 25243 "" } else if (i_indx("fhH", durq, (ftnlen)3, (ftnlen)1) > 0) { /* Special ps slur curvatures. Translate to old \midslur args (1,4,5,6) */ -#line 24642 "" +#line 25247 "" icurv1 = i_indx("fhH", durq, (ftnlen)3, (ftnlen)1) + 2; -#line 24643 "" +#line 25248 "" if (icurv1 == 3) { -#line 24644 "" +#line 25249 "" icurv1 = 1; -#line 24645 "" +#line 25250 "" } else if (icurv1 == 5) { /* check for 2nd H */ -#line 24649 "" +#line 25254 "" i__1 = *iccount; -#line 24649 "" +#line 25254 "" if (s_cmp(lineq + i__1, "H", *iccount + 1 - i__1, (ftnlen)1) == 0) { -#line 24650 "" +#line 25255 "" ++(*iccount); -#line 24651 "" +#line 25256 "" icurv1 = 6; -#line 24652 "" +#line 25257 "" } -#line 24653 "" +#line 25258 "" } -#line 24654 "" +#line 25259 "" isdat3[*nsdat] = bit_set(isdat3[*nsdat],0); /* Must change sign if downslur, but cannot do it now since we don't know */ /* slur direction for sure. */ -#line 24659 "" +#line 25264 "" i__1 = icurv1 + 32; -#line 24659 "" +#line 25264 "" setbits_(&isdat3[*nsdat], &c__6, &c__2, &i__1); -#line 24660 "" +#line 25265 "" goto L1; -#line 24661 "" +#line 25266 "" } /* Record shifts */ -#line 24665 "" +#line 25270 "" i__1 = ivoff + 32; -#line 24665 "" +#line 25270 "" setbits_(&isdat2[*nsdat], &c__6, &c__6, &i__1); -#line 24666 "" +#line 25271 "" i__1 = ihoff + 64; -#line 24666 "" +#line 25271 "" setbits_(&isdat2[*nsdat], &c__7, &c__12, &i__1); /* Record chord flag, note level, notehead shift */ -#line 24670 "" +#line 25275 "" if (*notcrd) { -#line 24671 "" +#line 25276 "" setbits_(&isdat2[*nsdat], &c__7, &c__19, nolev); -#line 24672 "" +#line 25277 "" } else { -#line 24673 "" +#line 25278 "" nolevc = igetbits_(&comtrill_1.icrdat[comtrill_1.ncrd - 1], &c__7, & c__12); -#line 24674 "" +#line 25279 "" setbits_(&isdat2[*nsdat], &c__7, &c__19, &nolevc); -#line 24675 "" +#line 25280 "" isdat2[*nsdat] = bit_set(isdat2[*nsdat],0); -#line 24676 "" +#line 25281 "" i__1 = igetbits_(&comtrill_1.icrdat[comtrill_1.ncrd - 1], &c__2, & c__23); -#line 24676 "" +#line 25281 "" setbits_(&isdat2[*nsdat], &c__2, &c__1, &i__1); -#line 24677 "" +#line 25282 "" } -#line 24678 "" +#line 25283 "" return 0; } /* sslur_ */ @@ -60448,9 +62490,9 @@ L1: { extern /* Subroutine */ int exit_(integer *); -#line 24681 "" +#line 25286 "" exit_(&c__1); -#line 24682 "" +#line 25287 "" return 0; } /* stop1_ */ @@ -60460,18 +62502,17 @@ L1: logical *fontslur, ftnlen basenameq_len, ftnlen clefq_len) { /* System generated locals */ - address a__1[3], a__2[2], a__3[4], a__4[6], a__5[2], a__6[5], a__7[10], + address a__1[3], a__2[2], a__3[4], a__4[2], a__5[6], a__6[5], a__7[10], a__8[20], a__9[12], a__10[8]; - integer i__1[3], i__2[2], i__3[4], i__4[6], i__5, i__6[2], i__7, i__8, + integer i__1[3], i__2[2], i__3[4], i__4, i__5[2], i__6, i__7[6], i__8, i__9[5], i__10[10], i__11[20], i__12[12], i__13[8]; real r__1; char ch__1[1], ch__2[50], ch__3[15], ch__4[10], ch__5[39], ch__6[14], - ch__7[17], ch__8[16], ch__9[32], ch__10[8], ch__11[12], ch__12[9], - ch__13[13], ch__14[11], ch__15[21], ch__16[7], ch__17[6], ch__18[ - 30], ch__19[19], ch__20[1], ch__21[2], ch__22[33], ch__23[25], - ch__24[35], ch__25[81], ch__26[82], ch__27[18], ch__28[57], - ch__29[44], ch__30[62], ch__31[54], ch__32[86], ch__33[41], - ch__34[47]; + ch__7[17], ch__8[16], ch__9[8], ch__10[12], ch__11[9], ch__12[13], + ch__13[11], ch__14[21], ch__15[7], ch__16[6], ch__17[30], ch__18[ + 19], ch__19[1], ch__20[2], ch__21[33], ch__22[25], ch__23[35], + ch__24[81], ch__25[82], ch__26[18], ch__27[57], ch__28[44], + ch__29[62], ch__30[54], ch__31[86], ch__32[41], ch__33[47]; cilist ci__1; /* Builtin functions */ @@ -60482,7 +62523,7 @@ L1: /* Subroutine */ int s_copy(char *, char *, ftnlen, ftnlen); /* Local variables */ - static integer k, iv; + static integer k, im, iv; static char sq[1]; static integer ipi; extern /* Character */ VOID chax_(char *, ftnlen, integer *); @@ -60498,299 +62539,271 @@ L1: static integer nstaves; /* Fortran I/O blocks */ - static cilist io___1743 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1744 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1745 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1746 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1747 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1748 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1749 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1750 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1751 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1752 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1753 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1754 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1755 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1756 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1757 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1759 = { 0, 11, 0, "(a8,i1,a)", 0 }; - static cilist io___1760 = { 0, 11, 0, "(a9,i2,a)", 0 }; - static cilist io___1761 = { 0, 11, 0, "(a8,i1,a)", 0 }; - static cilist io___1762 = { 0, 11, 0, "(a9,i2,a)", 0 }; - static icilist io___1764 = { 0, fbarq, 0, "(f5.3)", 5, 1 }; - static cilist io___1765 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1766 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1767 = { 0, 11, 0, "(a7,i3,a2)", 0 }; - static cilist io___1768 = { 0, 11, 0, "(a8,i3,a2)", 0 }; - static cilist io___1769 = { 0, 11, 0, "(a8,i2,a2)", 0 }; - static cilist io___1770 = { 0, 11, 0, "(a8,i1,a2)", 0 }; - static cilist io___1771 = { 0, 11, 0, "(a8,i2,a2)", 0 }; - static cilist io___1772 = { 0, 11, 0, "(a8,i3,a2)", 0 }; - static cilist io___1773 = { 0, 11, 0, "(a8,i2,a2)", 0 }; - static cilist io___1774 = { 0, 11, 0, "(a8,i1,a2)", 0 }; - static cilist io___1775 = { 0, 11, 0, "(a8,i2,a2)", 0 }; - static cilist io___1776 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1777 = { 0, 11, 0, "(a19,i1,a1)", 0 }; - static cilist io___1778 = { 0, 11, 0, "(a19,i2,a1)", 0 }; - static cilist io___1781 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1782 = { 0, 11, 0, "(a11,i2,a)", 0 }; - static cilist io___1787 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1788 = { 0, 11, 0, "(a9,i2,a)", 0 }; - static cilist io___1789 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1790 = { 0, 11, 0, "(a21,i2,a)", 0 }; - static cilist io___1792 = { 0, 11, 0, "(a8,i1,a)", 0 }; - static cilist io___1793 = { 0, 11, 0, "(a9,i2,a)", 0 }; - static cilist io___1794 = { 0, 11, 0, "(a18,i2,a2)", 0 }; - static cilist io___1796 = { 0, 11, 0, "(a11,i1,a2)", 0 }; - static cilist io___1797 = { 0, 11, 0, "(a11,i2,a2)", 0 }; - static cilist io___1798 = { 0, 11, 0, "(a11,i3,a2)", 0 }; - static cilist io___1799 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1801 = { 0, 11, 0, fmtq, 0 }; - static cilist io___1802 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1803 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1804 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1805 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1806 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1807 = { 0, 11, 0, "(a)", 0 }; - - -#line 24709 "" + static cilist io___1815 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1816 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1817 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1818 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1819 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1820 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1821 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1822 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1823 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1824 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1825 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1826 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1827 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1829 = { 0, 11, 0, "(a8,i1,a)", 0 }; + static cilist io___1830 = { 0, 11, 0, "(a9,i2,a)", 0 }; + static cilist io___1831 = { 0, 11, 0, "(a8,i1,a)", 0 }; + static cilist io___1832 = { 0, 11, 0, "(a9,i2,a)", 0 }; + static icilist io___1834 = { 0, fbarq, 0, "(f5.3)", 5, 1 }; + static cilist io___1835 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1836 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1837 = { 0, 11, 0, "(a7,i3,a2)", 0 }; + static cilist io___1838 = { 0, 11, 0, "(a8,i3,a2)", 0 }; + static cilist io___1839 = { 0, 11, 0, "(a8,i2,a2)", 0 }; + static cilist io___1840 = { 0, 11, 0, "(a8,i1,a2)", 0 }; + static cilist io___1841 = { 0, 11, 0, "(a8,i2,a2)", 0 }; + static cilist io___1842 = { 0, 11, 0, "(a8,i3,a2)", 0 }; + static cilist io___1843 = { 0, 11, 0, "(a8,i2,a2)", 0 }; + static cilist io___1844 = { 0, 11, 0, "(a8,i1,a2)", 0 }; + static cilist io___1845 = { 0, 11, 0, "(a8,i2,a2)", 0 }; + static cilist io___1846 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1847 = { 0, 11, 0, "(a19,i1,a1)", 0 }; + static cilist io___1848 = { 0, 11, 0, "(a19,i2,a1)", 0 }; + static cilist io___1851 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1852 = { 0, 11, 0, "(a11,i2,a)", 0 }; + static cilist io___1857 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1858 = { 0, 11, 0, "(a9,i2,a)", 0 }; + static cilist io___1859 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1860 = { 0, 11, 0, "(a21,i2,a)", 0 }; + static cilist io___1862 = { 0, 11, 0, "(a8,i1,a)", 0 }; + static cilist io___1863 = { 0, 11, 0, "(a9,i2,a)", 0 }; + static cilist io___1864 = { 0, 11, 0, "(a18,i2,a2)", 0 }; + static cilist io___1866 = { 0, 11, 0, "(a11,i1,a2)", 0 }; + static cilist io___1867 = { 0, 11, 0, "(a11,i2,a2)", 0 }; + static cilist io___1868 = { 0, 11, 0, "(a11,i3,a2)", 0 }; + static cilist io___1869 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1871 = { 0, 11, 0, fmtq, 0 }; + static cilist io___1872 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1873 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1874 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1875 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1876 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1877 = { 0, 11, 0, "(a)", 0 }; + + +#line 25316 "" /* Parameter adjustments */ -#line 24709 "" +#line 25316 "" --clefq; -#line 24709 "" +#line 25316 "" -#line 24709 "" +#line 25316 "" /* Function Body */ -#line 24709 "" +#line 25316 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 24709 "" +#line 25316 "" *(unsigned char *)sq = *(unsigned char *)&ch__1[0]; -#line 24710 "" +#line 25317 "" *vshrink = *xinstf1 > 20.f && ! comnvst_1.novshrinktop; -#line 24711 "" +#line 25318 "" if (*vshrink) { -#line 24712 "" +#line 25319 "" comarp_1.xinsnow = 10.f; -#line 24713 "" +#line 25320 "" } else { -#line 24714 "" +#line 25321 "" comarp_1.xinsnow = *xinstf1; -#line 24715 "" +#line 25322 "" } -#line 24716 "" +#line 25323 "" if (! comlast_1.islast) { -#line 24716 "" +#line 25323 "" return 0; -#line 24716 "" +#line 25323 "" } -#line 24717 "" - s_wsfe(&io___1743); -#line 24717 "" + +/* Initialize octave treble clef tracker */ + +#line 25327 "" + for (im = 1; im <= 24; ++im) { +#line 25328 "" + comc8flag_1.c8flag[im - 1] = FALSE_; +#line 25329 "" +/* L6: */ +#line 25329 "" + } +#line 25330 "" + s_wsfe(&io___1815); +#line 25330 "" do_fio(&c__1, "%%%%%%%%%%%%%%%%%", (ftnlen)17); -#line 24717 "" +#line 25330 "" e_wsfe(); -#line 24718 "" - s_wsfe(&io___1744); -#line 24718 "" +#line 25331 "" + s_wsfe(&io___1816); +#line 25331 "" do_fio(&c__1, "%", (ftnlen)1); -#line 24718 "" +#line 25331 "" e_wsfe(); -#line 24719 "" - s_wsfe(&io___1745); +#line 25332 "" + s_wsfe(&io___1817); /* Writing concatenation */ -#line 24719 "" +#line 25332 "" i__1[0] = 2, a__1[0] = "% "; -#line 24719 "" +#line 25332 "" i__1[1] = *lbase, a__1[1] = basenameq; -#line 24719 "" +#line 25332 "" i__1[2] = 4, a__1[2] = ".tex"; -#line 24719 "" +#line 25332 "" s_cat(ch__2, a__1, i__1, &c__3, (ftnlen)50); -#line 24719 "" +#line 25332 "" do_fio(&c__1, ch__2, *lbase + 6); -#line 24719 "" +#line 25332 "" e_wsfe(); -#line 24720 "" - s_wsfe(&io___1746); -#line 24720 "" +#line 25333 "" + s_wsfe(&io___1818); +#line 25333 "" do_fio(&c__1, "%", (ftnlen)1); -#line 24720 "" +#line 25333 "" e_wsfe(); -#line 24721 "" - s_wsfe(&io___1747); -#line 24721 "" +#line 25334 "" + s_wsfe(&io___1819); +#line 25334 "" do_fio(&c__1, "%%%%%%%%%%%%%%%%", (ftnlen)16); -#line 24721 "" +#line 25334 "" e_wsfe(); -#line 24722 "" - s_wsfe(&io___1748); +#line 25335 "" + s_wsfe(&io___1820); /* Writing concatenation */ -#line 24722 "" +#line 25335 "" i__2[0] = 1, a__2[0] = sq; -#line 24722 "" +#line 25335 "" i__2[1] = 14, a__2[1] = "input musixtex"; -#line 24722 "" +#line 25335 "" s_cat(ch__3, a__2, i__2, &c__2, (ftnlen)15); -#line 24722 "" +#line 25335 "" do_fio(&c__1, ch__3, (ftnlen)15); -#line 24722 "" +#line 25335 "" e_wsfe(); -#line 24723 "" - s_wsfe(&io___1749); +#line 25336 "" + s_wsfe(&io___1821); /* Writing concatenation */ -#line 24723 "" +#line 25336 "" i__2[0] = 1, a__2[0] = sq; -#line 24723 "" +#line 25336 "" i__2[1] = 9, a__2[1] = "input pmx"; -#line 24723 "" +#line 25336 "" s_cat(ch__4, a__2, i__2, &c__2, (ftnlen)10); -#line 24723 "" +#line 25336 "" do_fio(&c__1, ch__4, (ftnlen)10); -#line 24723 "" +#line 25336 "" e_wsfe(); -/* write(11,'(a)')sq//'input musixmad' */ -/* write(11,'(a)')sq//'input musixxad' */ -#line 24726 "" - s_wsfe(&io___1750); +#line 25337 "" + s_wsfe(&io___1822); /* Writing concatenation */ -#line 24726 "" +#line 25337 "" i__3[0] = 1, a__3[0] = sq; -#line 24726 "" +#line 25337 "" i__3[1] = 15, a__3[1] = "setmaxslurs{24}"; -#line 24726 "" +#line 25337 "" i__3[2] = 1, a__3[2] = sq; -#line 24726 "" +#line 25337 "" i__3[3] = 22, a__3[3] = "setmaxinstruments{24}%"; -#line 24726 "" +#line 25337 "" s_cat(ch__5, a__3, i__3, &c__4, (ftnlen)39); -#line 24726 "" +#line 25337 "" do_fio(&c__1, ch__5, (ftnlen)39); -#line 24726 "" +#line 25337 "" e_wsfe(); -#line 24728 "" +#line 25339 "" if (! (*fontslur)) { -#line 24728 "" - s_wsfe(&io___1751); +#line 25339 "" + s_wsfe(&io___1823); /* Writing concatenation */ -#line 24728 "" +#line 25339 "" i__2[0] = 1, a__2[0] = sq; -#line 24728 "" +#line 25339 "" i__2[1] = 13, a__2[1] = "input musixps"; -#line 24728 "" +#line 25339 "" s_cat(ch__6, a__2, i__2, &c__2, (ftnlen)14); -#line 24728 "" +#line 25339 "" do_fio(&c__1, ch__6, (ftnlen)14); -#line 24728 "" +#line 25339 "" e_wsfe(); -#line 24728 "" +#line 25339 "" } /* Need to input musixmad to permit more slurs. */ -#line 24732 "" +#line 25343 "" if (*musicsize == 20) { -#line 24733 "" - s_wsfe(&io___1752); +#line 25344 "" + s_wsfe(&io___1824); /* Writing concatenation */ -#line 24733 "" +#line 25344 "" i__2[0] = 1, a__2[0] = sq; -#line 24733 "" +#line 25344 "" i__2[1] = 16, a__2[1] = "normalmusicsize%"; -#line 24733 "" +#line 25344 "" s_cat(ch__7, a__2, i__2, &c__2, (ftnlen)17); -#line 24733 "" +#line 25344 "" do_fio(&c__1, ch__7, (ftnlen)17); -#line 24733 "" +#line 25344 "" e_wsfe(); -#line 24734 "" +#line 25345 "" } else if (*musicsize == 16) { -#line 24735 "" - s_wsfe(&io___1753); +#line 25346 "" + s_wsfe(&io___1825); /* Writing concatenation */ -#line 24735 "" +#line 25346 "" i__2[0] = 1, a__2[0] = sq; -#line 24735 "" +#line 25346 "" i__2[1] = 15, a__2[1] = "smallmusicsize%"; -#line 24735 "" +#line 25346 "" s_cat(ch__8, a__2, i__2, &c__2, (ftnlen)16); -#line 24735 "" +#line 25346 "" do_fio(&c__1, ch__8, (ftnlen)16); -#line 24735 "" +#line 25346 "" e_wsfe(); -#line 24736 "" +#line 25347 "" } else if (*musicsize == 24) { -#line 24737 "" - s_wsfe(&io___1754); +#line 25348 "" + s_wsfe(&io___1826); /* Writing concatenation */ -#line 24737 "" +#line 25348 "" i__2[0] = 1, a__2[0] = sq; -#line 24737 "" +#line 25348 "" i__2[1] = 15, a__2[1] = "largemusicsize%"; -#line 24737 "" +#line 25348 "" s_cat(ch__8, a__2, i__2, &c__2, (ftnlen)16); -#line 24737 "" +#line 25348 "" do_fio(&c__1, ch__8, (ftnlen)16); -#line 24737 "" +#line 25348 "" e_wsfe(); -#line 24738 "" - s_wsfe(&io___1755); -/* Writing concatenation */ -#line 24738 "" - i__4[0] = 1, a__4[0] = sq; -#line 24738 "" - i__4[1] = 3, a__4[1] = "def"; -#line 24738 "" - i__4[2] = 1, a__4[2] = sq; -#line 24738 "" - i__4[3] = 10, a__4[3] = "meterfont{"; -#line 24738 "" - i__4[4] = 1, a__4[4] = sq; -#line 24738 "" - i__4[5] = 16, a__4[5] = "meterlargefont}%"; -#line 24738 "" - s_cat(ch__9, a__4, i__4, &c__6, (ftnlen)32); -#line 24738 "" - do_fio(&c__1, ch__9, (ftnlen)32); -#line 24738 "" - e_wsfe(); -#line 24740 "" + +/* Eliminate, per Tennent's analysis and musixtex changes since first input */ + +/* write(11,'(a)')sq//'def'//sq//'meterfont{'//sq// */ +/* * 'meterlargefont}%' */ +#line 25354 "" } else if (*musicsize == 29) { -#line 24741 "" - s_wsfe(&io___1756); +#line 25355 "" + s_wsfe(&io___1827); /* Writing concatenation */ -#line 24741 "" +#line 25355 "" i__2[0] = 1, a__2[0] = sq; -#line 24741 "" +#line 25355 "" i__2[1] = 15, a__2[1] = "Largemusicsize%"; -#line 24741 "" +#line 25355 "" s_cat(ch__8, a__2, i__2, &c__2, (ftnlen)16); -#line 24741 "" +#line 25355 "" do_fio(&c__1, ch__8, (ftnlen)16); -#line 24741 "" - e_wsfe(); -#line 24742 "" - s_wsfe(&io___1757); -/* Writing concatenation */ -#line 24742 "" - i__4[0] = 1, a__4[0] = sq; -#line 24742 "" - i__4[1] = 3, a__4[1] = "def"; -#line 24742 "" - i__4[2] = 1, a__4[2] = sq; -#line 24742 "" - i__4[3] = 10, a__4[3] = "meterfont{"; -#line 24742 "" - i__4[4] = 1, a__4[4] = sq; -#line 24742 "" - i__4[5] = 16, a__4[5] = "meterLargefont}%"; -#line 24742 "" - s_cat(ch__9, a__4, i__4, &c__6, (ftnlen)32); -#line 24742 "" - do_fio(&c__1, ch__9, (ftnlen)32); -#line 24742 "" +#line 25355 "" e_wsfe(); -#line 24744 "" +/* write(11,'(a)')sq//'def'//sq//'meterfont{'//sq// */ +/* * 'meterLargefont}%' */ +#line 25358 "" } /* Set sizes. Have sizes per staff in isize(.) and noinst per staff in */ @@ -60798,1165 +62811,1169 @@ L1: /* 130324 */ /* iiv = 1 */ -#line 24751 "" - i__5 = *noinst; -#line 24751 "" - for (iinst = 1; iinst <= i__5; ++iinst) { +#line 25365 "" + i__4 = *noinst; +#line 25365 "" + for (iinst = 1; iinst <= i__4; ++iinst) { /* if (isize(iiv) .eq. 1) then */ -#line 24753 "" +#line 25367 "" if (comsize_1.isize[iinst - 1] == 1) { -#line 24754 "" +#line 25368 "" if (iinst <= 9) { -#line 24755 "" - s_wsfe(&io___1759); +#line 25369 "" + s_wsfe(&io___1829); /* Writing concatenation */ -#line 24755 "" +#line 25369 "" i__2[0] = 1, a__2[0] = sq; -#line 24755 "" +#line 25369 "" i__2[1] = 7, a__2[1] = "setsize"; -#line 24755 "" - s_cat(ch__10, a__2, i__2, &c__2, (ftnlen)8); -#line 24755 "" - do_fio(&c__1, ch__10, (ftnlen)8); -#line 24755 "" +#line 25369 "" + s_cat(ch__9, a__2, i__2, &c__2, (ftnlen)8); +#line 25369 "" + do_fio(&c__1, ch__9, (ftnlen)8); +#line 25369 "" do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof(integer)); /* Writing concatenation */ -#line 24755 "" - i__6[0] = 1, a__5[0] = sq; -#line 24755 "" - i__6[1] = 11, a__5[1] = "smallvalue%"; -#line 24755 "" - s_cat(ch__11, a__5, i__6, &c__2, (ftnlen)12); -#line 24755 "" - do_fio(&c__1, ch__11, (ftnlen)12); -#line 24755 "" +#line 25369 "" + i__5[0] = 1, a__4[0] = sq; +#line 25369 "" + i__5[1] = 11, a__4[1] = "smallvalue%"; +#line 25369 "" + s_cat(ch__10, a__4, i__5, &c__2, (ftnlen)12); +#line 25369 "" + do_fio(&c__1, ch__10, (ftnlen)12); +#line 25369 "" e_wsfe(); -#line 24757 "" +#line 25371 "" } else { -#line 24758 "" - s_wsfe(&io___1760); +#line 25372 "" + s_wsfe(&io___1830); /* Writing concatenation */ -#line 24758 "" +#line 25372 "" i__2[0] = 1, a__2[0] = sq; -#line 24758 "" +#line 25372 "" i__2[1] = 8, a__2[1] = "setsize{"; -#line 24758 "" - s_cat(ch__12, a__2, i__2, &c__2, (ftnlen)9); -#line 24758 "" - do_fio(&c__1, ch__12, (ftnlen)9); -#line 24758 "" +#line 25372 "" + s_cat(ch__11, a__2, i__2, &c__2, (ftnlen)9); +#line 25372 "" + do_fio(&c__1, ch__11, (ftnlen)9); +#line 25372 "" do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof(integer)); /* Writing concatenation */ -#line 24758 "" +#line 25372 "" i__1[0] = 1, a__1[0] = "}"; -#line 24758 "" +#line 25372 "" i__1[1] = 1, a__1[1] = sq; -#line 24758 "" +#line 25372 "" i__1[2] = 11, a__1[2] = "smallvalue%"; -#line 24758 "" - s_cat(ch__13, a__1, i__1, &c__3, (ftnlen)13); -#line 24758 "" - do_fio(&c__1, ch__13, (ftnlen)13); -#line 24758 "" +#line 25372 "" + s_cat(ch__12, a__1, i__1, &c__3, (ftnlen)13); +#line 25372 "" + do_fio(&c__1, ch__12, (ftnlen)13); +#line 25372 "" e_wsfe(); -#line 24760 "" +#line 25374 "" } /* else if (isize(iiv) .eq. 2) then */ -#line 24762 "" +#line 25376 "" } else if (comsize_1.isize[iinst - 1] == 2) { -#line 24763 "" +#line 25377 "" if (iinst <= 9) { -#line 24764 "" - s_wsfe(&io___1761); +#line 25378 "" + s_wsfe(&io___1831); /* Writing concatenation */ -#line 24764 "" +#line 25378 "" i__2[0] = 1, a__2[0] = sq; -#line 24764 "" +#line 25378 "" i__2[1] = 7, a__2[1] = "setsize"; -#line 24764 "" - s_cat(ch__10, a__2, i__2, &c__2, (ftnlen)8); -#line 24764 "" - do_fio(&c__1, ch__10, (ftnlen)8); -#line 24764 "" +#line 25378 "" + s_cat(ch__9, a__2, i__2, &c__2, (ftnlen)8); +#line 25378 "" + do_fio(&c__1, ch__9, (ftnlen)8); +#line 25378 "" do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof(integer)); /* Writing concatenation */ -#line 24764 "" - i__6[0] = 1, a__5[0] = sq; -#line 24764 "" - i__6[1] = 10, a__5[1] = "tinyvalue%"; -#line 24764 "" - s_cat(ch__14, a__5, i__6, &c__2, (ftnlen)11); -#line 24764 "" - do_fio(&c__1, ch__14, (ftnlen)11); -#line 24764 "" +#line 25378 "" + i__5[0] = 1, a__4[0] = sq; +#line 25378 "" + i__5[1] = 10, a__4[1] = "tinyvalue%"; +#line 25378 "" + s_cat(ch__13, a__4, i__5, &c__2, (ftnlen)11); +#line 25378 "" + do_fio(&c__1, ch__13, (ftnlen)11); +#line 25378 "" e_wsfe(); -#line 24766 "" +#line 25380 "" } else { -#line 24767 "" - s_wsfe(&io___1762); +#line 25381 "" + s_wsfe(&io___1832); /* Writing concatenation */ -#line 24767 "" +#line 25381 "" i__2[0] = 1, a__2[0] = sq; -#line 24767 "" +#line 25381 "" i__2[1] = 8, a__2[1] = "setsize{"; -#line 24767 "" - s_cat(ch__12, a__2, i__2, &c__2, (ftnlen)9); -#line 24767 "" - do_fio(&c__1, ch__12, (ftnlen)9); -#line 24767 "" +#line 25381 "" + s_cat(ch__11, a__2, i__2, &c__2, (ftnlen)9); +#line 25381 "" + do_fio(&c__1, ch__11, (ftnlen)9); +#line 25381 "" do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof(integer)); /* Writing concatenation */ -#line 24767 "" +#line 25381 "" i__1[0] = 1, a__1[0] = "}"; -#line 24767 "" +#line 25381 "" i__1[1] = 1, a__1[1] = sq; -#line 24767 "" +#line 25381 "" i__1[2] = 10, a__1[2] = "tinyvalue%"; -#line 24767 "" - s_cat(ch__11, a__1, i__1, &c__3, (ftnlen)12); -#line 24767 "" - do_fio(&c__1, ch__11, (ftnlen)12); -#line 24767 "" +#line 25381 "" + s_cat(ch__10, a__1, i__1, &c__3, (ftnlen)12); +#line 25381 "" + do_fio(&c__1, ch__10, (ftnlen)12); +#line 25381 "" e_wsfe(); -#line 24769 "" +#line 25383 "" } -#line 24770 "" +#line 25384 "" } /* iiv = iiv+nsperi(iinst) */ -#line 24772 "" +#line 25386 "" /* L5: */ -#line 24772 "" +#line 25386 "" } -#line 24773 "" - s_wsfi(&io___1764); -#line 24773 "" +#line 25387 "" + s_wsfi(&io___1834); +#line 25387 "" do_fio(&c__1, (char *)&(*fbar), (ftnlen)sizeof(real)); -#line 24773 "" +#line 25387 "" e_wsfi(); -#line 24774 "" - s_wsfe(&io___1765); +#line 25388 "" + s_wsfe(&io___1835); /* Writing concatenation */ -#line 24774 "" +#line 25388 "" i__2[0] = 1, a__2[0] = sq; -#line 24774 "" +#line 25388 "" i__2[1] = 13, a__2[1] = "nopagenumbers"; -#line 24774 "" +#line 25388 "" s_cat(ch__6, a__2, i__2, &c__2, (ftnlen)14); -#line 24774 "" +#line 25388 "" do_fio(&c__1, ch__6, (ftnlen)14); -#line 24774 "" +#line 25388 "" e_wsfe(); -#line 24775 "" - s_wsfe(&io___1766); +#line 25389 "" + s_wsfe(&io___1836); /* Writing concatenation */ -#line 24775 "" +#line 25389 "" i__3[0] = 1, a__3[0] = sq; -#line 24775 "" +#line 25389 "" i__3[1] = 14, a__3[1] = "tracingstats=2"; -#line 24775 "" +#line 25389 "" i__3[2] = 1, a__3[2] = sq; -#line 24775 "" +#line 25389 "" i__3[3] = 5, a__3[3] = "relax"; -#line 24775 "" - s_cat(ch__15, a__3, i__3, &c__4, (ftnlen)21); -#line 24775 "" - do_fio(&c__1, ch__15, (ftnlen)21); -#line 24775 "" +#line 25389 "" + s_cat(ch__14, a__3, i__3, &c__4, (ftnlen)21); +#line 25389 "" + do_fio(&c__1, ch__14, (ftnlen)21); +#line 25389 "" e_wsfe(); -#line 24776 "" - s_wsfe(&io___1767); +#line 25390 "" + s_wsfe(&io___1837); /* Writing concatenation */ -#line 24776 "" +#line 25390 "" i__2[0] = 1, a__2[0] = sq; -#line 24776 "" +#line 25390 "" i__2[1] = 6, a__2[1] = "hsize="; -#line 24776 "" - s_cat(ch__16, a__2, i__2, &c__2, (ftnlen)7); -#line 24776 "" - do_fio(&c__1, ch__16, (ftnlen)7); -#line 24776 "" - i__5 = i_nint(&comtop_1.widthpt); -#line 24776 "" - do_fio(&c__1, (char *)&i__5, (ftnlen)sizeof(integer)); -#line 24776 "" +#line 25390 "" + s_cat(ch__15, a__2, i__2, &c__2, (ftnlen)7); +#line 25390 "" + do_fio(&c__1, ch__15, (ftnlen)7); +#line 25390 "" + i__4 = i_nint(&comtop_1.widthpt); +#line 25390 "" + do_fio(&c__1, (char *)&i__4, (ftnlen)sizeof(integer)); +#line 25390 "" do_fio(&c__1, "pt", (ftnlen)2); -#line 24776 "" +#line 25390 "" e_wsfe(); -#line 24777 "" +#line 25391 "" ci__1.cierr = 0; -#line 24777 "" +#line 25391 "" ci__1.ciunit = 11; /* Writing concatenation */ -#line 24777 "" +#line 25391 "" i__1[0] = 5, a__1[0] = "(a6,i"; -#line 24777 "" +#line 25391 "" r__1 = comtop_1.height + .1f; -#line 24777 "" - i__5 = (integer) r_lg10(&r__1) + 49; -#line 24777 "" - chax_(ch__1, (ftnlen)1, &i__5); -#line 24777 "" +#line 25391 "" + i__4 = (integer) r_lg10(&r__1) + 49; +#line 25391 "" + chax_(ch__1, (ftnlen)1, &i__4); +#line 25391 "" i__1[1] = 1, a__1[1] = ch__1; -#line 24777 "" +#line 25391 "" i__1[2] = 4, a__1[2] = ",a2)"; -#line 24777 "" +#line 25391 "" ci__1.cifmt = (s_cat(ch__4, a__1, i__1, &c__3, (ftnlen)10), ch__4); -#line 24777 "" +#line 25391 "" s_wsfe(&ci__1); /* Writing concatenation */ -#line 24777 "" +#line 25391 "" i__2[0] = 1, a__2[0] = sq; -#line 24777 "" +#line 25391 "" i__2[1] = 5, a__2[1] = "vsize"; -#line 24777 "" - s_cat(ch__17, a__2, i__2, &c__2, (ftnlen)6); -#line 24777 "" - do_fio(&c__1, ch__17, (ftnlen)6); -#line 24777 "" - i__7 = (integer) (comtop_1.height + .1f); -#line 24777 "" - do_fio(&c__1, (char *)&i__7, (ftnlen)sizeof(integer)); -#line 24777 "" +#line 25391 "" + s_cat(ch__16, a__2, i__2, &c__2, (ftnlen)6); +#line 25391 "" + do_fio(&c__1, ch__16, (ftnlen)6); +#line 25391 "" + i__6 = (integer) (comtop_1.height + .1f); +#line 25391 "" + do_fio(&c__1, (char *)&i__6, (ftnlen)sizeof(integer)); +#line 25391 "" do_fio(&c__1, "pt", (ftnlen)2); -#line 24777 "" +#line 25391 "" e_wsfe(); -#line 24779 "" +#line 25393 "" if (dabs(comtop_1.hoffpt) > .1f) { -#line 24780 "" +#line 25394 "" if (comtop_1.hoffpt <= -10.f) { -#line 24781 "" - s_wsfe(&io___1768); +#line 25395 "" + s_wsfe(&io___1838); /* Writing concatenation */ -#line 24781 "" +#line 25395 "" i__2[0] = 1, a__2[0] = sq; -#line 24781 "" +#line 25395 "" i__2[1] = 7, a__2[1] = "hoffset"; -#line 24781 "" - s_cat(ch__10, a__2, i__2, &c__2, (ftnlen)8); -#line 24781 "" - do_fio(&c__1, ch__10, (ftnlen)8); -#line 24781 "" - i__5 = i_nint(&comtop_1.hoffpt); -#line 24781 "" - do_fio(&c__1, (char *)&i__5, (ftnlen)sizeof(integer)); -#line 24781 "" +#line 25395 "" + s_cat(ch__9, a__2, i__2, &c__2, (ftnlen)8); +#line 25395 "" + do_fio(&c__1, ch__9, (ftnlen)8); +#line 25395 "" + i__4 = i_nint(&comtop_1.hoffpt); +#line 25395 "" + do_fio(&c__1, (char *)&i__4, (ftnlen)sizeof(integer)); +#line 25395 "" do_fio(&c__1, "pt", (ftnlen)2); -#line 24781 "" +#line 25395 "" e_wsfe(); -#line 24782 "" +#line 25396 "" } else if (comtop_1.hoffpt < 0.f) { -#line 24783 "" - s_wsfe(&io___1769); +#line 25397 "" + s_wsfe(&io___1839); /* Writing concatenation */ -#line 24783 "" +#line 25397 "" i__2[0] = 1, a__2[0] = sq; -#line 24783 "" +#line 25397 "" i__2[1] = 7, a__2[1] = "hoffset"; -#line 24783 "" - s_cat(ch__10, a__2, i__2, &c__2, (ftnlen)8); -#line 24783 "" - do_fio(&c__1, ch__10, (ftnlen)8); -#line 24783 "" - i__5 = i_nint(&comtop_1.hoffpt); -#line 24783 "" - do_fio(&c__1, (char *)&i__5, (ftnlen)sizeof(integer)); -#line 24783 "" +#line 25397 "" + s_cat(ch__9, a__2, i__2, &c__2, (ftnlen)8); +#line 25397 "" + do_fio(&c__1, ch__9, (ftnlen)8); +#line 25397 "" + i__4 = i_nint(&comtop_1.hoffpt); +#line 25397 "" + do_fio(&c__1, (char *)&i__4, (ftnlen)sizeof(integer)); +#line 25397 "" do_fio(&c__1, "pt", (ftnlen)2); -#line 24783 "" +#line 25397 "" e_wsfe(); -#line 24784 "" +#line 25398 "" } else if (comtop_1.hoffpt < 10.f) { -#line 24785 "" - s_wsfe(&io___1770); +#line 25399 "" + s_wsfe(&io___1840); /* Writing concatenation */ -#line 24785 "" +#line 25399 "" i__2[0] = 1, a__2[0] = sq; -#line 24785 "" +#line 25399 "" i__2[1] = 7, a__2[1] = "hoffset"; -#line 24785 "" - s_cat(ch__10, a__2, i__2, &c__2, (ftnlen)8); -#line 24785 "" - do_fio(&c__1, ch__10, (ftnlen)8); -#line 24785 "" - i__5 = i_nint(&comtop_1.hoffpt); -#line 24785 "" - do_fio(&c__1, (char *)&i__5, (ftnlen)sizeof(integer)); -#line 24785 "" +#line 25399 "" + s_cat(ch__9, a__2, i__2, &c__2, (ftnlen)8); +#line 25399 "" + do_fio(&c__1, ch__9, (ftnlen)8); +#line 25399 "" + i__4 = i_nint(&comtop_1.hoffpt); +#line 25399 "" + do_fio(&c__1, (char *)&i__4, (ftnlen)sizeof(integer)); +#line 25399 "" do_fio(&c__1, "pt", (ftnlen)2); -#line 24785 "" +#line 25399 "" e_wsfe(); -#line 24786 "" +#line 25400 "" } else { -#line 24787 "" - s_wsfe(&io___1771); +#line 25401 "" + s_wsfe(&io___1841); /* Writing concatenation */ -#line 24787 "" +#line 25401 "" i__2[0] = 1, a__2[0] = sq; -#line 24787 "" +#line 25401 "" i__2[1] = 7, a__2[1] = "hoffset"; -#line 24787 "" - s_cat(ch__10, a__2, i__2, &c__2, (ftnlen)8); -#line 24787 "" - do_fio(&c__1, ch__10, (ftnlen)8); -#line 24787 "" - i__5 = i_nint(&comtop_1.hoffpt); -#line 24787 "" - do_fio(&c__1, (char *)&i__5, (ftnlen)sizeof(integer)); -#line 24787 "" +#line 25401 "" + s_cat(ch__9, a__2, i__2, &c__2, (ftnlen)8); +#line 25401 "" + do_fio(&c__1, ch__9, (ftnlen)8); +#line 25401 "" + i__4 = i_nint(&comtop_1.hoffpt); +#line 25401 "" + do_fio(&c__1, (char *)&i__4, (ftnlen)sizeof(integer)); +#line 25401 "" do_fio(&c__1, "pt", (ftnlen)2); -#line 24787 "" +#line 25401 "" e_wsfe(); -#line 24788 "" +#line 25402 "" } -#line 24789 "" +#line 25403 "" } -#line 24790 "" +#line 25404 "" if (dabs(comtop_1.voffpt) > .1f) { -#line 24791 "" +#line 25405 "" if (comtop_1.voffpt <= -10.f) { -#line 24792 "" - s_wsfe(&io___1772); +#line 25406 "" + s_wsfe(&io___1842); /* Writing concatenation */ -#line 24792 "" +#line 25406 "" i__2[0] = 1, a__2[0] = sq; -#line 24792 "" +#line 25406 "" i__2[1] = 7, a__2[1] = "voffset"; -#line 24792 "" - s_cat(ch__10, a__2, i__2, &c__2, (ftnlen)8); -#line 24792 "" - do_fio(&c__1, ch__10, (ftnlen)8); -#line 24792 "" - i__5 = i_nint(&comtop_1.voffpt); -#line 24792 "" - do_fio(&c__1, (char *)&i__5, (ftnlen)sizeof(integer)); -#line 24792 "" +#line 25406 "" + s_cat(ch__9, a__2, i__2, &c__2, (ftnlen)8); +#line 25406 "" + do_fio(&c__1, ch__9, (ftnlen)8); +#line 25406 "" + i__4 = i_nint(&comtop_1.voffpt); +#line 25406 "" + do_fio(&c__1, (char *)&i__4, (ftnlen)sizeof(integer)); +#line 25406 "" do_fio(&c__1, "pt", (ftnlen)2); -#line 24792 "" +#line 25406 "" e_wsfe(); -#line 24793 "" +#line 25407 "" } else if (comtop_1.voffpt < 0.f) { -#line 24794 "" - s_wsfe(&io___1773); +#line 25408 "" + s_wsfe(&io___1843); /* Writing concatenation */ -#line 24794 "" +#line 25408 "" i__2[0] = 1, a__2[0] = sq; -#line 24794 "" +#line 25408 "" i__2[1] = 7, a__2[1] = "voffset"; -#line 24794 "" - s_cat(ch__10, a__2, i__2, &c__2, (ftnlen)8); -#line 24794 "" - do_fio(&c__1, ch__10, (ftnlen)8); -#line 24794 "" - i__5 = i_nint(&comtop_1.voffpt); -#line 24794 "" - do_fio(&c__1, (char *)&i__5, (ftnlen)sizeof(integer)); -#line 24794 "" +#line 25408 "" + s_cat(ch__9, a__2, i__2, &c__2, (ftnlen)8); +#line 25408 "" + do_fio(&c__1, ch__9, (ftnlen)8); +#line 25408 "" + i__4 = i_nint(&comtop_1.voffpt); +#line 25408 "" + do_fio(&c__1, (char *)&i__4, (ftnlen)sizeof(integer)); +#line 25408 "" do_fio(&c__1, "pt", (ftnlen)2); -#line 24794 "" +#line 25408 "" e_wsfe(); -#line 24795 "" +#line 25409 "" } else if (comtop_1.voffpt < 10.f) { -#line 24796 "" - s_wsfe(&io___1774); +#line 25410 "" + s_wsfe(&io___1844); /* Writing concatenation */ -#line 24796 "" +#line 25410 "" i__2[0] = 1, a__2[0] = sq; -#line 24796 "" +#line 25410 "" i__2[1] = 7, a__2[1] = "voffset"; -#line 24796 "" - s_cat(ch__10, a__2, i__2, &c__2, (ftnlen)8); -#line 24796 "" - do_fio(&c__1, ch__10, (ftnlen)8); -#line 24796 "" - i__5 = i_nint(&comtop_1.voffpt); -#line 24796 "" - do_fio(&c__1, (char *)&i__5, (ftnlen)sizeof(integer)); -#line 24796 "" +#line 25410 "" + s_cat(ch__9, a__2, i__2, &c__2, (ftnlen)8); +#line 25410 "" + do_fio(&c__1, ch__9, (ftnlen)8); +#line 25410 "" + i__4 = i_nint(&comtop_1.voffpt); +#line 25410 "" + do_fio(&c__1, (char *)&i__4, (ftnlen)sizeof(integer)); +#line 25410 "" do_fio(&c__1, "pt", (ftnlen)2); -#line 24796 "" +#line 25410 "" e_wsfe(); -#line 24797 "" +#line 25411 "" } else { -#line 24798 "" - s_wsfe(&io___1775); +#line 25412 "" + s_wsfe(&io___1845); /* Writing concatenation */ -#line 24798 "" +#line 25412 "" i__2[0] = 1, a__2[0] = sq; -#line 24798 "" +#line 25412 "" i__2[1] = 7, a__2[1] = "voffset"; -#line 24798 "" - s_cat(ch__10, a__2, i__2, &c__2, (ftnlen)8); -#line 24798 "" - do_fio(&c__1, ch__10, (ftnlen)8); -#line 24798 "" - i__5 = i_nint(&comtop_1.voffpt); -#line 24798 "" - do_fio(&c__1, (char *)&i__5, (ftnlen)sizeof(integer)); -#line 24798 "" +#line 25412 "" + s_cat(ch__9, a__2, i__2, &c__2, (ftnlen)8); +#line 25412 "" + do_fio(&c__1, ch__9, (ftnlen)8); +#line 25412 "" + i__4 = i_nint(&comtop_1.voffpt); +#line 25412 "" + do_fio(&c__1, (char *)&i__4, (ftnlen)sizeof(integer)); +#line 25412 "" do_fio(&c__1, "pt", (ftnlen)2); -#line 24798 "" +#line 25412 "" e_wsfe(); -#line 24799 "" +#line 25413 "" } -#line 24800 "" +#line 25414 "" } /* The default raisebarno=3.5 internote, set in pmx.tex. Increase to 4.5 if */ /* 3 sharps and treble clef, to avoid vertical clash with top space g# */ -#line 24805 "" +#line 25419 "" if (comtop_1.isig == 3 && *(unsigned char *)&clefq[*nv] == 't') { -#line 24805 "" - s_wsfe(&io___1776); -/* Writing concatenation */ -#line 24805 "" - i__4[0] = 1, a__4[0] = sq; -#line 24805 "" - i__4[1] = 3, a__4[1] = "def"; -#line 24805 "" - i__4[2] = 1, a__4[2] = sq; -#line 24805 "" - i__4[3] = 14, a__4[3] = "raisebarno{4.5"; -#line 24805 "" - i__4[4] = 1, a__4[4] = sq; -#line 24805 "" - i__4[5] = 10, a__4[5] = "internote}"; -#line 24805 "" - s_cat(ch__18, a__4, i__4, &c__6, (ftnlen)30); -#line 24805 "" - do_fio(&c__1, ch__18, (ftnlen)30); -#line 24805 "" +#line 25419 "" + s_wsfe(&io___1846); +/* Writing concatenation */ +#line 25419 "" + i__7[0] = 1, a__5[0] = sq; +#line 25419 "" + i__7[1] = 3, a__5[1] = "def"; +#line 25419 "" + i__7[2] = 1, a__5[2] = sq; +#line 25419 "" + i__7[3] = 14, a__5[3] = "raisebarno{4.5"; +#line 25419 "" + i__7[4] = 1, a__5[4] = sq; +#line 25419 "" + i__7[5] = 10, a__5[5] = "internote}"; +#line 25419 "" + s_cat(ch__17, a__5, i__7, &c__6, (ftnlen)30); +#line 25419 "" + do_fio(&c__1, ch__17, (ftnlen)30); +#line 25419 "" e_wsfe(); -#line 24805 "" +#line 25419 "" } -#line 24807 "" +#line 25421 "" if (*noinst < 10) { -#line 24808 "" - s_wsfe(&io___1777); +#line 25422 "" + s_wsfe(&io___1847); /* Writing concatenation */ -#line 24808 "" +#line 25422 "" i__3[0] = 1, a__3[0] = sq; -#line 24808 "" +#line 25422 "" i__3[1] = 3, a__3[1] = "def"; -#line 24808 "" +#line 25422 "" i__3[2] = 1, a__3[2] = sq; -#line 24808 "" +#line 25422 "" i__3[3] = 14, a__3[3] = "nbinstruments{"; -#line 24808 "" - s_cat(ch__19, a__3, i__3, &c__4, (ftnlen)19); -#line 24808 "" - do_fio(&c__1, ch__19, (ftnlen)19); -#line 24808 "" +#line 25422 "" + s_cat(ch__18, a__3, i__3, &c__4, (ftnlen)19); +#line 25422 "" + do_fio(&c__1, ch__18, (ftnlen)19); +#line 25422 "" do_fio(&c__1, (char *)&(*noinst), (ftnlen)sizeof(integer)); -#line 24808 "" +#line 25422 "" do_fio(&c__1, "}", (ftnlen)1); -#line 24808 "" +#line 25422 "" e_wsfe(); -#line 24810 "" +#line 25424 "" } else { -#line 24811 "" - s_wsfe(&io___1778); +#line 25425 "" + s_wsfe(&io___1848); /* Writing concatenation */ -#line 24811 "" +#line 25425 "" i__3[0] = 1, a__3[0] = sq; -#line 24811 "" +#line 25425 "" i__3[1] = 3, a__3[1] = "def"; -#line 24811 "" +#line 25425 "" i__3[2] = 1, a__3[2] = sq; -#line 24811 "" +#line 25425 "" i__3[3] = 14, a__3[3] = "nbinstruments{"; -#line 24811 "" - s_cat(ch__19, a__3, i__3, &c__4, (ftnlen)19); -#line 24811 "" - do_fio(&c__1, ch__19, (ftnlen)19); -#line 24811 "" +#line 25425 "" + s_cat(ch__18, a__3, i__3, &c__4, (ftnlen)19); +#line 25425 "" + do_fio(&c__1, ch__18, (ftnlen)19); +#line 25425 "" do_fio(&c__1, (char *)&(*noinst), (ftnlen)sizeof(integer)); -#line 24811 "" +#line 25425 "" do_fio(&c__1, "}", (ftnlen)1); -#line 24811 "" +#line 25425 "" e_wsfe(); -#line 24813 "" +#line 25427 "" } -#line 24814 "" +#line 25428 "" iv = 0; -#line 24815 "" - i__5 = *noinst; -#line 24815 "" - for (iinst = 1; iinst <= i__5; ++iinst) { -#line 24816 "" +#line 25429 "" + i__4 = *noinst; +#line 25429 "" + for (iinst = 1; iinst <= i__4; ++iinst) { +#line 25430 "" nstaves = comnvi_1.nsperi[iinst - 1]; -#line 24817 "" +#line 25431 "" if (iinst < 10) { -#line 24818 "" - s_wsfe(&io___1781); +#line 25432 "" + s_wsfe(&io___1851); /* Writing concatenation */ -#line 24818 "" +#line 25432 "" i__3[0] = 1, a__3[0] = sq; -#line 24818 "" +#line 25432 "" i__3[1] = 9, a__3[1] = "setstaffs"; -#line 24818 "" - i__7 = iinst + 48; -#line 24818 "" - chax_(ch__1, (ftnlen)1, &i__7); -#line 24818 "" +#line 25432 "" + i__6 = iinst + 48; +#line 25432 "" + chax_(ch__1, (ftnlen)1, &i__6); +#line 25432 "" i__3[2] = 1, a__3[2] = ch__1; -#line 24818 "" +#line 25432 "" i__8 = nstaves + 48; -#line 24818 "" - chax_(ch__20, (ftnlen)1, &i__8); -#line 24818 "" - i__3[3] = 1, a__3[3] = ch__20; -#line 24818 "" - s_cat(ch__11, a__3, i__3, &c__4, (ftnlen)12); -#line 24818 "" - do_fio(&c__1, ch__11, (ftnlen)12); -#line 24818 "" +#line 25432 "" + chax_(ch__19, (ftnlen)1, &i__8); +#line 25432 "" + i__3[3] = 1, a__3[3] = ch__19; +#line 25432 "" + s_cat(ch__10, a__3, i__3, &c__4, (ftnlen)12); +#line 25432 "" + do_fio(&c__1, ch__10, (ftnlen)12); +#line 25432 "" e_wsfe(); -#line 24820 "" +#line 25434 "" } else { -#line 24821 "" - s_wsfe(&io___1782); +#line 25435 "" + s_wsfe(&io___1852); /* Writing concatenation */ -#line 24821 "" +#line 25435 "" i__2[0] = 1, a__2[0] = sq; -#line 24821 "" +#line 25435 "" i__2[1] = 10, a__2[1] = "setstaffs{"; -#line 24821 "" - s_cat(ch__14, a__2, i__2, &c__2, (ftnlen)11); -#line 24821 "" - do_fio(&c__1, ch__14, (ftnlen)11); -#line 24821 "" +#line 25435 "" + s_cat(ch__13, a__2, i__2, &c__2, (ftnlen)11); +#line 25435 "" + do_fio(&c__1, ch__13, (ftnlen)11); +#line 25435 "" do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof(integer)); /* Writing concatenation */ -#line 24821 "" - i__6[0] = 1, a__5[0] = "}"; -#line 24821 "" - i__7 = nstaves + 48; -#line 24821 "" - chax_(ch__1, (ftnlen)1, &i__7); -#line 24821 "" - i__6[1] = 1, a__5[1] = ch__1; -#line 24821 "" - s_cat(ch__21, a__5, i__6, &c__2, (ftnlen)2); -#line 24821 "" - do_fio(&c__1, ch__21, (ftnlen)2); -#line 24821 "" +#line 25435 "" + i__5[0] = 1, a__4[0] = "}"; +#line 25435 "" + i__6 = nstaves + 48; +#line 25435 "" + chax_(ch__1, (ftnlen)1, &i__6); +#line 25435 "" + i__5[1] = 1, a__4[1] = ch__1; +#line 25435 "" + s_cat(ch__20, a__4, i__5, &c__2, (ftnlen)2); +#line 25435 "" + do_fio(&c__1, ch__20, (ftnlen)2); +#line 25435 "" e_wsfe(); -#line 24823 "" +#line 25437 "" } -#line 24824 "" +#line 25438 "" ++iv; -#line 24825 "" +#line 25439 "" *(unsigned char *)clefqiv = *(unsigned char *)&clefq[iv]; -#line 24826 "" +#line 25440 "" if (*(unsigned char *)clefqiv == '8') { -#line 24827 "" +#line 25441 "" *(unsigned char *)clefqiv = 't'; -#line 24828 "" +#line 25442 "" cominsttrans_1.itransamt[cominsttrans_1.instno[iv - 1] - 1] += 7; -#line 24829 "" +#line 25443 "" + comc8flag_1.c8flag[iv - 1] = TRUE_; +#line 25444 "" } -#line 24830 "" +#line 25445 "" if (nstaves == 1) { -#line 24831 "" - i__7 = numclef_(clefq + iv, (ftnlen)1) + 48; -#line 24831 "" - chax_(ch__1, (ftnlen)1, &i__7); -#line 24831 "" +#line 25446 "" + i__6 = numclef_(clefq + iv, (ftnlen)1) + 48; +#line 25446 "" + chax_(ch__1, (ftnlen)1, &i__6); +#line 25446 "" s_copy(fmtq, ch__1, (ftnlen)24, (ftnlen)1); -#line 24832 "" +#line 25447 "" lfmtq = 1; -#line 24833 "" +#line 25448 "" } else { /* Writing concatenation */ -#line 24834 "" +#line 25449 "" i__2[0] = 1, a__2[0] = "{"; -#line 24834 "" - i__7 = numclef_(clefq + iv, (ftnlen)1) + 48; -#line 24834 "" - chax_(ch__1, (ftnlen)1, &i__7); -#line 24834 "" +#line 25449 "" + i__6 = numclef_(clefq + iv, (ftnlen)1) + 48; +#line 25449 "" + chax_(ch__1, (ftnlen)1, &i__6); +#line 25449 "" i__2[1] = 1, a__2[1] = ch__1; -#line 24834 "" +#line 25449 "" s_cat(fmtq, a__2, i__2, &c__2, (ftnlen)24); -#line 24835 "" +#line 25450 "" lfmtq = 2; -#line 24836 "" - i__7 = nstaves; -#line 24836 "" - for (k = 2; k <= i__7; ++k) { -#line 24837 "" +#line 25451 "" + i__6 = nstaves; +#line 25451 "" + for (k = 2; k <= i__6; ++k) { +#line 25452 "" ++iv; /* Writing concatenation */ -#line 24838 "" +#line 25453 "" i__2[0] = lfmtq, a__2[0] = fmtq; -#line 24838 "" +#line 25453 "" i__8 = numclef_(clefq + iv, (ftnlen)1) + 48; -#line 24838 "" +#line 25453 "" chax_(ch__1, (ftnlen)1, &i__8); -#line 24838 "" +#line 25453 "" i__2[1] = 1, a__2[1] = ch__1; -#line 24838 "" +#line 25453 "" s_cat(fmtq, a__2, i__2, &c__2, (ftnlen)24); -#line 24839 "" +#line 25454 "" ++lfmtq; -#line 24840 "" +#line 25455 "" /* L2: */ -#line 24840 "" +#line 25455 "" } /* Writing concatenation */ -#line 24841 "" +#line 25456 "" i__2[0] = lfmtq, a__2[0] = fmtq; -#line 24841 "" +#line 25456 "" i__2[1] = 1, a__2[1] = "}"; -#line 24841 "" +#line 25456 "" s_cat(fmtq, a__2, i__2, &c__2, (ftnlen)24); -#line 24842 "" +#line 25457 "" ++lfmtq; -#line 24843 "" +#line 25458 "" } -#line 24844 "" +#line 25459 "" if (iinst < 10) { -#line 24845 "" - s_wsfe(&io___1787); +#line 25460 "" + s_wsfe(&io___1857); /* Writing concatenation */ -#line 24845 "" +#line 25460 "" i__3[0] = 1, a__3[0] = sq; -#line 24845 "" +#line 25460 "" i__3[1] = 7, a__3[1] = "setclef"; -#line 24845 "" - i__7 = iinst + 48; -#line 24845 "" - chax_(ch__1, (ftnlen)1, &i__7); -#line 24845 "" +#line 25460 "" + i__6 = iinst + 48; +#line 25460 "" + chax_(ch__1, (ftnlen)1, &i__6); +#line 25460 "" i__3[2] = 1, a__3[2] = ch__1; -#line 24845 "" +#line 25460 "" i__3[3] = lfmtq, a__3[3] = fmtq; -#line 24845 "" - s_cat(ch__22, a__3, i__3, &c__4, (ftnlen)33); -#line 24845 "" - do_fio(&c__1, ch__22, lfmtq + 9); -#line 24845 "" +#line 25460 "" + s_cat(ch__21, a__3, i__3, &c__4, (ftnlen)33); +#line 25460 "" + do_fio(&c__1, ch__21, lfmtq + 9); +#line 25460 "" e_wsfe(); -#line 24846 "" +#line 25461 "" } else { -#line 24847 "" - s_wsfe(&io___1788); +#line 25462 "" + s_wsfe(&io___1858); /* Writing concatenation */ -#line 24847 "" +#line 25462 "" i__2[0] = 1, a__2[0] = sq; -#line 24847 "" +#line 25462 "" i__2[1] = 8, a__2[1] = "setclef{"; -#line 24847 "" - s_cat(ch__12, a__2, i__2, &c__2, (ftnlen)9); -#line 24847 "" - do_fio(&c__1, ch__12, (ftnlen)9); -#line 24847 "" +#line 25462 "" + s_cat(ch__11, a__2, i__2, &c__2, (ftnlen)9); +#line 25462 "" + do_fio(&c__1, ch__11, (ftnlen)9); +#line 25462 "" do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof(integer)); /* Writing concatenation */ -#line 24847 "" - i__6[0] = 1, a__5[0] = "}"; -#line 24847 "" - i__6[1] = lfmtq, a__5[1] = fmtq; -#line 24847 "" - s_cat(ch__23, a__5, i__6, &c__2, (ftnlen)25); -#line 24847 "" - do_fio(&c__1, ch__23, lfmtq + 1); -#line 24847 "" +#line 25462 "" + i__5[0] = 1, a__4[0] = "}"; +#line 25462 "" + i__5[1] = lfmtq, a__4[1] = fmtq; +#line 25462 "" + s_cat(ch__22, a__4, i__5, &c__2, (ftnlen)25); +#line 25462 "" + do_fio(&c__1, ch__22, lfmtq + 1); +#line 25462 "" e_wsfe(); -#line 24848 "" +#line 25463 "" } -#line 24849 "" +#line 25464 "" if (*(unsigned char *)&clefq[iv] == '8') { -#line 24850 "" +#line 25465 "" if (iinst < 10) { -#line 24851 "" - s_wsfe(&io___1789); +#line 25466 "" + s_wsfe(&io___1859); /* Writing concatenation */ -#line 24851 "" +#line 25466 "" i__9[0] = 1, a__6[0] = sq; -#line 24851 "" +#line 25466 "" i__9[1] = 19, a__6[1] = "settrebleclefsymbol"; -#line 24851 "" - i__7 = iinst + 48; -#line 24851 "" - chax_(ch__1, (ftnlen)1, &i__7); -#line 24851 "" +#line 25466 "" + i__6 = iinst + 48; +#line 25466 "" + chax_(ch__1, (ftnlen)1, &i__6); +#line 25466 "" i__9[2] = 1, a__6[2] = ch__1; -#line 24851 "" +#line 25466 "" i__9[3] = 1, a__6[3] = sq; -#line 24851 "" +#line 25466 "" i__9[4] = 13, a__6[4] = "treblelowoct%"; -#line 24851 "" - s_cat(ch__24, a__6, i__9, &c__5, (ftnlen)35); -#line 24851 "" - do_fio(&c__1, ch__24, (ftnlen)35); -#line 24851 "" +#line 25466 "" + s_cat(ch__23, a__6, i__9, &c__5, (ftnlen)35); +#line 25466 "" + do_fio(&c__1, ch__23, (ftnlen)35); +#line 25466 "" e_wsfe(); -#line 24853 "" +#line 25468 "" } else { -#line 24854 "" - s_wsfe(&io___1790); +#line 25469 "" + s_wsfe(&io___1860); /* Writing concatenation */ -#line 24854 "" +#line 25469 "" i__2[0] = 1, a__2[0] = sq; -#line 24854 "" +#line 25469 "" i__2[1] = 20, a__2[1] = "settrebleclefsymbol{"; -#line 24854 "" - s_cat(ch__15, a__2, i__2, &c__2, (ftnlen)21); -#line 24854 "" - do_fio(&c__1, ch__15, (ftnlen)21); -#line 24854 "" +#line 25469 "" + s_cat(ch__14, a__2, i__2, &c__2, (ftnlen)21); +#line 25469 "" + do_fio(&c__1, ch__14, (ftnlen)21); +#line 25469 "" do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof(integer)); /* Writing concatenation */ -#line 24854 "" +#line 25469 "" i__1[0] = 1, a__1[0] = "}"; -#line 24854 "" +#line 25469 "" i__1[1] = 1, a__1[1] = sq; -#line 24854 "" +#line 25469 "" i__1[2] = 13, a__1[2] = "treblelowoct%"; -#line 24854 "" +#line 25469 "" s_cat(ch__3, a__1, i__1, &c__3, (ftnlen)15); -#line 24854 "" +#line 25469 "" do_fio(&c__1, ch__3, (ftnlen)15); -#line 24854 "" +#line 25469 "" e_wsfe(); -#line 24856 "" +#line 25471 "" } -#line 24857 "" +#line 25472 "" + comc8flag_1.c8flag[iv - 1] = TRUE_; +#line 25473 "" } -#line 24858 "" +#line 25474 "" for (lname = 79; lname >= 2; --lname) { -#line 24859 "" +#line 25475 "" if (*(unsigned char *)&comtop_1.inameq[(iinst - 1) * 79 + (lname - 1)] != ' ') { -#line 24859 "" +#line 25475 "" goto L4; -#line 24859 "" +#line 25475 "" } -#line 24860 "" +#line 25476 "" /* L3: */ -#line 24860 "" +#line 25476 "" } -#line 24861 "" +#line 25477 "" L4: -#line 24862 "" +#line 25478 "" comtop_1.lnam[iinst - 1] = lname; -#line 24863 "" +#line 25479 "" if (iinst < 10) { -#line 24864 "" - s_wsfe(&io___1792); +#line 25480 "" + s_wsfe(&io___1862); /* Writing concatenation */ -#line 24864 "" +#line 25480 "" i__2[0] = 1, a__2[0] = sq; -#line 24864 "" +#line 25480 "" i__2[1] = 7, a__2[1] = "setname"; -#line 24864 "" - s_cat(ch__10, a__2, i__2, &c__2, (ftnlen)8); -#line 24864 "" - do_fio(&c__1, ch__10, (ftnlen)8); -#line 24864 "" +#line 25480 "" + s_cat(ch__9, a__2, i__2, &c__2, (ftnlen)8); +#line 25480 "" + do_fio(&c__1, ch__9, (ftnlen)8); +#line 25480 "" do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof(integer)); /* Writing concatenation */ -#line 24864 "" +#line 25480 "" i__1[0] = 1, a__1[0] = "{"; -#line 24864 "" +#line 25480 "" i__1[1] = lname, a__1[1] = comtop_1.inameq + (iinst - 1) * 79; -#line 24864 "" +#line 25480 "" i__1[2] = 1, a__1[2] = "}"; -#line 24864 "" - s_cat(ch__25, a__1, i__1, &c__3, (ftnlen)81); -#line 24864 "" - do_fio(&c__1, ch__25, lname + 2); -#line 24864 "" +#line 25480 "" + s_cat(ch__24, a__1, i__1, &c__3, (ftnlen)81); +#line 25480 "" + do_fio(&c__1, ch__24, lname + 2); +#line 25480 "" e_wsfe(); -#line 24866 "" +#line 25482 "" } else { -#line 24867 "" - s_wsfe(&io___1793); +#line 25483 "" + s_wsfe(&io___1863); /* Writing concatenation */ -#line 24867 "" +#line 25483 "" i__2[0] = 1, a__2[0] = sq; -#line 24867 "" +#line 25483 "" i__2[1] = 8, a__2[1] = "setname{"; -#line 24867 "" - s_cat(ch__12, a__2, i__2, &c__2, (ftnlen)9); -#line 24867 "" - do_fio(&c__1, ch__12, (ftnlen)9); -#line 24867 "" +#line 25483 "" + s_cat(ch__11, a__2, i__2, &c__2, (ftnlen)9); +#line 25483 "" + do_fio(&c__1, ch__11, (ftnlen)9); +#line 25483 "" do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof(integer)); /* Writing concatenation */ -#line 24867 "" +#line 25483 "" i__1[0] = 2, a__1[0] = "}{"; -#line 24867 "" +#line 25483 "" i__1[1] = lname, a__1[1] = comtop_1.inameq + (iinst - 1) * 79; -#line 24867 "" +#line 25483 "" i__1[2] = 1, a__1[2] = "}"; -#line 24867 "" - s_cat(ch__26, a__1, i__1, &c__3, (ftnlen)82); -#line 24867 "" - do_fio(&c__1, ch__26, lname + 3); -#line 24867 "" +#line 25483 "" + s_cat(ch__25, a__1, i__1, &c__3, (ftnlen)82); +#line 25483 "" + do_fio(&c__1, ch__25, lname + 3); +#line 25483 "" e_wsfe(); -#line 24869 "" +#line 25485 "" } -#line 24870 "" +#line 25486 "" /* L1: */ -#line 24870 "" +#line 25486 "" } -#line 24871 "" - s_wsfe(&io___1794); +#line 25487 "" + s_wsfe(&io___1864); /* Writing concatenation */ -#line 24871 "" +#line 25487 "" i__2[0] = 1, a__2[0] = sq; -#line 24871 "" +#line 25487 "" i__2[1] = 17, a__2[1] = "generalsignature{"; -#line 24871 "" - s_cat(ch__27, a__2, i__2, &c__2, (ftnlen)18); -#line 24871 "" - do_fio(&c__1, ch__27, (ftnlen)18); -#line 24871 "" +#line 25487 "" + s_cat(ch__26, a__2, i__2, &c__2, (ftnlen)18); +#line 25487 "" + do_fio(&c__1, ch__26, (ftnlen)18); +#line 25487 "" do_fio(&c__1, (char *)&comtop_1.isig, (ftnlen)sizeof(integer)); -#line 24871 "" +#line 25487 "" do_fio(&c__1, "}%", (ftnlen)2); -#line 24871 "" +#line 25487 "" e_wsfe(); -#line 24872 "" +#line 25488 "" if (cominsttrans_1.earlytranson) { -#line 24872 "" +#line 25488 "" writesetsign_(&cominsttrans_1.ninsttrans, cominsttrans_1.iinsttrans, cominsttrans_1.itranskey, &cominsttrans_1.earlytranson); -#line 24872 "" +#line 25488 "" } -#line 24874 "" +#line 25490 "" wgmeter_(mtrnmp, mtrdnp); -#line 24875 "" +#line 25491 "" r__1 = comtop_1.fracindent * comtop_1.widthpt; -#line 24875 "" +#line 25491 "" ipi = i_nint(&r__1); -#line 24876 "" +#line 25492 "" if (ipi < 10) { -#line 24877 "" - s_wsfe(&io___1796); +#line 25493 "" + s_wsfe(&io___1866); /* Writing concatenation */ -#line 24877 "" +#line 25493 "" i__2[0] = 1, a__2[0] = sq; -#line 24877 "" +#line 25493 "" i__2[1] = 10, a__2[1] = "parindent "; -#line 24877 "" - s_cat(ch__14, a__2, i__2, &c__2, (ftnlen)11); -#line 24877 "" - do_fio(&c__1, ch__14, (ftnlen)11); -#line 24877 "" +#line 25493 "" + s_cat(ch__13, a__2, i__2, &c__2, (ftnlen)11); +#line 25493 "" + do_fio(&c__1, ch__13, (ftnlen)11); +#line 25493 "" do_fio(&c__1, (char *)&ipi, (ftnlen)sizeof(integer)); -#line 24877 "" +#line 25493 "" do_fio(&c__1, "pt", (ftnlen)2); -#line 24877 "" +#line 25493 "" e_wsfe(); -#line 24878 "" +#line 25494 "" } else if (ipi < 100) { -#line 24879 "" - s_wsfe(&io___1797); +#line 25495 "" + s_wsfe(&io___1867); /* Writing concatenation */ -#line 24879 "" +#line 25495 "" i__2[0] = 1, a__2[0] = sq; -#line 24879 "" +#line 25495 "" i__2[1] = 10, a__2[1] = "parindent "; -#line 24879 "" - s_cat(ch__14, a__2, i__2, &c__2, (ftnlen)11); -#line 24879 "" - do_fio(&c__1, ch__14, (ftnlen)11); -#line 24879 "" +#line 25495 "" + s_cat(ch__13, a__2, i__2, &c__2, (ftnlen)11); +#line 25495 "" + do_fio(&c__1, ch__13, (ftnlen)11); +#line 25495 "" do_fio(&c__1, (char *)&ipi, (ftnlen)sizeof(integer)); -#line 24879 "" +#line 25495 "" do_fio(&c__1, "pt", (ftnlen)2); -#line 24879 "" +#line 25495 "" e_wsfe(); -#line 24880 "" +#line 25496 "" } else { -#line 24881 "" - s_wsfe(&io___1798); +#line 25497 "" + s_wsfe(&io___1868); /* Writing concatenation */ -#line 24881 "" +#line 25497 "" i__2[0] = 1, a__2[0] = sq; -#line 24881 "" +#line 25497 "" i__2[1] = 10, a__2[1] = "parindent "; -#line 24881 "" - s_cat(ch__14, a__2, i__2, &c__2, (ftnlen)11); -#line 24881 "" - do_fio(&c__1, ch__14, (ftnlen)11); -#line 24881 "" +#line 25497 "" + s_cat(ch__13, a__2, i__2, &c__2, (ftnlen)11); +#line 25497 "" + do_fio(&c__1, ch__13, (ftnlen)11); +#line 25497 "" do_fio(&c__1, (char *)&ipi, (ftnlen)sizeof(integer)); -#line 24881 "" +#line 25497 "" do_fio(&c__1, "pt", (ftnlen)2); -#line 24881 "" +#line 25497 "" e_wsfe(); -#line 24882 "" +#line 25498 "" } -#line 24883 "" - s_wsfe(&io___1799); +#line 25499 "" + s_wsfe(&io___1869); /* Writing concatenation */ -#line 24883 "" +#line 25499 "" i__10[0] = 1, a__7[0] = sq; -#line 24883 "" +#line 25499 "" i__10[1] = 11, a__7[1] = "elemskip1pt"; -#line 24883 "" +#line 25499 "" i__10[2] = 1, a__7[2] = sq; -#line 24883 "" +#line 25499 "" i__10[3] = 13, a__7[3] = "afterruleskip"; -#line 24883 "" +#line 25499 "" i__10[4] = 5, a__7[4] = fbarq; -#line 24883 "" +#line 25499 "" i__10[5] = 2, a__7[5] = "pt"; -#line 24883 "" +#line 25499 "" i__10[6] = 1, a__7[6] = sq; -#line 24883 "" +#line 25499 "" i__10[7] = 17, a__7[7] = "beforeruleskip0pt"; -#line 24883 "" +#line 25499 "" i__10[8] = 1, a__7[8] = sq; -#line 24883 "" +#line 25499 "" i__10[9] = 5, a__7[9] = "relax"; -#line 24883 "" - s_cat(ch__28, a__7, i__10, &c__10, (ftnlen)57); -#line 24883 "" - do_fio(&c__1, ch__28, (ftnlen)57); -#line 24883 "" +#line 25499 "" + s_cat(ch__27, a__7, i__10, &c__10, (ftnlen)57); +#line 25499 "" + do_fio(&c__1, ch__27, (ftnlen)57); +#line 25499 "" e_wsfe(); -#line 24885 "" +#line 25501 "" if (! (*vshrink)) { -#line 24886 "" +#line 25502 "" if (*xinstf1 < 9.95f) { -#line 24887 "" +#line 25503 "" s_copy(fmtq, "(a,f3.1,a)", (ftnlen)24, (ftnlen)10); -#line 24888 "" +#line 25504 "" } else { -#line 24889 "" +#line 25505 "" s_copy(fmtq, "(a,f4.1,a)", (ftnlen)24, (ftnlen)10); -#line 24890 "" +#line 25506 "" } -#line 24891 "" +#line 25507 "" facis = 1.f; -#line 24892 "" +#line 25508 "" if (comis4bignv_1.is4bignv) { -#line 24892 "" +#line 25508 "" facis = .95f; -#line 24892 "" - } -#line 24893 "" - s_wsfe(&io___1801); -/* Writing concatenation */ -#line 24893 "" - i__4[0] = 1, a__4[0] = sq; -#line 24893 "" - i__4[1] = 15, a__4[1] = "stafftopmarg0pt"; -#line 24893 "" - i__4[2] = 1, a__4[2] = sq; -#line 24893 "" - i__4[3] = 15, a__4[3] = "staffbotmarg0pt"; -#line 24893 "" - i__4[4] = 1, a__4[4] = sq; -#line 24893 "" - i__4[5] = 11, a__4[5] = "interstaff{"; -#line 24893 "" - s_cat(ch__29, a__4, i__4, &c__6, (ftnlen)44); -#line 24893 "" - do_fio(&c__1, ch__29, (ftnlen)44); -#line 24893 "" +#line 25508 "" + } +#line 25509 "" + s_wsfe(&io___1871); +/* Writing concatenation */ +#line 25509 "" + i__7[0] = 1, a__5[0] = sq; +#line 25509 "" + i__7[1] = 15, a__5[1] = "stafftopmarg0pt"; +#line 25509 "" + i__7[2] = 1, a__5[2] = sq; +#line 25509 "" + i__7[3] = 15, a__5[3] = "staffbotmarg0pt"; +#line 25509 "" + i__7[4] = 1, a__5[4] = sq; +#line 25509 "" + i__7[5] = 11, a__5[5] = "interstaff{"; +#line 25509 "" + s_cat(ch__28, a__5, i__7, &c__6, (ftnlen)44); +#line 25509 "" + do_fio(&c__1, ch__28, (ftnlen)44); +#line 25509 "" r__1 = *xinstf1 * facis; -#line 24893 "" +#line 25509 "" do_fio(&c__1, (char *)&r__1, (ftnlen)sizeof(real)); /* Writing concatenation */ -#line 24893 "" +#line 25509 "" i__1[0] = 1, a__1[0] = "}"; -#line 24893 "" +#line 25509 "" i__1[1] = 1, a__1[1] = sq; -#line 24893 "" +#line 25509 "" i__1[2] = 5, a__1[2] = "relax"; -#line 24893 "" - s_cat(ch__16, a__1, i__1, &c__3, (ftnlen)7); -#line 24893 "" - do_fio(&c__1, ch__16, (ftnlen)7); -#line 24893 "" +#line 25509 "" + s_cat(ch__15, a__1, i__1, &c__3, (ftnlen)7); +#line 25509 "" + do_fio(&c__1, ch__15, (ftnlen)7); +#line 25509 "" e_wsfe(); -#line 24895 "" +#line 25511 "" } else { -#line 24896 "" - s_wsfe(&io___1802); +#line 25512 "" + s_wsfe(&io___1872); /* Writing concatenation */ -#line 24896 "" +#line 25512 "" i__10[0] = 1, a__7[0] = sq; -#line 24896 "" +#line 25512 "" i__10[1] = 15, a__7[1] = "stafftopmarg0pt"; -#line 24896 "" +#line 25512 "" i__10[2] = 1, a__7[2] = sq; -#line 24896 "" +#line 25512 "" i__10[3] = 13, a__7[3] = "staffbotmarg5"; -#line 24896 "" +#line 25512 "" i__10[4] = 1, a__7[4] = sq; -#line 24896 "" +#line 25512 "" i__10[5] = 10, a__7[5] = "Interligne"; -#line 24896 "" +#line 25512 "" i__10[6] = 1, a__7[6] = sq; -#line 24896 "" +#line 25512 "" i__10[7] = 14, a__7[7] = "interstaff{10}"; -#line 24896 "" +#line 25512 "" i__10[8] = 1, a__7[8] = sq; -#line 24896 "" +#line 25512 "" i__10[9] = 5, a__7[9] = "relax"; -#line 24896 "" - s_cat(ch__30, a__7, i__10, &c__10, (ftnlen)62); -#line 24896 "" - do_fio(&c__1, ch__30, (ftnlen)62); -#line 24896 "" +#line 25512 "" + s_cat(ch__29, a__7, i__10, &c__10, (ftnlen)62); +#line 25512 "" + do_fio(&c__1, ch__29, (ftnlen)62); +#line 25512 "" e_wsfe(); -#line 24899 "" +#line 25515 "" } -#line 24900 "" +#line 25516 "" if (*nv == 1) { -#line 24900 "" - s_wsfe(&io___1803); +#line 25516 "" + s_wsfe(&io___1873); /* Writing concatenation */ -#line 24900 "" +#line 25516 "" i__2[0] = 1, a__2[0] = sq; -#line 24900 "" +#line 25516 "" i__2[1] = 11, a__2[1] = "nostartrule"; -#line 24900 "" - s_cat(ch__11, a__2, i__2, &c__2, (ftnlen)12); -#line 24900 "" - do_fio(&c__1, ch__11, (ftnlen)12); -#line 24900 "" +#line 25516 "" + s_cat(ch__10, a__2, i__2, &c__2, (ftnlen)12); +#line 25516 "" + do_fio(&c__1, ch__10, (ftnlen)12); +#line 25516 "" e_wsfe(); -#line 24900 "" +#line 25516 "" } -#line 24901 "" - s_wsfe(&io___1804); +#line 25517 "" + s_wsfe(&io___1874); /* Writing concatenation */ -#line 24901 "" +#line 25517 "" i__3[0] = 1, a__3[0] = sq; -#line 24901 "" +#line 25517 "" i__3[1] = 8, a__3[1] = "readmod{"; -#line 24901 "" +#line 25517 "" i__3[2] = *lbase, a__3[2] = basenameq; -#line 24901 "" +#line 25517 "" i__3[3] = 1, a__3[3] = "}"; -#line 24901 "" - s_cat(ch__31, a__3, i__3, &c__4, (ftnlen)54); -#line 24901 "" - do_fio(&c__1, ch__31, *lbase + 10); -#line 24901 "" +#line 25517 "" + s_cat(ch__30, a__3, i__3, &c__4, (ftnlen)54); +#line 25517 "" + do_fio(&c__1, ch__30, *lbase + 10); +#line 25517 "" e_wsfe(); -#line 24902 "" +#line 25518 "" if (comnvst_1.cstuplet) { -#line 24903 "" - s_wsfe(&io___1805); +#line 25519 "" + s_wsfe(&io___1875); /* Writing concatenation */ -#line 24903 "" +#line 25519 "" i__11[0] = 1, a__8[0] = sq; -#line 24903 "" +#line 25519 "" i__11[1] = 12, a__8[1] = "input tuplet"; -#line 24903 "" +#line 25519 "" i__11[2] = 1, a__8[2] = sq; -#line 24903 "" +#line 25519 "" i__11[3] = 3, a__8[3] = "def"; -#line 24903 "" +#line 25519 "" i__11[4] = 1, a__8[4] = sq; -#line 24903 "" +#line 25519 "" i__11[5] = 12, a__8[5] = "xnumt#1#2#3{"; -#line 24903 "" +#line 25519 "" i__11[6] = 1, a__8[6] = sq; -#line 24903 "" +#line 25519 "" i__11[7] = 16, a__8[7] = "zcharnote{#2}{~}"; -#line 24903 "" +#line 25519 "" i__11[8] = 1, a__8[8] = sq; -#line 24903 "" +#line 25519 "" i__11[9] = 3, a__8[9] = "def"; -#line 24903 "" +#line 25519 "" i__11[10] = 1, a__8[10] = sq; -#line 24903 "" +#line 25519 "" i__11[11] = 10, a__8[11] = "tuplettxt{"; -#line 24903 "" +#line 25519 "" i__11[12] = 1, a__8[12] = sq; -#line 24903 "" +#line 25519 "" i__11[13] = 9, a__8[13] = "smalltype"; -#line 24903 "" +#line 25519 "" i__11[14] = 1, a__8[14] = sq; -#line 24903 "" +#line 25519 "" i__11[15] = 6, a__8[15] = "it{#3}"; -#line 24903 "" +#line 25519 "" i__11[16] = 1, a__8[16] = sq; -#line 24903 "" +#line 25519 "" i__11[17] = 1, a__8[17] = "/"; -#line 24903 "" +#line 25519 "" i__11[18] = 1, a__8[18] = sq; -#line 24903 "" +#line 25519 "" i__11[19] = 4, a__8[19] = "/}}%"; -#line 24903 "" - s_cat(ch__32, a__8, i__11, &c__20, (ftnlen)86); -#line 24903 "" - do_fio(&c__1, ch__32, (ftnlen)86); -#line 24903 "" +#line 25519 "" + s_cat(ch__31, a__8, i__11, &c__20, (ftnlen)86); +#line 25519 "" + do_fio(&c__1, ch__31, (ftnlen)86); +#line 25519 "" e_wsfe(); -#line 24907 "" - s_wsfe(&io___1806); +#line 25523 "" + s_wsfe(&io___1876); /* Writing concatenation */ -#line 24907 "" +#line 25523 "" i__12[0] = 1, a__9[0] = sq; -#line 24907 "" +#line 25523 "" i__12[1] = 3, a__9[1] = "let"; -#line 24907 "" +#line 25523 "" i__12[2] = 1, a__9[2] = sq; -#line 24907 "" +#line 25523 "" i__12[3] = 5, a__9[3] = "ovbkt"; -#line 24907 "" +#line 25523 "" i__12[4] = 1, a__9[4] = sq; -#line 24907 "" +#line 25523 "" i__12[5] = 8, a__9[5] = "uptuplet"; -#line 24907 "" +#line 25523 "" i__12[6] = 1, a__9[6] = sq; -#line 24907 "" +#line 25523 "" i__12[7] = 3, a__9[7] = "let"; -#line 24907 "" +#line 25523 "" i__12[8] = 1, a__9[8] = sq; -#line 24907 "" +#line 25523 "" i__12[9] = 5, a__9[9] = "unbkt"; -#line 24907 "" +#line 25523 "" i__12[10] = 1, a__9[10] = sq; -#line 24907 "" +#line 25523 "" i__12[11] = 11, a__9[11] = "downtuplet%"; -#line 24907 "" - s_cat(ch__33, a__9, i__12, &c__12, (ftnlen)41); -#line 24907 "" - do_fio(&c__1, ch__33, (ftnlen)41); -#line 24907 "" +#line 25523 "" + s_cat(ch__32, a__9, i__12, &c__12, (ftnlen)41); +#line 25523 "" + do_fio(&c__1, ch__32, (ftnlen)41); +#line 25523 "" e_wsfe(); -#line 24909 "" +#line 25525 "" } -#line 24910 "" - s_wsfe(&io___1807); +#line 25526 "" + s_wsfe(&io___1877); /* Writing concatenation */ -#line 24910 "" +#line 25526 "" i__13[0] = 1, a__10[0] = sq; -#line 24910 "" +#line 25526 "" i__13[1] = 11, a__10[1] = "startmuflex"; -#line 24910 "" +#line 25526 "" i__13[2] = 1, a__10[2] = sq; -#line 24910 "" +#line 25526 "" i__13[3] = 10, a__10[3] = "startpiece"; -#line 24910 "" +#line 25526 "" i__13[4] = 1, a__10[4] = sq; -#line 24910 "" +#line 25526 "" i__13[5] = 8, a__10[5] = "addspace"; -#line 24910 "" +#line 25526 "" i__13[6] = 1, a__10[6] = sq; -#line 24910 "" +#line 25526 "" i__13[7] = 14, a__10[7] = "afterruleskip%"; -#line 24910 "" - s_cat(ch__34, a__10, i__13, &c__8, (ftnlen)47); -#line 24910 "" - do_fio(&c__1, ch__34, (ftnlen)47); -#line 24910 "" +#line 25526 "" + s_cat(ch__33, a__10, i__13, &c__8, (ftnlen)47); +#line 25526 "" + do_fio(&c__1, ch__33, (ftnlen)47); +#line 25526 "" e_wsfe(); -#line 24912 "" +#line 25528 "" return 0; } /* topfile_ */ @@ -61968,19 +63985,19 @@ L4: /* Slur directions */ -#line 24920 "" +#line 25536 "" ntest = *nolev - *ncm; -#line 24921 "" +#line 25537 "" if (ntest < 0 || ntest == 0 && combc_1.bcspec && *ncm == 23) { -#line 24923 "" +#line 25539 "" *(unsigned char *)ret_val = 'd'; -#line 24924 "" +#line 25540 "" } else { -#line 24925 "" +#line 25541 "" *(unsigned char *)ret_val = 'u'; -#line 24926 "" +#line 25542 "" } -#line 24927 "" +#line 25543 "" return ; } /* udfq_ */ @@ -61998,52 +64015,52 @@ L4: /* Stem direction for single notes */ -#line 24936 "" +#line 25552 "" if (bit_test(*isl,30)) { /* Absolute override */ -#line 24940 "" +#line 25556 "" if (bit_test(*isl,17)) { -#line 24941 "" +#line 25557 "" *(unsigned char *)udqqq = 'u'; -#line 24942 "" +#line 25558 "" } else { -#line 24943 "" +#line 25559 "" *(unsigned char *)udqqq = 'l'; -#line 24944 "" +#line 25560 "" } -#line 24945 "" +#line 25561 "" } else if (*nvmx == 1) { /* Single voice per staff, default */ -#line 24949 "" +#line 25565 "" r__1 = *nole * 1.f; -#line 24949 "" +#line 25565 "" ulfq_(ch__2, (ftnlen)1, &r__1, ncm); -#line 24949 "" +#line 25565 "" *(unsigned char *)udqqq = *(unsigned char *)&ch__2[0]; -#line 24950 "" +#line 25566 "" } else { /* Multi-voice per staff, 1st is lower, 2nd upper */ -#line 24954 "" +#line 25570 "" if (*ivx <= *nv) { -#line 24955 "" +#line 25571 "" *(unsigned char *)udqqq = 'l'; -#line 24956 "" +#line 25572 "" } else { -#line 24957 "" +#line 25573 "" *(unsigned char *)udqqq = 'u'; -#line 24958 "" +#line 25574 "" } -#line 24959 "" +#line 25575 "" } -#line 24960 "" +#line 25576 "" *(unsigned char *)ret_val = *(unsigned char *)udqqq; -#line 24961 "" +#line 25577 "" return ; } /* udqq_ */ @@ -62055,19 +64072,19 @@ L4: /* Stem directions */ -#line 24969 "" +#line 25585 "" test = *xnolev - *ncm; -#line 24970 "" +#line 25586 "" if (test < -.001f || test < .001f && combc_1.bcspec && *ncm == 23) { -#line 24972 "" +#line 25588 "" *(unsigned char *)ret_val = 'u'; -#line 24973 "" +#line 25589 "" } else { -#line 24974 "" +#line 25590 "" *(unsigned char *)ret_val = 'l'; -#line 24975 "" +#line 25591 "" } -#line 24976 "" +#line 25592 "" return ; } /* ulfq_ */ @@ -62089,40 +64106,40 @@ L4: extern /* Character */ VOID chax_(char *, ftnlen, integer *); /* Fortran I/O blocks */ - static cilist io___1811 = { 0, 6, 0, 0, 0 }; + static cilist io___1881 = { 0, 6, 0, 0, 0 }; -#line 24980 "" +#line 25596 "" if (*(unsigned char *)chq >= 61 && *(unsigned char *)chq < 122) { -#line 24981 "" +#line 25597 "" i__1 = *(unsigned char *)chq - 32; -#line 24981 "" +#line 25597 "" chax_(ch__2, (ftnlen)1, &i__1); -#line 24981 "" +#line 25597 "" *(unsigned char *)ret_val = *(unsigned char *)&ch__2[0]; -#line 24982 "" +#line 25598 "" } else { -#line 24983 "" +#line 25599 "" *(unsigned char *)ret_val = *(unsigned char *)chq; -#line 24984 "" - s_wsle(&io___1811); +#line 25600 "" + s_wsle(&io___1881); /* Writing concatenation */ -#line 24984 "" +#line 25600 "" i__2[0] = 52, a__1[0] = "Warning, upcaseq was called with improper a"\ "rgument: "; -#line 24984 "" +#line 25600 "" i__2[1] = 1, a__1[1] = chq; -#line 24984 "" +#line 25600 "" s_cat(ch__3, a__1, i__2, &c__2, (ftnlen)53); -#line 24984 "" +#line 25600 "" do_lio(&c__9, &c__1, ch__3, (ftnlen)53); -#line 24984 "" +#line 25600 "" e_wsle(); -#line 24986 "" +#line 25602 "" s_stop("", (ftnlen)0); -#line 24987 "" +#line 25603 "" } -#line 24988 "" +#line 25604 "" return ; } /* upcaseq_ */ @@ -62143,258 +64160,258 @@ L4: extern /* Character */ VOID chax_(char *, ftnlen, integer *); /* Fortran I/O blocks */ - static cilist io___1813 = { 0, 11, 0, "(a25,i1,a2,i1,a3)", 0 }; - static cilist io___1814 = { 0, 11, 0, "(a25,i1,a2,i2,a3)", 0 }; - static cilist io___1815 = { 0, 11, 0, "(a25,i2,a2,i1,a3)", 0 }; - static cilist io___1816 = { 0, 11, 0, "(a25,i2,a2,i2,a3)", 0 }; - static cilist io___1817 = { 0, 11, 0, "(a26,i1,a2,i1,a3)", 0 }; - static cilist io___1818 = { 0, 11, 0, "(a21,i1,a2)", 0 }; - static cilist io___1819 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1820 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1821 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1883 = { 0, 11, 0, "(a25,i1,a2,i1,a3)", 0 }; + static cilist io___1884 = { 0, 11, 0, "(a25,i1,a2,i2,a3)", 0 }; + static cilist io___1885 = { 0, 11, 0, "(a25,i2,a2,i1,a3)", 0 }; + static cilist io___1886 = { 0, 11, 0, "(a25,i2,a2,i2,a3)", 0 }; + static cilist io___1887 = { 0, 11, 0, "(a26,i1,a2,i1,a3)", 0 }; + static cilist io___1888 = { 0, 11, 0, "(a21,i1,a2)", 0 }; + static cilist io___1889 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1890 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1891 = { 0, 11, 0, "(a)", 0 }; /* Writes meter stuff to file 11, so only called if islast=.true. */ -#line 24995 "" +#line 25611 "" if (*mtrdnp == 0) { -#line 24995 "" +#line 25611 "" return 0; -#line 24995 "" +#line 25611 "" } -#line 24996 "" +#line 25612 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 24996 "" +#line 25612 "" *(unsigned char *)sq = *(unsigned char *)&ch__1[0]; -#line 24997 "" +#line 25613 "" if (*mtrnmp > 0 && *mtrnmp <= 9) { -#line 24998 "" +#line 25614 "" if (*mtrdnp < 10) { -#line 24999 "" - s_wsfe(&io___1813); +#line 25615 "" + s_wsfe(&io___1883); /* Writing concatenation */ -#line 24999 "" +#line 25615 "" i__1[0] = 1, a__1[0] = sq; -#line 24999 "" +#line 25615 "" i__1[1] = 13, a__1[1] = "generalmeter{"; -#line 24999 "" +#line 25615 "" i__1[2] = 1, a__1[2] = sq; -#line 24999 "" +#line 25615 "" i__1[3] = 10, a__1[3] = "meterfrac{"; -#line 24999 "" +#line 25615 "" s_cat(ch__2, a__1, i__1, &c__4, (ftnlen)25); -#line 24999 "" +#line 25615 "" do_fio(&c__1, ch__2, (ftnlen)25); -#line 24999 "" +#line 25615 "" do_fio(&c__1, (char *)&(*mtrnmp), (ftnlen)sizeof(integer)); -#line 24999 "" +#line 25615 "" do_fio(&c__1, "}{", (ftnlen)2); -#line 24999 "" +#line 25615 "" do_fio(&c__1, (char *)&(*mtrdnp), (ftnlen)sizeof(integer)); -#line 24999 "" +#line 25615 "" do_fio(&c__1, "}}%", (ftnlen)3); -#line 24999 "" +#line 25615 "" e_wsfe(); -#line 25002 "" +#line 25618 "" } else { -#line 25003 "" - s_wsfe(&io___1814); +#line 25619 "" + s_wsfe(&io___1884); /* Writing concatenation */ -#line 25003 "" +#line 25619 "" i__1[0] = 1, a__1[0] = sq; -#line 25003 "" +#line 25619 "" i__1[1] = 13, a__1[1] = "generalmeter{"; -#line 25003 "" +#line 25619 "" i__1[2] = 1, a__1[2] = sq; -#line 25003 "" +#line 25619 "" i__1[3] = 10, a__1[3] = "meterfrac{"; -#line 25003 "" +#line 25619 "" s_cat(ch__2, a__1, i__1, &c__4, (ftnlen)25); -#line 25003 "" +#line 25619 "" do_fio(&c__1, ch__2, (ftnlen)25); -#line 25003 "" +#line 25619 "" do_fio(&c__1, (char *)&(*mtrnmp), (ftnlen)sizeof(integer)); -#line 25003 "" +#line 25619 "" do_fio(&c__1, "}{", (ftnlen)2); -#line 25003 "" +#line 25619 "" do_fio(&c__1, (char *)&(*mtrdnp), (ftnlen)sizeof(integer)); -#line 25003 "" +#line 25619 "" do_fio(&c__1, "}}%", (ftnlen)3); -#line 25003 "" +#line 25619 "" e_wsfe(); -#line 25006 "" +#line 25622 "" } -#line 25007 "" +#line 25623 "" } else if (*mtrnmp >= 10) { -#line 25008 "" +#line 25624 "" if (*mtrdnp < 10) { -#line 25009 "" - s_wsfe(&io___1815); +#line 25625 "" + s_wsfe(&io___1885); /* Writing concatenation */ -#line 25009 "" +#line 25625 "" i__1[0] = 1, a__1[0] = sq; -#line 25009 "" +#line 25625 "" i__1[1] = 13, a__1[1] = "generalmeter{"; -#line 25009 "" +#line 25625 "" i__1[2] = 1, a__1[2] = sq; -#line 25009 "" +#line 25625 "" i__1[3] = 10, a__1[3] = "meterfrac{"; -#line 25009 "" +#line 25625 "" s_cat(ch__2, a__1, i__1, &c__4, (ftnlen)25); -#line 25009 "" +#line 25625 "" do_fio(&c__1, ch__2, (ftnlen)25); -#line 25009 "" +#line 25625 "" do_fio(&c__1, (char *)&(*mtrnmp), (ftnlen)sizeof(integer)); -#line 25009 "" +#line 25625 "" do_fio(&c__1, "}{", (ftnlen)2); -#line 25009 "" +#line 25625 "" do_fio(&c__1, (char *)&(*mtrdnp), (ftnlen)sizeof(integer)); -#line 25009 "" +#line 25625 "" do_fio(&c__1, "}}%", (ftnlen)3); -#line 25009 "" +#line 25625 "" e_wsfe(); -#line 25012 "" +#line 25628 "" } else { -#line 25013 "" - s_wsfe(&io___1816); +#line 25629 "" + s_wsfe(&io___1886); /* Writing concatenation */ -#line 25013 "" +#line 25629 "" i__1[0] = 1, a__1[0] = sq; -#line 25013 "" +#line 25629 "" i__1[1] = 13, a__1[1] = "generalmeter{"; -#line 25013 "" +#line 25629 "" i__1[2] = 1, a__1[2] = sq; -#line 25013 "" +#line 25629 "" i__1[3] = 10, a__1[3] = "meterfrac{"; -#line 25013 "" +#line 25629 "" s_cat(ch__2, a__1, i__1, &c__4, (ftnlen)25); -#line 25013 "" +#line 25629 "" do_fio(&c__1, ch__2, (ftnlen)25); -#line 25013 "" +#line 25629 "" do_fio(&c__1, (char *)&(*mtrnmp), (ftnlen)sizeof(integer)); -#line 25013 "" +#line 25629 "" do_fio(&c__1, "}{", (ftnlen)2); -#line 25013 "" +#line 25629 "" do_fio(&c__1, (char *)&(*mtrdnp), (ftnlen)sizeof(integer)); -#line 25013 "" +#line 25629 "" do_fio(&c__1, "}}%", (ftnlen)3); -#line 25013 "" +#line 25629 "" e_wsfe(); -#line 25016 "" +#line 25632 "" } -#line 25017 "" +#line 25633 "" } else if (*mtrnmp < 0) { -#line 25018 "" - s_wsfe(&io___1817); +#line 25634 "" + s_wsfe(&io___1887); /* Writing concatenation */ -#line 25018 "" +#line 25634 "" i__1[0] = 1, a__1[0] = sq; -#line 25018 "" +#line 25634 "" i__1[1] = 13, a__1[1] = "generalmeter{"; -#line 25018 "" +#line 25634 "" i__1[2] = 1, a__1[2] = sq; -#line 25018 "" +#line 25634 "" i__1[3] = 11, a__1[3] = "meterfracS{"; -#line 25018 "" +#line 25634 "" s_cat(ch__3, a__1, i__1, &c__4, (ftnlen)26); -#line 25018 "" +#line 25634 "" do_fio(&c__1, ch__3, (ftnlen)26); -#line 25018 "" +#line 25634 "" i__2 = -(*mtrnmp); -#line 25018 "" +#line 25634 "" do_fio(&c__1, (char *)&i__2, (ftnlen)sizeof(integer)); -#line 25018 "" +#line 25634 "" do_fio(&c__1, "}{", (ftnlen)2); -#line 25018 "" +#line 25634 "" do_fio(&c__1, (char *)&(*mtrdnp), (ftnlen)sizeof(integer)); -#line 25018 "" +#line 25634 "" do_fio(&c__1, "}}%", (ftnlen)3); -#line 25018 "" +#line 25634 "" e_wsfe(); -#line 25021 "" +#line 25637 "" } else if (*mtrdnp <= 4) { -#line 25022 "" - s_wsfe(&io___1818); +#line 25638 "" + s_wsfe(&io___1888); /* Writing concatenation */ -#line 25022 "" +#line 25638 "" i__1[0] = 1, a__1[0] = sq; -#line 25022 "" +#line 25638 "" i__1[1] = 13, a__1[1] = "generalmeter{"; -#line 25022 "" +#line 25638 "" i__1[2] = 1, a__1[2] = sq; -#line 25022 "" +#line 25638 "" i__1[3] = 6, a__1[3] = "meterN"; -#line 25022 "" +#line 25638 "" s_cat(ch__4, a__1, i__1, &c__4, (ftnlen)21); -#line 25022 "" +#line 25638 "" do_fio(&c__1, ch__4, (ftnlen)21); -#line 25022 "" +#line 25638 "" do_fio(&c__1, (char *)&(*mtrdnp), (ftnlen)sizeof(integer)); -#line 25022 "" +#line 25638 "" do_fio(&c__1, "}%", (ftnlen)2); -#line 25022 "" +#line 25638 "" e_wsfe(); -#line 25024 "" +#line 25640 "" } else if (*mtrdnp == 5) { -#line 25025 "" - s_wsfe(&io___1819); +#line 25641 "" + s_wsfe(&io___1889); /* Writing concatenation */ -#line 25025 "" +#line 25641 "" i__1[0] = 1, a__1[0] = sq; -#line 25025 "" +#line 25641 "" i__1[1] = 12, a__1[1] = "generalmeter"; -#line 25025 "" +#line 25641 "" i__1[2] = 1, a__1[2] = sq; -#line 25025 "" +#line 25641 "" i__1[3] = 10, a__1[3] = "allabreve%"; -#line 25025 "" +#line 25641 "" s_cat(ch__5, a__1, i__1, &c__4, (ftnlen)24); -#line 25025 "" +#line 25641 "" do_fio(&c__1, ch__5, (ftnlen)24); -#line 25025 "" +#line 25641 "" e_wsfe(); -#line 25026 "" +#line 25642 "" } else if (*mtrdnp == 6) { -#line 25027 "" - s_wsfe(&io___1820); +#line 25643 "" + s_wsfe(&io___1890); /* Writing concatenation */ -#line 25027 "" +#line 25643 "" i__1[0] = 1, a__1[0] = sq; -#line 25027 "" +#line 25643 "" i__1[1] = 12, a__1[1] = "generalmeter"; -#line 25027 "" +#line 25643 "" i__1[2] = 1, a__1[2] = sq; -#line 25027 "" +#line 25643 "" i__1[3] = 7, a__1[3] = "meterC%"; -#line 25027 "" +#line 25643 "" s_cat(ch__4, a__1, i__1, &c__4, (ftnlen)21); -#line 25027 "" +#line 25643 "" do_fio(&c__1, ch__4, (ftnlen)21); -#line 25027 "" +#line 25643 "" e_wsfe(); -#line 25028 "" +#line 25644 "" } else if (*mtrdnp == 7) { -#line 25029 "" - s_wsfe(&io___1821); +#line 25645 "" + s_wsfe(&io___1891); /* Writing concatenation */ -#line 25029 "" +#line 25645 "" i__1[0] = 1, a__1[0] = sq; -#line 25029 "" +#line 25645 "" i__1[1] = 12, a__1[1] = "generalmeter"; -#line 25029 "" +#line 25645 "" i__1[2] = 1, a__1[2] = sq; -#line 25029 "" +#line 25645 "" i__1[3] = 10, a__1[3] = "meterIIIS%"; -#line 25029 "" +#line 25645 "" s_cat(ch__5, a__1, i__1, &c__4, (ftnlen)24); -#line 25029 "" +#line 25645 "" do_fio(&c__1, ch__5, (ftnlen)24); -#line 25029 "" +#line 25645 "" e_wsfe(); -#line 25030 "" +#line 25646 "" } -#line 25031 "" +#line 25647 "" return 0; } /* wgmeter_ */ @@ -62418,8 +64435,9 @@ L4: integer s_wsfe(cilist *); /* Subroutine */ int s_cat(char *, char **, integer *, integer *, ftnlen); integer do_fio(integer *, char *, ftnlen), e_wsfe(void), lbit_shift( - integer, integer), s_wsfi(icilist *), e_wsfi(void), f_clos(cllist - *); + integer, integer), s_wsle(cilist *), do_lio(integer *, integer *, + char *, ftnlen), e_wsle(void), s_wsfi(icilist *), e_wsfi(void), + f_clos(cllist *); /* Local variables */ static integer i__, kv, ib0, ib1, icm; @@ -62429,32 +64447,33 @@ L4: extern /* Subroutine */ int printl_(char *, ftnlen); /* Fortran I/O blocks */ - static cilist io___1823 = { 0, 51, 0, "(a,$)", 0 }; - static cilist io___1824 = { 0, 52, 0, "(a6,10Z4)", 0 }; - static cilist io___1829 = { 0, 51, 0, "(a,$)", 0 }; - static cilist io___1830 = { 0, 52, 0, "(a6,8z4)", 0 }; - static cilist io___1831 = { 0, 51, 0, "(a,$)", 0 }; - static cilist io___1832 = { 0, 52, 0, "(a)", 0 }; - static cilist io___1833 = { 0, 51, 0, "(a,$)", 0 }; - static cilist io___1834 = { 0, 52, 0, "(a)", 0 }; - static cilist io___1837 = { 0, 51, 0, "(a,$)", 0 }; - static cilist io___1838 = { 0, 52, 0, "(z4)", 0 }; - static cilist io___1839 = { 0, 51, 0, "(a,$)", 0 }; - static cilist io___1840 = { 0, 52, 0, "(4z4)", 0 }; - static cilist io___1845 = { 0, 51, 0, "(a,$)", 0 }; - static cilist io___1846 = { 0, 52, 0, "(a4,z2,a7,11z4)", 0 }; - static cilist io___1847 = { 0, 51, 0, "(a,$)", 0 }; - static cilist io___1848 = { 0, 52, 0, "(4z4)", 0 }; - static cilist io___1849 = { 0, 51, 0, "(a,$)", 0 }; - static cilist io___1850 = { 0, 52, 0, "(a)", 0 }; - static icilist io___1852 = { 0, tempoq, 0, "(i2)", 10, 1 }; - static icilist io___1854 = { 0, instq, 0, "(i3)", 10, 1 }; - static cilist io___1855 = { 0, 51, 0, "(a,$)", 0 }; - static cilist io___1856 = { 0, 52, 0, "(z4)", 0 }; - static cilist io___1857 = { 0, 51, 0, "(a,$)", 0 }; - static cilist io___1858 = { 0, 52, 0, "(4z4)", 0 }; - static cilist io___1859 = { 0, 6, 0, "(1x,a12,(10i6))", 0 }; - static cilist io___1860 = { 0, 15, 0, "(1x,a12,(10i6))", 0 }; + static cilist io___1893 = { 0, 51, 0, "(a,$)", 0 }; + static cilist io___1894 = { 0, 52, 0, "(a6,10Z4)", 0 }; + static cilist io___1899 = { 0, 51, 0, "(a,$)", 0 }; + static cilist io___1900 = { 0, 52, 0, "(a6,8z4)", 0 }; + static cilist io___1901 = { 0, 51, 0, "(a,$)", 0 }; + static cilist io___1902 = { 0, 52, 0, "(a)", 0 }; + static cilist io___1903 = { 0, 51, 0, "(a,$)", 0 }; + static cilist io___1904 = { 0, 52, 0, "(a)", 0 }; + static cilist io___1907 = { 0, 51, 0, "(a,$)", 0 }; + static cilist io___1908 = { 0, 52, 0, "(z4)", 0 }; + static cilist io___1909 = { 0, 51, 0, "(a,$)", 0 }; + static cilist io___1910 = { 0, 52, 0, "(4z4)", 0 }; + static cilist io___1915 = { 0, 51, 0, "(a,$)", 0 }; + static cilist io___1916 = { 0, 6, 0, 0, 0 }; + static cilist io___1917 = { 0, 52, 0, "(a4,z2,a7,11z4)", 0 }; + static cilist io___1918 = { 0, 51, 0, "(a,$)", 0 }; + static cilist io___1919 = { 0, 52, 0, "(4z4)", 0 }; + static cilist io___1920 = { 0, 51, 0, "(a,$)", 0 }; + static cilist io___1921 = { 0, 52, 0, "(a)", 0 }; + static icilist io___1923 = { 0, tempoq, 0, "(i2)", 10, 1 }; + static icilist io___1925 = { 0, instq, 0, "(i3)", 10, 1 }; + static cilist io___1926 = { 0, 51, 0, "(a,$)", 0 }; + static cilist io___1927 = { 0, 52, 0, "(z4)", 0 }; + static cilist io___1928 = { 0, 51, 0, "(a,$)", 0 }; + static cilist io___1929 = { 0, 52, 0, "(4z4)", 0 }; + static cilist io___1930 = { 0, 6, 0, "(1x,a12,(10i6))", 0 }; + static cilist io___1931 = { 0, 15, 0, "(1x,a12,(10i6))", 0 }; @@ -62466,707 +64485,714 @@ L4: /* Write Header */ -#line 25084 "" - s_wsfe(&io___1823); +#line 25700 "" + s_wsfe(&io___1893); /* Writing concatenation */ -#line 25084 "" +#line 25700 "" i__1[0] = 11, a__1[0] = "MThd\000\000\000\006\000\001\000"; -#line 25084 "" +#line 25700 "" *(unsigned char *)&ch__2[0] = commidi_1.numchan + 1; -#line 25084 "" +#line 25700 "" i__1[1] = 1, a__1[1] = ch__2; -#line 25084 "" +#line 25700 "" i__1[2] = 1, a__1[2] = "\000"; -#line 25084 "" +#line 25700 "" i__1[3] = 1, a__1[3] = "\360"; -#line 25084 "" +#line 25700 "" s_cat(ch__1, a__1, i__1, &c__4, (ftnlen)14); -#line 25084 "" +#line 25700 "" do_fio(&c__1, ch__1, (ftnlen)14); -#line 25084 "" +#line 25700 "" e_wsfe(); -#line 25086 "" +#line 25702 "" if (commidi_1.debugmidi) { -#line 25086 "" - s_wsfe(&io___1824); -#line 25086 "" +#line 25702 "" + s_wsfe(&io___1894); +#line 25702 "" do_fio(&c__1, "\"MThd\"", (ftnlen)6); -#line 25086 "" +#line 25702 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 25086 "" +#line 25702 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 25086 "" +#line 25702 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 25086 "" +#line 25702 "" do_fio(&c__1, (char *)&c__6, (ftnlen)sizeof(integer)); -#line 25086 "" +#line 25702 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 25086 "" +#line 25702 "" do_fio(&c__1, (char *)&c__1, (ftnlen)sizeof(integer)); -#line 25086 "" +#line 25702 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 25086 "" +#line 25702 "" i__2 = commidi_1.numchan + 1; -#line 25086 "" +#line 25702 "" do_fio(&c__1, (char *)&i__2, (ftnlen)sizeof(integer)); -#line 25086 "" +#line 25702 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 25086 "" +#line 25702 "" do_fio(&c__1, (char *)&c__240, (ftnlen)sizeof(integer)); -#line 25086 "" +#line 25702 "" e_wsfe(); -#line 25086 "" +#line 25702 "" } /* Write the "conductor" track, for keys, meter, and tempos */ /* Get the number of bytes in the conductor event stream */ -#line 25093 "" +#line 25709 "" ndata = commidi_1.imidi[commidi_1.numchan] + 1 - commmac_1.msecstrt[ commidi_1.numchan + commmac_1.nmidsec * 25 - 25]; -#line 25094 "" +#line 25710 "" i__2 = commmac_1.nmidsec - 1; -#line 25094 "" +#line 25710 "" for (isec = 1; isec <= i__2; ++isec) { -#line 25095 "" +#line 25711 "" ndata = ndata + 1 + commmac_1.msecend[commidi_1.numchan + isec * 25 - 25] - commmac_1.msecstrt[commidi_1.numchan + isec * 25 - 25]; -#line 25096 "" +#line 25712 "" /* L15: */ -#line 25096 "" +#line 25712 "" } /* ib1 = (4+ljob+26+ndata+4)/256 */ /* ib0 = 4+ljob+26+ndata+4-256*ib1 */ -#line 25099 "" +#line 25715 "" ib1 = (*ljob + 31 + ndata + 4) / 256; -#line 25100 "" +#line 25716 "" ib0 = *ljob + 31 + ndata + 4 - (ib1 << 8); -#line 25101 "" - s_wsfe(&io___1829); +#line 25717 "" + s_wsfe(&io___1899); /* Writing concatenation */ -#line 25101 "" +#line 25717 "" i__3[0] = 6, a__2[0] = "MTrk\000\000"; -#line 25101 "" +#line 25717 "" *(unsigned char *)&ch__2[0] = ib1; -#line 25101 "" +#line 25717 "" i__3[1] = 1, a__2[1] = ch__2; -#line 25101 "" +#line 25717 "" *(unsigned char *)&ch__4[0] = ib0; -#line 25101 "" +#line 25717 "" i__3[2] = 1, a__2[2] = ch__4; -#line 25101 "" +#line 25717 "" i__3[3] = 1, a__2[3] = "\000"; -#line 25101 "" +#line 25717 "" i__3[4] = 1, a__2[4] = "\377"; -#line 25101 "" +#line 25717 "" i__3[5] = 1, a__2[5] = "\001"; -#line 25101 "" +#line 25717 "" *(unsigned char *)&ch__5[0] = *ljob + 27; -#line 25101 "" +#line 25717 "" i__3[6] = 1, a__2[6] = ch__5; -#line 25101 "" +#line 25717 "" s_cat(ch__3, a__2, i__3, &c__7, (ftnlen)12); -#line 25101 "" +#line 25717 "" do_fio(&c__1, ch__3, (ftnlen)12); -#line 25101 "" +#line 25717 "" e_wsfe(); /* Text header */ /* * //char(0)//char(255)//char(1)//char(ljob+26) */ -#line 25107 "" +#line 25723 "" if (commidi_1.debugmidi) { -#line 25107 "" - s_wsfe(&io___1830); -#line 25107 "" +#line 25723 "" + s_wsfe(&io___1900); +#line 25723 "" do_fio(&c__1, "\"MTrk\"", (ftnlen)6); -#line 25107 "" +#line 25723 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 25107 "" +#line 25723 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 25107 "" +#line 25723 "" do_fio(&c__1, (char *)&ib1, (ftnlen)sizeof(integer)); -#line 25107 "" +#line 25723 "" do_fio(&c__1, (char *)&ib0, (ftnlen)sizeof(integer)); -#line 25107 "" +#line 25723 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 25107 "" +#line 25723 "" do_fio(&c__1, (char *)&c__255, (ftnlen)sizeof(integer)); -#line 25107 "" +#line 25723 "" do_fio(&c__1, (char *)&c__1, (ftnlen)sizeof(integer)); -#line 25107 "" +#line 25723 "" i__2 = *ljob + 27; -#line 25107 "" +#line 25723 "" do_fio(&c__1, (char *)&i__2, (ftnlen)sizeof(integer)); -#line 25107 "" +#line 25723 "" e_wsfe(); -#line 25107 "" +#line 25723 "" } -#line 25110 "" - s_wsfe(&io___1831); -#line 25110 "" +#line 25726 "" + s_wsfe(&io___1901); +#line 25726 "" do_fio(&c__1, jobname, (*ljob)); -#line 25110 "" +#line 25726 "" e_wsfe(); -#line 25111 "" +#line 25727 "" if (commidi_1.debugmidi) { -#line 25111 "" - s_wsfe(&io___1832); +#line 25727 "" + s_wsfe(&io___1902); /* Writing concatenation */ -#line 25111 "" +#line 25727 "" i__4[0] = 1, a__3[0] = "\""; -#line 25111 "" +#line 25727 "" i__4[1] = *ljob, a__3[1] = jobname; -#line 25111 "" +#line 25727 "" i__4[2] = 1, a__3[2] = "\""; -#line 25111 "" +#line 25727 "" s_cat(ch__6, a__3, i__4, &c__3, (ftnlen)46); -#line 25111 "" +#line 25727 "" do_fio(&c__1, ch__6, *ljob + 2); -#line 25111 "" +#line 25727 "" e_wsfe(); -#line 25111 "" +#line 25727 "" } /* (separate writes are needed to defeat compiler BUG!!!) */ /* write(51,'(a,$)')'.mid, produced by PMX 2.30' */ -#line 25116 "" - s_wsfe(&io___1833); +#line 25732 "" + s_wsfe(&io___1903); /* Writing concatenation */ -#line 25116 "" +#line 25732 "" i__5[0] = 22, a__4[0] = ".mid, produced by PMX "; -#line 25116 "" +#line 25732 "" i__5[1] = 5, a__4[1] = comver_1.versionc; -#line 25116 "" +#line 25732 "" s_cat(ch__7, a__4, i__5, &c__2, (ftnlen)27); -#line 25116 "" +#line 25732 "" do_fio(&c__1, ch__7, (ftnlen)27); -#line 25116 "" +#line 25732 "" e_wsfe(); -#line 25117 "" +#line 25733 "" if (commidi_1.debugmidi) { -#line 25117 "" - s_wsfe(&io___1834); +#line 25733 "" + s_wsfe(&io___1904); /* Writing concatenation */ -#line 25117 "" +#line 25733 "" i__4[0] = 23, a__3[0] = "\".mid, produced by PMX "; -#line 25117 "" +#line 25733 "" i__4[1] = 5, a__3[1] = comver_1.versionc; -#line 25117 "" +#line 25733 "" i__4[2] = 1, a__3[2] = "\""; -#line 25117 "" +#line 25733 "" s_cat(ch__8, a__3, i__4, &c__3, (ftnlen)29); -#line 25117 "" +#line 25733 "" do_fio(&c__1, ch__8, (ftnlen)29); -#line 25117 "" +#line 25733 "" e_wsfe(); -#line 25117 "" +#line 25733 "" } /* Conductor event data: Loop over sections. */ -#line 25122 "" +#line 25738 "" i__2 = commmac_1.nmidsec; -#line 25122 "" +#line 25738 "" for (isec = 1; isec <= i__2; ++isec) { -#line 25123 "" +#line 25739 "" if (isec < commmac_1.nmidsec) { -#line 25124 "" +#line 25740 "" mend = commmac_1.msecend[commidi_1.numchan + isec * 25 - 25]; -#line 25125 "" +#line 25741 "" } else { -#line 25126 "" +#line 25742 "" mend = commidi_1.imidi[commidi_1.numchan]; -#line 25127 "" +#line 25743 "" } -#line 25128 "" +#line 25744 "" i__6 = mend; -#line 25128 "" +#line 25744 "" for (i__ = commmac_1.msecstrt[commidi_1.numchan + isec * 25 - 25]; i__ <= i__6; ++i__) { -#line 25129 "" - s_wsfe(&io___1837); -#line 25129 "" +#line 25745 "" + s_wsfe(&io___1907); +#line 25745 "" *(unsigned char *)&ch__2[0] = (char) commidi_1.mmidi[ commidi_1.numchan + i__ * 25 - 25]; -#line 25129 "" +#line 25745 "" do_fio(&c__1, ch__2, (ftnlen)1); -#line 25129 "" +#line 25745 "" e_wsfe(); -#line 25130 "" +#line 25746 "" if (commidi_1.debugmidi) { -#line 25130 "" - s_wsfe(&io___1838); -#line 25130 "" +#line 25746 "" + s_wsfe(&io___1908); +#line 25746 "" do_fio(&c__1, (char *)&commidi_1.mmidi[commidi_1.numchan + i__ * 25 - 25], (ftnlen)sizeof(shortint)); -#line 25130 "" +#line 25746 "" e_wsfe(); -#line 25130 "" +#line 25746 "" } -#line 25131 "" +#line 25747 "" /* L17: */ -#line 25131 "" +#line 25747 "" } -#line 25132 "" +#line 25748 "" /* L16: */ -#line 25132 "" +#line 25748 "" } /* And close out the time sig / tempo track. */ -#line 25136 "" - s_wsfe(&io___1839); -#line 25136 "" +#line 25752 "" + s_wsfe(&io___1909); +#line 25752 "" do_fio(&c__1, "\000\377/\000", (ftnlen)4); -#line 25136 "" +#line 25752 "" e_wsfe(); -#line 25137 "" +#line 25753 "" if (commidi_1.debugmidi) { -#line 25137 "" - s_wsfe(&io___1840); -#line 25137 "" +#line 25753 "" + s_wsfe(&io___1910); +#line 25753 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 25137 "" +#line 25753 "" do_fio(&c__1, (char *)&c__255, (ftnlen)sizeof(integer)); -#line 25137 "" +#line 25753 "" do_fio(&c__1, (char *)&c__47, (ftnlen)sizeof(integer)); -#line 25137 "" +#line 25753 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 25137 "" +#line 25753 "" e_wsfe(); -#line 25137 "" +#line 25753 "" } /* Loop over track for each voice: The following sets up iv. */ -#line 25141 "" +#line 25757 "" all_1.iv = all_1.nv; -#line 25142 "" +#line 25758 "" if (commidi_1.twoline[all_1.nv - 1]) { -#line 25143 "" +#line 25759 "" kv = 2; -#line 25144 "" +#line 25760 "" } else { -#line 25145 "" +#line 25761 "" kv = 1; -#line 25146 "" +#line 25762 "" } -#line 25148 "" +#line 25764 "" i__2 = commidi_1.numchan - 1; -#line 25148 "" +#line 25764 "" for (icm = 0; icm <= i__2; ++icm) { /* Get the number of bytes in the data stream */ -#line 25152 "" +#line 25768 "" ndata = commidi_1.imidi[icm] + 1 - commmac_1.msecstrt[icm + commmac_1.nmidsec * 25 - 25]; -#line 25153 "" +#line 25769 "" i__6 = commmac_1.nmidsec - 1; -#line 25153 "" +#line 25769 "" for (isec = 1; isec <= i__6; ++isec) { -#line 25154 "" +#line 25770 "" ndata = ndata + 1 + commmac_1.msecend[icm + isec * 25 - 25] - commmac_1.msecstrt[icm + isec * 25 - 25]; -#line 25155 "" +#line 25771 "" /* L11: */ -#line 25155 "" +#line 25771 "" } /* Add 3 for instrum, 4 for bal, plus 4 (for closing) to byte count, */ -#line 25159 "" +#line 25775 "" ndata += 11; /* Add 4+lnam(iinsiv(iv)) if lnam>0 , */ -#line 25163 "" +#line 25779 "" if (comtop_1.lnam[commvel_1.iinsiv[all_1.iv - 1] - 1] > 0) { -#line 25163 "" +#line 25779 "" ndata = ndata + 4 + comtop_1.lnam[commvel_1.iinsiv[all_1.iv - 1] - 1]; -#line 25163 "" +#line 25779 "" } /* Separate total byte counts into 4 bytes */ -#line 25167 "" +#line 25783 "" for (ibyte = 1; ibyte <= 4; ++ibyte) { -#line 25168 "" +#line 25784 "" if (ndata > 0) { -#line 25169 "" +#line 25785 "" *(unsigned char *)&byteq[ibyte - 1] = (char) (ndata % 256); -#line 25170 "" +#line 25786 "" ndata = lbit_shift(ndata, (ftnlen)-8); -#line 25171 "" +#line 25787 "" } else { -#line 25172 "" +#line 25788 "" *(unsigned char *)&byteq[ibyte - 1] = '\0'; -#line 25173 "" +#line 25789 "" } -#line 25174 "" +#line 25790 "" /* L2: */ -#line 25174 "" +#line 25790 "" } /* Now write front stuff for this track */ -#line 25178 "" - s_wsfe(&io___1845); +#line 25794 "" + s_wsfe(&io___1915); /* Writing concatenation */ -#line 25178 "" +#line 25794 "" i__7[0] = 4, a__5[0] = "MTrk"; -#line 25178 "" +#line 25794 "" i__7[1] = 1, a__5[1] = byteq + 3; -#line 25178 "" +#line 25794 "" i__7[2] = 1, a__5[2] = byteq + 2; -#line 25178 "" +#line 25794 "" i__7[3] = 1, a__5[3] = byteq + 1; -#line 25178 "" +#line 25794 "" i__7[4] = 1, a__5[4] = byteq; -#line 25178 "" +#line 25794 "" i__7[5] = 1, a__5[5] = "\000"; -#line 25178 "" +#line 25794 "" *(unsigned char *)&ch__2[0] = icmm[icm] + 192; -#line 25178 "" +#line 25794 "" i__7[6] = 1, a__5[6] = ch__2; -#line 25178 "" +#line 25794 "" *(unsigned char *)&ch__4[0] = commidi_1.midinst[commvel_1.iinsiv[ all_1.iv - 1] - 1]; -#line 25178 "" +#line 25794 "" i__7[7] = 1, a__5[7] = ch__4; -#line 25178 "" +#line 25794 "" i__7[8] = 1, a__5[8] = "\000"; -#line 25178 "" +#line 25794 "" *(unsigned char *)&ch__5[0] = icmm[icm] + 176; -#line 25178 "" +#line 25794 "" i__7[9] = 1, a__5[9] = ch__5; -#line 25178 "" +#line 25794 "" i__7[10] = 1, a__5[10] = "\n"; -#line 25178 "" +#line 25794 "" *(unsigned char *)&ch__10[0] = commvel_1.midbc[icm]; -#line 25178 "" +#line 25794 "" i__7[11] = 1, a__5[11] = ch__10; -#line 25178 "" +#line 25794 "" s_cat(ch__9, a__5, i__7, &c__12, (ftnlen)15); -#line 25178 "" +#line 25794 "" do_fio(&c__1, ch__9, (ftnlen)15); -#line 25178 "" +#line 25794 "" e_wsfe(); -/* * //char(0)//char(12*16+icmm(icm))//char(midinst(iv)) */ -#line 25182 "" +#line 25797 "" + s_wsle(&io___1916); +#line 25797 "" + do_lio(&c__9, &c__1, "#25294 In writemidi, midbc:", (ftnlen)27); +#line 25797 "" + do_lio(&c__3, &c__1, (char *)&commvel_1.midbc[icm], (ftnlen)sizeof( + integer)); +#line 25797 "" + e_wsle(); +#line 25798 "" if (commidi_1.debugmidi) { -#line 25182 "" - s_wsfe(&io___1846); -#line 25182 "" +#line 25798 "" + s_wsfe(&io___1917); +#line 25798 "" do_fio(&c__1, "icm=", (ftnlen)4); -#line 25182 "" +#line 25798 "" do_fio(&c__1, (char *)&icm, (ftnlen)sizeof(integer)); -#line 25182 "" +#line 25798 "" do_fio(&c__1, " \"MTrk\"", (ftnlen)7); -#line 25182 "" +#line 25798 "" i__6 = *(unsigned char *)&byteq[3]; -#line 25182 "" +#line 25798 "" do_fio(&c__1, (char *)&i__6, (ftnlen)sizeof(integer)); -#line 25182 "" +#line 25798 "" i__8 = *(unsigned char *)&byteq[2]; -#line 25182 "" +#line 25798 "" do_fio(&c__1, (char *)&i__8, (ftnlen)sizeof(integer)); -#line 25182 "" +#line 25798 "" i__9 = *(unsigned char *)&byteq[1]; -#line 25182 "" +#line 25798 "" do_fio(&c__1, (char *)&i__9, (ftnlen)sizeof(integer)); -#line 25182 "" +#line 25798 "" i__10 = *(unsigned char *)&byteq[0]; -#line 25182 "" +#line 25798 "" do_fio(&c__1, (char *)&i__10, (ftnlen)sizeof(integer)); -#line 25182 "" +#line 25798 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 25182 "" +#line 25798 "" i__11 = icmm[icm] + 192; -#line 25182 "" +#line 25798 "" do_fio(&c__1, (char *)&i__11, (ftnlen)sizeof(integer)); -#line 25182 "" +#line 25798 "" do_fio(&c__1, (char *)&commidi_1.midinst[commvel_1.iinsiv[ all_1.iv - 1] - 1], (ftnlen)sizeof(integer)); -#line 25182 "" +#line 25798 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 25182 "" +#line 25798 "" i__12 = icmm[icm] + 176; -#line 25182 "" +#line 25798 "" do_fio(&c__1, (char *)&i__12, (ftnlen)sizeof(integer)); -#line 25182 "" +#line 25798 "" do_fio(&c__1, (char *)&c__10, (ftnlen)sizeof(integer)); -#line 25182 "" +#line 25798 "" do_fio(&c__1, (char *)&commvel_1.midbc[icm], (ftnlen)sizeof( integer)); -#line 25182 "" +#line 25798 "" e_wsfe(); -#line 25182 "" +#line 25798 "" } -/* * ichar(byteq(1)),0,12*16+icmm(icm),midinst(iv), */ -#line 25187 "" +#line 25802 "" if (comtop_1.lnam[commvel_1.iinsiv[all_1.iv - 1] - 1] > 0) { /* Add instrument name as sequence name */ -#line 25191 "" - s_wsfe(&io___1847); +#line 25806 "" + s_wsfe(&io___1918); /* Writing concatenation */ -#line 25191 "" +#line 25806 "" i__5[0] = 3, a__4[0] = "\000\377\003"; -#line 25191 "" +#line 25806 "" *(unsigned char *)&ch__2[0] = comtop_1.lnam[commvel_1.iinsiv[ all_1.iv - 1] - 1]; -#line 25191 "" +#line 25806 "" i__5[1] = 1, a__4[1] = ch__2; -#line 25191 "" +#line 25806 "" s_cat(ch__11, a__4, i__5, &c__2, (ftnlen)4); -#line 25191 "" +#line 25806 "" do_fio(&c__1, ch__11, (ftnlen)4); -#line 25191 "" +#line 25806 "" e_wsfe(); -#line 25193 "" +#line 25808 "" if (commidi_1.debugmidi) { -#line 25193 "" - s_wsfe(&io___1848); -#line 25193 "" +#line 25808 "" + s_wsfe(&io___1919); +#line 25808 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 25193 "" +#line 25808 "" do_fio(&c__1, (char *)&c__255, (ftnlen)sizeof(integer)); -#line 25193 "" +#line 25808 "" do_fio(&c__1, (char *)&c__3, (ftnlen)sizeof(integer)); -#line 25193 "" +#line 25808 "" do_fio(&c__1, (char *)&comtop_1.lnam[commvel_1.iinsiv[ all_1.iv - 1] - 1], (ftnlen)sizeof(integer)); -#line 25193 "" +#line 25808 "" e_wsfe(); -#line 25193 "" +#line 25808 "" } -#line 25194 "" - s_wsfe(&io___1849); -#line 25194 "" +#line 25809 "" + s_wsfe(&io___1920); +#line 25809 "" do_fio(&c__1, comtop_1.inameq + (commvel_1.iinsiv[all_1.iv - 1] - 1) * 79, comtop_1.lnam[commvel_1.iinsiv[all_1.iv - 1] - 1] ); -#line 25194 "" +#line 25809 "" e_wsfe(); -#line 25196 "" +#line 25811 "" if (commidi_1.debugmidi) { -#line 25196 "" - s_wsfe(&io___1850); +#line 25811 "" + s_wsfe(&io___1921); /* Writing concatenation */ -#line 25196 "" +#line 25811 "" i__4[0] = 1, a__3[0] = "\""; -#line 25196 "" +#line 25811 "" i__4[1] = comtop_1.lnam[commvel_1.iinsiv[all_1.iv - 1] - 1], a__3[1] = comtop_1.inameq + (commvel_1.iinsiv[ all_1.iv - 1] - 1) * 79; -#line 25196 "" +#line 25811 "" i__4[2] = 1, a__3[2] = "\""; -#line 25196 "" +#line 25811 "" s_cat(ch__12, a__3, i__4, &c__3, (ftnlen)81); -#line 25196 "" +#line 25811 "" do_fio(&c__1, ch__12, comtop_1.lnam[commvel_1.iinsiv[all_1.iv - 1] - 1] + 2); -#line 25196 "" +#line 25811 "" e_wsfe(); -#line 25196 "" +#line 25811 "" } -#line 25198 "" +#line 25813 "" } -#line 25199 "" - s_wsfi(&io___1852); -#line 25199 "" +#line 25814 "" + s_wsfi(&io___1923); +#line 25814 "" do_fio(&c__1, (char *)&icm, (ftnlen)sizeof(integer)); -#line 25199 "" +#line 25814 "" e_wsfi(); -#line 25200 "" - s_wsfi(&io___1854); -#line 25200 "" +#line 25815 "" + s_wsfi(&io___1925); +#line 25815 "" do_fio(&c__1, (char *)&commidi_1.midinst[commvel_1.iinsiv[all_1.iv - 1] - 1], (ftnlen)sizeof(integer)); -#line 25200 "" +#line 25815 "" e_wsfi(); /* Writing concatenation */ -#line 25201 "" +#line 25816 "" i__1[0] = 16, a__1[0] = "MIDI instrument "; -#line 25201 "" +#line 25816 "" i__1[1] = 2, a__1[1] = tempoq; -#line 25201 "" +#line 25816 "" i__1[2] = 4, a__1[2] = " is "; -#line 25201 "" +#line 25816 "" i__1[3] = 3, a__1[3] = instq; -#line 25201 "" +#line 25816 "" s_cat(ch__13, a__1, i__1, &c__4, (ftnlen)25); -#line 25201 "" +#line 25816 "" printl_(ch__13, (ftnlen)25); /* Notes: Loop over sections. */ -#line 25205 "" +#line 25820 "" i__6 = commmac_1.nmidsec; -#line 25205 "" +#line 25820 "" for (isec = 1; isec <= i__6; ++isec) { -#line 25206 "" +#line 25821 "" if (isec < commmac_1.nmidsec) { -#line 25207 "" +#line 25822 "" mend = commmac_1.msecend[icm + isec * 25 - 25]; -#line 25208 "" +#line 25823 "" } else { -#line 25209 "" +#line 25824 "" mend = commidi_1.imidi[icm]; -#line 25210 "" +#line 25825 "" } -#line 25211 "" +#line 25826 "" i__8 = mend; -#line 25211 "" +#line 25826 "" for (i__ = commmac_1.msecstrt[icm + isec * 25 - 25]; i__ <= i__8; ++i__) { -#line 25212 "" - s_wsfe(&io___1855); -#line 25212 "" +#line 25827 "" + s_wsfe(&io___1926); +#line 25827 "" *(unsigned char *)&ch__2[0] = (char) commidi_1.mmidi[icm + i__ * 25 - 25]; -#line 25212 "" +#line 25827 "" do_fio(&c__1, ch__2, (ftnlen)1); -#line 25212 "" +#line 25827 "" e_wsfe(); -#line 25213 "" +#line 25828 "" if (commidi_1.debugmidi) { -#line 25213 "" - s_wsfe(&io___1856); -#line 25213 "" +#line 25828 "" + s_wsfe(&io___1927); +#line 25828 "" do_fio(&c__1, (char *)&commidi_1.mmidi[icm + i__ * 25 - 25], (ftnlen)sizeof(shortint)); -#line 25213 "" +#line 25828 "" e_wsfe(); -#line 25213 "" +#line 25828 "" } -#line 25214 "" +#line 25829 "" /* L10: */ -#line 25214 "" +#line 25829 "" } -#line 25215 "" +#line 25830 "" /* L9: */ -#line 25215 "" +#line 25830 "" } /* Closing 4 bytes */ -#line 25219 "" - s_wsfe(&io___1857); +#line 25834 "" + s_wsfe(&io___1928); /* Writing concatenation */ -#line 25219 "" +#line 25834 "" chax_(ch__2, (ftnlen)1, &c__0); -#line 25219 "" +#line 25834 "" i__1[0] = 1, a__1[0] = ch__2; -#line 25219 "" +#line 25834 "" i__1[1] = 1, a__1[1] = "\377"; -#line 25219 "" +#line 25834 "" i__1[2] = 1, a__1[2] = "/"; -#line 25219 "" +#line 25834 "" i__1[3] = 1, a__1[3] = "\000"; -#line 25219 "" +#line 25834 "" s_cat(ch__11, a__1, i__1, &c__4, (ftnlen)4); -#line 25219 "" +#line 25834 "" do_fio(&c__1, ch__11, (ftnlen)4); -#line 25219 "" +#line 25834 "" e_wsfe(); -#line 25220 "" +#line 25835 "" if (commidi_1.debugmidi) { -#line 25220 "" - s_wsfe(&io___1858); -#line 25220 "" +#line 25835 "" + s_wsfe(&io___1929); +#line 25835 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 25220 "" +#line 25835 "" do_fio(&c__1, (char *)&c__255, (ftnlen)sizeof(integer)); -#line 25220 "" +#line 25835 "" do_fio(&c__1, (char *)&c__47, (ftnlen)sizeof(integer)); -#line 25220 "" +#line 25835 "" do_fio(&c__1, (char *)&c__0, (ftnlen)sizeof(integer)); -#line 25220 "" +#line 25835 "" e_wsfe(); -#line 25220 "" +#line 25835 "" } -#line 25221 "" +#line 25836 "" if (kv == 2) { -#line 25222 "" +#line 25837 "" kv = 1; -#line 25223 "" +#line 25838 "" } else if (all_1.iv == 1) { -#line 25224 "" +#line 25839 "" goto L5; -#line 25225 "" +#line 25840 "" } else { -#line 25226 "" +#line 25841 "" --all_1.iv; -#line 25227 "" +#line 25842 "" if (commidi_1.twoline[all_1.iv - 1]) { -#line 25227 "" +#line 25842 "" kv = 2; -#line 25227 "" +#line 25842 "" } -#line 25228 "" +#line 25843 "" } -#line 25229 "" +#line 25844 "" L5: -#line 25229 "" +#line 25844 "" ; -#line 25229 "" +#line 25844 "" } -#line 25230 "" - s_wsfe(&io___1859); -#line 25230 "" +#line 25845 "" + s_wsfe(&io___1930); +#line 25845 "" do_fio(&c__1, "Bytes used:", (ftnlen)11); -#line 25230 "" +#line 25845 "" i__2 = commidi_1.numchan; -#line 25230 "" +#line 25845 "" for (icm = 0; icm <= i__2; ++icm) { -#line 25230 "" +#line 25845 "" do_fio(&c__1, (char *)&commidi_1.imidi[icm], (ftnlen)sizeof(integer)); -#line 25230 "" +#line 25845 "" } -#line 25230 "" +#line 25845 "" e_wsfe(); -#line 25231 "" - s_wsfe(&io___1860); -#line 25231 "" +#line 25846 "" + s_wsfe(&io___1931); +#line 25846 "" do_fio(&c__1, "Bytes used:", (ftnlen)11); -#line 25231 "" +#line 25846 "" i__2 = commidi_1.numchan; -#line 25231 "" +#line 25846 "" for (icm = 0; icm <= i__2; ++icm) { -#line 25231 "" +#line 25846 "" do_fio(&c__1, (char *)&commidi_1.imidi[icm], (ftnlen)sizeof(integer)); -#line 25231 "" +#line 25846 "" } -#line 25231 "" +#line 25846 "" e_wsfe(); -#line 25233 "" +#line 25848 "" cl__1.cerr = 0; -#line 25233 "" +#line 25848 "" cl__1.cunit = 51; -#line 25233 "" +#line 25848 "" cl__1.csta = 0; -#line 25233 "" +#line 25848 "" f_clos(&cl__1); -#line 25234 "" +#line 25849 "" if (commidi_1.debugmidi) { -#line 25234 "" +#line 25849 "" cl__1.cerr = 0; -#line 25234 "" +#line 25849 "" cl__1.cunit = 52; -#line 25234 "" +#line 25849 "" cl__1.csta = 0; -#line 25234 "" +#line 25849 "" f_clos(&cl__1); -#line 25234 "" +#line 25849 "" } -#line 25235 "" +#line 25850 "" return 0; } /* writemidi_ */ @@ -63191,143 +65217,143 @@ L5: static char notexq[79]; /* Fortran I/O blocks */ - static cilist io___1864 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1935 = { 0, 11, 0, "(a)", 0 }; /* Assumes notexq is blank */ -#line 25246 "" +#line 25861 "" /* Parameter adjustments */ -#line 25246 "" +#line 25861 "" --itranskey; -#line 25246 "" +#line 25861 "" --iinsttrans; -#line 25246 "" +#line 25861 "" -#line 25246 "" +#line 25861 "" /* Function Body */ -#line 25246 "" +#line 25861 "" i__1 = *ninsttrans; -#line 25246 "" +#line 25861 "" for (i__ = 1; i__ <= i__1; ++i__) { /* Writing concatenation */ -#line 25247 "" +#line 25862 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 25247 "" +#line 25862 "" i__2[0] = 1, a__1[0] = ch__1; -#line 25247 "" +#line 25862 "" i__2[1] = 7, a__1[1] = "setsign"; -#line 25247 "" +#line 25862 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 25248 "" +#line 25863 "" lnote = 8; -#line 25249 "" +#line 25864 "" if (iinsttrans[i__] < 10) { /* Writing concatenation */ -#line 25250 "" +#line 25865 "" i__2[0] = lnote, a__1[0] = notexq; -#line 25250 "" +#line 25865 "" i__3 = iinsttrans[i__] + 48; -#line 25250 "" +#line 25865 "" chax_(ch__1, (ftnlen)1, &i__3); -#line 25250 "" +#line 25865 "" i__2[1] = 1, a__1[1] = ch__1; -#line 25250 "" +#line 25865 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 25251 "" +#line 25866 "" ++lnote; -#line 25252 "" +#line 25867 "" } else { -#line 25253 "" +#line 25868 "" i__3 = lnote; -#line 25253 "" +#line 25868 "" ici__1.icierr = 0; -#line 25253 "" +#line 25868 "" ici__1.icirnum = 1; -#line 25253 "" +#line 25868 "" ici__1.icirlen = lnote + 4 - i__3; -#line 25253 "" +#line 25868 "" ici__1.iciunit = notexq + i__3; -#line 25253 "" +#line 25868 "" ici__1.icifmt = "(a1,i2,a1)"; -#line 25253 "" +#line 25868 "" s_wsfi(&ici__1); -#line 25253 "" +#line 25868 "" do_fio(&c__1, "{", (ftnlen)1); -#line 25253 "" +#line 25868 "" do_fio(&c__1, (char *)&iinsttrans[i__], (ftnlen)sizeof(integer)); -#line 25253 "" +#line 25868 "" do_fio(&c__1, "}", (ftnlen)1); -#line 25253 "" +#line 25868 "" e_wsfi(); -#line 25255 "" +#line 25870 "" lnote += 4; -#line 25256 "" +#line 25871 "" } -#line 25257 "" +#line 25872 "" if (itranskey[i__] < 0) { -#line 25258 "" +#line 25873 "" i__3 = lnote; -#line 25258 "" +#line 25873 "" ici__1.icierr = 0; -#line 25258 "" +#line 25873 "" ici__1.icirnum = 1; -#line 25258 "" +#line 25873 "" ici__1.icirlen = lnote + 4 - i__3; -#line 25258 "" +#line 25873 "" ici__1.iciunit = notexq + i__3; -#line 25258 "" +#line 25873 "" ici__1.icifmt = "(a1,i2,a1)"; -#line 25258 "" +#line 25873 "" s_wsfi(&ici__1); -#line 25258 "" +#line 25873 "" do_fio(&c__1, "{", (ftnlen)1); -#line 25258 "" +#line 25873 "" do_fio(&c__1, (char *)&itranskey[i__], (ftnlen)sizeof(integer)); -#line 25258 "" +#line 25873 "" do_fio(&c__1, "}", (ftnlen)1); -#line 25258 "" +#line 25873 "" e_wsfi(); -#line 25260 "" +#line 25875 "" lnote += 4; -#line 25261 "" +#line 25876 "" } else { /* Writing concatenation */ -#line 25262 "" +#line 25877 "" i__2[0] = lnote, a__1[0] = notexq; -#line 25262 "" +#line 25877 "" i__3 = itranskey[i__] + 48; -#line 25262 "" +#line 25877 "" chax_(ch__1, (ftnlen)1, &i__3); -#line 25262 "" +#line 25877 "" i__2[1] = 1, a__1[1] = ch__1; -#line 25262 "" +#line 25877 "" s_cat(notexq, a__1, i__2, &c__2, (ftnlen)79); -#line 25263 "" +#line 25878 "" ++lnote; -#line 25264 "" +#line 25879 "" } -#line 25265 "" - s_wsfe(&io___1864); +#line 25880 "" + s_wsfe(&io___1935); /* Writing concatenation */ -#line 25265 "" +#line 25880 "" i__2[0] = lnote, a__1[0] = notexq; -#line 25265 "" +#line 25880 "" i__2[1] = 1, a__1[1] = "%"; -#line 25265 "" +#line 25880 "" s_cat(ch__2, a__1, i__2, &c__2, (ftnlen)80); -#line 25265 "" +#line 25880 "" do_fio(&c__1, ch__2, lnote + 1); -#line 25265 "" +#line 25880 "" e_wsfe(); -#line 25266 "" +#line 25881 "" /* L1: */ -#line 25266 "" +#line 25881 "" } -#line 25267 "" +#line 25882 "" *flag__ = FALSE_; -#line 25268 "" +#line 25883 "" return 0; } /* writesetsign_ */ @@ -63342,84 +65368,84 @@ L5: integer s_wsfi(icilist *), do_fio(integer *, char *, ftnlen), e_wsfi(void) ; -#line 25272 "" +#line 25887 "" if (*x < .95f) { -#line 25273 "" +#line 25888 "" i__1 = *lenline; -#line 25273 "" +#line 25888 "" ici__1.icierr = 0; -#line 25273 "" +#line 25888 "" ici__1.icirnum = 1; -#line 25273 "" +#line 25888 "" ici__1.icirlen = *lenline + 2 - i__1; -#line 25273 "" +#line 25888 "" ici__1.iciunit = notexq + i__1; -#line 25273 "" +#line 25888 "" ici__1.icifmt = "(f2.1)"; -#line 25273 "" +#line 25888 "" s_wsfi(&ici__1); -#line 25273 "" +#line 25888 "" do_fio(&c__1, (char *)&(*x), (ftnlen)sizeof(real)); -#line 25273 "" +#line 25888 "" e_wsfi(); -#line 25274 "" +#line 25889 "" *lenline += 2; -#line 25275 "" +#line 25890 "" } else if (*x < 9.95f) { -#line 25276 "" +#line 25891 "" i__1 = *lenline; -#line 25276 "" +#line 25891 "" ici__1.icierr = 0; -#line 25276 "" +#line 25891 "" ici__1.icirnum = 1; -#line 25276 "" +#line 25891 "" ici__1.icirlen = *lenline + 3 - i__1; -#line 25276 "" +#line 25891 "" ici__1.iciunit = notexq + i__1; -#line 25276 "" +#line 25891 "" ici__1.icifmt = "(f3.1)"; -#line 25276 "" +#line 25891 "" s_wsfi(&ici__1); -#line 25276 "" +#line 25891 "" do_fio(&c__1, (char *)&(*x), (ftnlen)sizeof(real)); -#line 25276 "" +#line 25891 "" e_wsfi(); -#line 25277 "" +#line 25892 "" *lenline += 3; -#line 25278 "" +#line 25893 "" } else { -#line 25279 "" +#line 25894 "" i__1 = *lenline; -#line 25279 "" +#line 25894 "" ici__1.icierr = 0; -#line 25279 "" +#line 25894 "" ici__1.icirnum = 1; -#line 25279 "" +#line 25894 "" ici__1.icirlen = *lenline + 4 - i__1; -#line 25279 "" +#line 25894 "" ici__1.iciunit = notexq + i__1; -#line 25279 "" +#line 25894 "" ici__1.icifmt = "(f4.1)"; -#line 25279 "" +#line 25894 "" s_wsfi(&ici__1); -#line 25279 "" +#line 25894 "" do_fio(&c__1, (char *)&(*x), (ftnlen)sizeof(real)); -#line 25279 "" +#line 25894 "" e_wsfi(); -#line 25280 "" +#line 25895 "" *lenline += 4; -#line 25281 "" +#line 25896 "" } -#line 25282 "" +#line 25897 "" return 0; } /* writflot_ */ /* Subroutine */ int wsclef_(integer *iv, integer *ninow, integer *nclef) { /* System generated locals */ - address a__1[3], a__2[2]; - integer i__1, i__2[3], i__3[2], i__4; - char ch__1[1], ch__2[1], ch__3[9], ch__4[22]; + address a__1[3], a__2[2], a__3[4]; + integer i__1, i__2[3], i__3[2], i__4, i__5[4]; + char ch__1[1], ch__2[1], ch__3[9], ch__4[42], ch__5[33]; /* Builtin functions */ integer s_wsle(cilist *), e_wsle(void), do_lio(integer *, integer *, char @@ -63432,17 +65458,18 @@ L5: static integer iv1, iv2, iiv; extern /* Character */ VOID chax_(char *, ftnlen, integer *); static integer ltem; - static char temq[20]; + static char temq[40]; extern /* Subroutine */ int stop1_(void); static integer iinst; extern integer numclef_(char *, ftnlen); /* Fortran I/O blocks */ - static cilist io___1867 = { 0, 6, 0, 0, 0 }; - static cilist io___1868 = { 0, 6, 0, 0, 0 }; - static icilist io___1872 = { 0, temq, 0, "(a9,i2,a1)", 20, 1 }; - static cilist io___1873 = { 0, 11, 0, "(a)", 0 }; - static cilist io___1875 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1938 = { 0, 6, 0, 0, 0 }; + static cilist io___1939 = { 0, 6, 0, 0, 0 }; + static icilist io___1943 = { 0, temq, 0, "(a9,i2,a1)", 40, 1 }; + static cilist io___1944 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1946 = { 0, 11, 0, "(a)", 0 }; + static cilist io___1947 = { 0, 11, 0, "(a)", 0 }; /* subroutine wsclef(iv,ninow,clefq,nclef) */ @@ -63453,179 +65480,209 @@ L5: /* In pmx271, had removed clefq, so with 2 or more staves in */ /* an instrument, had problems. So replace in 272 */ -#line 25301 "" +#line 25918 "" if (*nclef < 7) { -#line 25302 "" +#line 25919 "" i__1 = *nclef + 48; -#line 25302 "" +#line 25919 "" chax_(ch__1, (ftnlen)1, &i__1); -#line 25302 "" +#line 25919 "" *(unsigned char *)&comclefq_1.clefq[*iv - 1] = *(unsigned char *)& ch__1[0]; -#line 25303 "" +#line 25920 "" } else { -#line 25304 "" +#line 25921 "" *(unsigned char *)&comclefq_1.clefq[*iv - 1] = '9'; -#line 25305 "" +#line 25922 "" } -#line 25306 "" +#line 25923 "" if (! comlast_1.islast) { -#line 25306 "" +#line 25923 "" return 0; -#line 25306 "" +#line 25923 "" } -#line 25307 "" +#line 25924 "" iv1 = 1; -#line 25308 "" +#line 25925 "" i__1 = *ninow; -#line 25308 "" +#line 25925 "" for (iinst = 1; iinst <= i__1; ++iinst) { -#line 25309 "" +#line 25926 "" if (*iv < iv1 + comnvi_1.nspern[iinst - 1]) { -#line 25309 "" +#line 25926 "" goto L2; -#line 25309 "" +#line 25926 "" } -#line 25310 "" +#line 25927 "" iv1 += comnvi_1.nspern[iinst - 1]; -#line 25311 "" +#line 25928 "" /* L1: */ -#line 25311 "" +#line 25928 "" } -#line 25312 "" - s_wsle(&io___1867); -#line 25312 "" +#line 25929 "" + s_wsle(&io___1938); +#line 25929 "" e_wsle(); -#line 25313 "" - s_wsle(&io___1868); -#line 25313 "" +#line 25930 "" + s_wsle(&io___1939); +#line 25930 "" do_lio(&c__9, &c__1, "Should not be here in wsclef!", (ftnlen)29); -#line 25313 "" +#line 25930 "" e_wsle(); -#line 25314 "" +#line 25931 "" stop1_(); -#line 25315 "" +#line 25932 "" L2: /* Here, iinst is the instrument number with staff of clef change */ -#line 25319 "" +#line 25936 "" iv2 = iv1 + comnvi_1.nspern[iinst - 1] - 1; -#line 25320 "" +#line 25937 "" if (iinst < 10) { /* Writing concatenation */ -#line 25321 "" +#line 25938 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 25321 "" +#line 25938 "" i__2[0] = 1, a__1[0] = ch__1; -#line 25321 "" +#line 25938 "" i__2[1] = 7, a__1[1] = "setclef"; -#line 25321 "" +#line 25938 "" i__1 = iinst + 48; -#line 25321 "" +#line 25938 "" chax_(ch__2, (ftnlen)1, &i__1); -#line 25321 "" +#line 25938 "" i__2[2] = 1, a__1[2] = ch__2; -#line 25321 "" - s_cat(temq, a__1, i__2, &c__3, (ftnlen)20); -#line 25322 "" +#line 25938 "" + s_cat(temq, a__1, i__2, &c__3, (ftnlen)40); +#line 25939 "" ltem = 9; -#line 25323 "" +#line 25940 "" } else { -#line 25324 "" - s_wsfi(&io___1872); +#line 25941 "" + s_wsfi(&io___1943); /* Writing concatenation */ -#line 25324 "" +#line 25941 "" chax_(ch__1, (ftnlen)1, &c__92); -#line 25324 "" +#line 25941 "" i__3[0] = 1, a__2[0] = ch__1; -#line 25324 "" +#line 25941 "" i__3[1] = 8, a__2[1] = "setclef{"; -#line 25324 "" +#line 25941 "" s_cat(ch__3, a__2, i__3, &c__2, (ftnlen)9); -#line 25324 "" +#line 25941 "" do_fio(&c__1, ch__3, (ftnlen)9); -#line 25324 "" +#line 25941 "" do_fio(&c__1, (char *)&iinst, (ftnlen)sizeof(integer)); -#line 25324 "" +#line 25941 "" do_fio(&c__1, "}", (ftnlen)1); -#line 25324 "" +#line 25941 "" e_wsfi(); -#line 25325 "" +#line 25942 "" ltem = 12; -#line 25326 "" +#line 25943 "" } -#line 25327 "" +#line 25944 "" if (iv1 == iv2) { /* Only one staff (iv) in instrument with clef change */ -#line 25331 "" - s_wsfe(&io___1873); +#line 25948 "" + s_wsfe(&io___1944); /* Writing concatenation */ -#line 25331 "" +#line 25948 "" i__2[0] = ltem, a__1[0] = temq; -#line 25331 "" +#line 25948 "" i__2[1] = 1, a__1[1] = comclefq_1.clefq + (*iv - 1); -#line 25331 "" +#line 25948 "" i__2[2] = 1, a__1[2] = "%"; -#line 25331 "" - s_cat(ch__4, a__1, i__2, &c__3, (ftnlen)22); -#line 25331 "" +#line 25948 "" + s_cat(ch__4, a__1, i__2, &c__3, (ftnlen)42); +#line 25948 "" do_fio(&c__1, ch__4, ltem + 2); -#line 25331 "" +#line 25948 "" e_wsfe(); -#line 25332 "" +#line 25949 "" } else { /* Writing concatenation */ -#line 25333 "" +#line 25950 "" i__3[0] = ltem, a__2[0] = temq; -#line 25333 "" +#line 25950 "" i__3[1] = 1, a__2[1] = "{"; -#line 25333 "" - s_cat(temq, a__2, i__3, &c__2, (ftnlen)20); -#line 25334 "" +#line 25950 "" + s_cat(temq, a__2, i__3, &c__2, (ftnlen)40); +#line 25951 "" ++ltem; /* Loop over staves, but clefq has only changed for one of them */ -#line 25338 "" +#line 25955 "" i__1 = iv2; -#line 25338 "" +#line 25955 "" for (iiv = iv1; iiv <= i__1; ++iiv) { /* Writing concatenation */ -#line 25339 "" +#line 25956 "" i__3[0] = ltem, a__2[0] = temq; -#line 25339 "" +#line 25956 "" i__4 = numclef_(comclefq_1.clefq + (iiv - 1), (ftnlen)1) + 48; -#line 25339 "" +#line 25956 "" chax_(ch__1, (ftnlen)1, &i__4); -#line 25339 "" +#line 25956 "" i__3[1] = 1, a__2[1] = ch__1; -#line 25339 "" - s_cat(temq, a__2, i__3, &c__2, (ftnlen)20); -#line 25340 "" +#line 25956 "" + s_cat(temq, a__2, i__3, &c__2, (ftnlen)40); +#line 25957 "" ++ltem; -#line 25341 "" +#line 25958 "" /* L3: */ -#line 25341 "" +#line 25958 "" } -#line 25342 "" - s_wsfe(&io___1875); +#line 25959 "" + s_wsfe(&io___1946); /* Writing concatenation */ -#line 25342 "" +#line 25959 "" i__3[0] = ltem, a__2[0] = temq; -#line 25342 "" +#line 25959 "" i__3[1] = 2, a__2[1] = "}%"; -#line 25342 "" - s_cat(ch__4, a__2, i__3, &c__2, (ftnlen)22); -#line 25342 "" +#line 25959 "" + s_cat(ch__4, a__2, i__3, &c__2, (ftnlen)42); +#line 25959 "" do_fio(&c__1, ch__4, ltem + 2); -#line 25342 "" +#line 25959 "" e_wsfe(); -#line 25343 "" +#line 25960 "" } -#line 25344 "" +#line 25961 "" + if (comc8flag_1.c8flag[*iv - 1]) { + +/* If we change FROM octave treble clef to some other, need the following. */ + +#line 25965 "" + s_wsfe(&io___1947); +/* Writing concatenation */ +#line 25965 "" + i__5[0] = 20, a__3[0] = "\\settrebleclefsymbol"; +#line 25965 "" + i__1 = iinst + 48; +#line 25965 "" + chax_(ch__1, (ftnlen)1, &i__1); +#line 25965 "" + i__5[1] = 1, a__3[1] = ch__1; +#line 25965 "" + i__5[2] = 1, a__3[2] = "\\"; +#line 25965 "" + i__5[3] = 11, a__3[3] = "trebleclef%"; +#line 25965 "" + s_cat(ch__5, a__3, i__5, &c__4, (ftnlen)33); +#line 25965 "" + do_fio(&c__1, ch__5, (ftnlen)33); +#line 25965 "" + e_wsfe(); +#line 25967 "" + comc8flag_1.c8flag[*iv - 1] = FALSE_; +#line 25968 "" + } +#line 25969 "" return 0; } /* wsclef_ */ @@ -63644,89 +65701,89 @@ L2: extern /* Subroutine */ int g1etchar_(char *, integer *, char *, ftnlen, ftnlen); -#line 25349 "" +#line 25974 "" *lyrerr = 0; /* On entry, last char was " */ -#line 25353 "" +#line 25978 "" L18: -#line 25353 "" +#line 25978 "" g1etchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 25354 "" +#line 25979 "" if (*iccount == 121) { -#line 25355 "" +#line 25980 "" *lyrerr = 2; -#line 25356 "" +#line 25981 "" return 0; /* else if (charq.eq.'"') then */ -#line 25358 "" +#line 25983 "" } else /* if(complicated condition) */ { -#line 25358 "" +#line 25983 "" i__1 = *iccount - 2; -#line 25358 "" +#line 25983 "" if (*(unsigned char *)charq == '"' && ! (s_cmp(lineq + i__1, "\\", * iccount - 1 - i__1, (ftnlen)1) == 0)) { -#line 25360 "" +#line 25985 "" g1etchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); /* Check for raise/lower command */ -#line 25364 "" +#line 25989 "" if (*(unsigned char *)charq == '@') { /* @ positions lyrics vertically for current voice */ /* [a,b] above or below of the staff */ /* +/- i offset, \internotes */ -#line 25370 "" +#line 25995 "" g1etchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 25371 "" +#line 25996 "" if (i_indx("ab", charq, (ftnlen)2, (ftnlen)1) == 0) { -#line 25372 "" +#line 25997 "" *lyrerr = 3; -#line 25373 "" +#line 25998 "" return 0; -#line 25374 "" +#line 25999 "" } -#line 25375 "" +#line 26000 "" g1etchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 25376 "" +#line 26001 "" if (i_indx("+-", charq, (ftnlen)2, (ftnlen)1) == 0) { -#line 25377 "" +#line 26002 "" *lyrerr = 4; -#line 25378 "" +#line 26003 "" return 0; -#line 25379 "" +#line 26004 "" } -#line 25380 "" +#line 26005 "" g1etchar_(lineq, iccount, charq, (ftnlen)128, (ftnlen)1); -#line 25381 "" +#line 26006 "" if (i_indx("0123456789", charq, (ftnlen)10, (ftnlen)1) == 0) { -#line 25382 "" +#line 26007 "" *lyrerr = 5; -#line 25383 "" +#line 26008 "" return 0; -#line 25384 "" +#line 26009 "" } -#line 25385 "" +#line 26010 "" } else if (*(unsigned char *)charq != ' ') { /* 2nd " must be followed by ' ' */ -#line 25389 "" +#line 26014 "" *lyrerr = 1; -#line 25390 "" +#line 26015 "" return 0; -#line 25391 "" +#line 26016 "" } -#line 25392 "" +#line 26017 "" return 0; -#line 25393 "" +#line 26018 "" } -#line 25393 "" +#line 26018 "" } -#line 25394 "" +#line 26019 "" goto L18; } /* chkpmxlyr_ */ @@ -63736,6 +65793,7 @@ L18: /* System generated locals */ address a__1[4], a__2[6], a__3[7]; integer i__1, i__2[4], i__3[6], i__4, i__5[7]; + char ch__1[1]; /* Builtin functions */ integer i_indx(char *, char *, ftnlen, ftnlen), s_cmp(char *, char *, @@ -63747,6 +65805,7 @@ L18: /* Local variables */ static char sq[1]; static integer i2nd, iend; + extern /* Character */ VOID chax_(char *, ftnlen, integer *); extern /* Subroutine */ int stop1_(void); static integer itilde; static char lineqt[128]; @@ -63754,7 +65813,7 @@ L18: extern integer lenstr_(char *, integer *, ftnlen); /* Fortran I/O blocks */ - static cilist io___1882 = { 0, 6, 0, 0, 0 }; + static cilist io___1954 = { 0, 6, 0, 0, 0 }; @@ -63762,170 +65821,208 @@ L18: /* with \pmxlyr{...}\, but also look for ~ in lyrics and replace with '\ll ', */ /* (unless preceded with '\'), check length */ -#line 25404 "" - *(unsigned char *)sq = '\\'; -#line 25405 "" +#line 26029 "" + chax_(ch__1, (ftnlen)1, &c__92); +#line 26029 "" + *(unsigned char *)sq = *(unsigned char *)&ch__1[0]; +#line 26030 "" iend = lenstr_(lineq, &c__128, (ftnlen)128); /* i2nd = iccount+index(lineq(iccount+1:128),'"') */ /* Find position of closing '"'; must bypass any \" which is used for umlaut */ -#line 25410 "" +#line 26035 "" i__1 = *iccount; -#line 25410 "" +#line 26035 "" i2nd = *iccount + i_indx(lineq + i__1, "\"", 128 - i__1, (ftnlen)1); -#line 25411 "" +#line 26036 "" L2: -#line 25412 "" +#line 26037 "" i__1 = i2nd - 2; -#line 25412 "" +#line 26037 "" if (s_cmp(lineq + i__1, "\\", i2nd - 1 - i__1, (ftnlen)1) == 0) { -#line 25413 "" +#line 26038 "" i__1 = i2nd; -#line 25413 "" +#line 26038 "" i2nd += i_indx(lineq + i__1, "\"", 128 - i__1, (ftnlen)1); -#line 25414 "" +#line 26039 "" goto L2; -#line 25415 "" +#line 26040 "" } -#line 25416 "" +#line 26041 "" istart = *iccount; -#line 25417 "" +#line 26042 "" L1: -#line 25417 "" +#line 26042 "" i__1 = istart; -#line 25417 "" +#line 26042 "" itilde = istart + i_indx(lineq + i__1, "~", i2nd - 1 - i__1, (ftnlen)1); -#line 25418 "" +#line 26043 "" if (itilde > istart && itilde < i2nd) { /* Replace tilde if not preceded by \ */ -#line 25422 "" +#line 26047 "" if (iend >= 117) { -#line 25423 "" - s_wsle(&io___1882); -#line 25423 "" +#line 26048 "" + s_wsle(&io___1954); +#line 26048 "" do_lio(&c__9, &c__1, "Sorry, lyric string is too long, stopping", (ftnlen)41); -#line 25423 "" +#line 26048 "" e_wsle(); -#line 25424 "" +#line 26049 "" stop1_(); -#line 25425 "" +#line 26050 "" } else /* if(complicated condition) */ { -#line 25425 "" +#line 26050 "" i__1 = itilde - 2; -#line 25425 "" +#line 26050 "" if (s_cmp(lineq + i__1, sq, itilde - 1 - i__1, (ftnlen)1) == 0) { -#line 25426 "" +#line 26051 "" istart = itilde; -#line 25427 "" +#line 26052 "" goto L1; -#line 25428 "" +#line 26053 "" } -#line 25428 "" +#line 26053 "" } -#line 25429 "" +#line 26054 "" i__1 = itilde; /* Writing concatenation */ -#line 25429 "" +#line 26054 "" i__2[0] = itilde - 1, a__1[0] = lineq; -#line 25429 "" +#line 26054 "" i__2[1] = 1, a__1[1] = sq; -#line 25429 "" +#line 26054 "" i__2[2] = 3, a__1[2] = "lk "; -#line 25429 "" +#line 26054 "" i__2[3] = iend - i__1, a__1[3] = lineq + i__1; -#line 25429 "" +#line 26054 "" s_cat(lineqt, a__1, i__2, &c__4, (ftnlen)128); -#line 25431 "" +#line 26056 "" iend = lenstr_(lineqt, &c__128, (ftnlen)128); -#line 25432 "" +#line 26057 "" i2nd += 3; -#line 25433 "" +#line 26058 "" s_copy(lineq, lineqt, (ftnlen)128, (ftnlen)128); -#line 25434 "" +#line 26059 "" goto L1; -#line 25435 "" +#line 26060 "" } -#line 25436 "" +#line 26061 "" if (*iccount == 1) { -#line 25437 "" +#line 26062 "" i__1 = i2nd; /* Writing concatenation */ -#line 25437 "" +#line 26062 "" i__3[0] = 1, a__2[0] = sq; -#line 25437 "" +#line 26062 "" i__3[1] = 7, a__2[1] = "pmxlyr{"; -#line 25437 "" +#line 26062 "" i__3[2] = i2nd - 2, a__2[2] = lineq + 1; -#line 25437 "" +#line 26062 "" i__3[3] = 1, a__2[3] = "}"; -#line 25437 "" +#line 26062 "" i__3[4] = 1, a__2[4] = sq; -#line 25437 "" +#line 26062 "" i__3[5] = 128 - i__1, a__2[5] = lineq + i__1; -#line 25437 "" +#line 26062 "" s_cat(lineqt, a__2, i__3, &c__6, (ftnlen)128); -#line 25439 "" +#line 26064 "" } else { -#line 25440 "" +#line 26065 "" i__1 = *iccount; -#line 25440 "" +#line 26065 "" i__4 = i2nd; /* Writing concatenation */ -#line 25440 "" +#line 26065 "" i__5[0] = *iccount - 1, a__3[0] = lineq; -#line 25440 "" +#line 26065 "" i__5[1] = 1, a__3[1] = sq; -#line 25440 "" +#line 26065 "" i__5[2] = 7, a__3[2] = "pmxlyr{"; -#line 25440 "" +#line 26065 "" i__5[3] = i2nd - 1 - i__1, a__3[3] = lineq + i__1; -#line 25440 "" +#line 26065 "" i__5[4] = 1, a__3[4] = "}"; -#line 25440 "" +#line 26065 "" i__5[5] = 1, a__3[5] = sq; -#line 25440 "" +#line 26065 "" i__5[6] = 128 - i__4, a__3[6] = lineq + i__4; -#line 25440 "" +#line 26065 "" s_cat(lineqt, a__3, i__5, &c__7, (ftnlen)128); -#line 25443 "" +#line 26068 "" } -#line 25444 "" +#line 26069 "" i2nd += 8; -#line 25445 "" +#line 26070 "" s_copy(lineq, lineqt, (ftnlen)128, (ftnlen)128); -#line 25446 "" +#line 26071 "" i__1 = i2nd; -#line 25446 "" +#line 26071 "" if (s_cmp(lineq + i__1, "@", i2nd + 1 - i__1, (ftnlen)1) == 0) { -#line 25447 "" +#line 26072 "" i__1 = i2nd + 1; -#line 25447 "" +#line 26072 "" i__4 = i2nd + 4; /* Writing concatenation */ -#line 25447 "" +#line 26072 "" i__3[0] = i2nd, a__2[0] = lineq; -#line 25447 "" +#line 26072 "" i__3[1] = 3, a__2[1] = "at{"; -#line 25447 "" +#line 26072 "" i__3[2] = i2nd + 4 - i__1, a__2[2] = lineq + i__1; -#line 25447 "" +#line 26072 "" i__3[3] = 1, a__2[3] = "}"; -#line 25447 "" +#line 26072 "" i__3[4] = 1, a__2[4] = sq; -#line 25447 "" +#line 26072 "" i__3[5] = 128 - i__4, a__2[5] = lineq + i__4; -#line 25447 "" +#line 26072 "" s_cat(lineqt, a__2, i__3, &c__6, (ftnlen)128); -#line 25449 "" +#line 26074 "" s_copy(lineq, lineqt, (ftnlen)128, (ftnlen)128); -#line 25450 "" +#line 26075 "" } -#line 25451 "" +#line 26076 "" return 0; } /* dopmxlyr_ */ +/* Subroutine */ int inst2chan_(integer *midc, integer *midi, integer * + midchan, integer *nv, shortint *iinsiv, logical *twoline) +{ + static integer iv; + +/* propagate per-instrument quantities to per-channel ones */ +#line 26084 "" + /* Parameter adjustments */ +#line 26084 "" + --twoline; +#line 26084 "" + --iinsiv; +#line 26084 "" + midchan -= 25; +#line 26084 "" + --midi; +#line 26084 "" + +#line 26084 "" + /* Function Body */ +#line 26084 "" + for (iv = *nv; iv >= 1; --iv) { +#line 26085 "" + if (twoline[iv]) { +#line 26086 "" + midc[midchan[iv + 48]] = midi[iinsiv[iv]]; +#line 26087 "" + } +#line 26088 "" + midc[midchan[iv + 24]] = midi[iinsiv[iv]]; +#line 26089 "" + } +#line 26090 "" + return 0; +} /* inst2chan_ */ + /* Main program alias */ int pmxab_ () { MAIN__ (); return 0; } |