Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1493 1706 (N29W59 L= 85)  1887    198        4 (1397/1664-1557/1738) -19.7 W51-W66 N25-N33
      2 1291 1641 (N32W38 L= 64)   460     61        2 (1252/1617-1325/1666) -36.9 W35-W40 N30-N33
      3  612 1603 (N52E13 L= 12)   389     45        1 ( 588/1575- 631/1627) -90.0 E15-E11 N49-N54
      4  439 1548 (N53E34 L=352)  1867    284        2 ( 329/1482- 543/1608)   6.1 E48-E20 N50-N55
      5  309 1252 (N36E46 L=340)   554     89        1 ( 279/1221- 347/1292) -59.0 E49-E41 N33-N38
      6  943 1158 (N14E01 L= 25)   466    123        0 ( 898/1131-1001/1194) -59.0 E03-W01 N11-N17
      7  121  984 (N22E73 L=313)   735     57        2 (  98/ 957- 146/1015) -29.7 E78-E68 N20-N24
      8 1787  925 (S22W48 L= 74)   691    152        0 (1715/ 899-1828/ 972)  -5.2 W41-W52 S24-S19
      9  151  926 (N19E68 L=317)   631     72        2 ( 126/ 903- 182/ 949)  12.5 E73-E63 N17-N19
     10 1597  897 (S18W31 L= 57)   263     79        1 (1570/ 876-1639/ 924) -45.0 W29-W34 S19-S15
     11  904  635 (S14E17 L=  9)   977    272        1 ( 837/ 531- 978/ 747)  31.0 E24-E09 S18-S09
     12 1163  609 (S22E03 L= 23)   893    226        4 (1101/ 521-1209/ 711)  39.3 E09-W02 S26-S17
     13 1390  504 (S36W09 L= 34)   819    202        2 (1339/ 416-1431/ 585)  48.0 W03-W13 S41-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