3D Script:
hintemp=STRSUB(hinSeq,g,1)
IF hintemp='o' THEN hintemp='O'
IF hintemp='O' THEN
ADDy sashB
ROTx opng
ADDy -sashB
ENDIF
!!casement
IF french_yn=0 THEN
hinTemp=STRSUB(hinSeq,g,1)
IF hinTemp='r' THEN hinTemp='R'
IF hinTemp='l' THEN hinTemp='L'
IF hinTemp='s' THEN hinTemp='S'
IF hinTemp='L' THEN
ADDx sashA
MULx -1
ROTy open3
ENDIF
IF hinTemp='R' THEN
ADDx 0
MULx 1
ROTy open3
ENDIF
IF hinTemp#'R' & hinTemp#'L' THEN !S or other
hinDsp=0
ADDx 0!-sashA*0.5
MULx 1
ROTy 0
ENDIF
ELSE !!french
IF hinTemp='L' THEN
ROTy open3
ENDIF
IF hinTemp='R' THEN
ROTy open3
ENDIF
ENDIF
Parameter Script:
!hinge parsing<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
IF unitQ=1 THEN
VALUES 'hinSeq' 'O', 'S'
'Note: O=Operable, S=Stationary'
ENDIF
IF unitQ=2 THEN
VALUES 'hinSeq' CUSTOM, 'OO', 'SS',
'Note: O=Operable, S=Stationary'
ENDIF
IF unitQ=3 THEN
VALUES 'hinSeq' CUSTOM, 'OOO', 'SSS',
'Note: O=Operable, S=Stationary'
ENDIF
IF unitQ=4 THEN
VALUES 'hinSeq' CUSTOM, 'OOOO', 'SSSS',
'Note: O=Operable, S=Stationary'
ENDIF
IF unitQ=5 THEN
VALUES 'hinSeq' CUSTOM, 'OOOOO', 'SSSSS',
'Note: O=Operable, S=Stationary'
ENDIF
IF unitQ>5 THEN
sixText='O'
FOR k=1 TO unitQ-1
sixText=sixText+'O'
NEXT k
VALUES 'hinSeq' CUSTOM, sixText,
'Note: O=Operable, S=Stationary'
ENDIF
!!casement
!hinge parsing<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
IF french_yn=1 THEN
IF unitQ=1 THEN
VALUES 'hinSeq' 'LR', 'S'
ENDIF
IF unitQ=2 THEN
VALUES 'hinSeq' 'LRLR', 'SS'
ENDIF
IF unitQ=3 THEN
VALUES 'hinSeq' 'LRLRLR', 'SSS'
ENDIF
IF unitQ>3 THEN
VALUES 'hinSeq' CUSTOM
ENDIF
ELSE !not french
IF unitQ=1 THEN
VALUES 'hinSeq' 'L', 'S', 'R',
'Note: L=Left, S=Stationary, R=Right'
ENDIF
IF unitQ=2 THEN
VALUES 'hinSeq' CUSTOM, 'LR', 'SS',
'Note: L=Left, S=Stationary, R=Right'
ENDIF
IF unitQ=3 THEN
VALUES 'hinSeq' CUSTOM, 'LSR', 'SSS',
'Note: L=Left, S=Stationary, R=Right'
ENDIF
IF unitQ=4 THEN
VALUES 'hinSeq' CUSTOM, 'LSSR', 'LLRR', 'SSSS',
'Note: L=Left, S=Stationary, R=Right'
ENDIF
IF unitQ=5 THEN
VALUES 'hinSeq' CUSTOM, 'LSSSR', 'LLSRR', 'SSSSS',
'Note: L=Left, S=Stationary, R=Right'
ENDIF
IF unitQ>5 THEN
sixText='L'
FOR k=1 TO unitQ-2
sixText=sixText+'S'
NEXT k
sixText=sixText+'R'
VALUES 'hinSeq' CUSTOM, sixText,
'Note: L=Left, S=Stationary, R=Right'
ENDIF
ENDIF