-- StyleToolToJaM2.mesa
-- Written by Linda Gass on August 24, 1982 5:38 pm
-- Last Edit by Linda Gass on August 24, 1982 5:38 pm

DIRECTORY
    NodeStyle USING [GetAreaHue, GetAreaSaturation, GetAreaBrightness, GetLineWeight,
        GetOutlineHue, GetOutlineSaturation, GetOutlineBrightness, GetTextHue,
       GetTextSaturation, GetTextBrightness, GetTextRotation],
   StyleToolConvert USING [GetPathType];
 
 AppendArtworkInfoRope: PROCEDURE [handle: StyleToolHandle, default: NodeStyle.Ref, displayRope: Rope.ROPE] RETURNS [Rope.ROPE] = 
BEGIN
    selectionOnRope, nodeInfoRope, defaultRope: Rope.ROPE;
    selectionReal, defaultReal, nodeInfoReal: REAL;
    
    selectionOnRope _ ChoiceButtons.GetSelectedButton[handle.display.pathTypeChoice];
    defaultRope _ StyleToolConvert.GetPathType[default.pathType];
    nodeInfoRope _ StyleToolConvert.GetPathType[handle.nodeInfo.pathType];
    IF RopeDifferences[selectionOnRope, defaultRope, nodeInfoRope] THEN
        displayRope _ Rope.Cat[displayRope, selectionOnRope, " pathType\n"];

    selectionReal_StyleToolConvert.GetNumberFromViewer[
        handle.display.areaHueViewer ! StyleToolConvert.BadNumber => CONTINUE];
    defaultReal _ NodeStyle.GetAreaHue[default];
    nodeInfoReal _ NodeStyle.GetAreaHue[handle.nodeInfo];
    IF RealDifferences[selectionReal, defaultReal, nodeInfoReal] THEN        
        displayRope _ Rope.Cat[displayRope,ViewerTools.GetContents[handle.display.areaHueViewer],
            " areaHue\n"];

    selectionReal_StyleToolConvert.GetNumberFromViewer[
        handle.display.areaSaturationViewer ! StyleToolConvert.BadNumber => CONTINUE];
    defaultReal _ NodeStyle.GetAreaSaturation[default];
    nodeInfoReal _ NodeStyle.GetAreaSaturation[handle.nodeInfo];
    IF RealDifferences[selectionReal, defaultReal, nodeInfoReal] THEN
        displayRope _ Rope.Cat[displayRope,
            ViewerTools.GetContents[handle.display.areaSaturationViewer]," areaSaturation\n"];

    selectionReal_StyleToolConvert.GetNumberFromViewer[
        handle.display.areaBrightnessViewer ! StyleToolConvert.BadNumber => CONTINUE];
    defaultReal _ NodeStyle.GetAreaBrightness[default];
    nodeInfoReal _ NodeStyle.GetAreaBrightness[handle.nodeInfo];
    IF RealDifferences[selectionReal, defaultReal, nodeInfoReal] THEN
        displayRope _ Rope.Cat[displayRope,
            ViewerTools.GetContents[handle.display.areaBrightnessViewer]," areaBrightness\n"];

    selectionReal_StyleToolConvert.GetNumberFromViewer[
        handle.display.outlineHueViewer ! StyleToolConvert.BadNumber => CONTINUE];
    defaultReal _ NodeStyle.GetOutlineHue[default];
    nodeInfoReal _ NodeStyle.GetOutlineHue[handle.nodeInfo];
    IF RealDifferences[selectionReal, defaultReal, nodeInfoReal] THEN
        displayRope _ Rope.Cat[displayRope,
            ViewerTools.GetContents[handle.display.outlineHueViewer]," outlineHue\n"];

    selectionReal_StyleToolConvert.GetNumberFromViewer[
        handle.display.outlineSaturationViewer ! StyleToolConvert.BadNumber => CONTINUE];
    defaultReal _ NodeStyle.GetOutlineSaturation[default];
    nodeInfoReal _ NodeStyle.GetOutlineSaturation[handle.nodeInfo];
    IF RealDifferences[selectionReal, defaultReal, nodeInfoReal] THEN
        displayRope _ Rope.Cat[displayRope,
            ViewerTools.GetContents[handle.display.outlineSaturationViewer]," outlineSaturation\n"];

    selectionReal_StyleToolConvert.GetNumberFromViewer[
        handle.display.outlineBrightnessViewer ! StyleToolConvert.BadNumber => CONTINUE];
    defaultReal _ NodeStyle.GetOutlineBrightness[default];
    nodeInfoReal _ NodeStyle.GetOutlineBrightness[handle.nodeInfo];
    IF RealDifferences[selectionReal, defaultReal, nodeInfoReal] THEN
        displayRope _ Rope.Cat[displayRope,
            ViewerTools.GetContents[handle.display.outlineBrightnessViewer]," outlineBrightness\n"];

    selectionReal_StyleToolConvert.GetNumberFromViewer[
        handle.display.textHueViewer ! StyleToolConvert.BadNumber => CONTINUE];
    defaultReal _ NodeStyle.GetTextHue[default];
    nodeInfoReal _ NodeStyle.GetTextHue[handle.nodeInfo];
    IF RealDifferences[selectionReal, defaultReal, nodeInfoReal] THEN
        displayRope _ Rope.Cat[displayRope, ViewerTools.GetContents[handle.display.textHueViewer],
            "  textHue\n"];

    selectionReal_StyleToolConvert.GetNumberFromViewer[
        handle.display.textSaturationViewer ! StyleToolConvert.BadNumber => CONTINUE];
    defaultReal _ NodeStyle.GetTextSaturation[default];
    nodeInfoReal _ NodeStyle.GetTextSaturation[handle.nodeInfo];
    IF RealDifferences[selectionReal, defaultReal, nodeInfoReal] THEN
        displayRope _ Rope.Cat[displayRope,
            ViewerTools.GetContents[handle.display.textSaturationViewer]," textSaturation\n"];

    selectionReal_StyleToolConvert.GetNumberFromViewer[
        handle.display.textBrightnessViewer ! StyleToolConvert.BadNumber => CONTINUE];
    defaultReal _ NodeStyle.GetTextBrightness[default];
    nodeInfoReal _ NodeStyle.GetTextBrightness[handle.nodeInfo];
    IF RealDifferences[selectionReal, defaultReal, nodeInfoReal] THEN
        displayRope _ Rope.Cat[displayRope,
            ViewerTools.GetContents[handle.display.textBrightnessViewer]," textBrightness\n"];

    selectionReal_StyleToolConvert.GetNumberFromViewer[
        handle.display.textRotationViewer ! StyleToolConvert.BadNumber => CONTINUE];
    defaultReal _ NodeStyle.GetTextRotation[default];
    nodeInfoReal _ NodeStyle.GetTextRotation[handle.nodeInfo];
    IF RealDifferences[selectionReal, defaultReal, nodeInfoReal] THEN
        displayRope _ Rope.Cat[displayRope,
            ViewerTools.GetContents[handle.display.textRotationViewer]," textRotation\n"];

    selectionReal_StyleToolConvert.GetNumberFromViewer[
        handle.display.lineWeightViewer ! StyleToolConvert.BadNumber => CONTINUE];
    defaultReal _ NodeStyle.GetLineWeight[default];
    nodeInfoReal _ NodeStyle.GetLineWeight[handle.nodeInfo];
    IF RealDifferences[selectionReal, defaultReal, nodeInfoReal] THEN
        displayRope _ Rope.Cat[displayRope,
            ViewerTools.GetContents[handle.display.lineWeightViewer]," lineWeight\n"];
            
    RETURN[displayRope];
    END;