Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  929 1731 (N56W08 L=105)   365    113        0 ( 878/1705- 980/1755)   9.5 W02-W14 N54-N57
      2 1462 1362 (N19W35 L=132)   619    225        0 (1402/1313-1529/1396) -40.6 W30-W38 N15-N21
      3  523 1374 (N35E32 L= 65)   245     49        0 ( 499/1351- 552/1390)   0.0 E33-E29 N33-N35
      4  162 1056 (N17E69 L= 29)   639     54        2 ( 139/1022- 189/1086) -63.4 E72-E64 N14-N18
      5 1721  949 (S10W46 L=143)   503     68        2 (1691/ 918-1742/ 982) -90.0 W43-W47 S12-S08
      6  158  906 (N08E70 L= 27)   583     66        1 ( 136/ 886- 189/ 936)  -6.3 E74-E65 N06-N09
      7 1389  758 (S16W19 L=116)   269    111        0 (1357/ 711-1407/ 795) -80.5 W17-W20 S18-S12
      8 1189  662 (S18W05 L=102)   803    222        0 (1123/ 578-1249/ 741)  41.6 W00-W09 S22-S13
      9 1424  573 (S29W20 L=117)  1095    386        0 (1287/ 452-1540/ 696)  31.0 W09-W29 S35-S22
     10 1718  653 (S30W46 L=144)   479    104        0 (1675/ 634-1767/ 681)   0.0 W41-W51 S30-S28
     11  836  512 (S23E21 L= 77)   768    255        0 ( 746/ 450- 918/ 593)  28.1 E28-E13 S26-S18
     12  413  551 (S16E52 L= 45)   478     77        0 ( 395/ 513- 443/ 583)  32.0 E55-E47 S18-S13
     13  933  431 (S30E16 L= 81)   964    238        3 ( 841/ 378-1039/ 492)  13.2 E24-E07 S33-S27
     14 1407  449 (S38W19 L=116)   410    108        0 (1355/ 423-1444/ 484)  15.9 W14-W21 S39-S35
     15  513  409 (S27E50 L= 47)   770     74        2 ( 486/ 372- 545/ 445)  68.2 E52-E47 S29-S24
  

    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