Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1004 1862 (N58W43 L=336)  2489    335        4 ( 879/1743-1108/1953)   6.8 W19-W78 N53-N61
      2  573 1616 (N56E17 L=277)   453     79        0 ( 540/1589- 613/1641)   6.3 E20-E11 N53-N57
      3 1486 1455 (N16W41 L=335)   575    130        2 (1456/1392-1510/1528)  41.2 W38-W46 N12-N19
      4  485 1362 (N40E28 L=266)   374     75        0 ( 452/1342- 530/1378)  -7.1 E31-E23 N37-N40
      5 1670  896 (S20W36 L=330)   477    176        0 (1637/ 822-1717/ 972)  37.9 W32-W41 S23-S16
      6 1841  881 (S27W53 L=347)   410    113        0 (1816/ 826-1859/ 927)  39.8 W49-W55 S29-S24
      7 1682  802 (S26W36 L=329)   301     85        0 (1654/ 766-1709/ 837)  31.0 W32-W38 S27-S24
      8 1416  662 (S26W13 L=307)   331     48        1 (1384/ 636-1445/ 688) -45.0 W11-W15 S27-S23
      9 1104  630 (S18E06 L=287)   208     24        0 (1085/ 608-1124/ 649)  33.7 E07-E04 S19-S17
     10 1227  587 (S25E00 L=293)   648    281        0 (1137/ 490-1333/ 641)  14.9 E08-W07 S28-S22
     11  927  500 (S22E21 L=273)   343    117        0 ( 900/ 452- 970/ 530)  38.7 E22-E17 S24-S20
     12 1519  430 (S47W17 L=311)   647    131        0 (1479/ 376-1549/ 490)  48.8 W12-W20 S50-S42
     13 1104  400 (S33E14 L=279)   496    128        0 (1047/ 384-1172/ 423) -12.5 E18-E09 S35-S31
     14  753  353 (S27E39 L=255)   461     88        1 ( 736/ 309- 772/ 396)  35.5 E42-E35 S29-S23
  

    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