Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1428 1741 (N56W32 L= 87)   634     64        1 (1392/1719-1468/1755)   5.2 W27-W39 N53-N58
      2  601 1495 (N25E36 L= 19)   501    163        0 ( 559/1411- 631/1542) -41.2 E40-E31 N20-N28
      3  516 1508 (N25E43 L= 12)   404     69        0 ( 491/1469- 548/1536)  68.2 E44-E41 N22-N27
      4  392 1448 (N20E52 L=  3)   468     71        2 ( 356/1415- 422/1475) -14.0 E55-E47 N18-N21
      5  683 1414 (N21E27 L= 28)   303    118        1 ( 631/1386- 741/1447)  23.2 E30-E23 N18-N23
      6 1825 1253 (N23W60 L=115)   419     27        1 (1803/1231-1845/1272) -11.3 W57-W62 N21-N24
      7  620 1138 (N04E26 L= 29)   527    167        0 ( 547/1096- 682/1167)   0.0 E31-E21 N01-N05
      8 1676  910 (N01W45 L=100)   921    198        2 (1623/ 825-1717/ 971)  58.0 W41-W47 S04-N04
      9 1047  817 (S11W04 L= 58)   225     90        0 (1020/ 780-1080/ 855)  59.0 W02-W05 S13-S08
     10 1813  627 (S16W69 L=123)  2340    303        5 (1712/ 544-1885/ 719)  38.7 W58-W77 S21-S09
     11 1790  671 (S13W63 L=117)   800    129        2 (1741/ 637-1817/ 717)  40.6 W57-W66 S15-S09
     12  796  690 (S22E11 L= 44)   296     84        0 ( 758/ 677- 840/ 707)   0.0 E13-E08 S22-S20
     13 1485  289 (S43W57 L=112)   726     60        3 (1444/ 268-1514/ 320)   0.0 W52-W64 S44-S40
  

    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