Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  642 1666 (N22E43 L=238)  1568    174        4 ( 566/1617- 733/1700)  33.7 E47-E37 N17-N25
      2 1549 1499 (N35W22 L=303)  1326    237        2 (1435/1435-1649/1548)   3.2 W12-W30 N33-N37
      3  307 1500 (N06E62 L=219)   999     93        3 ( 267/1444- 331/1544) -45.0 E66-E58 N02-N08
      4  435 1431 (N03E47 L=234)   294     35        0 ( 422/1401- 451/1458) -76.0 E48-E45 N01-N05
      5 1809 1206 (N25W48 L=329)  1131    262        3 (1781/1096-1832/1338) -86.4 W44-W51 N17-N33
      6  205 1268 (S09E63 L=217)   628     89        1 ( 184/1227- 232/1313) -32.0 E67-E58 S11-S06
      7  839 1210 (S01E15 L=266)   354     88        2 ( 793/1182- 873/1234)   0.0 E17-E12 S03-N00
      8 1736 1135 (N18W42 L=322)   300     25        0 (1716/1119-1762/1156)   0.0 W39-W44 N16-N19
      9  842  856 (S21E06 L=274)   434    159        1 ( 776/ 796- 897/ 887) -12.5 E10-E01 S22-S19
     10  992  688 (S27W07 L=288)   194     71        0 ( 962/ 656-1014/ 715) -26.6 W04-W09 S28-S25
     11  505  567 (S47E27 L=254)   859    144        0 ( 445/ 530- 573/ 605)  -4.4 E32-E19 S48-S45
     12  640  534 (S46E14 L=267)   350     63        1 ( 615/ 504- 661/ 570) -63.4 E15-E11 S47-S43
     13 1037  307 (S49W28 L=309)   260     59        0 (1006/ 283-1063/ 335)  -6.3 W23-W32 S50-S48
  

    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