Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  365 1593 (N26E67 L=205)  1577    177        3 ( 313/1505- 410/1649) -57.5 E73-E61 N19-N30
      2  708 1531 (N27E31 L=242)   746    159        1 ( 682/1463- 753/1602) -84.8 E32-E28 N22-N33
      3 1653 1533 (N43W48 L=320)   571     51        2 (1634/1501-1673/1567)  68.2 W44-W51 N40-N46
      4 1010 1413 (N24E07 L=266)   275     85        0 ( 974/1380-1043/1440) -31.0 E09-E04 N22-N25
      5  169 1098 (S07E67 L=205)   622    151        0 ( 146/1056- 188/1134)  59.0 E70-E64 S09-S04
      6  226  986 (S13E58 L=214)   976    182        1 ( 186/ 915- 269/1072) -56.3 E63-E53 S16-S07
      7 1803  741 (S06W63 L=335)   728    126        0 (1782/ 701-1843/ 795) -22.6 W58-W70 S08-S03
      8  191  751 (S29E68 L=205)  1329    101        1 ( 152/ 718- 235/ 779)  11.8 E83-E59 S31-S26
      9 1002  640 (S24W04 L=277)   217     46        2 ( 981/ 623-1025/ 660)  45.0 W02-W05 S24-S22
     10 1783  615 (S14W67 L=339)  1567    119        4 (1745/ 568-1825/ 655)  32.0 W62-W72 S17-S11
     11 1703  610 (S16W57 L=330)   449     43        1 (1675/ 586-1721/ 632) -31.0 W54-W60 S17-S14
     12 1296  484 (S30W28 L=301)  1418    431        0 (1108/ 445-1467/ 533)  26.6 W15-W39 S35-S23
     13 1179  254 (S50W33 L=305)   425     51        0 (1150/ 239-1213/ 273)   0.0 W28-W36 S51-S48
     14 1365  232 (S48W55 L=328)   688     63        1 (1343/ 203-1384/ 271) -30.3 W50-W64 S51-S44
  

    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