Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1525 1722 (N30W60 L= 71)  1102    122        2 (1485/1671-1574/1756)   0.0 W54-W69 N27-N32
      2 1894 1219 (S07W67 L= 78)  2163    160        5 (1853/1148-1933/1286) -83.7 W62-W73 S12-S03
      3 1799 1175 (S07W54 L= 65)  1268    282        3 (1760/1070-1832/1269)  80.5 W50-W58 S13-S01
      4  416 1204 (N27E35 L=336)   229     80        0 ( 391/1176- 450/1237) -45.0 E37-E32 N24-N28
      5 1561 1188 (S00W35 L= 46)   292    123        0 (1522/1141-1609/1213)   8.1 W31-W38 S01-N00
      6  199 1142 (N27E58 L=313)   506    108        1 ( 164/1108- 248/1171)  16.7 E62-E51 N25-N28
      7 1297 1006 (S04W15 L= 26)  1971    596        4 (1108/ 829-1444/1139) -51.7 W05-W20 S17-N05
      8  398 1111 (N21E38 L=333)   266     42        1 ( 369/1089- 429/1129) -26.6 E40-E35 N19-N22
      9 1552 1111 (S04W33 L= 44)   262     35        1 (1525/1092-1581/1129) -33.7 W31-W34 S05-S02
     10 1670 1075 (S09W40 L= 51)   754    147        2 (1635/1032-1709/1126)  59.0 W37-W43 S11-S06
     11 1588 1048 (S09W34 L= 45)   316     59        1 (1565/1010-1607/1081) -90.0 W32-W35 S10-S06
     12  737 1030 (N10E16 L=355)   570    167        1 ( 648/1004- 805/1056) -29.1 E21-E12 N07-N12
     13 1642  977 (S14W36 L= 47)   607    180        2 (1576/ 933-1697/1026)  11.3 W31-W41 S15-S12
     14 1728  798 (S27W41 L= 52)  1673    298        1 (1645/ 762-1852/ 871) -10.8 W34-W55 S30-S20
     15 1534  734 (S26W25 L= 36)   481    131        1 (1513/ 676-1552/ 804) -90.0 W23-W25 S29-S20
     16  888  710 (S11E15 L=356)   634    143        2 ( 835/ 680- 949/ 747) -39.8 E17-E11 S13-S08
     17  742  464 (S23E32 L=339)  3619    806        6 ( 503/ 243- 991/ 680)  14.7 E67-E10 S33-S15
     18 1539  552 (S38W23 L= 34)  2562    308        9 (1459/ 446-1615/ 667)  45.0 W16-W30 S44-S31
     19  471  580 (S10E46 L=325)   421    147        0 ( 396/ 560- 523/ 613)   0.0 E52-E40 S10-S09
     20 1394  468 (S39W11 L= 22)   266     34        1 (1369/ 447-1417/ 486) -14.0 W08-W12 S41-S38
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y