Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  843 1890 (N45E49 L= 74)   674     74        0 ( 797/1873- 882/1904)   6.3 E54-E43 N43-N46
      2 1612 1566 (N44W29 L=151)   610    109        2 (1572/1518-1640/1607) -39.8 W24-W31 N40-N45
      3  333 1365 (S02E54 L= 69)   408     75        0 ( 304/1331- 358/1396)  45.0 E55-E52 S03-N00
      4  191 1313 (S06E69 L= 54)   772     54        0 ( 167/1279- 211/1347)  63.4 E71-E66 S08-S04
      5  244 1242 (S10E59 L= 64)   631     61        1 ( 217/1204- 269/1273) -38.7 E62-E56 S12-S08
      6 1654 1177 (N18W35 L=158)   452    157        1 (1632/1101-1677/1252) -53.1 W32-W38 N14-N22
      7 1545 1173 (N14W27 L=150)   502    169        0 (1515/1090-1563/1240) -58.0 W23-W29 N09-N17
      8  304 1183 (S13E51 L= 72)   297     67        1 ( 281/1159- 325/1209)  76.0 E53-E49 S14-S10
      9  168 1075 (S21E65 L= 57)  4154    289       14 (  98/ 946- 240/1191)  49.1 E79-E57 S28-S13
     10  253 1026 (S23E54 L= 69)   375     90        0 ( 206/1005- 285/1047)  12.5 E59-E50 S24-S21
     11 1877  853 (N08W65 L=188)  1903    162        1 (1813/ 798-1928/ 916)  56.3 W57-W72 N03-N12
     12 1410  720 (S14W31 L=154)   641    213        1 (1337/ 640-1484/ 791)  76.0 W28-W34 S20-S08
     13  870  677 (S31E00 L=122)   719    168        2 ( 810/ 638- 936/ 727)   7.1 E05-W03 S33-S27
     14 1180  444 (S36W29 L=152)   273     70        0 (1143/ 420-1216/ 461)   0.0 W25-W32 S37-S35
  

    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