Subversion Repositories wf3d

#!/usr/bin/perl

#=======================================================================

# Project Monophony

#   Wire-Frame 3D Graphics Accelerator IP Core

#

# File:

#   objcnv.pl

#

# Abstract:

#    Wavefront OBJ converter

#    input isOBJ file, output C include header file

#

# Author:

#   Kenji Ishimaru (info.info.wf3d@gmail.com)

#

#======================================================================

#

# Copyright (c) 2015, Kenji Ishimaru

# All rights reserved.

#

# Redistribution and use in source and binary forms, with or without

# modification, are permitted provided that the following conditions are met:

#

#  -Redistributions of source code must retain the above copyright notice,

#   this list of conditions and the following disclaimer.

#  -Redistributions in binary form must reproduce the above copyright notice,

#   this list of conditions and the following disclaimer in the documentation

#   and/or other materials provided with the distribution.

#

# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"

# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,

# THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR

# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR

# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;

# OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,

# WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR

# OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,

# EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

#

# Revision History

use strict;

#$, = '_';       #separater

$, = ' ';       #separater

$\ = "\n";

if (@ARGV < 1) {

  die "usage : objcnv.pl [input file.obj] [output file.h]\n";

}

# global registers

my $vcnt = 0;

my $fcnt = 0;

my @vertices_x;

my @vertices_y;

my @vertices_z;

my @faces_0;

my @faces_1;

my @faces_2;

# command analize

my $in_file;

my $out_file;

my $cc = 0;

while (defined(my $carg = shift @ARGV)) {

    if ($cc == 0) {

      $in_file = $carg;

    }

    if ($cc == 1) {

      $out_file = $carg;

    }

    $cc++;

}

print "OBJ file :" . $in_file;

print "output file :" . $out_file;

open(INFILE, $in_file);

# v: vertex

# f: face

# report number of vertices

# report number of faces

while (<INFILE>) {

  chop;

  my $in_str = $_;

  if ($in_str =~ m/^vn/) {

    die("vn:vertex normals not supported.");

  }

  if ($in_str =~ m/^vt/) {

    die("vt:texture vertices not supported.");

  }

  if ($in_str =~ m/^v/) {

    my @item = split(/ /);     # split

    @vertices_x = (@vertices_x, $item[1]);

    @vertices_y = (@vertices_y, $item[2]);

    @vertices_z = (@vertices_z, $item[3]);

    $vcnt++;

    print "processing vertex : " . $vcnt;

  }

}

print "Number of vertices : " . $vcnt;

seek(INFILE,0,0); # rewind

while (<INFILE>) {

  chop;

  my $in_str = $_;

  if ($in_str =~ m/^f/) {

    my @item = split(/ /);     # split

    @faces_0 = (@faces_0, $item[1]);

    @faces_1 = (@faces_1, $item[2]);

    @faces_2 = (@faces_2, $item[3]);

    &check_orientation($faces_0[$fcnt],

                       $faces_1[$fcnt],

                       $faces_2[$fcnt]

                       );

    $fcnt++;

    print "processing face : " . $fcnt;

  }

}

print "Number of faces: " . $fcnt;

close(INFILE);

print "Writing C header file: " . $out_file;

open(OUTFILE, ">$out_file");

print OUTFILE "//Number of faces: " . $fcnt;

print OUTFILE "int num_vtx = " . @faces_0 . ";";

print OUTFILE "float vtx_array[] = {";

for (my $i = 0; $i < @faces_0; $i++) {

  print OUTFILE "// face " . $i;

  # v0 face index starts from 1, not 0

  print OUTFILE "//   v0 ";

  print OUTFILE $vertices_x[$faces_0[$i]-1] . ",";

  print OUTFILE $vertices_y[$faces_0[$i]-1] . ",";

  print OUTFILE $vertices_z[$faces_0[$i]-1] . ",";

  # v1

  print OUTFILE "//   v1 ";

  print OUTFILE $vertices_x[$faces_1[$i]-1] . ",";

  print OUTFILE $vertices_y[$faces_1[$i]-1] . ",";

  print OUTFILE $vertices_z[$faces_1[$i]-1] . ",";

  # v2

  print OUTFILE "//   v2 ";

  print OUTFILE $vertices_x[$faces_2[$i]-1] . ",";

  print OUTFILE $vertices_y[$faces_2[$i]-1] . ",";

  if ($i == @faces_0 - 1) {

    print OUTFILE $vertices_z[$faces_2[$i]-1];

  } else {

    print OUTFILE $vertices_z[$faces_2[$i]-1] . ",";

  }

}

print OUTFILE "};";

close(OUTFILE);

print "done.";

sub check_orientation {

   my $vx = $_[0];

   my $vy = $_[1];

   my $vz = $_[2];

   # not implemented

   return 1;

}