Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1455 1362 (N13W35 L=280)  1545    404        5 (1336/1300-1609/1392) -14.0 W26-W46 N08-N17
      2  208 1174 (N34E55 L=190)   397     88        2 ( 187/1150- 232/1199) -36.9 E57-E52 N32-N36
      3  170 1090 (N30E60 L=185)   992    132        2 ( 154/1028- 197/1153)  76.0 E61-E57 N25-N33
      4  780 1053 (N15E13 L=232)  1811    433        7 ( 587/1017- 981/1108) -20.6 E25-E01 N09-N20
      5 1906 1063 (S18W63 L=308)   768    222        0 (1868/1037-1948/1082)  -9.5 W57-W69 S19-S17
      6 1809  889 (S24W48 L=293)   832    166        3 (1763/ 805-1834/ 969)  48.8 W42-W51 S28-S20
      7 1422  874 (S12W19 L=264)   411    180        0 (1394/ 796-1457/ 950)  58.0 W15-W22 S16-S07
      8  162  794 (N12E70 L=175)   952    108        1 ( 143/ 743- 181/ 843)  56.3 E73-E66 N08-N14
      9  453  685 (N01E44 L=201)   750    124        5 ( 413/ 638- 498/ 725) -63.4 E46-E40 S01-N03
     10 1774  703 (S35W43 L=288)   494    151        1 (1730/ 683-1822/ 719) -16.7 W38-W48 S37-S33
     11 1419  620 (S28W13 L=258)   264     65        0 (1395/ 588-1444/ 655)  21.8 W10-W15 S28-S26
     12  833  447 (S22E28 L=217)  1879    385        4 ( 731/ 295- 905/ 569)  79.2 E35-E25 S32-S11
     13  678  338 (S25E44 L=201)   424    128        0 ( 657/ 297- 707/ 395)  54.5 E45-E40 S28-S21
  

    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