Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  384 1442 (N29E44 L=171)   450     72        0 ( 357/1402- 406/1475) -35.5 E47-E40 N26-N31
      2 1486 1391 (N17W33 L=248)   229     80        0 (1456/1363-1523/1409)  21.8 W30-W35 N15-N18
      3  125 1169 (N14E69 L=146)  1167    107        4 ( 102/1107- 150/1220)  90.0 E72-E64 N10-N17
      4  912  953 (S05E07 L=208)   466     99        2 ( 867/ 919- 947/ 986) -26.6 E09-E05 S07-S03
      5  202  892 (S03E59 L=156)   384     72        0 ( 189/ 855- 216/ 936)  59.0 E60-E56 S05-N00
      6  390  736 (S14E45 L=170)  1439    282        2 ( 358/ 600- 449/ 843)  57.3 E50-E39 S21-S07
      7  279  686 (S16E57 L=158)  3623    375       10 ( 199/ 551- 367/ 776)  66.8 E67-E46 S24-S10
      8 1423  554 (S34W25 L=240)   651    230        0 (1321/ 511-1519/ 607)  14.9 W17-W32 S35-S30
      9  962  521 (S32E09 L=206)   653    153        1 ( 893/ 505-1055/ 545)   0.0 E13-E01 S33-S30
     10 1145  451 (S39W04 L=219)   614    159        1 (1070/ 428-1231/ 474)  -5.2 E01-W10 S40-S36
     11  418  440 (S33E55 L=160)   754     78        2 ( 379/ 413- 462/ 470)   4.8 E61-E49 S34-S30
  

    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