Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1578 1660 (N24W64 L=275)   546     76        1 (1536/1637-1614/1679) -51.3 W60-W66 N21-N26
      2 1027 1536 (N35W17 L=228)  1702    530        3 ( 810/1493-1271/1586) -25.8 W01-W30 N25-N40
      3  431 1531 (N54E35 L=177)   322     56        0 ( 421/1500- 444/1566) -78.7 E36-E32 N51-N57
      4 1724 1465 (N09W62 L=273)   494     65        0 (1696/1438-1745/1501)   7.1 W58-W66 N07-N10
      5 1385 1331 (N13W30 L=241)  1150    379        1 (1213/1253-1517/1383) -39.1 W19-W36 N04-N18
      6  902 1251 (N22E01 L=211)   768    241        2 ( 807/1217-1028/1288) -13.0 E06-W07 N20-N23
      7  384 1180 (N31E39 L=172)   344     67        1 ( 369/1141- 403/1213)  63.4 E40-E37 N28-N33
      8 1884 1170 (S12W65 L=277)   928    107        1 (1847/1137-1923/1202) -26.6 W61-W72 S14-S09
      9  879 1124 (N15E06 L=206)   356    190        0 ( 834/1064- 960/1166)  12.5 E09-W00 N12-N16
     10 1005 1123 (N12W02 L=213)   181     77        1 ( 981/1092-1031/1156) -90.0 W00-W02 N09-N14
     11  312  955 (N19E49 L=163)   774    240        1 ( 239/ 928- 410/1026) -31.0 E55-E40 N15-N24
     12 1664  856 (S22W35 L=247)   508    159        0 (1604/ 822-1722/ 915)   5.7 W30-W41 S23-S20
     13 1476  827 (S18W21 L=232)   223     19        0 (1458/ 805-1491/ 848)  63.4 W19-W22 S18-S16
     14  220  746 (N08E65 L=147)  1539    107        4 ( 187/ 688- 249/ 804)  69.4 E69-E60 N04-N12
     15  305  705 (N05E57 L=155)   404     67        1 ( 283/ 674- 329/ 737) -76.0 E58-E54 N02-N06
     16 1782  584 (S46W49 L=261)  1262    127        2 (1726/ 557-1842/ 618)  -8.1 W40-W61 S48-S43
     17  908  485 (S22E23 L=189)   715    207        4 ( 874/ 389- 933/ 580)  47.7 E28-E18 S28-S16
     18 1582  455 (S48W24 L=235)   710    154        1 (1511/ 422-1647/ 493)  -7.6 W16-W31 S49-S45
     19 1255  253 (S52E12 L=199)  1118    221        1 (1167/ 219-1366/ 297) -11.9 E20-E01 S54-S48
  

    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