Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  645 1785 (N29E54 L=352)  1177    296        1 ( 606/1678- 688/1901) -30.4 E70-E41 N22-N39
      2  929 1708 (N31E28 L= 18)   287     72        0 ( 913/1670- 941/1742) -63.4 E29-E26 N27-N33
      3  618 1626 (N17E43 L=  2)   322     70        1 ( 580/1606- 642/1650)  63.4 E45-E41 N15-N19
      4  384 1522 (N06E57 L=349)  2122    287        4 ( 252/1463- 482/1600)  29.1 E69-E49 N01-N12
      5  536 1535 (N10E45 L=  1)   891    167        3 ( 494/1494- 605/1585)  33.7 E48-E39 N06-N12
      6  933 1417 (N12E16 L= 30)   229     94        1 ( 879/1403- 970/1435)  31.0 E18-E13 N10-N14
      7 1849 1322 (N37W53 L= 99)   955    179        0 (1829/1248-1866/1416) -84.8 W51-W55 N32-N43
      8 1587 1334 (N27W26 L= 71)   768    169        0 (1517/1275-1640/1372)   0.0 W20-W30 N25-N28
      9  849 1298 (N04E17 L= 29)   458    122        1 ( 786/1277- 904/1326)  15.9 E20-E13 N02-N05
     10  135 1228 (S15E74 L=332)  1287    123        2 (  99/1178- 173/1272)  28.6 E80-E68 S17-S11
     11  259  957 (S29E52 L=354)  2273    347        6 ( 125/ 911- 428/1002)  10.0 E70-E36 S31-S22
     12  632  941 (S21E21 L= 25)   307     95        0 ( 586/ 929- 684/ 954)  18.4 E23-E17 S22-S19
     13  807  877 (S20E08 L= 37)   374    146        2 ( 741/ 845- 877/ 899)  12.5 E12-E03 S22-S18
     14 1037  830 (S17W06 L= 52)   415     83        1 ( 994/ 808-1076/ 861)  45.0 W03-W07 S18-S14
     15  418  834 (S33E35 L= 11)   258     88        1 ( 373/ 819- 458/ 854)  23.2 E38-E31 S34-S31
  

    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