## Copyright (C) 2002 Etienne Grossmann.  All rights reserved.
##
## 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, or (at your option) any
## later version.
##
## This 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.

## Test that vrml_faces works with "tex" option

## Author:  Etienne Grossmann <etienne@cs.uky.edu>
1;

## Tetrahedron : Vertices
x = [ 1  1 -1  0;
     -1  1  0  0;
     -1 -1 -1  1];

## Tetrahedron : Faces
trg = [1 2 3 1;
       2 3 1 2;
       4 4 4 3];

trgl = list ([1 2 4],[2 3 4],[3 1 4],[1 2 3]);

slight = vrml_PointLight ("location", [0,5,0]);

if 1
  s1 = vrml_faces (x, trg);

  printf ("Going to show a tetrahedron\n");

  printf (["\n     If nothing appears, it may be due to problems",\
	   "\n     with your FreeWRL installation\n"]);
  vrml_browse ([slight, s1]);
  printf ("Press a key in this terminal when done\n");pause;
end

if 1
  s1 = vrml_faces (x, trgl,"col",[1,0.5,0.5]);

  printf ("Going to show almost the same tetrahedron\n");

  printf (["\n     If nothing appears, it may be due to problems",\
	   "\n     with your FreeWRL installation\n"]);
  vrml_browse ([slight, s1]);
  printf ("Press a key in this terminal when done\n");pause;
end

if 1
  s1 = vrml_faces (x, trg, "col",[1 0 0 1;0 1 0 1;0 0 1 1]);

  printf ("Coloring the vertices\n");
  vrml_browse ([slight, s1]);
  printf ("Press a key in this terminal when done\n");pause;
end
if 1
  s1 = vrml_faces (x, trg, "col",[1 0 0 1;0 1 0 1;0 0 1 1],"colorPerVertex",0);

  printf ("Coloring the faces\n");
  vrml_browse ([slight, s1]);
  printf ("Press a key in this terminal when done\n");pause;
end

## Texture :
H = 50;
W = 100;			# Texture width
w = floor (W/2);
h = floor (H/2);
tr = tg = tb = zeros (H,W+1);
[j,i] = meshgrid (1:W+1,1:H);

tr(find (i<=h & i*W>=j*H       )) = 1;
tg(find (i> h & i*W>=(j+w)*H     )) = 1;
tb(find (i> h & i*W>=j*H     & j> w)) = 1;


if 0

  if 1
    whiten = find(!(tr | tg | tb));
    tr(whiten) = 1;
    tg(whiten) = 1;
    tb(whiten) = 1;
  end
  
  t0 = reshape (255*[tr;tg;tb], H,(W+1)*3);
  t0 = t0 + 0.75 * rot90 (t0,2);
  t0 = [t0, 0.5*t0];
  tex = mat2ims (t0,1);

## ims_show (tex);


  texfile = [pwd(),"/mytexfile.ppm"];
  ims_save (tex, texfile);

  s1 = vrml_faces (x, trg, "tex",texfile,"imsz",[H,W]);
  s2 = vrml_faces (x, trg, "tex",texfile);

  printf (["Tetrahedrons should appear like (R=red, G=green, B=blue)\n\n",\
	   "              R 2\n",\
	   "               /\n",\
	   "              / G\n",\
	   "     G     B /\n",\
	   "   3--------4 B\n",\
	   "     R     B \\\n",\
	   "              \\ R\n",\
	   "             G \\\n",\
	   "                 1\n"]);
  
  vrml_browse ([slight, s1, vrml_transfo(s2,[2,0,0])]);
end