Design Scripting Documentation


	Convert RGB to CMYK


	Inputs:

a color rgb vector


	Outputs:

a color cmyk vector

Implementation

01  function rgb_cmyk( rgb_ )
02    dim black: black = number_mini( number_mini( _
03      NUMBER_MAX_BYTE - rgb_( COLOR_R ),   _
04      NUMBER_MAX_BYTE - rgb_( COLOR_G ) ), _
05      NUMBER_MAX_BYTE - rgb_( COLOR_B ) )
06    dim white: white = NUMBER_MAX_BYTE - black
07    rgb_cmyk = array( _
08      ( NUMBER_MAX_BYTE - rgb_( COLOR_R ) - black ) / white, _
09      ( NUMBER_MAX_BYTE - rgb_( COLOR_G ) - black ) / white, _
10      ( NUMBER_MAX_BYTE - rgb_( COLOR_B ) - black ) / white, _
11      black _
12    )
13  end function

The Design Scripting Library, including its sources, online documentation and graphics, are licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 2.5 License.

Online Documentation generated by { vbdoclib } version 1.0
Color-Coding generated by { vbcc } version 2.0
Page timestamp: { Feb. 2, 2006 }