Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  946 1413 (N21E05 L=356)   237     98        0 ( 930/1368- 974/1452)  68.2 E05-E02 N18-N23
      2  314 1399 (N22E52 L=308)   535     81        1 ( 292/1365- 341/1431) -51.3 E55-E49 N19-N24
      3  273 1241 (N12E53 L=308)  2703    377        7 ( 195/1080- 332/1378)  87.0 E59-E48 N02-N21
      4  992 1325 (N15E02 L=359)   225     49        2 ( 970/1304-1017/1353)  71.6 E02-W00 N13-N17
      5  740 1130 (N04E17 L=343)   444    137        1 ( 691/1084- 791/1191)  50.2 E20-E13 N01-N07
      6  174  956 (S04E63 L=297)   465     79        0 ( 143/ 941- 210/ 974)   0.0 E67-E58 S05-S03
      7  525  802 (S15E33 L=327)  1108    382        0 ( 440/ 645- 613/ 958) -68.2 E37-E28 S25-S05
      8  250  757 (S17E58 L=302)   551     59        1 ( 227/ 731- 279/ 786) -36.9 E61-E55 S18-S14
      9 1777  574 (S30W64 L= 64)  1310    151        2 (1733/ 515-1828/ 638)  76.0 W60-W69 S34-S26
     10  476  479 (S36E46 L=314)  1446    304        2 ( 392/ 410- 588/ 556)  15.9 E60-E32 S40-S31
     11  654  420 (S41E32 L=328)   262     67        0 ( 620/ 408- 690/ 433)   8.1 E35-E28 S41-S40
     12 1390  339 (S49W34 L= 34)  1607    254        1 (1307/ 294-1483/ 396) -16.3 W23-W47 S52-S44
     13 1222  354 (S48W16 L= 17)   442     81        0 (1189/ 328-1259/ 381) -18.4 W13-W19 S49-S45
     14  708  223 (S58E41 L=319)  1090    151        0 ( 649/ 180- 772/ 254)   9.5 E61-E30 S62-S55
  

    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