Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  925 1724 (N50W19 L=140)   374     65        1 ( 903/1690- 944/1760)  26.6 W14-W22 N47-N52
      2 1308 1721 (N36W45 L=166)   606    122        1 (1250/1687-1371/1745)  -9.5 W39-W51 N34-N37
      3 1268 1606 (N31W34 L=155)   305     50        0 (1235/1590-1299/1621) -21.8 W31-W36 N29-N31
      4  252 1348 (N43E54 L= 67)   432     72        1 ( 225/1312- 281/1380)  38.7 E57-E49 N40-N44
      5  824 1364 (N29E03 L=118)   282     58        1 ( 787/1343- 856/1380) -45.0 E04-W00 N27-N30
      6 1750 1280 (S01W53 L=174)  1094    171        2 (1697/1245-1838/1320) -13.0 W47-W62 S04-N02
      7  340 1098 (N25E43 L= 78)  2410    505        3 ( 197/1002- 541/1269) -36.6 E59-E28 N15-N38
      8 1824  960 (S21W51 L=172)   609    138        0 (1797/ 899-1839/1035)  54.5 W47-W53 S23-S16
      9 1924  947 (S25W65 L=186)   757     81        1 (1896/ 927-1955/ 973)  -4.8 W60-W72 S26-S23
     10 1594  894 (S17W30 L=151)   222     51        2 (1562/ 877-1620/ 914) -11.3 W27-W32 S18-S16
     11  261  813 (N10E56 L= 65)  1028    121        3 ( 217/ 753- 309/ 849) -32.0 E60-E50 N07-N13
     12 1296  750 (S17W08 L=129)   708    307        0 (1194/ 655-1409/ 842)  16.4 W00-W17 S20-S14
     13  915  793 (S05E12 L=109)  1285    269        3 ( 808/ 745-1048/ 823) -33.7 E17-E05 S10-S01
     14 1606  654 (S32W28 L=149)  1398    336        0 (1518/ 565-1724/ 795)  21.8 W19-W39 S36-S27
     15  304  734 (N05E54 L= 67)  1160    151        3 ( 249/ 690- 363/ 785)   0.0 E61-E49 N02-N07
     16  258  654 (N01E62 L= 59)   411     43        0 ( 243/ 630- 273/ 684)  33.7 E64-E59 N00-N02
     17  488  595 (S06E44 L= 77)   375     57        0 ( 459/ 577- 522/ 613)   0.0 E46-E40 S07-S05
     18 1285  486 (S33W01 L=122)   247     55        0 (1268/ 456-1300/ 518)  56.3 W00-W02 S35-S31
     19  853  176 (S44E47 L= 74)   988    144        1 ( 803/ 143- 921/ 222)   3.6 E54-E36 S46-S41
  

    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