Import Geant4 0.0.0 source tree

2016-06-01 15:25:35 +02:00
parent 54d6b71f95
commit b97f8d0df7
3237 changed files with 807095 additions and 0 deletions
@@ -0,0 +1,41 @@
+#!/usr/bin/perl 
+
+$filename = $ARGV[0];
+open(INFILE, $filename) || die "\nSTEP file ".$filename." not found.";
+print "Opening file ".$filename;
+@filebuf = <INFILE>;
+close(INFILE);
+
+$g4 = "G4";
+$outputfile = $g4 . $filename;
+open(OUTFILE, ">$outputfile");
+print "\nModifying STEP file for NIST toolkit...";
+
+foreach  (@filebuf)
+{
+    if(/.*VERTEX\_POINT.*/)
+{
+    s/VERTEX\_POINT\(\'\'\,/VERTEX\_POINT\(\'\'\,\'\'\,/g ;
+}
+elsif(/.*EDGE\_LOOP.*/)
+{
+    s/EDGE\_LOOP\(\'\'\,/EDGE\_LOOP\(\'\'\,\'\'\,/g;
+}
+elsif(/.*ADVANCED\_FACE.*/)
+{
+    ($a,$b,$c) = split('\)',$&);
+    s//$a\)\,\'\' $b\)$c\n/;
+}
+elsif(/.*EDGE\_CURVE.*/)
+{
+    ($a,$b,$c,$d,$e) = split(",",$&);
+    s//$a\, $b\,$c\,\'\'\,$d\,$e\n/;
+}
+
+print OUTFILE;
+}
+
+close(OUTFILE);
+print "\nOutput written to ".$outputfile."\n";
+
+