FCAP BASIC Pogram Example

REM ** EXAM_09.PRO **

REM 2P OffsetGate & OffsetGateVertices

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

OpenLMFile "", "LM file 4 parameter"
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

rem goto @negativ

OffsetGateVertices "All[FS,SS]", "G1", 1,100
OffsetGateVertices "All[FS,SS]", "G2", 1,500
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)


OffsetGateVertices "All[FS,FL1]", "G1", 2,100
OffsetGateVertices "All[FS,FL1]", "G2", 2,500
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)

OffsetGateVertices "All[FS,FL2]", "G1", 3,100
OffsetGateVertices "All[FS,FL2]", "G2", 3,500
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)

OffsetGateVertices "All[FL1,FL2]", "G1",4,100
OffsetGateVertices "All[FL1,FL2]", "G2",4,500
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

@negativ:

OffsetGateVertices "All[FS,SS]", "G1", 1,-100
OffsetGateVertices "All[FS,SS]", "G2", 1,-500
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)


OffsetGateVertices "All[FS,FL1]", "G1", 2,-100
OffsetGateVertices "All[FS,FL1]", "G2", 2,-500
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)

OffsetGateVertices "All[FS,FL2]", "G1", 3,-100
OffsetGateVertices "All[FS,FL2]", "G2", 3,-500
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)

OffsetGateVertices "All[FL1,FL2]", "G1",4,-100
OffsetGateVertices "All[FL1,FL2]", "G2",4,-500
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