Graphics Plus/Graphics Plus.iso/general/msdl/example.lha/example-scenes/sample-room.lha/sample-room.msdl

Text File | 1993-11-03 | 7.2 KB | 716 lines

/* there is no view in this scene at the moment */
/* and also some objects like tv and mirror have */
/* been defined but not instantiated. The room to */
/* give you some idea is completely in positive */
/* world coords and has dimensions of approx */
/* 20x40x20. Happy rendering. Oh and it was */
/* designed in a hurry for a deadline so no */
/* comments about aesthetics or colours thankyou */
/* D. Hutchinson */

defprops kakki
drc 0.6 0.7 0.5
end

defprops
  wood
  drc 0.7725 0.6863 0.4353
end

defprops
  darkwood
  drc 0.6745 0.5373 0.3882
end

defprops
  grey
  drc 0.6 0.6 0.6
end



defprops
  carpet1
  drc 0.6 0.6 0.3
end

defprops
  carpet2
  drc 0.3 0.6 0.6
end

defprops
  cream
  drc 0.9 0.9 0.7
end

defprops
  paper1
  drc 0.6 0.6 0.6
end

defprops
  paper2
  drc 0.6 0.6 0.6
end

defprops
  paper3
  drc 0.6 0.6 0.6
end

defprops
  purple
  drc 0.85 0.6 0.5
end

defprops
  paper4
  drc 0.6 0.6 0.6
end


defobj
  unit_box
   box
      0 0 0
      1.0 1.0 1.0
   end
end

defobj
  unit_box2

  box
     -0.5 -0.5 -0.5
     0.5 0.5 0.5
  end
end

defobj
  unit_sphere
  sphere
  0 0 0 1
  end
end


polygon
4
11 20 14.9999
12 20 14.9999
12 24 14.9999
11 24 14.9999

props emission 1.5 1.5 1.5 end

end

polygon
4
11 5 14.9999
12 5 14.9999
12 9 14.9999
11 9 14.9999

props emission 1.5 1.5 1.5 end


end


defobj morph

polyhedron
{
0 0 0
0.666 1.332 2.0
1.332 1.332 2.0
1.332 0.666 2.0
0.666 0.666 2.0
0.708 1.702 1.702
1.29 1.702 1.702
1.702 1.29 1.702
1.702 0.708 1.702
1.29 0.296 1.702
0.708 0.296 1.702
0.296 0.708 1.702
0.296 1.29 1.702
0.666 2.0 1.332
1.332 2.0 1.332
1.702 1.702 1.29
2.0 1.332 1.332
2.0 0.666 1.332
1.702 0.296 1.29
1.332 0.0 1.332
0.666 0.0 1.332
0.296 0.296 1.29
0.0 0.666 1.332
0.0 1.332 1.332
0.296 1.702 1.29
0.666 2.0 0.666
1.332 2.0 0.666
1.702 1.702 0.708
2.0 1.332 0.666
2.0 0.666 0.666
1.702 0.296 0.708
1.332 0.0 0.666
0.666 0.0 0.666
0.296 0.296 0.708
0.0 0.666 0.666
0.0 1.332 0.666
0.296 1.702 0.708
0.708 1.702 0.296
1.29 1.702 0.296
1.702 1.29 0.296
1.702 0.708 0.296
1.29 0.296 0.296
0.708 0.296 0.296
0.296 0.708 0.296
0.296 1.29 0.296
0.666 1.332 0.0
1.332 1.332 0.0
1.332 0.666 0.0
0.666 0.666 0.0
}
{
[1 2 3 4]
[5 6 2 1]
[6 7 2]
[7 8 3 2]
[8 9 3]
[9 10 4 3]
[10 11 4]
[11 12 1 4]
[12 5 1]
[13 14 6 5]
[14 15 6]
[6 15 7]
[15 16 7]
[16 17 8 7]
[17 18 8]
[18 9 8]
[18 19 9]
[19 20 10 9]
[20 21 10]
[21 11 10]
[21 22 11]
[22 23 12 11]
[23 24 12]
[24 5 12]
[24 13 5]
[25 26 14 13]
[26 27 15 14]
[27 28 16 15]
[28 29 17 16]
[29 30 18 17]
[30 31 19 18]
[31 32 20 19]
[32 33 21 20]
[33 34 22 21]
[34 35 23 22]
[35 36 24 23]
[36 25 13 24]
[25 26 38 37]
[26 27 38]
[38 27 39]
[27 28 39]
[28 29 40 39]
[29 30 40]
[30 41 40]
[30 31 41]
[31 32 42 41]
[32 33 42]
[33 43 42]
[33 34 43]
[34 35 44 43]
[35 36 44]
[36 37 44]
[36 25 37]
[37 38 46 45]
[38 39 46]
[39 40 47 46]
[40 41 47]
[41 42 48 47]
[42 43 48]
[43 44 45 48]
[44 37 45]
[45 46 47 48]
}
instprops purple

shift -1 -1 -1
rotate z 0.000001
rotate y 0.000001
rotate x 0.000001


end
end


defobj
  sofa

  instobj unit_box2
    scale 6 3 1
    instprops purple
  end

  instobj unit_box2
    scale 1 3 2
    shift -3.5 0 0.5
    instprops purple
  end

  instobj unit_box2
    scale 1 3 2
    shift 3.5 0 0.5
    instprops purple
  end

  instobj morph
    scale 1.5 1.5 0.5
    shift -1.5 0 0.8
    instprops purple
  end

  instobj morph
    scale 1.5 1.5 0.5
    shift 1.5 0 0.8
    instprops purple
  end

  instobj morph
    scale 0.5 1.5 0.5
    shift -3.5 0 1.5
    instprops purple
  end

  instobj morph
    scale 0.5 1.5 0.5
    shift 3.5 0 1.5
    instprops purple
  end

  instobj morph
    scale 3 0.5 2.5
    rotate x 7
    shift 0 1.7 1.3
    instprops purple
  end

