Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  730 1808 (N39E44 L=330)   679     86        1 ( 692/1787- 774/1833) -10.3 E50-E39 N37-N40
      2  546 1788 (N35E61 L=313)   655     61        1 ( 530/1755- 561/1818) -40.6 E65-E56 N31-N37
      3  997 1740 (N39E19 L=355)   997    149        1 ( 943/1685-1040/1782) -31.0 E24-E14 N34-N41
      4 1325 1670 (N41W07 L= 21)   292     72        0 (1287/1658-1363/1682)  18.4 W04-W10 N39-N42
      5  383 1459 (N09E52 L=322)   570     88        0 ( 343/1413- 414/1502)  71.6 E53-E49 N06-N12
      6  695 1434 (N12E28 L=346)   290     58        1 ( 669/1410- 723/1463) -14.0 E29-E25 N10-N13
      7  924 1405 (N14E13 L=  1)   388    126        0 ( 862/1375- 970/1423)  -8.1 E16-E09 N12-N15
      8 1788 1209 (N21W49 L= 63)   347     55        0 (1755/1192-1820/1226)   8.1 W45-W52 N19-N21
      9  210 1129 (S12E60 L=314)   702    130        3 ( 195/1060- 226/1191) -69.4 E62-E58 S16-S08
     10  191  788 (S33E65 L=309)  1146    130        1 ( 153/ 730- 215/ 852)  28.1 E75-E59 S36-S28
     11 1154  681 (S24W15 L= 29)   866    194        2 (1127/ 577-1185/ 785) -69.0 W12-W18 S30-S17
     12 1675  575 (S18W56 L= 70)   344     49        0 (1640/ 564-1701/ 591)  21.8 W52-W58 S19-S16
     13 1336  471 (S33W35 L= 49)   663    118        2 (1279/ 445-1393/ 504)  39.8 W31-W37 S35-S29
     14 1514  441 (S30W51 L= 65)   599    101        1 (1469/ 408-1562/ 470)  63.4 W46-W53 S32-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