Practical application of inheritance

Type tPivot
Field x#,y#,z#
Field matrix#[4,4]
Field pitch#,yaw#,roll#
Field scalex#=1.0,scaley#=1.0,scalez#=1.0
Field qw#,qx#,qy#,qz#=1.0

	Method Move()
		x=x+10
	EndMethod

EndType

Type TCamera Extends tpivot
Field fov#=45.0
	Method New()
		'pivot=New tpivot
	EndMethod
EndType

camera:tcamera=New tcamera
camera.move
Notify camera.x