Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1387 1543 (N25W35 L=209)  1289    204        3 (1280/1499-1473/1578) -15.9 W27-W41 N21-N27
      2 1616 1524 (N19W51 L=225)   893    213        2 (1551/1490-1687/1550)  -4.4 W44-W57 N17-N20
      3 1625 1381 (N10W46 L=220)   274     88        0 (1586/1344-1652/1405) -53.1 W43-W47 N07-N12
      4  398 1277 (N28E37 L=137)  2167    632        2 ( 197/1168- 568/1390) -32.0 E57-E24 N18-N38
      5  924 1372 (N24W01 L=174)   195     63        0 ( 892/1359- 958/1388) -18.4 E01-W02 N22-N24
      6 1116 1305 (N16W11 L=184)  1025    187        1 (1023/1234-1203/1354) -51.3 W05-W14 N10-N20
      7  327 1021 (N14E45 L=129)   470    180        1 ( 307/ 917- 350/1098)  79.7 E46-E43 N07-N18
      8  160 1030 (N17E62 L=112)   684    123        0 ( 139/ 980- 178/1092) -82.9 E63-E59 N13-N21
      9 1684 1070 (S08W42 L=216)   451     99        0 (1640/1037-1722/1090) -31.0 W39-W45 S10-S06
     10 1818  986 (S16W53 L=227)   950    196        2 (1781/ 905-1846/1080)  63.4 W48-W56 S20-S10
     11 1919 1029 (S16W65 L=239)   901    104        1 (1898/ 991-1935/1074)  33.7 W62-W68 S18-S13
     12 1708  981 (S14W43 L=216)   347    104        1 (1673/ 933-1726/1028)  38.7 W39-W44 S16-S11
     13  598  883 (N01E28 L=146)   267     91        1 ( 586/ 826- 611/ 927)  78.7 E28-E26 S02-N03
     14  950  835 (S08E08 L=166)   266    146        1 ( 868/ 807-1017/ 850) -26.6 E12-E04 S10-S06
     15  435  608 (S12E47 L=127)  1418    352        6 ( 335/ 477- 530/ 739) -80.0 E52-E44 S21-S03
     16 1523  611 (S33W25 L=199)  1251    264        2 (1400/ 539-1594/ 721)  23.6 W15-W31 S36-S27
     17  889  558 (S23E18 L=156)   766    312        2 ( 730/ 512-1006/ 624)   2.7 E29-E08 S24-S21
     18 1035  486 (S31E11 L=163)  1274    341        2 ( 919/ 374-1176/ 615)  25.6 E22-W01 S36-S25
     19  450  470 (S21E52 L=122)   323     85        3 ( 428/ 423- 480/ 499) -90.0 E53-E50 S24-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