Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  810 1838 (N45E49 L=346)  1722    148        2 ( 740/1791- 872/1877)  -5.0 E63-E39 N41-N47
      2 1194 1796 (N54E13 L= 21)   362     68        0 (1165/1772-1218/1821) -15.9 E17-E10 N51-N55
      3 1331 1739 (N53W02 L= 37)   387     41        1 (1308/1715-1354/1759)  14.0 W00-W04 N51-N55
      4 1436 1677 (N52W14 L= 49)   585     76        1 (1404/1657-1474/1700)  -7.1 W10-W18 N49-N54
      5 1556 1612 (N50W27 L= 62)   647     58        2 (1528/1579-1587/1644)  66.8 W24-W31 N46-N53
      6  980 1594 (N31E18 L= 16)   637    125        0 ( 932/1538-1029/1635) -18.4 E22-E13 N27-N32
      7  729 1532 (N21E32 L=  3)   701    197        0 ( 703/1433- 765/1615) -67.4 E34-E28 N14-N26
      8 1637 1566 (N49W37 L= 72)   897     76        3 (1604/1536-1672/1609) -33.7 W33-W42 N45-N52
      9 1374 1519 (N36W11 L= 46)  1471    350        0 (1294/1436-1487/1576)   7.1 W04-W20 N29-N40
     10  597 1464 (N13E38 L=357)   652    133        0 ( 579/1405- 629/1536) -41.2 E42-E33 N10-N17
     11  399 1418 (N07E51 L=343)   403     47        1 ( 378/1390- 422/1444)  76.0 E53-E49 N04-N08
     12  995 1337 (N15E09 L= 26)   289     79        1 ( 963/1317-1042/1366)  11.3 E10-E05 N13-N16
     13 1756 1249 (N29W47 L= 82)  1018    171        1 (1697/1187-1815/1307) -21.0 W40-W54 N26-N31
     14  148 1153 (S14E72 L=323)   989     85        1 ( 110/1127- 191/1176)  10.0 E81-E64 S15-S11
     15  224  972 (S23E57 L=337)  2223    372        2 ( 189/ 851- 300/1127) -63.4 E62-E48 S29-S13
     16  776  945 (S13E13 L= 22)   242     97        1 ( 717/ 928- 818/ 960)   9.5 E16-E10 S14-S11
     17  452  811 (S28E33 L=  1)   668    230        0 ( 381/ 737- 549/ 851)  38.2 E39-E25 S34-S23
     18  725  727 (S27E12 L= 23)   355    147        0 ( 647/ 712- 798/ 739)  26.6 E16-E06 S29-S24
     19 1109  487 (S33W21 L= 55)  1880    404        3 ( 910/ 456-1276/ 528)  24.6 W06-W30 S38-S26
     20  653  266 (S67E10 L= 25)  1424    187        2 ( 571/ 233- 746/ 302)   5.9 E25-W04 S70-S63
  

    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