home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / samples / refch14 / zoomin.rlz < prev   
Encoding:
Text File  |  1992-09-30  |  706 b   |  25 lines
  1. '***********************************************************************
  2. '    ZoomIn.rlz                      
  3. '
  4. '    Realizer Reference Guide : Chapter 14
  5. '
  6. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  7. '    All rights reserved.
  8. '
  9. '***********************************************************************
  10.  
  11. PROC ChartProcZoomIn(params)
  12.     ChartSelect(params[_ItemNum], params[_FormNum])
  13.     SELECT CASE params[_Invoke]
  14.         CASE _Click
  15.             Width = Width / 2
  16.             Pt = ChartQPtInfo(params[_XPos], params[_YPos])
  17.             ChartSetXView(Pt[1] - Width/2, Pt[1] + Width/2)
  18.     END SELECT
  19. END PROC
  20.  
  21. ChartNew(10)
  22. ChartLine(sin(index(360) * (3.1415/180)))
  23. ChartControl(_Show)
  24. ChartSetProc(ChartProcZoomIn)
  25. Width = 360