diff options
| author | Omar Rizwan <omar@omar.website> | 2022-11-20 22:16:21 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2022-11-20 22:16:21 +0000 |
| commit | 9e7311cfc899461e7c2e538df9298e632fc8d1d2 (patch) | |
| tree | 162342637865c7a236ec1f164f3a0a94ee563e1f /virtual-programs | |
| parent | More printed programs (diff) | |
| download | folk-9e7311cfc899461e7c2e538df9298e632fc8d1d2.tar.gz folk-9e7311cfc899461e7c2e538df9298e632fc8d1d2.zip | |
Add programs
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/archive/image.folk | 2 | ||||
| -rw-r--r-- | virtual-programs/archive/welcome.folk | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/virtual-programs/archive/image.folk b/virtual-programs/archive/image.folk index a011c09c..4d2ca6fd 100644 --- a/virtual-programs/archive/image.folk +++ b/virtual-programs/archive/image.folk @@ -7,7 +7,7 @@ namespace eval ::image { dict with im { set x [expr {int($x)}] set y [expr {int($y)}] - set subdata [expr {$data + ($y * $width + $x) * $components}] + set subdata [expr {$data + ($y*$width + $x) * $components}] dict create \ width $subwidth height $subheight \ components $components \ diff --git a/virtual-programs/archive/welcome.folk b/virtual-programs/archive/welcome.folk new file mode 100644 index 00000000..0d9e3f57 --- /dev/null +++ b/virtual-programs/archive/welcome.folk @@ -0,0 +1,2 @@ +Wish $this has filename "welcome.folk" +Wish $this is labelled "welcome 2!"
\ No newline at end of file |