FCAP BASIC Pogram Example

REM ** EXAM_04.PRO **

REM 1P ResizeGate

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 )
NewGate "All[FL1]", "G2", Magenta, (500,1000 )
Classify
ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP

print:print "_______________"
print "Start: ";GateEventNum ("All[FL1]", "G1")
PasteonPage "All[FL1]"
  ReSizeGate "All[FL1]", "G1", 120
  print "ReSize 120%: ";GateEventNum ("All[FL1]", "G1")
  ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP
  PasteonPage "All[FL1]"
ResizeGate "All[FL1]", "G2", 20
print "ReSize 20%: ";GateEventNum ("All[FL1]", "G2")
ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP
PasteOnPage "All[FL1]"

print:print "_______________"

Classify
ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP

Click here to Download FCAP BASIC Examples

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