FCAP BASIC Pogram Example

REM ** EXAM_07.PRO **

REM 2P OffsetGate & OffsetGateVertices

SetFileTypes ListModeFile, "FCLM", "TEXT", "SFWF"
SelectFile ListModeFile, "LM file 4 par"

OpenLMFile "", "LM file 4 par"
NewHgr 1, 2, "All[FS,SS]" of All
NewHgr 1, 3, "All[FS,FL1]" of All
NewHgr 1, 4, "All[FS,FL2]" of All
NewHgr 3, 4, "All[FL1,FL2]" of All

NewGate "All[FS,SS]", "G1", Red, ( 200,50; 600,70; 500,250; 300,300; 200,50 )
NewGate "All[FS,SS]","G2",Green,(200,750; 100,350; 500,450;450,650;200,750)

NewGate "All[FS,FL1]","G1", Red, ( 200,50; 600,70; 500,250; 300,300; 200,50 )
NewGate "All[FS,FL1]","G2",Green,(200,750; 100,350; 500,450;450,650;200,750)

NewGate "All[FS,FL2]","G1", Red, ( 200,50; 600,70; 500,250; 300,300; 200,50 )
NewGate "All[FS,FL2]","G2",Green,(200,750; 100,350; 500,450;450,650;200,750)

NewGate "All[FL1,FL2]","G1", Red, (200,50; 600,70; 500,250; 300,300; 200,50 )
NewGate "All[FL1,FL2]","G2",Green,(200,750; 100,350; 500,450;450,650;200,750)

Classify
ShowHgr "All[FL1,FL2]", 0.7, 5.3, 33.3, 33.3, DP
ShowHgr "All[FS,FL2]", 34.6, 5.3, 33.3, 33.3, DP
ShowHgr "All[FS,FL1]", 0.7, 41.3, 33.3, 33.3, DP
ShowHgr "All[FS,SS]", 34.6, 41.3, 33.3, 33.3, DP
print "*"
OffsetGate "All[FS,SS]", "G1", 50,100
OffsetGate "All[FS,SS]", "G2", -50,300
NewGate "All[FS,SS]", "G3",Blue, ( 200,50; 600,70; 500,250; 300,300; 200,50)
NewGate "All[FS,SS]","G4",Cyan,(200,750; 100,350; 500,450;450,650;200,750)


OffsetGate "All[FS,FL1]", "G1", 500,100
OffsetGate "All[FS,FL1]", "G2", -300,100
NewGate "All[FS,FL1]","G3",Blue, ( 200,50; 600,70; 500,250; 300,300; 200,50 )
NewGate "All[FS,FL1]","G4",Cyan,(200,750; 100,350; 500,450;450,650;200,750)

OffsetGate "All[FS,FL2]", "G1", -200,300
OffsetGate "All[FS,FL2]", "G2", -300,-50
NewGate "All[FS,FL2]","G3",Blue,( 200,50; 600,70; 500,250; 300,300; 200,50 )
NewGate "All[FS,FL2]","G4",Cyan,(200,750; 100,350; 500,450;450,650;200,750)


OffsetGate "All[FL1,FL2]", "G1", 0,300
OffsetGate "All[FL1,FL2]", "G2", 200,0
NewGate "All[FL1,FL2]","G3",Blue,( 200,50; 600,70; 500,250; 300,300; 200,50)
NewGate "All[FL1,FL2]","G4",Cyan,(200,750; 100,350; 500,450;450,650;200,750)

end

Click here to Download FCAP BASIC Examples

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