17 lines
855 B
OpenEdge ABL
17 lines
855 B
OpenEdge ABL
c Experimental cave
|
|
c First largest area: up-stream/down-stream/roof/floor/walls
|
|
c then cut corner and add extended roof
|
|
8701 49 0.074981 ((8709 8710 8701 8703 8706 8707 8708 8709 8710 (8704 : 8705))
|
|
:(8709 8710 8702 8703 8711 8712))
|
|
#((-8809 -8810 -8801 -8803 -8806 -8807 -8808 -8809 -8810
|
|
(-8804 : -8805))
|
|
:(-8809 -8810 -8802 -8803 -8811 -8812)
|
|
:(-8311 -8312 8709 8809 -8313 -8803))
|
|
#(( 72 -8101 8201 8202 8203 8204 3)
|
|
:(8101 -8709 8301 8302 8303 8304 3))
|
|
8702 4 -1.2E-3 ((-8809 -8810 -8801 -8803 -8806 -8807 -8808 -8809 -8810
|
|
(-8804 : -8805))
|
|
:(-8809 -8810 -8802 -8803 -8811 -8812)
|
|
:(-8311 -8312 8709 8809 -8313 -8803)) 3
|
|
#6111 #8501 #8511
|