/tutorial/triangle/version2/triangle.e

http://github.com/tybor/Liberty · Specman e · 49 lines · 33 code · 10 blank · 6 comment · 0 complexity · 180ec9b12f3d04dc77610d38f423e570 MD5 · raw file 

    

  1. class TRIANGLE
    2. 

  2. 	-- Description of TRIANGLEs objects.
    3. 

  3. 

  4. creation {ANY}
    5. 

  5. 	make
    6. 

  6. 

  7. feature {ANY}
    8. 

  8. 	p1: POINT
    9. 

  9. 			-- First point.
    10. 

  10. 

  11. 	p2: POINT
    12. 

  12. 			-- Second point.
    13. 

  13. 

  14. 	p3: POINT
    15. 

  15. 			-- Third point.
    16. 

  16. 

  17. 	translate (dx, dy: REAL) is
    18. 

  18. 			-- To translate the `Current' TRIANGLE.
    19. 

  19. 		do
    20. 

  20. 			p1.translate(dx, dy)
    21. 

  21. 			p2.translate(dx, dy)
    22. 

  22. 			p3.translate(dx, dy)
    23. 

  23. 		end
    24. 

    25. 

  25. feature {}
    26. 

  26. 	make (a, b, c: POINT) is
    27. 

  27. 			-- To create a new TRIANGLE.
    28. 

  28. 		require
    29. 

  29. 			a /= Void
    30. 

  30. 			b /= Void
    31. 

  31. 			c /= Void
    32. 

  32. 		do
    33. 

  33. 			p1 := a
    34. 

  34. 			p2 := b
    35. 

  35. 			p3 := c
    36. 

  36. 		ensure
    37. 

  37. 			p1 = a
    38. 

  38. 			p2 = b
    39. 

  39. 			p3 = c
    40. 

  40. 		end
    41. 

    42. 

  42. invariant
    43. 

  43. 	p1 /= Void
    44. 

    45. 

  45. 	p2 /= Void
    46. 

    47. 

  47. 	p3 /= Void
    48. 

    49. 

  49. end -- class TRIANGLE
    50.