Commits

Cheikh Younes  committed 8331ae0

some edits

  • Participants
  • Parent commits 5f36793

Comments (0)

Files changed (14)

File ps/exercice10.ps

-%!PS-Adobe-2.0 
-
-% Test For loop
-
-0 20 300 {
-  /$r exch def 
-  newpath
-  200 200 $r 0 360 arc
-  closepath
-  stroke
-} for 
-
-showpage

File ps/exercice12.ps

-%!PS-Adobe-2.0
-%This is auto-generated file by ocaml
-0.1 setlinewidth
-
-/neg { -1 mul } def
-
-/circle {
-	newpath
-	/$r exch def
-	/$y exch def
-	/$x exch def
-	$x $y $r 0 360 arc 
-	closepath stroke
-} def
-
-
-/rect {
-	newpath
-	/$h exch def
-	/$w exch def
-	/$y exch def
-	/$x exch def
-	$x $y moveto
-	0 $h rlineto
-	$w 0 rlineto
-	0 $h neg rlineto
-	$w neg 0 rlineto
-	closepath stroke
-} def
-
-0. 20. 120. {
-/i exch def
-100. i add 200. 1.2 i mul 20. add circle
-} for
-
-
-
-showpage

File ps/exercice14.ps

-%!PS-Adobe-2.0 
-
-% Essai d'utilisation d'une variable non declaree
-newpath
-x 100 50 0 360 arc 
-closepath stroke
-
-showpage

File ps/exercice6.ps

-%!PS-Adobe-2.0
-
-% (2+3) - (5-2) 
-2 3 add 5 2 sub sub 
-pstack
-
-% ((( 2 +3 ) - 5 ) -2) 
-2 3 add 5 sub 2 sub 
-pstack

File ps/exercice9.ps

-%!PS-Adobe-2.0
-
-/rect {
-  newpath
-  /$h exch def
-  /$w exch def
-  /$y exch def
-  /$x exch def
-  $x $y moveto
-  0 $h rlineto
-  $w 0 rlineto
-  0 0 $h sub rlineto
-  0 $w sub 0 rlineto
-  closepath stroke
-} def
-
-100 100 100 100 rect 

File ps/exercices/exercice10.ps

+%!PS-Adobe-2.0 
+
+% Test For loop
+
+0 20 300 {
+  /$r exch def 
+  newpath
+  200 200 $r 0 360 arc
+  closepath
+  stroke
+} for 
+
+showpage

File ps/exercices/exercice12.ps

+%!PS-Adobe-2.0
+%This is auto-generated file by ocaml
+0.1 setlinewidth
+
+/neg { -1 mul } def
+
+/circle {
+	newpath
+	/$r exch def
+	/$y exch def
+	/$x exch def
+	$x $y $r 0 360 arc 
+	closepath stroke
+} def
+
+
+/rect {
+	newpath
+	/$h exch def
+	/$w exch def
+	/$y exch def
+	/$x exch def
+	$x $y moveto
+	0 $h rlineto
+	$w 0 rlineto
+	0 $h neg rlineto
+	$w neg 0 rlineto
+	closepath stroke
+} def
+
+0. 20. 120. {
+/i exch def
+100. i add 200. 1.2 i mul 20. add circle
+} for
+
+
+
+showpage

File ps/exercices/exercice14.ps

+%!PS-Adobe-2.0 
+
+% Essai d'utilisation d'une variable non declaree
+newpath
+x 100 50 0 360 arc 
+closepath stroke
+
+showpage

File ps/exercices/exercice6.ps

+%!PS-Adobe-2.0
+
+% (2+3) - (5-2) 
+2 3 add 5 2 sub sub 
+pstack
+
+% ((( 2 +3 ) - 5 ) -2) 
+2 3 add 5 sub 2 sub 
+pstack

File ps/exercices/exercice9.ps

