#!/usr/bin/perl

use strict;
use warnings;

my $dir = shift;
my $args = join ' ', @ARGV;

chdir $dir or die 'cannot chdir to $dir: $!';

my $c = 0;
for my $i (qw/toto titi tutu roploplo/,
	   'les sanglots longs des violons de l automne',
	   '$P(\mathit{Vrot}\:|\:\mathit{Dir}\:\mathit{Prox})$',
	   'aaaa' .. 'aaaz')
  {
    ++$c;
    open EQD, "| ../eqedit $args --text-color=blue --page-color=transparent -o $c.png" or die 'cannot open |eqedit: $!';
    print EQD $i;
    close EQD;
  }

chdir '..' or die 'cannot chdir back to ..: $!';