COLOR WHEEL ASSIGNMENT FOUR

Color Wheel


The Code:
;Below makes the new image and displays it
(define img (car (gimp-image-new 512 512 0)))

(gimp-display-new img)

;this creates the new layer and adds it to the new picture
(define layer (car (gimp-layer-new img 512 512 0 "blah" 100 7)))

(gimp-image-add-layer img layer -1)

;this adds the points to the wedge
(gimp-free-select img 6 #(0 180 0 300 255 255) 2 TRUE FALSE 0)

;this creates the gradient
(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

;this gives the gradient and wedge it's color
(gimp-context-set-foreground '(148 0 211))

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

;this defines the layer of the new wedge and does the same as above
(define layer (car (gimp-layer-new img 512 512 0 "blah" 100 7)))

(gimp-image-add-layer img layer -1)

(gimp-free-select img 6 #(0 180 0 300 255 255) 2 TRUE FALSE 0)

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-context-set-foreground '(255 0 255))

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)
;this is the rotation which tells the position of the wedge
(gimp-selection-none img)

(gimp-rotate layer TRUE 6.75 )

;same as above for a new wedge
(define layer (car (gimp-layer-new img 512 512 0 "blah" 100 7)))

(gimp-image-add-layer img layer -1)

(gimp-free-select img 6 #(0 180 0 300 255 255) 2 TRUE FALSE 0)

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-context-set-foreground '(128 0 0))

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-selection-none img)

(gimp-rotate layer TRUE 7.22)

;same as above for a new wedge
(define layer (car (gimp-layer-new img 512 512 0 "blah" 100 7)))

(gimp-image-add-layer img layer -1)

(gimp-free-select img 6 #(0 180 0 300 255 255) 2 TRUE FALSE 0)

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-context-set-foreground '(255 0 0))

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-selection-none img)

(gimp-rotate layer TRUE 7.69)

;same as above for a new wedge
(define layer (car (gimp-layer-new img 512 512 0 "blah" 100 7)))

(gimp-image-add-layer img layer -1)

(gimp-free-select img 6 #(0 180 0 305 255 255) 2 TRUE FALSE 0)

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-context-set-foreground '(255 127 0))

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-selection-none img)

(gimp-rotate layer TRUE 8.18)

;same as above for a new wedge
(define layer (car (gimp-layer-new img 512 512 0 "blah" 100 7)))

(gimp-image-add-layer img layer -1)

(gimp-free-select img 6 #(0 180 0 307 255 255) 2 TRUE FALSE 0)

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-context-set-foreground '(255 255 0))

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-selection-none img)

(gimp-rotate layer TRUE 8.67)

;same as above for a new wedge
(define layer (car (gimp-layer-new img 512 512 0 "blah" 100 7)))

(gimp-image-add-layer img layer -1)

(gimp-free-select img 6 #(0 180 0 310 255 255) 2 TRUE FALSE 0)

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-context-set-foreground '(172 255 50))

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-selection-none img)

(gimp-rotate layer TRUE 9.18)

;same as above for a new wedge
(define layer (car (gimp-layer-new img 512 512 0 "blah" 100 7)))

(gimp-image-add-layer img layer -1)

(gimp-free-select img 6 #(0 180 0 320 255 255) 2 TRUE FALSE 0)

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-context-set-foreground '(0 255 0))

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-selection-none img)

(gimp-rotate layer TRUE 9.73)

;same as above for a new wedge
(define layer (car (gimp-layer-new img 512 512 0 "blah" 100 7)))

(gimp-image-add-layer img layer -1)

(gimp-free-select img 6 #(0 180 0 325 255 255) 2 TRUE FALSE 0)

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-context-set-foreground '(0 255 127))

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-selection-none img)

(gimp-rotate layer TRUE 10.3)

;same as above for a new wedge
(define layer (car (gimp-layer-new img 512 512 0 "blah" 100 7)))

(gimp-image-add-layer img layer -1)

(gimp-free-select img 6 #(0 180 0 330 255 255) 2 TRUE FALSE 0)

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-context-set-foreground '(0 255 255))

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-selection-none img)

(gimp-rotate layer TRUE 10.88)

;same as above for a new wedge
(define layer (car (gimp-layer-new img 512 512 0 "blah" 100 7)))

(gimp-image-add-layer img layer -1)

(gimp-free-select img 6 #(0 180 0 332 255 255) 2 TRUE FALSE 0)

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-context-set-foreground '(0 191 255))

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-selection-none img)

(gimp-rotate layer TRUE 11.47)

;same as above for a new wedge
(define layer (car (gimp-layer-new img 512 512 0 "blah" 100 7)))

(gimp-image-add-layer img layer -1)

(gimp-free-select img 6 #(0 180 0 335 255 255) 2 TRUE FALSE 0)

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-context-set-foreground '(0 0 255))

(gimp-edit-blend layer 0 0 0 100 0 FALSE FALSE TRUE 1 0 FALSE 0 255 255 255)

(gimp-selection-none img)

(gimp-rotate layer TRUE 12)



href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiC5ZCr8FdwYdmk7eIOnV-mIiNTCVpqlQprforiPZnPRi_YsjFq5KRLjwOgwWKMcVPhN754840HGZKGgZqbuDeRN376DMqfyueDxy1T_1hCTrklEOmuqaMlllUSR4ST_9K-sjLVcpMNYsFB/s1600-h/Picture+3.png">