Initial commit.

[p_s.git] / variableKerning.pl

#!/usr/bin/env perl
use strict;

# code as grid. only the grid saves!
# there may already be a little groff markup in this file
my $textForTypesetting = "7tmpslave9printfunction";

# this returns the text as an array of arrays, alllinesAllleters ;)
my @ohmyAoA = &parseText("$textForTypesetting.txt");
# this subroutine's name is no good. it should be more like makegroff
&makePS(@ohmyAoA);

# takes as an argument the file to be parsed, so &parseText("file.txt")
sub parseText {
    my @alllinesAllletters;
    my @currentLineLetters;
    my $TEXTlinesCounter = 0;
    open TEXT, "< $_[0]";

    # parse text
    while (<TEXT>) {
        chomp;
        @currentLineLetters = split //, $_;
        $alllinesAllletters[$TEXTlinesCounter] = [@currentLineLetters];
        ++$TEXTlinesCounter;
    }
    @alllinesAllletters;
}

sub makePS {
    my @linesletters = @_;
    my $thisLineSize;
    my $aLetter;
    my $referLine;
    my $anAmount;
    my $goodbye;

    # this is the file that we will build
    my $newFile = $textForTypesetting . "Typeset.txt";
    open TYPESET, "> $newFile";

    # originally, at this point a header was inserted

    # for evry letter...
    foreach $referLine (@linesletters) {
        $thisLineSize = @$referLine - 1;
        # this decision structure allows there to already be somemarkup in the file
        if (@$referLine[0] eq "." || @$referLine[0] eq "\\") {
            foreach $aLetter (0..$thisLineSize) {
                print TYPESET @$referLine[$aLetter];
            }
        }
        else {
            foreach $aLetter (0..$thisLineSize) {
                $anAmount = int(rand(20));
                $goodbye = "\\h'" . $anAmount . "M'@$referLine[$aLetter]\\h'-" . $anAmount . "M'";
                print TYPESET $goodbye;
            }
        }
        print TYPESET "\n";
    }
}