Color::Swatch::ASE::Writer - Low level ASE ( Adobe Swatch Exchange ) file Writer.
version 0.001004
use Color::Swatch::ASE::Writer;
my $structure = {
blocks => [
{ type => 'group_start', label => 'My Colour Swatch' },
{ type => 'color', model => 'RGB ', values => [ 0.1 , 0.5, 0.9 ]},
{ type => 'color', model => 'RGB ', values => [ 0.9 , 0.5, 0.1 ]},
{ type => 'group_end' },
]
};
Color::Swatch::ASE::Writer->write_file(q[./myfile.ase], $structure );
This at present is very low-level simple structure encoding, and is probably not useful to most people.
Its based on the reverse-engineered specification of Adobe™'s "Swatch Exchange" format, which can be found documented many places:
- selpa.net: file formats
- colourlovers.com: ase file maker
- forums.adobe.com: ase file format reverse engineering
my $string = Color::Swatch::ASE::Writer->write_string($structure);
Color::Swatch::ASE::Writer->write_filehandle($fh, $structure);
Color::Swatch::ASE::Writer->write_file(q[path/to/file.ase], $structure);
Kent Fredric [email protected]
This software is copyright (c) 2017 by Kent Fredric [email protected].
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.