Name="off2pov"
Stich="off pov PoVray convert Konvertieren 3D Szenen"
Zeit="Sam Oct  5 17:29:04 MEST 2002"
Kurz="Sie haben die 3D-Beschreibungsdaten eines Objekts im off-Format, und
wollen diese mit PoVray rendern? Mit Perl kein Problem!"
Lang="
Für eine gute PoVray-Szene (sehr gute Einführung von Christian Perle:
<a
href=\"http://www.linux-magazin.de/Artikel/ausgabe/1998/04/Povray/povray.html\">Linux
Magazin 04/1998</a>) brauchte ich unbedingt noch ein Dodekaeder, dessen Ecken,
Kanten und Fl&auml;chen ich beliebieg &auml;ndern konnte. <br />
Auf <a
href=\"http://www.sct.gu.edu.au/~anthony/graphics/polyhedra/\">http://www.sct.gu.edu.au/~anthony/graphics/polyhedra/platonic/</a>
fand ich eine off-Datei -- nur wie in meine PoVray-Szene integrieren?<br />
Mein selbstgeschriebendes Programm in perl erledigt diese Aufgabe. Die Syntax
ist einfach:
`exCodes`
iblech@hubble:~/Povray &gt; ./off2pov.pl < off-Datei > pov-Datei
`exCodee`
In der entstanden PoVray-Szenenbeschreibung muss dann nur noch der ganze Rest
(Kamera, Umgebung, ...) definiert werden.<br />
Das Skript, <a href=\"down/off2pov.pl\">Download</a>:
`exCodes`
#!/usr/bin/perl -w
# off2pov - converts .off files to .pov-files
# Copyright (C) Ingo Blechschmidt Sam Okt  5 17:41:20 MEST 2002 - now,
# released under the Terms of the GNU General Public License.
`cat gpl.lic`
`cat add.lic`
#!/usr/bin/perl -w

\$radiS = &quot;0.3&quot;;
\$radiC = &quot;0.2&quot;;
\$pigS = &quot;MyP&quot;;
\$pigC = &quot;MyC&quot;;
\$pigF = &quot;MyF&quot;;
\$finS = &quot;FiP&quot;;
\$finC = &quot;FiC&quot;;
\$finF = &quot;FiF&quot;;

@points = ();
@rechts = ();
@verbs  = ();

@Sat = ();
\$a = &quot;&quot;;
\$i = 0;

\$a = &lt;STDIN&gt;;
chomp(\$a);

@Sat = split(&quot; &quot;, \$a);

for(\$i = 0; \$i &lt; \$Sat[0]; \$i++) {
  \$a = &lt;STDIN&gt;;
  chomp(\$a);
  \$points[\$i]=\$a;
}

for(\$i = 0; \$i &lt; \$Sat[1]; \$i++) {
  \$a = &lt;STDIN&gt;;
  chomp(\$a);
  \$rechts[\$i]=\$a;
}

for(\$i = 0; \$i &lt; \$Sat[2]; \$i++) {
  \$a = &lt;STDIN&gt;;
  chomp(\$a);
  \$verbs[\$i]=\$a;
}

for(\$i = 0; \$i &lt; \$Sat[0]; \$i++) {
  print &quot;sphere { &lt;&quot;;
  print \`echo \$points[\$i] | sed -e 's+^ *++' -e 's+ *\\$++' | tr -s ' ' | tr ' ' ',' | tr -d '\n'\`;
  print &quot;&gt;, rad pigment { \$pigS } finish { \$finS } }\n&quot;;
}

for(\$i = 0; \$i &lt; \$Sat[1]; \$i++) {
  @R = split(&quot; &quot;, \$rechts[\$i]);
  print &quot;polygon { &quot; . int(\$R[0] + 1) . &quot; &quot;;
  for(\$j = 1; \$j &lt;= \$R[0]; \$j++) {
    print &quot;&lt;&quot; . \`echo \$points[\$R[\$j]] | sed -e 's+^ *++' -e 's+ *\\$++' | tr -s ' ' | tr ' ' ',' | tr -d '\n' \` . &quot;&gt;, &quot;;
  }
  print &quot;&lt;&quot; . \`echo \$points[\$R[1]] | sed -e 's+^ *++' -e 's+ *\\$++' | tr -s ' ' | tr ' ' ',' | tr -d '\n' \` . &quot;&gt; pigment { \$pigF } finish { \$finF } }\n&quot;;
}

for(\$i = 0; \$i &lt; \$Sat[2]; \$i++) {
  @R = split(&quot; &quot;, \$verbs[\$i]);
  print &quot;cylinder { &lt;&quot;;
  print \`echo \$points[\$R[0]] | sed -e 's+^ *++' -e 's+ *\\$++' | tr -s ' ' | tr ' ' ',' | tr -d '\n'\`;
  print &quot;&gt;, &lt;&quot;;
  print \`echo \$points[\$R[1]] | sed -e 's+^ *++' -e 's+ *\\$++' | tr -s ' ' | tr ' ' ',' | tr -d '\n'\`;
  print &quot;&gt;, cad pigment { \$pigC } finish { \$finC } }\n&quot;;
}
`exCodee`
Viel Spa&szlig; beim Rendern!
"
case $1 in
  Name) echo $Name; exit;;
  Stich) echo $Stich; exit;;
  Zeit) echo $Zeit; exit;;
  Kurz) echo $Kurz; exit;;
  Lang) echo $Lang; exit;;
esac
# if [ "$1" = "Name" ]; then echo $Name; fi
mself_vA="txt/0044.txt txt/0054.txt "