// 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
]






(1270)