Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  868 1661 (N34E27 L=182)  2474    552        9 ( 666/1553-1049/1764)  -3.4 E47-E12 N30-N38
      2 1135 1546 (N32E05 L=204)   385     89        0 (1098/1515-1180/1570)  45.0 E06-E02 N29-N34
      3  471 1498 (N15E48 L=161)   571     87        2 ( 445/1456- 497/1536)  78.7 E50-E46 N12-N17
      4  606 1421 (N13E35 L=174)   262     68        0 ( 584/1393- 629/1456)  76.0 E36-E33 N10-N15
      5  468 1405 (N09E45 L=164)   354     88        0 ( 445/1383- 501/1434) -11.3 E46-E41 N07-N11
      6  360 1376 (N06E53 L=156)   512    103        3 ( 324/1354- 398/1392)  18.4 E56-E49 N04-N06
      7  406 1313 (N03E46 L=162)   289     79        0 ( 387/1276- 424/1347) -45.0 E49-E44 N00-N04
      8  250 1319 (N00E62 L=147)   495     71        1 ( 228/1299- 273/1338)  11.3 E65-E59 N00-N01
      9 1785  982 (N12W52 L=261)  1547    209        1 (1732/ 889-1817/1062) -38.7 W46-W57 N06-N15
     10  759  996 (S09E15 L=194)   624    174        2 ( 666/ 970- 828/1032)  29.1 E20-E11 S11-S05
     11  265 1003 (S18E52 L=157)   404    105        0 ( 229/ 976- 294/1022)  38.7 E55-E48 S20-S16
     12 1539  705 (S10W40 L=248)   251     84        0 (1525/ 670-1559/ 742) -38.7 W37-W42 S11-S07
     13  979  624 (S27W06 L=215)   421     78        0 ( 938/ 597-1019/ 644)  -9.5 W03-W09 S27-S25
  

    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