Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  614 1738 (N26E53 L=355)   695     92        0 ( 585/1689- 634/1777) -24.4 E59-E48 N23-N28
      2  447 1715 (N21E68 L=340)  1793    164        2 ( 390/1666- 510/1768)  83.7 E76-E63 N17-N26
      3  559 1620 (N17E48 L=360)  1083    223        3 ( 499/1529- 605/1697) -39.8 E56-E40 N12-N22
      4 1658 1417 (N37W32 L= 80)  2489    457        4 (1549/1209-1773/1578) -35.3 W20-W44 N27-N46
      5  355 1435 (N02E55 L=353)   913    163        1 ( 298/1404- 445/1460)  24.4 E61-E48 N00-N05
      6  901 1322 (N08E15 L= 33)   937    297        4 ( 777/1254-1025/1381)  45.0 E20-E08 N02-N14
      7  246 1337 (S06E62 L=346)   828    133        3 ( 204/1286- 282/1378) -14.0 E69-E56 S08-S03
      8 1547 1283 (N24W25 L= 73)   668    232        0 (1457/1217-1623/1364) -14.9 W16-W31 N22-N26
      9 1062 1029 (S04W02 L= 50)   193     97        1 (1024/ 999-1106/1063)  63.4 W00-W03 S06-N00
     10  249 1002 (S25E53 L=355)   977    163        5 ( 185/ 957- 323/1050)  -6.7 E61-E44 S26-S22
     11  882  799 (S21E02 L= 46)   196     72        2 ( 851/ 767- 910/ 825) -14.0 E04-W00 S22-S19
     12 1818  645 (S02W68 L=116)  1410    183        4 (1767/ 600-1856/ 713) -45.0 W62-W75 S04-N02
     13 1681  515 (S13W61 L=109)   458     63        3 (1648/ 495-1713/ 531)  15.9 W57-W64 S14-S11
     14 1601  431 (S20W60 L=108)   362     77        1 (1574/ 408-1621/ 467) -78.7 W58-W62 S22-S17
  

    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