// pressTranslate1.sr// pressTranslate.sr getting too big
// Bcpl pressTranslate1.sr

// last modified
// RML November 21, 1977 3:17 PM created
// RML April 3, 1978 7:36 AM to one page color Press file
// PCL December 18, 1979 10:15 AM make clolor compatible with Sil

get "PCOLOR.DF"

external[// incoming static
mpcuncatt
]

external[// outgoing procedure
setMpCunCatt
]

let setMpCunCatt(colorTbl) = valof
[// colorTbl is an array name; the array to be filled
// Still more or less temporary - want to do this at install time
let setEntry(colorTbl, color, hue, value, chroma) be
[
let tbl = lv colorTbl!(color lshift 1)
tbl>>vColor.color=color
tbl>>vColor.hue=hue
tbl>>vColor.value=value
tbl>>vColor.chroma=chroma
]

// Maleson values: hue, value, chroma
// Press: hue, brightness, saturation

// setEntry(colorTbl, cBlackx, 0, 0, 0)
// setEntry(colorTbl, cCyanx, 120, 255, 255)
// setEntry(colorTbl, cGreenx, 80, 255, 255)
// setEntry(colorTbl, cMagentax, 200, 255, 255)
// setEntry(colorTbl, cRedx, 0, 255, 255)
// setEntry(colorTbl, cVioletx, 160, 255, 255)
// setEntry(colorTbl, cYellowx, 40, 255, 255)

// setEntry(colorTbl, cBlackx+cYellowx+1, 0, 255, 0) // White
// setEntry(colorTbl, cCyanx+cYellowx+1, 120, 255, 128)
// setEntry(colorTbl, cGreenx+cYellowx+1, 80, 255, 128)
// setEntry(colorTbl, cMagentax+cYellowx+1, 200, 255, 128)
// setEntry(colorTbl, cRedx+cYellowx+1, 0, 255, 128)
// setEntry(colorTbl, cVioletx+cYellowx+1, 160, 255, 128)
// setEntry(colorTbl, cYellowx+cYellowx+1, 40, 255, 255)


setEntry(colorTbl, cAquax, 140, 255, 255)
setEntry(colorTbl, cBlackx, 0, 0, 0)
setEntry(colorTbl, cCyanx, 120, 255, 255)
setEntry(colorTbl, cDarkBrownx, 5, 90, 255)
setEntry(colorTbl, cGreenx, 80, 255, 255)
setEntry(colorTbl, cLimex, 60, 255, 255)
setEntry(colorTbl, cMagentax, 200, 255, 255)
setEntry(colorTbl, cOrangex, 20, 255, 255)
setEntry(colorTbl, cPinkx, 220, 255, 128)
setEntry(colorTbl, cRedx, 0, 255, 255)
setEntry(colorTbl, cSmokex, 0, 192, 0)
setEntry(colorTbl, cTurquoisex, 100, 255, 255)
setEntry(colorTbl, cUltraVioletx, 180, 255, 255)
setEntry(colorTbl, cVioletx, 160, 255, 255)
setEntry(colorTbl, cYellowx, 40, 255, 255)
setEntry(colorTbl, cWhitex, 0, 255, 0)


// now this is the index table used by PressDirs
setEntry(colorTbl, cAquax+cWhitex+1, 140, 255, 128)
setEntry(colorTbl, cBlackx+cWhitex+1, 0, 255, 0)
setEntry(colorTbl, cCyanx+cWhitex+1, 120, 255, 128)
setEntry(colorTbl, cDarkBrownx+cWhitex+1, 5, 90, 128)
setEntry(colorTbl, cGreenx+cWhitex+1, 80, 255, 128)
setEntry(colorTbl, cLimex+cWhitex+1, 60, 255, 128)
setEntry(colorTbl, cMagentax+cWhitex+1, 200, 255, 128)
setEntry(colorTbl, cOrangex+cWhitex+1, 20, 255, 128)
setEntry(colorTbl, cPinkx+cWhitex+1, 220, 255, 128)
setEntry(colorTbl, cRedx+cWhitex+1, 0, 255, 128)
setEntry(colorTbl, cSmokex+cWhitex+1, 0, 192, 0)
setEntry(colorTbl, cTurquoisex+cWhitex+1, 100, 255, 128)
setEntry(colorTbl, cUltraVioletx+cWhitex+1, 180, 255, 128)
setEntry(colorTbl, cVioletx+cWhitex+1, 160, 255, 128)
setEntry(colorTbl, cYellowx+cWhitex+1, 40, 255, 255)
setEntry(colorTbl, cWhitex+cWhitex+1, 0, 255, 0)
//
//setEntry(colorTbl, cBlackx+cYellowx+1, 0, 255, 0) // White
//setEntry(colorTbl, cCyanx+cYellowx+1, 120, 255, 128)
//setEntry(colorTbl, cGreenx+cYellowx+1, 80, 255, 128)
//setEntry(colorTbl, cMagentax+cYellowx+1, 200, 255, 128)
//setEntry(colorTbl, cRedx+cYellowx+1, 0, 255, 128)
//setEntry(colorTbl, cVioletx+cYellowx+1, 160, 255, 128)
//setEntry(colorTbl, cYellowx+cYellowx+1, 40, 255, 255)

resultis colorTbl
]