Initial commit: Klammertext source distribution
Curated source subset assembled by klammertext-dev's doc/make_dist.sh: the Klammermachine (mac), the Standard Klammer Set (sks), the commands (com), editor plugins and install guides (doc), a test subset (tst), and lib/bin placeholders. Builds with 'make -C com'. Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
This commit is contained in:
59
sks/image/image.k
Normal file
59
sks/image/image.k
Normal file
@@ -0,0 +1,59 @@
|
||||
#[
|
||||
@@@state image_search_path.list :create Series of directories for image search
|
||||
:value . imgsrc ../imgsrc ../dbg
|
||||
@@@
|
||||
]#
|
||||
|
||||
@@@state Image_search_path :desc Series of directories for image search
|
||||
:value . imgsrc ../imgsrc ../dbg
|
||||
@@@
|
||||
|
||||
@@@state Image_output_dir :desc Output directory for images :value img @@@
|
||||
|
||||
@@@state Image_default_width :desc Default width for images :value .667w @@@
|
||||
|
||||
#
|
||||
# @@@argtype pixels | a pixel count :pattern \d+px @@@
|
||||
# @@image.k basename : Image read from a file @@
|
||||
# @@image.html basename | width | height : @eval import image ; result = image.image(K) eval@ @@
|
||||
@@image
|
||||
basename
|
||||
:id
|
||||
:width.length .5w
|
||||
@caption_arguments@
|
||||
:vmargin.bool true
|
||||
:center.bool true
|
||||
:hpos.hpos center
|
||||
:rel
|
||||
:abswidth.number 0.0
|
||||
:border.bool false
|
||||
:
|
||||
@eval image.Image(K) eval@
|
||||
@@
|
||||
|
||||
@@image_grid
|
||||
image_specs.rest
|
||||
:caption
|
||||
:number.bool true
|
||||
:cell_number.bool false
|
||||
:landscape.bool false
|
||||
:scale.number 0.98
|
||||
:caption_side.side bottom
|
||||
:caption_side_center.bool true
|
||||
#
|
||||
:thumbnail.bool false
|
||||
:allow_break.bool true
|
||||
# :indent.length
|
||||
# :xmargin.length
|
||||
:id
|
||||
:captionfont
|
||||
:caption_width.float .9
|
||||
:rel
|
||||
:hsep.number 0.02
|
||||
:
|
||||
@eval image_grid.Image_grid(K) eval@
|
||||
@@
|
||||
|
||||
@@fig spec.figure_id :
|
||||
@reference *spec* | Figure @
|
||||
@@
|
||||
Reference in New Issue
Block a user