Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1534 1709 (N28W64 L=259)   715     74        0 (1508/1677-1565/1746)  59.0 W61-W67 N25-N30
      2 1193 1686 (N39W36 L=231)   362     54        0 (1158/1668-1223/1701) -53.1 W34-W38 N36-N40
      3 1394 1610 (N27W44 L=239)   818    189        1 (1304/1590-1484/1634) -38.7 W38-W51 N23-N31
      4 1009 1609 (N40W19 L=214)   334     83        1 ( 965/1585-1047/1625) -15.9 W15-W22 N38-N41
      5 1448 1467 (N18W39 L=235)   896    366        1 (1264/1449-1597/1491) -27.6 W27-W49 N12-N23
      6 1106 1355 (N22W14 L=209)   706    211        1 (1022/1329-1223/1390) -13.0 W09-W22 N20-N24
      7  656 1174 (N24E18 L=177)   215     88        1 ( 612/1145- 689/1198) -51.3 E20-E16 N21-N26
      8  490 1012 (N18E33 L=162)   589    210        0 ( 413/ 983- 602/1032) -15.9 E38-E24 N16-N20
      9  365  959 (N18E44 L=151)   464     82        0 ( 330/ 921- 389/ 986) -59.0 E46-E41 N15-N20
     10 1509  819 (S19W23 L=218)   236     85        0 (1485/ 780-1534/ 850)  21.8 W20-W25 S20-S17
     11  370  757 (N06E49 L=147)   663     87        0 ( 321/ 731- 422/ 796) -23.2 E53-E44 N03-N08
     12 1661  491 (S48W33 L=228)  1294    302        0 (1547/ 407-1773/ 564)   4.1 W19-W48 S51-S45
     13  490  328 (S22E63 L=132)  1036    145        2 ( 455/ 267- 524/ 397)  48.0 E69-E58 S27-S17
     14 1353  302 (S51E01 L=194)   799    113        2 (1306/ 276-1407/ 339)   5.7 E06-W04 S53-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