From ecb99ea0626fb7a339a38ca9b9b83f103166c9a5 Mon Sep 17 00:00:00 2001
From: Artur Glavic <artur.glavic@psi.ch>
Date: Tue, 29 Nov 2022 09:57:48 +0100
Subject: [PATCH] add script for plotting with previous mcnp binary

---
 plot_old | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 plot_old

diff --git a/plot_old b/plot_old
new file mode 100755
index 0000000..ac51ad8
--- /dev/null
+++ b/plot_old
@@ -0,0 +1,25 @@
+#!/bin/sh
+PLOT_NAME=`git describe --tags --long`
+
+# if the first argument is an runtpe file, use different plot command
+if [[ $1 == runs/* ]]; then
+  /home/l_glavic/shielding/mcnp56_exe/MCNP_CODE/bin/mcnp6 p  runtpe=$1 \
+        outp=tmp/plota.out comout=tmp/plota.com \
+        wwout=tmp/plota.wwg wwone=tmp/plota.wwo \
+        wwinp=weight_windows/current.wwg \
+        plotm=results/e2-estia_$PLOT_NAME ${@:2}
+else
+  /home/l_glavic/shielding/mcnp56_exe/MCNP_CODE/bin/mcnp6 ip  inp=e2-estia.i \
+        outp=tmp/plota.out comout=tmp/plota.com \
+        wwout=tmp/plota.wwg wwone=tmp/plota.wwo \
+        mctal=tmp/plota.mct mdata=tmp/plota.mdt \
+        wwinp=weight_windows/current.wwg \
+        plotm=results/e2-estia_$PLOT_NAME $@
+fi
+
+if [ -f results/e2-estia_$PLOT_NAME.ps ]; then
+  gs -q -dSAFER -dNOPAUSE -dBATCH -sOutputFile=results/e2-estia_$PLOT_NAME.pdf \
+     -sDEVICE=pdfwrite -c .setpdfwrite -c "<</Orientation 3>> setpagedevice" \
+     -f  results/e2-estia_$PLOT_NAME.ps 
+  rm results/e2-estia_$PLOT_NAME.ps
+fi