home *** CD-ROM | disk | FTP | other *** search
/ Windoware / WINDOWARE_1_6.iso / source / f4w3api / f4w3api.kit / WINDEV / FORTRAN / FWCLOCK / DRAWSECO.FOR < prev    next >
Text File  |  1991-11-09  |  635b  |  27 lines
  1. $DEFINE GDI
  2. $DEFINE USER
  3.       INCLUDE 'WINDOWS.FI'
  4.       SUBROUTINE DRAW_SECONDHAND
  5.       IMPLICIT NONE
  6. C
  7. C Author       : Kevin B Black
  8. C Date written : 23-Oct-1991
  9. C Abstract     :
  10. C
  11. C DRAW SECOND HAND
  12. C
  13. C Draws second hand from vectors computed during window sizing. The pen
  14. C and ROP mode are set externally.
  15. C
  16. C Variables
  17. C
  18.       INCLUDE 'WINDOWS.FD'
  19.       INCLUDE 'FWCLOCK.FD'
  20. C
  21. C Move to beginning of second hand and draw a line to its tip
  22. C
  23.       WSTATUS=MoveTo(FWCPS.HDC,SHANDV(1,OSECS).X,SHANDV(1,OSECS).Y)
  24.       WSTATUS=LineTo(FWCPS.HDC,SHANDV(2,OSECS).X,SHANDV(2,OSECS).Y)
  25.       RETURN
  26.       END
  27.