FCAP BASIC Pogram Example

REM ** EXAM_08.PRO **

REM Miscellaneous FCAP BASIC statements and functions

SetFileTypes ListModeFile, "FCLM", "TEXT", "SFWF"
SelectFile ListModeFile, "LM file (4 parameters)"

OpenLMFile "", "LM file (4 parameters)"

NewHgr 1, 2, "All[FS,SS]" of All

NewGate "All[FS,SS]", "G1", Red, (200,200; 600,250; 650,50; 110,50; 200,200 )
NewGate "All[FS,SS]", "G2", Green, ( 200,300; 500,300; 500,600; 200,600; 200,300 )

Classify
ShowHgr "All[FS,SS]", 0.7, 5.3, 32.6, 32.6, DP

goto @OGV3m100:



@OGV3m100:
OffsetGateVertices "All[FS,SS]", "G1", 3,250
print "OGV 3,300: ";GateEventNum ("All[FS,SS]", "G1")
PasteOnPage "All[FS,SS]"
  OffsetGateVertices "All[FS,SS]", "G1", 3,50
  print "OGV 3,-300: ";GateEventNum ("All[FS,SS]", "G1")
  PasteOnPage "All[FS,SS]"
NewGate "All[FS,SS]", "G3",Cyan, (200,200; 600,250; 650,50; 110,50; 200,200 )
end

@OGV3500:
OffsetGateVertices "All[FS,SS]", "G1", 3,500
print "OGV 3,300: ";GateEventNum ("All[FS,SS]", "G1")
PasteOnPage "All[FS,SS]"
  OffsetGateVertices "All[FS,SS]", "G1", 3,-300
  print "OGV 3,-300: ";GateEventNum ("All[FS,SS]", "G1")
  PasteOnPage "All[FS,SS]"
NewGate "All[FS,SS]", "G3",Cyan, (200,200; 600,250; 650,50; 110,50; 200,200 )
end

@OGV2300:
OffsetGateVertices "All[FS,SS]", "G1", 2,300
print "OGV 2,300: ";GateEventNum ("All[FS,SS]", "G1")
PasteOnPage "All[FS,SS]"
  OffsetGateVertices "All[FS,SS]", "G1", 2,-300
  print "OGV 2,-300: ";GateEventNum ("All[FS,SS]", "G1")
  PasteOnPage "All[FS,SS]"
NewGate "All[FS,SS]", "G3",Cyan, (200,200; 600,250; 650,50; 110,50; 200,200 )
end

@OGV1300:
OffsetGateVertices "All[FS,SS]", "G1", 1,300
print "OGV 1,300: ";GateEventNum ("All[FS,SS]", "G1")
InserOnPaOne "All[FS,SS]"
  OffsetGateVertices "All[FS,SS]", "G1", 1,-300
  print "OGV 1,-300: ";GateEventNum ("All[FS,SS]", "G1")
  PasteOnPage "All[FS,SS]"
NewGate "All[FS,SS]", "G3",Cyan, (200,200; 600,250; 650,50; 110,50; 200,200 )
end

@OG:
print "Start: ";GateEventNum ("All[FS,SS]", "G1")
PasteOnPage "All[FS,SS]"
OffsetGate "All[FS,SS]", "G1", 200,300
print "Offset 200,300: ";GateEventNum ("All[FS,SS]", "G1")
PasteOnPage "All[FS,SS]"
  OffsetGate "All[FS,SS]", "G1", -200,-300
  print "Offset -200,-300: ";GateEventNum ("All[FS,SS]", "G1")
  PasteOnPage "All[FS,SS]"
end

Click here to Download FCAP BASIC Examples

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