;This code creates a color wheel with twelve hues that follow the same scheme as the previous color wheel assignment but is totally automated.
;Creates the image
(define img
(car
(gimp-image-new 512 512 0
)
)
)
;Displays the image
(gimp-display-new img)
;I created a background with a radial gradient for aesthetic purposes.
;Code for the Background
(define layer
(car
(gimp-layer-new img 512 512 0 "Shadow" 100 0
)
)
)
(gimp-image-add-layer img layer -1)
(gimp-context-set-background '(0 0 0))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-blend layer 3 0 2 100 0 0 FALSE FALSE 1 0 TRUE 256 256 550 0)
;For each layer creation I create a layer with a radial gradient from white to the layer color. I then select a wedge to keep and delete the rest of the layer. I then rotate it to it's correct position in the wheel.
;Code for the Red layer creation
(define layer
(car
(gimp-layer-new img 512 512 0 "Red" 100 0
)
)
)
(gimp-image-add-layer img layer -1)
(gimp-context-set-background '(255 0 0))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-blend layer 3 0 2 100 0 0 FALSE FALSE 1 0 TRUE 256 256 256 0)
(gimp-free-select img 6 #(181 0 319 0 255 260) 2 TRUE FALSE 0)
(gimp-selection-invert img)
(gimp-edit-clear layer)
(plug-in-colortoalpha 1 img layer '(255 0 0))
(gimp-selection-none img)
;Code for the Orange layer creation
(define layer
(car
(gimp-layer-new img 512 512 0 "Orange" 100 0
)
)
)
(gimp-image-add-layer img layer -2)
(gimp-context-set-background '(255 102 0))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-blend layer 3 0 2 100 0 0 FALSE FALSE 1 0 TRUE 256 256 256 0)
(gimp-free-select img 6 #(181 0 319 0 255 260) 2 TRUE FALSE 0)
(gimp-selection-invert img)
(gimp-edit-clear layer)
(plug-in-colortoalpha 1 img layer '(255 102 0))
(gimp-selection-none img)
(gimp-rotate layer TRUE 0.523598776)
;Code for the Yellow layer creation
(define layer
(car
(gimp-layer-new img 512 512 0 "Yellow" 100 0
)
)
)
(gimp-image-add-layer img layer -3)
(gimp-context-set-background '(255 255 0))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-blend layer 3 0 2 100 0 0 FALSE FALSE 1 0 TRUE 256 256 256 0)
(gimp-free-select img 6 #(181 0 319 0 255 260) 2 TRUE FALSE 0)
(gimp-selection-invert img)
(gimp-edit-clear layer)
(plug-in-colortoalpha 1 img layer '(255 255 0))
(gimp-selection-none img)
(gimp-rotate layer TRUE 1.04719755)
;Code for the Chartreuse layer creation
(define layer
(car
(gimp-layer-new img 512 512 0 "Chartreuse" 100 0
)
)
)
(gimp-image-add-layer img layer -4)
(gimp-context-set-background '(127 255 0))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-blend layer 3 0 2 100 0 0 FALSE FALSE 1 0 TRUE 256 256 256 0)
(gimp-free-select img 6 #(181 0 319 0 255 260) 2 TRUE FALSE 0)
(gimp-selection-invert img)
(gimp-edit-clear layer)
(plug-in-colortoalpha 1 img layer '(127 255 0))
(gimp-selection-none img)
(gimp-rotate layer TRUE 1.57079633)
;Code for the Green layer creation
(define layer
(car
(gimp-layer-new img 512 512 0 "Green" 100 0
)
)
)
(gimp-image-add-layer img layer -5)
(gimp-context-set-background '(0 255 0))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-blend layer 3 0 2 100 0 0 FALSE FALSE 1 0 TRUE 256 256 256 0)
(gimp-free-select img 6 #(181 0 319 0 255 260) 2 TRUE FALSE 0)
(gimp-selection-invert img)
(gimp-edit-clear layer)
(plug-in-colortoalpha 1 img layer '(0 255 0))
(gimp-selection-none img)
(gimp-rotate layer TRUE 2.0943951)
;Code for the Spring Green layer creation
(define layer
(car
(gimp-layer-new img 512 512 0 "Spring Green" 100 0
)
)
)
(gimp-image-add-layer img layer -6)
(gimp-context-set-background '(0 255 127))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-blend layer 3 0 2 100 0 0 FALSE FALSE 1 0 TRUE 256 256 256 0)
(gimp-free-select img 6 #(181 0 319 0 255 260) 2 TRUE FALSE 0)
(gimp-selection-invert img)
(gimp-edit-clear layer)
(plug-in-colortoalpha 1 img layer '(0 255 127))
(gimp-selection-none img)
(gimp-rotate layer TRUE 2.61799388)
;Code for the Cyan layer creation
(define layer
(car
(gimp-layer-new img 512 512 0 "Cyan" 100 0
)
)
)
(gimp-image-add-layer img layer -7)
(gimp-context-set-background '(0 255 255))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-blend layer 3 0 2 100 0 0 FALSE FALSE 1 0 TRUE 256 256 256 0)
(gimp-free-select img 6 #(181 0 319 0 255 260) 2 TRUE FALSE 0)
(gimp-selection-invert img)
(gimp-edit-clear layer)
(plug-in-colortoalpha 1 img layer '(0 255 255))
(gimp-selection-none img)
(gimp-rotate layer TRUE 3.14159625)
;Code for the Blue layer creation
(define layer
(car
(gimp-layer-new img 512 512 0 "Blue" 100 0
)
)
)
(gimp-image-add-layer img layer -8)
(gimp-context-set-background '(0 0 255))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-blend layer 3 0 2 100 0 0 FALSE FALSE 1 0 TRUE 256 256 256 0)
(gimp-free-select img 6 #(181 0 319 0 255 260) 2 TRUE FALSE 0)
(gimp-selection-invert img)
(gimp-edit-clear layer)
(plug-in-colortoalpha 1 img layer '(0 0 255))
(gimp-selection-none img)
(gimp-rotate layer TRUE -2.61799388)
;Code for the Azure layer creation
(define layer
(car
(gimp-layer-new img 512 512 0 "Azure" 100 0
)
)
)
(gimp-image-add-layer img layer -9)
(gimp-context-set-background '(0 127 255))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-blend layer 3 0 2 100 0 0 FALSE FALSE 1 0 TRUE 256 256 256 0)
(gimp-free-select img 6 #(181 0 319 0 255 260) 2 TRUE FALSE 0)
(gimp-selection-invert img)
(gimp-edit-clear layer)
(plug-in-colortoalpha 1 img layer '(0 127 255))
(gimp-selection-none img)
(gimp-rotate layer TRUE -2.0943951)
;Code for the Violet layer creation
(define layer
(car
(gimp-layer-new img 512 512 0 "Violet" 100 0
)
)
)
(gimp-image-add-layer img layer -10)
(gimp-context-set-background '(238 130 238))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-blend layer 3 0 2 100 0 0 FALSE FALSE 1 0 TRUE 256 256 256 0)
(gimp-free-select img 6 #(181 0 319 0 255 260) 2 TRUE FALSE 0)
(gimp-selection-invert img)
(gimp-edit-clear layer)
(plug-in-colortoalpha 1 img layer '(238 130 238))
(gimp-selection-none img)
(gimp-rotate layer TRUE -1.57079633)
;Code for the Magenta layer creation
(define layer
(car
(gimp-layer-new img 512 512 0 "Magenta" 100 0
)
)
)
(gimp-image-add-layer img layer -11)
(gimp-context-set-background '(255 0 255 ))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-blend layer 3 0 2 100 0 0 FALSE FALSE 1 0 TRUE 256 256 256 0)
(gimp-free-select img 6 #(181 0 319 0 255 260) 2 TRUE FALSE 0)
(gimp-selection-invert img)
(gimp-edit-clear layer)
(plug-in-colortoalpha 1 img layer '(255 0 255))
(gimp-selection-none img)
(gimp-rotate layer TRUE -1.04719755)
;Code for the Rose layer creation
(define layer
(car
(gimp-layer-new img 512 512 0 "Rose" 100 0
)
)
)
(gimp-image-add-layer img layer -12)
(gimp-context-set-background '(255 0 127))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-blend layer 3 0 2 100 0 0 FALSE FALSE 1 0 TRUE 256 256 256 0)
(gimp-free-select img 6 #(181 0 319 0 255 260) 2 TRUE FALSE 0)
(gimp-selection-invert img)
(gimp-edit-clear layer)
(plug-in-colortoalpha 1 img layer '(255 0 127))
(gimp-selection-none img)
(gimp-rotate layer TRUE -0.523598776)
(script-fu-register
"script-fu-ITVColorWheel"
"Color Wheel Grad"
"This script creates a color wheel\
with twelve hues that have a gradient\
which increases in value from the center."
"IsaacTV"
"copyright 2010, ITV"
"2010.2"
"RGB* GRAY*"
)
(script-fu-menu-register "script-fu-ITVColorWheel" "/Image/Filters/ITVColorWheel")