Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  963 1925 (N69W25 L=  6)   530     37        0 ( 949/1895- 975/1949)  39.3 W19-W33 N64-N73
      2  731 1866 (N68E15 L=327)  1111     85        1 ( 693/1827- 767/1894) -18.4 E23-E08 N62-N72
      3  468 1494 (N38E35 L=307)   301     33        1 ( 447/1472- 488/1514)  33.7 E37-E33 N36-N39
      4 1661 1396 (N13W49 L= 31)  1211    245        1 (1564/1343-1732/1436) -15.9 W41-W55 N09-N16
      5  488 1386 (N30E32 L=310)   717    104        2 ( 452/1350- 526/1423) -35.5 E35-E28 N26-N32
      6  908 1379 (N23E02 L=340)   516    171        0 ( 823/1346- 978/1404) -32.0 E07-W01 N20-N25
      7  183 1208 (N23E62 L=280)   815    145        1 ( 171/1131- 203/1280)  83.7 E63-E59 N18-N27
      8 1798 1162 (S02W55 L= 37)   363     35        0 (1769/1143-1822/1184)   9.5 W51-W57 S03-S01
      9  953 1033 (N02E04 L=338)   278     55        0 ( 922/1003- 981/1065)  45.0 E06-E02 N00-N03
     10 1711  648 (S33W46 L= 28)   363     40        2 (1688/ 624-1733/ 671)  90.0 W43-W49 S34-S31
     11 1407  545 (S35W20 L=  1)  2194    382        6 (1258/ 436-1553/ 649)  22.6 W07-W31 S40-S30
     12  304  514 (S20E66 L=276)  2404    280        2 ( 247/ 407- 393/ 622)  71.6 E70-E59 S28-S13
     13  684  393 (S34E37 L=305)   419    125        0 ( 619/ 382- 744/ 403) -12.5 E41-E31 S35-S32
     14  468  339 (S34E62 L=280)   490     54        1 ( 444/ 316- 495/ 358) -56.3 E64-E58 S36-S32
  

    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