Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1221 1638 (N35W24 L=138)  1660    437        5 (1016/1565-1386/1698)   1.8 W07-W38 N31-N38
      2 1518 1655 (N32W49 L=163)   574    117        0 (1467/1640-1578/1668) -16.7 W44-W54 N30-N33
      3  284 1403 (N33E53 L= 61)   450     91        1 ( 253/1371- 316/1432) -24.0 E58-E48 N30-N35
      4  164 1273 (N26E66 L= 48)   741     88        2 ( 127/1240- 193/1307) -18.4 E76-E61 N23-N28
      5  145 1061 (N13E66 L= 48)  1003    147        2 ( 122/1000- 179/1128) -56.3 E69-E61 N08-N17
      6 1612 1033 (S07W37 L=151)   444     98        0 (1587/ 978-1638/1076)  51.3 W34-W39 S09-S04
      7  116 1000 (N10E71 L= 43)   821     77        2 (  85/ 972- 144/1029) -33.7 E78-E66 N07-N11
      8 1859  968 (S14W60 L=174)   417     52        1 (1835/ 943-1885/ 992)  15.9 W56-W63 S15-S12
      9  965  798 (S13E06 L=108)   331    119        1 ( 928/ 747- 993/ 845)  51.3 E09-E04 S15-S10
     10 1756  792 (S23W49 L=163)   909    188        2 (1678/ 752-1820/ 826) -11.3 W41-W56 S26-S20
     11 1401  696 (S25W20 L=134)  1054    323        3 (1323/ 573-1499/ 823)  49.4 W14-W27 S32-S17
     12  292  703 (S10E56 L= 58)   691    103        4 ( 247/ 663- 329/ 742) -29.7 E60-E51 S12-S08
     13 1103  544 (S31E01 L=113)   584    152        0 (1045/ 498-1161/ 603)  32.0 E06-W03 S33-S27
     14  958  533 (S29E11 L=103)   263     88        0 ( 947/ 491- 971/ 587)  74.1 E12-E10 S32-S25
     15  564  336 (S37E51 L= 63)  4308    535       10 ( 406/ 228- 759/ 553) -67.8 E61-E39 S48-S20
  

    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