Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1007 1749 (N44E07 L= 62)   619     81        1 ( 966/1715-1053/1770)   0.0 E10-E03 N40-N45
      2 1179 1687 (N40W07 L= 76)   737    127        1 (1130/1656-1248/1714)  -6.3 W03-W12 N36-N41
      3  759 1625 (N32E23 L= 46)   691    133        0 ( 718/1569- 796/1673) -45.0 E27-E19 N28-N35
      4 1318 1634 (N37W17 L= 87)   538     75        1 (1292/1592-1342/1669) -80.5 W15-W19 N33-N39
      5 1511 1542 (N32W32 L=101)  2135    411        4 (1361/1464-1683/1616)  -9.5 W20-W45 N27-N36
      6  283 1456 (N20E57 L= 12)   382     81        0 ( 258/1442- 316/1472)   9.5 E60-E53 N18-N20
      7 1269 1288 (N13W13 L= 83)   542    162        0 (1245/1190-1287/1364) -79.7 W11-W14 N06-N17
      8  620 1312 (N11E27 L= 42)   299     80        0 ( 581/1285- 649/1327) -21.8 E29-E24 N09-N11
      9  947 1238 (N08E06 L= 64)   228     42        0 ( 925/1211- 967/1273) -45.0 E07-E04 N06-N09
     10 1839 1216 (N14W57 L=126)   629    125        0 (1803/1191-1886/1249) -12.5 W53-W62 N12-N15
     11  314 1204 (N04E49 L= 21)   363     70        0 ( 280/1170- 342/1236)  45.0 E51-E46 N01-N05
     12  696  706 (S26E20 L= 50)   307     77        0 ( 664/ 670- 728/ 742)  45.0 E22-E17 S27-S23
     13  275  579 (S35E57 L= 12)   693     62        0 ( 251/ 552- 311/ 613) -53.1 E59-E53 S36-S32
     14 1655  514 (S30W52 L=121)   900    278        0 (1553/ 471-1763/ 563)  26.6 W43-W60 S34-S25
  

    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