#!/usr/bin/perl
use strict; use warnings;
=pod

=head1 NAME

spectrum-xht - output sample swatches for spectrum.xht

=head1 SYNOPSIS

(t=~/project/textbender/a/u/chromography; $t/spectrum-xht >> $t/spectrum.xht; )

=cut

{
    my $spectral_length = 1 << 10;
    for( my $i = 0; $i < $spectral_length + 10; ++$i )
    {
        my $spectral_index = $i % $spectral_length;
        my $class = 'textbender-a-u-chromography-RS-' . $spectral_index;
        print "<div class='$class'>$class</div>\n";
    }

}