Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1044 1823 (N57W36 L= 99)   356     59        0 (1015/1802-1072/1842)   0.0 W31-W40 N56-N58
      2 1341 1633 (N34W41 L=104)   300     46        0 (1311/1618-1371/1648) -21.8 W38-W43 N33-N35
      3 1467 1526 (N24W43 L=106)   603    103        1 (1419/1491-1513/1560) -63.4 W41-W45 N21-N27
      4 1102 1481 (N32W17 L= 80)   435     85        1 (1063/1447-1131/1511) -68.2 W15-W19 N29-N34
      5 1475 1348 (N14W36 L= 98)   402    129        0 (1460/1287-1498/1411)  45.0 W33-W39 N11-N17
      6 1672 1308 (N07W49 L=111)  1381    212        4 (1592/1250-1760/1371) -30.3 W42-W56 N02-N11
      7  397 1318 (N37E40 L= 23)   318     32        1 ( 373/1297- 421/1340) -21.8 E42-E37 N35-N38
      8 1563 1304 (N10W40 L=103)   259     66        0 (1552/1268-1576/1336)  53.1 W38-W41 N07-N11
      9 1495 1088 (S00W29 L= 92)   489    162        0 (1481/1017-1508/1177)  63.4 W27-W31 S04-N04
     10  936 1084 (N12E04 L= 59)   903    416        0 ( 869/ 992-1016/1164)  60.9 E08-W00 N07-N16
     11 1870  990 (S17W59 L=122)  6490    245        9 (1748/ 856-1952/1151)  22.9 W44-W76 S24-S09
     12  183 1111 (N27E63 L=359)   508     90        1 ( 162/1069- 210/1149) -35.5 E66-E59 N24-N29
     13 1835 1028 (S14W55 L=118)   698    117        2 (1803/ 978-1866/1077)  63.4 W52-W59 S16-S10
     14  457 1014 (N18E36 L= 27)  1623    433        1 ( 302/ 956- 629/1061) -21.8 E49-E24 N11-N22
     15 1294  726 (S16W09 L= 72)   759    239        1 (1208/ 641-1354/ 821)  30.3 W02-W14 S19-S11
     16  242  744 (N05E62 L=  1)   531    110        1 ( 230/ 697- 257/ 800)  56.3 E64-E59 N01-N08
     17 1575  516 (S39W27 L= 89)  5968    811        4 (1194/ 308-1833/ 676)   4.5 E07-W57 S44-S33
     18 1104  630 (S18E04 L= 58)   441    139        0 (1059/ 603-1171/ 673) -45.0 E06-W00 S19-S13
     19  534  540 (S12E43 L= 20)   653    110        3 ( 476/ 511- 582/ 575) -29.7 E46-E39 S13-S09
     20 1400  212 (S63W08 L= 71)  1354    141        2 (1360/ 179-1455/ 253) -38.7 W03-W19 S70-S56
  

    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