Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  483 1630 (N20E51 L=218)   932    258        3 ( 419/1600- 554/1670)  -7.6 E58-E43 N18-N22
      2  219 1153 (S12E58 L=211)  3344    714        9 ( 156/ 975- 260/1314) -81.5 E66-E51 S22-S02
      3  170 1084 (S16E62 L=207)   861    169        6 ( 141/1025- 210/1115)  63.4 E66-E57 S20-S14
      4  961 1033 (S08E04 L=266)   194     45        1 ( 942/1008- 978/1061)  76.0 E04-E03 S09-S05
      5  404  988 (S20E39 L=230)   516    171        1 ( 356/ 913- 453/1054)  66.0 E42-E36 S24-S15
      6  800  971 (S14E12 L=257)   371    148        2 ( 720/ 952- 868/ 987)  26.6 E16-E07 S16-S12
      7  404  884 (S26E38 L=231)   282    110        1 ( 373/ 842- 433/ 930)  56.3 E40-E36 S28-S22
      8 1332  832 (S11W22 L=292)   461    165        3 (1289/ 783-1401/ 883) -20.6 W19-W27 S13-S08
      9  981  764 (S23W03 L=272)  2183    779        9 ( 671/ 675-1391/ 858)  21.8 E16-W27 S34-S14
     10 1603  721 (S11W43 L=313)   259    100        2 (1563/ 698-1646/ 741)  38.7 W40-W45 S12-S08
     11 1624  661 (S14W47 L=316)   283    111        1 (1581/ 640-1673/ 681)  33.7 W44-W50 S15-S11
     12 1223  583 (S28W23 L=292)   288     83        1 (1175/ 565-1274/ 604)  18.4 W19-W26 S29-S26
     13 1810  559 (S13W71 L=340)  1262    247        5 (1770/ 520-1856/ 596)  33.7 W66-W78 S15-S09
     14  636  524 (S45E18 L=252)   558    121        4 ( 610/ 476- 668/ 582) -66.8 E20-E14 S48-S41
     15 1592  543 (S21W50 L=319)   556     72        1 (1555/ 514-1631/ 576)  68.2 W47-W51 S23-S18
     16  961  488 (S40W09 L=278)   437    151        2 ( 890/ 452-1043/ 523)  37.9 W04-W13 S44-S36
     17  755  443 (S49E06 L=263)   291     30        1 ( 730/ 425- 778/ 467)  11.3 E08-E03 S49-S46
     18 1228  394 (S40W32 L=301)   364     63        0 (1185/ 375-1259/ 411)  31.0 W28-W33 S40-S37
     19 1274  240 (S48W46 L=316)   434     89        1 (1253/ 206-1289/ 265) -33.7 W43-W50 S50-S46
  

    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