Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  933 1756 (N48E04 L=283)  1018    127        1 ( 896/1710- 980/1821) -65.6 E07-W00 N43-N54
      2 1405 1645 (N36W33 L=320)  1179    327        1 (1241/1613-1541/1668)  -9.1 W19-W44 N33-N38
      3  866 1566 (N33E09 L=278)   958    223        0 ( 757/1545- 959/1585)  -8.1 E16-E02 N30-N34
      4 1244 1479 (N25W17 L=304)  1637    436        2 (1056/1355-1396/1543) -27.6 W04-W25 N16-N29
      5 1771 1491 (N25W63 L=350)   736    110        4 (1735/1455-1813/1533) -45.0 W59-W67 N22-N27
      6 1756 1340 (N15W54 L=341)  1941    326        4 (1660/1242-1883/1442) -34.4 W46-W67 N08-N21
      7  809 1346 (N18E12 L=275)   595    161        0 ( 758/1281- 855/1418) -56.3 E15-E09 N13-N22
      8  404 1342 (N20E42 L=245)   677    137        1 ( 356/1303- 457/1394) -24.0 E46-E37 N17-N23
      9 1545 1293 (N12W35 L=322)   522    133        0 (1486/1260-1602/1334) -29.7 W31-W38 N10-N14
     10 1366 1278 (N12W22 L=309)   291     90        1 (1351/1232-1379/1327)  71.6 W21-W23 N08-N14
     11 1265 1281 (N12W16 L=303)   272    111        1 (1221/1248-1296/1322)  38.7 W12-W18 N10-N14
     12  213 1258 (N16E60 L=227)   504     84        0 ( 195/1214- 239/1291)  53.1 E61-E56 N13-N18
     13  535 1152 (N07E30 L=257)   460    117        0 ( 487/1118- 585/1197) -33.7 E33-E26 N05-N10
     14 1593  893 (S12W37 L=324)  1658    354        2 (1518/ 760-1686/1050)  63.4 W31-W43 S20-S02
     15  473  932 (S05E36 L=251)   244     56        0 ( 458/ 898- 484/ 964)  76.0 E36-E34 S07-S03
     16  910  820 (S14E08 L=279)   380     85        0 ( 890/ 767- 935/ 864)  71.6 E09-E06 S17-S11
     17 1803  779 (S19W57 L=344)  1255    157        3 (1757/ 715-1863/ 823)  45.0 W51-W64 S23-S16
     18 1203  719 (S22W10 L=297)   470    131        1 (1183/ 659-1230/ 788) -82.9 W08-W12 S25-S17
     19 1731  726 (S23W51 L=338)   398     53        0 (1711/ 695-1750/ 760)  76.0 W48-W52 S24-S20
     20  933  626 (S26E08 L=279)   398    156        0 ( 887/ 564- 971/ 696)  48.8 E11-E04 S30-S22
     21 1543  544 (S34W38 L=325)  1468    259        2 (1437/ 481-1630/ 641)  40.2 W29-W43 S38-S27
     22 1146  458 (S39W07 L=294)   321     78        1 (1111/ 441-1198/ 483)   0.0 W03-W10 S40-S37
     23  814  410 (S41E20 L=267)   411     88        1 ( 763/ 393- 859/ 428)  -8.1 E24-E16 S42-S39
  

    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