Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  496 1694 (N49E57 L=177)   901     75        2 ( 468/1656- 524/1729) -20.6 E66-E49 N45-N51
      2  423 1688 (N48E69 L=164)   622     68        0 ( 405/1647- 444/1719) -28.6 E74-E62 N44-N50
      3  917 1538 (N37E08 L=226)   437     92        3 ( 877/1512- 965/1563) -15.9 E10-E03 N35-N39
      4 1062 1440 (N30W03 L=237)   319    108        1 (1013/1416-1115/1457) -18.4 W00-W06 N28-N31
      5  461 1137 (N11E38 L=196)   255     54        2 ( 438/1108- 482/1164)  90.0 E39-E35 N08-N12
      6 1796 1119 (N07W56 L=290)   549     99        0 (1760/1097-1837/1144)  -6.3 W52-W61 N05-N08
      7  206 1088 (N07E61 L=172)   499    104        4 ( 170/1068- 260/1116)  15.3 E66-E55 N05-N08
      8  346 1074 (N07E47 L=187)   293     72        1 ( 308/1062- 386/1094)  -8.1 E50-E43 N05-N07
      9 1847  985 (S02W62 L=295)   583     65        1 (1811/ 970-1877/1007)   0.0 W57-W65 S02-N00
     10  297  884 (S05E52 L=182)  1981    349        3 ( 209/ 777- 399/1005) -35.2 E60-E43 S11-N01
     11  733  742 (S14E19 L=214)   438    171        1 ( 666/ 702- 775/ 802)  36.9 E23-E15 S16-S09
     12  234  657 (S21E66 L=168)  4742    319        8 ( 143/ 536- 324/ 763) -34.4 E78-E56 S28-S14
     13  391  626 (S22E48 L=186)  1032    209        0 ( 359/ 541- 437/ 709)  45.0 E53-E41 S27-S16
     14 1071  635 (S21W02 L=236)   658    260        1 ( 964/ 559-1115/ 704)  48.4 E04-W05 S25-S16
     15  291  645 (S21E58 L=175)   590     48        0 ( 268/ 616- 314/ 669)  71.6 E61-E54 S22-S19
     16  857  580 (S24E12 L=221)   910    208        0 ( 812/ 501- 935/ 657)  48.0 E15-E06 S29-S19
     17  459  448 (S35E48 L=185)   387     51        0 ( 435/ 429- 492/ 467)  18.4 E52-E43 S36-S33
     18  733  356 (S42E26 L=208)  1813    255        4 ( 636/ 316- 844/ 405)  13.4 E36-E15 S45-S37
     19  698  212 (S57E42 L=191)   779     78        2 ( 673/ 190- 733/ 240) -31.0 E47-E36 S59-S53
     20 1174  177 (S62W17 L=251)   518     45        2 (1155/ 157-1199/ 201) -32.0 W14-W22 S64-S58
  

    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