cdr docgraphics
    Alias IP4050Copies (foo count) InterpressToCompressedIP ///Temp/IP/foo4050.interpress _ ///Temp/IP/foo.interpress;SendIP -h Zipper 
    -c count ///Temp/IP/foo4050.interpress

    <<Done - INTRODUCTION / BEACH *4 pages*>>
        <<tiogatointerpress Introduction.tioga 1 skipPages>>
        <<_ Slides6UpImpl.MakeIP[LIST["Introduction.interpress"], "///temp/ip/Introduction.interpress", "INTRODUCTION / BEACH"]>>
        <<IP4050Copies Introduction 1
>>
    <<Done - NOTES ON MARKING / BIGELOW *5 pages* >>
        <<(cab.jam).run>>
        <<(talkTitle) (NOTES ON MARKING / BIGELOW) .def>>
        <<(///temp/ip/cab.interpress) 6 cabarray (sixPerPage) RawPrintInNs>>
        <<IP4050Copies cab 1
>>
    <<Done - IMAGING SYSTEMS ARCHITECTURE / STONE *4 pages*>>
        <<(fixmcs) {{ 0.7405 .scalet 0 0.75 inch .translatet -6 -6 12 inch 12 .add 8 inch 12 .add .cliprectangle>>
         .cvx .dosave} .cvx .dosave} .cvx .def

    remember to turn off frames
     
        <<(imextrajam.interpress) 1 mcsimtextarray (fixmcs) RawPrintInNs>>

        <<tiogatointerpress imtext.interpress _ ImagingModelFormattedSlides.tioga 1 skipPages>>
        <<>>
        <<ipextract imtext1-15.interpress _ imtext.interpress PAGES [1..15]>>
        <<ipextract imtext16-21.interpress _ imtext.interpress PAGES [16..21] >>
        <<>>
        <<_ Slides6UpImpl.MakeIP[LIST["imtext1-15.interpress","imextrajam.interpress","imtext16-21.interpress"], 
        "///temp/ip/imtext.interpress", "IMAGING SYSTEMS ARCHITECTURE / STONE"]
>>
        <<IP4050Copies imtext 2>>
        <<SendIP -h Zipper -c 2 ///Temp/IP/imtext4050.interpress
>>
    <<Done - IMAGING SYSTEMS ARCHITECTURE EXAMPLES / STONE *4 pages*>>
        <<(imagingmodel.jam).run>>
            <<I had to make temporary versions of mcsIMSlide10 and mcsIMSlide15 to get this to work and I edited sixPerPage in 
            docgraphicsslides.jam to add frames>>
            << >>
        <<(talkTitle) (IMAGING SYSTEMS ARCHITECTURE EXAMPLES / STONE) .def>>
        <<(///temp/ip/imexjam.interpress) 6 mcsimexarray (sixPerPage) RawPrintInNs>>
        <<IP4050Copies imexjam 1>>
        <<SendIP -h Zipper -c 2 ///Temp/IP/imexjam4050.interpress
>>
    <<Done - Split - PAGE DESCRIPTION LANGUAGES / BEACH *9 pages*>>
        <<tiogatointerpress PageDescLanguages.tioga 1 skipPages>>
        <<_ Slides6UpImpl.MakeIP[LIST["PageDescLanguages.interpress"], "///temp/ip/PageDescLanguages.interpress", "PAGE DESCRIPTION 
        LANGUAGES / BEACH"]>>
        <<IP4050Copies PageDescLanguages 2>>
        <<SendIP -h Zipper -c 2 ///Temp/IP/PageDescLanguages4050.interpress>>
        <<>>
        <<To break apart>>
        <<cdr temp/ip>>
        <<ipextract PageDescLanguagesFour.interpress _ PageDescLanguages.interpress PAGES [1..4]>>
        <<ipextract PageDescLanguagesRest.interpress _ PageDescLanguages.interpress PAGES [5..99]>>
        <<cdr docgraphics>>
        <<IP4050Copies PageDescLanguagesFour 2>>
        <<IP4050Copies PageDescLanguagesRest 2
>>
    <<Done - COLOR IMAGING ISSUES / STONE *4 pages*>>
        <<tiogatointerpress ColorImagingFormattedSlides.ip _ ColorImagingFormattedSlides.tioga 1 skipPages>>
        <<_ Slides6UpImpl.MakeIP[LIST["ColorImagingFormattedSlides.ip"], "///temp/ip/ColorImagingFormattedSlides.interpress", "COLOR 
        IMAGING ISSUES / STONE"]>>
        <<IP4050Copies ColorImagingFormattedSlides 2
        SendIP -h Zipper -c 2 ///Temp/IP/ColorImagingFormattedSlides4050.interpress
>>
    <<No notes - DIGITAL TYPOGRAPHY / BIGELOW>>
        <<>>
    <<Done - ILLUSTRATED DOCUMENT INTERCHANGE / BEACH *4 pages*>>
        <<tiogatointerpress Interchange.tioga 1 skipPages>>
        <<_ Slides6UpImpl.MakeIP[LIST["Interchange.interpress"], "///temp/ip/Interchange.interpress", "ILLUSTRATED DOCUMENT INTERCHANGE / 
        BEACH"]>>
        <<IP4050Copies Interchange 2>>
        <<SendIP -h Zipper -c 2 ///Temp/IP/Interchange4050.interpress>>
        <<>>
    <<Done - ELECTRONIC ILLUSTRATION / STONE *5 pages*>>
        <<tiogatointerpress ElectronicIllustrationFormattedSlides.ip _ ElectronicIllustrationFormattedSlides.tioga 1 skipPages>>
        <<_ Slides6UpImpl.MakeIP[LIST["ElectronicIllustrationFormattedSlides.ip"], 
        "///temp/ip/ElectronicIllustrationFormattedSlides.interpress", "ELECTRONIC ILLUSTRATION / STONE"]>>
        <<IP4050Copies ElectronicIllustrationFormattedSlides 2>>
        <<SendIP -h Zipper -c 2 ///Temp/IP/ElectronicIllustrationFormattedSlides4050.interpress>>
        <<>>
    <<Done - GRAPHICAL STYLE / BEACH *4 pages*>>
        <<tiogatointerpress GraphicalStyle.tioga 1 skipPages>>
        <<_ Slides6UpImpl.MakeIP[LIST["GraphicalStyle.interpress"], "///temp/ip/GraphicalStyle.interpress", "GRAPHICAL STYLE / BEACH"]>>
        <<IP4050Copies GraphicalStyle 2>>
        <<SendIP -h Zipper -c 2 ///Temp/IP/GraphicalStyle4050.interpress
>>
    <<Done - AUTOMATED GRAPHICAL DESIGN AIDS / MACKINLAY *4 pages*>>
        <<(prestools2.jam).run>>
        <<(talkTitle) (AUTOMATED GRAPHICAL DESIGN AIDS / MACKINLAY) .def>>
        <<(///temp/ip/PresTools.interpress) 6 jdmarray (sixPerPage) RawPrintInNs>>
        <<IP4050Copies PresTools 2>>
        <<SendIP -h Zipper -c 2 ///Temp/IP/PresTools4050.interpress>>
    <<>>
    <<>>
    <<>>
    <<>>