(load-library "iv-mode")

(setq auto-mode-alist
      (nconc '( ( "\\.iv$"  . my-iv-mode)	; Inventor files
		( "\\.wrl$" . my-vrml-mode)	; VRML world files
		( "\\.dsa$" . my-vrml-mode)	; DSA (FSG) files
		( "\\.vpa$" . my-vrml-mode)	; VPA (Viper) files
		)
	     auto-mode-alist))

(defun my-iv-mode ()
  "Major mode for Inventor files. See iv-mode for details"
  (setq iv-indent-level 4)
  (iv-mode)
  )

(defun my-vrml-mode ()
  "Major mode for VRML files. See iv-mode for details"
  (setq iv-indent-level 2)
  (iv-mode)
  )

(setq iv-tab-always-indent nil)
;;;(setq iv-auto-newline nil)
(defun my-iv-setup ()
  (auto-fill-mode 1))
(setq iv-mode-hook 'my-iv-setup)