title basically, i have a script to convert layers to greyscale, but i display state would be nice. 
Hi - you might need to provide more information here. Doesn’t the Arctic display mode do this?
-wim
arctic is kind of fuzzy, looking for a state along these lines that converts the RGB values to a greyscale value.
i think i can macro out this script Dale made, have it save a layer state, run the script, then recall and delete the original colors layer state? seems like a display state could do it and others might like the look too. my use is to make check that parts are well defined when paper printing.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ConvertLayersToGrayscale.rvb -- November 2015
' If this code works, it was written by Dale Fugier.
' If not, I don't know who wrote it.
' Works with Rhino 5.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Converts the colors of layers to grayscale
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub ConvertLayersToGrayscale()
Dim arrLayers, strLayer, lngColor, nAlgorithm
Dim nGray, nRed, nGreen, nBlue
Dim arrAlgorithms, strAlgorithm
arrAlgorithms = Array("Average", "BT601", "BT709", "Desaturate", "Luminance", "NTSC")
strAlgorithm = Rhino.ListBox(arrAlgorithms, "Select a grayscale algorithm", "Layer Color")
If IsNull(strAlgorithm) Then Exit Sub
Call Rhino.EnableRedraw(False)
arrLayers = Rhino.LayerNames
For Each strLayer In arrLayers
lngColor = Rhino.LayerColor(strLayer)
nRed = Rhino.ColorRedValue(lngColor)
nGreen = Rhino.ColorGreenValue(lngColor)
nBlue = Rhino.ColorBlueValue(lngColor)
If strAlgorithm = "Average" Then
nGray = Average(nRed, nGreen, nBlue)
ElseIf strAlgorithm = "BT601" Then
nGray = BT601(nRed, nGreen, nBlue)
ElseIf strAlgorithm = "BT709" Then
nGray = BT709(nRed, nGreen, nBlue)
ElseIf strAlgorithm = "Desaturate" Then
nGray = Desaturate(nRed, nGreen, nBlue)
ElseIf strAlgorithm = "Luminance" Then
nGray = Luminance(nRed, nGreen, nBlue)
Else
nGray = NTSC(nRed, nGreen, nBlue)
End If
Call Rhino.LayerColor(strlayer, RGB(nGray, nGray, nGray))
Next
Call Rhino.EnableRedraw(True)
End Sub
Function Average(nRed, nGreen, nBlue)
Dim nGray
nGray = (nRed + nGreen + nBlue) / 3
Average = CInt(nGray)
End Function
Function BT601(nRed, nGreen, nBlue)
Dim nGray
nGray = (nRed * 0.299) + (nGreen * 0.587) + (nBlue * 0.114)
BT601 = CInt(nGray)
End Function
Function BT709(nRed, nGreen, nBlue)
Dim nGray
nGray = (nRed * 0.2126) + (nGreen * 0.7152) + (nBlue * 0.0722)
BT709 = CInt(nGray)
End Function
Function Desaturate(nRed, nGreen, nBlue)
Dim nGray
nGray = (Rhino.Max(Array(nRed, nGreen, nBlue)) + Rhino.Min(Array(nRed, nGreen, nBlue))) / 2
Desaturate = CInt(nGray)
End Function
Function Luminance(nRed, nGreen, nBlue)
Dim nGray
nGray = (nRed * 0.21) + (nGreen * 0.72) + (nBlue * 0.07)
Luminance = CInt(nGray)
End Function
Function NTSC(nRed, nGreen, nBlue)
Dim nGray
nGray = (nRed * 0.3) + (nGreen * 0.59) + (nBlue * 0.11)
NTSC = CInt(nGray)
End Function
' ConvertLayersToGrayscale()FWIW, I pythonized Dale’s script into two - one “grayscalizing” object colors directly, and the other layer colors.
ConvertObjColorsToGrayscale.py (1.9 KB)
ConvertLayerColorsToGrayscale.py (1.7 KB)
Unfortunately neither currently supports alpha (transparency) as the scripted methods seem to be lacking to get existing object/layer colors’ transparency. Will add that when it is possible.
1 Like
this is really nice mitch. you made my morning! chers
i think you might have a file duplicated but with different name?
The main routine has the same name which is confusing but the top one should still do by object and the bottom one by layer. I changed the bottom one (layer) anyway, you can re-download it.