RhinoScript | Rainbow color RGB table

라이노 스크립트로 컬러 그라데이션을 나타내려고 할때 빨강에서 파랑으로 변하는 색을 제대로 표현하지 못해 애먹은 기억이 있다. Red에서 Blue로 변화되는 색상을 어레이로 출력해주는Function을 만들어 보았다.


첫번째 Fucntion은 Red Yellow Green Cyan Blue 사이를각 256단계의 색으로 만들었다. 이 경우 실제 적용시켰을 때 녹색 영역이 너무 넓어 빨강과 파란색이 조금 많이 안보이는 듯해서 Green-Cyan  , Cyan-Green을 128 단계로 수정한 것이 두번째 Function이다.  그래도 여전이 빨강과 파랑이 어둡진 않아서 빨강의 최대지점과 파란색의 최대지점을 잘 확인이 안되서 각 100 단계씩 추가한 것이 세번째 Function이다.


참고로 Function을 적용하여 메쉬 버텍스의 높이에 따라 색상을 표현한 간단한 사용 예를 함께 작성해보았다.

--------------------------------------------------------------------------------------------------

Function ColorMapRainbow1()
  Dim lngCol(1023),i
  For i=0 To 1023
      If i < 256 Then
          '(255,0,0) to (255,255,0).
          lngCol(1023-i) = RGB(255, i, 0)
      ElseIf i < 512 Then
          '(255,255,0) to (0,255,0).
          lngCol(1023-i) = RGB(255 - (i-256), 255, 0)
      ElseIf i< 768 Then
          '(0,255,0) to (0,255,255).
          lngCol(1023-i) = RGB(0, 255, i-512)
      Else
          '(0,255,255) to (0,0,255).
          lngCol(1023-i) = RGB(0, 255 - (i-768), 255)
      End If
  Next
 
  ColorMapRainbow1 = lngCol  
End Function



--------------------------------------------------------------------------------------------------
Function ColorMapRainbow2()
  Dim lngCol(767),i
  For i=0 To 767
      If i < 256 Then
          '(255,0,0) to (255,255,0).
          lngCol(767-i) = RGB(255, i, 0)
      ElseIf i < 384 Then
          '(255,255,0) to (0,255,0).
          lngCol(767-i) = RGB(255 - (i-256)*2, 255, 0)
      ElseIf i< 512 Then
          '(0,255,0) to (0,255,255).
          lngCol(767-i) = RGB(0, 255, (i-384)*2)
      Else
          '(0,255,255) to (0,0,255).
          lngCol(767-i) = RGB(0, 255 - (i-512), 255)
      End If
  Next
 
  ColorMapRainbow2 = lngCol  
End Function
   
--------------------------------------------------------------------------------------------------
Function ColorMapRainbow3()
  Dim lngCol(967),i
  For i=0 To 967
      If I<100 Then
          '(155,0,0) to (255,0,0)
          lngCol(967-i) = RGB(255-(100-i), 0, 0)
      ElseIf i < 356 Then
          '(255,0,0) to (255,255,0).
          lngCol(967-i) = RGB(255, i-100, 0)
      ElseIf i < 484 Then
          '(255,255,0) to (0,255,0).
          lngCol(967-i) = RGB(255 - (i-356)*2, 255, 0)
      ElseIf i< 612 Then
          '(0,255,0) to (0,255,255).
          lngCol(967-i) = RGB(0, 255, (i-484)*2)
      ElseIf I<868 Then
          '(0,255,255) to (0,0,255).
          lngCol(967-i) = RGB(0, 255 - (i-612), 255)
      Else
          '(0,0,255) to (0,0,155)
          lngCol(967-i) = RGB(0, 0, 255-(i-868))
      End If
  Next
 
  ColorMapRainbow3 = lngCol  
End Function

--------------------------------------------------------------------------------------------------

사용예 : 메쉬 버텍스의 Z값에 따라 색상을 표현

main
Sub main()

Dim ColMap, strObject, arrVertices, Vcount, i,j

ColMap = ColorMapRainbow3

strObject = Rhino.GetObject("Select mesh")
arrVertices = Rhino.MeshVertices(strObject)

Vcount=UBound(arrVertices)

ReDim arrColors(Vcount), arrColorIndex(Vcount)
ReDim Z(Vcount)

For i=0 To Vcount
  Z(i)=arrVertices(i)(2)
  arrColorIndex(i)=i
Next


SortByKey Z, arrColorIndex


For i=0 To Vcount
  j=Int(i/Vcount *UBound(ColMap))
  arrColors(arrColorindex(i)) = ColMap(j)
Next

Rhino.MeshVertexColors strObject, arrColors

 
 
End Sub
   
  

Sub QuickSort(ByRef A(), ByRef B(), ByVal min, ByVal max)
    Dim i : i = min: Dim k : k = max
    If (max - min) >= 1 Then
        Dim pivot : pivot = A(min)
        While (k > i)
            While (A(i) <= pivot And i <= max And k > i)
                i = i+1
            Wend
            While (A(k) > pivot And k >= min And k >= i)
                k = k-1        
            Wend       
            If (k > i) Then Call SwapElements(A, B, i, k)                  
        Wend
        Call SwapElements(A, B, min, k)
        Call QuickSort(A, B, min, k-1)
        Call QuickSort(A, B, k+1, max)
    End If
End Sub
Sub SwapElements(ByRef A(), ByRef B(), ByVal i0, ByVal i1)
    Dim loc_A : loc_A = A(i0)
    Dim loc_B : loc_B = B(i0)
    A(i0) = A(i1)
    B(i0) = B(i1)
    A(i1) = loc_A
    B(i1) = loc_B
End Sub

Function SortByKey(ByRef Keys(), ByRef Values())
    Call QuickSort(Keys, Values, 0, UBound(Keys))
End Function