Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1234 1554 (N29W21 L=355)   416    122        0 (1187/1517-1296/1576)   7.1 W17-W25 N27-N30
      2  800 1524 (N33E09 L=325)   277     53        0 ( 769/1508- 836/1539) -21.8 E11-E06 N31-N33
      3  360 1319 (N25E43 L=291)   306     56        1 ( 329/1302- 387/1342)  21.8 E45-E40 N23-N26
      4 1819 1298 (N07W60 L= 34)   450     28        1 (1799/1269-1836/1321)  76.0 W57-W62 N04-N08
      5 1337 1291 (N11W22 L=356)   365     49        0 (1300/1268-1374/1316) -21.8 W19-W24 N09-N13
      6  797 1273 (N17E11 L=323)   444    109        0 ( 753/1234- 842/1298)  26.6 E13-E07 N14-N18
      7 1839 1112 (S04W58 L= 31)  2518    317        3 (1734/ 984-1904/1218) -47.1 W49-W64 S12-N02
      8 1710 1013 (S09W44 L= 18)   284     43        1 (1685/ 995-1738/1034)   0.0 W42-W46 S09-S07
      9  209  981 (N06E57 L=277)  1943    262        3 ( 112/ 941- 323/1023)  -2.4 E70-E46 N02-N09
     10 1582  965 (S10W34 L=  8)   321     77        1 (1555/ 937-1618/1000) -26.6 W32-W36 S11-S07
     11 1318  926 (S10W16 L=350)   263    102        1 (1274/ 891-1353/ 951) -38.7 W13-W18 S12-S07
     12 1882  840 (S21W63 L= 37)  3543    237        7 (1823/ 737-1924/ 951)  90.0 W56-W70 S27-S14
     13 1147  629 (S26W03 L=337)  3728   1014        2 ( 689/ 463-1529/ 800)   9.5 E31-W29 S30-S19
     14  555  551 (S23E38 L=296)  1805    329        5 ( 487/ 466- 611/ 703)  42.9 E46-E32 S28-S13
     15  285  632 (S15E59 L=275)   716    129        3 ( 257/ 571- 321/ 677)  33.7 E62-E53 S18-S12
     16 1805  657 (S32W58 L= 32)   383     39        1 (1781/ 640-1827/ 673) -23.2 W54-W61 S33-S30
     17 1845  607 (S36W68 L= 42)   969    112        0 (1799/ 581-1885/ 647)   7.6 W60-W76 S37-S33
     18 1622  515 (S40W41 L= 15)   506     60        0 (1593/ 490-1649/ 548)  63.4 W37-W44 S41-S37
     19 1387  439 (S42W20 L=354)   302     55        1 (1355/ 420-1411/ 463) -31.0 W17-W22 S43-S40
     20 1299  415 (S43W12 L=346)   283     38        0 (1274/ 396-1325/ 433) -26.6 W10-W14 S44-S40
     21  581  345 (S37E47 L=287)  1137    181        2 ( 515/ 282- 627/ 428)  22.2 E60-E38 S41-S31
     22  783  219 (S51E39 L=295)  1295    127        2 ( 731/ 190- 849/ 255)   3.4 E48-E31 S52-S47
  

    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