Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1391 1687 (N35W50 L=321)  2121    398        3 (1249/1619-1580/1729) -33.7 W38-W61 N24-N40
      2 1735 1478 (N12W64 L=335)   476     82        3 (1707/1441-1767/1512) -68.2 W61-W67 N09-N14
      3 1451 1421 (N18W38 L=309)   268     10        1 (1430/1400-1469/1439) -90.0 W36-W39 N16-N19
      4 1633 1348 (N09W48 L=319)   782    164        1 (1569/1319-1682/1402)  -5.2 W42-W53 N07-N11
      5  917 1380 (N30W02 L=274)   515    121        0 ( 864/1350- 975/1397)  -8.1 E01-W06 N28-N31
      6 1796 1296 (N01W60 L=331)   686     74        1 (1765/1268-1833/1325) -26.6 W57-W64 N00-N03
      7 1838  950 (S20W55 L=326)   483     67        0 (1820/ 905-1856/ 982)  45.0 W52-W57 S22-S17
      8  242  631 (S02E68 L=203)  1614    262        2 ( 211/ 517- 295/ 736)  74.1 E73-E61 S09-N05
      9  565  697 (S02E36 L=235)   456     84        1 ( 517/ 665- 595/ 726) -31.0 E38-E33 S03-N00
     10  440  560 (S08E50 L=221)   476    120        1 ( 397/ 527- 485/ 603) -56.3 E52-E47 S10-S04
     11  758  479 (S19E31 L=240)   315    120        0 ( 718/ 435- 810/ 514)  16.7 E35-E25 S21-S17
     12  826  421 (S25E29 L=242)   309     62        0 ( 812/ 386- 844/ 451)  51.3 E30-E26 S27-S22
     13  579  364 (S23E50 L=221)   365     44        0 ( 549/ 351- 609/ 378) -26.6 E52-E47 S24-S22
     14  885  269 (S37E34 L=237)  1246    188        2 ( 822/ 221- 953/ 339) -80.5 E36-E31 S42-S30
  

    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