CTITLESALOGA -- ARCO LOGO AND LABEL FOR COLOR PLOTTING 00010000 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** C 00020000 CA AUTHOR P. COOPER 00030000 CA DESIGNER P. COOPER - D. HAGEN 00040000 CA LANGUAGE FORTRAN 00050000 CA SYSTEM IBM AND CRAY 00060000 CA WRITTEN 04-11-80 - 06-30-80 00070000 C REVISED 07-20-81 COOPER - CHANGED TEXT ARRAY DIMENSION TO 1. 00080000 C INCREASED LENGTH OF BOX AROUND TEXT FOR QULR. 00090000 C REVISED 05-13-82 COOPER - CHANGED TO ARCO EXPLORATION. 00100000 C REVISED 08-10-82 SHETH - CHANGED TO GEOPHYSICAL DATA PROCESSING 00110000 C REVISED 12-07-83 SHETH - CHANGED TO EXPLORATION DATA PROCESSING 00120000 C REVISED 12-23-83 PARKER - USE UNIRAS INSTEAD OF APPLICON CALLS 00130000 C REVISED 08-01-84 PARKER - ADD OPTION TO ROTATE THE PLOT 90 DEGREE00140000 C REVISED 01-08-85 PARKER - CONVERTED TO VS FORTRAN 00150000 C REVISED 01-23-86 COLLINS - CHANGED TO ARCO OIL & GAS COMPANY. 00160000 C REVISED 12-01-86 COOPER - ALLOWED FOR BLACK AND WHITE LOGO. 00170000 C REVISED 12-03-86 NELAN - FOR CONVERSION TO THE CRAY. 00180000 C REVISED 05-27-92 COMPTON - CHANGED COMPANY NAME AGAIN. 00181000 CA 00190000 CA 00200000 CA CALL SALOGA (X0, Y0, SPACEV, SIZELG, SIZEL1, SIZEL2, KOLOR1, 00210000 CA KOLOR2, TEXT) 00220000 CA 00230000 CA IN/OUT ARGUMENT TYPE DESCRIPTION 00240000 CA IN X0 R4 ZERO COORDINATE FOR X AXIS 00250000 CA IN Y0 R4 ZERO COORDINATE FOR Y AXIS 00260000 CA IN SPACEV R4 VERTICAL SPACE USED BY PLOT EXCLUDING 00270000 CA LOGO AND LABELS (MAX. OF APROX. 19.5) 00280000 CA IN SIZELG R4 SIZE OF LOGO (MM) 00290000 CA IN SIZEL1 R4 SIZE OF ARCO LABEL (MM) (ABS VALUE) 00300000 CA IF SIZEL1 <0, ROTATE THE PLOT 90 DEGREES 00310000 CA IN SIZEL2 R4 SIZE OF GAPG LABEL (MM) 00320000 CA IN KOLOR1 I4 COLOR INDEX OF LOGO 00330000 CA IF KOLOR1 < 0, PLOT IN BLACK & WHITE 00340000 CA IN KOLOR2 I4 COLOR OF LABELS (1-7) 00350000 CA IN TEXT I4 ARRAY CONTAINING USER COMMENT 00360000 CA 00370000 CA 00380000 CA THIS SUBROUTINE PRODUCES A COLOR PLOT OF THE LOGO AND THE 00390000 CA COMPANY TITLES PLUS PLOTS USER COMMENTS IN A BOX. 00400000 CA 00410000 CAEND 00420000 C 00430000 C 00440000 SUBROUTINE SALOGA (X0, Y0, SPACEV, SIZELG, SIZEL1, SIZEL2, 00450000 * KOLOR1, KOLOR2, TEXT) 00460000 C 00470000 C DIMENSION LOCAL ARRAYS AND SET UP HEADINGS 00480000 C 00490000 DIMENSION X(49),Y(49) 00500000 C 00510000 INTEGER TEXT(1) 00520000 C 00530000 CHARACTER*40 HD1 00540000 CHARACTER*40 HD2 00550000 C 00560000 REAL INTOMM 00570000 C 00580000 DATA HD1 /'ARCO E&P TECHNOLOGY $ '/ 00590000 DATA HD2 /'GEOPHYSICAL ACQUISITION AND PROCESSING$ '/ 00600001 C DATA HD1 /'ARCO OIL & GAS COMPANY $ '/ 00601000 C DATA HD2 /'EXPLORATION DATA PROCESSING $ '/ 00602000 DATA INTOMM /25.4/ 00610000 C 00620000 IFRAME = 0 00630000 IF (KOLOR1 .LT. 0) THEN 00640000 KOLOR1 = 1 00650000 IFRAME = 3 00660000 ENDIF 00670000 C 00680000 IANGL = 0 00690000 IF (SIZEL1 .GT. 0) GO TO 5 00700000 IANGL = 90 00710000 SIZEL1 = ABS(SIZEL1) 00720000 C 00730000 XP0 = X0 - SPACEV 00740000 C 00750000 XK = XP0 - 0.58 * INTOMM 00760000 YK = Y0 - 1.0 * INTOMM 00770000 GO TO 7 00780000 C 00790000 5 YP0 = Y0 + SPACEV 00800000 C 00810000 XK = X0 - 1.0 * INTOMM 00820000 YK = YP0 + 0.58 * INTOMM 00830000 C 00840000 C DRAW SPARC 00850000 C 00860000 7 RSQ=23.0*23.0 00870000 SCF=SIZELG/100.0 00880000 C 00890000 X(1)=25.0 00900000 Y(1)=47.5 00910000 X(2)= 2.5 00920000 Y(2)=47.5 00930000 X(3)=47.5 00940000 Y(3)= 2.5 00950000 X(4)=47.5 00960000 Y(4)=25.0 00970000 XI=47.5 00980000 C 00990000 DO 10 01000000 * I=5,49 01010000 XI=XI-0.5 01020000 XX=XI-25.0 01030000 YY=SQRT(RSQ-XX*XX) 01040000 X(I)=XI 01050000 Y(I)=YY+25.0 01060000 C 01070000 10 CONTINUE 01080000 C 01090000 X(49)=X(1) 01100000 Y(49)=Y(1) 01110000 C 01120000 DO 20 01130000 * I=1,49 01140000 X(I)=X(I)*SCF+XK 01150000 Y(I)=Y(I)*SCF+YK 01160000 C 01170000 20 CONTINUE 01180000 C 01190000 CALL GSURF (X,Y,49,KOLOR1,IFRAME) 01200000 C 01210000 X(1)=75.0 01220000 Y(1)=47.5 01230000 X(2)=97.5 01240000 Y(2)=47.5 01250000 X(3)=52.5 01260000 Y(3)= 2.5 01270000 X(4)=52.5 01280000 Y(4)=25.0 01290000 XI=52.5 01300000 C 01310000 DO 30 01320000 * I=5,49 01330000 XI=XI+0.5 01340000 XX=XI-75.0 01350000 YY=SQRT(RSQ-XX*XX) 01360000 X(I)=XI 01370000 Y(I)=YY+25.0 01380000 C 01390000 30 CONTINUE 01400000 C 01410000 X(49)=X(1) 01420000 Y(49)=Y(1) 01430000 C 01440000 DO 40 01450000 * I=1,49 01460000 X(I)=X(I)*SCF+XK 01470000 Y(I)=Y(I)*SCF+YK 01480000 C 01490000 40 CONTINUE 01500000 C 01510000 CALL GSURF (X,Y,49,KOLOR1,IFRAME) 01520000 C 01530000 X(1)=25.0 01540000 Y(1)=52.5 01550000 X(2)= 2.5 01560000 Y(2)=52.5 01570000 X(3)=47.5 01580000 Y(3)=97.5 01590000 X(4)=47.5 01600000 Y(4)=75.0 01610000 XI=47.5 01620000 C 01630000 DO 50 01640000 * I=5,49 01650000 XI=XI-0.5 01660000 XX=XI-25.0 01670000 YY=SQRT(RSQ-XX*XX) 01680000 X(I)=XI 01690000 Y(I)=75.0-YY 01700000 C 01710000 50 CONTINUE 01720000 C 01730000 X(49)=X(1) 01740000 Y(49)=Y(1) 01750000 C 01760000 DO 60 01770000 * I=1,49 01780000 X(I)=X(I)*SCF+XK 01790000 Y(I)=Y(I)*SCF+YK 01800000 C 01810000 60 CONTINUE 01820000 C 01830000 CALL GSURF (X,Y,49,KOLOR1,IFRAME) 01840000 C 01850000 X(1)=75.0 01860000 Y(1)=52.5 01870000 X(2)=97.5 01880000 Y(2)=52.5 01890000 X(3)=52.5 01900000 Y(3)=97.5 01910000 X(4)=52.5 01920000 Y(4)=75.0 01930000 XI=52.5 01940000 C 01950000 DO 70 01960000 * I=5,49 01970000 XI=XI+0.5 01980000 XX=XI-75.0 01990000 YY=SQRT(RSQ-XX*XX) 02000000 X(I)=XI 02010000 Y(I)=75.0-YY 02020000 C 02030000 70 CONTINUE 02040000 C 02050000 X(49)=X(1) 02060000 Y(49)=Y(1) 02070000 C 02080000 DO 80 02090000 * I=1,49 02100000 X(I)=X(I)*SCF+XK 02110000 Y(I)=Y(I)*SCF+YK 02120000 C 02130000 80 CONTINUE 02140000 C 02150000 CALL GSURF (X,Y,49,KOLOR1,IFRAME) 02160000 C 02170000 C 02180000 C 02190000 C PLOT THE TEXT FOR 0 DEGREES 02200000 C 02210000 IF (IANGL .NE. 0) GO TO 100 02220000 C 02230000 C DRAW COMPANY NAME 02240000 C 02250000 XK = X0 02260000 YK = YP0 + 1.10 * INTOMM 02270000 C 02280000 CALL GCHARC (KOLOR2) 02290000 CALL GCHAR (HD1, XK, YK, SIZEL1) 02300000 C 02310000 C DRAW GAPG NAME 02320000 C 02330000 YK = YP0 + 0.86 * INTOMM 02340000 C 02350000 CALL GCHARC (KOLOR2) 02360000 CALL GCHAR (HD2, XK, YK, SIZEL2) 02370000 C 02380000 C DRAW USER COMMENT 02390000 C 02400000 YK = YP0 + 0.52 * INTOMM 02410000 C 02420000 CALL GCHARC (KOLOR2) 02430000 CALL GCHAR (TEXT, XK, YK, 4.0) 02440000 C 02450000 XK1 = XK - 1.0 02460000 XK2 = XK + 15.12 * INTOMM 02470000 YK1 = YP0 + 0.46 * INTOMM 02480000 YK2 = YP0 + 0.74 * INTOMM 02490000 GO TO 110 02500000 C 02510000 C 02520000 C PLOT THE TEXT FOR 90 DEGREES 02530000 C 02540000 C DRAW COMPANY NAME 02550000 C 02560000 100 YK = Y0 02570000 XK = XP0 02580000 C 02590000 CALL GCHARA (IANGL) 02600000 CALL GCHARC (KOLOR2) 02610000 CALL GCHAR (HD1, XK, YK, SIZEL1) 02620000 C 02630000 C DRAW GAPG NAME 02640000 C 02650000 XK = XP0 + 0.24 * INTOMM 02660000 C 02670000 CALL GCHARA (IANGL) 02680000 CALL GCHARC (KOLOR2) 02690000 CALL GCHAR (HD2, XK, YK, SIZEL2) 02700000 C 02710000 C DRAW USER COMMENT 02720000 C 02730000 XK = XP0 + 0.58 * INTOMM 02740000 C 02750000 CALL GCHARA (IANGL) 02760000 CALL GCHARC (KOLOR2) 02770000 CALL GCHAR (TEXT, XK, YK, 4.0) 02780000 C 02790000 YK1 = YK - 1.0 02800000 YK2 = YK + 15.12 * INTOMM 02810000 XK1 = XP0 + 0.64 * INTOMM 02820000 XK2 = XP0 + 0.36 * INTOMM 02830000 C 02840000 C DRAW BOX AROUND USER COMMENTS 02850000 C 02860000 110 CALL GVECT (XK1, YK1, 0) 02870000 CALL GVECT (XK2, YK1, 1) 02880000 CALL GVECT (XK2, YK2, 1) 02890000 CALL GVECT (XK1, YK2, 1) 02900000 CALL GVECT (XK1, YK1, 1) 02910000 C 02920000 RETURN 02930000 END 02940000