The latest version of this document can be found at www.broad.ology.org.uk/amiga/sketchblock/textsequence_rexx.html
1: /*
2: This scriptlet creates a sequence of frames for a scrolling text animation.
3: It assumes that the main MakeText.rexx is present in the SketchPath:Rexx/
4: directory, and passes data to the script via the rexx clip.
5: */
6:
7:
8: OPTIONS RESULTS
9: setclip("sketchblock_font","AmigaOS4:Fonts/_TrueType/MTCORSVA.TTF")
10: setclip("sketchblock_fill","1")
11: setclip("sketchblock_stroke","1")
12: setclip("sketchblock_glyphheight","120")
13: setclip("sketchblock_baseline","200")
14:
15: address SKETCHBLOCK
16:
17:
18: out = "ram:wb_cdl_ochill_"
19: string = "Walker Broad - On Cliff Hill"
20:
21: do i = 1 to length(string)
22:
23: call setclip("sketchblock_text",left(string,i))
24:
25: call "SketchPath:Rexx/maketext.rexx"(NOGUI)
26:
27: MOVELAYER X 57 Y 337
28: ADDRESS COMMAND "SketchPath:Rexx/ExportAs.py PNG " || out || zeros(i) || ".png"
29: 'REMOVELAYER'
30: end
31:
32: exit
33:
34: zeros:
35: procedure
36:
37: parse arg innum
38: outnum = ""
39:
40: if innum < 100 then outnum = outnum || '0'
41: if innum < 10 then outnum = outnum || '0'
42: outnum = outnum || innum
43:
44: return outnum
45: