Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1346 1744 (N56W20 L=165)   558     76        1 (1321/1714-1366/1768)  50.2 W16-W23 N53-N59
      2 1459 1743 (N59W36 L=182)   830     85        2 (1416/1719-1505/1764)  13.2 W28-W45 N55-N60
      3  759 1673 (N39E32 L=113)   389     85        0 ( 714/1659- 797/1687)   0.0 E36-E29 N38-N40
      4  462 1447 (N20E46 L= 99)  1255    344        1 ( 370/1345- 545/1553)  71.6 E50-E40 N12-N27
      5 1042 1481 (N30E05 L=140)   367     84        1 (1024/1437-1056/1525) -71.6 E06-E03 N26-N32
      6  355 1454 (N19E57 L= 88)  1501    137        5 ( 291/1416- 408/1500)  14.0 E63-E50 N15-N21
      7  568 1454 (N21E38 L=108)   539     87        3 ( 539/1421- 609/1488)  45.0 E39-E34 N19-N24
      8 1628 1430 (N34W42 L=187)   732    146        1 (1558/1396-1693/1457) -13.0 W35-W48 N32-N35
      9  556 1379 (N17E36 L=109)   371    100        4 ( 507/1356- 593/1407)  38.7 E39-E33 N14-N18
     10  349 1381 (N14E54 L= 91)   402     70        2 ( 316/1357- 379/1399)   9.5 E57-E51 N12-N15
     11  306  849 (S19E50 L= 96)   934    141        3 ( 272/ 785- 355/ 896)  37.9 E53-E44 S23-S15
     12 1707  648 (S14W55 L=201)   627     95        2 (1677/ 607-1732/ 679) -53.1 W52-W58 S16-S12
     13 1711  521 (S22W64 L=209)   486     53        0 (1683/ 506-1737/ 538)  -6.3 W58-W67 S23-S21
     14 1262  441 (S34W27 L=172)   366    128        0 (1207/ 406-1317/ 475)  45.0 W23-W29 S36-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