#!/usr/bin/perl -w# $Id: genimages.pl,v 1.7 2000/04/24 14:51:28 marijn Exp $# This script generates the images that go along with the AIRTRAFFIC program.# POVRAY and Imagemagick (convert) needed for the generation.# Licenced under the GPL, see the COPYING file for more information.$x_res = 30;$y_res = 30;$keep_temp_files = 0;$keep_xpm_files = 1;##### PROGRAMFILES $povray_bin = "/usr/bin/povray";$povray_opt = "-P -V +A";$convert_bin= "/usr/X11R6/bin/convert";$convert_opt= "-verbose";$header_dir = "../src/";##### some statics;my($normal_color) = "<.8, .6, .6>";my($change_color) = "<0.4, 0.4, 1>";my($active_color) = "<1, 0.3, 0.3>";my($ignore_colors)= ["#667f66", "#667e66"];my($nr_of_images) = 8; # make 8 pictures, 45deg difference between each#do_plane_images("jet", "N", $normal_color, $nr_of_images, $ignore_colors);#do_plane_images("jet", "C", $change_color, $nr_of_images, $ignore_colors);#do_plane_images("jet", "A", $active_color, $nr_of_images, $ignore_colors);$ignore_colors = ["Gray50"];do_object_image("airport",  $ignore_colors);sub do_plane_images{ # generate a type of image    my($image, $type, $color, $nr, $ignore_colors) = @_;    my($pov_file, $i, $temp_tga, $tmpl_file, $temp_xpm, $image_xpm);    $tmpl_file = "$image.pov";    my($step_size) = 360/$nr;    for($i=0; $i<$nr; $i++) {	$pov_file  = make_pov($tmpl_file, $type, $color, ($step_size * $i) );	$temp_tga  = make_tga($pov_file);	$temp_xpm  = tga2image($temp_tga);    }}sub do_object_image{    my($image, $ig_col) = @_;    my($pov_file, $i, $nr, $temp_tga, $temp_file, $tmpl_file, $image_xpm);    $tmpl_file = "$image.pov";    $nr = 5;        for($i=0; $i<$nr; $i++) { 	$povfile   = make_pov($tmpl_file, $i+1);	$temp_tga  = make_tga($povfile);	$temp_xpm  = tga2image($temp_tga);    }}sub make_pov { # make a povray file that is used for parsing    my($tmpl_file, $type, $color, $pos) = @_;    my($row);    my($temp_file) = $tmpl_file;    if( !defined( $type  ) ) { $type  = "" };    if( !defined( $color ) ) { $color = "" };    if( !defined( $pos   ) ) { $pos   = "" };        if($pos ne "") {	for(;length($pos) < 3;) {	    $pos = "0" . $pos;	}    }    $temp_file	=~ s/(.*).pov/$1$pos$type.temp.pov/;    open(TMPL, "<$tmpl_file")     || die("Can't open file $tmpl_file: $!");    open(TEMPFILE, ">$temp_file") || die("Can't open file $temp_file: $!");    while(defined($row = <TMPL>)) {	$row =~ s/--COLOR--/$color/g;	$row =~ s/--TYPE--/$type/g;	$row =~ s/--DIRECTION--/$pos/g;	print(TEMPFILE $row);    }    close(TMPL);    close(TEMPFILE);    return $temp_file;}sub make_tga { # generate the tga file with povray    my($pov_file) = $_[0];    my($tga_file) = $pov_file;    $tga_file =~ s/(.*).pov/$1.tga/;    print `$povray_bin +I$pov_file +$tga_file +W$x_res +H$y_res $povray_opt`. "\n";    if($keep_temp_files == 0) {	unlink($pov_file);    }    return $tga_file;}sub tga2image { # convert the tga to XPM    my($tga_file) = $_[0];    my($image_file) = $tga_file;    $image_file =~ s/(.*)\.temp\.tga/$1\.png/;    #    die(join(",", $tga_file, $xpm_file));    print `$convert_bin $convert_opt $tga_file PNG:$image_file` . "\n";        if($keep_temp_files == 0) {	unlink($tga_file);    }    return $image_file;}# ChangeLog# ---------# $Log: genimages.pl,v $# Revision 1.7  2000/04/24 14:51:28  marijn# Added different airport images.## Revision 1.6  2000/04/08 14:07:24  marijn# Changed from xpm's in the executable to external png files.## Revision 1.5  2000/03/09 00:00:29  marijn# Added a README and added GPL references## Revision 1.4  2000/01/04 23:20:15  marijn# renamed airport images from "air" to "airport" for clarity## Revision 1.3  2000/01/01 18:38:05  marijn# airports are now being generated automaticly## Revision 1.2  1999/12/23 01:42:06  marijn# Autogenerating of a headerfile in the src/ with the xpm images.## Revision 1.1  1999/12/19 05:04:08  marijn# Automatic generation of xpm files complete#