Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1391 1389 (N23W30 L=256)   321     66        1 (1349/1356-1424/1422) -51.3 W27-W31 N20-N25
      2  914 1216 (N19E04 L=222)  2101    472        9 ( 699/1125-1103/1310) -32.0 E18-W06 N11-N27
      3 1560 1243 (N11W38 L=264)   528    128        0 (1504/1212-1615/1276) -26.6 W34-W42 N08-N14
      4  764 1030 (N09E16 L=210)   206     68        0 ( 747/ 991- 787/1067) -78.7 E16-E14 N06-N11
      5 1861  789 (S23W60 L=286)  1983    271        2 (1805/ 700-1924/ 898)  35.5 W54-W69 S27-S17
      6 1377  857 (S09W20 L=246)   505    103        3 (1329/ 833-1441/ 889)   0.0 W16-W23 S10-S06
      7 1395  780 (S14W20 L=246)  1018    333        2 (1264/ 680-1505/ 879)  25.2 W10-W27 S18-S09
      8 1100  844 (S06W02 L=228)   212     60        0 (1065/ 818-1127/ 870) -45.0 W00-W03 S07-S03
      9 1238  796 (S11W10 L=236)   454    134        2 (1194/ 744-1259/ 869)  74.1 W07-W12 S13-S06
     10 1077  769 (S10E00 L=226)   287     86        2 (1050/ 733-1118/ 801)  18.4 E01-W02 S12-S08
     11  289  751 (S04E56 L=170)   856    164        2 ( 241/ 720- 341/ 792) -20.6 E61-E50 S06-S01
     12  385  595 (S15E51 L=175)   944    166        1 ( 365/ 513- 407/ 664)  65.6 E54-E48 S20-S09
     13  734  491 (S24E27 L=199)   261     63        2 ( 706/ 475- 769/ 505)  11.3 E29-E24 S25-S23
  

    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