Re: "Visual Color Difference" chart [Re: (no subject)]
Re: "Visual Color Difference" chart [Re: (no subject)]
- Subject: Re: "Visual Color Difference" chart [Re: (no subject)]
- From: Martin Orpen <email@hidden>
- Date: Fri, 12 Jan 2007 00:02:54 +0000
On 11 Jan 2007, at 12:26, Klaus Karcher wrote:
If you need a visual reference, there are many.
Here's one to add a bit of colour to the list:
All you need is a copy of Photoshop and a very repetitive AppleScript
(sample below the sig) ;-)
--
Martin Orpen
<http://www.idea-digital.com/>
tell application "Adobe Photoshop CS3"
activate
make new document with properties {height:600 as pixels, width:700 as
pixels, mode:RGB}
set {r, g, b} to {128, 128, 128}
set theColour to {class:RGB color, red:r, green:g, blue:b}
set z to 36
--initial selection of 600x600 document
set {x, y} to {350, 300}
--select and fill routine
set bar to my hexBounds(x, y)
select current document region bar
fill selection of current document with contents theColour
-- 0 degree changes
--red bias
set {x, y} to {350, 300}
set {r, g, b} to {128, 128, 128}
repeat 3 times
set x to x - 90
set r to r + z
set theColour to {class:RGB color, red:r, green:g, blue:b}
set bar to my hexBounds(x, y)
my selectAndFill(x, y, bar, theColour)
end repeat
--cyan bias
set {x, y} to {350, 300}
set {r, g, b} to {128, 128, 128}
repeat 3 times
set x to x + 90
set g to g + z
set b to b + z
set theColour to {class:RGB color, red:r, green:g, blue:b}
set bar to my hexBounds(x, y)
my selectAndFill(x, y, bar, theColour)
end repeat
-- -60 degree changes
--blue bias
set {x, y} to {350, 300}
set {r, g, b} to {128, 128, 128}
repeat 3 times
set x to x + 45
set y to y + 75
set b to b + z
set theColour to {class:RGB color, red:r, green:g, blue:b}
set bar to my hexBounds(x, y)
my selectAndFill(x, y, bar, theColour)
end repeat
--yellow bias
set {x, y} to {350, 300}
set {r, g, b} to {128, 128, 128}
repeat 3 times
set x to x - 45
set y to y - 75
set g to g + z
set r to r + z
set theColour to {class:RGB color, red:r, green:g, blue:b}
set bar to my hexBounds(x, y)
my selectAndFill(x, y, bar, theColour)
end repeat
-- +60 degree changes
--green bias
set {x, y} to {350, 300}
set {r, g, b} to {128, 128, 128}
repeat 3 times
set x to x + 45
set y to y - 75
set g to g + z
set theColour to {class:RGB color, red:r, green:g, blue:b}
set bar to my hexBounds(x, y)
my selectAndFill(x, y, bar, theColour)
end repeat
--magenta bias
set {x, y} to {350, 300}
set {r, g, b} to {128, 128, 128}
repeat 3 times
set x to x - 45
set y to y + 75
set b to b + z
set r to r + z
set theColour to {class:RGB color, red:r, green:g, blue:b}
set bar to my hexBounds(x, y)
my selectAndFill(x, y, bar, theColour)
end repeat
end tell
on hexBounds(x, y)
set theBounds to {{x + 0, y - 50}, {x - 46, y - 25}, {x - 46, y +
25}, {x + 0, y + 50}, {x + 46, y + 25}, {x + 46, y - 25}}
return theBounds
end hexBounds
on selectAndFill(x, y, bar, theColour)
tell application "Adobe Photoshop CS3"
select current document region bar
fill selection of current document with contents theColour
end tell
end selectAndFill
_______________________________________________
Do not post admin requests to the list. They will be ignored.
Colorsync-users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
This email sent to email@hidden