kturtle/scripts/kde.turtle

0001 kturtle-script-v1.0
0002 # The KDE Logo
0003 # SPDX-FileCopyrightText: 2008 Andy Teijelo <ateijelo@gmail.com>
0004 # SPDX-License-Identifier: GPL-2.0-or-later
0005
0006
0007 # turnright and forward in one
0008 @(learn) trfw $tr@(,) $fw {
0009         @(turnright) $tr
0010         @(forward) $fw
0011 }
0012
0013 # initialization
0014 @(reset)
0015 @(canvassize) 620@(,) 480
0016 @(canvascolor) 10@(,) 50@(,) 200
0017 @(pencolor) 255@(,) 255@(,) 255
0018 @(penwidth) 3
0019
0020 # "K"
0021 @(penup)
0022 @(go) 294@(,) 280
0023 @(pendown)
0024 trfw 81@(,) 50
0025 trfw -81@(,) 90
0026 trfw 145@(,) 120
0027 trfw -72@(,) 55
0028 trfw -108@(,) 116
0029 trfw 73@(,) 112
0030 trfw -115@(,) 55
0031 trfw -65@(,) 113
0032 trfw 142@(,) 92
0033 trfw -96@(,) 50
0034 trfw -84@(,) 209
0035
0036 # gear
0037 @(penup)
0038 @(go) 358@(,) 322
0039 @(direction) 243
0040 @(pendown)
0041 @(repeat) 4 {
0042         @(repeat) 3 {
0043     trfw 3.75@(,) 6
0044   }
0045   trfw -59.25@(,) 43
0046   trfw 39@(,) 3
0047   trfw 39@(,) 32
0048   trfw 39@(,) 3
0049   trfw 39@(,) 43
0050   trfw -63@(,) 6
0051 }
0052 trfw 4@(,) 4
0053 trfw 112.5@(,) 25
0054 trfw 58@(,) 11
0055 @(repeat) 25 {
0056   trfw -8@(,) 11
0057 }
0058 trfw -8@(,) 7
0059 trfw 117@(,) 33
0060 trfw -70@(,) 9
0061 trfw 71@(,) 27
0062 trfw 39@(,) 3
0063 trfw 39@(,) 32
0064 trfw 39@(,) 3
0065 trfw 39@(,) 43
0066 trfw -62@(,) 8
0067
0068 # border
0069 @(penup)
0070 @(go) 142@(,) 59
0071 @(direction) 0
0072 @(penwidth) 5
0073 @(pendown)
0074 @(repeat) 4 {
0075   @(repeat) 6 {
0076     trfw 15@(,) 4
0077   }
0078   @(forward) 320
0079 }
0080
0081 # move turtle below
0082 @(penup)
0083 @(go) 320@(,) 440