Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1448 1777 (N41W64 L=258)   574     71        1 (1420/1751-1472/1799)   4.4 W57-W70 N39-N42
      2 1314 1761 (N45W49 L=243)   401     48        1 (1294/1733-1338/1781)  12.5 W44-W53 N43-N46
      3 1124 1717 (N48W29 L=223)   386     46        2 (1092/1689-1151/1740) -45.0 W26-W31 N45-N49
      4  820 1600 (N47E01 L=193)  1641    331        4 ( 715/1520- 967/1665)   9.9 E11-W13 N43-N49
      5  651 1384 (N36E18 L=175)   318     89        1 ( 601/1357- 692/1403) -29.7 E22-E15 N33-N37
      6  246 1346 (N39E61 L=133)   427     49        1 ( 219/1325- 271/1369)  15.9 E64-E57 N37-N40
      7 1082 1224 (N17W07 L=201)  1351    330        3 ( 979/1097-1172/1346) -71.6 W03-W10 N08-N26
      8  641 1003 (N13E24 L=170)   287    121        1 ( 612/ 951- 673/1053) -80.5 E25-E22 N09-N15
      9 1737  942 (S14W45 L=239)   341     64        0 (1720/ 906-1754/ 978)  63.4 W43-W46 S15-S11
     10  927  821 (S03E10 L=184)   455    186        0 ( 903/ 742- 962/ 904)  53.1 E11-E05 S07-N01
     11 1773  793 (S24W48 L=241)  1179    194        1 (1715/ 743-1838/ 859) -19.7 W41-W55 S28-S19
     12  167  745 (N02E73 L=121)  2358    220        4 ( 128/ 657- 218/ 843) -74.7 E80-E68 S03-N08
     13 1190  680 (S16W03 L=197)   435    175        0 (1128/ 611-1220/ 746)  36.9 E02-W06 S19-S12
     14  344  674 (S03E53 L=141)   325     46        1 ( 326/ 650- 369/ 692) -71.6 E55-E50 S04-S01
     15  759  448 (S23E30 L=164)  1080    215        2 ( 723/ 352- 798/ 547)  47.5 E36-E24 S29-S16
     16 1660  461 (S46W40 L=234)  1709    280        2 (1553/ 396-1761/ 532)   4.6 W28-W54 S49-S42
     17  447  444 (S19E55 L=139)  3084    260        8 ( 383/ 328- 528/ 531)  65.0 E62-E48 S28-S12
     18 1204  421 (S35E01 L=192)   337    117        0 (1180/ 364-1231/ 473)  54.5 E04-W01 S38-S31
     19  914  274 (S40E28 L=166)   358     39        0 ( 886/ 260- 945/ 290) -26.6 E30-E25 S41-S37
     20 1150  202 (S53E14 L=179)   746    104        0 (1106/ 184-1199/ 221) -11.3 E18-E08 S55-S50
  

    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