Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1486 1663 (N38W38 L=221)   456     66        2 (1456/1641-1514/1686)   0.0 W35-W40 N36-N40
      2  414 1584 (N35E47 L=137)   494     79        2 ( 373/1566- 449/1607)  18.4 E50-E43 N33-N36
      3  678 1577 (N33E24 L=159)   624    182        1 ( 601/1561- 768/1598)   0.0 E29-E17 N31-N34
      4 1595 1370 (N18W39 L=222)   870    294        1 (1476/1313-1725/1438) -18.4 W30-W49 N14-N22
      5  375 1310 (N16E43 L=140)   512    115        0 ( 340/1281- 418/1349) -23.2 E46-E39 N14-N18
      6  966 1175 (N06E03 L=180)   727    192        1 ( 862/1108-1041/1228) -35.0 E09-W01 N01-N09
      7  251 1177 (N08E54 L=129)   445     97        2 ( 227/1140- 269/1221)  90.0 E55-E52 N06-N11
      8  959  950 (S07E04 L=179)   813    208        1 ( 906/ 847-1037/1020)  55.0 E07-W00 S13-S03
      9 1563  927 (S09W34 L=217)   302     78        4 (1538/ 896-1593/ 957)  56.3 W32-W36 S10-S07
     10   90  907 (S06E77 L=106)   949    146        1 (  75/ 865- 107/ 945)  53.1 E82-E73 S08-S04
     11 1191  888 (S11W10 L=193)   184     84        0 (1167/ 853-1232/ 907)  26.6 W08-W12 S13-S10
     12 1307  845 (S14W17 L=200)   671    357        0 (1195/ 784-1456/ 905)  20.6 W10-W26 S17-S10
     13  159  796 (S14E67 L=116)  2083    343        5 ( 125/ 705- 193/ 895)  61.4 E73-E61 S18-S07
     14 1710  836 (S14W46 L=230)   368     89        1 (1688/ 789-1729/ 889)  90.0 W44-W48 S17-S11
     15 1644  794 (S17W41 L=225)   347     80        1 (1624/ 766-1673/ 829)  53.1 W39-W43 S18-S14
     16  337  787 (S15E48 L=135)   511     79        1 ( 311/ 758- 362/ 818)  36.9 E50-E45 S16-S13
     17  607  777 (S17E27 L=156)   285     52        1 ( 592/ 745- 627/ 812)  76.0 E28-E25 S18-S14
     18 1823  766 (S18W58 L=241)   840    103        1 (1783/ 736-1857/ 797)  23.2 W54-W62 S20-S16
     19 1821  655 (S25W61 L=244)   722    180        3 (1779/ 633-1865/ 683)  20.6 W55-W65 S26-S23
     20  235  619 (S25E62 L=121)   619    241        0 ( 205/ 578- 268/ 661)  24.0 E66-E57 S27-S22
     21  340  510 (S33E55 L=128)  1256    263        0 ( 319/ 423- 368/ 619)  58.4 E58-E50 S38-S25
     22 1220  523 (S35W13 L=196)  1035    214        0 (1140/ 440-1317/ 614)  45.0 W07-W19 S40-S28
     23  625  440 (S39E33 L=150)  1629    211        4 ( 570/ 367- 677/ 526)  40.2 E40-E27 S44-S33
  

    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