diff options
Diffstat (limited to 'project/scripts/kcl/remove-face-down-roads.txt')
| -rw-r--r-- | project/scripts/kcl/remove-face-down-roads.txt | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/project/scripts/kcl/remove-face-down-roads.txt b/project/scripts/kcl/remove-face-down-roads.txt new file mode 100644 index 0000000..e21bddf --- /dev/null +++ b/project/scripts/kcl/remove-face-down-roads.txt @@ -0,0 +1,20 @@ + +#--- remove face down roads + +@def start = mSec() # start time, for the status line +@def rm_count = 0 # reset status counter + +@for t=0; tri$n()-1 # for each tirangle (index 0 based) + @pdef type = tri$flag(t) & 0x1f # get the KCL type + @if kcl$drive & (1<<type) # if it is a drivable KCL type + @def norm = tri$normal(t,0) # get the first normal + @if norm.y < 0 # if it is face down + @def stat = tri$remove(t) # remove the triangle + @def rm_count = rm_count + 1 # incremtent the counter + @endif # endif + @endif # endif +@endfor + +# print out a summary line +@echo " - " rm_count " face down road triangles removed in " (mSec()-start) " msec." + |