Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  892 1675 (N47E14 L=126)  2597    376       10 ( 773/1582-1052/1731)  13.4 E23-W00 N39-N51
      2 1422 1658 (N46W35 L=175)   671    119        1 (1378/1634-1468/1681)  16.7 W29-W39 N44-N48
      3 1262 1626 (N44W19 L=159)   404     87        1 (1231/1592-1293/1656)  45.0 W16-W22 N41-N46
      4 1640 1541 (N37W50 L=190)   420     66        1 (1611/1527-1666/1557)   0.0 W46-W52 N35-N38
      5  431 1461 (N29E46 L= 94)   422    182        1 ( 414/1368- 458/1518) -78.7 E47-E44 N22-N32
      6  955 1306 (N21E05 L=135)   448    104        2 ( 918/1281-1015/1340) -26.6 E07-E01 N18-N22
      7  453 1222 (N14E39 L=101)   266    122        2 ( 434/1165- 470/1280) -60.3 E41-E37 N10-N17
      8  900 1228 (N15E08 L=132)   649    231        4 ( 803/1200-1016/1259)   4.1 E14-W00 N13-N17
      9  851 1135 (N10E11 L=129)   498    255        3 ( 782/1088- 994/1203) -23.2 E15-E01 N06-N13
     10  285  816 (S12E53 L= 87)  1184    287        3 ( 207/ 738- 343/ 897) -36.9 E61-E47 S17-S07
     11 1550  779 (S12W35 L=176)   328     90        2 (1525/ 735-1584/ 808)  53.1 W33-W38 S14-S09
     12  958  692 (S18E04 L=137)   444    160        1 ( 926/ 625- 986/ 763)  83.7 E05-E01 S22-S13
     13  466  400 (S42E47 L= 93)  1291    241        2 ( 417/ 359- 505/ 464)  35.5 E55-E40 S45-S35
     14 1297  378 (S40W24 L=164)  1377    352        3 (1152/ 327-1468/ 427)  11.3 W12-W37 S44-S36
  

    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