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