Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1675 1597 (N21W69 L= 33)  2106    262        5 (1637/1490-1709/1699)  22.6 W57-W83 N15-N26
      2 1517 1616 (N28W54 L= 19)  1334    155        1 (1448/1556-1576/1664) -78.7 W51-W56 N22-N32
      3 1365 1453 (N23W33 L=358)   390     86        1 (1333/1409-1385/1488)  38.7 W31-W36 N20-N24
      4 1221 1447 (N27W24 L=348)   371    100        0 (1178/1399-1255/1476) -80.5 W21-W25 N23-N29
      5 1521 1428 (N17W43 L=  7)   828    210        1 (1433/1366-1595/1470) -55.0 W38-W46 N11-N21
      6  686 1383 (N36E14 L=311)   402     75        0 ( 654/1359- 721/1403) -11.3 E16-E11 N34-N37
      7 1156 1326 (N21W15 L=340)   249     87        4 (1119/1294-1182/1359)  21.8 W12-W17 N19-N23
      8 1615 1077 (S05W37 L=  2)   305     58        0 (1593/1045-1635/1106)  26.6 W35-W39 S06-S03
      9  209 1052 (N24E61 L=264)  1161    138        2 ( 155/1013- 270/1092) -18.4 E69-E53 N21-N26
     10  135  994 (N21E73 L=251)  1218    111        3 ( 109/ 940- 160/1046)  31.0 E80-E68 N17-N23
     11  938  856 (S00E09 L=316)   288     65        2 ( 913/ 824- 960/ 879)  33.7 E10-E07 S02-N01
     12 1728  783 (S26W42 L=  7)  1208    199        2 (1654/ 731-1814/ 847)   3.6 W35-W51 S27-S23
     13 1555  789 (S20W28 L=352)   707    212        0 (1446/ 756-1618/ 837)  -8.7 W19-W32 S21-S16
     14  866  729 (S06E16 L=309)   439     92        1 ( 839/ 682- 895/ 777)  51.3 E18-E13 S09-S03
     15  884  285 (S37E32 L=292)  3155    492        3 ( 807/ 124- 993/ 521)  29.1 E66-E14 S51-S22
  

    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