/usr/games/xracer-mkcraft is in xracer-tools 0.96.9.1-8.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 | #!/usr/bin/perl -w
# XRACER (C) 1999-2000 Richard W.M. Jones <rich@annexia.org> and other AUTHORS
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
# $Id: xracer-mkcraft.pl,v 1.1 2000/01/03 22:42:43 rich Exp $
use strict;
use Getopt::Long;
use lib '../../XRacer/blib/lib'; # So you can run this without installing it.
use XRacer::BVRML;
# Read command line arguments.
my $outputfilename;
my $verbose;
my $help;
GetOptions ("output=s" => \$outputfilename,
"verbose" => \$verbose,
"help|?" => \$help);
if ($help)
{
print STDERR "$0 [--output OUTPUTFILE] [--verbose] [INPUTFILE]\n";
print STDERR "where: OUTPUTFILE is the C file to write\n";
print STDERR " INPUTFILE is the input Blender VRML (.wrl) file\n";
exit 1;
}
# Parse the input file.
my $world = undef;
my $filename;
foreach $filename (@ARGV)
{
$world = XRacer::BVRML->parse ($filename, $world)
or die "cannot parse input file: $filename: $!";
}
# Print some info about this object.
if ($verbose)
{
print "number of vertices: ", $world->nr_vertices, "\n";
print "number of faces: ", $world->nr_faces, "\n";
print "bounding box: ", join (", ", $world->bbox), "\n";
}
# Generate the C output file.
if ($outputfilename)
{
open C, ">$outputfilename"
or die "$outputfilename: $!";
print C "/* This file describes the shape of a craft.\n * It is automatically generated.\n */\n\n#include \"common.h\"\n\n";
$world->write_display_function ( name => "display_craft",
filehandle => \*C
);
print C "/* EOF */\n";
close C;
}
exit 0;
=pod
=head1 NAME
xracer-mkcraft - generate a XRacer vehicle from a Blender VRML file
=head1 SYNOPSIS
xracer-mkcraft [ B<--output> OUTPUTFILE ] [ B<--verbose> ] [ INPUTFILE ]
=head1 DESCRIPTION
I<xracer-mkcraft> is a perl script that takes a Blender VRML file (.wrl)
INPUTFILE and optionally generates a C source file OUTPUTFILE that contains
code suitable to be used as a vehicle description in the game XRacer.
=head1 OPTIONS
=over 7
=item B<--output> I<OUTPUTFILE>
Specifies the C source file to write the vehicle description to. If omitted,
B<xracer-mkcraft> just processes the INPUTFILE and checks for validity.
=item B<--verbose>
Be verbose in the processing of the .wrl INPUTFILE
=back
=head1 SEE ALSO
L<xracer(6)>, L<XRacer::BVRML(3pm)>
=head1 AUTHOR
This documentation for B<xracer-mkcraft> was written by Filip Van Raemdonck
(mechanix@digibel.org) for the Debian prepackaged version of XRacer. It is
uncertain which of the persons listed in the AUTHORS file distributed with the
XRacer sources has written the actual script.
=cut
|