Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  747 1693 (N38E27 L=355)  1938    320        4 ( 590/1635- 884/1736)  -8.1 E42-E14 N33-N40
      2 1263 1672 (N40W13 L= 36)   596    196        0 (1175/1635-1346/1723) -21.0 W06-W19 N37-N43
      3 1292 1535 (N29W15 L= 37)   261     99        0 (1246/1507-1330/1575) -33.7 W11-W17 N27-N32
      4  350 1450 (N19E52 L=330)   360     62        1 ( 320/1433- 388/1464)   0.0 E55-E48 N17-N19
      5 1100 1366 (N17W02 L= 25)   815    224        1 (1042/1269-1149/1451)  76.0 W00-W05 N10-N22
      6  286 1336 (N12E55 L=327)   345     66        0 ( 267/1310- 309/1367) -33.7 E57-E51 N09-N13
      7 1310 1287 (N13W16 L= 38)   684    238        0 (1206/1236-1411/1341) -13.0 W09-W22 N10-N15
      8  513 1282 (N08E34 L=348)   232    100        0 ( 474/1258- 566/1295)  18.4 E37-E30 N06-N09
      9 1079 1148 (N03W02 L= 25)   178     95        1 (1045/1111-1111/1196) -45.0 W00-W04 N01-N05
     10  302 1163 (N01E50 L=332)   367     76        0 ( 273/1130- 333/1191)  31.0 E52-E47 S01-N02
     11  568 1109 (S02E29 L=353)   426    129        0 ( 516/1049- 618/1156)  45.0 E32-E25 S05-N01
     12  286 1003 (S09E51 L=332)   660    105        2 ( 262/ 943- 314/1052)  66.8 E53-E48 S12-S05
     13  206  962 (S11E59 L=323)   459     52        1 ( 189/ 934- 224/ 996)  45.0 E61-E57 S12-S09
     14  148  923 (S13E68 L=314)   588    131        0 ( 124/ 880- 163/ 991)  40.6 E72-E64 S15-S09
     15 1328  969 (S06W19 L= 41)   192     14        0 (1310/ 949-1346/ 989)  45.0 W17-W19 S07-S04
     16  966  844 (S16E02 L= 20)   600    275        0 ( 836/ 820-1091/ 865)   7.6 E10-W05 S17-S14
     17 1797  657 (S19W63 L= 86)  3718    293        7 (1719/ 556-1879/ 782)  71.6 W56-W72 S26-S11
     18  234  627 (S32E66 L=316)  2746    235        2 ( 200/ 526- 267/ 739)  34.4 E84-E60 S37-S24
     19 1647  629 (S23W49 L= 71)   841    230        1 (1576/ 533-1695/ 717) -32.0 W39-W55 S28-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