Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Fix #497: Fix check on WRAILBOT for TARGET leaves. #520

Merged
merged 1 commit into from
Jan 13, 2020
Merged

Fix #497: Fix check on WRAILBOT for TARGET leaves. #520

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
412 changes: 206 additions & 206 deletions HEN_HOUSE/doc/src/pirs509a-beamnrc/figures/dynvmlcd.fig
View file
Open in desktop

Large diffs are not rendered by default.

Binary file modified HEN_HOUSE/doc/src/pirs509a-beamnrc/figures/dynvmlcd.pdf
View file
Open in desktop
Binary file not shown.
6 changes: 3 additions & 3 deletions HEN_HOUSE/doc/src/pirs509a-beamnrc/inputformats/DYNVMLC.inp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -206,7 +206,7 @@

If MODE_$DYNVMLC=1 or 2 (dynamic delivery or step-and-shoot delivery):

14b mlc_file (A80)
14b mlc_file (A256)

mlc_file: The full name of the file containing leaf opening
data. The format of the file contents is as follows:
Expand All @@ -229,7 +229,7 @@
MLC_TITLE: A title line
NFIELDS_$DYNVMLC: Total number of fields
INDEX_$DYNVMLC(I): Index of field I. 0 <= INDEX_$DYNVMLC(I) <= 1 and
INDEX_$DYNVMLC(I) >= INDEX_$DYNVMLC(I-1). This
INDEX_$DYNVMLC(I) > INDEX_$DYNVMLC(I-1). This
number is compared to a random number on (0,1) at
the start of each history; if the random number is
<= INDEX_$DYNVMLC(I), then field I is used.
Expand Down Expand Up @@ -325,7 +325,7 @@
6.7, ZTHICK
0.5, 0.04, 0.04, 0.1354, 0.3252, 0.1227, 48.25, 48.533, 51.524, 51.732,
52.98, 53.28, 2, 54.5474, 54.812, FULL leaf
0.25, 0.04, 0.04, 0.0929, 0.1371, 0.1371, 48.345, 48.6096, 49.5277,
0.25, 0.04, 0.04, 0.0929, 0.132, 0.132, 48.345, 48.6096, 49.5277,
49.8277, 2, 51.625, 51.627, 54.7, 54.746, TARGET leaf
0.25, 0.04, 0.04, 0.0354, 0.1285, 0.1235, 48.412, 48.531, 51.631, 51.732,
53.3293, 53.6293, 2, 54.5474, 54.812, ISOCENTER leaf
Expand Down
69 changes: 41 additions & 28 deletions HEN_HOUSE/omega/beamnrc/CMs/DYNVMLC_cm.mortran
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -540,7 +540,7 @@
"I> 6.7, ZTHICK
"I> 0.5, 0.04, 0.04, 0.1354, 0.3252, 0.1227, 48.25, 48.533, 51.524, 51.732,
"I> 52.98, 53.28, 2, 54.5474, 54.812, FULL leaf
"I> 0.25, 0.04, 0.04, 0.0929, 0.1371, 0.1371, 48.345, 48.6096, 49.5277,
"I> 0.25, 0.04, 0.04, 0.0929, 0.132, 0.132, 48.345, 48.6096, 49.5277,
"I> 49.8277, 2, 51.625, 51.627, 54.7, 54.746, TARGET leaf
"I> 0.25, 0.04, 0.04, 0.0354, 0.1285, 0.1235, 48.412, 48.531, 51.631, 51.732,
"I> 53.3293, 53.6293, 2, 54.5474, 54.812, ISOCENTER leaf
Expand Down Expand Up @@ -1279,25 +1279,24 @@ IF(WGROOVE_$DYNVMLC(2)>LEAFWIDTH_$DYNVMLC(2))[
' WGROOVE_$DYNVMLC(2)>LEAFWIDTH_$DYNVMLC(2). Groove too wide.'//);
IERR_GEOM(ICM_$DYNVMLC)=IERR_GEOM(ICM_$DYNVMLC)+1;
]
IF(WTIP_$DYNVMLC(2)>LEAFWIDTH_$DYNVMLC(2)-WTONGUE_$DYNVMLC(2)-
WGROOVE_$DYNVMLC(2))[
IF(WTIP_$DYNVMLC(2)>LEAFWIDTH_$DYNVMLC(2)-WGROOVE_$DYNVMLC(2))[
OUTPUT ICM_$DYNVMLC;
(//' ***ERROR IN CM ',I3,' ($DYNVMLC) in TARGET leaf definition:'/
' WTIP_$DYNVMLC(2)>LEAFWIDTH_$DYNVMLC(1)-WTONGUE_$DYNVMLC(1)-'/
' WGROOVE_$DYNVMLC(1). Tip too wide.'//);
' WTIP_$DYNVMLC(2)>LEAFWIDTH_$DYNVMLC(1)-WGROOVE_$DYNVMLC(1).'/
' Tip too wide.'//);
IERR_GEOM(ICM_$DYNVMLC)=IERR_GEOM(ICM_$DYNVMLC)+1;
]
IF(WRAILBOT_$DYNVMLC(2)>LEAFWIDTH_$DYNVMLC(2))[
IF(WRAILBOT_$DYNVMLC(2)<WGROOVE_$DYNVMLC(2))[
OUTPUT ICM_$DYNVMLC;
(//' ***ERROR IN CM ',I3,' ($DYNVMLC) in TARGET leaf definition:'/
' WRAILBOT_$DYNVMLC(2)>LEAFWIDTH_$DYNVMLC(2). Lower rail too wide.'//);
' WRAILBOT_$DYNVMLC(2)<WGROOVE_$DYNVMLC(2). Lower rail too narrow.'//);
IERR_GEOM(ICM_$DYNVMLC)=IERR_GEOM(ICM_$DYNVMLC)+1;
]
IF(WRAILBOT_$DYNVMLC(2)<WGROOVE_$DYNVMLC(2)+WTIP_$DYNVMLC(2))[
IF(WRAILBOT_$DYNVMLC(2)>WGROOVE_$DYNVMLC(2)+WTIP_$DYNVMLC(2))[
OUTPUT ICM_$DYNVMLC;
(//' ***ERROR IN CM ',I3,' ($DYNVMLC) in TARGET leaf definition:'/
' WRAILBOT_$DYNVMLC(2)<WGROOVE_$DYNVMLC(2)+WTIP_$DYNVMLC(2).'/
' Lower rail too narrow.'//);
' WRAILBOT_$DYNVMLC(2)>WGROOVE_$DYNVMLC(2)+WTIP_$DYNVMLC(2).'/
' Lower rail too wide.'//);
IERR_GEOM(ICM_$DYNVMLC)=IERR_GEOM(ICM_$DYNVMLC)+1;
]
IF(WRAILTOP_$DYNVMLC(2)>WRAILBOT_$DYNVMLC(2))[
Expand Down Expand Up @@ -1860,14 +1859,13 @@ IF(TOT_LEAF_$DYNVMLC>0) [
]
ELSEIF(LEAFTYPE_$DYNVMLC(I)=2)["target leaf"
YREG_$DYNVMLC(I,2)=YREG_$DYNVMLC(I,1)+WTONGUE_$DYNVMLC(2);
YREG_$DYNVMLC(I,3)=YREG_$DYNVMLC(I,2)+LEAFWIDTH_$DYNVMLC(2)-
WRAILBOT_$DYNVMLC(2);
YREG_$DYNVMLC(I,4)=YREG_$DYNVMLC(I,2)+LEAFWIDTH_$DYNVMLC(2)-
WRAILBOT_$DYNVMLC(2);
YREG_$DYNVMLC(I,3)=YREG_$DYNVMLC(I,2)+LEAFWIDTH_$DYNVMLC(2)-
WGROOVE_$DYNVMLC(2)-WTIP_$DYNVMLC(2);
YREG_$DYNVMLC(I,5)=YREG_$DYNVMLC(I,2)+LEAFWIDTH_$DYNVMLC(2)-
WGROOVE_$DYNVMLC(2);
YREG_$DYNVMLC(I,6)=YREG_$DYNVMLC(I,2)+LEAFWIDTH_$DYNVMLC(2)-
WRAILBOT_$DYNVMLC(2)+WRAILTOP_$DYNVMLC(2);
YREG_$DYNVMLC(I,6)=YREG_$DYNVMLC(I,4)+WRAILTOP_$DYNVMLC(2);
YREG_$DYNVMLC(I,7)=YREG_$DYNVMLC(I,2)+LEAFWIDTH_$DYNVMLC(2);
]
ELSE["isocenter leaf"
Expand Down Expand Up @@ -2196,34 +2194,35 @@ DO L=1,TOT_LEAF_$DYNVMLC [
"Now define regions containing leaf medium"
DO L=1,TOT_LEAF_$DYNVMLC[
DO I =2,5 [
DO J = 3,4 [
DO K = 3,7 [
SUBINDEX_$DYNVMLC(L,I,J,K)=2; "set central section to leaf med"
];
];
IF(LEAFTYPE_$DYNVMLC(L)=2) ["This is a target leaf"
SUBINDEX_$DYNVMLC(L,I,1,1)=2;
SUBINDEX_$DYNVMLC(L,I,1,2)=2;
SUBINDEX_$DYNVMLC(L,I,1,3)=2;
SUBINDEX_$DYNVMLC(L,I,1,4)=2;
SUBINDEX_$DYNVMLC(L,I,1,5)=2;
SUBINDEX_$DYNVMLC(L,I,2,1)=2;
SUBINDEX_$DYNVMLC(L,I,2,2)=2;
SUBINDEX_$DYNVMLC(L,I,2,3)=2;
SUBINDEX_$DYNVMLC(L,I,2,4)=2;
SUBINDEX_$DYNVMLC(L,I,2,5)=2;
SUBINDEX_$DYNVMLC(L,I,2,6)=2;
SUBINDEX_$DYNVMLC(L,I,2,7)=2;
SUBINDEX_$DYNVMLC(L,I,3,1)=2;
SUBINDEX_$DYNVMLC(L,I,3,2)=2;
SUBINDEX_$DYNVMLC(L,I,3,3)=2;
SUBINDEX_$DYNVMLC(L,I,3,5)=2;
SUBINDEX_$DYNVMLC(L,I,3,6)=2;
SUBINDEX_$DYNVMLC(L,I,3,7)=2;
SUBINDEX_$DYNVMLC(L,I,3,8)=2;
SUBINDEX_$DYNVMLC(L,I,4,1)=2;
SUBINDEX_$DYNVMLC(L,I,4,3)=2;
SUBINDEX_$DYNVMLC(L,I,4,5)=2;
SUBINDEX_$DYNVMLC(L,I,4,6)=2;
SUBINDEX_$DYNVMLC(L,I,4,7)=2;
SUBINDEX_$DYNVMLC(L,I,4,8)=2;
SUBINDEX_$DYNVMLC(L,I,5,1)=2;
SUBINDEX_$DYNVMLC(L,I,5,3)=2;
SUBINDEX_$DYNVMLC(L,I,5,4)=2;
SUBINDEX_$DYNVMLC(L,I,5,5)=2;
SUBINDEX_$DYNVMLC(L,I,5,6)=2;
SUBINDEX_$DYNVMLC(L,I,6,3)=2;
SUBINDEX_$DYNVMLC(L,I,6,4)=2;
SUBINDEX_$DYNVMLC(L,I,6,5)=2;
SUBINDEX_$DYNVMLC(L,I,6,6)=2;
]
Expand All @@ -2236,6 +2235,16 @@ DO L=1,TOT_LEAF_$DYNVMLC[
SUBINDEX_$DYNVMLC(L,I,2,5)=2;
SUBINDEX_$DYNVMLC(L,I,2,6)=2;
SUBINDEX_$DYNVMLC(L,I,2,7)=2;
SUBINDEX_$DYNVMLC(L,I,3,3)=2;
SUBINDEX_$DYNVMLC(L,I,3,4)=2;
SUBINDEX_$DYNVMLC(L,I,3,5)=2;
SUBINDEX_$DYNVMLC(L,I,3,6)=2;
SUBINDEX_$DYNVMLC(L,I,3,7)=2;
SUBINDEX_$DYNVMLC(L,I,4,3)=2;
SUBINDEX_$DYNVMLC(L,I,4,4)=2;
SUBINDEX_$DYNVMLC(L,I,4,5)=2;
SUBINDEX_$DYNVMLC(L,I,4,6)=2;
SUBINDEX_$DYNVMLC(L,I,4,7)=2;
SUBINDEX_$DYNVMLC(L,I,4,9)=2;
SUBINDEX_$DYNVMLC(L,I,5,3)=2;
SUBINDEX_$DYNVMLC(L,I,5,4)=2;
Expand All @@ -2253,31 +2262,35 @@ DO L=1,TOT_LEAF_$DYNVMLC[
ELSE[ "This is an isocenter leaf"
SUBINDEX_$DYNVMLC(L,I,1,4)=2;
SUBINDEX_$DYNVMLC(L,I,1,5)=2;
SUBINDEX_$DYNVMLC(L,I,1,6)=2;
SUBINDEX_$DYNVMLC(L,I,1,7)=2;
SUBINDEX_$DYNVMLC(L,I,2,4)=2;
SUBINDEX_$DYNVMLC(L,I,2,5)=2;
SUBINDEX_$DYNVMLC(L,I,2,6)=2;
SUBINDEX_$DYNVMLC(L,I,2,7)=2;
SUBINDEX_$DYNVMLC(L,I,2,9)=2;
SUBINDEX_$DYNVMLC(L,I,3,2)=2;
SUBINDEX_$DYNVMLC(L,I,3,3)=2;
SUBINDEX_$DYNVMLC(L,I,3,4)=2;
SUBINDEX_$DYNVMLC(L,I,3,5)=2;
SUBINDEX_$DYNVMLC(L,I,3,7)=2;
SUBINDEX_$DYNVMLC(L,I,3,9)=2;
SUBINDEX_$DYNVMLC(L,I,4,3)=2;
SUBINDEX_$DYNVMLC(L,I,4,4)=2;
SUBINDEX_$DYNVMLC(L,I,4,5)=2;
SUBINDEX_$DYNVMLC(L,I,4,7)=2;
SUBINDEX_$DYNVMLC(L,I,4,9)=2;
SUBINDEX_$DYNVMLC(L,I,5,3)=2;
SUBINDEX_$DYNVMLC(L,I,5,4)=2;
SUBINDEX_$DYNVMLC(L,I,5,5)=2;
SUBINDEX_$DYNVMLC(L,I,5,6)=2;
SUBINDEX_$DYNVMLC(L,I,5,7)=2;
SUBINDEX_$DYNVMLC(L,I,5,8)=2;
SUBINDEX_$DYNVMLC(L,I,5,9)=2;
SUBINDEX_$DYNVMLC(L,I,6,5)=2;
SUBINDEX_$DYNVMLC(L,I,6,6)=2;
SUBINDEX_$DYNVMLC(L,I,6,7)=2;
SUBINDEX_$DYNVMLC(L,I,6,8)=2;
SUBINDEX_$DYNVMLC(L,I,6,9)=2;
];
];
"Now set driving screw hole to air"
"Now set driving screw hole medium"
DO J=1,6 [
IF(LEAFTYPE_$DYNVMLC(L)=2) ["target leaf"
SUBINDEX_$DYNVMLC(L,2,J,4)=3;
Expand Down
16 changes: 16 additions & 0 deletions HEN_HOUSE/omega/beamnrc/CMs/SYNCHDMLC_cm.mortran
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1550,6 +1550,14 @@ IF(NUM_HLF>0) [
IERR_GEOM(ICM_$SYNCHDMLC)=IERR_GEOM(ICM_$SYNCHDMLC)+1;
]

IF(WTIP_$SYNCHDMLC(2)>LEAFWIDTH_$SYNCHDMLC(2)-WGROOVE_$SYNCHDMLC(2))[
OUTPUT ICM_$SYNCHDMLC;
(//' ***ERROR IN CM ',I3,' ($SYNCHDMLC) in HALF TARGET leaf definition:'/
' WTIP_$SYNCHDMLC(2)>LEAFWIDTH_$SYNCHDMLC(2)-WGROOVE_$SYNCHDMLC(2).'/
' Tip too wide.'//);
IERR_GEOM(ICM_$SYNCHDMLC)=IERR_GEOM(ICM_$SYNCHDMLC)+1;
]

IF(WRAILBOT_$SYNCHDMLC(2)>LEAFWIDTH_$SYNCHDMLC(2))[
OUTPUT ICM_$SYNCHDMLC;
(//' ***ERROR IN CM ',I3,' ($SYNCHDMLC) in HALF TARGET leaf definition:'/
Expand Down Expand Up @@ -1761,6 +1769,14 @@ IF(NUM_QTR>0) [
IERR_GEOM(ICM_$SYNCHDMLC)=IERR_GEOM(ICM_$SYNCHDMLC)+1;
]

IF(WTIP_$SYNCHDMLC(4)>LEAFWIDTH_$SYNCHDMLC(4)-WGROOVE_$SYNCHDMLC(4))[
OUTPUT ICM_$SYNCHDMLC;
(//' ***ERROR IN CM ',I3,' ($SYNCHDMLC) in QTR TARGET leaf definition:'/
' WTIP_$SYNCHDMLC(4)>LEAFWIDTH_$SYNCHDMLC(4)-WGROOVE_$SYNCHDMLC(4).'/
' Tip too wide.'//);
IERR_GEOM(ICM_$SYNCHDMLC)=IERR_GEOM(ICM_$SYNCHDMLC)+1;
]

IF(WRAILBOT_$SYNCHDMLC(4)>LEAFWIDTH_$SYNCHDMLC(4))[
OUTPUT ICM_$SYNCHDMLC;
(//' ***ERROR IN CM ',I3,' ($SYNCHDMLC) in QTR TARGET leaf definition:'/
Expand Down
69 changes: 41 additions & 28 deletions HEN_HOUSE/omega/beamnrc/CMs/SYNCVMLC_cm.mortran
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -543,7 +543,7 @@
"I> 6.7, ZTHICK
"I> 0.5, 0.04, 0.04, 0.1354, 0.3252, 0.1227, 48.25, 48.533, 51.524, 51.732,
"I> 52.98, 53.28, 2, 54.5474, 54.812, FULL leaf
"I> 0.25, 0.04, 0.04, 0.0929, 0.1371, 0.1371, 48.345, 48.6096, 49.5277,
"I> 0.25, 0.04, 0.04, 0.0929, 0.132, 0.132, 48.345, 48.6096, 49.5277,
"I> 49.8277, 2, 51.625, 51.627, 54.7, 54.746, TARGET leaf
"I> 0.25, 0.04, 0.04, 0.0354, 0.1285, 0.1235, 48.412, 48.531, 51.631, 51.732,
"I> 53.3293, 53.6293, 2, 54.5474, 54.812, ISOCENTER leaf
Expand Down Expand Up @@ -1281,25 +1281,24 @@ IF(WGROOVE_$SYNCVMLC(2)>LEAFWIDTH_$SYNCVMLC(2))[
' WGROOVE_$SYNCVMLC(2)>LEAFWIDTH_$SYNCVMLC(2). Groove too wide.'//);
IERR_GEOM(ICM_$SYNCVMLC)=IERR_GEOM(ICM_$SYNCVMLC)+1;
]
IF(WTIP_$SYNCVMLC(2)>LEAFWIDTH_$SYNCVMLC(2)-WTONGUE_$SYNCVMLC(2)-
WGROOVE_$SYNCVMLC(2))[
IF(WTIP_$SYNCVMLC(2)>LEAFWIDTH_$SYNCVMLC(2)-WGROOVE_$SYNCVMLC(2))[
OUTPUT ICM_$SYNCVMLC;
(//' ***ERROR IN CM ',I3,' ($SYNCVMLC) in TARGET leaf definition:'/
' WTIP_$SYNCVMLC(2)>LEAFWIDTH_$SYNCVMLC(1)-WTONGUE_$SYNCVMLC(1)-'/
' WGROOVE_$SYNCVMLC(1). Tip too wide.'//);
' WTIP_$SYNCVMLC(2)>LEAFWIDTH_$SYNCVMLC(1)-WGROOVE_$SYNCVMLC(1).'/
' Tip too wide.'//);
IERR_GEOM(ICM_$SYNCVMLC)=IERR_GEOM(ICM_$SYNCVMLC)+1;
]
IF(WRAILBOT_$SYNCVMLC(2)>LEAFWIDTH_$SYNCVMLC(2))[
IF(WRAILBOT_$SYNCVMLC(2)<WGROOVE_$SYNCVMLC(2))[
OUTPUT ICM_$SYNCVMLC;
(//' ***ERROR IN CM ',I3,' ($SYNCVMLC) in TARGET leaf definition:'/
' WRAILBOT_$SYNCVMLC(2)>LEAFWIDTH_$SYNCVMLC(2). Lower rail too wide.'//);
' WRAILBOT_$SYNCVMLC(2)<WGROOVE_$SYNCVMLC(2). Lower rail too narrow.'//);
IERR_GEOM(ICM_$SYNCVMLC)=IERR_GEOM(ICM_$SYNCVMLC)+1;
]
IF(WRAILBOT_$SYNCVMLC(2)<WGROOVE_$SYNCVMLC(2)+WTIP_$SYNCVMLC(2))[
IF(WRAILBOT_$SYNCVMLC(2)>WGROOVE_$SYNCVMLC(2)+WTIP_$SYNCVMLC(2))[
OUTPUT ICM_$SYNCVMLC;
(//' ***ERROR IN CM ',I3,' ($SYNCVMLC) in TARGET leaf definition:'/
' WRAILBOT_$SYNCVMLC(2)<WGROOVE_$SYNCVMLC(2)+WTIP_$SYNCVMLC(2).'/
' Lower rail too narrow.'//);
' WRAILBOT_$SYNCVMLC(2)>WGROOVE_$SYNCVMLC(2)+WTIP_$SYNCVMLC(2).'/
' Lower rail too wide.'//);
IERR_GEOM(ICM_$SYNCVMLC)=IERR_GEOM(ICM_$SYNCVMLC)+1;
]
IF(WRAILTOP_$SYNCVMLC(2)>WRAILBOT_$SYNCVMLC(2))[
Expand Down Expand Up @@ -1863,14 +1862,13 @@ IF(TOT_LEAF_$SYNCVMLC>0) [
]
ELSEIF(LEAFTYPE_$SYNCVMLC(I)=2)["target leaf"
YREG_$SYNCVMLC(I,2)=YREG_$SYNCVMLC(I,1)+WTONGUE_$SYNCVMLC(2);
YREG_$SYNCVMLC(I,3)=YREG_$SYNCVMLC(I,2)+LEAFWIDTH_$SYNCVMLC(2)-
WRAILBOT_$SYNCVMLC(2);
YREG_$SYNCVMLC(I,4)=YREG_$SYNCVMLC(I,2)+LEAFWIDTH_$SYNCVMLC(2)-
WRAILBOT_$SYNCVMLC(2);
YREG_$SYNCVMLC(I,3)=YREG_$SYNCVMLC(I,2)+LEAFWIDTH_$SYNCVMLC(2)-
WGROOVE_$SYNCVMLC(2)-WTIP_$SYNCVMLC(2);
YREG_$SYNCVMLC(I,5)=YREG_$SYNCVMLC(I,2)+LEAFWIDTH_$SYNCVMLC(2)-
WGROOVE_$SYNCVMLC(2);
YREG_$SYNCVMLC(I,6)=YREG_$SYNCVMLC(I,2)+LEAFWIDTH_$SYNCVMLC(2)-
WRAILBOT_$SYNCVMLC(2)+WRAILTOP_$SYNCVMLC(2);
YREG_$SYNCVMLC(I,6)=YREG_$SYNCVMLC(I,4)+WRAILTOP_$SYNCVMLC(2);
YREG_$SYNCVMLC(I,7)=YREG_$SYNCVMLC(I,2)+LEAFWIDTH_$SYNCVMLC(2);
]
ELSE["isocenter leaf"
Expand Down Expand Up @@ -2209,34 +2207,35 @@ DO L=1,TOT_LEAF_$SYNCVMLC [
"Now define regions containing leaf medium"
DO L=1,TOT_LEAF_$SYNCVMLC[
DO I =2,5 [
DO J = 3,4 [
DO K = 3,7 [
SUBINDEX_$SYNCVMLC(L,I,J,K)=2; "set central section to leaf med"
];
];
IF(LEAFTYPE_$SYNCVMLC(L)=2) ["This is a target leaf"
SUBINDEX_$SYNCVMLC(L,I,1,1)=2;
SUBINDEX_$SYNCVMLC(L,I,1,2)=2;
SUBINDEX_$SYNCVMLC(L,I,1,3)=2;
SUBINDEX_$SYNCVMLC(L,I,1,4)=2;
SUBINDEX_$SYNCVMLC(L,I,1,5)=2;
SUBINDEX_$SYNCVMLC(L,I,2,1)=2;
SUBINDEX_$SYNCVMLC(L,I,2,2)=2;
SUBINDEX_$SYNCVMLC(L,I,2,3)=2;
SUBINDEX_$SYNCVMLC(L,I,2,4)=2;
SUBINDEX_$SYNCVMLC(L,I,2,5)=2;
SUBINDEX_$SYNCVMLC(L,I,2,6)=2;
SUBINDEX_$SYNCVMLC(L,I,2,7)=2;
SUBINDEX_$SYNCVMLC(L,I,3,1)=2;
SUBINDEX_$SYNCVMLC(L,I,3,2)=2;
SUBINDEX_$SYNCVMLC(L,I,3,3)=2;
SUBINDEX_$SYNCVMLC(L,I,3,5)=2;
SUBINDEX_$SYNCVMLC(L,I,3,6)=2;
SUBINDEX_$SYNCVMLC(L,I,3,7)=2;
SUBINDEX_$SYNCVMLC(L,I,3,8)=2;
SUBINDEX_$SYNCVMLC(L,I,4,1)=2;
SUBINDEX_$SYNCVMLC(L,I,4,3)=2;
SUBINDEX_$SYNCVMLC(L,I,4,5)=2;
SUBINDEX_$SYNCVMLC(L,I,4,6)=2;
SUBINDEX_$SYNCVMLC(L,I,4,7)=2;
SUBINDEX_$SYNCVMLC(L,I,4,8)=2;
SUBINDEX_$SYNCVMLC(L,I,5,1)=2;
SUBINDEX_$SYNCVMLC(L,I,5,3)=2;
SUBINDEX_$SYNCVMLC(L,I,5,4)=2;
SUBINDEX_$SYNCVMLC(L,I,5,5)=2;
SUBINDEX_$SYNCVMLC(L,I,5,6)=2;
SUBINDEX_$SYNCVMLC(L,I,6,3)=2;
SUBINDEX_$SYNCVMLC(L,I,6,4)=2;
SUBINDEX_$SYNCVMLC(L,I,6,5)=2;
SUBINDEX_$SYNCVMLC(L,I,6,6)=2;
]
Expand All @@ -2249,6 +2248,16 @@ DO L=1,TOT_LEAF_$SYNCVMLC[
SUBINDEX_$SYNCVMLC(L,I,2,5)=2;
SUBINDEX_$SYNCVMLC(L,I,2,6)=2;
SUBINDEX_$SYNCVMLC(L,I,2,7)=2;
SUBINDEX_$SYNCVMLC(L,I,3,3)=2;
SUBINDEX_$SYNCVMLC(L,I,3,4)=2;
SUBINDEX_$SYNCVMLC(L,I,3,5)=2;
SUBINDEX_$SYNCVMLC(L,I,3,6)=2;
SUBINDEX_$SYNCVMLC(L,I,3,7)=2;
SUBINDEX_$SYNCVMLC(L,I,4,3)=2;
SUBINDEX_$SYNCVMLC(L,I,4,4)=2;
SUBINDEX_$SYNCVMLC(L,I,4,5)=2;
SUBINDEX_$SYNCVMLC(L,I,4,6)=2;
SUBINDEX_$SYNCVMLC(L,I,4,7)=2;
SUBINDEX_$SYNCVMLC(L,I,4,9)=2;
SUBINDEX_$SYNCVMLC(L,I,5,3)=2;
SUBINDEX_$SYNCVMLC(L,I,5,4)=2;
Expand All @@ -2266,31 +2275,35 @@ DO L=1,TOT_LEAF_$SYNCVMLC[
ELSE[ "This is an isocenter leaf"
SUBINDEX_$SYNCVMLC(L,I,1,4)=2;
SUBINDEX_$SYNCVMLC(L,I,1,5)=2;
SUBINDEX_$SYNCVMLC(L,I,1,6)=2;
SUBINDEX_$SYNCVMLC(L,I,1,7)=2;
SUBINDEX_$SYNCVMLC(L,I,2,4)=2;
SUBINDEX_$SYNCVMLC(L,I,2,5)=2;
SUBINDEX_$SYNCVMLC(L,I,2,6)=2;
SUBINDEX_$SYNCVMLC(L,I,2,7)=2;
SUBINDEX_$SYNCVMLC(L,I,2,9)=2;
SUBINDEX_$SYNCVMLC(L,I,3,2)=2;
SUBINDEX_$SYNCVMLC(L,I,3,3)=2;
SUBINDEX_$SYNCVMLC(L,I,3,4)=2;
SUBINDEX_$SYNCVMLC(L,I,3,5)=2;
SUBINDEX_$SYNCVMLC(L,I,3,7)=2;
SUBINDEX_$SYNCVMLC(L,I,3,9)=2;
SUBINDEX_$SYNCVMLC(L,I,4,3)=2;
SUBINDEX_$SYNCVMLC(L,I,4,4)=2;
SUBINDEX_$SYNCVMLC(L,I,4,5)=2;
SUBINDEX_$SYNCVMLC(L,I,4,7)=2;
SUBINDEX_$SYNCVMLC(L,I,4,9)=2;
SUBINDEX_$SYNCVMLC(L,I,5,3)=2;
SUBINDEX_$SYNCVMLC(L,I,5,4)=2;
SUBINDEX_$SYNCVMLC(L,I,5,5)=2;
SUBINDEX_$SYNCVMLC(L,I,5,6)=2;
SUBINDEX_$SYNCVMLC(L,I,5,7)=2;
SUBINDEX_$SYNCVMLC(L,I,5,8)=2;
SUBINDEX_$SYNCVMLC(L,I,5,9)=2;
SUBINDEX_$SYNCVMLC(L,I,6,5)=2;
SUBINDEX_$SYNCVMLC(L,I,6,6)=2;
SUBINDEX_$SYNCVMLC(L,I,6,7)=2;
SUBINDEX_$SYNCVMLC(L,I,6,8)=2;
SUBINDEX_$SYNCVMLC(L,I,6,9)=2;
];
];
"Now set driving screw hole to air"
"Now set driving screw hole medium"
DO J=1,6 [
IF(LEAFTYPE_$SYNCVMLC(L)=2) ["target leaf"
SUBINDEX_$SYNCVMLC(L,2,J,4)=3;
Expand Down
Loading