Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  797 1430 (N22E14 L=357)   269     80        0 ( 762/1400- 840/1454)  21.8 E16-E11 N20-N24
      2  205 1324 (N18E63 L=309)  3175    216        8 ( 165/1238- 245/1410) -84.8 E70-E57 N12-N24
      3  278 1316 (N17E53 L=318)   494    112        4 ( 250/1266- 313/1349)  38.7 E56-E50 N14-N19
      4  556 1099 (N03E29 L=342)   451    132        1 ( 516/1055- 603/1151)  39.8 E31-E25 N00-N05
      5  389  769 (S16E44 L=327)  1048    318        0 ( 314/ 632- 467/ 892) -64.8 E48-E40 S25-S08
      6  457  833 (S13E38 L=334)   237    100        0 ( 421/ 790- 485/ 870) -59.0 E39-E35 S15-S10
      7  163  732 (S17E71 L=300)   810     88        1 ( 125/ 697- 202/ 758) -12.1 E80-E66 S19-S15
      8 1699  611 (S29W52 L= 63)   761    172        1 (1641/ 543-1733/ 678)  71.6 W48-W54 S33-S24
      9 1309  642 (S27W18 L= 30)   206     60        0 (1273/ 631-1341/ 655) -11.3 W15-W20 S27-S25
     10  392  472 (S35E56 L=315)  1019    135        0 ( 325/ 438- 461/ 501)   5.4 E68-E47 S37-S33
     11  546  403 (S41E44 L=328)   391     92        1 ( 502/ 383- 587/ 424)  10.3 E49-E38 S42-S39
     12 1286  344 (S48W22 L= 34)  1302    208        5 (1189/ 305-1382/ 389) -11.3 W12-W32 S51-S44
     13 1579  362 (S47W54 L= 66)   659     45        1 (1547/ 337-1604/ 385)   8.1 W49-W58 S48-S44
     14 1053  340 (S48W01 L= 12)   298     44        2 (1030/ 318-1080/ 367) -26.6 E01-W03 S50-S46
     15  664  226 (S57E47 L=324)   547     68        0 ( 635/ 212- 701/ 246)   0.0 E52-E40 S58-S54
  

    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