Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1345 1579 (N33W13 L=357)   306     65        2 (1310/1562-1382/1593)  11.3 W10-W15 N31-N34
      2 1175 1408 (N19W03 L=348)   486    154        1 (1109/1384-1256/1432)   0.0 W00-W08 N17-N20
      3  307 1396 (N08E55 L=289)   402     78        0 ( 285/1359- 338/1428)  76.0 E56-E52 N05-N09
      4 1238 1307 (N13W08 L=353)  1943    553       10 (1102/1205-1380/1384)  13.2 W00-W17 N06-N18
      5 1003 1298 (N09E05 L=339)   368     99        2 ( 964/1251-1036/1323) -36.9 E07-E03 N06-N11
      6 1314 1284 (N13W13 L=358)   238     42        1 (1290/1261-1341/1310) -14.0 W11-W15 N11-N14
      7 1534  959 (S02W32 L= 16)   347    116        0 (1471/ 944-1591/ 972)  20.6 W27-W35 S03-N00
      8 1532  559 (S25W43 L= 27)  4351   1052        9 (1201/ 412-1836/ 965)  49.6 W22-W58 S37-N04
      9 1215  910 (S10W13 L=357)   193     94        0 (1194/ 874-1228/ 959) -68.2 W10-W13 S12-S07
     10  314  855 (S24E47 L=297)  1241    278        2 ( 232/ 779- 444/ 905)  18.4 E57-E35 S29-S20
     11  900  732 (S25E03 L=341)  1761    524        5 ( 745/ 681-1117/ 862)  -2.4 E14-W10 S29-S18
     12 1332  661 (S22W25 L= 10)   948    369        1 (1187/ 633-1506/ 688)  18.4 W15-W36 S25-S17
     13  405  548 (S44E44 L=300)  1619    359        3 ( 261/ 516- 592/ 574)   2.9 E65-E25 S45-S41
     14 1768  530 (S21W68 L= 52)   490     75        0 (1742/ 496-1787/ 567)  90.0 W65-W70 S23-S18
  

    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