You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
91 lines
1.9 KiB
Fortran
91 lines
1.9 KiB
Fortran
5 years ago
|
SUBROUTINE SETANGLE
|
||
|
|
!
|
||
|
|
! THIS ROUTINE SETS THE ANGLES FOR 3-F VIEWS
|
||
|
|
!
|
||
|
|
use winteracter
|
||
|
|
! USE BLKV1
|
||
|
|
! USE BLKV2
|
||
|
|
! USE BLK
|
||
|
|
|
||
|
|
USE BLK1MOD
|
||
|
|
! INCLUDE 'BLK1.COM'
|
||
|
|
! INCLUDE 'TXFRM.COM'
|
||
|
|
!-
|
||
|
|
|
||
|
|
include 'D.inc'
|
||
|
|
|
||
|
|
!
|
||
|
|
! Declare window-type and message variables
|
||
|
|
!
|
||
|
|
TYPE(WIN_STYLE) :: WINDOW
|
||
|
|
|
||
|
|
TYPE(WIN_MESSAGE) :: MESSAGE
|
||
|
|
INTEGER :: IERR
|
||
|
|
DATA ITIM/0/
|
||
|
|
|
||
|
|
IF(ITIM .EQ. 0) THEN
|
||
|
|
HANG=0.
|
||
|
|
VANG=90.
|
||
|
|
VRTSCAL=100.0
|
||
|
|
VRTORIG=0.
|
||
|
|
ITIM=1
|
||
|
|
IASPCT=0
|
||
|
|
IASPCTOLD=0
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
VANGOLD=VANG
|
||
|
|
HANGOLD=HANG
|
||
|
|
|
||
|
|
call wdialogload(IDD_VIEWANG)
|
||
|
|
ierr=infoerror(1)
|
||
|
|
|
||
|
|
CALL WDialogSelect(IDD_VIEWANG)
|
||
|
|
ierr=infoerror(1)
|
||
|
|
|
||
|
|
100 continue
|
||
|
|
CALL WDialogPutREAL(IDF_REAL1,HANG)
|
||
|
|
CALL WDialogPutREAL(IDF_REAL2,VANG)
|
||
|
|
CALL WDialogPutREAL(IDF_REAL3,VRTSCAL)
|
||
|
|
CALL WDialogPutREAL(IDF_REAL4,VRTORIG)
|
||
|
|
CALL WDialogPutCheckBox(IDF_check1,IASPCT)
|
||
|
|
|
||
|
|
CALL WDialogShow(-1,-1,0,Modal)
|
||
|
|
ierr=infoerror(1)
|
||
|
|
|
||
|
|
do
|
||
|
|
!
|
||
|
|
IF (WInfoDialog(ExitButton) .EQ. IDOK) THEN
|
||
|
|
|
||
|
|
|
||
|
|
CALL WDialogGetREAL(IDF_REAL1,HANG)
|
||
|
|
CALL WDialogGetREAL(IDF_REAL2,VANG)
|
||
|
|
CALL WDialogGetREAL(IDF_REAL3,VRTSCAL)
|
||
|
|
CALL WDialogGetREAL(IDF_REAL4,VRTORIG)
|
||
|
|
CALL WDialogGetCheckBox(IDF_check1,IASPCT)
|
||
|
|
GO TO 200
|
||
|
|
! else
|
||
|
|
! HANG=0.
|
||
|
|
! VANG=90.
|
||
|
|
! VRTSCAL=100.
|
||
|
|
endif
|
||
|
|
|
||
|
|
enddo
|
||
|
|
|
||
|
|
200 CONTINUE
|
||
|
|
RETURN
|
||
|
|
END
|
||
|
|
|
||
|
|
SUBROUTINE adjustang(hrad,vrad)
|
||
|
|
|
||
|
|
USE BLK1MOD
|
||
|
|
|
||
|
|
VANGOLD=VANG
|
||
|
|
HANGOLD=HANG
|
||
|
|
|
||
|
|
VANG=VANG+VRAD*57.
|
||
|
|
HANG=HANG+HRAD*57.
|
||
|
|
|
||
|
|
CALL PLOTOT(0)
|
||
|
|
|
||
|
|
RETURN
|
||
|
|
END
|