/*
 Since I don't think complex exists in turing, we shall a module
 for doing complex arithmetic
 
 The following code was taken from
 Object Oriented Turing Reference Manual Seventh Edition Version 1.0
 by R.C. Holt and Tom West
 ISBN 0-921598-35-1
 http://compsci.ca/holtsoft/OOTRef.pdf
 Chapter 7 : Language Features, p 435
 */
module complex
    export opaque value, constant, add, subtract, modulus

    type value :
        record
            realPt, imagPt : real
        end record

    function constant (realPt, imagPt: real ) : value
        var answer : value
        answer . realPt := realPt
        answer . imagPt := imagPt
        result answer
    end constant

    function add (L, R : value ) : value
        var answer : value
        answer . realPt := L . realPt + R . realPt
        answer . imagPt := L . imagPt + R . imagPt
        result answer
    end add
% end of reused code

    function subtract ( L, R : value ) : value
        var answer : value
        answer . realPt := L . realPt - R . realPt
        answer . imagPt := L . imagPt - R . imagPt
        result answer
    end subtract
   
    function modulus ( cnum : value ) : real
        var answer : real
        answer := sqrt( cnum . realPt ** 2 + cnum . imagPt ** 2 )
        result answer
    end modulus
end complex

put "This program takes 3 complex numbers and calculates the angles and ",
    "side lengths of the triangle they constitute on the complex plane\n"
   
% Get complex numbers from user
var x : complex.value := complex.constant( 1.0, 1.0 )

put x.realPt