pro set_rot, ax, ay, az ; ; proceedure to read rotations ; read, ' Enter the x coordinate rotation amount:', ax read, ' Enter the y coordinate rotation amount:', ay read, ' Enter the z coordinate rotation amount:', az end