Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1612 1441 (N23W42 L= 40)   315     46        1 (1584/1415-1636/1461) -45.0 W40-W44 N20-N23
      2  977 1412 (N21E02 L=356)   347    137        0 ( 956/1353-1016/1456)  63.4 E03-W00 N17-N23
      3  329 1409 (N23E51 L=307)   622    107        2 ( 285/1372- 361/1441)  -6.3 E56-E47 N20-N24
      4  295 1219 (N11E50 L=308)  2035    430       10 ( 196/1075- 354/1365)  55.5 E59-E45 N02-N20
      5  765 1108 (N02E16 L=343)   382     66        3 ( 743/1062- 791/1140)  76.0 E16-E13 N00-N04
      6  192  952 (S05E61 L=297)   400     40        1 ( 164/ 936- 220/ 973)  -8.1 E64-E57 S05-S03
      7  554  800 (S15E31 L=327)  1047    387        1 ( 466/ 653- 641/ 960) -64.7 E35-E26 S24-S05
      8  264  755 (S17E56 L=302)   583     74        1 ( 231/ 731- 295/ 779) -15.9 E60-E53 S18-S15
      9 1794  572 (S30W67 L= 65)  1127    181        2 (1738/ 497-1852/ 633)  52.1 W63-W73 S35-S26
     10  465  466 (S37E48 L=310)  1157    201        2 ( 406/ 402- 549/ 506)  15.9 E59-E38 S40-S34
     11 1357  356 (S47W29 L= 27)   626     76        2 (1330/ 320-1390/ 398) -33.7 W25-W34 S50-S43
     12 1233  347 (S48W18 L= 16)   576     90        1 (1205/ 320-1276/ 383)  33.7 W14-W21 S50-S45
     13 1421  329 (S50W38 L= 36)   596     72        0 (1392/ 296-1448/ 367) -28.6 W32-W43 S52-S46
     14 1475  323 (S50W45 L= 43)   357     52        0 (1457/ 301-1499/ 351) -24.0 W40-W49 S51-S47
     15  733  236 (S57E36 L=322)   574     64        1 ( 697/ 218- 773/ 257)  -6.3 E41-E30 S58-S55
  

    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