Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1043 1538 (N28E02 L=358)   333     79        1 (1017/1506-1082/1561) -33.7 E03-W00 N25-N29
      2 1752 1408 (N25W51 L= 51)  1552    296        3 (1679/1325-1859/1480) -25.0 W44-W61 N20-N29
      3 1421 1259 (N12W23 L= 24)   548    191        1 (1330/1210-1491/1304) -26.6 W17-W28 N09-N14
      4 1669 1146 (N07W41 L= 42)   693    195        3 (1600/1092-1745/1221) -18.4 W35-W47 N04-N11
      5 1100 1146 (N03W04 L=  4)   235     90        1 (1052/1119-1141/1172)  31.0 W01-W06 N01-N04
      6 1473 1108 (N03W27 L= 27)   293    149        1 (1406/1071-1522/1164)  41.2 W22-W30 N00-N07
      7  841 1017 (S06E11 L=349)   382    146        1 ( 808/ 941- 874/1101)  73.3 E12-E09 S10-N00
      8 1747 1080 (N04W48 L= 48)   280     66        2 (1721/1064-1776/1101)  11.3 W45-W50 N03-N05
      9  215 1018 (S07E57 L=303)   663    120        4 ( 187/ 975- 250/1073)  63.4 E60-E53 S09-S03
     10  286  979 (S10E50 L=310)   304     75        1 ( 260/ 949- 313/ 998)  36.9 E52-E47 S11-S08
     11  457  891 (S15E36 L=324)   290    108        0 ( 440/ 841- 474/ 954) -81.9 E37-E35 S17-S10
     12 1223  908 (S10W13 L= 13)   204    126        0 (1163/ 892-1292/ 920)  15.9 W09-W16 S11-S09
     13  199  796 (S20E60 L=300)  1027    264        1 ( 183/ 699- 237/ 899)  59.7 E63-E55 S26-S14
     14  669  868 (S15E21 L=339)   461    102        2 ( 622/ 845- 732/ 896)  15.9 E24-E17 S16-S13
     15  946  816 (S17E04 L=357)   218    113        0 ( 902/ 791- 992/ 858) -18.4 E06-W00 S18-S15
     16 1746  774 (S14W52 L= 52)   423    100        3 (1718/ 727-1774/ 824)  71.6 W50-W53 S16-S10
     17 1413  785 (S16W26 L= 26)   281    104        0 (1383/ 752-1458/ 807)  31.0 W24-W29 S18-S14
     18 1091  666 (S26W07 L=  7)   253     80        1 (1054/ 628-1126/ 702)  51.3 W04-W08 S28-S23
     19 1299  562 (S31W22 L= 23)  2650    666        7 ( 987/ 430-1596/ 694)  28.8 W01-W41 S42-S20
     20  497  552 (S36E37 L=323)   263    166        0 ( 459/ 511- 534/ 603)  13.2 E41-E33 S39-S32
  

    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