Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1230 1552 (N29W21 L=355)   436    121        1 (1181/1517-1291/1575)   6.3 W16-W25 N27-N30
      2  789 1524 (N33E10 L=325)   266     54        0 ( 763/1506- 826/1539)   0.0 E11-E06 N31-N34
      3  358 1319 (N25E43 L=292)   296     56        0 ( 325/1305- 384/1339)  11.3 E45-E40 N23-N26
      4 1818 1300 (N07W60 L= 34)   429     25        0 (1800/1273-1838/1322)  26.6 W57-W62 N05-N08
      5 1328 1288 (N11W21 L=356)   365     72        1 (1292/1262-1370/1315) -26.6 W19-W24 N09-N13
      6  790 1276 (N17E11 L=323)   432    103        0 ( 744/1250- 832/1303)   9.5 E14-E08 N15-N18
      7 1856  964 (S13W59 L= 33)  5836    615       10 (1727/ 738-1920/1216) -66.8 W48-W69 S26-N02
      8 1703 1016 (S09W44 L= 18)   339     83        0 (1680/ 994-1732/1058) -71.6 W41-W46 S09-S06
      9  200  980 (N06E58 L=276)  2022    259        4 ( 105/ 939- 317/1022)  -2.3 E71-E46 N02-N09
     10 1575  964 (S10W34 L=  8)   281     59        1 (1547/ 939-1607/ 992) -36.9 W31-W35 S11-S08
     11 1310  924 (S10W16 L=350)   246     99        0 (1268/ 890-1343/ 946) -45.0 W13-W17 S11-S07
     12 1178  641 (S25W05 L=339)  3680    982        5 ( 730/ 519-1568/ 833)   7.9 E26-W32 S30-S17
     13  551  567 (S22E38 L=297)  1767    360        6 ( 488/ 464- 605/ 729)  50.9 E46-E32 S28-S12
     14  277  651 (S14E59 L=276)   432     59        1 ( 250/ 625- 310/ 672)   0.0 E61-E54 S15-S12
     15 1841  609 (S36W67 L= 41)  1421    118        1 (1786/ 575-1885/ 649)  11.3 W58-W75 S37-S33
     16 1617  515 (S40W40 L= 15)   486     72        0 (1584/ 493-1644/ 550)  71.6 W37-W43 S41-S37
     17  591  371 (S36E44 L=290)  1278    265        4 ( 512/ 282- 667/ 471)  19.7 E61-E33 S40-S29
     18 1379  437 (S42W19 L=354)   301     50        1 (1346/ 419-1406/ 458) -21.8 W16-W21 S43-S40
     19 1293  413 (S43W12 L=346)   287     45        0 (1267/ 393-1319/ 432) -31.0 W09-W14 S44-S40
     20  781  218 (S51E40 L=295)  1214    131        1 ( 731/ 190- 844/ 254)   3.8 E47-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