View in color | License | Download script | History | Other scripts by: sergey |
3-Dec 4:46 UTC
[0.047] 11.038k
[0.047] 11.038k
ai-image.rREBOL[
title: "AI image"
File: %ai-image.r
Date: 21-11-2024
Version: 0.0.1
Author: "Sergey Pochinok"
Purpose: "Demonstration of using AI to obtain an image."
EMail: [%pochinok--bk--ru]
History: [
0.0.1 [21-11-2024 "Started"]
]
Category: [demo]
library: [
level: 'intermediate
platform: 'all
type: 'demo
domain: [ai graphics external-library]
tested-under: [core & view 2.7.8.3.1 win & linux]
support: none
license: 'BSD
see-also: ai-geteway.r
]
]
do http://www.rebol.org/download-a-script.r?script-name=ai-geteway.r
main: layout[
across
choice "400x400" "600x600" "800x800" "1024x1024" [
pic/size: to-pair value
main/size: 40x70 + to-pair value
]
request: field
button "generate image" #"^M" [
wait_banner: flash "Make..."
pic/image: ai/image request/text
unview wait_banner
show pic
]
return
pic: image 400x400 logo.gif [
file: request-file/only/save/file %ai_image.png
save/png file pic/image
]
]
view center-face main Notes
|