Home » Archimedes archive » Acorn User » AU 1994-02.adf » !FEMS_App_FEMS_App » sims/ChairStiff

sims/ChairStiff

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1994-02.adf » !FEMS_App_FEMS_App
Filename: sims/ChairStiff
Read OK:
File size: 049B bytes
Load address: 0000
Exec address: 0000
File contents
FEMS2
/* chair (frozen) falling down stairs */

rendering {
 type dots
 resolution 320,256
 view 140,24          /* x-y rotation, elevation 24 */
 background back   /* for speed, assume background is always behind solid */
}
frame_aim 350
gravity 0,0,-600
time_div 1

solid {  
 create {
  type compound                         
  /* front legs */
  part { type cuboid:points 3,3,11:size 1in,1in,5in }
  part { type cuboid:points 3,3,11:size 1in,1in,5in:offset 4in,0,0 }
  /* back legs */
  part { type cuboid:points 3,3,23:size 1in,1in,11in:offset 0,4in,0 }
  part { type cuboid:points 3,3,23:size 1in,1in,11in:offset 4in,4in,0 } 
  /* seat */
  part { type cuboid:points 11,9,3:size 5in,4in,1in:offset 0,0,5in }
  /* back */
  part { type cuboid:points 7,2,5:size 3in,.5in,2in:offset 1in,4.5in,9in }
 }  
 translate -2.5in,-2.5in,0in 
 scale .7,.7,.7
 /* nearbonds { spring_const 25: range 2.25 } */  
 rotate 0,0,40
 translate 0,4.5in,4.5in
 solid_damp -1
 air_damp 4
}

