;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                               for CoCreate SolidDesigner
;;  Description:
;;      display configurations with delay and in full screen modus
;;      for the purpose of screen recording with external tool
;;
;;  Reference  : https://ww3.cad.de/foren/ubb/Forum29/HTML/004888.shtml#000012
;;  Docu       : https://support.ptc.com/help/creo_elements_direct/r20.5.0.0/advanced_documentation/integration_kit/reference/util_misc.html#sd-call-win-command-by-sysid
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  Filename   : cadde-29-004888.lsp
;;  Version    : 1.0 
;;  Created    : Fri Sep  9 23:13:50 CEST 2022
;;  Modified   : Sat Sep 10 01:55:04 CEST 2022
;;  Author     : der_Wolfgang@forum@cad.de
;;  Download   : cad.de
;;  SD-Version : developed with PE80
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(in-package :cadde-wt)
(use-package :oli)

(defun show-config-and-wait (owner config wait &key reset)
  ;; irgend eine aktive zuerst ausschalten
  (when (and reset (sd-inq-active-configuration))
    (cfn_activate_double_click_action :add_key :none :config (sd-inq-active-configuration)))
  (cfn_activate_double_click_action :add_key :none 
    :config :FULL_NAME :START_NAME owner :CONFIGURATION config :END_NAME)
  (format T "~&active configuration: ~S within ~S~%" 
    (if (sd-inq-active-configuration) config "-none-") owner)
  (sleep wait)
  )

(let ((cfgs (oli::sd-inq-configurations :owner (oli::sd-pathname-to-obj "/a001")))
        )
  ;(dolist (a-cfg cfgs) (format T "~&Config~%~{  ~S ~S~%~}~%" (sd-inq-configuration-props a-cfg)))
  
  (sleep 2) ;; Zeit um Aufnahme zu starten
  (oli::sd-call-win-command-by-sysid 32890)  ;; -> full screen == F11
  (sleep 3) ;; Zeit um Aufnahme zu starten 
  
  (show-config-and-wait  "/a001" "config2"   0 :reset T)
  (show-config-and-wait  "/a001" "config1"   3)
  (show-config-and-wait  "/a001" "config2"   0)
  (show-config-and-wait  "/a001" "config1"   0)
  (show-config-and-wait  "/a001" "config2"   3)
  (show-config-and-wait  "/a001" "config1"   0)
  (show-config-and-wait  "/a001" "config1"   0)
  (show-config-and-wait  "/a001" "config2"   0)
  (show-config-and-wait  "/a001" "config2"   2)
  (show-config-and-wait  "/a001" "config1"   0)
  (show-config-and-wait  "/a001" "config2"   0)
  (show-config-and-wait  "/a001" "config1"   0)
  (show-config-and-wait  "/a001" "config1"   1)
  
  (sleep 5) ;; Zeit um Aufnahme zu beenden
  (oli::sd-call-win-command-by-sysid 32890) 

  )