home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsc / charts / !Tabellen / RiscOS2 / Redraw < prev   
Encoding:
Text File  |  1995-12-22  |  1.4 KB  |  2 lines
  1.  
  2. X*Ý òredraw : ô *** Redraw - Routine ***
  3. b!ê waox%,waoy%,lx%,rx%,uy%,oy%
  4. l0ê fs%,fe%,sff%,efl%,fields%,h1%,h2%,k%,ypos%
  5. v#ç rdy% > 50 … òerror(Ãrdy%) : à
  6. €@waox% = block%!4 - block%!20 : waoy% = block%!16 - block%!24
  7. ⇩1lx% = block%!28-waox% : rx% = block%!36-waox%
  8. “1uy% = block%!32-waoy% : oy% = block%!40-waoy%
  9. fi5ç anzeige% = 2 … fields% = 50 ⇧ fields% = sp_max%
  10. ¨h2% = 40+fields%*25
  11. ²!È− "Wimp_SetFontColours",,0,7
  12. ¼ç -oy% <= 50 …
  13. Æ"   È− "Font_SetFont",fbhandle%
  14. Ð3   È− "Font_Paint",,lig_name$,16,waox%,waoy%-40
  15. ÚÍ
  16. äfs% = (-oy%-50) Ŵ h2%
  17. îç fs% < 0 …
  18. ø   fs% = 0 : sff% = 0
  19. (Ì sff% = ((-oy%-50) ◰ h2% - 40) Ŵ 25
  20.       ç sff% < 0 … sff% = 0
  21. Í
  22.  fe% = (-uy%-50) Ŵ h2%
  23. *)efl% = ((-uy%-50) ◰ h2% -40) Ŵ 25 + 1
  24. 4i% = fs% : j% = sff%
  25. >%È” (i%<fe%) ☓ (i%=fe% € j%<=efl%)
  26. H   h1% = i%*(fields%+1)
  27. R    ç j% = 0 € h1% < rdy%-1 …
  28. \$     È− "Font_SetFont",fbhandle%
  29. fI     È− "Font_Paint",,red$(h1%,0),16,waox%+rpos%(0),waoy%-80-i%*(h2%)
  30. pI     È− "Font_Paint",,red$(h1%,4),16,waox%+rpos%(4),waoy%-80-i%*(h2%)
  31. z     j% += 1
  32. ☓   Í
  33. ‰"   È− "Font_SetFont",fshandle%
  34. —+   È” j%<=fields% ☓ (i%=fe% € j%<=efl%)
  35. ¢(     ypos% = waoy%-80-i%*(h2%)-j%*25
  36. ¬     ç h1%+j% < rdy% …
  37. ¶      ã k% = 0 ¸ rdx%
  38. À0       ç rpos%(k%)<rx% € rpos%(k%+1) > lx% …
  39. ÊF         È− "Font_Paint",,red$(h1%+j%,k%),16,waox%+rpos%(k%),ypos%
  40. Ô        Í
  41. Þ      í k%
  42. è
  43.      Í
  44. ò     j% += 1
  45. ü   Î
  46.    j% = 0 : i% += 1
  47. Î
  48. á
  49. $
  50. ÿ