124 lines
6.5 KiB
OpenEdge ABL
124 lines
6.5 KiB
OpenEdge ABL
c UNIVERSES for Selene geometry lattices
|
|
c
|
|
c just for plotting mesh geometry as transformation has bug in plot
|
|
c 300121 0 -250121
|
|
c 300122 0 -250122
|
|
c 300123 0 -250123
|
|
c 300124 0 -250124
|
|
c Selene Guide carrier with repeating structure
|
|
300000 0 -300001 U=1 fill=-1:15 0:0 0:0 3 2 14r 3 lat=1
|
|
300001 0 -300011 300013 -300015 -300202
|
|
#300201 #300203
|
|
#300211 #300212 #300213 #300214 #300215 #300216 U=2
|
|
300002 0 -300011 300013 -300015 300205
|
|
#300202 #300204
|
|
#300221 #300222 #300223 #300224 #300225 #300226 U=2
|
|
300003 0 -300011 300013 -300015 300202 -300205
|
|
#300231 #300232 #300233 #300234 U=2
|
|
300004 0 -300011 300013 -300015 U=3
|
|
300005 18 -2.4 (300012:-300014:300016) 300017 U=3
|
|
300006 3 0.0876276 (-300012 300014 -300016)
|
|
(300011:-300013:300015) U=3
|
|
300007 3 0.0876276 -300017 300012 U=3
|
|
300008 3 0.0876276 -300017 -300014 U=3
|
|
300011 18 -2.4 (300012:-300014:300016) 300017
|
|
(300111 300112 300113 300114 300115 300116
|
|
300121 300122 300123 300124 300125 300126) U=2
|
|
300012 3 0.0876276 (-300012 300014 -300016)
|
|
(300011:-300013:300015)
|
|
(300111 300112 300113 300114 300115 300116
|
|
300121 300122 300123 300124 300125 300126) U=2
|
|
300013 3 0.0876276 -300017 300012 U=2
|
|
300014 3 0.0876276 -300017 -300014 U=2
|
|
c cyllinder holes and insets
|
|
300111 0 300015 -300101 300151 -300131 U=2
|
|
300112 0 300015 -300101 300152 -300132 U=2
|
|
300113 0 300015 -300101 300153 300154 (-300133:-300134) U=2
|
|
300115 0 300015 -300101 300155 -300135 U=2
|
|
300116 0 300015 -300101 300156 -300136 U=2
|
|
300121 0 300015 -300101 300161 300162 (-300141:-300142) U=2
|
|
300123 0 300015 -300101 300163 300164 (-300143:-300144) U=2
|
|
300125 0 300015 -300101 300165 300166 (-300145:-300146) U=2
|
|
300131 3 0.0876276 300015 300131 -300111 U=2
|
|
300132 3 0.0876276 300015 300132 -300112 U=2
|
|
300133 3 0.0876276 300015 300133 300134 (-300113:-300114) U=2
|
|
300135 3 0.0876276 300015 300135 -300115 U=2
|
|
300136 3 0.0876276 300015 300136 -300116 U=2
|
|
300141 3 0.0876276 300015 300141 300142 (-300121:-300122) U=2
|
|
300143 3 0.0876276 300015 300143 300144 (-300123:-300124) U=2
|
|
300145 3 0.0876276 300015 300145 300146 (-300125:-300126) U=2
|
|
300151 3 0.0876276 300015 -300101 -300151 U=2
|
|
300152 3 0.0876276 300015 -300101 -300152 U=2
|
|
300153 3 0.0876276 300015 -300101 -300153 U=2
|
|
300154 3 0.0876276 300015 -300101 -300154 U=2
|
|
300155 3 0.0876276 300015 -300101 -300155 U=2
|
|
300156 3 0.0876276 300015 -300101 -300156 U=2
|
|
300161 3 0.0876276 300015 -300101 -300161 U=2
|
|
300162 3 0.0876276 300015 -300101 -300162 U=2
|
|
300163 3 0.0876276 300015 -300101 -300163 U=2
|
|
300164 3 0.0876276 300015 -300101 -300164 U=2
|
|
300165 3 0.0876276 300015 -300101 -300165 U=2
|
|
300166 3 0.0876276 300015 -300101 -300166 U=2
|
|
300171 3 0.0876276 300101 -300131 U=2
|
|
300172 3 0.0876276 300101 -300132 U=2
|
|
300173 3 0.0876276 300101 (-300133:-300134) U=2
|
|
300175 3 0.0876276 300101 -300135 U=2
|
|
300176 3 0.0876276 300101 -300136 U=2
|
|
300181 3 0.0876276 300101 (-300141:-300142) U=2
|
|
300183 3 0.0876276 300101 (-300143:-300144) U=2
|
|
300185 3 0.0876276 300101 (-300145:-300146) U=2
|
|
c aluminum adjuster blocks vertical
|
|
300201 5 0.0582256 300013 -300243 -300202 -300251 300253 U=2
|
|
300202 5 0.0582256 300013 -300243 300205 -300251 300254
|
|
#(300244 -300252) U=2
|
|
300203 5 0.0582256 -300011 300241 -300202 -300251 300253 U=2
|
|
300204 5 0.0582256 -300011 300241 300205 -300251 300254
|
|
#(-300242 -300252) U=2
|
|
c aluminum adjuster blocks vertical
|
|
300211 5 0.0582256 -300015 300250 -300202 300211 -300212 U=2
|
|
300212 5 0.0582256 -300015 300250 -300202 300213 -300214 U=2
|
|
300213 5 0.0582256 -300015 300250 -300202 300217 -300218 U=2
|
|
300214 5 0.0582256 -300015 300250 -300202 -300221 300222 U=2
|
|
300215 5 0.0582256 -300015 300250 -300202 -300223 300224 U=2
|
|
300216 5 0.0582256 -300015 300250 -300202 -300227 300228 U=2
|
|
300221 5 0.0582256 -300015 300250 300205 300211 -300212 U=2
|
|
300222 5 0.0582256 -300015 300250 300205 300215 -300216 U=2
|
|
300223 5 0.0582256 -300015 300250 300205 300217 -300218 U=2
|
|
300224 5 0.0582256 -300015 300250 300205 -300221 300222 U=2
|
|
300225 5 0.0582256 -300015 300250 300205 -300225 300226 U=2
|
|
300226 5 0.0582256 -300015 300250 300205 -300227 300228 U=2
|
|
c pushers in center of horizontal mirrors
|
|
300231 5 0.0582256 300203 -300204 -300011 300231 300257 -300255 U=2
|
|
300232 5 0.0582256 300203 -300204 -300231 300232 300257 -300256 U=2
|
|
300233 5 0.0582256 300203 -300204 300013 -300233 300257 -300255 U=2
|
|
300234 5 0.0582256 300203 -300204 300233 -300234 300257 -300256 U=2
|
|
c Strengthening elements for Selene vacuum tanks
|
|
400000 0 -400001 U=11 fill=-1:15 0:0 0:0 13 3r 12 12r lat=1
|
|
400001 4 -1.2E-3 -400003 U=12
|
|
400002 3 0.0876276 400003 -400004 U=12
|
|
400003 4 -1.2E-3 400004 -400005 -400007 U=12
|
|
400004 3 0.0876276 400004 -400005 400007 U=12
|
|
400005 3 0.0876276 400005 -400006 U=12
|
|
400006 4 -1.2E-3 400006 U=12
|
|
400011 31 -1.70 -400003 U=13
|
|
400012 3 0.0876276 400003 -400004 U=13
|
|
400013 4 -1.2E-3 400004 -400005 -400007 U=13
|
|
400014 3 0.0876276 400004 -400005 400007 U=13
|
|
400015 3 0.0876276 400005 -400006 U=13
|
|
400016 31 -1.70 400006 U=13
|
|
400020 0 -400001 U=14 fill=-1:15 0:0 0:0 12 12r 13 3r lat=1
|
|
c Remote handling flange with local coordinate system,
|
|
c has to be moved and rotated when filling universe and includes
|
|
c surrounding air and internal vacuum tube.
|
|
500000 0 -500011 U=50 $ in vacuum
|
|
500001 604 -7.90 500011 -500012 U=50 $ vacuum tube
|
|
500002 4 -1.2E-3 -500001 500012 500021 -500022 500023 -500024 U=50
|
|
500003 603 -2.71 500001 -500002 500012 500021 -500022 500023 -500024 U=50
|
|
500004 4 -1.2E-3 500002 -500003 500013 500021 -500022 500023 -500024 U=50
|
|
500005 603 -2.71 500003 -500004 500012 500021 -500022 500023 -500024 U=50
|
|
500006 4 -1.2E-3 500004 -500005 500012 500021 -500022 500023 -500024 U=50
|
|
500007 603 -2.71 500005 -500006 500012 500021 -500022 500023 -500024 U=50
|
|
500008 4 -1.2E-3 500006 500012 500021 -500022 500023 -500024 U=50
|
|
500009 603 -2.71 500002 -500003 500012 -500013 U=50
|
|
500010 4 -1.2E-3 (-500021:500022:-500023:500024) U=50
|