Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  327 1469 (N21E61 L=241)  2339    251        8 ( 292/1389- 370/1573) -61.7 E69-E54 N15-N28
      2  406 1477 (N23E53 L=250)   398    100        1 ( 388/1439- 428/1517) -78.7 E54-E49 N20-N25
      3 1357 1321 (N23W19 L=322)   213     88        0 (1310/1305-1393/1337)  -9.5 W15-W21 N22-N23
      4  499 1305 (N13E38 L=264)   289     59        0 ( 465/1290- 533/1317)   0.0 E41-E35 N12-N13
      5  618 1062 (S00E26 L=277)   262     53        2 ( 590/1036- 646/1088)   0.0 E28-E23 S02-N01
      6  652  901 (S10E22 L=280)   288    100        1 ( 623/ 870- 695/ 917)  36.9 E24-E19 S12-S08
      7  675  787 (S17E20 L=283)   446    151        1 ( 606/ 768- 725/ 827) -14.0 E25-E16 S18-S14
      8 1362  723 (S14W25 L=328)   519    165        0 (1339/ 660-1395/ 791) -76.0 W23-W27 S17-S09
      9 1106  718 (S17W08 L=311)   198    112        0 (1065/ 687-1145/ 756)  51.3 W06-W10 S19-S13
     10  607  642 (S27E25 L=278)   319    101        0 ( 589/ 599- 621/ 691)  66.8 E26-E23 S30-S23
     11 1710  638 (S16W56 L=359)   364     53        1 (1688/ 614-1729/ 666) -36.9 W53-W58 S17-S14
     12 1358  380 (S38W36 L=339)   725     79        2 (1319/ 349-1392/ 410)  36.9 W32-W39 S40-S34
     13 1279  239 (S51W40 L=343)   562    100        0 (1249/ 199-1306/ 281) -52.1 W37-W44 S55-S46
  

    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