Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1031 1577 (N36W18 L=103)   576     99        0 ( 976/1553-1086/1597) -14.0 W13-W21 N33-N38
      2 1288 1554 (N27W33 L=118)   327     87        1 (1243/1537-1328/1571)  -9.5 W29-W35 N25-N27
      3 1516 1465 (N15W43 L=128)   378     79        1 (1496/1424-1539/1491)  36.9 W40-W44 N13-N17
      4 1590 1332 (N06W43 L=128)   314     80        0 (1578/1284-1605/1369)  51.3 W40-W44 N03-N08
      5 1286 1319 (N14W23 L=108)   267    104        0 (1237/1302-1333/1335) -31.0 W20-W25 N12-N16
      6 1801 1020 (S17W50 L=135)   857    156        2 (1752/ 978-1847/1064) -48.8 W46-W53 S21-S13
      7  463 1039 (N19E34 L= 52)   318     79        1 ( 425/1014- 498/1062) -38.7 E36-E31 N17-N21
      8 1823  913 (S24W50 L=135)   402     88        1 (1800/ 869-1839/ 963)  59.0 W46-W51 S26-S21
      9 1355  746 (S19W12 L= 97)   466    206        0 (1325/ 701-1397/ 786) -59.0 W09-W13 S22-S16
     10 1489  567 (S35W17 L=102)  1135    205        0 (1420/ 478-1522/ 667)  45.0 W09-W20 S39-S28
     11  928  464 (S25E22 L= 63)   996    264        4 ( 889/ 364- 974/ 561)  58.4 E25-E15 S32-S19
     12 1592  387 (S55W26 L=111)  2464    414        4 (1427/ 319-1701/ 476)   0.0 W06-W40 S58-S49
     13  631  362 (S24E46 L= 40)   771    149        4 ( 608/ 312- 660/ 418)  49.4 E49-E42 S27-S19
  

    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