Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  838 1815 (N62W22 L=317)   788    115        2 ( 782/1790- 908/1832) -22.6 W15-W28 N57-N64
      2  689 1761 (N64W02 L=297)   533     86        0 ( 666/1720- 722/1795)  29.1 E02-W08 N60-N66
      3 1154 1721 (N42W36 L=331)   828    213        1 (1065/1668-1251/1763)  -6.3 W26-W45 N39-N43
      4  368 1595 (N61E48 L=247)  1194    179        0 ( 297/1548- 450/1642)   6.3 E62-E34 N58-N63
      5 1493 1572 (N22W48 L=343)   673    235        0 (1428/1479-1562/1618)  78.7 W43-W50 N15-N25
      6 1827 1265 (S05W60 L=356)   489     15        0 (1809/1242-1845/1288) -71.6 W57-W62 S06-S03
      7 1919 1173 (S13W69 L=  5)   894     65        0 (1901/1113-1932/1217)  45.0 W65-W73 S15-S10
      8  509 1151 (N26E28 L=267)   870    226        2 ( 415/1106- 610/1207) -34.7 E35-E21 N20-N30
      9 1768  901 (S22W44 L=340)  3404    342        6 (1668/ 769-1850/1047)  25.5 W33-W55 S27-S16
     10 1325  860 (S11W12 L=308)   671    166        0 (1300/ 785-1345/ 950)  53.1 W09-W15 S14-S05
     11  286  862 (N14E52 L=243)   761    172        2 ( 223/ 818- 345/ 900) -36.9 E58-E48 N10-N16
     12  374  824 (N10E46 L=250)   434     71        2 ( 355/ 782- 391/ 864)  68.2 E47-E43 N07-N12
     13  372  675 (N02E51 L=245)   380     65        0 ( 345/ 639- 398/ 708)  26.6 E53-E47 N00-N03
     14 1481  607 (S31W17 L=312)   234     49        0 (1466/ 580-1497/ 632)  45.0 W15-W18 S32-S29
     15  574  568 (S09E39 L=256)   279     56        1 ( 551/ 544- 601/ 591)  11.3 E41-E36 S10-S07
     16 1390  547 (S32W09 L=304)   455     94        1 (1349/ 528-1437/ 571)  -9.5 W06-W12 S33-S29
     17  450  432 (S14E56 L=239)   388     58        1 ( 428/ 405- 472/ 465)  53.1 E57-E54 S16-S12
     18 1158  386 (S35E11 L=284)  1506    292        1 (1039/ 329-1287/ 459)   0.0 E20-W00 S37-S33
     19  588  383 (S20E48 L=247)   420     85        2 ( 555/ 350- 624/ 407) -53.1 E50-E45 S22-S18
     20  634  240 (S31E57 L=238)   478     43        1 ( 616/ 218- 656/ 266)  18.4 E61-E52 S33-S29
     21  800  163 (S42E53 L=242)  1917    174        4 ( 722/ 127- 876/ 215)  -2.6 E66-E41 S44-S39
  

    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