background {
 create {
  type stairs
  points 13,11,3        /* points in width, no. of steps, pts in a step */
  size 14in,2in,2.33in  /* width, step height, step depth */
 }
 translate 0,-11.65in,-10in
}
00000000  46 45 4d 53 32 0a 2f 2a  20 63 68 61 69 72 20 28  |FEMS2./* chair (|
00000010  66 72 6f 7a 65 6e 29 20  66 61 6c 6c 69 6e 67 20  |frozen) falling |
00000020  64 6f 77 6e 20 73 74 61  69 72 73 20 2a 2f 0a 0a  |down stairs */..|
00000030  72 65 6e 64 65 72 69 6e  67 20 7b 0a 20 74 79 70  |rendering {. typ|
00000040  65 20 64 6f 74 73 0a 20  72 65 73 6f 6c 75 74 69  |e dots. resoluti|
00000050  6f 6e 20 33 32 30 2c 32  35 36 0a 20 76 69 65 77  |on 320,256. view|
00000060  20 31 34 30 2c 32 34 20  20 20 20 20 20 20 20 20  | 140,24         |
00000070  20 2f 2a 20 78 2d 79 20  72 6f 74 61 74 69 6f 6e  | /* x-y rotation|
00000080  2c 20 65 6c 65 76 61 74  69 6f 6e 20 32 34 20 2a  |, elevation 24 *|
00000090  2f 0a 20 62 61 63 6b 67  72 6f 75 6e 64 20 62 61  |/. background ba|
000000a0  63 6b 20 20 20 2f 2a 20  66 6f 72 20 73 70 65 65  |ck   /* for spee|
000000b0  64 2c 20 61 73 73 75 6d  65 20 62 61 63 6b 67 72  |d, assume backgr|
000000c0  6f 75 6e 64 20 69 73 20  61 6c 77 61 79 73 20 62  |ound is always b|
000000d0  65 68 69 6e 64 20 73 6f  6c 69 64 20 2a 2f 0a 7d  |ehind solid */.}|
000000e0  0a 66 72 61 6d 65 5f 61  69 6d 20 33 35 30 0a 67  |.frame_aim 350.g|
000000f0  72 61 76 69 74 79 20 30  2c 30 2c 2d 36 30 30 0a  |ravity 0,0,-600.|
00000100  74 69 6d 65 5f 64 69 76  20 31 0a 0a 73 6f 6c 69  |time_div 1..soli|
00000110  64 20 7b 20 20 0a 20 63  72 65 61 74 65 20 7b 0a  |d {  . create {.|
00000120  20 20 74 79 70 65 20 63  6f 6d 70 6f 75 6e 64 20  |  type compound |
00000130  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000140  20 20 20 20 20 20 20 20  0a 20 20 2f 2a 20 66 72  |        .  /* fr|
00000150  6f 6e 74 20 6c 65 67 73  20 2a 2f 0a 20 20 70 61  |ont legs */.  pa|
00000160  72 74 20 7b 20 74 79 70  65 20 63 75 62 6f 69 64  |rt { type cuboid|
00000170  3a 70 6f 69 6e 74 73 20  33 2c 33 2c 31 31 3a 73  |:points 3,3,11:s|
00000180  69 7a 65 20 31 69 6e 2c  31 69 6e 2c 35 69 6e 20  |ize 1in,1in,5in |
00000190  7d 0a 20 20 70 61 72 74  20 7b 20 74 79 70 65 20  |}.  part { type |
000001a0  63 75 62 6f 69 64 3a 70  6f 69 6e 74 73 20 33 2c  |cuboid:points 3,|
000001b0  33 2c 31 31 3a 73 69 7a  65 20 31 69 6e 2c 31 69  |3,11:size 1in,1i|
000001c0  6e 2c 35 69 6e 3a 6f 66  66 73 65 74 20 34 69 6e  |n,5in:offset 4in|
000001d0  2c 30 2c 30 20 7d 0a 20  20 2f 2a 20 62 61 63 6b  |,0,0 }.  /* back|
000001e0  20 6c 65 67 73 20 2a 2f  0a 20 20 70 61 72 74 20  | legs */.  part |
000001f0  7b 20 74 79 70 65 20 63  75 62 6f 69 64 3a 70 6f  |{ type cuboid:po|
00000200  69 6e 74 73 20 33 2c 33  2c 32 33 3a 73 69 7a 65  |ints 3,3,23:size|
00000210  20 31 69 6e 2c 31 69 6e  2c 31 31 69 6e 3a 6f 66  | 1in,1in,11in:of|
00000220  66 73 65 74 20 30 2c 34  69 6e 2c 30 20 7d 0a 20  |fset 0,4in,0 }. |
00000230  20 70 61 72 74 20 7b 20  74 79 70 65 20 63 75 62  | part { type cub|
00000240  6f 69 64 3a 70 6f 69 6e  74 73 20 33 2c 33 2c 32  |oid:points 3,3,2|
00000250  33 3a 73 69 7a 65 20 31  69 6e 2c 31 69 6e 2c 31  |3:size 1in,1in,1|
00000260  31 69 6e 3a 6f 66 66 73  65 74 20 34 69 6e 2c 34  |1in:offset 4in,4|
00000270  69 6e 2c 30 20 7d 20 0a  20 20 2f 2a 20 73 65 61  |in,0 } .  /* sea|
00000280  74 20 2a 2f 0a 20 20 70  61 72 74 20 7b 20 74 79  |t */.  part { ty|
00000290  70 65 20 63 75 62 6f 69  64 3a 70 6f 69 6e 74 73  |pe cuboid:points|
000002a0  20 31 31 2c 39 2c 33 3a  73 69 7a 65 20 35 69 6e  | 11,9,3:size 5in|
000002b0  2c 34 69 6e 2c 31 69 6e  3a 6f 66 66 73 65 74 20  |,4in,1in:offset |
000002c0  30 2c 30 2c 35 69 6e 20  7d 0a 20 20 2f 2a 20 62  |0,0,5in }.  /* b|
000002d0  61 63 6b 20 2a 2f 0a 20  20 70 61 72 74 20 7b 20  |ack */.  part { |
000002e0  74 79 70 65 20 63 75 62  6f 69 64 3a 70 6f 69 6e  |type cuboid:poin|
000002f0  74 73 20 37 2c 32 2c 35  3a 73 69 7a 65 20 33 69  |ts 7,2,5:size 3i|
00000300  6e 2c 2e 35 69 6e 2c 32  69 6e 3a 6f 66 66 73 65  |n,.5in,2in:offse|
00000310  74 20 31 69 6e 2c 34 2e  35 69 6e 2c 39 69 6e 20  |t 1in,4.5in,9in |
00000320  7d 0a 20 7d 20 20 0a 20  74 72 61 6e 73 6c 61 74  |}. }  . translat|
00000330  65 20 2d 32 2e 35 69 6e  2c 2d 32 2e 35 69 6e 2c  |e -2.5in,-2.5in,|
00000340  30 69 6e 20 0a 20 73 63  61 6c 65 20 2e 37 2c 2e  |0in . scale .7,.|
00000350  37 2c 2e 37 0a 20 2f 2a  20 6e 65 61 72 62 6f 6e  |7,.7. /* nearbon|
00000360  64 73 20 7b 20 73 70 72  69 6e 67 5f 63 6f 6e 73  |ds { spring_cons|
00000370  74 20 32 35 3a 20 72 61  6e 67 65 20 32 2e 32 35  |t 25: range 2.25|
00000380  20 7d 20 2a 2f 20 20 0a  20 72 6f 74 61 74 65 20  | } */  . rotate |
00000390  30 2c 30 2c 34 30 0a 20  74 72 61 6e 73 6c 61 74  |0,0,40. translat|
000003a0  65 20 30 2c 34 2e 35 69  6e 2c 34 2e 35 69 6e 0a  |e 0,4.5in,4.5in.|
000003b0  20 73 6f 6c 69 64 5f 64  61 6d 70 20 2d 31 0a 20  | solid_damp -1. |
000003c0  61 69 72 5f 64 61 6d 70  20 34 0a 7d 0a 0a 62 61  |air_damp 4.}..ba|
000003d0  63 6b 67 72 6f 75 6e 64  20 7b 0a 20 63 72 65 61  |ckground {. crea|
000003e0  74 65 20 7b 0a 20 20 74  79 70 65 20 73 74 61 69  |te {.  type stai|
000003f0  72 73 0a 20 20 70 6f 69  6e 74 73 20 31 33 2c 31  |rs.  points 13,1|
00000400  31 2c 33 20 20 20 20 20  20 20 20 2f 2a 20 70 6f  |1,3        /* po|
00000410  69 6e 74 73 20 69 6e 20  77 69 64 74 68 2c 20 6e  |ints in width, n|
00000420  6f 2e 20 6f 66 20 73 74  65 70 73 2c 20 70 74 73  |o. of steps, pts|
00000430  20 69 6e 20 61 20 73 74  65 70 20 2a 2f 0a 20 20  | in a step */.  |
00000440  73 69 7a 65 20 31 34 69  6e 2c 32 69 6e 2c 32 2e  |size 14in,2in,2.|
00000450  33 33 69 6e 20 20 2f 2a  20 77 69 64 74 68 2c 20  |33in  /* width, |
00000460  73 74 65 70 20 68 65 69  67 68 74 2c 20 73 74 65  |step height, ste|
00000470  70 20 64 65 70 74 68 20  2a 2f 0a 20 7d 0a 20 74  |p depth */. }. t|
00000480  72 61 6e 73 6c 61 74 65  20 30 2c 2d 31 31 2e 36  |ranslate 0,-11.6|
00000490  35 69 6e 2c 2d 31 30 69  6e 0a 7d                 |5in,-10in.}|
0000049b