FCAP BASIC Pogram Example

REM ** EXAM_03.PRO **

REM 1P OfFsetGate, OffsetGateVertices

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

OpenLMFile "", "LM file (4 parameters)"
NewHgr 3, "All[FL1]" of All
NewGate "All[FL1]", "G1", Blue, (300,500 )
Classify
ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP


print:print "_______________"
print "OGV elott: ";GateEventNum ("All[FL1]", "G1")
PasteOnPage "All[FL1]"

goto @OGV1m200

@OGV1200:
  OffsetGateVertices "All[FL1]", "G1", 2,200
  print "OGV 200: ";GateEventNum ("All[FL1]", "G1")
  ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP
  PasteOnPage "All[FL1]"
NewGate "All[FL1]", "G2", Red, (300,500 )
rem jobboldalt felviszi, (300,700)-ra
end

@OGV1700:
OffsetGateVertices "All[FL1]", "G1",2,700
print "OGV 700: ";GateEventNum ("All[FL1]", "G1")
ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP
PasteOnPage "All[FL1]"
NewGate "All[FL1]", "G2", Red, (300,500 )
rem jobboldatlt felviszi, (300,1200)-ra
end

@OGV1m200:
  OffsetGateVertices "All[FL1]", "G1",2,-200
  print "OGV -200: ";GateEventNum ("All[FL1]", "G1")
  ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP
  PasteOnPage "All[FL1]"
NewGate "All[FL1]", "G2", Red, (300,500 )
end

@OGV1m400:
OffsetGateVertices "All[FL1]", "G1", 2,-400
print "OGV -400: ";GateEventNum ("All[FL1]", "G1")
ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP
PasteOnPage "All[FL1]"
NewGate "All[FL1]", "G2", Red, (300,500 )
end

@OGV0200:
  OffsetGateVertices "All[FL1]", "G1", 1,200
  print "OGV 200: ";GateEventNum ("All[FL1]", "G1")
  ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP
  PasteOnPage "All[FL1]"
NewGate "All[FL1]", "G2", Red, (300,500 )
end

@OGV0400:
OffsetGateVertices "All[FL1]", "G1",1,400
print "OGV 400: ";GateEventNum ("All[FL1]", "G1")
ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP
PasteOnPage "All[FL1]"
NewGate "All[FL1]", "G2", Red, (300,500 )
end

@OGV0m200:
  OffsetGateVertices "All[FL1]", "G1",1,-200
  print "OGV -200: ";GateEventNum ("All[FL1]", "G1")
  ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP
  PasteOnPage "All[FL1]"
NewGate "All[FL1]", "G2", Red, (300,500 )
end

@OGV2m400:
OffsetGateVertices "All[FL1]", "G1", 2,-400
print "OGV -400: ";GateEventNum ("All[FL1]", "G1")
ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP
PasteOnPage "All[FL1]"
NewGate "All[FL1]", "G2", Red, (300,500 )
end

@OG250:
print:print "_______________"
print "Start: ";GateEventNum ("All[FL1]", "G1")
PasteOnPage "All[FL1]"
  OffsetGate "All[FL1]", "G1", 250
  print "Offset 250: ";GateEventNum ("All[FL1]", "G1")
  ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP
  PasteOnPage "All[FL1]"
NewGate "All[FL1]", "G1", Red, (300,500 )
end

@OG700:
print:print "_______________"
print "Start: ";GateEventNum ("All[FL1]", "G1")
PasteOnPage "All[FL1]"
  OffsetGate "All[FL1]", "G1", 700
  print "Offset 700: ";GateEventNum ("All[FL1]", "G1")
  ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP
  PasteOnPage "All[FL1]"
NewGate "All[FL1]", "G1", Red, (300,500 )
end

@OGm250:
OffsetGate "All[FL1]", "G1", -250
print "Offset -250: ";GateEventNum ("All[FL1]", "G1")
ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP
PasteOnPage "All[FL1]"
NewGate "All[FL1]", "G2", Red, (300,500 )
end

@OGm350:
OffsetGate "All[FL1]", "G1", -350
print "Offset -350: ";GateEventNum ("All[FL1]", "G1")
ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP
PasteOnPage "All[FL1]"
NewGate "All[FL1]", "G2", Red, (300,500 )
end

Click here to Download FCAP BASIC Examples

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