Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1114 1857 (N56W27 L=113)   405     61        3 (1082/1840-1151/1874) -18.4 W23-W31 N53-N58
      2 1488 1689 (N36W48 L=134)  1559    225        2 (1394/1651-1596/1744)   5.9 W37-W66 N33-N38
      3  554 1502 (N35E28 L= 58)   457     69        0 ( 512/1472- 594/1529) -29.7 E32-E24 N32-N37
      4  781 1412 (N26E11 L= 75)   312     90        0 ( 733/1382- 825/1431) -33.7 E14-E08 N23-N27
      5 1673 1399 (N14W50 L=136)   397    106        1 (1619/1366-1708/1428) -33.7 W45-W51 N12-N16
      6  422 1341 (N26E38 L= 48)   565    139        0 ( 361/1289- 475/1373) -35.0 E43-E33 N21-N28
      7  268 1099 (N13E51 L= 35)   653     97        2 ( 235/1058- 305/1135)  63.4 E54-E47 N10-N14
      8  406 1078 (N10E39 L= 47)   356     77        1 ( 384/1033- 425/1121)  68.2 E41-E37 N07-N12
      9  300 1043 (N09E48 L= 38)   960    165        1 ( 251/ 981- 350/1105)  54.5 E53-E43 N05-N12
     10  355  925 (N01E45 L= 41)   877    240        3 ( 297/ 880- 433/ 968)   0.0 E49-E38 S01-N04
     11 1405  876 (S14W22 L=108)   314    135        0 (1362/ 835-1449/ 934)  35.5 W18-W25 S15-S10
     12  780  655 (S20E20 L= 66)   426    197        1 ( 716/ 605- 860/ 683)   0.0 E24-E15 S22-S18
     13 1466  612 (S31W26 L=112)   757    184        1 (1380/ 567-1529/ 667)  21.8 W19-W30 S33-S28
     14  774  562 (S26E23 L= 63)   355    107        1 ( 730/ 512- 806/ 596) -66.8 E24-E21 S29-S22
  

    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