#!/usr/bin/perl -w

# This tool generates various patterns to test the LCD

open OUT,">picture.bin";
foreach(0 .. 255)
{
  foreach(0 .. 239)
  {
    print OUT pack("C",0).pack("C",$_&0xfc); 
  }
}
foreach(256 .. 319)
{
  foreach(0 .. 239)
  {
    print OUT pack("C",128).pack("C",128);
  }
}


