Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1716 1567 (N23W72 L=272)  1446    154        0 (1648/1538-1792/1592) -20.9 W63-W85 N17-N25
      2 1489 1535 (N27W45 L=246)   647    292        1 (1408/1490-1540/1573) -33.7 W39-W49 N23-N30
      3 1452 1450 (N23W38 L=239)   605    259        1 (1327/1431-1554/1476) -20.6 W29-W45 N19-N27
      4  740 1353 (N32E13 L=188)   216    103        0 ( 705/1321- 777/1388)  26.6 E15-E09 N30-N33
      5  900 1280 (N24E03 L=198)  1032    254        2 ( 818/1183- 959/1383) -71.6 E07-W00 N17-N32
      6 1662 1311 (N10W49 L=250)   283     93        0 (1632/1285-1708/1328)   0.0 W45-W53 N09-N11
      7 1140 1313 (N22W13 L=214)   420    169        1 (1064/1291-1223/1327) -10.3 W07-W18 N20-N23
      8 1408  838 (S12W20 L=221)   465    117        1 (1376/ 781-1455/ 877)  33.7 W17-W23 S14-S09
      9 1060  812 (S06E02 L=199)   410    173        0 (1028/ 751-1128/ 850)  38.7 E04-W02 S09-S04
     10  829  749 (S06E17 L=184)   596    211        0 ( 749/ 702- 923/ 795) -37.9 E21-E11 S10-S02
     11 1655  737 (S24W38 L=238)   301     90        1 (1614/ 715-1684/ 771)  18.4 W34-W40 S25-S22
     12 1786  723 (S29W52 L=253)   457     84        0 (1756/ 685-1815/ 757)  31.0 W48-W55 S30-S27
     13  921  621 (S16E14 L=187)   352    102        1 ( 894/ 577- 943/ 674)  50.2 E16-E11 S18-S12
     14 1277  506 (S31W07 L=207)   637    217        0 (1217/ 436-1344/ 572)  32.5 W01-W12 S35-S26
     15 1061  496 (S27E08 L=193)   555    221        0 ( 993/ 424-1142/ 563)  28.3 E14-E01 S30-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