#!/usr/bin/perl
my $nom = "$ARGV[0]";
open (FILE, $nom);
$nom =~ s/.tex/-sol.xws/;
open (SORTIE, ">$nom");
#
my $l="";
while (<FILE>){
    next unless /^\%/; 
    $_=~ s/^\%//;
    next unless !/^\%/; 
#
$l = $l.$_
;}
my @F=split(/ *!s!/,"$l");
foreach (@F){
    if ($_ =~ m/<[cmpgh]>/){my $r = int(split(/\n/,$_)*14.5); my $ret = $r-1;
	if ($_ =~ m/<m>/){print SORTIE  "// fltk N4xcas19Multiline_Input_tabE 20 415 916 $ret 12\n";
			  $_ =~ s/ *<m>.*\n//;$_ =~ tr/\n/£/;chop;;$_ = $_."\n";}
	if ($_ =~ m/<c>/){print SORTIE  "// fltk N4xcas23Comment_Multiline_InputE 20 599 916 $ret 12\n";
		      $_ =~ s/ *<c>.*\n//;$_ =~ tr/\n/£/;chop;$_ = $_."\n";}
	if ($_ =~ m/<p>/){print SORTIE  "// fltk 7Fl_Tile 27 324 909 $r 12\n[\n";
                          print SORTIE  "// fltk N4xcas7EditeurE 27 324 909 $ret 12\n";
			  $_ =~ s/ *<p>.*\n//; $r=length("$_")-1; print SORTIE  "$r ,\n";}
    if ($_ =~ m/<g>/){print SORTIE  "// fltk 7Fl_Tile 20 36 982 541 12\n[\n// fltk N4xcas6FigureE 20 36 982 540 12\n// fltk N4xcas12History_PackE 22 79 322 70 12\n[\n";
                    $_ =~ s/ *<g>.*\n//;
		      my @lignes=split(/\n/,"$_");
		    foreach (@lignes){print SORTIE  "// fltk 7Fl_Tile 31 54 313 23 12\n[\n// fltk N4xcas19Multiline_Input_tabE 31 54 313 22 12\n$_\n]\n"};
		      print SORTIE  "]\n// fltk N4xcas5Geo2dE 348 54 524 522 12\n-5.1316,5.1316,-5.1619,5.1619,[],-5,5,1,0,0,0,1,1,1,0,1,1.4167,0,1,1,[],24,18,256,0,100,0,0,1,0.1\n \n";
		      $_="";}
    if ($_ =~ m/<h>/){print SORTIE  "// fltk 7Fl_Tile 20 36 982 541 12\n[\n// fltk N4xcas6FigureE 20 36 982 540 12\n// fltk N4xcas12History_PackE 22 79 322 70 12\n[\n";
                    $_ =~ s/ *<h>.*\n//;
		      my @lignes=split(/\n/,"$_");
		    foreach (@lignes){print SORTIE  "// fltk 7Fl_Tile 31 54 313 23 12\n[\n// fltk N4xcas19Multiline_Input_tabE 31 54 313 22 12\n$_\n]\n"};
		      print SORTIE  "]\n// fltk N4xcas5Geo3dE 347 54 524 522 12\n-5,5,-5,5,[],-5,5,0.43654,0.016157,0.89347,-0.10438,1,2,0,2097152,1,1.4167,0,1,1,[[0,0,1,0,1,1,1,1,1,1,1,1,0,0,0,1,0,0,-1,0,0,180,1,0,0,1],[0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,-1,0,0,180,1,0,0,0],[0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,-1,0,0,180,1,0,0,0],[0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,-1,0,0,180,1,0,0,0],[0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,-1,0,0,180,1,0,0,0],[0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,-1,0,0,180,1,0,0,0],[0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,-1,0,0,180,1,0,0,0],[0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,-1,0,0,180,1,0,0,0]],24,18,256,0,100,0,0,1,0.1\n \n";
		      $_="";}
			   print SORTIE  "$_";}
    else {$_ =~ s/^\n//;
    print SORTIE  "$_";}
}