2019-11-12 06:00 AM
for _iComp = 1 to _nComponentsT
if _bShowPart[_iComp] then
dim _currSurfaces[]
n = REQUEST{3} ("Profile_component_info", myProfileIdxT, _iComp, "gs_profile_comp_surfaces", _currSurfaces)
_bmat = 1
_surface = 1
_pen = 1
n = REQUEST{3} ("Profile_component_info", myProfileIdxT, _iComp, "gs_profile_bmat", _bmat)
n = REQUEST{3} ("Profile_component_info", myProfileIdxT, _iComp, "gs_profile_surface", _surface)
n = REQUEST{3} ("Profile_component_info", myProfileIdxT, _iComp, "gs_profile_outlinepen", _pen)
building_material _bmat
pen _pen
_surfIdx = 1
for _i = _contStartPointsT[_iComp] to _contEndPointsT[_iComp] step 5
put _profileGeometryRawDataT[_i],
_profileGeometryRawDataT[_i + 1],
!0, ! angle of sides from the perpendicular plane
_profileGeometryRawDataT[_i + 2] * 15 + not(_profileGeometryRawDataT[_i + 3]) * 64 + _profileGeometryRawDataT[_i + 4],
!_currSurfaces[_surfIdx]
_surfIdx = _surfIdx + 1
next _i
Poly2_b NSP/3, 15,
gs_fill_pen2, gs_back_pen2,
get(NSP)
endif
next _iComp
x1, y1, alpha1, s1, mat1, ... xn, yn, alphan, sn, matn
| AC22-28 AUS 3110 | Help Those Help You - Add a Signature |
| Self-taught, bend it till it breaks | Creating a Thread |
| Win11 | i9 10850K | 64GB | RX6600 | Win11 | R5 2600 | 16GB | GTX1660 |