wadc 2.2-1 / usr / share / doc / wadc / examples / fractal.wl

This file is indexed.

/usr/share/doc/wadc/examples/fractal.wl is in wadc 2.2-1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below. 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
/*
 * fractal.wl: fractal example by Aardappel
 * part of WadC
 *
 * Copyright © 2000 Wouter van Oortmerssen
 *
 * Distributed under the terms of the GNU GPL Version 2
 * See file LICENSE.txt
 * 
 * requires Q1TEX.WAD to play
 */

#"standard.h"

main {
  thing
  frac
}

frac {
  chouter
  straight(128)
  eleft(64)
  frac3
  eleft(64)
  straight(128)
  eleft(256)
  straight(128)
  eleft(64)
  frac3
  eleft(64)
  straight(128)
  left(752)
  left(752)
  secch2
  leftsector(0,128,128)
}

frac3 {
  straight(64)
  move(32)
  rotleft
  frac2
  eleft(32)
  frac2
  eleft(32)
  frac2
  left(32)
  eleft(32)
  straight(32)
  eleft(32)
  straight(192)
  eleft(32)
  straight(240)
  eleft(32)
  straight(192)
  eleft(32)
  straight(32)
  eleft(32)
  straight(32)
  leftsector(16,112,144)
  turnaround
  movestep(32,-112)
  straight(64)
}

frac2 {
  frac1
  rotright
  frac1
  rotright
  frac1
}

frac1 {
  brick
  straight(8)
  !a
  straight(8)
  chouter2
  left(16)
  right(16)
  right(16)
  brick
  left(8)
  straight(8)
  !b
  ^a
  brick2
  left(16)
  eright(8)
  straight(16)
  eright(8)
  straight(16)
  secmet8
  rightsector(64,96,192)
  ^b
}

secch1 { floor("CFLOOR1") ceil("CITYF17") }
secch2 { floor("WOODF4") ceil("CITYF17") }
secmet8 { floor("METALF07") ceil("METALF07") }
secmet16 { floor("METALF18") ceil("METALF18") }
sechall { floor("METALF11") ceil("WOODF8") }

water { floor("QWATER1") }
sky { ceil("F_SKY1") }
green { floor("QGRASS") wall("QROCK4") }
stonefl { floor("WALLF1") }
metfl { floor("METALF18") }

brick { wall("QCITY01") }
brick2 { wall("QBRICK5") }
column { wall("QCOLUMN") }
met8w { wall("QMET01") }
chouter { wall("QMET13") }
chouter2 { wall("QMET16") }
chwindow { mid("QWINDOW4") }
smalllite { mid("LITE5") }

APT Browse - Built by Thomas Orozco.