#-*- coding: utf-8-unix mode: ctp -*- # # media-div-type.txt # zt:media # #===

.(addflag im-register) ;.(addflag im-list) ; ;.(addflag imlist-0) ;.(addflag imlist-1)

.(addflag im) ;- .(addflag im-0) .(addflag im-1)

.(vartblock im-register) .– include directories to find media

; .– note an argument :xx is confusing with a parameter keyword. but ; it is parsed here as first mandatary argument. Therefore I prefer to ; write xx which is taken as :xx .(includepath ymt) .(includepath yfa)

;.(includepath zfa) ;; replaced with yfa

; .(includepath co) ;; alias .(includepath @wiki-pages/co) ;;.(includepath zfa?:t1short)

.– find and register media files

; function see _/src/ctp/gawk/mod/cfile/ ; ; images see a.arean.net/data/media/zi ; image retrieve see _/q/civ-foto which origin is: /civ/foto_/cc_ ; ;.(defparameter verbsaved verb) .(defparameter verb 3)

.(register-mediafile) ;.(defparameter verb verbsaved) .(vartblock)

.— use of media files

.(vartblock im)

.— testing media retrieve

.(defvarx size@a 120×80)

; .– the keyword arguments of search-pref will be passed to the consequent functions image eg. .(search-pref :pattern-underlay 05100$) .(search-pref :patterna dsc) .(search-pref :limitnumber 1)

.(vartblock im-1) ; comment .(image 14-t$) regexp 14-t$ ok. .dp .rule

- audio .llp .(audio 002$ :linkonly t) .dp

- video .lp .(video fake-vid :linkonly t) .dp .rule

- portable format .lp .(pf kollektor) .dp

- text .lp .(text hallo) .dp

- hyper text .lp .(ht Gedchntis xxxx) .dp

.— test line break

%comment line 1 \.lp .lp line 2 \.llp .llp line 3 \.dp .dp line 4