Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1400 1743 (N44W53 L=236)   800     98        2 (1356/1714-1445/1769) -29.7 W49-W58 N42-N46
      2  884 1641 (N49W01 L=184)  1646    372        4 ( 713/1593-1056/1678) -20.8 E15-W14 N41-N53
      3 1419 1601 (N34W42 L=225)  1559    271        1 (1305/1563-1551/1625) -10.3 W31-W53 N29-N36
      4  867 1463 (N36E03 L=179)   359    100        1 ( 824/1446- 927/1477)  -9.5 E06-W00 N34-N37
      5 1563 1372 (N17W43 L=225)   504    125        1 (1532/1330-1607/1433) -81.9 W41-W44 N14-N21
      6  756 1259 (N24E14 L=169)   667    278        2 ( 626/1238- 889/1274) -16.4 E22-E05 N21-N26
      7  173 1118 (N21E67 L=116)   940     95        4 ( 146/1074- 211/1155)  29.7 E71-E61 N18-N23
      8  826 1050 (N11E12 L=171)  1220    501        1 ( 656/ 992-1036/1107)  -5.0 E22-W01 N08-N13
      9 1645  813 (S17W38 L=221)  2259    451        8 (1577/ 664-1694/ 997)  64.7 W32-W42 S25-S06
     10 1622  937 (S09W37 L=220)   244     57        0 (1613/ 902-1633/ 970)  76.0 W36-W37 S11-S06
     11 1563  904 (S10W32 L=215)   248     31        1 (1542/ 886-1588/ 921) -33.7 W30-W34 S11-S08
     12  389  869 (N05E44 L=138)   436     86        1 ( 361/ 836- 421/ 911) -68.2 E46-E42 N02-N07
     13  790  861 (S00E17 L=166)   422    191        1 ( 690/ 847- 868/ 877)  -5.2 E22-E11 S01-N01
     14 1824  812 (S22W56 L=239)   663     97        0 (1791/ 754-1855/ 840)  33.7 W52-W60 S24-S20
     15 1054  792 (S08E02 L=181)   191     74        0 (1032/ 769-1082/ 808) -56.3 E03-W00 S09-S06
     16 1851  752 (S27W62 L=244)   681     93        0 (1828/ 716-1874/ 797)  45.0 W58-W64 S28-S24
     17  837  693 (S11E17 L=166)   457    114        1 ( 792/ 662- 897/ 720)  -8.1 E19-E12 S12-S09
     18  227  629 (S10E70 L=113)  1646    153        2 ( 203/ 570- 253/ 706)  42.3 E81-E66 S14-S04
     19  327  515 (S18E63 L=119)   641    106        0 ( 310/ 462- 343/ 556)  45.0 E67-E59 S21-S14
     20 1074  461 (S30E06 L=176)   644    127        1 (1025/ 401-1113/ 512)  45.0 E10-E02 S34-S26
     21 1026  163 (S57E24 L=159)   508     69        0 ( 991/ 151-1064/ 176)   6.3 E28-E19 S59-S55
  

    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