Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  919 1761 (N39E33 L=297)   816    140        1 ( 891/1700- 948/1821) -31.6 E40-E27 N34-N43
      2  635 1689 (N26E48 L=282)   790    167        1 ( 598/1622- 674/1768) -27.9 E58-E41 N21-N30
      3 1490 1709 (N57W16 L=346)  1671    186        3 (1415/1661-1570/1738)  19.3 W07-W28 N50-N61
      4 1261 1273 (N16W07 L=338)   212     88        0 (1225/1259-1300/1293)   0.0 W04-W09 N15-N17
      5  166 1002 (S25E66 L=265)  1396    222        2 ( 118/ 912- 239/1066)  34.5 E76-E55 S31-S20
      6  497  761 (S33E28 L=302)   682    187        1 ( 410/ 733- 600/ 783)  25.0 E35-E20 S35-S28
      7 1012  618 (S27W11 L=341)   581    130        1 ( 984/ 555-1048/ 676) -82.9 W09-W12 S31-S23
      8  766  539 (S40E03 L=328)   238     76        0 ( 750/ 504- 778/ 579) -80.5 E03-E01 S42-S36
      9 1365  480 (S25W39 L= 10)   355    114        0 (1301/ 457-1406/ 507)  51.3 W36-W41 S28-S22
     10  400  426 (S62E47 L=284)   691     49        0 ( 369/ 404- 431/ 450)  -4.8 E52-E40 S63-S59
     11  504  382 (S62E28 L=302)   734     44        1 ( 480/ 351- 524/ 417)  74.1 E33-E24 S65-S58
     12  667  335 (S60E05 L=326)   383     13        0 ( 643/ 317- 688/ 353)   0.0 E07-E01 S61-S57
     13  870  233 (S60W24 L=354)   461     62        0 ( 850/ 205- 895/ 265) -26.6 W19-W29 S62-S57
  

    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