Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1716 1551 (N22W70 L=273)  1389    180        3 (1631/1523-1797/1580) -20.0 W60-W82 N17-N25
      2 1501 1438 (N21W41 L=245)   380     49        2 (1474/1418-1526/1467) -90.0 W38-W43 N19-N23
      3 1754 1405 (N13W62 L=266)   415    113        2 (1711/1370-1803/1433) -45.0 W57-W67 N09-N15
      4  863 1268 (N24E06 L=198)  1083    273        4 ( 783/1174- 928/1379) -71.6 E09-E02 N17-N32
      5 1635 1295 (N10W46 L=249)   334    103        0 (1593/1263-1684/1312)   0.0 W41-W50 N09-N10
      6  624  985 (N11E25 L=178)   317    118        0 ( 603/ 939- 673/1024)  33.7 E27-E21 N08-N12
      7 1363  811 (S12W17 L=220)   507    137        1 (1337/ 752-1404/ 867)  45.0 W14-W20 S15-S09
      8 1015  797 (S06E05 L=199)   375    151        0 ( 986/ 742-1073/ 837)  33.7 E07-W00 S09-S04
      9  789  737 (S06E19 L=184)   652    201        2 ( 708/ 691- 878/ 783) -37.9 E23-E14 S10-S02
     10 1630  733 (S23W35 L=239)   277     89        0 (1588/ 706-1657/ 767)  18.4 W31-W37 S24-S21
     11 1764  713 (S29W49 L=253)   537     89        0 (1731/ 678-1802/ 749)  20.6 W45-W53 S30-S26
     12 1019  477 (S27E11 L=192)   649    295        0 ( 940/ 380-1136/ 556)  24.0 E19-E01 S33-S23
     13 1215  455 (S33W01 L=205)   448    129        0 (1175/ 416-1262/ 501)  35.5 E02-W05 S35-S30
  

    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