You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
59 lines
1.3 KiB
59 lines
1.3 KiB
2 years ago
|
C Copyright(C) 1999-2020 National Technology & Engineering Solutions
|
||
|
|
C of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
|
||
|
|
C NTESS, the U.S. Government retains certain rights in this software.
|
||
|
|
C
|
||
|
|
C See packages/seacas/LICENSE for details
|
||
|
|
|
||
|
|
SUBROUTINE PUTCRS (X, Y, OLDCUR)
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
C SUBROUTINE PUTCRS = PLACES THE CROSSHAIRS AT THE CURRENT LOCATION
|
||
|
|
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
DIMENSION IDUM(2)
|
||
|
|
|
||
|
|
LOGICAL OLDCUR
|
||
|
|
|
||
|
|
CHARACTER DUMMY*16
|
||
|
|
|
||
|
|
C SELECT DECIMAL MODE
|
||
|
|
|
||
|
|
DUMMY = CHAR(27)
|
||
|
|
DUMMY(2:4) = 'OR1'
|
||
|
|
WRITE(*,*)DUMMY
|
||
|
|
|
||
|
|
C PLACE THE CROSSHAIRS AT THE RIGHT LOCATION
|
||
|
|
|
||
|
|
CALL MP2PT(1, X, Y, X1, Y1, IDUM)
|
||
|
|
IX = INT(X1*4151.)
|
||
|
|
IY = INT(Y1*4151.)
|
||
|
|
DUMMY(1:1) = CHAR(27)
|
||
|
|
DUMMY(2:2) = 'P'
|
||
|
|
WRITE(DUMMY(3:8), '(I6)')IX
|
||
|
|
DUMMY(9:9) = ','
|
||
|
|
WRITE(DUMMY(10:15), '(I6)')IY
|
||
|
|
DUMMY(16:16) = ','
|
||
|
|
WRITE(*,*)DUMMY
|
||
|
|
|
||
|
|
C DESELECT DECIMAL MODE
|
||
|
|
|
||
|
|
DUMMY = CHAR(27)
|
||
|
|
DUMMY(2:4) = 'OR0'
|
||
|
|
WRITE(*,*)DUMMY
|
||
|
|
|
||
|
|
IF(.NOT.OLDCUR)THEN
|
||
|
|
|
||
|
|
C ACTIVATE THE CROSSHAIRS
|
||
|
|
|
||
|
|
DUMMY = CHAR(27)
|
||
|
|
DUMMY(2:3) = 'G1'
|
||
|
|
WRITE(*,*)DUMMY
|
||
|
|
OLDCUR = .TRUE.
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
WRITE(*, '(A)')' '//CHAR(27)//'[2J'
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
END
|