PerlinNoiseGen.sh

#!/bin/bash
# Henry J Schmale
# March 19, 2015
# Perlin Noise Initial Vector Generator
# Generates the data to use in Dynamic Background Generator System
# \note: This Script Depends on random.pl in the same dir as this 
#        script.

TEN=10 # Bash is really annoying about not using straight up numeric constants

echo '{' # Opening Brace
for y in {0..649} ; do                 # Y AXIS
    echo '    {'
    for x in {0..374}; do              # X AXIS
        let "l = $x % 5"
        if [ "$l" -eq 1 ] ; then
            echo -n '        {'
        else
            echo -n '{'
        fi
        for a in 0 1 ; do
            # Write the actual Numbers Here
            v=$( ./random.pl )
            echo -n $v
            if [ $a -ne 1 ] ; then
                echo -n ', '
            fi
        done
        if [ $l -eq 0 ] ; then
            echo '},'
        else
            echo -n '},'
        fi
    done
    if [ $y -ne 999 ] ; then
        echo '    },'
    else
        echo '    }'
    fi
done
echo '};'  # Closing Brace