Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  778 1610 (N21E31 L=309)   242      7        0 ( 757/1591- 799/1628)  45.0 E32-E29 N19-N22
      2  539 1530 (N11E44 L=297)   862    247        3 ( 486/1459- 598/1604) -28.3 E51-E38 N06-N14
      3  442 1215 (S10E40 L=301)   277     90        0 ( 409/1175- 461/1256)  90.0 E42-E38 S12-S07
      4  267 1105 (S19E52 L=289)  1281    417        3 ( 158/1064- 385/1166)   2.6 E64-E42 S21-S16
      5  448 1033 (S20E36 L=305)   654    169        0 ( 369/1012- 520/1053)  15.3 E41-E30 S21-S18
      6 1884  925 (N13W61 L= 42)   645     96        2 (1863/ 890-1906/ 960) -45.0 W58-W64 N10-N14
      7 1906  869 (N11W67 L= 48)  1159    155        3 (1884/ 826-1940/ 913)  90.0 W63-W71 N07-N13
      8  329  813 (S35E43 L=298)   458    118        0 ( 281/ 790- 380/ 836)   0.0 E47-E38 S36-S34
      9 1585  577 (S15W49 L= 29)   888    178        0 (1563/ 497-1608/ 662) -56.3 W45-W51 S19-S10
     10  357  605 (S49E41 L=299)   655    211        0 ( 304/ 568- 411/ 650)  31.6 E48-E35 S52-S44
     11 1036  611 (S30W13 L=353)   234     78        1 ( 992/ 600-1083/ 629)  31.0 W10-W15 S31-S28
     12 1283  477 (S30W33 L= 14)  2445    619        4 (1018/ 419-1558/ 543)  17.1 W14-W53 S35-S22
     13 1656  469 (S18W61 L= 41)   437     82        3 (1633/ 447-1678/ 491)  26.6 W58-W63 S19-S16
  

    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