Esope source files

   1 : C PRZOOM    SOURCE    PV        05/09/22    21:25:53     5181           
   2 :       SUBROUTINE PRZOOM(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,
   3 :      *                  XMA,YMI,YMA)
   4 :       IMPLICIT INTEGER(I-N)
   5 : -INC CCREEL
   6 : -INC CCOPTIO
   7 :       character*9 legend(5)
   8 :       if (iogra.eq.6) then
   9 : *   opengl traitement particulier    
   9 :        call oglzoom(ixmi,ixma,iymi,iyma)
  10 :        return
  11 :       endif
  12 : *     affichage du nouveau menu
  13 :       legend(1)='Fin trace'
  14 :       legend(2)='  ini'
  15 :       legend(3)=' zoom +'
  16 :       legend(4)=' zoom -'
  17 :       legend(5)='  pan'
  18 :       ncase=5
  19 :       llong=9
  19 :       call menu(legend,ncase,llong)
  19 :       call trmess('Choisissez une fonction')
  19 :       call traff(icle)
  20 :       if (icle.eq.1) then
  20 :         CALL INI(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA)
  21 :       endif
  22 :       if (icle.eq.2) then
  22 :         call trmess('Donnez un coin de la zone à agrandir')
  22 :         call TRDIG(XxRO,XxCOL,ICLE)
  22 :         call trmess('Donnez un autre coin de la zone à agrandir')
  22 :         call TRDIG(yrO,yCOL,ICLE)
  23 : *  FENETRE NON DEFORMANTE
  24 :         XMI=MIN(XXRO,YRO)
  25 :         XMA=MAX(XXRO,YRO)
  26 :         YMI=MIN(XXCOL,YCOL)
  27 :         YMA=MAX(XXCOL,YCOL)
  28 :         XMA=MAX(XMA,YMA-YMI+XMI)
  29 :         YMI=MIN(YMI,-XMA+XMI+YMA)
  30 :         IF (XMI.EQ.XMA) XMA=XMA*1.01+1E-30
  31 :         IF (YMI.EQ.YMA) YMA=YMA*1.01+1E-30
  32 : *  ON NE CHANGE PAS LE CADRE
  33 :         XMIN=XMI
  34 :         XXAX=XMA
  35 :         YMIN=YMI
  36 :         YYAX=YMA
  37 :         ISORT=0
  38 :         IRESU=2
  38 :         call zoom(1,XMI,XMA,YMI,YMA)
  39 :         isort=0
  40 :         iresu=2
  41 :       endif
  42 :       if (icle.eq.3) then
  42 :         call trmess('Donnez un coin de la reduction')
  42 :         call TRDIG(XxRO,XxCOL,ICLE)
  42 :         call trmess('Donnez un autre coin de la reduction')
  42 :         call TRDIG(yrO,yCOL,ICLE)
  43 : *  FENETRE NON DEFORMANTE
  44 :         XMI=MIN(XXRO,YRO)
  45 :         XMA=MAX(XXRO,YRO)
  46 :         YMI=MIN(XXCOL,YCOL)
  47 :         YMA=MAX(XXCOL,YCOL)
  48 :         XMA=MAX(XMA,YMA-YMI+XMI)
  49 :         YMI=MIN(YMI,-XMA+XMI+YMA)
  50 : *        IF (XMI.EQ.XMA) XMA=XMA*1.01+1E-30
  51 :         IF (XMI.EQ.XMA) XMA=XMA*1.01+xpetit
  52 : *        IF (YMI.EQ.YMA) YMA=YMA*1.01+1E-30
  53 :         IF (YMI.EQ.YMA) YMA=YMA*1.01+xpetit
  54 : *  ON NE CHANGE PAS LE CADRE
  55 :         XMIN=XMI
  56 :         XXAX=XMA
  57 :         YMIN=YMI
  58 :         YYAX=YMA
  59 :         ISORT=0
  60 :         IRESU=2
  60 :         call zoom(-1,XMI,XMA,YMI,YMA)
  61 :         isort=0
  62 :         iresu=2
  63 :       endif
  64 :       if (icle.eq.4) then
  64 :         call trmess('Donnez le point source')
  64 :         call TRDIG(XxRO,XxCOL,ICLE)
  64 :         call trmess('Donnez le point cible')
  64 :         call TRDIG(yrO,yCOL,ICLE)
  65 : *  FENETRE NON DEFORMANTE
  66 :         XMI=XXRO
  67 :         XMA=YRO
  68 :         YMI=XXCOL
  69 :         YMA=YCOL
  70 :         XMIN=XMI
  71 :         XXAX=XMA
  72 :         YMIN=YMI
  73 :         YYAX=YMA
  74 :         ISORT=0
  75 :         IRESU=2
  75 :         call zoom(0,XMI,XMA,YMI,YMA)
  76 :         isort=0
  77 :         iresu=2
  78 :       endif
  79 : *
  80 :       end
  81 :  
  82 :  
  83 :  
  84 :