Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1301 1680 (N48W22 L=251)   331     71        0 (1275/1656-1337/1696)  18.4 W19-W25 N45-N49
      2 1430 1638 (N45W33 L=263)   560     86        0 (1385/1612-1475/1658)  20.0 W28-W39 N42-N46
      3 1672 1603 (N42W62 L=291)  1483    110        3 (1624/1573-1734/1634)   4.6 W52-W77 N40-N44
      4  707 1573 (N36E28 L=202)   580    100        2 ( 668/1544- 754/1614) -18.4 E32-E23 N34-N39
      5  322 1449 (N25E59 L=171)   488    103        2 ( 308/1413- 343/1506) -32.0 E63-E55 N23-N28
      6  691 1359 (N22E24 L=205)   276     59        1 ( 675/1322- 711/1392)  76.0 E24-E22 N19-N24
      7 1740 1130 (N11W50 L=279)  3228    431        6 (1650/ 943-1801/1301) -71.6 W43-W56 N00-N21
      8 1016 1196 (N13E01 L=228)   654    249        1 ( 931/1115-1083/1286) -48.0 E06-W03 N08-N18
      9  860 1206 (N13E11 L=218)   321     64        0 ( 841/1171- 882/1239)  90.0 E12-E09 N10-N15
     10 1246 1100 (N08W13 L=243)   342    109        0 (1221/1063-1287/1149) -56.3 W11-W16 N05-N11
     11 1076  982 (N00W03 L=233)   819    183        1 (1036/ 898-1118/1061)  77.5 W01-W05 S04-N05
     12 1351  821 (S09W21 L=251)   966    193        2 (1318/ 724-1396/ 912)  85.2 W19-W23 S14-S02
     13  671  797 (S13E22 L=208)   265     80        0 ( 641/ 768- 702/ 829) -36.9 E23-E19 S14-S10
     14  900  810 (S11E07 L=222)   344    149        0 ( 818/ 791- 962/ 825)  -5.7 E12-E02 S11-S10
     15 1864  728 (S14W70 L=299)  1131     79        3 (1840/ 667-1886/ 757) -36.9 W65-W76 S18-S12
     16 1754  731 (S14W55 L=284)   341     53        1 (1732/ 711-1785/ 748)  14.0 W52-W58 S15-S12
     17 1259  605 (S23W17 L=247)   674    143        0 (1199/ 565-1317/ 650)  35.5 W13-W20 S25-S19
     18 1205  495 (S31W15 L=245)   340     75        1 (1176/ 470-1232/ 530)  76.0 W13-W17 S32-S28
     19  926  230 (S56E05 L=224)  2517    271        4 ( 819/ 192-1065/ 261)  10.5 E19-W09 S61-S51
  

    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