Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1368 1775 (N53W48 L= 52)   933     81        0 (1326/1746-1407/1804)  10.0 W40-W57 N51-N55
      2 1256 1764 (N54W34 L= 38)   496     36        0 (1232/1737-1282/1790)  18.4 W29-W38 N51-N56
      3 1600 1667 (N41W65 L= 69)   697     79        1 (1570/1641-1644/1694) -38.7 W60-W68 N38-N43
      4  367 1537 (N41E59 L=305)   591     90        0 ( 320/1525- 411/1552)   4.4 E66-E53 N39-N41
      5  846 1455 (N33E10 L=354)  1189    249        2 ( 752/1397- 939/1540) -35.5 E17-E03 N29-N39
      6  672 1480 (N36E24 L=340)   386    124        0 ( 650/1423- 701/1532)  74.1 E25-E22 N32-N39
      7  875 1213 (N17E08 L=355)   498    210        1 ( 826/1146- 950/1272)  41.2 E11-E03 N13-N20
      8 1452 1117 (N07W28 L= 32)   223     51        1 (1433/1088-1470/1138)  56.3 W26-W29 N05-N08
      9 1347 1051 (N04W20 L= 24)   246     62        1 (1323/1025-1385/1069)  26.6 W18-W23 N02-N05
     10 1734  850 (S12W49 L= 53)   661     99        1 (1697/ 805-1777/ 890)  29.7 W45-W53 S14-S09
     11  394  515 (S26E54 L=310)  1587    265        1 ( 321/ 440- 453/ 570) -48.4 E64-E49 S31-S21
     12  879  504 (S28E14 L=350)   250     46        0 ( 851/ 492- 912/ 521)   0.0 E15-E11 S28-S26
     13 1224  384 (S40W11 L= 15)   404     88        1 (1189/ 361-1263/ 409)  26.6 W08-W14 S41-S38
  

    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