Open new doc and Insert page break. On the (new) 2nd page paste this logo script:
;KOCH C
;Draws a sequence of Koch “C” curves. The size of the curve is determined by n≤256; its position in the sequence by p≥0.
;The embedded, tabbed routine, kc, below is a “daemon”, which actually draws the curve. The daemon draws the p=0 curve directly, and the (p+1)th curve by replacing the line segments of the p=1 curve with scaled-down pth curves ( p≥0).
;The main kcurve-routine, “wrapped around” the daemon, merely positions the drawing-point so that the curve appears in the centre of the page. It also colours the sub-curves of the curve to show how the Koch “C” curve is constructed.
;Run the script in LibreOffice by accessing the LOGO-toolbar and hitting the green triangle button
;lines preceded by a “;” are ignored by logo
CLEARSCREEN
HOME
HIDETURTLE
To kcurve :n :p
GLOBAL c
c=SQRT 2
TO kc :n :p
IF :p=0 [ FD :n ] [
LT 45
kc :n/c :p-1
RT 90
kc :n/c :p-1
LT 45 ]
END
PU BK :n/2 LT 90 BK (3*:n)/8 RT 90 PS 4 PD
IF :p=0 [ PC [5] FD :n PC [0] ] [
LT 45
PC [5] kc :n/c :p-1 PC [0]
RT 90
PC [8] kc :n/c :p-1 PC [0]
LEFT 45 ]
PU RT 90 BK (3*:n)/8 LT 90 BK :n/2 PD PS 1
END
;”Groups” the components of the curve drawn by the command ‘kcurve (256, 10)’ “
PICTURE [ kcurve (256, 10) ]
;Exports an .svg-image of the curve (on a white background) to the folder containing the script
;PICTURE “LibreLogoKochCurve.svg” [ PU POS [0, 0] PD POS [PAGESIZE[0], 0] POS [PAGESIZE[0], (SQRT 2)*PAGESIZE[0]] POS [0, (SQRT 2)*PAGESIZE[0]] POS [0,0] PU HOME PD FILLCOLOR [3] FILL kcurve (256, 10) ]
;this .svg-image can be opened in LibreOffice and then “exported” as .png or .jpg
[script ends]
Run the script by hitting the (Logo) green triangle in the main toolbar.
Not untypically, the script will run once, and draw the Koch curve, but if the 1st page "screen" is cleared (hit the "blank-page"-icon in the Logo-toolbar) and the script is run again, LO freezes. Nothing works. I have to force a "quit" to get it back.
The above script runs fine with the std LO pkgs in Ubuntu 16.04.5 and OS "Tumbleweed"
Description:
Working in Ubuntu Bionic with the std LibreOffice pkg.
"lsb_release -rd" returns:
Description: Ubuntu 18.04.1 LTS
Release: 18.04
"apt-cache policy libreoffice" gives:
libreoffice: 0ubuntu0. 18.04.1 6.0.6-0ubuntu0. 18.04.1 500 gb.archive. ubuntu. com/ubuntu bionic- updates/ universe amd64 Packages 6.0.3-0ubuntu1 500 gb.archive. ubuntu. com/ubuntu bionic/universe amd64 Packages
Installed: (none)
Candidate: 1:6.0.6-
Version table:
1:
500 http://
1:
500 http://
The problem:
1. Go -> View -> Toolbars -> Check "Logo"
Open new doc and Insert page break. On the (new) 2nd page paste this logo script:
;KOCH C
;Draws a sequence of Koch “C” curves. The size of the curve is determined by n≤256; its position in the sequence by p≥0.
;The embedded, tabbed routine, kc, below is a “daemon”, which actually draws the curve. The daemon draws the p=0 curve directly, and the (p+1)th curve by replacing the line segments of the p=1 curve with scaled-down pth curves ( p≥0).
;The main kcurve-routine, “wrapped around” the daemon, merely positions the drawing-point so that the curve appears in the centre of the page. It also colours the sub-curves of the curve to show how the Koch “C” curve is constructed.
;Run the script in LibreOffice by accessing the LOGO-toolbar and hitting the green triangle button
;lines preceded by a “;” are ignored by logo
CLEARSCREEN
HOME
HIDETURTLE
To kcurve :n :p
GLOBAL c
c=SQRT 2
TO kc :n :p
IF :p=0 [ FD :n ] [
LT 45
kc :n/c :p-1
RT 90
kc :n/c :p-1
LT 45 ]
END
PU BK :n/2 LT 90 BK (3*:n)/8 RT 90 PS 4 PD
IF :p=0 [ PC [5] FD :n PC [0] ] [
LT 45
PC [5] kc :n/c :p-1 PC [0]
RT 90
PC [8] kc :n/c :p-1 PC [0]
LEFT 45 ]
PU RT 90 BK (3*:n)/8 LT 90 BK :n/2 PD PS 1
END
;”Groups” the components of the curve drawn by the command ‘kcurve (256, 10)’ “
PICTURE [ kcurve (256, 10) ]
;Exports an .svg-image of the curve (on a white background) to the folder containing the script urve.svg” [ PU POS [0, 0] PD POS [PAGESIZE[0], 0] POS [PAGESIZE[0], (SQRT 2)*PAGESIZE[0]] POS [0, (SQRT 2)*PAGESIZE[0]] POS [0,0] PU HOME PD FILLCOLOR [3] FILL kcurve (256, 10) ]
;PICTURE “LibreLogoKochC
;this .svg-image can be opened in LibreOffice and then “exported” as .png or .jpg
[script ends]
Run the script by hitting the (Logo) green triangle in the main toolbar.
Not untypically, the script will run once, and draw the Koch curve, but if the 1st page "screen" is cleared (hit the "blank-page"-icon in the Logo-toolbar) and the script is run again, LO freezes. Nothing works. I have to force a "quit" to get it back.
The above script runs fine with the std LO pkgs in Ubuntu 16.04.5 and OS "Tumbleweed"
Steps to Reproduce:
1. See my description
2.
3.
Actual Results:
See my description
Expected Results:
See my description
Reproducible: Always
User Profile Reset: No
Additional Info: