stl: [ solid pos: ['facet :pos | word!] some facet 'endsolid to end ] facet: [ 'facet 'normal triple 'outer 'loop 'vertex triple 'vertex triple 'vertex triple 'endloop 'endfacet ( ;if (tri-count // 1000) = 0 [ if verbose [prin "."] ;set-face info-text append get-face info-text "#" ;set-face info-text rejoin ["" to-integer tri-count / poly_count * 33 "%"] ] tri-count: tri-count + 1 ) ] triple: [copy point 3 number!]
solid facet normal 1 0 0 outer loop vertex 10 0 0 vertex 10 10 0 vertex 10 10 8 endloop endfacet facet normal 1 -0 0 outer loop vertex 10 0 8 vertex 10 0 0 vertex 10 10 8 endloop endfacet endsolid
verbose. Add these words to grammar.
logic!values, and also functions and objects you add to grammar are not shown on canvas to not clutter the picture, because these are helpers)
stlrule input needs to include
endsolidbut it does not. Add this.
On Win 7 in v.1.2.2 same sudden crash as before but now with a bit different process. Do what @toomasv did to make things work except simply comment this line:
tri-count: tri-count + 1
then go to this line
'solid pos: ['facet :pos | word!]
and starting from the end of the line erase with backspace
:pos | word!], then starting from just after the
[ erase with backspace until...crash.