home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / raytrace / rayshade / graphtal.lzh / Graphtal.Amiga / Examples / treecone < prev    next >
Encoding:
Text File  |  1992-11-03  |  2.6 KB  |  108 lines
  1. #!/bin/sh
  2. #
  3. # Copyright (C) 1992, Christoph Streit (streit@iam.unibe.ch)
  4. # All rights reserved.
  5. #
  6. # This software may be freely copied, modified, and redistributed
  7. # provided that this copyright notice is preserved on all copies.
  8. #
  9. # You may not distribute this software, in whole or in part, as part of
  10. # any commercial product without the express consent of the authors.
  11. #
  12. # There is no warranty or other guarantee of fitness of this software
  13. # for any purpose.  It is provided solely "as is".
  14. #
  15. # Cone slides over a tree (uses treecone.anim.lsys).
  16. # 
  17. # usage: treecone [-R resX resY] [-O outfile]
  18. #                 [-d rayshade|flat] numberOfFrames
  19. #
  20. #
  21.  
  22. nawk '
  23. BEGIN { 
  24.   resX = 150; 
  25.   resY = 150;
  26.   outfile = "tree.rle";
  27.   renderer = "flat";
  28.  
  29.   if (ARGC <= 1) 
  30.     usage(); 
  31.  
  32.   #
  33.   # Parse command line options.
  34.   #
  35.   while (++i < ARGC-1) { 
  36.     if (ARGV[i] ~ /^-R$/) { 
  37.       if (((ARGC-i) > 3) && 
  38.       ((ARGV[i+1] ~ /^[0-9]+$/) && (ARGV[i+2] ~ /^[0-9]+$/))) { 
  39.     resX = ARGV[++i]; 
  40.     resY = ARGV[++i];
  41.       }
  42.       else
  43.     usage();
  44.     }
  45.     else if (ARGV[i] ~ /^-O$/) {
  46.       if ((ARGC-i) > 2)
  47.         outfile = ARGV[++i];
  48.       else
  49.         usage();
  50.     }
  51.     else if (ARGV[i] ~ /^-d$/) {
  52.       if ((ARGC-i) > 2 && (ARGV[i+1] ~ /^(rayshade|flat)$/))
  53.         renderer = ARGV[++i];
  54.       else
  55.         usage();
  56.     }
  57.     else if (i < ARGC-1)
  58.       usage();
  59.     else 
  60.       break;
  61.   }
  62.  
  63.   #
  64.   # Get number of frames to be rendered.
  65.   #
  66.   if ((i >= ARGC) || (ARGV[i] !~ /^[0-9]+$/))
  67.     usage();
  68.   else
  69.     numberOfFrames = ARGV[i];
  70.  
  71.   #
  72.   # Render images...
  73.   #
  74.   for (i=0; i<numberOfFrames; i++) {
  75.     if (renderer == "flat")
  76.       cmd = "graphtal -q -R " resX " " resY \
  77.             " -Diter=" i " -DnumberOfFrames=" numberOfFrames \
  78.             " -d flat treecone.anim.lsys | ppmtorle | rleflip -v" \
  79.         " > _frame" i ".rle";
  80.     else
  81.       cmd = "graphtal -q -s -R " resX " " resY \
  82.             " -Diter=" i " -DnumberOfFrames=" numberOfFrames \
  83.             " -d rayshade treecone.anim.lsys;" \
  84.         " rayshade -S 2 default.ray > _frame" i ".rle";
  85.     print cmd; 
  86.     if (system(cmd)) exit(1);
  87.     if (i == 0) {
  88.       print "mv _frame" i ".rle " outfile;
  89.       system("mv _frame" i ".rle " outfile);
  90.     }
  91.     else {
  92.       print "rlecat -o tmp.rle " outfile " _frame" i ".rle";
  93.       system ("rlecat -o tmp.rle " outfile " _frame" i ".rle");
  94.       print "mv tmp.rle " outfile;
  95.       system ("mv tmp.rle " outfile);
  96.       system("rm _frame" i ".rle");
  97.     }
  98.   }
  99. }
  100.  
  101. function usage()
  102. {
  103.   print "usage: treecone [-R resX resY] [-O outfile]";
  104.   print "                [-d rayshade|flat] numberOfFrames\n";
  105.   exit(1);
  106. }
  107. ' $*
  108.