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