Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  963 1555 (N41W09 L=355)  1471    297        3 ( 863/1518-1074/1606) -42.5 W02-W16 N35-N46
      2 1599 1507 (N21W53 L= 38)   322     96        0 (1569/1474-1637/1525)   0.0 W48-W57 N19-N21
      3 1358 1428 (N23W31 L= 17)   383    100        0 (1342/1379-1379/1471)  63.4 W29-W34 N19-N25
      4  345 1303 (N36E46 L=299)  1109    190        2 ( 253/1255- 426/1337) -12.8 E59-E37 N32-N38
      5  563 1209 (N26E27 L=319)   683    131        1 ( 493/1169- 622/1236) -24.0 E31-E22 N23-N28
      6  491 1028 (N17E34 L=312)   306    123        0 ( 470/ 983- 537/1060)  31.0 E35-E30 N14-N18
      7  305  925 (N13E51 L=295)   560    157        2 ( 277/ 876- 339/ 999) -69.4 E53-E48 N09-N17
      8 1600  830 (S17W32 L= 18)   657    159        4 (1552/ 777-1657/ 894)  26.6 W28-W37 S20-S14
      9  941  733 (S08E11 L=335)   197     32        0 ( 918/ 718- 971/ 747) -14.0 E12-E08 S09-S07
     10  920  662 (S12E14 L=332)   341    137        2 ( 859/ 639- 980/ 702)   7.1 E17-E09 S13-S10
     11  702  635 (S10E28 L=318)   237     32        0 ( 678/ 617- 725/ 652) -33.7 E29-E26 S11-S08
     12  541  502 (S16E44 L=302)   294     46        0 ( 515/ 486- 563/ 522)   0.0 E46-E41 S17-S14
     13  521  326 (S28E58 L=287)   476     63        1 ( 490/ 315- 559/ 344) -18.4 E61-E54 S29-S26
  

    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