122 lines
2.8 KiB
Promela
122 lines
2.8 KiB
Promela
<sprite "light" [] <hemispheric-light <v 0.1 1.0 0.0>>>
|
|
; <gravity <v 0.0 -9.81 0.0>>
|
|
<sprite "sky" [] <skybox "textures/Daylight Box UV_0">>
|
|
|
|
<sprite "ground" []
|
|
<texture ["textures/grass-256x256.jpg"
|
|
<v 100.0 100.0>
|
|
<v 0.0 0.0>]
|
|
<floor <scale <v 300.0 1.0 300.0> <ground>>>>>
|
|
|
|
<Exit "door" "other">
|
|
<sprite "door" []
|
|
<move <v -13.0 0.0 1.5>
|
|
<rotate <v 0.0 -0.1 0.0> [
|
|
<scale <v 1.0 2.11 1.0>
|
|
<texture ["textures/door1.jpg"]
|
|
<touchable <move <v 0.0 0.5 0.0> <plane>>>>>
|
|
<scale <v 1.0 2.11 0.1> <move <v 0.0 0.5 0.6> <box>>>
|
|
]>>>
|
|
|
|
<Exit "miscdoor" "misc">
|
|
<sprite "miscdoor" []
|
|
<move <v -12.0 0.0 2.25>
|
|
<rotate <v 0.0 -0.1 0.0> [
|
|
<scale <v 1.0 2.11 1.0>
|
|
<texture ["textures/door1.jpg"]
|
|
<touchable <move <v 0.0 0.5 0.0> <plane>>>>>
|
|
<scale <v 1.0 2.11 0.1> <move <v 0.0 0.5 0.6> <box>>>
|
|
]>>>
|
|
|
|
<sprite "plans" []
|
|
<texture ["plans/signal-2022-12-27-125451_002.jpeg"]
|
|
<move <v 0.0 1.0 2.0>
|
|
<rotate <v 0.1 0.0 0.0>
|
|
<scale <v 2.0 2.0 0.1>
|
|
<box>>>>>>
|
|
|
|
<sprite "house" []
|
|
<move <v 0.0 0.0 10.0>
|
|
<rotate <v 0.0 0.0 0.0>
|
|
<turtle [
|
|
[
|
|
to [f]
|
|
GetPos to p
|
|
GetHeading to h
|
|
f
|
|
h SetHeading
|
|
p SetPos
|
|
] to saved
|
|
|
|
quote PenUp to PU
|
|
quote PenDown to PD
|
|
[ to [f] PD f PU ] to draw
|
|
[ to [f] PD f DefinePen GetPen ] to drawPen
|
|
|
|
[
|
|
to [f]
|
|
[
|
|
ClearPen
|
|
90 U
|
|
f
|
|
] saved
|
|
to pen
|
|
[ 0 F pen SetPen 0 F ]
|
|
] to recordPen
|
|
|
|
[ to [s1 s2] [s1 F 90 L s2 F 90 L] 2 times ] to rectL
|
|
|
|
2.3 to interiorWallHeight
|
|
2.5 to exteriorWallHeight
|
|
[ 90 R 0.06 F 90 L ] to setup
|
|
|
|
[setup [interiorWallHeight 0.12 rectL] drawPen] recordPen to interiorWall
|
|
[setup [exteriorWallHeight 0.25 rectL] drawPen] recordPen to exteriorWall
|
|
[setup 2.11 F [interiorWallHeight 2.11 - 0.25 rectL] drawPen] recordPen to interiorDoor
|
|
[setup 2.11 F [exteriorWallHeight 2.11 - 0.25 rectL] drawPen] recordPen to exteriorDoor
|
|
|
|
[ to [angle length] [ angle L [length F] draw ] saved ] to wall
|
|
|
|
#t SetMiter
|
|
[ 0 F ] to miter
|
|
[ 90 L miter ] to --
|
|
[ 90 R miter ] to ++
|
|
|
|
exteriorWall
|
|
[
|
|
2.1 F --
|
|
0.3 F exteriorDoor 1 F exteriorWall 0.9 F ++
|
|
7.7 F ++
|
|
13.3 F ++
|
|
0.7 F --
|
|
2.2 F ++
|
|
4.8 F ++
|
|
2.2 F --
|
|
4.3 F ++
|
|
11.1 F ++
|
|
] draw
|
|
|
|
interiorWall
|
|
Home
|
|
2.1 F
|
|
[7.7 F] draw
|
|
1.1 B 90 2.2 wall
|
|
1.4 B [
|
|
++
|
|
[2.1 F ++ 3 F] draw 3 B
|
|
0.7 F -- [0.9 F] draw ++ 3.2 B
|
|
[4.2 F -- 2.7 F -- 0.4 F ++ 1.0 F] draw
|
|
[-- [3.8 F] draw] saved
|
|
[4.5 F] draw
|
|
[-- [3.1 F] draw] saved
|
|
[1.3 F] draw
|
|
[++ [1.6 F] draw] saved
|
|
[1 F] draw
|
|
] saved
|
|
1.6 B 90 2.2 wall
|
|
1.4 B -90 11.1 wall
|
|
]>
|
|
>>>
|
|
|
|
[]
|