end





defobj steps


instobj unit_box
  scale 3 3 1
  shift 6 12 0
  instprops darkwood
end


instobj unit_box
  scale 3 2 1
  shift 6 13 1
  instprops darkwood
end


instobj unit_box
  scale 3 1 1
  shift 6 14 2
  instprops darkwood
end

end

defobj

room


polygon
4
0 0 0
15 0 0
15 15 0
0 15 0
instprops carpet2
end


polygon
4
0 15 3
15 15 3
15 40 3
0 40 3
instprops carpet2
end


polygon
4
0 0 15
15  0 15
15 40 15
0 40 15
instprops cream
end


polygon
4
0 0 0
15 0 0
15 0 15
0 0 15
instprops paper1
end


polygon
4
0 40 0
15 40 0
15 40 15
0 40 15
instprops paper2
end


polygon
4
0 0 0
0 40 0
0 40 15
0 0 15
instprops paper3
end


polygon
4
15 0 0
15 40 0
15 40 15
15 0 15
instprops paper4
end


polygon
4
0 15 0
15 15 0
15 15 3
0 15 3
instprops cream
end





end


instobj room
  scale 1.5 1 1
end

instobj steps
  scale 1.5 1 1
end



defobj
  chair
  instprops grey
  shift -1 0 0

  instobj unit_box
    scale 2 2 0.15
    shift 0.1 0 1.5
    instprops kakki
  end

  instobj unit_box
    scale 0.1 0.1 3
  end

  instobj unit_box
    scale 0.1 0.1 3
    shift 0 1.9 0
  end

  instobj unit_box
    scale 0.1 0.1 1.5
    shift 2 0 0
  end

  instobj unit_box
    scale 0.1 0.1 1.5
    shift 2 1.9 0
  end

  instobj unit_box
    scale 0.15 2 0.7
    shift 0.1 0 2.3
    instprops kakki
  end
end







defobj
  table


  instobj unit_box
  instprops darkwood
    scale 6 7 0.2
    shift 0.5 -1 2
  end

  instobj unit_box
  instprops darkwood
    scale 0.2 0.2 2
    shift 0.6 -0.9 0
  end

  instobj unit_box
  instprops darkwood
    scale 0.2 0.2 2
    shift 0.6 5.7 0
  end

  instobj unit_box
  instprops darkwood
    scale 0.2 0.2 2
    shift 6.2 -0.9 0
  end

  instobj unit_box
  instprops darkwood
    scale 0.2 0.2 2
    shift 6.2 5.7 0
  end
end


defobj sqpicture

instobj unit_box2
   scale 1 0.05 0.05
   shift 0 0 -0.5
   instprops wood
end

instobj unit_box2
  scale 1 0.05 0.05
  shift 0 0 0.45
  instprops wood
end

instobj unit_box2
  scale 0.05 0.05 1
  shift -0.5 0 0
  instprops wood
end

instobj unit_box2
  scale 0.05 0.05 1
  shift 0.45 0 0
  instprops wood
end

polygon
4
0.5 -0.05 0.5
-0.5 -0.05 0.5
-0.5 -0.05 -0.5
0.5 -0.05 -0.5
instprops grey
/* props texture file filename */
phexp 2000
end
end

end




defobj television

instobj unit_box
  instprops grey
end

polyhedron
{
0 0 0
0 0 0
1 0 0
1 0 1
0 0 1
0.8 -0.5 0.3
0.8 -0.5 0.7
0.2 -0.5 0.3
0.2 -0.5 0.7
}
{
[5 6 2 3]
[8 6 3 4]
[7 8 4 1]
[7 5 2 1]
[5 6 8 7]
}
instprops grey
end


polygon
4
0.1 1.0000001 0.1
0.9 1.0000001 0.1
0.9 1.0000001 0.9
0.1 1.0000001 0.9
instprops grey
/* props texture file filename */
end
end

end




defobj railing
instobj unit_box
scale 0.2 0.2 3
end
end

defobj horizrail
instobj unit_box
scale 5 0.2 0.2
end
end

defobj railings

instobj railing
shift 0 0 0.2
instprops wood
end

instobj railing
shift 1 0 0.2
instprops wood
end

instobj railing
shift 2 0 0.2
instprops wood
end

instobj railing
shift 3 0 0.2
instprops wood
end

instobj railing
shift 4 0 0.2
instprops wood
end

instobj railing
shift 4.8 0 0.2
instprops wood
end

instobj horizrail
instprops wood
end

instobj horizrail
shift 0 0 3
instprops wood
end

end

instobj railings
scale 1.7 1.5 1.5
shift 0 15 3
instprops wood
end

instobj railings
scale 1.7 1.5 1.5
shift 14 15 3
instprops wood
end


instobj sqpicture
scale 5 3 4
shift 12 0.3 8
end


instobj
  chair
  name chair_i1

shift 15 4 0
end

instobj
  chair
  name chair_i2
  shift 0 3 0
shift 15 4 0
end


instobj table

shift 15 4 0
end

sphere 0 0 0 1
props drc 0.498 0.6 0.8 end
scale 1.5 1.5 0.1
shift 10 8 2

end

instobj unit_box
instprops darkwood
scale 0.15 0.15 1.99
shift 10 8 0
end

instobj sofa
rotate z 180
shift 5 3 0
instprops purple
end