CTITLESALOGV -- ARCO SPARC LOGO (VARIAN) 00010000 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** CA AUTHOR W. J. BROWN 00020000 CA DESIGNER W. J. BROWN 00030000 CA LANGUAGE S/370 FORTRAN H 00040000 CA SYSTEM IBM AND CRAY 00050001 CA WRITTEN 01-07-77 00060000 C REVISED 08-25-77 BY WHIPPLE - REPLACED CALLS TO 00070000 C CALCOMP ROUTINES WITH CALLS TO 00080000 C VARIAN JPR ROUTINES. 00090000 C REVISED 01-24-86 BY NELAN - FOR CRAY COMPATABILITY.00100001 C REVISED MO-DA-YR BY 00110001 C 00120000 CA 00130000 CA 00140000 CA CALL SALOGV 00150000 CA 00160000 CA 00170000 CA THIS APPLICATION PRODUCES A VARIAN OUTPUT OF THE COMPANY 00180000 CA LOGO THAT IS TWO INCHES HIGH. THE LEFT POINT OF THE LOGO IS 00190000 CA THE ORIGIN. 00200000 CAEND 00210000 C EJECT 00220000 C 00230000 C PLOT COMPANY LOGO 00240000 C 00250000 SUBROUTINE SALOGV 00260000 C 00270000 C REAL ARRAY LOCAL 00280000 C 00290000 REAL YCS(4) 00300000 REAL DYS(4) 00310000 REAL X1S(4) 00320000 REAL X2S(4) 00330000 REAL X3S(4) 00340000 REAL X4S(4) 00350000 REAL XCS(4) 00360000 REAL DXS(4) 00370000 REAL Y1S(4) 00380000 REAL Y2S(4) 00390000 REAL Y3S(4) 00400000 REAL Y4S(4) 00410000 C 00420000 C 00430000 HSC = 1.0 00440000 QSC = 0.50 00450000 HGP = HSC / 24. 00460000 RAD = QSC - HGP 00470000 RADSQ = RAD * RAD 00480000 DX = RAD / 22.0 00490000 X1S(1) = -HSC 00500000 X1S(2) = -HSC 00510000 X1S(3) = HSC 00520000 X1S(4) = HSC 00530000 X2S(1) = -HGP 00540000 X2S(2) = -HGP 00550000 X2S(3) = HGP 00560000 X2S(4) = HGP 00570000 X3S(1) = -HGP 00580000 X3S(2) = -HGP 00590000 X3S(3) = HGP 00600000 X3S(4) = HGP 00610000 X4S(1) = -QSC 00620000 X4S(2) = -QSC 00630000 X4S(3) = QSC 00640000 X4S(4) = QSC 00650000 XCS(1) = -QSC 00660000 XCS(2) = -QSC 00670000 XCS(3) = QSC 00680000 XCS(4) = QSC 00690000 DXS(1) = -DX 00700000 DXS(2) = -DX 00710000 DXS(3) = DX 00720000 DXS(4) = DX 00730000 Y1S(1) = 1.0 - HGP 00740000 Y1S(2) = 1.0 + HGP 00750000 Y1S(3) = 1.0 + HGP 00760000 Y1S(4) = 1.0 - HGP 00770000 Y2S(1) = 1.0 - HSC 00780000 Y2S(2) = 1.0 + HSC 00790000 Y2S(3) = 1.0 + HSC 00800000 Y2S(4) = 1.0 - HSC 00810000 Y3S(1) = 1.0 - QSC 00820000 Y3S(2) = 1.0 + QSC 00830000 Y3S(3) = 1.0 + QSC 00840000 Y3S(4) = 1.0 - QSC 00850000 Y4S(1) = 1.0 - HGP 00860000 Y4S(2) = 1.0 + HGP 00870000 Y4S(3) = 1.0 + HGP 00880000 Y4S(4) = 1.0 - HGP 00890000 YCS(1) = 1.0 - QSC 00900000 YCS(2) = 1.0 + QSC 00910000 YCS(3) = 1.0 + QSC 00920000 YCS(4) = 1.0 - QSC 00930000 DYS(1) = 1.0 00940000 DYS(2) = -1.0 00950000 DYS(3) = -1.0 00960000 DYS(4) = 1.0 00970000 C 00980000 DO 520 00990000 * M = 1,4 01000000 X1 = X1S ( M ) 01010000 X2 = X2S ( M ) 01020000 X3 = X3S ( M ) 01030000 X4 = X4S ( M ) 01040000 XC = XCS ( M ) 01050000 DX = DXS ( M ) 01060000 Y1 = Y1S ( M ) 01070000 Y2 = Y2S ( M ) 01080000 Y3 = Y3S ( M ) 01090000 Y4 = Y4S ( M ) 01100000 YC = YCS ( M ) 01110000 DY = DYS ( M ) 01120000 C 01130000 C CALL GPLOT TO PLOT BORDER OF LOGO 01140000 C 01150000 CALL PLOT ( X4, Y4, 3 ) 01160000 CALL PLOT ( X1, Y1, 2 ) 01170000 CALL PLOT ( X2, Y2, 2 ) 01180000 CALL PLOT ( X3, Y3, 2 ) 01190000 C 01200000 X = X3 01210000 C 01220000 DO 510 01230000 * N = 1, 22 01240000 X = X + DX 01250000 Y = DY * SQRT ( RADSQ - ( X - XC ) ** 2 ) 01260000 * + YC 01270000 CALL PLOT ( X, Y, 2 ) 01280000 C 01290000 510 CONTINUE 01300000 C 01310000 520 CONTINUE 01320000 C 01330000 RETURN 01340000 END 01350000