Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  540 1719 (N34E48 L=198)  1266    214        3 ( 507/1673- 581/1769)  71.6 E53-E43 N29-N37
      2  702 1602 (N26E30 L=216)   277     65        0 ( 672/1586- 741/1621)   0.0 E32-E26 N25-N27
      3 1379 1436 (N24W17 L=263)   564    100        2 (1342/1382-1406/1473) -80.5 W14-W19 N20-N26
      4 1323 1420 (N22W14 L=259)   267     62        0 (1306/1388-1348/1443)  53.1 W12-W15 N19-N23
      5  280 1348 (N07E56 L=190)  2321    389        5 ( 185/1290- 385/1387)  11.3 E66-E45 N02-N09
      6 1588 1217 (N13W33 L=279)  1473    329        4 (1516/1108-1632/1310) -54.0 W28-W36 N07-N18
      7  393 1186 (S03E43 L=203)   435     90        1 ( 364/1147- 427/1228) -33.7 E45-E39 S04-N00
      8  235 1067 (S10E55 L=191)  1279    362        1 ( 132/1009- 332/1132)  19.3 E66-E46 S13-S06
      9  214  924 (S19E57 L=189)   527    104        1 ( 185/ 887- 245/ 963)  39.8 E59-E53 S21-S16
     10  801  911 (S15E12 L=234)   399    140        0 ( 726/ 863- 857/ 946) -24.0 E17-E08 S17-S13
     11  703  770 (S25E17 L=228)   311    102        0 ( 685/ 706- 722/ 817)  90.0 E18-E16 S28-S21
     12 1629  735 (S14W44 L=289)   949    233        2 (1518/ 686-1718/ 778)  29.7 W36-W50 S18-S10
     13  863  207 (S66W01 L=247)   592     63        1 ( 835/ 184- 892/ 235) -50.2 E02-W05 S68-S62
  

    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