FCAP BASIC Pogram Example

REM **  EXAM_01.PRO  **

REM ResizeGate & MoveGate

FS  = 1
SS  = 2
FL1 = 3
FL2 = 4

OpenLMFile "","Open a 4-parameter LM data file"

NewHgr FS,SS,"Original" Of All
NewGate "Original","Gate 1",Red, ( 100,100; 400,150; 150,400 )
NewGate "Original","Gate 2",Green, ( 600,700; 900,700; 900,900; 700,900 )
ShowHgr "Original",1,1,20,20,DP

NewHgr FS,SS,"Moved" Of All
NewGate "Moved","Gate 1",Red, ( 100,100; 400,150; 150,400 )
NewGate "Moved","Gate 2",Green, ( 600,700; 900,700; 900,900; 700,900 )
OffsetGate "Moved","Gate 1", 300,300
OffsetGate "Moved","Gate 2", -400,0
ShowHgr "Moved",22,1,20,20,DP

NewHgr FS,SS,"Resized" Of All
NewGate "Resized","Gate 1",Red, ( 100,100; 400,150; 150,400 )
NewGate "Resized","Gate 2",Green, ( 600,700; 900,700; 900,900; 700,900 )
ResizeGate "Resized","Gate 1", 150
ResizeGate "Resized","Gate 2", 70
ShowHgr "Resized",43,1,20,20,DP

NewHgr FS,SS,"Vertices" Of All
NewGate "Vertices","Gate 1",Red, ( 100,100; 400,150; 150,400 )
NewGate "Vertices","Gate 2",Green, ( 600,700; 900,700; 900,900; 700,900 )
OffsetGateVertices "Vertices","Gate 1",4,300
OffsetGateVertices "Vertices","Gate 2",2,-150
ShowHgr "Vertices",64,1,20,20,DP

End

Click here to Download FCAP BASIC Examples

Click here to Copy FCAP BASIC Examples from this CD-ROM