Initial commit from Polytechnique Montreal

1 files changed, 33 insertions, 0 deletions

diff --git a/Dragon/data/g2s_prestation_proc/hex.c2m b/Dragon/data/g2s_prestation_proc/hex.c2m
new file mode 100644
index 0000000..1e98e30
--- /dev/null
+++ b/Dragon/data/g2s_prestation_proc/hex.c2m
@@ -0,0 +1,33 @@
+*----
+* Windmill geometry constructed with G2S:
+* UOX or MOX assembly with control rods out
+* 1 HEX ; 1 HEXCEL
+*----
+SEQ_ASCII HEX_FIG ;
+SEQ_ASCII HEX_PIN ;
+SEQ_ASCII HEXCEL_FIG :: FILE './HEXCEL_FIG.ps' ;
+SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL_PIN.dat' ;
+LINKED_LIST GEOM GEOM2 ;
+MODULE GEO: G2S: END: ;
+* 1 HEX
+GEOM := GEO: :: HEX 1
+    HBC S30 REFL
+*    SECT -1 0
+    MIX  1
+    SIDE 1. ;
+
+HEX_PIN HEX_FIG := G2S: GEOM :: DRAWNOD ;
+
+* 1 HEXCEL
+GEOM2 := GEO: :: HEXCEL 2
+    HBC S30 REFL
+    SECT -1 2
+    RADIUS 0. 0.25 0.5
+    MIX  1 1 1 1 1 1
+         2 3
+    SIDE 1. ;
+
+HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ;
+
+ECHO "test hex completed" ;
+END: ;