module RSAGL.Color.Channels
(channel_red,
channel_green,
channel_blue,
channel_luminance,
channel_chroma,
channel_cyan,
channel_magenta,
channel_yellow,
channel_brightness,
channel_red_cyan,
channel_blue_yellow,
channel_green_magenta,
channel_value,
channel_boldness,
channel_intensity)
where
import RSAGL.Color.ColorSpace
import RSAGL.Math.Angle
import RSAGL.Color.Spaces
channel_red :: ColorChannel
channel_red = newChannel channel_u color_space_rgb
channel_green :: ColorChannel
channel_green = newChannel channel_v color_space_rgb
channel_blue :: ColorChannel
channel_blue = newChannel channel_w color_space_rgb
channel_chroma :: ColorChannel
channel_chroma = newRadialChannel color_wheel_rgbl
channel_luminance :: ColorChannel
channel_luminance = newChannel channel_w color_wheel_rgbl
channel_cyan :: ColorChannel
channel_cyan = newChannel channel_u color_space_cmy
channel_magenta :: ColorChannel
channel_magenta = newChannel channel_v color_space_cmy
channel_yellow :: ColorChannel
channel_yellow = newChannel channel_w color_space_cmy
channel_brightness :: ColorChannel
channel_brightness = newChannel channel_w color_wheel_rgb_brightness
channel_red_cyan :: ColorChannel
channel_red_cyan = newAngularChannel color_wheel_red_cyan_iso (fromDegrees 0)
channel_blue_yellow :: ColorChannel
channel_blue_yellow = newAngularChannel color_wheel_blue_yellow_iso (fromDegrees 240)
channel_green_magenta :: ColorChannel
channel_green_magenta = newAngularChannel color_wheel_green_magenta_iso (fromDegrees 120)
channel_value :: ColorChannel
channel_value = newMaximalChannel color_space_rgb
channel_boldness :: ColorChannel
channel_boldness = newMaximalChannel color_space_cmy
channel_intensity :: ColorChannel
channel_intensity = newMaximalChannel color_space_neutral