home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 August / augusty_2000.iso / Windows-CE / Applications / basice / GR_XAXIS.UTL < prev    next >
Encoding:
Text File  |  1997-07-08  |  589 b   |  31 lines
  1. procedure gr_xaxis(min#,max#,tick#,minticks%,pos#,below%,above%)
  2.   utmp# = tick#/minticks%
  3.   ux# = min#
  4.   up% = 0
  5.   u1% = below%/2
  6.   u2% = above%/2
  7.   tickcnt% = 0
  8.   loop
  9.  
  10.     call gr_plot(ux#,pos#,up%)
  11.     up%=1
  12.  
  13.     if tickcnt% = 0 then
  14.       call line(gr_curx%,gr_cury%-above%,gr_curx%,gr_cury%+below%)
  15.       else
  16.       call line(gr_curx%,gr_cury%-u2%,gr_curx%,gr_cury%+u1%)
  17.       endif
  18.  
  19.     ux#=ux#+utmp#
  20.  
  21.     tickcnt% = tickcnt%+1
  22.     if tickcnt% = minticks% then
  23.        tickcnt% = 0
  24.        endif
  25.  
  26.     while ux# < (max# + utmp#/2)
  27.  
  28.     endloop
  29.  
  30.   endproc
  31.