Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1295 1802 (N42W50 L=  2)  2000    374        2 (1136/1758-1452/1846) -18.4 W34-W61 N35-N46
      2  944 1654 (N43W14 L=326)   470     83        1 ( 907/1613- 978/1692)  29.7 W10-W17 N40-N45
      3  752 1587 (N44E03 L=309)   242     70        0 ( 723/1563- 788/1605)   0.0 E05-W00 N43-N45
      4 1704 1356 (N05W52 L=  4)   829    122        1 (1658/1299-1739/1397) -81.9 W49-W53 N01-N08
      5 1726 1109 (S09W45 L=357)  1779    317        1 (1669/ 951-1758/1246)  51.3 W38-W51 S16-S01
      6  901 1201 (N16E03 L=309)   180     68        0 ( 874/1177- 931/1226) -63.4 E03-E01 N14-N18
      7  235 1128 (N27E53 L=259)  1343    263        0 ( 133/1053- 333/1197) -25.6 E68-E43 N20-N32
      8  376 1148 (N25E39 L=273)   308     70        1 ( 359/1108- 396/1180) -90.0 E40-E37 N22-N27
      9  527 1130 (N21E28 L=284)   603    177        2 ( 473/1058- 560/1177) -90.0 E31-E24 N16-N24
     10  987 1140 (N11W01 L=312)   397    118        1 ( 933/1121-1045/1160) -21.8 E02-W03 N08-N12
     11  462 1025 (N16E34 L=278)   336    158        0 ( 394/ 992- 524/1048)   5.7 E39-E29 N15-N16
     12  214  833 (N10E60 L=252)   896    125        3 ( 174/ 789- 259/ 881)  18.4 E65-E53 N07-N11
     13  354  790 (N05E47 L=264)   383    113        0 ( 311/ 774- 403/ 814) -23.2 E50-E42 N03-N07
     14  860  724 (S09E16 L=296)   339     78        0 ( 841/ 679- 880/ 765)  80.5 E17-E14 S12-S06
     15 1402  644 (S27W14 L=326)   300     51        0 (1381/ 614-1422/ 671)  26.6 W11-W15 S28-S25
     16 1824  595 (S45W57 L=  9)   564     40        0 (1796/ 580-1851/ 612)  -9.5 W51-W64 S46-S42
     17  714  572 (S15E29 L=282)   281     80        0 ( 695/ 530- 734/ 608) -90.0 E30-E28 S17-S12
     18  346  429 (S16E68 L=244)  4501    392        5 ( 252/ 259- 467/ 530)  69.1 E79-E61 S29-S08
     19 1494  410 (S47W18 L=330)   445     81        1 (1452/ 392-1526/ 439)   0.0 W13-W20 S48-S44
     20  874  320 (S35E31 L=281)   899    179        0 ( 798/ 263- 934/ 378)  14.9 E39-E24 S37-S31
  

    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