Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  399 1592 (N58E48 L=322)  1286    206        0 ( 304/1570- 485/1629)   1.7 E70-E34 N56-N60
      2 1595 1428 (N15W48 L= 58)   599    153        0 (1565/1375-1628/1492)  50.2 W45-W53 N11-N17
      3 1307 1324 (N17W24 L= 34)   855    180        0 (1216/1294-1397/1352) -35.0 W19-W29 N13-N20
      4  646 1324 (N33E18 L=352)   410    145        0 ( 576/1298- 717/1340) -31.0 E22-E12 N29-N35
      5 1022 1284 (N22W06 L= 16)   704    223        0 ( 918/1259-1129/1308) -26.6 W00-W12 N18-N25
      6  180 1214 (N34E66 L=304)  1788    137        1 ( 113/1170- 237/1242)  -4.2 E83-E56 N31-N36
      7  895 1001 (N09E08 L=  2)   801    248        1 ( 826/ 900- 945/1095)  80.5 E10-E05 N03-N15
      8 1821  965 (S17W52 L= 62)   952    145        0 (1779/ 931-1886/1004) -22.6 W48-W60 S19-S13
      9 1314  799 (S12W12 L= 21)   368    105        1 (1264/ 763-1350/ 820) -38.7 W08-W13 S15-S10
     10  784  561 (S15E25 L=344)   902    173        2 ( 749/ 478- 825/ 632)  45.0 E29-E20 S19-S10
     11  256  581 (S05E68 L=302)   599     53        2 ( 240/ 552- 277/ 611)  36.9 E72-E64 S06-S03
     12 1710  533 (S43W41 L= 51)   519     61        1 (1687/ 513-1746/ 554)   0.0 W38-W45 S44-S40
     13 1495  404 (S45W18 L= 28)  1040    236        0 (1391/ 353-1602/ 455)  -2.7 W08-W29 S46-S43
     14  621  269 (S32E54 L=316)  1501    121        2 ( 577/ 215- 659/ 317)  18.4 E67-E46 S35-S27
  

    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