Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  510 1518 (N21E40 L=214)  1311    558        2 ( 370/1451- 676/1628) -17.9 E57-E26 N17-N28
      2  364 1146 (S03E44 L=210)   482    175        1 ( 303/1109- 437/1172) -10.3 E49-E38 S04-S01
      3  389  994 (S12E41 L=213)   274     94        1 ( 361/ 966- 418/1023)  45.0 E43-E38 S13-S09
      4  189  982 (S13E60 L=194)   651    140        3 ( 154/ 955- 223/1010) -20.6 E64-E56 S14-S11
      5  398  948 (S14E40 L=214)   299    115        1 ( 353/ 923- 439/ 979)  26.6 E43-E37 S15-S12
      6  975  873 (S15E02 L=252)  1050    262        3 ( 869/ 788-1106/ 965)  39.8 E07-W05 S20-S08
      7  143  925 (S16E65 L=189)   570    127        2 ( 119/ 878- 171/ 954)  76.0 E68-E61 S18-S14
      8  660  878 (S17E21 L=233)   394    117        4 ( 640/ 833- 685/ 941)  90.0 E22-E19 S19-S13
      9  521  920 (S15E31 L=223)   274     62        1 ( 485/ 897- 554/ 938)   0.0 E33-E28 S16-S14
     10  207  908 (S17E58 L=196)   463     95        2 ( 184/ 874- 233/ 934) -45.0 E60-E55 S19-S15
     11 1236  744 (S20W16 L=270)   359    136        0 (1204/ 692-1285/ 814)  69.4 W14-W18 S23-S15
     12  301  764 (S26E50 L=204)   419    117        0 ( 283/ 721- 334/ 807)  45.0 E51-E46 S28-S23
     13  748  786 (S22E15 L=239)   346     91        1 ( 701/ 755- 797/ 806)   9.5 E18-E12 S24-S20
     14  447  726 (S28E37 L=217)   534    176        1 ( 406/ 660- 500/ 776)  41.6 E41-E32 S32-S24
     15 1579  584 (S25W44 L=298)  1666    379        4 (1464/ 471-1673/ 669)  59.0 W37-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