Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  383 1641 (N34E68 L=306)   705     62        1 ( 371/1607- 404/1676) -21.0 E76-E63 N31-N36
      2  608 1586 (N33E39 L=336)  2175    410        6 ( 465/1437- 715/1664) -19.5 E56-E25 N23-N37
      3  493 1456 (N23E43 L=332)   542    243        0 ( 419/1381- 535/1565)  81.3 E46-E40 N17-N30
      4  420 1481 (N24E50 L=324)   350     28        0 ( 408/1454- 433/1508) -63.4 E52-E48 N21-N25
      5 1048 1396 (N25E02 L= 12)   363    133        1 (1025/1326-1081/1442)  81.9 E03-W00 N20-N27
      6  907 1341 (N20E11 L=  4)   357    147        0 ( 832/1310- 972/1361)  -6.3 E15-E06 N18-N20
      7 1636 1121 (N12W40 L= 54)   265     66        0 (1616/1088-1651/1151) -76.0 W38-W41 N10-N14
      8  939 1059 (N03E05 L=  9)   232     47        1 ( 910/1034- 969/1075)  14.0 E07-E03 N01-N03
      9 1250 1014 (N03W14 L= 28)   608    198        1 (1189/ 958-1338/1047)  18.4 W10-W19 S01-N04
     10  787 1026 (S01E14 L=360)   233     94        0 ( 747/1012- 835/1046)   0.0 E17-E11 S01-N00
     11  151  932 (S13E68 L=306)  1531    149        3 ( 118/ 863- 175/ 992) -53.1 E74-E64 S17-S09
     12 1737  928 (N01W50 L= 64)   293     29        0 (1718/ 906-1753/ 955)  71.6 W48-W51 N00-N03
     13 1599  695 (S14W42 L= 57)  1799    314        2 (1489/ 613-1716/ 807)  42.9 W35-W50 S19-S06
     14  323  635 (S30E52 L=323)   906    142        1 ( 279/ 577- 381/ 673)  31.0 E59-E44 S35-S26
  

    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