The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

ps_evol - Perl script to fine-tune A4 PostScript drawings

SYNOPSIS

vi plant.ps
ps_evol plant.ps > p2.ps

DESCRIPTION

ps_evol is mainly intended as a demo script illustrating the text_evol funtion in Math::Evol.pm. It assumes you have something like GhostView which allows you to view PostScript files.

It creates a temporary PostScript file, then repeatedly generates eight variants of the original file, scales them smaller, numbers them, and displays them in a 3x3 array. The original is in the middle, as number 5. It asks the user which variant they prefer, then uses that as the original for the next iteration. When the user decides to call a halt, the latest preferred variant is written to the standard output.

The parameters to be varied in the PostScript file must be marked out by special comments, such as

/gray_sky .87 def % evol step 0.05 min 0.0 max 1.0

See perldoc Math::Evol for more details, and as an example the PostScript file plant.ps, included with the distribution.

Version 1.05, #COMMENT#

DEPENDENCIES

Uses the CPAN module Term::Clui.pm to dialogue with the user.

AUTHOR

Peter J Billam, www.pjb.com.au/comp/contact.html

CREDITS

Based on Math::Evol.pm, and conceptually on Richard Dawkin's Blind Watchmaker software.

SEE ALSO

Math::Evol.pm, Term::Clui.pm, http://www.pjb.com.au/, perl(1).