Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1029 1847 (N49E34 L=170)  2018    326        4 ( 937/1781-1160/1927)  -9.5 E55-E18 N44-N55
      2  632 1671 (N24E47 L=157)   313     59        2 ( 612/1643- 650/1704) -59.0 E48-E44 N21-N26
      3  457 1610 (N16E57 L=146)   724    113        3 ( 409/1574- 507/1650)  50.2 E60-E54 N12-N19
      4 1529 1516 (N40W21 L=224)   659    130        3 (1474/1499-1599/1543)  28.6 W16-W27 N37-N43
      5  315 1466 (N04E62 L=141)  1074    132        1 ( 291/1399- 347/1523) -48.8 E65-E57 N00-N08
      6  840 1273 (N05E17 L=187)   296     88        1 ( 800/1253- 877/1306) -21.8 E19-E14 N03-N06
      7  143 1160 (S17E72 L=131)   684     48        3 ( 127/1134- 160/1190)  90.0 E75-E68 S18-S14
      8  192 1101 (S19E63 L=141)  1001    111        3 ( 167/1045- 218/1159) -50.2 E67-E59 S22-S16
      9  254  926 (S29E53 L=151)  2070    340        2 ( 180/ 774- 292/1054)  55.6 E66-E48 S39-S20
     10  350  999 (S22E44 L=160)   347     95        1 ( 308/ 979- 379/1025)  -9.5 E47-E41 S23-S20
     11  642  820 (S26E18 L=185)   340    133        1 ( 589/ 784- 691/ 858) -12.5 E22-E13 S26-S24
     12 1218  562 (S25W26 L=229)   324    103        1 (1181/ 538-1264/ 594)  63.4 W23-W27 S27-S21
     13  415  528 (S52E37 L=167)   404     58        0 ( 400/ 497- 432/ 564)  78.7 E39-E34 S54-S49
     14  494  495 (S52E27 L=177)   336     56        2 ( 460/ 477- 521/ 513)   8.1 E31-E23 S53-S50
  

    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