Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  389 1617 (N28E55 L=199)   740    213        1 ( 352/1583- 432/1654) -24.4 E60-E49 N25-N30
      2  585 1482 (N19E34 L=220)   618    273        1 ( 462/1447- 689/1508)  -3.2 E43-E25 N17-N20
      3  402 1137 (S03E41 L=212)   261    109        0 ( 360/1107- 446/1168) -23.2 E44-E37 S04-S01
      4  211  974 (S13E57 L=196)   386     77        1 ( 188/ 940- 235/1004) -63.4 E59-E54 S15-S11
      5  404  944 (S15E40 L=214)   315    112        1 ( 363/ 913- 446/ 978)  33.7 E43-E36 S16-S12
      6  977  867 (S15E01 L=252)   978    233        2 ( 876/ 783-1102/ 945)  39.8 E07-W05 S20-S09
      7  525  921 (S15E31 L=223)   216     63        1 ( 492/ 899- 560/ 939)  11.3 E33-E28 S16-S14
      8  211  903 (S18E57 L=196)   492     76        3 ( 186/ 870- 233/ 933) -38.7 E60-E55 S19-S15
      9  666  867 (S18E21 L=232)   347     82        1 ( 647/ 834- 692/ 913)  78.7 E22-E19 S19-S14
     10  754  786 (S22E15 L=239)   288     69        2 ( 722/ 754- 796/ 809)  36.9 E17-E12 S24-S20
     11  306  764 (S26E49 L=204)   435    109        0 ( 287/ 718- 339/ 805)  45.0 E51-E45 S28-S23
     12  455  727 (S28E37 L=217)   514    166        2 ( 412/ 666- 507/ 776)  41.2 E40-E32 S31-S24
     13 1238  726 (S21W17 L=270)   309     88        1 (1204/ 685-1260/ 776)  80.5 W15-W17 S23-S17
     14 1587  582 (S25W45 L=298)  1605    320        2 (1473/ 469-1675/ 667)  65.0 W38-W49 S33-S18
  

    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