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

=head1 NAME

test-xht - output sample swatches for test.xht

=head1 SYNOPSIS

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

=cut

{
    print "            <p>\n";

    my $spectral_length = 1 << 10;
    for( my $i = 0; $i < $spectral_length + 21; ++$i )
    {
        if( $i % 10 == 0 && $i > 0 )
        {
            print "                </p>\n";
            print "            <p>\n";
        }

        my $spectral_index = $i % $spectral_length;
        print "                line $i, spectral index $spectral_index\n";
    }
    print "                </p>\n";

}