+%!PS-Adobe-2.0
+
+/rect {
+  newpath
+  /$h exch def
+  /$w exch def
+  /$y exch def
+  /$x exch def
+  $x $y moveto
+  0 $h rlineto
+  $w 0 rlineto
+  0 0 $h sub rlineto
+  0 $w sub 0 rlineto
+  closepath stroke
+} def
+
+100 100 100 100 rect 

File ps/p1.ps

-%!PS-Adobe-2.0
-%This is auto-generated file by ocaml
-0.1 setlinewidth
-
-/neg { -1 mul } def
-
-/circle {
-	newpath
-	/$r exch def
-	/$y exch def
-	/$x exch def
-	$x $y $r 0 360 arc 
-	closepath stroke
-} def
-
-
-/rect {
-	newpath
-	/$h exch def
-	/$w exch def
-	/$y exch def
-	/$x exch def
-	$x $y moveto
-	0 $h rlineto
-	$w 0 rlineto
-	0 $h neg rlineto
-	$w neg 0 rlineto
-	closepath stroke
-} def
-
-/init 0. def
-/step 10. def
-/stop 5. step mul def
-init step stop {
-/i exch def
-0. 20. 60. {
-/j exch def
-i 100. add j 400. add 3. 5. rect
-} for
-} for
-
-
-
-showpage

File ps/p3.ps

-%!PS-Adobe-2.0
-%This is auto-generated file by ocaml
-0.1 setlinewidth
-
-/neg { -1 mul } def
-
-/circle {
-	newpath
-	/$r exch def
-	/$y exch def
-	/$x exch def
-	$x $y $r 0 360 arc 
-	closepath stroke
-} def
-
-
-/rect {
-	newpath
-	/$h exch def
-	/$w exch def
-	/$y exch def
-	/$x exch def
-	$x $y moveto
-	0 $h rlineto
-	$w 0 rlineto
-	0 $h neg rlineto
-	$w neg 0 rlineto
-	closepath stroke
-} def
-
-/x 10. def
-/y 20. def
-0. 20. 100. {
-/i exch def
-x x i add y y i add x y 3. 5. rect
-} for
-
-
-
-showpage

File ps/tests/p1.ps

+%!PS-Adobe-2.0
+%This is auto-generated file by ocaml
+0.1 setlinewidth
+
+/neg { -1 mul } def
+
+/circle {
+	newpath
+	/$r exch def
+	/$y exch def
+	/$x exch def
+	$x $y $r 0 360 arc 
+	closepath stroke
+} def
+
+
+/rect {
+	newpath
+	/$h exch def
+	/$w exch def
+	/$y exch def
+	/$x exch def
+	$x $y moveto
+	0 $h rlineto
+	$w 0 rlineto
+	0 $h neg rlineto
+	$w neg 0 rlineto
+	closepath stroke
+} def
+
+/init 0. def
+/step 10. def
+/stop 5. step mul def
+init step stop {
+/i exch def
+0. 20. 60. {
+/j exch def
+i 100. add j 400. add 3. 5. rect
+} for
+} for
+
+
+
+showpage

File ps/tests/p3.ps

+%!PS-Adobe-2.0
+%This is auto-generated file by ocaml
+0.1 setlinewidth
+
+/neg { -1 mul } def
+
+/circle {
+	newpath
+	/$r exch def
+	/$y exch def
+	/$x exch def
+	$x $y $r 0 360 arc 
+	closepath stroke
+} def
+
+
+/rect {
+	newpath
+	/$h exch def
+	/$w exch def
+	/$y exch def
+	/$x exch def
+	$x $y moveto
+	0 $h rlineto
+	$w 0 rlineto
+	0 $h neg rlineto
+	$w neg 0 rlineto
+	closepath stroke
+} def
+
+/x 10. def
+/y 20. def
+0. 20. 100. {
+/i exch def
+x x i add y y i add x y 3. 5. rect
+} for
+
+
+
+showpage