diff --git a/.circleci/config.yml b/.circleci/config.yml
index 1ad1612a..ba1a3306 100644
--- a/.circleci/config.yml
+++ b/.circleci/config.yml
@@ -115,8 +115,7 @@ jobs:
       - run:
           name: Install Sphinx
           command: |
-            pip3 install --user sphinx
-            pip3 install --user sphinx_rtd_theme
+            pip3 install --user sphinx==3.3.1 jinja2==2.11.3 sphinx_rtd_theme==0.5.0 MarkupSafe==1.1.1 packaging==20.8 docutils==0.17.1 sphinxcontrib-devhelp==1.0.2 sphinxcontrib-applehelp==1.0.2 Pygments==2.10.0 imagesize==1.2.0 sphinxcontrib-serializinghtml==1.1.5 requests==2.26.0 sphinxcontrib-qthelp==1.0.3 sphinxcontrib-jsmath==1.0.1 snowballstemmer==2.1.0 sphinxcontrib-htmlhelp==2.0.0 babel==2.9.1 alabaster==0.7.12 pyparsing==3.0.1 idna==3.3 certifi==2021.10.8 charset-normalizer==2.0.7 urllib3==1.26.7 pytz==2021.3
       - run:
           name: Build reStructuredText(reST)
           command: cd /tmp/rst && ~/.local/bin/sphinx-build . html
diff --git a/.github/workflows/Brewfile b/.github/workflows/Brewfile
new file mode 100644
index 00000000..52ab6def
--- /dev/null
+++ b/.github/workflows/Brewfile
@@ -0,0 +1,11 @@
+brew "coreutils"
+brew "gnu-sed"
+brew "git"
+brew "make"
+brew "jpeg"
+brew "libpng"
+brew "mesalib-glw"
+brew "glew"
+brew "wget"
+brew "poppler"
+brew "bullet"
diff --git a/.github/workflows/config.yml b/.github/workflows/config.yml
new file mode 100644
index 00000000..f32bd2e5
--- /dev/null
+++ b/.github/workflows/config.yml
@@ -0,0 +1,126 @@
+on:
+  push:
+    branches:
+      - master
+  pull_request:
+
+env:
+  DISPLAY: '0:0'
+
+jobs:
+  linux:
+    strategy:
+      matrix:
+        include:
+          - DOCKER_IMAGE: ubuntu:trusty
+          - DOCKER_IMAGE: ubuntu:xenial
+          - DOCKER_IMAGE: ubuntu:bionic
+          - DOCKER_IMAGE: ubuntu:focal
+          - DOCKER_IMAGE: debian:stretch
+          - DOCKER_IMAGE: ubuntu:trusty
+            ROS_DISTRO: indigo
+          - DOCKER_IMAGE: ubuntu:xenial
+            ROS_DISTRO: kinetic
+          - DOCKER_IMAGE: ubuntu:bionic
+            ROS_DISTRO: meodic
+          - DOCKER_IMAGE: ubuntu:focal
+            ROS_DISTRO: noetic
+          - DOCKER_IMAGE: osrf/ubuntu_armhf:trusty
+          - DOCKER_IMAGE: osrf/ubuntu_armhf:xenial
+          - DOCKER_IMAGE: osrf/ubuntu_arm64:trusty
+          - DOCKER_IMAGE: osrf/ubuntu_arm64:xenial
+          - DOCKER_IMAGE: osrf/ubuntu_arm64:bionic
+          - DOCKER_IMAGE: osrf/ubuntu_arm64:focal
+          - DOCKER_IMAGE: osrf/debian_arm64:stretch
+          - DOCKER_IMAGE: amd64/debian:unstable
+            #
+          - QEMU: amd64
+            DOCKER_IMAGE: amd64/debian:unstable # amd64
+          - QEMU: aarch64
+            DOCKER_IMAGE: arm64v8/debian:buster # arm64
+          - QEMU: arm
+            DOCKER_IMAGE: arm32v5/debian:jessie # armel
+          - QEMU: arm
+            DOCKER_IMAGE: arm32v7/debian:jessie # armhf
+            # hppa
+            # hurd-i386
+          - QEMU: i386
+            DOCKER_IMAGE: i386/debian:unstable # i386
+          - QEMU: i386
+            DOCKER_IMAGE: i386/debian:buster # i386
+            # ia64
+            # m68k
+          - QEMU: mips64el
+            DOCKER_IMAGE: loongnix/debian:buster # mips64el
+            # mipsel
+          # - QEMU: ppc
+          #   DOCKER_IMAGE: vicamo/debian:unstable-powerpc # powerpc / somehow failing loading eusgl
+          - QEMU: ppc64le
+            DOCKER_IMAGE: ppc64le/debian:buster # ppc64
+          # riscv64
+          # sh4
+          # sparc64
+      fail-fast: false
+
+    runs-on: ubuntu-latest
+    timeout-minutes: 60
+
+    name: linux
+
+    steps:
+      - name: Checkout
+        uses: actions/checkout@v2
+      - name: Run test
+        shell: bash
+        run: |
+          set -x
+          export CI_SOURCE_PATH=$(pwd)
+          export REPOSITORY_NAME=${PWD##*/}
+          export TRAVIS_BRANCH=${GITHUB_REF#refs/heads/}
+          export TRAVIS_OS_NAME=linux
+          export DOCKER_IMAGE=${{matrix.DOCKER_IMAGE}}
+          export ROS_DISTRO=${{matrix.ROS_DISTRO}}
+          export QEMU=${{matrix.QEMU}}
+          export MAKEFLAGS="-j4"
+          if [[ "$QEMU" != "" || "$DOCKER_IMAGE" == *"arm"* ]]; then sudo apt-get update -y -qq; fi
+          if [[ "$QEMU" != "" ]]; then sudo apt-get install -y -qq qemu-user-static; ls /usr/bin/qemu-*-static; export QEMU_VOLUME="-v /usr/bin/qemu-$QEMU-static:/usr/bin/qemu-$QEMU-static" ; fi
+          if [[ "$QEMU" != "" ]]; then docker run --rm --privileged multiarch/qemu-user-static:register; fi
+          if [[ "$DOCKER_IMAGE" == *"arm"* ]]; then sudo apt-get install -y -qq qemu-user-static; fi
+          if [[ "$DOCKER_IMAGE" == *"arm"* ]]; then git clone http://github.com/euslisp/jskeus ${HOME}/jskeus; fi
+          echo "Testing branch $TRAVIS_BRANCH of $REPOSITORY_NAME on $QEMU_VOLUME"
+          docker run --rm $QEMU_VOLUME -v $HOME:$HOME -e "QEMU=$QEMU" -e "TRAVIS_OS_NAME=$TRAVIS_OS_NAME" -e "CI_SOURCE_PATH=$CI_SOURCE_PATH" -e "HOME=$HOME" -e "MAKEFLAGS=$MAKEFLAGS" -e "DOCKER_IMAGE=$DOCKER_IMAGE" -t $DOCKER_IMAGE sh -c "cd $CI_SOURCE_PATH; ./.travis.sh"
+
+
+  osx:
+    runs-on: macos-latest
+    timeout-minutes: 60
+    steps:
+      - name: Checkout
+        uses: actions/checkout@v2
+      - name: Get brew cache directory
+        id: brew-cache
+        run: echo "::set-output name=dir::$(brew --cache)/downloads"
+      - name: Brew cache
+        uses: actions/cache@v2
+        with:
+          path: ${{ steps.brew-cache.outputs.dir }}
+          key: ${{ runner.os }}-${{ hashFiles('.github/workflows/Brewfile') }}
+      - name: Brew config
+        run: |
+          cd .github/workflows/
+          brew config
+      - name: Run test
+        shell: bash
+        run: |
+          set -x
+          export CI_SOURCE_PATH=$(pwd)
+          export REPOSITORY_NAME=${PWD##*/}
+          export TRAVIS_BRANCH=${GITHUB_REF#refs/heads/}
+          export TRAVIS_OS_NAME=osx
+          export PATH="/usr/local/opt/coreutils/libexec/gnubin:$PATH"
+          export LC_CTYPE=C
+          (cd ${HOME}; git clone --depth 1 http://github.com/euslisp/jskeus jskeus)
+          (cd ${HOME}/jskeus; patch -f -p1 < ${CI_SOURCE_PATH}/.github/workflows/fix-dylib-location.patch || echo "OK")
+          bash -x ./.travis.sh
+      - name: Cleanup some brew downloads
+        run: cd ${{ steps.brew-cache.outputs.dir }} && ls -lsS | head -n 10 | awk '{ print $10 }' | xargs rm -rf
diff --git a/.github/workflows/fix-dylib-location.patch b/.github/workflows/fix-dylib-location.patch
new file mode 100644
index 00000000..ee6e6a1b
--- /dev/null
+++ b/.github/workflows/fix-dylib-location.patch
@@ -0,0 +1,33 @@
+diff --git a/irteus/irtgl.l b/irteus/irtgl.l
+index 4c417e61..afd606bc 100644
+--- a/irteus/irtgl.l
++++ b/irteus/irtgl.l
+@@ -51,6 +51,8 @@
+    (cond
+     ((probe-file "/opt/local/lib/libGL.dylib")
+      (setq gl-lib ( load-foreign "/opt/local/lib/libGL.dylib")))
++    ((probe-file "/usr/local/lib/libGL.dylib")
++     (setq gl-lib ( load-foreign "/usr/local/lib/libGL.dylib")))
+     (t
+      (setq gl-lib ( load-foreign "/opt/X11/lib/libGL.dylib")))))
+ #+:cygwin
+diff --git a/irteus/irtx.l b/irteus/irtx.l
+index 6a6761d4..4477b6ce 100644
+--- a/irteus/irtx.l
++++ b/irteus/irtx.l
+@@ -76,9 +76,12 @@
+ (let (x-lib pname)
+ #+:darwin
+ #+:darwin
+- (if (probe-file "/opt/local/lib/libX11.dylib")
+-     (setq pname "/opt/local/lib/libX11.dylib")
+-   (setq pname "/opt/X11/lib/libX11.dylib"))
++ (cond ((probe-file "/opt/local/lib/libX11.dylib")
++        (setq pname "/opt/local/lib/libX11.dylib"))
++       ((probe-file "/usr/local/lib/libX11.dylib")
++        (setq pname "/usr/local/lib/libX11.dylib"))
++       (t
++        (setq pname "/opt/X11/lib/libX11.dylib")))
+ #+:cygwin
+   (if (probe-file "/usr/bin/cygX11-6.dll")
+       (setq pname "/usr/bin/cygX11-6.dll")
diff --git a/.travis.sh b/.travis.sh
index 2d2f2f6c..c147effd 100755
--- a/.travis.sh
+++ b/.travis.sh
@@ -9,7 +9,7 @@ function travis_time_start {
     else
         TRAVIS_START_TIME=$(date +%s%N)
     fi
-    TRAVIS_TIME_ID=$(cat /dev/urandom | LC_ALL=C LC_CTYPE=C tr -dc 'a-z0-9' | fold -w 8 | head -n 1)
+    TRAVIS_TIME_ID=$(head /dev/urandom | base64 | head -c 8)
     TRAVIS_FOLD_NAME=$1
     echo -e "\e[0Ktravis_fold:start:$TRAVIS_FOLD_NAME"
     echo -e "\e[0Ktravis_time:start:$TRAVIS_TIME_ID"
@@ -35,6 +35,12 @@ if [ "$TRAVIS_OS_NAME" == "linux" ]; then
     if [ ! -e /usr/bin/sudo ] ; then apt-get update && apt-get install -y sudo;  else sudo apt-get update; fi
     travis_time_end
 
+    travis_time_start setup.tzdata
+    # set non interactive tzdata https://stackoverflow.com/questions/8671308/non-interactive-method-for-dpkg-reconfigure-tzdata
+    # set DEBIAN_FRONTEND=noninteractive
+    echo 'debconf debconf/frontend select Noninteractive' | sudo debconf-set-selections
+    travis_time_end
+
     travis_time_start setup.apt-get_install
     ret=1; while [ $ret != 0 ]; do sudo apt-get install -qq -y git make gcc g++ libjpeg-dev libxext-dev libx11-dev libgl1-mesa-dev libglu1-mesa-dev libpq-dev libpng-dev xfonts-100dpi xfonts-75dpi pkg-config libbullet-dev && ret=0 || echo "failed, retry"; done # msttcorefonts could not install on 14.04 travis
     # unset protocol version https://github.com/juju/charm-tools/issues/532
@@ -45,13 +51,16 @@ if [ "$TRAVIS_OS_NAME" == "linux" ]; then
 fi
 if [ "$TRAVIS_OS_NAME" == "osx" ]; then
     travis_time_start setup.install
+    # https://apple.stackexchange.com/questions/393481/homebrew-cask-download-failure-ssl-certificate-problem-certificate-has-expired
     # skip if already installed
     # https://discourse.brew.sh/t/skip-ignore-brew-install-if-package-is-already-installed/633/2
     # brew install jpeg libpng mesalib-glw;
-    # use HOMEBREW_NO_AUT_UPDATE to fix unexpected keyword error https://travis-ci.community/t/syntax-error-unexpected-keyword-rescue-expecting-keyword-end-in-homebrew/5623
+    echo insecure >> ~/.curlrc
+    export HOMEBREW_CURLRC=1
     brew list jpeg &>/dev/null || HOMEBREW_NO_AUTO_UPDATE=1 brew install jpeg
     brew list libpng &>/dev/null || HOMEBREW_NO_AUTO_UPDATE=1 brew install libpng
     brew list mesalib-glw &>/dev/null || HOMEBREW_NO_AUTO_UPDATE=1 brew install mesalib-glw
+    brew list mesa-glu &>/dev/null || HOMEBREW_NO_AUTO_UPDATE=1 brew install mesa-glu
     brew list bullet &>/dev/null || HOMEBREW_NO_AUTO_UPDATE=1 brew install bullet
     travis_time_end
 
@@ -60,7 +69,7 @@ fi
 ### for multiarch compile test
 if [ "$QEMU" != "" ]; then
     travis_time_start install.dpkg-dev
-    apt-get install -qq -y dpkg-dev
+    apt-get install -qq -y dpkg-dev patchutils
     travis_time_end
 
     echo "uname -a : $(uname -a)"
@@ -69,10 +78,26 @@ if [ "$QEMU" != "" ]; then
     echo "gcc -dumpversion : $(gcc -dumpversion)"
     echo "getconf LONG_BIT : $(getconf LONG_BIT)"
 
+    travis_time_start download.euslisp-debian
+    export GIT_SSL_NO_VERIFY=1
+    git clone http://salsa.debian.org/science-team/euslisp /tmp/euslisp-dfsg
+    for file in $(cat /tmp/euslisp-dfsg/debian/patches/series); do
+        # skip patches already applied by https://github.com/euslisp/EusLisp/pull/482
+        [[ $file =~ use-rtld-global-loadelf.patch|fix-arm-ldflags.patch|fix-library-not-linked-against-libc.patch|fix-manpage-has-bad-whatis-entry-on-man-pages.patch ]] && continue;
+        # skip patch already applied by https://github.com/euslisp/EusLisp/pull/441
+        if [[ $file =~  fix-for-reprotest.patch ]]; then
+            filterdiff -p1 -x 'lisp/image/jpeg/makefile' -x 'lisp/comp/comp.l' < /tmp/euslisp-dfsg/debian/patches/$file > /tmp/euslisp-dfsg/debian/patches/$file-fix
+            file=$file-fix
+        fi
+        echo $file
+        patch -p1 < /tmp/euslisp-dfsg/debian/patches/$file
+    done
+    travis_time_end
+
     travis_time_start compile.euslisp
     export EUSDIR=`pwd`
     eval "$(dpkg-buildflags --export=sh)"
-    make -C lisp -f Makefile.Linux  eus0 eus1 eus2 eusg eusx eusgl eus eusjpeg
+    make
     travis_time_end
 
     if [[ `gcc -dumpmachine | egrep "^(arm|aarch)"` != "" ]]; then
@@ -87,8 +112,11 @@ if [ "$QEMU" != "" ]; then
     export EXIT_STATUS=0;
     set +e
     # run test in EusLisp/test
+    make -C test
     for test_l in test/*.l; do
 
+        [[ "`uname -m`" == "ppc64le"* && $test_l =~ test-foreign.l ]] && continue;
+
         travis_time_start euslisp.${test_l##*/}.test
 
         sed -i 's/\(i-max\ [0-9]000\)0*/\1/' $test_l
@@ -96,7 +124,33 @@ if [ "$QEMU" != "" ]; then
         eusgl $test_l;
         export TMP_EXIT_STATUS=$?
 
-        travis_time_end `expr 32 - $TMP_EXIT_STATUS`
+        export CONTINUE=0
+        # test-foreign.l only works for x86 / arm
+        if [[ $test_l =~ test-foreign.l  && ! "$(gcc -dumpmachine)" =~ "aarch".*|"arm".*|"x86_64".*|"i"[0-9]"86".* ]]; then export CONTINUE=1; fi
+        # object.l fails on ppc64le since https://github.com/euslisp/EusLisp/pull/481. Can not fix this after 2 week debugging....
+        if [[ "$DOCKER_IMAGE" == "ppc64le/debian:buster" && $test_l =~ object.l ]]; then export CONTINUE=1; fi
+
+        if [[ $CONTINUE == 0 ]]; then travis_time_end `expr 32 - $TMP_EXIT_STATUS`; else travis_time_end 33; fi
+
+        if [[ $TMP_EXIT_STATUS != 0 ]]; then echo "Failed running $test_l. Exiting with $TMP_EXIT_STATUS"; fi
+
+        if [[ $CONTINUE != 0 ]]; then export TMP_EXIT_STATUS=0; fi
+
+        export EXIT_STATUS=`expr $TMP_EXIT_STATUS + $EXIT_STATUS`;
+
+        travis_time_start compiled.${test_l##*/}.test
+
+        eusgl "(let ((o (namestring (merge-pathnames \".o\" \"$test_l\"))) (so (namestring (merge-pathnames \".so\" \"$test_l\")))) (compile-file \"$test_l\" :o o) (if (probe-file so) (load so) (exit 1))))"
+        export TMP_EXIT_STATUS=$?
+
+        # const.l does not compilable https://github.com/euslisp/EusLisp/issues/318
+        if [[ $test_l =~ const.l ]]; then export CONTINUE=1; fi
+
+        if [[ $CONTINUE == 0 ]]; then travis_time_end `expr 32 - $TMP_EXIT_STATUS`; else travis_time_end 33; fi
+
+        if [[ $TMP_EXIT_STATUS != 0 ]]; then echo "Failed running $test_l. Exiting with $TMP_EXIT_STATUS"; fi
+
+        if [[ $CONTINUE != 0 ]]; then continue; fi
 
         export EXIT_STATUS=`expr $TMP_EXIT_STATUS + $EXIT_STATUS`;
     done;
@@ -129,14 +183,17 @@ if [[ "$DOCKER_IMAGE" == *"trusty"* || "$DOCKER_IMAGE" == *"jessie"* ]]; then
 else
     make eus-installed WFLAGS="-Werror=implicit-int -Werror=implicit-function-declaration -Werror=incompatible-pointer-types -Werror=int-conversion -Werror=unused-result"
 fi
-make
+travis_time_end
 
-travis_time_start script.eustag
+travis_time_start script.make.jskeus
 
-(cd eus/lisp/tool; make)
+make
 
 travis_time_end
 
+travis_time_start script.eustag
+
+(cd eus/lisp/tool; make)
 
 travis_time_end
 
@@ -206,10 +263,7 @@ export DISPLAY=
 export EXIT_STATUS=0;
 set +e
 
-# arm target (ubuntu_arm64/trusty) takes too long time (>50min) for test
-if [[ "`uname -m`" == "aarch"* ]]; then
-    sed -i 's@00000@0000@' $CI_SOURCE_PATH/test/object.l $CI_SOURCE_PATH/test/coords.l
-fi
+set -x # enable debug information
 # arm target (ubuntu_arm64/trusty) takes too long time (>50min) for test
 # osrf/ubuntu_arm64:trusty takes >50 min, reduce loop count for irteus-demo.l
 if [[ "$DOCKER_IMAGE" == *"arm"* ]]; then
@@ -219,8 +273,13 @@ if [[ "$DOCKER_IMAGE" == *"arm"* ]]; then
     sed -i 's/(hanoi-program (length \*disks\*))/(subseq (hanoi-program (length \*disks\*)) 0 2)/' irteus/demo/hanoi-arm.l
     sed -i 's/^\s*footstep-list/(subseq footstep-list 0 3)/' irteus/demo/walk-motion.l
 fi
+set +x # disable debug information
 
     # run test in EusLisp/test
+    travis_time_start script.make.test
+    make -C $CI_SOURCE_PATH/test
+    travis_time_end
+
     for test_l in $CI_SOURCE_PATH/test/*.l; do
 
         travis_time_start euslisp.${test_l##*/}.test
@@ -246,10 +305,6 @@ fi
         export TMP_EXIT_STATUS=$?
 
         export CONTINUE=0
-        # bignum test fails on armhf
-        if [[ "`uname -m`" == "arm"* && $test_l =~ bignum.l ]]; then export CONTINUE=1; fi
-        # sort test fails on armhf  (https://github.com/euslisp/EusLisp/issues/232)
-        if [[ "`uname -m`" == "arm"* && $test_l =~ sort.l ]]; then export CONTINUE=1; fi
         # const.l does not compilable https://github.com/euslisp/EusLisp/issues/318
         if [[ $test_l =~ const.l ]]; then export CONTINUE=1; fi
 
@@ -272,13 +327,11 @@ fi
         export TMP_EXIT_STATUS=$?
 
         export CONTINUE=0
-        # irteus-demo.l, robot-model-usage.l and test-irt-motion.l fails on armhf both trusty and xenial
-        if [[ "`uname -m`" == "arm"* && $test_l =~ irteus-demo.l|robot-model-usage.l|test-irt-motion.l ]]; then export CONTINUE=1; fi
         # skip collision test because bullet of 2.83 or later version is not released in trusty and jessie.
         # https://github.com/euslisp/jskeus/blob/6cb08aa6c66fa8759591de25b7da68baf76d5f09/irteus/Makefile#L37
         if [[ ( "$DOCKER_IMAGE" == *"trusty"* || "$DOCKER_IMAGE" == *"jessie"* ) && $test_l =~ test-collision.l ]]; then export CONTINUE=1; fi
-        # skip if test-cad.l/graph.l for arm
-        if [[ "$DOCKER_IMAGE" == *"arm"* && $test_l =~ test-collision.l|test-cad.l|graph.l ]]; then export CONTINUE=1; fi
+	# aarch64:bionic and aarch64:focal start failing from https://github.com/euslisp/EusLisp/pull/481. Can not fix this after 2 week debugging....
+        if [[ ( "$DOCKER_IMAGE" == "osrf/ubuntu_arm64:bionic" || "$DOCKER_IMAGE" == "osrf/ubuntu_arm64:focal" ) ]]; then export CONTINUE=1; fi
 
         if [[ $CONTINUE == 0 ]]; then travis_time_end `expr 32 - $TMP_EXIT_STATUS`; else travis_time_end 33; fi
 
@@ -293,15 +346,6 @@ fi
 
 [ $EXIT_STATUS == 0 ] || exit 1
 
-travis_time_start eus64.test
-
-if [[ "$TRAVIS_OS_NAME" == "osx" || "`uname -m`" == "arm"* ]]; then
-    uname -a
-else
-    make -C eus/contrib/eus64-check/ || exit 1 # check eus64-check
-fi
-travis_time_end
-
 if [ "$TRAVIS_OS_NAME" == "linux" -a "`uname -m`" == "x86_64" ]; then
 
     travis_time_start script.doc
diff --git a/.travis.yml b/.travis.yml
index c6e38506..7df79842 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -24,6 +24,7 @@ matrix:
     - env: QEMU=arm DOCKER_IMAGE=arm32v7/debian:jessie # armhf
     # hppa
     # hurd-i386
+    - env: QEMU=i386 DOCKER_IMAGE=i386/debian:unstable # i386
     - env: QEMU=i386 DOCKER_IMAGE=i386/debian:buster # i386
     # ia64
     # m68k
@@ -35,6 +36,8 @@ matrix:
     # sh4
     # sparc64
     - os: osx
+  allow_failures:
+    - env: QEMU=i386 DOCKER_IMAGE=i386/debian:unstable # i386 fails due to invalid signature https://github.com/debuerreotype/docker-debian-artifacts/issues/101
 env:
   global:
     - MAKEFLAGS='-j4'
diff --git a/README.md b/README.md
index 7222e7fd..1d31d267 100644
--- a/README.md
+++ b/README.md
@@ -1,4 +1,4 @@
-## [EusLisp] [![Build Status](https://travis-ci.org/euslisp/EusLisp.png?branch=master)](https://travis-ci.org/euslisp/EusLisp) [![Documentation Status](https://readthedocs.org/projects/euslisp/badge/?version=latest)](https://euslisp.readthedocs.io/en/latest/?badge=latest)
+## [EusLisp] [![Build Status](https://app.travis-ci.com/euslisp/EusLisp.svg?branch=master)](https://app.travis-ci.com/euslisp/EusLisp) [![Documentation Status](https://readthedocs.org/projects/euslisp/badge/?version=latest)](https://euslisp.readthedocs.io/en/latest/?badge=latest)
 
 EusLisp was originally developed by [Dr. Toshihiro Matsui at AIST](http://staff.aist.go.jp/t.matsui/ )
 
diff --git a/contrib/eus64-check/Makefile b/contrib/eus64-check/Makefile
deleted file mode 100644
index 3ec68ba2..00000000
--- a/contrib/eus64-check/Makefile
+++ /dev/null
@@ -1,34 +0,0 @@
-
-all : test
-
-MARCH=$(shell uname -m)
-
-test_foreign.so : test_foreign.c
-ifeq ($(ARCHDIR), Linux64)
-##
-	gcc -O2 -g -falign-functions=8 -Dx86_64 -DLinux -fPIC -c $<
-	gcc -shared -fPIC -falign-functions=8 -o $@ test_foreign.o
-else
-ifeq ($(ARCHDIR), LinuxARM)
-ifeq ($(MARCH), aarch64)
-## arm 64bit
-	gcc -O2 -g -Wimplicit -falign-functions=8 -Daarch64 -Darmv8 -DARM -DLinux -fPIC -c $<
-	gcc -shared -fPIC -falign-functions=8 -o $@ test_foreign.o
-else
-## arm 32bit
-	gcc -O2 -g -falign-functions=4 -DARM -DLinux -fpic -c $<
-	gcc -shared -fpic -falign-functions=4 -o $@ test_foreign.o
-endif
-else
-## Linux32 bit
-	gcc -m32 -O2 -g -falign-functions=4 -Di386 -Di486 -DLinux -fpic -c $<
-	gcc -m32 -shared -fpic -falign-functions=4 -o $@ test_foreign.o
-endif
-endif
-
-test: test_foreign.so
-	irteusgl eus64-test.l
-
-clean :
-	\rm -f *.o *.so
-
diff --git a/contrib/eus64-check/eus64-module.l b/contrib/eus64-check/eus64-module.l
deleted file mode 100644
index 922bcbc9..00000000
--- a/contrib/eus64-check/eus64-module.l
+++ /dev/null
@@ -1,38 +0,0 @@
-(unless (boundp '*testmod*)
-  (setq *testmod* (load-foreign "test_foreign.so"))
-  (defforeign float-test *testmod* "float_test" (:integer :float32 :float32 :float32 :float32) :integer)
-  (defforeign float2-test *testmod* "float_test" (:integer :double :double :double :double) :integer)
-  (defforeign float3-test *testmod* "float_test" () :integer)
-  (defforeign double-test *testmod* "double_test" (:integer :double :double :double :double) :integer)
-  (defforeign double2-test *testmod* "double_test" (:integer :float32 :float32 :float32 :float32) :integer)
-  (defforeign double3-test *testmod* "double_test" () :integer)
-  (defforeign iv-test *testmod* "iv_test" () :integer)
-  (defforeign lv-test *testmod* "lv_test" () :integer)
-  (defforeign fv-test *testmod* "fv_test" () :integer)
-  (defforeign dv-test *testmod* "dv_test" () :integer)
-  (defforeign str-test *testmod* "str_test" () :integer)
-  (defforeign int-test *testmod* "int_test" () :integer)
-  (defforeign ret-float *testmod* "ret_float" () :float32)
-  (defforeign ret-double *testmod* "ret_double" () :float)
-  (defforeign ret-long *testmod* "ret_long" () :integer)
-  
-  (defforeign set-ifunc *testmod* "set_ifunc" (:integer) :integer)
-  (defforeign set-ffunc *testmod* "set_ffunc" (:integer) :integer)
-
-  (defforeign test-testd *testmod* "test_testd" (:integer :integer :integer
-                                                          :integer :integer :integer
-                                                          :double :double :double :double
-                                                          :double :double :double :double
-                                                          :double :double
-                                                          :integer :integer) :float)
-  (defforeign call-ifunc *testmod* "call_ifunc" () :integer)
-  (defforeign call-ffunc *testmod* "call_ffunc" () :float)
-
-  (defforeign get-size-pointer *testmod* "get_size_of_pointer" () :integer)
-  (defforeign get-size-float32 *testmod* "get_size_of_float32" () :integer)
-  (defforeign get-size-double  *testmod* "get_size_of_double" ()  :integer)
-  (defforeign get-size-long    *testmod* "get_size_of_long" () :integer)
-  (defforeign get-size-int     *testmod* "get_size_of_int" () :integer)
-  )
-
-
diff --git a/contrib/eus64-check/eus64-test.l b/contrib/eus64-check/eus64-test.l
deleted file mode 100644
index 9cf1560b..00000000
--- a/contrib/eus64-check/eus64-test.l
+++ /dev/null
@@ -1,249 +0,0 @@
-(load "eus64-module.l")
-(require :unittest "lib/llib/unittest.l")
-
-(init-unit-test)
-
-(deftest test-pointer-size
-  (format t "~%;;;; pointer size check ;;;;~%")
-
-  (format t "pointer size ~D ~D~%"
-	  lisp::sizeof-* (get-size-pointer))
-  (assert (= lisp::sizeof-* (get-size-pointer)))
-  
-  (format t "double size ~D ~D~%"
-	  lisp::sizeof-double (get-size-double))
-  (assert (= lisp::sizeof-double (get-size-double)))
-
-  (format t "long integer size ~D ~D~%"
-	  (cadr (assoc :long lisp::sizeof-types))
-	  (get-size-long))
-  (assert (= (cadr (assoc :long lisp::sizeof-types)) (get-size-long)))
-
-  (format t "integer size ~D ~D~%"
-	  lisp::sizeof-int (get-size-int))
-  (assert (= lisp::sizeof-int (get-size-int)))
-
-  (format t "float size ~D ~D~%"
-	  lisp::sizeof-float (get-size-float32))
-  (assert (= lisp::sizeof-float (get-size-float32)))
-  )
-
-(deftest test-multiple-arguments-passing
-  (format t "~%multiple arguments passing~%")
-  (format t "expected result~%")
-  (format t "100 101 102
-103 104 105
-1000.000000 1010.000000 1020.000000 1030.000000
-1040.000000 1050.000000 1060.000000 1070.000000
-2080.000000 2090.000000
-206 207
-test-testd = 1.23456
-~%")
-  (format t "exec in eus~%")
-  (format t "test-testd = ~A~%"
-        (setq ret (test-testd 100 101 102
-            103 104 105
-            1000.0 1010.0 1020.0 1030.0
-            1040.0 1050.0 1060.0 1070.0
-            2080.0 2090.0
-            206 207)))
-  (assert (eps= 1.23456 ret))
-
-  ;;
-  (setq f (piped-fork "irteusgl eus64-module.l '(progn (test-testd 100 101 102 103 104 105 1000.000000 1010.000000 1020.000000 1030.000000 1040.000000 1050.000000 1060.000000 1070.000000 2080.000000 2090.000000 206 207)(exit 0))'"))
-  (assert (string= (read-line f) "100 101 102"))
-  (assert (string= (read-line f) "103 104 105"))
-  (assert (string= (read-line f) "1000.000000 1010.000000 1020.000000 1030.000000"))
-  (assert (string= (read-line f) "1040.000000 1050.000000 1060.000000 1070.000000"))
-  (assert (string= (read-line f) "2080.000000 2090.000000"))
-  (assert (string= (read-line f) "206 207"))
-  )
-
-(deftest test-float-test
-  (format t "~%~%float-test~%")
-  (format t "expected result~%")
-  (format t "0: 1.000000e-01 ..~%")
-  (format t "0: 2.000000e-01 ..~%")
-  (format t "0: 3.000000e-01 ..~%")
-  (format t "0: 4.000000e-01 ..~%")
-  (format t "~%float-test(success, exec in eus)~%")
-  (float-test 0 0.1 0.2 0.3 0.4)
-  (format t "~%float2-test(fail, exec in eus)~%")
-  (float2-test 0 0.1 0.2 0.3 0.4)
-  (format t "~%float3-test(depend on architecture, exec in eus)~%")
-  (float3-test 0 0.1 0.2 0.3 0.4)
-
-  ;;
-  (setq f (piped-fork "irteusgl eus64-module.l '(progn (float-test 0 0.1 0.2 0.3 0.4)(exit 0))'"))
-  (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.1)) ;; skip first 2 character
-  (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.2))
-  (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.3))
-  (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.4))
-  )
-
-(deftest test-double-test
-  (format t "~%~%double-test~%")
-  (format t "expected result~%")
-  (format t "1: 1.000000e-01 ..~%")
-  (format t "1: 2.000000e-01 ..~%")
-  (format t "1: 3.000000e-01 ..~%")
-  (format t "1: 4.000000e-01 ..~%")
-  (format t "~%double-test(success, exec in eus)~%")
-  (double-test 1 0.1 0.2 0.3 0.4)
-  (format t "~%double2-test(fail, exec in eus)~%")
-  (double2-test 1 0.1 0.2 0.3 0.4)
-  (format t "~%double3-test(depend on architecture, exec in eus)~%")
-  (double3-test 1 0.1 0.2 0.3 0.4)
-
-  ;;
-  (setq f (piped-fork "irteusgl eus64-module.l '(progn (double-test 1 0.1 0.2 0.3 0.4)(exit 0))'"))
-  (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.1)) ;; skip first 2 character
-  (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.2))
-  (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.3))
-  (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.4))
-  (setq f (piped-fork "irteusgl eus64-module.l '(progn (double3-test 1 0.1 0.2 0.3 0.4)(exit 0))'"))
-  (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.1)) ;; skip first 2 character
-  (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.2))
-  (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.3))
-  (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.4))
-  )
-
-(deftest test-integer-vector
-  (setq iv (integer-vector 0 100 10000 1000000 100000000 10000000000))
-  #|
-  (format t "~%iv-test~%")
-  (format t "expected result~%")
-  (format t "exec in eus64~%")
-  (iv-test (length iv) iv)
-  |#
-  (format t "~%lv-test~%")
-  (format t "size = 6
-0: 0 0
-1: 100 64
-2: 10000 2710
-3: 1000000 F4240
-4: 100000000 5F5E100
-5: 10000000000 2540BE400~%")
-  (format t "~%lv-test(exec in eus)~%")
-  (lv-test (length iv) iv)
-
-  ;;
-  (setq f (piped-fork "irteusgl eus64-module.l '(progn (setq iv (integer-vector 0 100 10000 1000000 100000000 10000000000))(lv-test (length iv) iv)(exit 0))'"))
-  (assert (string= (read-line f) "size = 6"))
-  (assert (string= (read-line f) "0: 0 0"))
-  (assert (string= (read-line f) "1: 100 64"))
-  (assert (string= (read-line f) "2: 10000 2710"))
-  (assert (string= (read-line f) "3: 1000000 F4240"))
-  (assert (string= (read-line f) "4: 100000000 5F5E100"))
-  (assert (string= (read-line f) "5: 10000000000 2540BE400"))
-  )
-
-(deftest test-float-vector
-  (setq fv (float-vector 0.1 0.2 0.3 0.5 0.7))
-  #|
-  (format t "~%fv-test~%")
-  (format t "exec in eus64~%")
-  (fv-test (length fv) fv)
-  |#
-
-  (format t "~%dv-test~%")
-  (format t "size = 5
-0: 1.000000e-01 3FB9999999999998
-1: 2.000000e-01 3FC9999999999998
-2: 3.000000e-01 3FD3333333333330
-3: 5.000000e-01 3FE0000000000000
-4: 7.000000e-01 3FE6666666666664~%")
-  (format t "~%dv-test(exec in eus)~%")
-  (dv-test (length fv) fv)
-
-  ;;
-  (setq f (piped-fork "irteusgl eus64-module.l '(progn (setq fv (float-vector 0.1 0.2 0.3 0.5 0.7))(dv-test (length fv) fv)(exit 0))'"))
-  (assert (string= (read-line f) "size = 5"))
-  (assert (string= (read-line f) "0: 1.000000e-01 3FB9999999999998"))
-  (assert (string= (read-line f) "1: 2.000000e-01 3FC9999999999998"))
-  (assert (string= (read-line f) "2: 3.000000e-01 3FD3333333333330"))
-  (assert (string= (read-line f) "3: 5.000000e-01 3FE0000000000000"))
-  (assert (string= (read-line f) "4: 7.000000e-01 3FE6666666666664"))
-  )
-
-(deftest test-string-test
-  (setq str "input : test64 string")
-  (format t "~%str-test~%")
-  ;;(format t "expected result~%")
-  (format t "input string : ~S~%" str)
-  (format t "~%str-test(exec in eus)~%")
-  (str-test (length str) str)
-  ;;
-  (setq f (piped-fork "irteusgl eus64-module.l '(progn (setq str \"input : test64 string\")(str-test (length str) str)(exit 0))'"))
-  (assert (string= (read-line f) (format nil "size = ~d" (length str))))
-  (dotimes (i (length str))
-    (assert (string= (read-line f) (format nil "~d: ~c ~x" i (elt str i) (elt str i))))
-    )
-  )
-
-(deftest test-return-double
-  (format t "~%return double test~%")
-  (format t "expected result~%")
-  (format t "  ret-double ~8,8e~%" (+ 0.55555 133.0))
-  (format t "~%ret-double(exec in eus)~%")
-  (format t "  ret-double ~8,8e~%" (ret-double 0.55555 133.0))
-  ;;
-  (assert (eps= (ret-double 0.55555 133.0) (+ 0.55555 133.0)))
-  )
-
-(deftest test-return-long
-  (format t "~%return long test~%")
-  (format t "expected result~%")
-  (format t "  ret-long ~D~%" (+ 123 645000))
-  (format t "~%ret-long(exec in eus)~%")
-  (format t "  ret-long ~D~%" (ret-long 123 645000))
-
-  (assert (= (ret-long 123 645000) (+ 123 645000)))
-  )
-#|
-;; ret-int
-;; ret-short
-;; ret-char
-
-;; callback function
-(defun-c-callable LISP-IFUNC () :integer
-  (format t "LISP-INTFUNC is called, return ~D~%" 1234)
-  1234)
-;;
-(format t "~%callback function test(integer)~%")
-(format t "  callback function is set~%")
-(set-ifunc (pod-address 'LISP-IFUNC))
-(format t "  expected result: LISP-INTFUNC is called, return 1234~%")
-(format t "  call-ifunc = ~A~%" (call-ifunc))
-
-(defun-c-callable LISP-FFUNC ((i0 :integer) (i1 :integer) (i2 :integer)
-                              (i3 :integer) (i4 :integer) (i5 :integer)
-                              (f0 :float) (f1 :float) (f2 :float) (f3 :float)
-                              (f4 :float) (f5 :float) (f6 :float) (f7 :float)
-                              (f8 :float) (f9 :float)
-                              (i6 :integer) (i7 :integer)) :float
-  (format t "LISP-FFUNC is called~%")
-  (format t "~A ~A ~A~%" i0 i1 i2)
-  (format t "~A ~A ~A~%" i3 i4 i5)
-  (format t "~A ~A ~A ~A~%" f0 f1 f2 f3)
-  (format t "~A ~A ~A ~A~%" f4 f5 f6 f7)
-  (format t "~A ~A~%" f8 f9)
-  (format t "~A ~A~%" i6 i7)
-  (format t "return ~A~%" 0.12345)
-  0.12345)
-(format t "~%callback function test(float)~%")
-(format t "  callback function is set~%")
-(set-ffunc (pod-address 'LISP-FFUNC))
-(format t "  expected result: LISP-FFUNC is called
-  100 101 102
-  103 104 105
-  1000.0 1010.0 1020.0 1030.0
-  1040.0 1050.0 1060.0 1070.0
-  2080.0 2090.0
-  206 207
-  return 0.12345~%")
-(format t "call-ffunc = ~A~%" (call-ffunc))
-|#
-
-(run-all-tests)
-(exit)
diff --git a/contrib/eus64-check/test_foreign.c b/contrib/eus64-check/test_foreign.c
deleted file mode 100644
index f0af5255..00000000
--- a/contrib/eus64-check/test_foreign.c
+++ /dev/null
@@ -1,216 +0,0 @@
-#include <stdio.h>
-#include <unistd.h>
-
-int float_test(int n, float f1, float f2, float f3, float f4) {
-  unsigned int ui;
-
-  //printf("float_test in c\n");
-  ui = *((unsigned int *)(&f1));
-  printf("%d: %8.8e %X\n", n, f1, ui);
-  ui = *((unsigned int *)(&f2));
-  printf("%d: %8.8e %X\n", n, f2, ui);
-  ui = *((unsigned int *)(&f3));
-  printf("%d: %8.8e %X\n", n, f3, ui);
-  ui = *((unsigned int *)(&f4));
-  printf("%d: %8.8e %X\n", n, f4, ui);
-
-  return -1;
-}
-
-int double_test(long n, double d1, double d2, double d3, double d4) {
-  unsigned long ul;
-
-  //printf("double_test in c\n");
-  ul = *((unsigned long *)(&d1));
-  printf("%ld: %16.16e %lX\n", n, d1, ul);
-  ul = *((unsigned long *)(&d2));
-  printf("%ld: %16.16e %lX\n", n, d2, ul);
-  ul = *((unsigned long *)(&d3));
-  printf("%ld: %16.16e %lX\n", n, d3, ul);
-  ul = *((unsigned long *)(&d4));
-  printf("%ld: %16.16e %lX\n", n, d4, ul);
-
-  return -1;
-}
-
-int iv_test(int n, int *src) {
-  int i;
-  unsigned int *ui;
-  printf("size = %d\n", n);
-  for(i=0;i<n ;i++){
-    ui = (unsigned int *)(&(src[i]));
-    printf("%d: %d %X\n", i, src[i], *ui);
-  }
-  return -1;
-}
-
-int lv_test(int n, long *src) {
-  int i;
-  unsigned long *ul;
-  printf("size = %d\n", n);
-  for(i=0;i<n ;i++){
-    ul = (unsigned long *)(&(src[i]));
-    printf("%d: %ld %lX\n", i, src[i], *ul);
-  }
-  return -1;
-}
-
-int fv_test(int n, float *src) {
-  int i;
-  unsigned int *ui;
-  printf("size = %d\n", n);
-  for(i=0;i<n ;i++){
-    ui = (unsigned int *)(&(src[i]));
-    printf("%d: %e %X\n", i, src[i], *ui);
-  }
-  return -1;
-}
-
-int dv_test(int n, double *src) {
-  int i;
-  unsigned long *ul;
-  printf("size = %d\n", n);
-  for(i=0;i<n ;i++){
-    ul = (unsigned long *)(&(src[i]));
-    printf("%d: %e %lX\n", i, src[i], *ul);
-  }
-  return -1;
-}
-
-int str_test(int n, char *src) {
-  int i;
-  printf("size = %d\n", n);
-  for(i=0;i<n ;i++){
-    printf("%d: %c %x\n", i, src[i], src[i]);
-  }
-  return -1;
-}
-
-int int_test(long l, int i, short s) {
-  printf("long  = %ld(%lX)\n",l,l);
-  printf("int   = %d(%X)\n",i,i);
-  printf("short = %d(%X)\n",s,s);
-  
-  return l + i + s;
-}
-
-float ret_float(double a, double b) {
-  float ret = (float) (a + b);
-  unsigned int *ui;
-  ui = (unsigned int *)&ret;
-  printf("// return %e, %X\n", ret, *ui);
-  return ret;
-}
-
-double ret_double(double a, double b) {
-  double ret = (a + b);
-  unsigned long *ul;
-  ul = (unsigned long *)&ret;
-  printf("// return %e, %lX\n", ret, *ul);
-  return ret;
-}
-
-long ret_long(long a, long b) {
-  long ret = a + b;
-  unsigned long *ul;
-  ul = (unsigned long *)&ret;
-  printf("// return %ld, %lX\n", ret, *ul);
-  return ret;
-}
-
-double test_testd(long i0, long i1, long i2,
-                  long i3, long i4, long i5, 
-                  double d0, double d1, double d2, double d3,
-                  double d4, double d5, double d6, double d7,
-                  double d8, double d9,
-                  long i6, long i7) {
-  printf("%ld %ld %ld\n", i0, i1, i2);
-  printf("%ld %ld %ld\n", i3, i4, i5);
-  //printf("%ld %ld %ld %ld\n",
-  //(long)d0, (long)d1, (long)d2, (long)d3);
-  printf("%lf %lf %lf %lf\n", d0, d1, d2, d3);
-  printf("%lf %lf %lf %lf\n", d4, d5, d6, d7);
-  printf("%lf %lf\n", d8, d9);
-  printf("%ld %ld\n", i6, i7);
-  
-  //return 0x1234;
-  return 1.23456;
-}
-double test_testd2(long i0, long i1, long i2,
-                   long i3, long i4, long i5, 
-                   double d0, double d1, double d2, double d3,
-                   double d4, double d5, double d6, double d7,
-                   double d8, double d9, double d10,
-                   long i6, long i7) {
-  printf("%ld %ld %ld\n", i0, i1, i2);
-  printf("%ld %ld %ld\n", i3, i4, i5);
-  //printf("%ld %ld %ld %ld\n",
-  //(long)d0, (long)d1, (long)d2, (long)d3);
-  printf("%lf %lf %lf %lf\n", d0, d1, d2, d3);
-  printf("%lf %lf %lf %lf\n", d4, d5, d6, d7);
-  printf("%lf %lf %lf\n", d8, d9, d10);
-  printf("%ld %ld\n", i6, i7);
-  
-  //return 0x1234;
-  return 1.23456;
-}
-
-static long (*g)();
-static double (*gf) (long i0, long i1, long i2,
-                     long i3, long i4, long i5, 
-                     double d0, double d1, double d2, double d3,
-                     double d4, double d5, double d6, double d7,
-                     double d8, double d9,
-                     long i6, long i7);
-
-long set_ifunc(long (*f) ())
-{
-  g = f;
-  printf("set_ifunc, g = %lX\n", g);
-}
-
-long set_ffunc(double (*f) ())
-{
-  gf = (double (*) (long i0, long i1, long i2,
-                    long i3, long i4, long i5, 
-                    double d0, double d1, double d2, double d3,
-                    double d4, double d5, double d6, double d7,
-                    double d8, double d9,
-                    long i6, long i7))f;
-  printf("set_ffunc, gf = %lX\n", gf);
-}
-
-long call_ifunc() {
-  printf("call_ifunc, g = %lX\n", g);
-  return g();
-}
-
-double call_ffunc() {
-  printf("call_ffunc, gf = %lX\n", gf);
-  return gf(100,101,102,
-            103,104,105,
-            1000.0, 1010.0, 1020.0, 1030.0,
-            1040.0, 1050.0, 1060.0, 1070.0,
-            2080.0, 2090.0,
-            206, 207);
-}
-
-long get_size_of_pointer() {
-  return (sizeof(void *));
-}
-
-long get_size_of_float32() {
-  return (sizeof(float));
-}
-
-long get_size_of_double() {
-  return (sizeof(double));
-}
-
-long get_size_of_long() {
-  return (sizeof(long));
-}
-
-long get_size_of_int() {
-  return (sizeof(int));
-}
diff --git a/doc/jlatex/jintro.tex b/doc/jlatex/jintro.tex
index 8abb808a..d7e03bc5 100644
--- a/doc/jlatex/jintro.tex
+++ b/doc/jlatex/jintro.tex
@@ -219,6 +219,8 @@ \subsection{開発履歴}
             Cのdefun関数のAPIを変更し，docストリングを含んだ5引数となった．バージョンが9.25となった．
             マニュアルのタイポを修正した．テストコードをjskeusリポジトリから移動した．(1+) / (1-) の引数が整数でない時のコンパイルのバグを修正した．コンパイル時のwarningを消した．一部のgcc(aarch64/gcc-6)に対応するため全てのアーキテクチャで\_endではなくminmemoryを利用するよう変更した．:draw-arrowしてから:draw-onすると挙動がおかしい問題を解決した．ドキュメント生成時にeuslisp.hlpも生成するようにした．color-imageの:halve, :doubleを実行できるようにした．バージョンが9.26となった．
 \item[2019] ドキュメントの修正を行った．エラーハンドラでE\_USERの内容を表示するようにした．ratioクラスに:initメソッドを追加した．Mesa版のGL定義ファイルに更新した．:word-size=64 を*features*に追加し，64bitコードの実行はこれを参照するようにした．バージョンが9.27となった．
+\item[2021] ARMの外部関数呼び出しのバグを修正した. オフライン描画を行うglpixmapsurfaceクラスを追加した．コンパイルした関数名を固定化した．helpファイルを読んだ後のファイルハンドラを閉じた．make-gdome,make-body-from-verticesで:primitiveを使って:csgをセットするようにした．i386のリンカにgccを利用するようにした．バージョンが9.28となった．
+\item[2022] ソースコード中にeuspointer\_t を導入した．mainthread(ctx)でmalloc()/cfree()を行うようにした．バージョンが9.29となった
 \end{description}
 
 \subsection{インストール}
diff --git a/doc/jlatex/jmanual.dvi b/doc/jlatex/jmanual.dvi
index 5f0100cb..19376ff3 100644
Binary files a/doc/jlatex/jmanual.dvi and b/doc/jlatex/jmanual.dvi differ
diff --git a/doc/jlatex/jmanual.pdf b/doc/jlatex/jmanual.pdf
index e7851ec9..f8587b80 100644
Binary files a/doc/jlatex/jmanual.pdf and b/doc/jlatex/jmanual.pdf differ
diff --git a/doc/jlatex/jmanual.tex b/doc/jlatex/jmanual.tex
index 1f4816f0..444786ca 100644
--- a/doc/jlatex/jmanual.tex
+++ b/doc/jlatex/jmanual.tex
@@ -9,7 +9,7 @@
 \AtBeginDvi{\special{pdf:tounicode 90ms-RKSJ-UCS2}}\fi
 
 %%%
-\newcommand{\eusversion}{9.27}
+\newcommand{\eusversion}{9.29}
 
 
 \flushbottom
@@ -169,6 +169,7 @@ \part{EusLisp 拡張}
 \input{jimage}
 \input{jmanipulator}
 \input{jmars-pre}
+\input{jmisc}
 %
 \begin{thebibliography}{99}
 \bibitem{Hirukawa:1991a}{T.Matsui H.Hirukawa and K.Takase. A general algorithm for derivation and analysis of constraint for motion of polyhedra in contact. In IEEE/RSJ International Workshop on Intelligent Robots and Systems'91, pages 38-43, 1991.}
diff --git a/doc/jlatex/jmisc.tex b/doc/jlatex/jmisc.tex
new file mode 100644
index 00000000..3593916a
--- /dev/null
+++ b/doc/jlatex/jmisc.tex
@@ -0,0 +1,69 @@
+\section{その他の機能}
+
+\subsection{Argument Parser}
+
+\begin{refdesc}
+
+\classdesc{argument-parser}{propertied-object}{flaglst docstring parsed-p}{
+コマンドライン引数のパーサを定義する。}
+
+\methoddesc{:init}{\&key prog description epilog (add-help t)}{
+プログラム名，自動生成されるヘルプテキストの前後に表示するテキストから，
+オブジェクトを生成する。}
+
+\methoddesc{:add-argument}{flags \&key (action :store) const default choices check read required help dest}{
+コマンドライン引数を定義する。
+
+{\tt flag} は {\tt "--foo"} や {\tt  "-b"} の引数オプションを定義する。
+引数は{\tt '("--bar" "-b")}等のリストで与えることも可能である。
+
+{\tt action} はプログラムに引数が渡されたときの挙動を指定する。
+現在サポートされている{\tt action} は {\tt :store}, {\tt :store-true},
+{\tt :store-false}, {\tt :store-const}, {\tt :append}, そしてカスタム関数である。
+{\tt help} はヘルプドキュメントを指定する。
+ほとんどのパラメータはhttps://docs.python.org/3/library/argparse.htmlに習って設計されている。}
+
+\methoddesc{:parse-args}{}{
+{\tt lisp::*eustop-argument*} を用いてコマンドライン引数をパースする。
+このメソッドは{\tt argument-parser} インスタンスに引数オプション名メ
+ソッドを与える前に呼ばなければならない。}
+
+{\tt argument-parser}のサンプルプログラムを以下に示す。
+
+\begin{verbatim}
+(require :argparse "argparse.l")
+
+(defvar argparse (instance argparse:argument-parser :init
+                           :description "Program Description (optional)"))
+(send argparse :add-argument "--foo" :default 10 :read t
+      :help "the foo description")
+(send argparse :add-argument '("--bar" "-b") :action :store-true
+      :help "the bar description")
+
+(send argparse :parse-args)
+(format t "foo: ~A~%" (send argparse :foo))
+(format t "bar: ~A~%" (send argparse :bar))
+(exit)
+\end{verbatim}
+
+このサンプルプログラムを実行したときの出力は以下のようになる。
+
+\begin{verbatim}
+$ eus argparse-example.l
+foo: 10
+bar: t
+$ eus argparse-example.l --foo=100 --bar
+foo: 100
+bar: t
+$ eus argparse-example.l -h
+usage: [-h] [--foo=FOO] [-b]
+
+Program Description (optional)
+
+optional arguments:
+  -h, --help	show this help message and exit
+  --foo=FOO	the foo description (default: 10)
+  -b, --bar	the bar description
+\end{verbatim}
+
+\end{refdesc}
diff --git a/doc/latex/intro.tex b/doc/latex/intro.tex
index 60c4d3d7..f67a4a32 100644
--- a/doc/latex/intro.tex
+++ b/doc/latex/intro.tex
@@ -293,6 +293,8 @@ \subsection{Revision History}
             Version 9.25 is released, C defun() function now takes 5 arguments includeing doc string.
             Version 9.26 is released, fix typo in manuals, move test code from jskeus repository, clean compile warnings, use minmemory instead of \_end in all architecture for some compiler (aarch64/gcc-6), fix problem on call :draw-on after :draw-arrow, generate euslisp.hlp when compiled, enable to run :halve and :double in color-image.
 \item[2019] Version 9.27 is released. Fix documentation. Print E\_USER within default error handler. Add :init method into ration class. Update Mesa version of GL constant files. Add :word-size=64 to *features* and refer this information to execute on 64bit machine.
+\item[2021] Version 9.28 is released. Fix bugs on foreign function call ARM. Add glpixmapsurface class for offline drawing. Fix compiled function name. Close file handler after reading help file. Set :primitive to set :csg on make-gdome and make-body-from-vertices. Use gcc as linker on i386.
+\item[2022] Version 9.29 is released. Introduce euspointer\_t in the source code. call malloc()/cfree() within mainthread(ctx).
 \end{description}
 
 \subsection{Installation}
diff --git a/doc/latex/manual.dvi b/doc/latex/manual.dvi
index e7c1b8aa..5fd19ad3 100644
Binary files a/doc/latex/manual.dvi and b/doc/latex/manual.dvi differ
diff --git a/doc/latex/manual.pdf b/doc/latex/manual.pdf
index 60ab494d..a1c80d6c 100644
Binary files a/doc/latex/manual.pdf and b/doc/latex/manual.pdf differ
diff --git a/doc/latex/manual.tex b/doc/latex/manual.tex
index b82f12fe..530bc2a8 100644
--- a/doc/latex/manual.tex
+++ b/doc/latex/manual.tex
@@ -7,7 +7,7 @@
 \usepackage[dvipdfmx,bookmarks=true,bookmarksnumbered=true,bookmarkstype=toc]{hyperref}
 
 %%%
-\newcommand{\eusversion}{9.27}
+\newcommand{\eusversion}{9.29}
 
 \flushbottom
 \makeindex
@@ -183,6 +183,7 @@ \part{EusLisp Extensions}
 \input{database}
 \input{http}
 % \input{sound}
+\input{misc}
 %
 \begin{thebibliography}{99}
 \bibitem{Hirukawa:1991a}{T.Matsui H.Hirukawa and K.Takase. A general algorithm for derivation and analysis of constraint for motion of polyhedra in contact. In IEEE/RSJ International Workshop on Intelligent Robots and Systems'91, pages 38-43, 1991.}
diff --git a/doc/latex/misc.tex b/doc/latex/misc.tex
new file mode 100644
index 00000000..ba4899aa
--- /dev/null
+++ b/doc/latex/misc.tex
@@ -0,0 +1,70 @@
+\section{Miscellaneous}
+
+\subsection{Argument Parser}
+
+\begin{refdesc}
+
+\classdesc{argument-parser}{propertied-object}{flaglst docstring parsed-p}{
+command line argument parser.}
+
+\methoddesc{:init}{\&key prog description epilog (add-help t)}{
+instantiates argument-parser class object from the name of the program,
+description text to display before the argument help and text to
+display after them as an epilog.}
+
+\methoddesc{:add-argument}{flags \&key (action :store) const default choices check read required help dest}{
+defines the command-line argument to be parsed.
+
+{\tt flag} specify the options strings such as {\tt "--foo"} or {\tt
+  "-b"}. It also takes list values i.e. {\tt '("--bar" "-b")}.
+
+{\tt action} defines the behavior when this argument is passed to the
+program. Current supported actions are {\tt :store}, {\tt :store-true},
+{\tt :store-false}, {\tt :store-const}, {\tt :append}, and custom functions.
+{\tt help} defines the help document text.
+Most of the arguments are designed according to https://docs.python.org/3/library/argparse.html.}
+
+\methoddesc{:parse-args}{}{
+parses command line argument from {\tt lisp::*eustop-argument*}. This
+method must be called before sending an argument name method to {\tt
+ argument-parser} instance.}
+
+The following shows an example of {\tt argument-parser}.
+
+\begin{verbatim}
+(require :argparse "argparse.l")
+
+(defvar argparse (instance argparse:argument-parser :init
+                           :description "Program Description (optional)"))
+(send argparse :add-argument "--foo" :default 10 :read t
+      :help "the foo description")
+(send argparse :add-argument '("--bar" "-b") :action :store-true
+      :help "the bar description")
+
+(send argparse :parse-args)
+(format t "foo: ~A~%" (send argparse :foo))
+(format t "bar: ~A~%" (send argparse :bar))
+(exit)
+\end{verbatim}
+
+The following is an output of the example program above.
+
+\begin{verbatim}
+$ eus argparse-example.l
+foo: 10
+bar: t
+$ eus argparse-example.l --foo=100 --bar
+foo: 100
+bar: t
+$ eus argparse-example.l -h
+usage: [-h] [--foo=FOO] [-b]
+
+Program Description (optional)
+
+optional arguments:
+  -h, --help	show this help message and exit
+  --foo=FOO	the foo description (default: 10)
+  -b, --bar	the bar description
+\end{verbatim}
+
+\end{refdesc}
diff --git a/doc/man/eus.1 b/doc/man/eus.1
index 5b92243a..014a80ed 100644
--- a/doc/man/eus.1
+++ b/doc/man/eus.1
@@ -1,6 +1,6 @@
 .TH eus 1 "Apr/20/1989"
 .SH NAME
-eus eusx euscomp eusxview eusview \- EusLisp
+eus \- EusLisp
 .SH SYNOPSIS
 .nf
 eus [start-up-files]
diff --git a/env-hooks/99.euslisp.sh.in b/env-hooks/99.euslisp.sh.in
index 1dece3f4..c8dcd935 100644
--- a/env-hooks/99.euslisp.sh.in
+++ b/env-hooks/99.euslisp.sh.in
@@ -1,4 +1,5 @@
 export ARCHDIR=@ARCHDIR@
 export EUSDIR="@CMAKE_INSTALL_PREFIX@/share/euslisp/jskeus/eus/"
-export LD_LIBRARY_PATH="$EUSDIR/$ARCHDIR/lib:$LD_LIBRARY_PATH"
-export PATH="$EUSDIR/$ARCHDIR/bin:$PATH"
+export LD_LIBRARY_PATH=$EUSDIR/$ARCHDIR/lib:$LD_LIBRARY_PATH
+export PATH=$EUSDIR/$ARCHDIR/bin:$PATH
+
diff --git a/lib/llib/argparse.l b/lib/llib/argparse.l
index cb9a1169..ace58bab 100644
--- a/lib/llib/argparse.l
+++ b/lib/llib/argparse.l
@@ -167,7 +167,7 @@
 
 (defclass argument-parser
   :super propertied-object
-  :slots (flaglst docstring))
+  :slots (flaglst docstring parsed-p))
 (defmethod argument-parser
   (:init (&key prog description epilog (add-help t))
     (setq docstring (instance argparse-docstring :init
@@ -209,7 +209,7 @@
                   ((not (argparse-argument-flagp arg)) name)))
       ;; add method
       (if (keywordp name)
-          (eval `(defmethod argument-parser (,name () (send (get self ,name) :value)))))
+          (eval `(defmethod argument-parser (,name () (if (not parsed-p) (warning-message 1 "Not parsed! Call :parse-args!~%")) (send (get self ,name) :value)))))
       ;; return name
       name))
   (:parse-args ()
@@ -248,4 +248,6 @@
                   (cli-error "Argument ~S not found!~%" flag)))))
         ;; check required arguments
         (when required-args
-          (cli-error "Argument ~A is required!" (caar (last required-args))))))))
+          (cli-error "Argument ~A is required!" (caar (last required-args))))))
+    ;; set parsed-p
+    (setq parsed-p t)))
diff --git a/lisp/Makefile.Linux b/lisp/Makefile.Linux
index f243c41f..5c564816 100644
--- a/lisp/Makefile.Linux
+++ b/lisp/Makefile.Linux
@@ -74,7 +74,7 @@ CFLAGS:= $(CFLAGS) $(CPPFLAGS) $(WFLAGS) -D$(MACHINE) -DLinux -D_REENTRANT -DVER
 
 # machine specific CFLAGS
 ifneq ($(shell gcc -dumpmachine | egrep "^(arm|aarch)"),)
-  ADD_LDFLAGS=-Wl,-z,execstack
+  ADD_LDFLAGS+=-Wl,-z,execstack
   CFLAGS+=-DARM -fPIC
   ARCH=LinuxARM
 endif
diff --git a/lisp/Makefile.Linux64 b/lisp/Makefile.Linux64
index 247bfa36..e12ed082 100644
--- a/lisp/Makefile.Linux64
+++ b/lisp/Makefile.Linux64
@@ -67,7 +67,7 @@ CC=gcc
 # On Solaris, XLIB and EUSLIB are combined together into lib/libeusx.so.
 
 # Linux
-RAWLIB=-ldl -lm -lpthread
+RAWLIB=-ldl -lm -lpthread -lc
 XLIB= -L/usr/X11R6/lib -lX11
 
 # specify directories where euslisp's libraries are located.
diff --git a/lisp/Makefile.LinuxARM b/lisp/Makefile.LinuxARM
index ec1665bb..4b2683d1 100644
--- a/lisp/Makefile.LinuxARM
+++ b/lisp/Makefile.LinuxARM
@@ -46,11 +46,9 @@ ifeq ($(GCC_MAJOR_VERSION), 2)
  ADD_CFLAGS=-fno-stack-protector -fpic
 else
  ifeq ($(MACHINE), aarch64)
-   CPU_OPTIMIZE=-march=armv8-a
    ALIGN_FUNCTIONS=-falign-functions=8
    ADD_CFLAGS=-fPIC -Darmv8
  else
-   CPU_OPTIMIZE=-march=$(MACHINE)
    ALIGN_FUNCTIONS=-falign-functions=4
    ADD_CFLAGS=-fno-stack-protector -fpic
  endif
@@ -94,7 +92,7 @@ LD=gcc
 # On Solaris, XLIB and EUSLIB are combined together into lib/libeusx.so.
 
 # Linux
-RAWLIB=-ldl -lm -lpthread
+RAWLIB=-ldl -lm -lpthread -lc
 XLIB= -L/usr/X11R6/lib -lX11
 
 # specify directories where euslisp's libraries are located.
diff --git a/lisp/Makefile.generic1 b/lisp/Makefile.generic1
index a5654374..2df52b9d 100644
--- a/lisp/Makefile.generic1
+++ b/lisp/Makefile.generic1
@@ -28,6 +28,6 @@ TOOLDIR=tool
 XWINDOWDIR=xwindow
 GLDIR=opengl/src
 GLINCLUDE=-I/usr/local/Mesa/include/
-VERSION=9.27
+VERSION=9.29
 XVERSION=X_V11R6
 
diff --git a/lisp/c/big.c b/lisp/c/big.c
index d3689afd..1774f299 100644
--- a/lisp/c/big.c
+++ b/lisp/c/big.c
@@ -364,6 +364,7 @@ eusinteger_t i;
   for (j=0; j<vlen; j++) newv->c.ivec.iv[j]=bn->c.ivec.iv[j];
   newv->c.ivec.iv[vlen]=i;
   pointer_update(x->c.bgnm.bv, newv);
+  x->c.bgnm.size=makeint(vlen+1);
   return(newv);
   }
 
@@ -517,7 +518,7 @@ pointer x;
     if (xv[i] != 0) {
       yv[i]= (-xv[i]) & MASK;	goto ONE;}
     i++;}
-  if (xv[i] == MSB) { /* 0x80000000 */
+  if ((unsigned long)xv[i] == MSB) { /* 0x80000000 */
     yv[i]= 0;
     stretch_big(y, 1);
     yv=bigvec(y);
diff --git a/lisp/c/eus.c b/lisp/c/eus.c
index c2b87576..6dc23e19 100644
--- a/lisp/c/eus.c
+++ b/lisp/c/eus.c
@@ -38,7 +38,7 @@ int _end;
 eusinteger_t mypid;
 char *progname;
 #if (WORD_SIZE == 64)
-eusinteger_t setjmp_val;
+euspointer_t setjmp_val;
 #endif
 
 /* heap management */
@@ -547,7 +547,7 @@ static void initclassid()
 }
 
 static void initpackage()
-{ register int i;
+{ register size_t i;
   register context *ctx=mainctx;
 
   /* GENESIS: First, VECTOR must exist!*/
@@ -953,7 +953,7 @@ static void initfeatures()
 #endif
   {
     char tmp[32];
-    sprintf(tmp, "WORD-SIZE=%d", sizeof(void*)*8);
+    sprintf(tmp, "WORD-SIZE=%zd", sizeof(void*)*8);
     p=cons(ctx,intern(ctx,tmp,strlen(tmp),keywordpkg),p);
   }
 
@@ -1188,9 +1188,17 @@ int mainargc;
 char *mainargv[32];
 
 
+#pragma GCC push_options
+#pragma GCC optimize ("no-tree-dce") /* DCE(Dummy Code Elimination) remove this malloc/cfree code, so this line tells compile not to remove them */
 void mainthread(ctx)
 register context *ctx;
 { 
+  /* following two lines are just to speed up frequent sbreak at the beginning
+     of the execution and prevent returning 0 when calling malloc in the first time. */
+  unsigned char *m;
+  m=(unsigned char *)malloc(4*1024*1024);
+  cfree(m);
+
   euscontexts[thr_self()]=ctx;
 
   /*initialize system*/
@@ -1343,6 +1351,7 @@ char *argv[];
 
   exit(stat);
   }
+#pragma GCC pop_options
 
 #if (WORD_SIZE == 64)
 pointer makeint(eusinteger_t v) {
diff --git a/lisp/c/eus.h b/lisp/c/eus.h
index e13d7820..97852175 100644
--- a/lisp/c/eus.h
+++ b/lisp/c/eus.h
@@ -17,10 +17,12 @@
 
 #if (WORD_SIZE == 64)
 typedef long eusinteger_t;
+typedef unsigned long euspointer_t;
 typedef double eusfloat_t;
 #define WORDSHIFT 3
 #else
 typedef int eusinteger_t;
+typedef unsigned int euspointer_t;
 typedef float eusfloat_t;
 #define WORDSHIFT 2
 #endif
@@ -70,9 +72,9 @@ typedef float eusfloat_t;
 #endif
 
 #if (WORD_SIZE == 64)
-extern eusinteger_t setjmp_val;
-#define eussetjmp(buf) (_setjmp(buf)?setjmp_val:(eusinteger_t)0)
-#define euslongjmp(buf,val) (setjmp_val=(eusinteger_t)(val),_longjmp(buf,1))
+extern euspointer_t setjmp_val;
+#define eussetjmp(buf) (_setjmp(buf)?setjmp_val:(euspointer_t)0)
+#define euslongjmp(buf,val) (setjmp_val=(euspointer_t)(val),_longjmp(buf,1))
 #else
 #if (Solaris2 || vxworks)
 #define eussetjmp(buf) (eusinteger_t)setjmp(buf)
@@ -737,6 +739,7 @@ extern int export_all;
 #define isint(p) (!((eusinteger_t)(p) & 3))
 #define isflt(p) (((eusinteger_t)(p) & 3)==1)
 #define isnum(p) (((eusinteger_t)(p) & 2)==0)
+#define numberp(p) (((isnum(p)) || (pisextnum(p)))) // predicates.c:NUMBERP
 #define ispointer(p) ((eusinteger_t)(p) & 2)
 #define makeint(v) ((pointer)(((eusinteger_t)v)<<2))
 #define bpointerof(p) ((bpointer)((eusinteger_t)(p)-2))
@@ -744,13 +747,14 @@ extern int export_all;
 
 #if vax || sun4 || news || mips || alpha || Linux
 
-#define makepointer(bp) ((pointer)((eusinteger_t)(bp)))
-// #define isint(p) (((eusinteger_t)(p) & 3)==2) // org
-#define	isint(p)	( (((eusinteger_t)(p)&3)==2) || (((eusinteger_t)(p)&0x3)==0x3) )
-#define isflt(p) (((eusinteger_t)(p) & 3)==1)
-#define isnum(p) (((eusinteger_t)(p) & 3))
-#define ispointer(p) (!((eusinteger_t)(p) & 3))
-// #define makeint(v) ((pointer)((((eusinteger_t)(v))<<2)+2)) // org
+#define makepointer(bp) ((pointer)(bp))
+// #define isint(p) (((euspointer_t)(p) & 3)==2) // org
+#define	isint(p)	( (((euspointer_t)(p)&3)==2) || (((euspointer_t)(p)&0x3)==0x3) )
+#define isflt(p) (((euspointer_t)(p) & 3)==1)
+#define isnum(p) (((euspointer_t)(p) & 3))
+#define numberp(p) (((isnum(p)) || (pisextnum(p)))) // predicates.c:NUMBERP
+#define ispointer(p) (!((euspointer_t)(p) & 3))
+// #define makeint(v) ((pointer)((((euspointer_t)(v))<<2)+2)) // org
 #ifdef __cplusplus
 extern "C" {
 #endif
@@ -759,11 +763,11 @@ extern pointer makeint(eusinteger_t v);
 }
 #endif
 
-#define bpointerof(p) ((bpointer)((eusinteger_t)(p)))
+#define bpointerof(p) ((bpointer)((euspointer_t)(p)))
 #ifdef RGC
-#define nextbuddy(p) ((bpointer)((eusinteger_t)(p)+(buddysize[(p->h.bix)&TAGMASK]*sizeof(pointer))))
+#define nextbuddy(p) ((bpointer)((euspointer_t)(p)+(buddysize[(p->h.bix)&TAGMASK]*sizeof(pointer))))
 #else
-#define nextbuddy(p) ((bpointer)((eusinteger_t)(p)+(buddysize[p->h.bix]*sizeof(pointer))))
+#define nextbuddy(p) ((bpointer)((euspointer_t)(p)+(buddysize[p->h.bix]*sizeof(pointer))))
 #endif
 #ifndef __USE_MARK_BITMAP
 #define marked(p)  (p->h.mark)
diff --git a/lisp/c/eusioctl.c b/lisp/c/eusioctl.c
index 0b6b46ef..1e54a013 100644
--- a/lisp/c/eusioctl.c
+++ b/lisp/c/eusioctl.c
@@ -7,6 +7,7 @@
 static char *rcsid="@(#)$Id$";
 #include <ctype.h>
 #include <sys/termios.h>
+#include <sys/ioctl.h>
 #ifndef Darwin
 #include <termio.h>
 #endif
diff --git a/lisp/c/eval.c b/lisp/c/eval.c
index 1602e594..40062512 100644
--- a/lisp/c/eval.c
+++ b/lisp/c/eval.c
@@ -980,14 +980,261 @@ pointer args[];
     } else error(E_USER,(pointer)"result type?"); 
   }
 }
-#else /* not x86_64 */
+
+#elif defined(ARM) && defined(__ARM_ARCH_7A__) /* not (defined(x86_64) || defined(aarch64))  */
+
+extern int exec_function_i(void (*)(), int *, int *, int, int *);
+extern int exec_function_f(void (*)(), int *, int *, int, int *);
+
+#define exec_function_asm(FUNC)						\
+	 /* vargv -> stack */						\
+	 "movs	r3, #0\n\t"						\
+	 "str	r3, [r7, #60]\n\t"					\
+	 "b	."FUNC"_LPCK\n\t"					\
+	 "."FUNC"_LP:\n\t"						\
+	 "ldr	r3, [r7, #60]\n\t"	/* i 			*/	\
+	 /* https://community.arm.com/developer/ip-products/processors/b/processors-ip-blog/posts/function-parameters-on-32-bit-arm */ \
+	 "lsl	r4, r3, #2\n\t"		/* r4 = i * 2		*/	\
+	 "ldr	r1, [r7, #80]\n\t"	/* vargv[0]		*/	\
+	 "add	r1, r1, r4\n\t"		/* vargv[i]		*/	\
+	 "add	r2, sp, r4\n\t"		/* stack[i]		*/	\
+	 "ldr	r0, [r1]\n\t"						\
+	 "str	r0, [r2]\n\t"		/* push stack		*/	\
+	 "adds	r3, r3, #1\n\t"		/* i++			*/	\
+	 "str	r3, [r7, #60]\n\t"					\
+	 "."FUNC"_LPCK:\n\t"						\
+	 "ldr	r2, [r7, #60]\n\t"					\
+	 "ldr	r3, [r7]\n\t"						\
+	 "cmp	r2, r3\n\t"						\
+	 "blt	."FUNC"_LP\n\t"						\
+	 /* fargv -> register */					\
+	 "ldr	r0, [r7,#4]\n\t"					\
+	 "vldr.32	s0, [r0]\n\t"					\
+	 "vldr.32	s1, [r0,#4]\n\t"				\
+	 "vldr.32	s2, [r0,#8]\n\t"				\
+	 "vldr.32	s3, [r0,#12]\n\t"				\
+	 "vldr.32	s4, [r0,#16]\n\t"				\
+	 "vldr.32	s5, [r0,#20]\n\t"				\
+	 "vldr.32	s6, [r0,#24]\n\t"				\
+	 "vldr.32	s7, [r0,#28]\n\t"				\
+	 "vldr.32	s8, [r0,#32]\n\t"				\
+	 "vldr.32	s9, [r0,#36]\n\t"				\
+	 "vldr.32	s10, [r0,#40]\n\t"				\
+	 "vldr.32	s11, [r0,#44]\n\t"				\
+	 "vldr.32	s12, [r0,#48]\n\t"				\
+	 "vldr.32	s13, [r0,#52]\n\t"				\
+	 "vldr.32	s14, [r0,#56]\n\t"				\
+	 "vldr.32	s15, [r0,#60]\n\t"				\
+	 /* iargv -> register */					\
+	 "ldr	r0, [r7,#8]\n\t"					\
+	 "ldr	r0, [r0]\n\t"						\
+	 "ldr	r1, [r7,#8]\n\t"					\
+	 "ldr	r1, [r1,#4]\n\t"					\
+	 "ldr	r2, [r7,#8]\n\t"					\
+	 "ldr	r2, [r2,#8]\n\t"					\
+	 "ldr	r3, [r7,#8]\n\t"					\
+	 "ldr	r3, [r3,#12]\n\t"					\
+	 /* funcall */							\
+	 "ldr	r6, [r7, #12]\n\t"					\
+	 "blx	r6\n\t"
+
+__asm__ (".align 4\n"
+	 ".global exec_function_i\n\t"
+	 ".type	exec_function_i, %function\n"
+	 "exec_function_i:\n\t"
+	 "push	{r7, lr}\n\t"
+	 "sub	sp, sp, #136\n\t"
+	 "add	r7, sp, #64\n\t"
+	 "str	r0, [r7, #12]\n\t"	// fc
+	 "str	r1, [r7, #8]\n\t"	// iargv
+	 "str	r2, [r7, #4]\n\t"	// fargv
+	 "str	r3, [r7]\n\t"		// vcntr
+	 exec_function_asm("FUNCI")
+	 // retval
+	 "adds	r7, r7, #72\n\t"
+	 "mov	sp, r7\n\t"
+	 "@ sp needed	@\n\t"
+	  "pop	{r7, pc}\n\t"
+	 ".size	exec_function_i, .-exec_function_i\n\t"
+	 );
+
+__asm__ (".align 4\n"
+	 ".global exec_function_f\n\t"
+	 ".type	exec_function_f, %function\n"
+	 "exec_function_f:\n\t"
+	 "push	{r7, lr}\n\t"
+	 "sub	sp, sp, #136\n\t"
+	 "add	r7, sp, #64\n\t"
+	 "str	r0, [r7, #12]\n\t"	// fc
+	 "str	r1, [r7, #8]\n\t"	// iargv
+	 "str	r2, [r7, #4]\n\t"	// fargv
+	 "str	r3, [r7]\n\t"		// vcntr
+	 exec_function_asm("FUNCF")
+	 // retval
+	 "vmov	r0, s0	@ <retval>\n\t"
+	 "vmov	r1, s1	@ <retval>\n\t"
+	 "adds	r7, r7, #72\n\t"
+	 "mov	sp, r7\n\t"
+	 "@ sp needed	@\n\t"
+	  "pop	{r7, pc}\n\t"
+	 ".size	exec_function_f, .-exec_function_f\n\t"
+	 );
+
+#define NUM_INT_ARGUMENTS 4
+#define NUM_FLT_ARGUMENTS 16
+#define NUM_EXTRA_ARGUMENTS 16
+
 pointer call_foreign(ifunc,code,n,args)
 eusinteger_t (*ifunc)(); /* ???? */
 pointer code;
 int n;
 pointer args[];
-{ double (*ffunc)();
+{
   pointer paramtypes=code->c.fcode.paramtypes;
+  pointer resulttype=code->c.fcode.resulttype;
+  pointer p,lisparg;
+  eusinteger_t iargv[NUM_INT_ARGUMENTS];
+  eusinteger_t fargv[NUM_FLT_ARGUMENTS];
+  eusinteger_t vargv[NUM_EXTRA_ARGUMENTS];
+  int icntr = 0, fcntr_d = 0, fcntr_f = 0, vcntr_8 = 0, vcntr_16 = 0;
+
+  numunion nu;
+  eusinteger_t j=0; /*lisp argument counter*//* ???? */
+  eusinteger_t c=0;
+  union {
+    double d;
+    float f;
+    long l;
+    struct {
+      int i1,i2;} i;
+    } numbox;
+  double f;
+
+  if (code->c.fcode.entry2 != NIL) {
+    ifunc = (eusinteger_t (*)())((((eusinteger_t)ifunc)&0xffffffff00000000)
+      | (intval(code->c.fcode.entry2)&0x00000000ffffffff));
+    /* R.Hanai 090726 */
+  }
+  while (iscons(paramtypes)) {
+    p=ccar(paramtypes); paramtypes=ccdr(paramtypes);
+    lisparg=args[j++];
+    if (p==K_INTEGER) {
+      c = isint(lisparg)?intval(lisparg):bigintval(lisparg);
+      if(icntr < NUM_INT_ARGUMENTS) {
+	iargv[icntr++] = c;
+      } else {
+	vargv[vcntr_8++] = c;
+	if ( vcntr_8 % 2 == 1 ) vcntr_16 += 2;
+	if ( vcntr_8 % 2 == 0 ) vcntr_8 = vcntr_16;
+      }
+    }  else if (p==K_STRING) {
+      if (elmtypeof(lisparg)==ELM_FOREIGN) c=lisparg->c.ivec.iv[0];
+      else  c=(eusinteger_t)(lisparg->c.str.chars);
+      if(icntr < NUM_INT_ARGUMENTS) {
+	iargv[icntr++] = c;
+      } else {
+	vargv[vcntr_8++] = c;
+	if ( vcntr_8 % 2 == 1 ) vcntr_16 += 2;
+	if ( vcntr_8 % 2 == 0 ) vcntr_8 = vcntr_16;
+      }
+    } else if (p==K_FLOAT32 || p==K_FLOAT) {
+      numbox.f=(float)ckfltval(lisparg);
+      c=((eusinteger_t)numbox.i.i1) & 0x00000000FFFFFFFF;
+      // | s0 | s1 | s2 | s3 | s4 | s5 |
+      // |   d0    |   d1    |   d2    |
+      if(fcntr_f < NUM_FLT_ARGUMENTS) {
+	fargv[fcntr_f++] = c;
+	if ( fcntr_f % 2 == 1 ) fcntr_d += 2; // if *fcntr_f = s1, use d1
+	if ( fcntr_f % 2 == 0 ) fcntr_f = fcntr_d;
+      } else {
+	vargv[vcntr_8++] = c;
+	if ( vcntr_8 % 2 == 1 ) vcntr_16 += 2;
+	if ( vcntr_8 % 2 == 0 ) vcntr_8 = vcntr_16;
+      }
+    } else if (p==K_DOUBLE) {
+      numbox.d=(double)ckfltval(lisparg);
+      if(fcntr_d < NUM_FLT_ARGUMENTS-1) {
+	fargv[fcntr_d++] = numbox.i.i1; fargv[fcntr_d++] = numbox.i.i2;
+	if ( fcntr_f % 2 == 0 ) fcntr_f = fcntr_d; // if *fcntr_f = s2, use d1
+	if(fcntr_d >= NUM_FLT_ARGUMENTS) fcntr_f = fcntr_d;
+      } else {
+	vargv[vcntr_16++] = numbox.i.i1; vargv[vcntr_16++] = numbox.i.i2;
+	if ( vcntr_8 % 2 == 0 ) vcntr_8 = vcntr_16;
+      }
+    } else error(E_USER,(pointer)"unknown type specifier");
+    if (max(vcntr_8, vcntr_16) >= NUM_EXTRA_ARGUMENTS) {
+      error(E_USER,(pointer)"too many number of arguments");
+    }
+  }
+  int vcntr = max(vcntr_8, vcntr_16);
+  /* &rest arguments?  */
+  while (j<n) {	/* j is the counter for the actual arguments*/
+    lisparg=args[j++];
+    if (isint(lisparg)) {
+      c=intval(lisparg);
+      if(icntr < NUM_INT_ARGUMENTS) iargv[icntr++] = c; else vargv[vcntr++] = c;
+    } else if (isflt(lisparg)) {
+      numbox.d=ckfltval(lisparg);	/* i advances independently */
+      c=numbox.l;
+      if(fcntr_f < NUM_FLT_ARGUMENTS) fargv[fcntr_f++] = c; else vargv[vcntr++] = c;
+    } else if (isvector(lisparg)) {
+      if (elmtypeof(lisparg)==ELM_FOREIGN) c=lisparg->c.ivec.iv[0];
+      else c=(eusinteger_t)(lisparg->c.str.chars);
+      if(icntr < NUM_INT_ARGUMENTS) iargv[icntr++] = c; else vargv[vcntr++] = c;
+    } else if (isbignum(lisparg)){
+      if (bigsize(lisparg)==1){
+	eusinteger_t *xv = bigvec(lisparg);
+	c=(eusinteger_t)xv[0];
+        if(icntr < NUM_INT_ARGUMENTS) iargv[icntr++] = c; else vargv[vcntr++] = c;
+      }else{
+	fprintf(stderr, "bignum size!=1\n");
+      }
+    } else {
+      c=(eusinteger_t)(lisparg->c.obj.iv);
+      if(icntr < NUM_INT_ARGUMENTS) iargv[icntr++] = c; else vargv[vcntr++] = c;
+    }
+    if (vcntr >= NUM_EXTRA_ARGUMENTS) {
+      error(E_USER,(pointer)"too many number of arguments");
+    }
+  }
+  /**/
+  if (resulttype==K_FLOAT || resulttype==K_FLOAT32) {
+    numbox.l = exec_function_f((void (*)())ifunc, iargv, fargv, vcntr, vargv);
+    f = (double)numbox.f;
+    return(makeflt(f));
+  } else {
+    c = exec_function_i((void (*)())ifunc, iargv, fargv, vcntr, vargv);
+    if (resulttype==K_INTEGER) {
+      return(mkbigint(c));
+    } else if (resulttype==K_STRING) {
+      p=makepointer(c-2*sizeof(pointer));
+      if (isvector(p)) return(p);
+      else error(E_USER,(pointer)"illegal foreign string");
+    } else if (iscons(resulttype)) {
+      /* (:string [10]) (:foreign-string [20]) */
+      if (ccar(resulttype)==K_STRING) { /* R.Hanai 09/07/25 */
+        resulttype=ccdr(resulttype);
+        if (resulttype!=NIL) j=ckintval(ccar(resulttype));
+	else j=strlen((char *)c);
+	return(makestring((char *)c, j));
+      } else if (ccar(resulttype)==K_FOREIGN_STRING) { /* R.Hanai 09/07/25 */
+        resulttype=ccdr(resulttype);
+        if (resulttype!=NIL) j=ckintval(ccar(resulttype));
+	else j=strlen((char *)c);
+	return(make_foreign_string(c, j)); }
+      error(E_USER,(pointer)"unknown result type");
+    } else error(E_USER,(pointer)"result type?");
+  }
+}
+
+#else /* not  ARM nor (defined(x86_64) || defined(aarch64))  */
+
+pointer call_foreign(ifunc,code,n,args)
+eusinteger_t (*ifunc)(); /* ???? */
+pointer code;
+int n;
+pointer args[];
+{ pointer paramtypes=code->c.fcode.paramtypes;
   pointer resulttype=code->c.fcode.resulttype;
   pointer p,lisparg;
   eusinteger_t cargv[100];
@@ -1009,7 +1256,6 @@ pointer args[];
     ifunc = (eusinteger_t (*)())((((int)ifunc)&0xffff0000) | (intval(code->c.fcode.entry2)&0x0000ffff));    /* kanehiro's patch 2000.12.13 */
 #endif
   }
-  ffunc=(double (*)())ifunc;
   while (iscons(paramtypes)) {
     p=ccar(paramtypes); paramtypes=ccdr(paramtypes);
     lisparg=args[j++];
@@ -1018,10 +1264,10 @@ pointer args[];
     else if (p==K_STRING) {
       if (elmtypeof(lisparg)==ELM_FOREIGN) cargv[i++]=lisparg->c.ivec.iv[0];
       else  cargv[i++]=(eusinteger_t)(lisparg->c.str.chars);}
-    else if (p==K_FLOAT32) {
+    else if (p==K_FLOAT32 || (WORD_SIZE==32 && p==K_FLOAT)) {
       numbox.f=ckfltval(lisparg);
       cargv[i++]=(int)numbox.i.i1;}
-    else if (p==K_DOUBLE || p==K_FLOAT) {
+    else if (p==K_DOUBLE || (WORD_SIZE==64 && p==K_FLOAT)) {
       numbox.d=ckfltval(lisparg);
       cargv[i++]=numbox.i.i1; cargv[i++]=numbox.i.i2;}
     else error(E_USER,(pointer)"unknown type specifier");}
@@ -1049,12 +1295,26 @@ pointer args[];
 #endif    /* end of kanehiro's patch 2000.12.13 */
     else cargv[i++]=(eusinteger_t)(lisparg->c.obj.iv);}
   /**/
-  if (resulttype==K_FLOAT) {
+  if (resulttype==K_FLOAT || resulttype==K_FLOAT32) {
+    union {
+      eusfloat_t f;
+#if __ARM_ARCH==4
+      eusinteger_t i;    // ARM 32bit armel
+#else
+      eusfloat_t i;  // Intel 32bit x86
+#endif
+    } n;
+#if __ARM_ARCH==4
+#else
+    eusinteger_t (*tmp_ifunc)() = ifunc;
+    double (*ifunc)();
+    ifunc=(double (*)())tmp_ifunc;
+#endif
     if (i<=8) 
-      f=(*ffunc)(cargv[0],cargv[1],cargv[2],cargv[3],
+      n.i=(*ifunc)(cargv[0],cargv[1],cargv[2],cargv[3],
 	         cargv[4],cargv[5],cargv[6],cargv[7]);
     else if (i<=32)
-      f=(*ffunc)(cargv[0],cargv[1],cargv[2],cargv[3],
+      n.i=(*ifunc)(cargv[0],cargv[1],cargv[2],cargv[3],
 	         cargv[4],cargv[5],cargv[6],cargv[7],
 		 cargv[8],cargv[9],cargv[10],cargv[11],
 	         cargv[12],cargv[13],cargv[14],cargv[15],
@@ -1064,7 +1324,7 @@ pointer args[];
 	         cargv[28],cargv[29],cargv[30],cargv[31]);
 #if (sun3 || sun4 || mips || alpha)
     else if (i>32) 
-      f=(*ffunc)(cargv[0],cargv[1],cargv[2],cargv[3],
+      n.i=(*ifunc)(cargv[0],cargv[1],cargv[2],cargv[3],
 	         cargv[4],cargv[5],cargv[6],cargv[7],
 		 cargv[8],cargv[9],cargv[10],cargv[11],
 	         cargv[12],cargv[13],cargv[14],cargv[15],
@@ -1085,7 +1345,8 @@ pointer args[];
 	         cargv[72],cargv[73],cargv[74],cargv[75],
 	         cargv[76],cargv[77],cargv[78],cargv[79]);
 #endif
-    return(makeflt(f));}
+    fprintf(stderr, "%d %f\n", n.i, n.f);
+    return(makeflt(n.f));}
   else {
     if (i<8) 
       i=(*ifunc)(cargv[0],cargv[1],cargv[2],cargv[3],
diff --git a/lisp/c/loadelf.c b/lisp/c/loadelf.c
index 357c4e31..043e3682 100644
--- a/lisp/c/loadelf.c
+++ b/lisp/c/loadelf.c
@@ -113,7 +113,7 @@ register context *ctx;
       addr= addr>>2;
       mod->c.ldmod.entry=makeint(addr);
 #if ARM
-      mod->c.ldmod.entry2=makeint((eusinteger_t)initfunc);
+      mod->c.ldmod.entry2=makeint(((eusinteger_t)initfunc)&0x3);
 #endif
       mod->c.ldmod.subrtype=SUBR_ENTRY;
       (*initfunc)(ctx,1, &mod); }
@@ -160,7 +160,7 @@ pointer initnames;
   void *dlhandle;
   char namebuf[256];
 
-  dlhandle=dlopen(0,RTLD_LAZY);
+  dlhandle=dlopen(0,RTLD_LAZY|RTLD_GLOBAL);
   if (dlhandle==NULL) { 
     fprintf(stderr, "cannot dlopen self\n"); exit(2);}
   module_count=0;
@@ -180,7 +180,7 @@ pointer initnames;
       mod->c.ldmod.codevec=makeint(0);
       mod->c.ldmod.entry=makeint(addr);
 #if ARM
-      mod->c.ldmod.entry2=makeint((eusinteger_t)initfunc);
+      mod->c.ldmod.entry2=makeint(((eusinteger_t)initfunc)&0x3);
 #endif
       mod->c.ldmod.subrtype=SUBR_FUNCTION;
       p=cons(ctx,mod, NIL);
@@ -231,7 +231,7 @@ pointer *argv;
       mod->c.ldmod.codevec=makeint(0);
       mod->c.ldmod.entry=makeint(addr);
 #if ARM
-      mod->c.ldmod.entry2=makeint((eusinteger_t)initfunc);
+      mod->c.ldmod.entry2=makeint(((eusinteger_t)initfunc)&0x3);
 #endif
       mod->c.ldmod.subrtype=SUBR_FUNCTION;
       p=cons(ctx,mod, NIL);
@@ -386,7 +386,7 @@ pointer *argv;
     else entry=(char *)get_string(argv[1]);}
   else entry=NULL;
 
-  dlhandle=(eusinteger_t)dlopen(binfn, RTLD_LAZY);/* ???? */
+  dlhandle=(eusinteger_t)dlopen(binfn, RTLD_LAZY|RTLD_GLOBAL);/* ???? */
   if (dlhandle == 0) {
     fprintf(stderr,"BINLOAD cannot dlopen: %s\n", dlerror());
     return(NIL);}
@@ -409,7 +409,7 @@ pointer *argv;
     mod->c.ldmod.codevec=makeint(0);
     mod->c.ldmod.entry=makeint(addr);
 #if ARM
-    mod->c.ldmod.entry2=makeint((eusinteger_t)initfunc);
+    mod->c.ldmod.entry2=makeint(((eusinteger_t)initfunc)&0x3);
 #endif
     mod->c.ldmod.subrtype=SUBR_FUNCTION;
     (*initfunc)(ctx, 1, &mod); }
diff --git a/lisp/c/makes.c b/lisp/c/makes.c
index eaf18f39..c511be5c 100644
--- a/lisp/c/makes.c
+++ b/lisp/c/makes.c
@@ -292,7 +292,7 @@ pointer (*f)();
   fentaddr= (eusinteger_t)f>>2;
   cd->c.code.entry=makeint(fentaddr);
 #if ARM
-  cd->c.code.entry2=makeint((eusinteger_t)f);
+  cd->c.code.entry2=makeint(((eusinteger_t)f)&0x3);
 #endif
   return(cd);}
 
@@ -513,7 +513,7 @@ pointer (*f)();
   clo->c.clo.subrtype=SUBR_FUNCTION;
   clo->c.clo.entry=makeint((eusinteger_t)f>>2);
 #if ARM
-  clo->c.clo.entry2=makeint((eusinteger_t)f);
+  clo->c.clo.entry2=makeint(((eusinteger_t)f)&0x3);
 #endif
   clo->c.clo.env0=e0;
   clo->c.clo.env1=e1; /*makeint((int)e1>>2);*/
@@ -785,7 +785,7 @@ pointer nm,def;
 struct fletframe *scp,*link;
 { register struct fletframe *ffp=(struct fletframe *)(ctx->vsp);
   register pointer p;
-  int i;
+  size_t i;
   for (i=0; i<sizeof(struct fletframe)/sizeof(pointer); i++)
     vpush(makeint(0));
   ffp->name=nm;
diff --git a/lisp/c/memory.c b/lisp/c/memory.c
index a00641ba..ae977a11 100644
--- a/lisp/c/memory.c
+++ b/lisp/c/memory.c
@@ -78,11 +78,15 @@ register int k;
   if (k<DEFAULTCHUNKINDEX) k=DEFAULTCHUNKINDEX;
   if (QDEBUG && debug) fprintf(stderr,";; newchunk: k=%d\n",k);
   s=buddysize[k];
-  cp=(struct chunk *)((long)malloc((s+2)*sizeof(pointer)+(sizeof(pointer)-1)) & ~(sizeof(pointer)-1));
+  cp=(struct chunk *)((euspointer_t)malloc((s+2)*sizeof(pointer)+(sizeof(pointer)-1)) & ~(sizeof(pointer)-1));
 #if defined(RGC)
   set_heap_range((unsigned int)cp,
       (unsigned int)cp + (s+2)*sizeof(pointer)+(sizeof(pointer)-1));
 #endif
+  if (cp==NULL) {
+    fprintf(stderr, ";; can not allocate newchunk(%d)\n", k);
+    return(ERR);       /*can't allocate new memory*/
+  }
 #if Linux || Cygwin || Darwin
   if (minmemory > (char *)cp) minmemory = (char *)cp;
   if (maxmemory < (char *)sbrk(0)) maxmemory = (char *)sbrk(0);
@@ -91,7 +95,6 @@ register int k;
   maxmemory=(char *)sbrk(0);
 #endif
   if (QDEBUG && debug) fprintf(stderr,";; maxmemory=%p\n",maxmemory);
-  if (cp==NULL) return(ERR);	/*can't allocate new memory*/
 #if alpha
   if( chunklist == NULL ) {
     top_addr = (eusinteger_t)cp;
@@ -168,7 +171,7 @@ register struct buddyfree *buddy;
   bnext=b1->b.nextbcell;
   buddy[k].bp= bnext;	/*remove first element*/
   buddy[k].count--;
-  b2= (bpointer)((long)b1+buddysize[k-1]*sizeof(pointer));
+  b2= (bpointer)((euspointer_t)b1+buddysize[k-1]*sizeof(pointer));
   if (k==2) {	/*b1 and b2 are of the same size*/
     b1->b.nextbcell=b2;
     b2->b.nextbcell=buddy[k-1].bp;
@@ -511,8 +514,8 @@ register pointer *oldsp;
 
 int mark_state;
 context *mark_ctx;
-long mark_stack_root;
-long mark_buddy_q;
+euspointer_t mark_stack_root;
+euspointer_t mark_buddy_q;
 
 void markall()
 { register pointer *p,*spsave;
@@ -544,15 +547,15 @@ void markall()
 #endif
       mark(ctx->threadobj);
       mark_state=4;
-      mark_stack_root=(long)ctx->stack;
+      mark_stack_root=(euspointer_t)ctx->stack;
 
       /* mark from thread's stack */
       for (p=ctx->stack; p<ctx->vsp; p++) {
-	mark_state=(long)p;
+	mark_state=(euspointer_t)p;
 #if (WORD_SIZE == 64)
-	if ((((eusinteger_t)(*p) & 7L)==0L) && 
+	if ((((euspointer_t)(*p) & 7L)==0L) &&
 #else
-	if ((((eusinteger_t)(*p) & 3)==0) && 
+	if ((((euspointer_t)(*p) & 3)==0) &&
 #endif
 	    ((ctx->stack>(pointer *)*p) || ((pointer *)*p>ctx->stacklimit)))
 		{ mark(*p); } ;}
@@ -561,7 +564,7 @@ void markall()
       /* mark free list already acquired in local buddy list */
       for (j=1; j<MAXTHRBUDDY; j++) {
 	q=ctx->thr_buddy[j].bp;
-        mark_buddy_q=(long)q;
+        mark_buddy_q=(euspointer_t)q;
 	while (q) { markon(q);
 #ifdef MARK_DEBUG
 		    printf( "markall:%d: markon 0x%ld\n", count, q );
diff --git a/lisp/c/mthread_posix.c b/lisp/c/mthread_posix.c
index f5616b69..dba10310 100644
--- a/lisp/c/mthread_posix.c
+++ b/lisp/c/mthread_posix.c
@@ -382,7 +382,7 @@ int rwlock_destroy( rwlock_t *rwlp )
 int rw_rdlock( rwlock_t *rwlp )
 {
     pthread_mutex_lock( &(rwlp->lock) );
-    while( rwlp->readers == -1 )
+    while( rwlp->readers == (unsigned int)-1 )
       pthread_cond_wait( &(rwlp->r_cond), &(rwlp->lock) );
     rwlp->readers++;
     pthread_mutex_unlock( &(rwlp->lock) );
@@ -404,7 +404,7 @@ int rw_wrlock( rwlock_t *rwlp )
 int rw_unlock( rwlock_t *rwlp )
 {
     pthread_mutex_lock( &(rwlp->lock) );
-    if( rwlp->readers == -1 )
+    if( rwlp->readers == (unsigned int)-1 )
       rwlp->readers = 0;
     else
       rwlp->readers--;
diff --git a/lisp/c/unixcall.c b/lisp/c/unixcall.c
index 6ee5e363..5bc0bba8 100644
--- a/lisp/c/unixcall.c
+++ b/lisp/c/unixcall.c
@@ -369,6 +369,7 @@ pointer argv[];
   struct sigaction sv;
   register pointer a=argv[1],oldval;
   extern void eusint();	
+  unsigned long int j;
 
   ckarg2(1,3);
   s=min(ckintval(argv[0]),NSIG-1);
@@ -380,7 +381,7 @@ pointer argv[];
 #if Linux || Cygwin
 
 #if LIB6 && !Darwin
-  for (i=0; i< _SIGSET_NWORDS; i++)   sv.sa_mask.__val[i]=0; 
+  for (j=0; j< _SIGSET_NWORDS; j++)   sv.sa_mask.__val[j]=0;
 #else
   /* old type sigmask */
   sv.sa_mask=0;
diff --git a/lisp/comp/comp.l b/lisp/comp/comp.l
index abf7b7b8..dfb72595 100644
--- a/lisp/comp/comp.l
+++ b/lisp/comp/comp.l
@@ -212,12 +212,14 @@
 	    initcodes		;initialize codes in "eusmain"
 	    flets
 	    unwind-frames	;frames need to unwound when jumps
+	    symstr
 	    )))
+(defvar *compiler-symid* 0)
 
 (eval-when (load eval)
 (defmethod compiler
  (:genlabel (head &optional (suffix ""))
-   (concatenate string (string (gensym head)) suffix))
+   (format nil "~A~A~A~A" symstr head (incf *compiler-symid*) suffix))
  (:gencname-tail 
   (&rest lnames)
   ;; NOTE: Deprecated. Use lisp::gencname-tail instead. (2017/10/19 furushchev)
@@ -1226,6 +1228,7 @@
 		 (verbose *verbose*)
 		 (entry (lisp::gencname-tail (pathname-name file)))
 		 (o))
+   (setq symstr (subseq entry 0 8))
    (if (and (integerp c-optimize)
 	    (> c-optimize 0)
 	    ;; (not (member :gcc *features*))
@@ -1384,6 +1387,8 @@
 				       "; sh4-linux-gcc -shared -o ")
 				      ((memq :ia32 *features*)
 				       "; ld -melf_i386 -shared -build-id -o ")
+				      ((memq :i386 *features*)
+				       "; gcc -shared -Xlinker -build-id -o ")
 				      (t
 				       "; ld -shared -build-id -o "))
 				(namestring file.so)
@@ -1429,7 +1434,8 @@
   (setq trans (instantiate  translator)
 	idtable (instance identifier-table :init)
         scope 0
-	closure-level 0)
+	closure-level 0
+	symstr "")
   self)
    ) ; defmethod
 )    ; eval-when
diff --git a/lisp/comp/trans.l b/lisp/comp/trans.l
index 3088d632..d763c1fb 100644
--- a/lisp/comp/trans.l
+++ b/lisp/comp/trans.l
@@ -438,7 +438,7 @@
     (send self :push
 	  (format nil "(~A(w)?T:NIL)"
 	       (cdr (assoc pred '((symbolp . "issymbol") (consp . "iscons")
-				  (numberp . "isnum") (integerp . "isint")
+				  (numberp . "numberp") (integerp . "isint")
 				  (floatp . "isflt") (stringp . "isstring")
 				 ))))))
  (:if-nil (lab)
@@ -511,7 +511,7 @@
 ;;; type check
  (:type-checker (tn)
     (cdr (assq tn '((symbolp . "issymbol") (integerp . "isint")
-		    (numberp . "isnum")
+		    (numberp . "numberp")
 		    (floatp . "isflt") (atom . "!iscons")
 		    (consp . "iscons") (stringp . "isstring")))))
  (:if-type (type lab)
diff --git a/lisp/geo/intersection.c b/lisp/geo/intersection.c
index 1324d34d..999a7002 100644
--- a/lisp/geo/intersection.c
+++ b/lisp/geo/intersection.c
@@ -91,6 +91,7 @@ register pointer argv[];
   eusfloat_t cz,u,v;
   eusfloat_t *p1, v1[3], *p2, v2[3], p2p1[3];
   eusfloat_t cross[3], cross2;
+  pointer up,vp;
   numunion nu;
 
   ckarg2(4,5);
@@ -115,7 +116,8 @@ register pointer argv[];
 
   u=determinant3(p2p1,v2,cross)/cross2;
   v=determinant3(p2p1,v1,cross)/cross2;
-  return(cons(ctx,makeflt(u),cons(ctx,makeflt(v),NIL))); }
+  up=makeflt(u); vp=makeflt(v);
+  return(cons(ctx,up,cons(ctx,vp,NIL))); }
 
 
 /*
diff --git a/lisp/geo/primt.l b/lisp/geo/primt.l
index e69dceeb..f2487150 100644
--- a/lisp/geo/primt.l
+++ b/lisp/geo/primt.l
@@ -695,8 +695,9 @@ hedron is an icosahedron or a gdome of lower level"
 		     	     (cdr (gethash (cadr e) newverts))
 			     (cdr (gethash (caddr e) newverts))))
 	 (push (subdivide-facet (fac . normal) vlist1 vlist2) faces))
-      (setq gdome (instance *body-class* :init :faces (flatten faces)))
-      (send gdome :csg (list (list :gdome hedron)))
+      (setq gdome (instance *body-class* :init
+			    :primitive (list :gdome hedron)
+			    :faces (flatten faces)))
       gdome ) )
 
 ;;
@@ -725,8 +726,9 @@ hedron is an icosahedron or a gdome of lower level"
               ;; (push (assoc fv vlist) fvlist)
 		(push (assoc fv vlist :test #'equal) fvlist)		)
            (push (make-face-from-vertices (nreverse fvlist)) faces)) )
-     (setq bod (instance *body-class* :init :faces (nreverse faces)))
-     (send bod :csg (list (cons :body-from-vertices face-vertices)))
+     (setq bod (instance *body-class* :init
+			 :primitive (cons :body-from-vertices face-vertices)
+			 :faces (nreverse faces)))
      bod) )
 
 
diff --git a/lisp/image/jpeg/jpegmemcd.c b/lisp/image/jpeg/jpegmemcd.c
index b12804a0..786eadca 100644
--- a/lisp/image/jpeg/jpegmemcd.c
+++ b/lisp/image/jpeg/jpegmemcd.c
@@ -11,6 +11,8 @@
 #include <stdio.h>
 #include "jpeglib.h"
 #include <setjmp.h>
+GLOBAL(void) jpeg_memio_dest (j_compress_ptr cinfo, JOCTET *jpegimgbuf, long *size);
+GLOBAL(void) jpeg_memio_src (j_decompress_ptr cinfo, JOCTET *buf, long size);
 
 
 int JPEG_compress(JSAMPLE *image_buffer, long width, long height,
diff --git a/lisp/image/jpeg/makefile b/lisp/image/jpeg/makefile
index a7396ce3..cd55d2fc 100644
--- a/lisp/image/jpeg/makefile
+++ b/lisp/image/jpeg/makefile
@@ -28,6 +28,8 @@ endif
 else
 CC += -fPIC
 endif
+else
+CC += -fPIC
 endif
 ifeq ($(ARCHDIR), Darwin)
 CC += -I/opt/local/lib/jpeg6b/include -I/opt/local/include
@@ -42,7 +44,7 @@ LIBDIR=$(EUSDIR)/$(ARCH)/lib
 OBJDIR=$(EUSDIR)/$(ARCH)/obj
 OBJFILES= $(OBJDIR)/jpegmemcd.o $(OBJDIR)/jmemsrc.o $(OBJDIR)/jmemdst.o
 $(LIBDIR)/jpegmemcd.$(LSFX):	$(OBJFILES)
-	$(LD) $(LDFLAGS) -o $(LIBDIR)/jpegmemcd.$(LSFX) $(OBJDIR)/jpegmemcd.o $(OBJDIR)/jmemsrc.o $(OBJDIR)/jmemdst.o -ljpeg
+	$(LD) -fPIC $(LDFLAGS) -o $(LIBDIR)/jpegmemcd.$(LSFX) $(OBJDIR)/jpegmemcd.o $(OBJDIR)/jmemsrc.o $(OBJDIR)/jmemdst.o -ljpeg
 
 $(OBJDIR)/jpegmemcd.o:	jpegmemcd.c
 	$(CC) $(CFLAGS) -c -o $@ $^
diff --git a/lisp/l/eushelp.l b/lisp/l/eushelp.l
index 614342c5..349bbb22 100644
--- a/lisp/l/eushelp.l
+++ b/lisp/l/eushelp.l
@@ -170,7 +170,8 @@
           (if (eq type *type-METHOD*)
               (sethash name (help-item-mhash (gethash class *help-hash*)) (instance help-item :init type fname seek args class))
 	      (sethash name *help-hash* (instance help-item :init type fname seek args)))
-	  )))
+	  )
+    (close fp)))
 
 (in-package "USER")
 (use-package "HELP")
diff --git a/lisp/opengl/src/glview.l b/lisp/opengl/src/glview.l
index 75b59dff..5a7e99a6 100644
--- a/lisp/opengl/src/glview.l
+++ b/lisp/opengl/src/glview.l
@@ -168,6 +168,7 @@
               (glXChooseVisual x::*display* (x::DefaultScreen x::*display*)
                                 *attributelist*))
            (setq glcon (glXCreateContext x::*display* visualinfo shared-glcon GL_TRUE))
+           (unless x::drawable
 #-(or :word-size=64)
 	   (send-super* :create
                         :depth (sys:peek (+ visualinfo 12) :long)
@@ -178,6 +179,7 @@
                         :depth (sys:peek (+ visualinfo 20) :integer)
                         :visual (sys:peek visualinfo :long)
                         :title title args)
+           )
 
            (glXMakeCurrent x::*display* x::drawable glcon)
 
@@ -256,7 +258,12 @@
       (glMaterialfv GL_FRONT_AND_BACK GL_EMISSION emission)
       (glMaterialfv GL_FRONT_AND_BACK GL_SHININESS (float-vector shininess))
       )
-  (:color (color-vector)
+  (:color (&optional color-vector)
+          "Returns color, if color-vector is given it set color"
+        (unless color-vector
+          (let ((v (float-vector 0 0 0 0)))
+            (glgetfloatv GL_CURRENT_COLOR v)
+            (return-from :color (subseq v 0 3))))
 	(if (derivedp color-vector linecolor)
 	    (setf color-vector (linecolor-color color-vector)))
 	  (case (length color-vector)
@@ -266,6 +273,22 @@
 		 (glcolor4fv color-vector))
 		(t
 		 (error ":color"))))
+  (:line-width
+   (&optional x)
+   "Returns line width, if x is given, it set line width"
+   (if x (glLineWidth (float x))
+     (let ((tmp (float-vector 0)))
+       (glGetFloatv GL_LINE_WIDTH tmp)
+       (elt tmp 0))
+     ))
+  (:point-size
+   (&optional x)
+   "Returns point size, if x is given, it set point size"
+   (if x (glPointSize (float x))
+     (let ((tmp (float-vector 0)))
+       (glGetFloatv GL_POINT_SIZE tmp)
+       (elt tmp 0))
+     ))
   (:window ()
 	   x::drawable #|window|# )
   (:3d-mode ()
@@ -353,23 +376,34 @@
 	 (glEnd)
 	 (send self :3d-mode)
 	 (send self :pop-mode))
-  (:3d-point (pos)
-	    (glDisable GL_DEPTH_TEST)
-	    (glDisable GL_LIGHTING)
-	    (glBegin GL_POINTS)
-	    (glVertex3fv pos)
-	    (glEnd)
-	    (glEnable GL_DEPTH_TEST)
-	    (glEnable GL_LIGHTING))
-  (:3d-line (start end)
-	    ;;(glDisable GL_DEPTH_TEST)
-	    (glDisable GL_LIGHTING)
-	    (glBegin GL_LINES)
+  (:3d-point (pos &key (depth-test t) (lighting t))
+             "Draw 3D point"
+	     (if depth-test (glDisable GL_DEPTH_TEST))
+	     (if lighting (glDisable GL_LIGHTING))
+	     (glBegin GL_POINTS)
+	     (glVertex3fv pos)
+	     (glEnd)
+	     (if depth-test (glEnable GL_DEPTH_TEST))
+	     (if lighting (glEnable GL_LIGHTING)))
+  (:3d-line (start end &key (depth-test t) (lighting t))
+            "Draw 3D line from start to end"
+	    (if depth-test (glDisable GL_DEPTH_TEST))
+	    (if lighting (glDisable GL_LIGHTING))
+	    (glBegin GL_LINE_STRIP)
 	    (glVertex3fv start)
 	    (glVertex3fv end)
 	    (glEnd)
-	    ;;(glEnable GL_DEPTH_TEST)
-	    (glEnable GL_LIGHTING))
+	    (if depth-test (glEnable GL_DEPTH_TEST))
+	    (if lighting (glEnable GL_LIGHTING)))
+  (:3d-lines (points &key (depth-test t) (lighting t))
+             "Draw 3D lines that connecting points"
+	     (if depth-test (glDisable GL_DEPTH_TEST))
+	     (if lighting (glDisable GL_LIGHTING))
+	     (glBegin GL_LINE_STRIP)
+	     (dolist (p points) (glVertex3fv p))
+	     (glEnd)
+	     (if depth-test (glEnable GL_DEPTH_TEST))
+	     (if lighting (glEnable GL_LIGHTING)))
   (:draw-faces (faces)
 	       (mapc #'(lambda (f)
 			 (draw-face f nil nil))
@@ -384,6 +418,65 @@
 	      (glEnd)
 	      (send self :3d-mode)
 	      (send self :pop-mode))
+  (:makecurrent () (gl::glxMakeCurrent x::*display* x::drawable glcon))
+  (:redraw (&rest args) (send self :flush))
+  (:flush
+   ()
+   "send glflush"
+   (send self :makecurrent)
+   (send self :glflush)
+   (send-super :flush)
+   )
+  ;;
+  (:write-to-image-file
+   (file &key (x 0) (y 0)
+	 (width x::width)
+	 (height x::height))
+   "Write current view to file name"
+   (let* ((glimg (send self :getglimage
+		       :x x :y y :width (1- width) :height height)))
+     (image::write-image-file file glimg)
+     ))
+  (:getglimage
+   (&key (x 0) (y 0)
+	 (width x::width)
+	 (height x::height)
+	 ((:imagebuf imgbuf) (make-string (* width height 3)))
+         (depthbuf) (readbuffer GL_FRONT))
+   "Get current view to a image object. It returns color-image24 object."
+   (let ((img (instance image::color-image24 :init width height imgbuf)))
+     (send self :makecurrent)
+     (glReadBuffer readbuffer)
+     (glPixelStorei GL_PACK_ALIGNMENT 1)
+     (glReadPixels x y width height GL_RGB GL_UNSIGNED_BYTE imgbuf)
+     #-(or :x86_64 :aarch64)
+     (if depthbuf (glReadPixels x y width height GL_DEPTH_COMPONENT GL_FLOAT depthbuf))
+     #+(or :x86_64 :aarch64)
+     (when depthbuf
+       (let ((fv (user::dvector2float-bytestring depthbuf)))
+	 (glReadPixels x y width height GL_DEPTH_COMPONENT GL_FLOAT fv)
+	 (user::float-bytestring2dvector fv depthbuf)))
+     ;; transpose
+     (transpose-image-rows img)
+     img))
+  (:string
+   (x y str &optional (fid x:font-courb24))
+   "Draw string to irtviewer. x:font-courb24 and x::font-helvetica-bold-12 are supported for fid."
+   (send self :makecurrent)
+   (glMatrixMode GL_PROJECTION)
+   (glPushMatrix)
+   (send self :2d-mode)
+   (unless (eq (get self :glxusexfont) fid)
+     (setf (get self :glxusexfont) fid)
+     (glxUseXfont fid 32 96 (+ 1000 32)))
+   (glRasterPos2i (round x) (- (send self :height) (round y)))
+   (glListBase 1000)
+   (glCallLists (length str) GL_UNSIGNED_BYTE str)
+   (send self :3d-mode)
+   (glMatrixMode GL_PROJECTION)
+   (glPopMatrix)
+   (glMatrixMode GL_MODELVIEW)
+   )
   )
 
 (defun geo::default-viewsurface (&rest args)
@@ -399,6 +492,58 @@
 	   (send self :rectangle (elt point 0) (elt point 1) width height))
   )
 
+;; glviewsurface without xwindows
+(export '(glpixmapsurface))
+(defclass glpixmapsurface
+  :super glviewsurface
+  :slots ())
+(defmethod glpixmapsurface
+  (:create (&rest args &key (size 256) ((:width w) size) ((:height h) size) &allow-other-keys)
+    (let (xpix)
+      (setq visualinfo
+            (glXChooseVisual x::*display* (x::DefaultScreen x::*display*)
+                             *attributelist*))
+      (when (= 0 visualinfo)
+        (x::Sync x::*display* 0)
+        (warn "glXChooseVisual error, visp ~A~%" visualinfo)
+        (return-from :create nil))
+#-(or :word-size=64)
+      (setq xpix (x::CreatePixmap x::*display* (x::DefaultRootWindow x::*display*) w h (sys:peek (+ visualinfo 12) :long)))
+#+(or :word-size=64)
+      (setq xpix (x::CreatePixmap x::*display* (x::DefaultRootWindow x::*display*) w h (sys:peek (+ visualinfo 20) :integer)))
+      (when (= 0 xpix)
+        (x::Sync x::*display* 0)
+        (warn "XCreatePixmap error, xpix ~A~%" xpix)
+        (return-from :create nil))
+      (setq x::drawable (glXCreateGLXpixmap x::*display* visualinfo xpix))
+      (when (= 0 x::drawable)
+        (x::Sync x::*display* 0)
+        (warn "glXCreateGlXpixmap error, drawable ~A~%" x::drawable)
+        (return-from :create nil))
+      ;; call glviewsurface
+      (send-super* :create args)))
+  ;
+  (:getglimage
+   (&rest args &key (readbuffer GL_BACK) &allow-other-keys)
+   "Get current view to a image object. It returns color-image24 object."
+   (send-super* :getglimage :readbuffer readbuffer args)) ;; glpixmapsurface need to read from GL_BACK
+  (:resize (w h)
+   (setq x::width w x::height h)
+#-(or :word-size=64)
+   (setq xpix (x::CreatePixmap x::*display* (x::DefaultRootWindow x::*display*) w h (sys:peek (+ visualinfo 12) :long)))
+#+(or :word-size=64)
+   (setq xpix (x::CreatePixmap x::*display* (x::DefaultRootWindow x::*display*) w h (sys:peek (+ visualinfo 20) :integer)))
+   (send self :flush)
+   )
+  (:flush
+   ()
+   "send glflush"
+   (send self :makecurrent)
+   (send self :glflush)
+   ;;(send-super :flush) do not call super flush
+   )
+  )
+
 ;; overwrite :draw-one and :draw-faces method of class viewer
 
 (defmethod geo:viewer
diff --git a/models/gifuplastic-720-cart-object.l b/models/gifuplastic-720-cart-object.l
index ea4f3a2c..0b28b74d 100644
--- a/models/gifuplastic-720-cart-object.l
+++ b/models/gifuplastic-720-cart-object.l
@@ -7,12 +7,12 @@
   :super cascaded-link
   :slots (sensors
          handle0 handle1 handle2
-         ))
+         joint0 joint1 joint2 joint3 joint4 joint5 joint6 ))
 (defmethod gifuplastic-720-cart-object
   (:init
    (&rest args &key (name "gifuplastic-720-cart") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
    (let (c bc
-         blink0
+         blink0 blink1 blink2 blink3 blink4 blink5 blink6 blink7
                  )
      (send-super* :init :name name args)
 
@@ -20,22 +20,6 @@
 
      ;; definition of :gifuplastic-720-cart-bodyset2
      (setq bc (list
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 178.301 135.0 25.0) (float-vector 185.0 135.0 50.0) (float-vector 178.301 135.0 75.0) (float-vector 160.0 135.0 93.3013) (float-vector 135.0 135.0 100.0) (float-vector 110.0 135.0 93.3013) (float-vector 91.6987 135.0 75.0) (float-vector 85.0 135.0 50.0) (float-vector 91.6987 135.0 25.0) (float-vector 110.0 135.0 6.69873) (float-vector 135.0 135.0 7.105427e-15) (float-vector 160.0 135.0 6.69873)))
-         (instance face :init :vertices (list (float-vector 185.0 160.0 50.0) (float-vector 178.301 160.0 25.0) (float-vector 160.0 160.0 6.69873) (float-vector 135.0 160.0 0.0) (float-vector 110.0 160.0 6.69873) (float-vector 91.6987 160.0 25.0) (float-vector 85.0 160.0 50.0) (float-vector 91.6987 160.0 75.0) (float-vector 110.0 160.0 93.3013) (float-vector 135.0 160.0 100.0) (float-vector 160.0 160.0 93.3013) (float-vector 178.301 160.0 75.0)))
-         (instance face :init :vertices (list (float-vector 178.301 135.0 25.0) (float-vector 178.301 160.0 25.0) (float-vector 185.0 160.0 50.0) (float-vector 185.0 135.0 50.0)))
-         (instance face :init :vertices (list (float-vector 160.0 135.0 6.69873) (float-vector 160.0 160.0 6.69873) (float-vector 178.301 160.0 25.0) (float-vector 178.301 135.0 25.0)))
-         (instance face :init :vertices (list (float-vector 135.0 135.0 7.105427e-15) (float-vector 135.0 160.0 0.0) (float-vector 160.0 160.0 6.69873) (float-vector 160.0 135.0 6.69873)))
-         (instance face :init :vertices (list (float-vector 110.0 135.0 6.69873) (float-vector 110.0 160.0 6.69873) (float-vector 135.0 160.0 0.0) (float-vector 135.0 135.0 7.105427e-15)))
-         (instance face :init :vertices (list (float-vector 91.6987 135.0 25.0) (float-vector 91.6987 160.0 25.0) (float-vector 110.0 160.0 6.69873) (float-vector 110.0 135.0 6.69873)))
-         (instance face :init :vertices (list (float-vector 85.0 135.0 50.0) (float-vector 85.0 160.0 50.0) (float-vector 91.6987 160.0 25.0) (float-vector 91.6987 135.0 25.0)))
-         (instance face :init :vertices (list (float-vector 91.6987 135.0 75.0) (float-vector 91.6987 160.0 75.0) (float-vector 85.0 160.0 50.0) (float-vector 85.0 135.0 50.0)))
-         (instance face :init :vertices (list (float-vector 110.0 135.0 93.3013) (float-vector 110.0 160.0 93.3013) (float-vector 91.6987 160.0 75.0) (float-vector 91.6987 135.0 75.0)))
-         (instance face :init :vertices (list (float-vector 135.0 135.0 100.0) (float-vector 135.0 160.0 100.0) (float-vector 110.0 160.0 93.3013) (float-vector 110.0 135.0 93.3013)))
-         (instance face :init :vertices (list (float-vector 160.0 135.0 93.3013) (float-vector 160.0 160.0 93.3013) (float-vector 135.0 160.0 100.0) (float-vector 135.0 135.0 100.0)))
-         (instance face :init :vertices (list (float-vector 178.301 135.0 75.0) (float-vector 178.301 160.0 75.0) (float-vector 160.0 160.0 93.3013) (float-vector 160.0 135.0 93.3013)))
-         (instance face :init :vertices (list (float-vector 185.0 135.0 50.0) (float-vector 185.0 160.0 50.0) (float-vector 178.301 160.0 75.0) (float-vector 178.301 135.0 75.0)))
-       ))
        (instance faceset :init :faces (list
          (instance face :init :vertices (list (float-vector 147.5 163.75 120.0) (float-vector 122.5 163.75 120.0) (float-vector 122.5 163.75 30.0) (float-vector 147.5 163.75 30.0)))
          (instance face :init :vertices (list (float-vector 122.5 166.25 120.0) (float-vector 147.5 166.25 120.0) (float-vector 147.5 166.25 30.0) (float-vector 122.5 166.25 30.0)))
@@ -52,22 +36,6 @@
          (instance face :init :vertices (list (float-vector 122.5 128.75 30.0) (float-vector 122.5 131.25 30.0) (float-vector 147.5 131.25 30.0) (float-vector 147.5 128.75 30.0)))
          (instance face :init :vertices (list (float-vector 122.5 128.75 120.0) (float-vector 122.5 131.25 120.0) (float-vector 122.5 131.25 30.0) (float-vector 122.5 128.75 30.0)))
        ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 178.301 -160.0 25.0) (float-vector 185.0 -160.0 50.0) (float-vector 178.301 -160.0 75.0) (float-vector 160.0 -160.0 93.3013) (float-vector 135.0 -160.0 100.0) (float-vector 110.0 -160.0 93.3013) (float-vector 91.6987 -160.0 75.0) (float-vector 85.0 -160.0 50.0) (float-vector 91.6987 -160.0 25.0) (float-vector 110.0 -160.0 6.69873) (float-vector 135.0 -160.0 7.105427e-15) (float-vector 160.0 -160.0 6.69873)))
-         (instance face :init :vertices (list (float-vector 185.0 -135.0 50.0) (float-vector 178.301 -135.0 25.0) (float-vector 160.0 -135.0 6.69873) (float-vector 135.0 -135.0 0.0) (float-vector 110.0 -135.0 6.69873) (float-vector 91.6987 -135.0 25.0) (float-vector 85.0 -135.0 50.0) (float-vector 91.6987 -135.0 75.0) (float-vector 110.0 -135.0 93.3013) (float-vector 135.0 -135.0 100.0) (float-vector 160.0 -135.0 93.3013) (float-vector 178.301 -135.0 75.0)))
-         (instance face :init :vertices (list (float-vector 178.301 -160.0 25.0) (float-vector 178.301 -135.0 25.0) (float-vector 185.0 -135.0 50.0) (float-vector 185.0 -160.0 50.0)))
-         (instance face :init :vertices (list (float-vector 160.0 -160.0 6.69873) (float-vector 160.0 -135.0 6.69873) (float-vector 178.301 -135.0 25.0) (float-vector 178.301 -160.0 25.0)))
-         (instance face :init :vertices (list (float-vector 135.0 -160.0 7.105427e-15) (float-vector 135.0 -135.0 0.0) (float-vector 160.0 -135.0 6.69873) (float-vector 160.0 -160.0 6.69873)))
-         (instance face :init :vertices (list (float-vector 110.0 -160.0 6.69873) (float-vector 110.0 -135.0 6.69873) (float-vector 135.0 -135.0 0.0) (float-vector 135.0 -160.0 7.105427e-15)))
-         (instance face :init :vertices (list (float-vector 91.6987 -160.0 25.0) (float-vector 91.6987 -135.0 25.0) (float-vector 110.0 -135.0 6.69873) (float-vector 110.0 -160.0 6.69873)))
-         (instance face :init :vertices (list (float-vector 85.0 -160.0 50.0) (float-vector 85.0 -135.0 50.0) (float-vector 91.6987 -135.0 25.0) (float-vector 91.6987 -160.0 25.0)))
-         (instance face :init :vertices (list (float-vector 91.6987 -160.0 75.0) (float-vector 91.6987 -135.0 75.0) (float-vector 85.0 -135.0 50.0) (float-vector 85.0 -160.0 50.0)))
-         (instance face :init :vertices (list (float-vector 110.0 -160.0 93.3013) (float-vector 110.0 -135.0 93.3013) (float-vector 91.6987 -135.0 75.0) (float-vector 91.6987 -160.0 75.0)))
-         (instance face :init :vertices (list (float-vector 135.0 -160.0 100.0) (float-vector 135.0 -135.0 100.0) (float-vector 110.0 -135.0 93.3013) (float-vector 110.0 -160.0 93.3013)))
-         (instance face :init :vertices (list (float-vector 160.0 -160.0 93.3013) (float-vector 160.0 -135.0 93.3013) (float-vector 135.0 -135.0 100.0) (float-vector 135.0 -160.0 100.0)))
-         (instance face :init :vertices (list (float-vector 178.301 -160.0 75.0) (float-vector 178.301 -135.0 75.0) (float-vector 160.0 -135.0 93.3013) (float-vector 160.0 -160.0 93.3013)))
-         (instance face :init :vertices (list (float-vector 185.0 -160.0 50.0) (float-vector 185.0 -135.0 50.0) (float-vector 178.301 -135.0 75.0) (float-vector 178.301 -160.0 75.0)))
-       ))
        (instance faceset :init :faces (list
          (instance face :init :vertices (list (float-vector 147.5 -131.25 120.0) (float-vector 122.5 -131.25 120.0) (float-vector 122.5 -131.25 30.0) (float-vector 147.5 -131.25 30.0)))
          (instance face :init :vertices (list (float-vector 122.5 -128.75 120.0) (float-vector 147.5 -128.75 120.0) (float-vector 147.5 -128.75 30.0) (float-vector 122.5 -128.75 30.0)))
@@ -85,224 +53,359 @@
          (instance face :init :vertices (list (float-vector 122.5 -166.25 120.0) (float-vector 122.5 -163.75 120.0) (float-vector 122.5 -163.75 30.0) (float-vector 122.5 -166.25 30.0)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 633.301 135.0 25.0) (float-vector 640.0 135.0 50.0) (float-vector 633.301 135.0 75.0) (float-vector 615.0 135.0 93.3013) (float-vector 590.0 135.0 100.0) (float-vector 565.0 135.0 93.3013) (float-vector 546.699 135.0 75.0) (float-vector 540.0 135.0 50.0) (float-vector 546.699 135.0 25.0) (float-vector 565.0 135.0 6.69873) (float-vector 590.0 135.0 7.105427e-15) (float-vector 615.0 135.0 6.69873)))
-         (instance face :init :vertices (list (float-vector 640.0 160.0 50.0) (float-vector 633.301 160.0 25.0) (float-vector 615.0 160.0 6.69873) (float-vector 590.0 160.0 0.0) (float-vector 565.0 160.0 6.69873) (float-vector 546.699 160.0 25.0) (float-vector 540.0 160.0 50.0) (float-vector 546.699 160.0 75.0) (float-vector 565.0 160.0 93.3013) (float-vector 590.0 160.0 100.0) (float-vector 615.0 160.0 93.3013) (float-vector 633.301 160.0 75.0)))
-         (instance face :init :vertices (list (float-vector 633.301 135.0 25.0) (float-vector 633.301 160.0 25.0) (float-vector 640.0 160.0 50.0) (float-vector 640.0 135.0 50.0)))
-         (instance face :init :vertices (list (float-vector 615.0 135.0 6.69873) (float-vector 615.0 160.0 6.69873) (float-vector 633.301 160.0 25.0) (float-vector 633.301 135.0 25.0)))
-         (instance face :init :vertices (list (float-vector 590.0 135.0 7.105427e-15) (float-vector 590.0 160.0 0.0) (float-vector 615.0 160.0 6.69873) (float-vector 615.0 135.0 6.69873)))
-         (instance face :init :vertices (list (float-vector 565.0 135.0 6.69873) (float-vector 565.0 160.0 6.69873) (float-vector 590.0 160.0 0.0) (float-vector 590.0 135.0 7.105427e-15)))
-         (instance face :init :vertices (list (float-vector 546.699 135.0 25.0) (float-vector 546.699 160.0 25.0) (float-vector 565.0 160.0 6.69873) (float-vector 565.0 135.0 6.69873)))
-         (instance face :init :vertices (list (float-vector 540.0 135.0 50.0) (float-vector 540.0 160.0 50.0) (float-vector 546.699 160.0 25.0) (float-vector 546.699 135.0 25.0)))
-         (instance face :init :vertices (list (float-vector 546.699 135.0 75.0) (float-vector 546.699 160.0 75.0) (float-vector 540.0 160.0 50.0) (float-vector 540.0 135.0 50.0)))
-         (instance face :init :vertices (list (float-vector 565.0 135.0 93.3013) (float-vector 565.0 160.0 93.3013) (float-vector 546.699 160.0 75.0) (float-vector 546.699 135.0 75.0)))
-         (instance face :init :vertices (list (float-vector 590.0 135.0 100.0) (float-vector 590.0 160.0 100.0) (float-vector 565.0 160.0 93.3013) (float-vector 565.0 135.0 93.3013)))
-         (instance face :init :vertices (list (float-vector 615.0 135.0 93.3013) (float-vector 615.0 160.0 93.3013) (float-vector 590.0 160.0 100.0) (float-vector 590.0 135.0 100.0)))
-         (instance face :init :vertices (list (float-vector 633.301 135.0 75.0) (float-vector 633.301 160.0 75.0) (float-vector 615.0 160.0 93.3013) (float-vector 615.0 135.0 93.3013)))
-         (instance face :init :vertices (list (float-vector 640.0 135.0 50.0) (float-vector 640.0 160.0 50.0) (float-vector 633.301 160.0 75.0) (float-vector 633.301 135.0 75.0)))
+         (instance face :init :vertices (list (float-vector 720.0 230.0 160.0) (float-vector 0.0 230.0 160.0) (float-vector 0.0 -230.0 160.0) (float-vector 720.0 -230.0 160.0)))
+         (instance face :init :vertices (list (float-vector 0.0 230.0 120.0) (float-vector 720.0 230.0 120.0) (float-vector 720.0 -230.0 120.0) (float-vector 0.0 -230.0 120.0)))
+         (instance face :init :vertices (list (float-vector 720.0 230.0 160.0) (float-vector 720.0 230.0 120.0) (float-vector 0.0 230.0 120.0) (float-vector 0.0 230.0 160.0)))
+         (instance face :init :vertices (list (float-vector 720.0 -230.0 160.0) (float-vector 720.0 -230.0 120.0) (float-vector 720.0 230.0 120.0) (float-vector 720.0 230.0 160.0)))
+         (instance face :init :vertices (list (float-vector 0.0 -230.0 160.0) (float-vector 0.0 -230.0 120.0) (float-vector 720.0 -230.0 120.0) (float-vector 720.0 -230.0 160.0)))
+         (instance face :init :vertices (list (float-vector 0.0 230.0 160.0) (float-vector 0.0 230.0 120.0) (float-vector 0.0 -230.0 120.0) (float-vector 0.0 -230.0 160.0)))
+       ))
        ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (send (elt bc 1) :set-color :gray)
+     (send (elt bc 2) :set-color :gray)
+     (send (elt bc 3) :set-color :gray)
+     (send (elt bc 4) :set-color :green)
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :gifuplastic-720-cart-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :rear-left-wheel
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 602.5 163.75 120.0) (float-vector 577.5 163.75 120.0) (float-vector 577.5 163.75 30.0) (float-vector 602.5 163.75 30.0)))
-         (instance face :init :vertices (list (float-vector 577.5 166.25 120.0) (float-vector 602.5 166.25 120.0) (float-vector 602.5 166.25 30.0) (float-vector 577.5 166.25 30.0)))
-         (instance face :init :vertices (list (float-vector 602.5 163.75 120.0) (float-vector 602.5 166.25 120.0) (float-vector 577.5 166.25 120.0) (float-vector 577.5 163.75 120.0)))
-         (instance face :init :vertices (list (float-vector 602.5 163.75 30.0) (float-vector 602.5 166.25 30.0) (float-vector 602.5 166.25 120.0) (float-vector 602.5 163.75 120.0)))
-         (instance face :init :vertices (list (float-vector 577.5 163.75 30.0) (float-vector 577.5 166.25 30.0) (float-vector 602.5 166.25 30.0) (float-vector 602.5 163.75 30.0)))
-         (instance face :init :vertices (list (float-vector 577.5 163.75 120.0) (float-vector 577.5 166.25 120.0) (float-vector 577.5 166.25 30.0) (float-vector 577.5 163.75 30.0)))
+         (instance face :init :vertices (list (float-vector 48.2963 -12.5 -12.941) (float-vector 50.0 -12.5 7.105427e-15) (float-vector 48.2963 -12.5 12.941) (float-vector 43.3013 -12.5 25.0) (float-vector 35.3553 -12.5 35.3553) (float-vector 25.0 -12.5 43.3013) (float-vector 12.941 -12.5 48.2963) (float-vector 2.842171e-14 -12.5 50.0) (float-vector -12.941 -12.5 48.2963) (float-vector -25.0 -12.5 43.3013) (float-vector -35.3553 -12.5 35.3553) (float-vector -43.3013 -12.5 25.0) (float-vector -48.2963 -12.5 12.941) (float-vector -50.0 -12.5 4.973799e-14) (float-vector -48.2963 -12.5 -12.941) (float-vector -43.3013 -12.5 -25.0) (float-vector -35.3553 -12.5 -35.3553) (float-vector -25.0 -12.5 -43.3013) (float-vector -12.941 -12.5 -48.2963) (float-vector -5.684342e-14 -12.5 -50.0) (float-vector 12.941 -12.5 -48.2963) (float-vector 25.0 -12.5 -43.3013) (float-vector 35.3553 -12.5 -35.3553) (float-vector 43.3013 -12.5 -25.0)))
+         (instance face :init :vertices (list (float-vector 50.0 12.5 0.0) (float-vector 48.2963 12.5 -12.941) (float-vector 43.3013 12.5 -25.0) (float-vector 35.3553 12.5 -35.3553) (float-vector 25.0 12.5 -43.3013) (float-vector 12.941 12.5 -48.2963) (float-vector -5.684342e-14 12.5 -50.0) (float-vector -12.941 12.5 -48.2963) (float-vector -25.0 12.5 -43.3013) (float-vector -35.3553 12.5 -35.3553) (float-vector -43.3013 12.5 -25.0) (float-vector -48.2963 12.5 -12.941) (float-vector -50.0 12.5 4.263256e-14) (float-vector -48.2963 12.5 12.941) (float-vector -43.3013 12.5 25.0) (float-vector -35.3553 12.5 35.3553) (float-vector -25.0 12.5 43.3013) (float-vector -12.941 12.5 48.2963) (float-vector 2.842171e-14 12.5 50.0) (float-vector 12.941 12.5 48.2963) (float-vector 25.0 12.5 43.3013) (float-vector 35.3553 12.5 35.3553) (float-vector 43.3013 12.5 25.0) (float-vector 48.2963 12.5 12.941)))
+         (instance face :init :vertices (list (float-vector 48.2963 -12.5 -12.941) (float-vector 48.2963 12.5 -12.941) (float-vector 50.0 12.5 0.0) (float-vector 50.0 -12.5 7.105427e-15)))
+         (instance face :init :vertices (list (float-vector 43.3013 -12.5 -25.0) (float-vector 43.3013 12.5 -25.0) (float-vector 48.2963 12.5 -12.941) (float-vector 48.2963 -12.5 -12.941)))
+         (instance face :init :vertices (list (float-vector 35.3553 -12.5 -35.3553) (float-vector 35.3553 12.5 -35.3553) (float-vector 43.3013 12.5 -25.0) (float-vector 43.3013 -12.5 -25.0)))
+         (instance face :init :vertices (list (float-vector 25.0 -12.5 -43.3013) (float-vector 25.0 12.5 -43.3013) (float-vector 35.3553 12.5 -35.3553) (float-vector 35.3553 -12.5 -35.3553)))
+         (instance face :init :vertices (list (float-vector 12.941 -12.5 -48.2963) (float-vector 12.941 12.5 -48.2963) (float-vector 25.0 12.5 -43.3013) (float-vector 25.0 -12.5 -43.3013)))
+         (instance face :init :vertices (list (float-vector -5.684342e-14 -12.5 -50.0) (float-vector -5.684342e-14 12.5 -50.0) (float-vector 12.941 12.5 -48.2963) (float-vector 12.941 -12.5 -48.2963)))
+         (instance face :init :vertices (list (float-vector -12.941 -12.5 -48.2963) (float-vector -12.941 12.5 -48.2963) (float-vector -5.684342e-14 12.5 -50.0) (float-vector -5.684342e-14 -12.5 -50.0)))
+         (instance face :init :vertices (list (float-vector -25.0 -12.5 -43.3013) (float-vector -25.0 12.5 -43.3013) (float-vector -12.941 12.5 -48.2963) (float-vector -12.941 -12.5 -48.2963)))
+         (instance face :init :vertices (list (float-vector -35.3553 -12.5 -35.3553) (float-vector -35.3553 12.5 -35.3553) (float-vector -25.0 12.5 -43.3013) (float-vector -25.0 -12.5 -43.3013)))
+         (instance face :init :vertices (list (float-vector -43.3013 -12.5 -25.0) (float-vector -43.3013 12.5 -25.0) (float-vector -35.3553 12.5 -35.3553) (float-vector -35.3553 -12.5 -35.3553)))
+         (instance face :init :vertices (list (float-vector -48.2963 -12.5 -12.941) (float-vector -48.2963 12.5 -12.941) (float-vector -43.3013 12.5 -25.0) (float-vector -43.3013 -12.5 -25.0)))
+         (instance face :init :vertices (list (float-vector -50.0 -12.5 4.973799e-14) (float-vector -50.0 12.5 4.263256e-14) (float-vector -48.2963 12.5 -12.941) (float-vector -48.2963 -12.5 -12.941)))
+         (instance face :init :vertices (list (float-vector -48.2963 -12.5 12.941) (float-vector -48.2963 12.5 12.941) (float-vector -50.0 12.5 4.263256e-14) (float-vector -50.0 -12.5 4.973799e-14)))
+         (instance face :init :vertices (list (float-vector -43.3013 -12.5 25.0) (float-vector -43.3013 12.5 25.0) (float-vector -48.2963 12.5 12.941) (float-vector -48.2963 -12.5 12.941)))
+         (instance face :init :vertices (list (float-vector -35.3553 -12.5 35.3553) (float-vector -35.3553 12.5 35.3553) (float-vector -43.3013 12.5 25.0) (float-vector -43.3013 -12.5 25.0)))
+         (instance face :init :vertices (list (float-vector -25.0 -12.5 43.3013) (float-vector -25.0 12.5 43.3013) (float-vector -35.3553 12.5 35.3553) (float-vector -35.3553 -12.5 35.3553)))
+         (instance face :init :vertices (list (float-vector -12.941 -12.5 48.2963) (float-vector -12.941 12.5 48.2963) (float-vector -25.0 12.5 43.3013) (float-vector -25.0 -12.5 43.3013)))
+         (instance face :init :vertices (list (float-vector 2.842171e-14 -12.5 50.0) (float-vector 2.842171e-14 12.5 50.0) (float-vector -12.941 12.5 48.2963) (float-vector -12.941 -12.5 48.2963)))
+         (instance face :init :vertices (list (float-vector 12.941 -12.5 48.2963) (float-vector 12.941 12.5 48.2963) (float-vector 2.842171e-14 12.5 50.0) (float-vector 2.842171e-14 -12.5 50.0)))
+         (instance face :init :vertices (list (float-vector 25.0 -12.5 43.3013) (float-vector 25.0 12.5 43.3013) (float-vector 12.941 12.5 48.2963) (float-vector 12.941 -12.5 48.2963)))
+         (instance face :init :vertices (list (float-vector 35.3553 -12.5 35.3553) (float-vector 35.3553 12.5 35.3553) (float-vector 25.0 12.5 43.3013) (float-vector 25.0 -12.5 43.3013)))
+         (instance face :init :vertices (list (float-vector 43.3013 -12.5 25.0) (float-vector 43.3013 12.5 25.0) (float-vector 35.3553 12.5 35.3553) (float-vector 35.3553 -12.5 35.3553)))
+         (instance face :init :vertices (list (float-vector 48.2963 -12.5 12.941) (float-vector 48.2963 12.5 12.941) (float-vector 43.3013 12.5 25.0) (float-vector 43.3013 -12.5 25.0)))
+         (instance face :init :vertices (list (float-vector 50.0 -12.5 7.105427e-15) (float-vector 50.0 12.5 0.0) (float-vector 48.2963 12.5 12.941) (float-vector 48.2963 -12.5 12.941)))
+       ))
        ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (setq blink2 (instance bodyset-link :init (make-cascoords) :bodies bc :name :rear-left-wheel :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :rear-right-wheel
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 602.5 128.75 120.0) (float-vector 577.5 128.75 120.0) (float-vector 577.5 128.75 30.0) (float-vector 602.5 128.75 30.0)))
-         (instance face :init :vertices (list (float-vector 577.5 131.25 120.0) (float-vector 602.5 131.25 120.0) (float-vector 602.5 131.25 30.0) (float-vector 577.5 131.25 30.0)))
-         (instance face :init :vertices (list (float-vector 602.5 128.75 120.0) (float-vector 602.5 131.25 120.0) (float-vector 577.5 131.25 120.0) (float-vector 577.5 128.75 120.0)))
-         (instance face :init :vertices (list (float-vector 602.5 128.75 30.0) (float-vector 602.5 131.25 30.0) (float-vector 602.5 131.25 120.0) (float-vector 602.5 128.75 120.0)))
-         (instance face :init :vertices (list (float-vector 577.5 128.75 30.0) (float-vector 577.5 131.25 30.0) (float-vector 602.5 131.25 30.0) (float-vector 602.5 128.75 30.0)))
-         (instance face :init :vertices (list (float-vector 577.5 128.75 120.0) (float-vector 577.5 131.25 120.0) (float-vector 577.5 131.25 30.0) (float-vector 577.5 128.75 30.0)))
+         (instance face :init :vertices (list (float-vector 48.2963 -12.5 -12.941) (float-vector 50.0 -12.5 7.105427e-15) (float-vector 48.2963 -12.5 12.941) (float-vector 43.3013 -12.5 25.0) (float-vector 35.3553 -12.5 35.3553) (float-vector 25.0 -12.5 43.3013) (float-vector 12.941 -12.5 48.2963) (float-vector 2.842171e-14 -12.5 50.0) (float-vector -12.941 -12.5 48.2963) (float-vector -25.0 -12.5 43.3013) (float-vector -35.3553 -12.5 35.3553) (float-vector -43.3013 -12.5 25.0) (float-vector -48.2963 -12.5 12.941) (float-vector -50.0 -12.5 4.973799e-14) (float-vector -48.2963 -12.5 -12.941) (float-vector -43.3013 -12.5 -25.0) (float-vector -35.3553 -12.5 -35.3553) (float-vector -25.0 -12.5 -43.3013) (float-vector -12.941 -12.5 -48.2963) (float-vector -5.684342e-14 -12.5 -50.0) (float-vector 12.941 -12.5 -48.2963) (float-vector 25.0 -12.5 -43.3013) (float-vector 35.3553 -12.5 -35.3553) (float-vector 43.3013 -12.5 -25.0)))
+         (instance face :init :vertices (list (float-vector 50.0 12.5 0.0) (float-vector 48.2963 12.5 -12.941) (float-vector 43.3013 12.5 -25.0) (float-vector 35.3553 12.5 -35.3553) (float-vector 25.0 12.5 -43.3013) (float-vector 12.941 12.5 -48.2963) (float-vector -5.684342e-14 12.5 -50.0) (float-vector -12.941 12.5 -48.2963) (float-vector -25.0 12.5 -43.3013) (float-vector -35.3553 12.5 -35.3553) (float-vector -43.3013 12.5 -25.0) (float-vector -48.2963 12.5 -12.941) (float-vector -50.0 12.5 4.263256e-14) (float-vector -48.2963 12.5 12.941) (float-vector -43.3013 12.5 25.0) (float-vector -35.3553 12.5 35.3553) (float-vector -25.0 12.5 43.3013) (float-vector -12.941 12.5 48.2963) (float-vector 2.842171e-14 12.5 50.0) (float-vector 12.941 12.5 48.2963) (float-vector 25.0 12.5 43.3013) (float-vector 35.3553 12.5 35.3553) (float-vector 43.3013 12.5 25.0) (float-vector 48.2963 12.5 12.941)))
+         (instance face :init :vertices (list (float-vector 48.2963 -12.5 -12.941) (float-vector 48.2963 12.5 -12.941) (float-vector 50.0 12.5 0.0) (float-vector 50.0 -12.5 7.105427e-15)))
+         (instance face :init :vertices (list (float-vector 43.3013 -12.5 -25.0) (float-vector 43.3013 12.5 -25.0) (float-vector 48.2963 12.5 -12.941) (float-vector 48.2963 -12.5 -12.941)))
+         (instance face :init :vertices (list (float-vector 35.3553 -12.5 -35.3553) (float-vector 35.3553 12.5 -35.3553) (float-vector 43.3013 12.5 -25.0) (float-vector 43.3013 -12.5 -25.0)))
+         (instance face :init :vertices (list (float-vector 25.0 -12.5 -43.3013) (float-vector 25.0 12.5 -43.3013) (float-vector 35.3553 12.5 -35.3553) (float-vector 35.3553 -12.5 -35.3553)))
+         (instance face :init :vertices (list (float-vector 12.941 -12.5 -48.2963) (float-vector 12.941 12.5 -48.2963) (float-vector 25.0 12.5 -43.3013) (float-vector 25.0 -12.5 -43.3013)))
+         (instance face :init :vertices (list (float-vector -5.684342e-14 -12.5 -50.0) (float-vector -5.684342e-14 12.5 -50.0) (float-vector 12.941 12.5 -48.2963) (float-vector 12.941 -12.5 -48.2963)))
+         (instance face :init :vertices (list (float-vector -12.941 -12.5 -48.2963) (float-vector -12.941 12.5 -48.2963) (float-vector -5.684342e-14 12.5 -50.0) (float-vector -5.684342e-14 -12.5 -50.0)))
+         (instance face :init :vertices (list (float-vector -25.0 -12.5 -43.3013) (float-vector -25.0 12.5 -43.3013) (float-vector -12.941 12.5 -48.2963) (float-vector -12.941 -12.5 -48.2963)))
+         (instance face :init :vertices (list (float-vector -35.3553 -12.5 -35.3553) (float-vector -35.3553 12.5 -35.3553) (float-vector -25.0 12.5 -43.3013) (float-vector -25.0 -12.5 -43.3013)))
+         (instance face :init :vertices (list (float-vector -43.3013 -12.5 -25.0) (float-vector -43.3013 12.5 -25.0) (float-vector -35.3553 12.5 -35.3553) (float-vector -35.3553 -12.5 -35.3553)))
+         (instance face :init :vertices (list (float-vector -48.2963 -12.5 -12.941) (float-vector -48.2963 12.5 -12.941) (float-vector -43.3013 12.5 -25.0) (float-vector -43.3013 -12.5 -25.0)))
+         (instance face :init :vertices (list (float-vector -50.0 -12.5 4.973799e-14) (float-vector -50.0 12.5 4.263256e-14) (float-vector -48.2963 12.5 -12.941) (float-vector -48.2963 -12.5 -12.941)))
+         (instance face :init :vertices (list (float-vector -48.2963 -12.5 12.941) (float-vector -48.2963 12.5 12.941) (float-vector -50.0 12.5 4.263256e-14) (float-vector -50.0 -12.5 4.973799e-14)))
+         (instance face :init :vertices (list (float-vector -43.3013 -12.5 25.0) (float-vector -43.3013 12.5 25.0) (float-vector -48.2963 12.5 12.941) (float-vector -48.2963 -12.5 12.941)))
+         (instance face :init :vertices (list (float-vector -35.3553 -12.5 35.3553) (float-vector -35.3553 12.5 35.3553) (float-vector -43.3013 12.5 25.0) (float-vector -43.3013 -12.5 25.0)))
+         (instance face :init :vertices (list (float-vector -25.0 -12.5 43.3013) (float-vector -25.0 12.5 43.3013) (float-vector -35.3553 12.5 35.3553) (float-vector -35.3553 -12.5 35.3553)))
+         (instance face :init :vertices (list (float-vector -12.941 -12.5 48.2963) (float-vector -12.941 12.5 48.2963) (float-vector -25.0 12.5 43.3013) (float-vector -25.0 -12.5 43.3013)))
+         (instance face :init :vertices (list (float-vector 2.842171e-14 -12.5 50.0) (float-vector 2.842171e-14 12.5 50.0) (float-vector -12.941 12.5 48.2963) (float-vector -12.941 -12.5 48.2963)))
+         (instance face :init :vertices (list (float-vector 12.941 -12.5 48.2963) (float-vector 12.941 12.5 48.2963) (float-vector 2.842171e-14 12.5 50.0) (float-vector 2.842171e-14 -12.5 50.0)))
+         (instance face :init :vertices (list (float-vector 25.0 -12.5 43.3013) (float-vector 25.0 12.5 43.3013) (float-vector 12.941 12.5 48.2963) (float-vector 12.941 -12.5 48.2963)))
+         (instance face :init :vertices (list (float-vector 35.3553 -12.5 35.3553) (float-vector 35.3553 12.5 35.3553) (float-vector 25.0 12.5 43.3013) (float-vector 25.0 -12.5 43.3013)))
+         (instance face :init :vertices (list (float-vector 43.3013 -12.5 25.0) (float-vector 43.3013 12.5 25.0) (float-vector 35.3553 12.5 35.3553) (float-vector 35.3553 -12.5 35.3553)))
+         (instance face :init :vertices (list (float-vector 48.2963 -12.5 12.941) (float-vector 48.2963 12.5 12.941) (float-vector 43.3013 12.5 25.0) (float-vector 43.3013 -12.5 25.0)))
+         (instance face :init :vertices (list (float-vector 50.0 -12.5 7.105427e-15) (float-vector 50.0 12.5 0.0) (float-vector 48.2963 12.5 12.941) (float-vector 48.2963 -12.5 12.941)))
+       ))
        ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (setq blink3 (instance bodyset-link :init (make-cascoords) :bodies bc :name :rear-right-wheel :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :left-front-fork
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 633.301 -160.0 25.0) (float-vector 640.0 -160.0 50.0) (float-vector 633.301 -160.0 75.0) (float-vector 615.0 -160.0 93.3013) (float-vector 590.0 -160.0 100.0) (float-vector 565.0 -160.0 93.3013) (float-vector 546.699 -160.0 75.0) (float-vector 540.0 -160.0 50.0) (float-vector 546.699 -160.0 25.0) (float-vector 565.0 -160.0 6.69873) (float-vector 590.0 -160.0 7.105427e-15) (float-vector 615.0 -160.0 6.69873)))
-         (instance face :init :vertices (list (float-vector 640.0 -135.0 50.0) (float-vector 633.301 -135.0 25.0) (float-vector 615.0 -135.0 6.69873) (float-vector 590.0 -135.0 0.0) (float-vector 565.0 -135.0 6.69873) (float-vector 546.699 -135.0 25.0) (float-vector 540.0 -135.0 50.0) (float-vector 546.699 -135.0 75.0) (float-vector 565.0 -135.0 93.3013) (float-vector 590.0 -135.0 100.0) (float-vector 615.0 -135.0 93.3013) (float-vector 633.301 -135.0 75.0)))
-         (instance face :init :vertices (list (float-vector 633.301 -160.0 25.0) (float-vector 633.301 -135.0 25.0) (float-vector 640.0 -135.0 50.0) (float-vector 640.0 -160.0 50.0)))
-         (instance face :init :vertices (list (float-vector 615.0 -160.0 6.69873) (float-vector 615.0 -135.0 6.69873) (float-vector 633.301 -135.0 25.0) (float-vector 633.301 -160.0 25.0)))
-         (instance face :init :vertices (list (float-vector 590.0 -160.0 7.105427e-15) (float-vector 590.0 -135.0 0.0) (float-vector 615.0 -135.0 6.69873) (float-vector 615.0 -160.0 6.69873)))
-         (instance face :init :vertices (list (float-vector 565.0 -160.0 6.69873) (float-vector 565.0 -135.0 6.69873) (float-vector 590.0 -135.0 0.0) (float-vector 590.0 -160.0 7.105427e-15)))
-         (instance face :init :vertices (list (float-vector 546.699 -160.0 25.0) (float-vector 546.699 -135.0 25.0) (float-vector 565.0 -135.0 6.69873) (float-vector 565.0 -160.0 6.69873)))
-         (instance face :init :vertices (list (float-vector 540.0 -160.0 50.0) (float-vector 540.0 -135.0 50.0) (float-vector 546.699 -135.0 25.0) (float-vector 546.699 -160.0 25.0)))
-         (instance face :init :vertices (list (float-vector 546.699 -160.0 75.0) (float-vector 546.699 -135.0 75.0) (float-vector 540.0 -135.0 50.0) (float-vector 540.0 -160.0 50.0)))
-         (instance face :init :vertices (list (float-vector 565.0 -160.0 93.3013) (float-vector 565.0 -135.0 93.3013) (float-vector 546.699 -135.0 75.0) (float-vector 546.699 -160.0 75.0)))
-         (instance face :init :vertices (list (float-vector 590.0 -160.0 100.0) (float-vector 590.0 -135.0 100.0) (float-vector 565.0 -135.0 93.3013) (float-vector 565.0 -160.0 93.3013)))
-         (instance face :init :vertices (list (float-vector 615.0 -160.0 93.3013) (float-vector 615.0 -135.0 93.3013) (float-vector 590.0 -135.0 100.0) (float-vector 590.0 -160.0 100.0)))
-         (instance face :init :vertices (list (float-vector 633.301 -160.0 75.0) (float-vector 633.301 -135.0 75.0) (float-vector 615.0 -135.0 93.3013) (float-vector 615.0 -160.0 93.3013)))
-         (instance face :init :vertices (list (float-vector 640.0 -160.0 50.0) (float-vector 640.0 -135.0 50.0) (float-vector 633.301 -135.0 75.0) (float-vector 633.301 -160.0 75.0)))
+         (instance face :init :vertices (list (float-vector -12.5 16.25 0.0) (float-vector -37.5 16.25 0.0) (float-vector -37.5 16.25 -90.0) (float-vector -12.5 16.25 -90.0)))
+         (instance face :init :vertices (list (float-vector -37.5 18.75 0.0) (float-vector -12.5 18.75 0.0) (float-vector -12.5 18.75 -90.0) (float-vector -37.5 18.75 -90.0)))
+         (instance face :init :vertices (list (float-vector -12.5 16.25 0.0) (float-vector -12.5 18.75 0.0) (float-vector -37.5 18.75 0.0) (float-vector -37.5 16.25 0.0)))
+         (instance face :init :vertices (list (float-vector -12.5 16.25 -90.0) (float-vector -12.5 18.75 -90.0) (float-vector -12.5 18.75 0.0) (float-vector -12.5 16.25 0.0)))
+         (instance face :init :vertices (list (float-vector -37.5 16.25 -90.0) (float-vector -37.5 18.75 -90.0) (float-vector -12.5 18.75 -90.0) (float-vector -12.5 16.25 -90.0)))
+         (instance face :init :vertices (list (float-vector -37.5 16.25 0.0) (float-vector -37.5 18.75 0.0) (float-vector -37.5 18.75 -90.0) (float-vector -37.5 16.25 -90.0)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 602.5 -131.25 120.0) (float-vector 577.5 -131.25 120.0) (float-vector 577.5 -131.25 30.0) (float-vector 602.5 -131.25 30.0)))
-         (instance face :init :vertices (list (float-vector 577.5 -128.75 120.0) (float-vector 602.5 -128.75 120.0) (float-vector 602.5 -128.75 30.0) (float-vector 577.5 -128.75 30.0)))
-         (instance face :init :vertices (list (float-vector 602.5 -131.25 120.0) (float-vector 602.5 -128.75 120.0) (float-vector 577.5 -128.75 120.0) (float-vector 577.5 -131.25 120.0)))
-         (instance face :init :vertices (list (float-vector 602.5 -131.25 30.0) (float-vector 602.5 -128.75 30.0) (float-vector 602.5 -128.75 120.0) (float-vector 602.5 -131.25 120.0)))
-         (instance face :init :vertices (list (float-vector 577.5 -131.25 30.0) (float-vector 577.5 -128.75 30.0) (float-vector 602.5 -128.75 30.0) (float-vector 602.5 -131.25 30.0)))
-         (instance face :init :vertices (list (float-vector 577.5 -131.25 120.0) (float-vector 577.5 -128.75 120.0) (float-vector 577.5 -128.75 30.0) (float-vector 577.5 -131.25 30.0)))
+         (instance face :init :vertices (list (float-vector -12.5 -18.75 1.421085e-14) (float-vector -37.5 -18.75 1.421085e-14) (float-vector -37.5 -18.75 -90.0) (float-vector -12.5 -18.75 -90.0)))
+         (instance face :init :vertices (list (float-vector -37.5 -16.25 1.421085e-14) (float-vector -12.5 -16.25 1.421085e-14) (float-vector -12.5 -16.25 -90.0) (float-vector -37.5 -16.25 -90.0)))
+         (instance face :init :vertices (list (float-vector -12.5 -18.75 1.421085e-14) (float-vector -12.5 -16.25 1.421085e-14) (float-vector -37.5 -16.25 1.421085e-14) (float-vector -37.5 -18.75 1.421085e-14)))
+         (instance face :init :vertices (list (float-vector -12.5 -18.75 -90.0) (float-vector -12.5 -16.25 -90.0) (float-vector -12.5 -16.25 1.421085e-14) (float-vector -12.5 -18.75 1.421085e-14)))
+         (instance face :init :vertices (list (float-vector -37.5 -18.75 -90.0) (float-vector -37.5 -16.25 -90.0) (float-vector -12.5 -16.25 -90.0) (float-vector -12.5 -18.75 -90.0)))
+         (instance face :init :vertices (list (float-vector -37.5 -18.75 1.421085e-14) (float-vector -37.5 -16.25 1.421085e-14) (float-vector -37.5 -16.25 -90.0) (float-vector -37.5 -18.75 -90.0)))
        ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (send (elt bc 1) :set-color :gray)
+     (setq blink4 (instance bodyset-link :init (make-cascoords) :bodies bc :name :left-front-fork :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :front-left-wheel
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 602.5 -166.25 120.0) (float-vector 577.5 -166.25 120.0) (float-vector 577.5 -166.25 30.0) (float-vector 602.5 -166.25 30.0)))
-         (instance face :init :vertices (list (float-vector 577.5 -163.75 120.0) (float-vector 602.5 -163.75 120.0) (float-vector 602.5 -163.75 30.0) (float-vector 577.5 -163.75 30.0)))
-         (instance face :init :vertices (list (float-vector 602.5 -166.25 120.0) (float-vector 602.5 -163.75 120.0) (float-vector 577.5 -163.75 120.0) (float-vector 577.5 -166.25 120.0)))
-         (instance face :init :vertices (list (float-vector 602.5 -166.25 30.0) (float-vector 602.5 -163.75 30.0) (float-vector 602.5 -163.75 120.0) (float-vector 602.5 -166.25 120.0)))
-         (instance face :init :vertices (list (float-vector 577.5 -166.25 30.0) (float-vector 577.5 -163.75 30.0) (float-vector 602.5 -163.75 30.0) (float-vector 602.5 -166.25 30.0)))
-         (instance face :init :vertices (list (float-vector 577.5 -166.25 120.0) (float-vector 577.5 -163.75 120.0) (float-vector 577.5 -163.75 30.0) (float-vector 577.5 -166.25 30.0)))
+         (instance face :init :vertices (list (float-vector 48.2963 -12.5 -12.941) (float-vector 50.0 -12.5 7.105427e-15) (float-vector 48.2963 -12.5 12.941) (float-vector 43.3013 -12.5 25.0) (float-vector 35.3553 -12.5 35.3553) (float-vector 25.0 -12.5 43.3013) (float-vector 12.941 -12.5 48.2963) (float-vector 0.0 -12.5 50.0) (float-vector -12.941 -12.5 48.2963) (float-vector -25.0 -12.5 43.3013) (float-vector -35.3553 -12.5 35.3553) (float-vector -43.3013 -12.5 25.0) (float-vector -48.2963 -12.5 12.941) (float-vector -50.0 -12.5 4.973799e-14) (float-vector -48.2963 -12.5 -12.941) (float-vector -43.3013 -12.5 -25.0) (float-vector -35.3553 -12.5 -35.3553) (float-vector -25.0 -12.5 -43.3013) (float-vector -12.941 -12.5 -48.2963) (float-vector -1.136868e-13 -12.5 -50.0) (float-vector 12.941 -12.5 -48.2963) (float-vector 25.0 -12.5 -43.3013) (float-vector 35.3553 -12.5 -35.3553) (float-vector 43.3013 -12.5 -25.0)))
+         (instance face :init :vertices (list (float-vector 50.0 12.5 0.0) (float-vector 48.2963 12.5 -12.941) (float-vector 43.3013 12.5 -25.0) (float-vector 35.3553 12.5 -35.3553) (float-vector 25.0 12.5 -43.3013) (float-vector 12.941 12.5 -48.2963) (float-vector -1.136868e-13 12.5 -50.0) (float-vector -12.941 12.5 -48.2963) (float-vector -25.0 12.5 -43.3013) (float-vector -35.3553 12.5 -35.3553) (float-vector -43.3013 12.5 -25.0) (float-vector -48.2963 12.5 -12.941) (float-vector -50.0 12.5 4.263256e-14) (float-vector -48.2963 12.5 12.941) (float-vector -43.3013 12.5 25.0) (float-vector -35.3553 12.5 35.3553) (float-vector -25.0 12.5 43.3013) (float-vector -12.941 12.5 48.2963) (float-vector 0.0 12.5 50.0) (float-vector 12.941 12.5 48.2963) (float-vector 25.0 12.5 43.3013) (float-vector 35.3553 12.5 35.3553) (float-vector 43.3013 12.5 25.0) (float-vector 48.2963 12.5 12.941)))
+         (instance face :init :vertices (list (float-vector 48.2963 -12.5 -12.941) (float-vector 48.2963 12.5 -12.941) (float-vector 50.0 12.5 0.0) (float-vector 50.0 -12.5 7.105427e-15)))
+         (instance face :init :vertices (list (float-vector 43.3013 -12.5 -25.0) (float-vector 43.3013 12.5 -25.0) (float-vector 48.2963 12.5 -12.941) (float-vector 48.2963 -12.5 -12.941)))
+         (instance face :init :vertices (list (float-vector 35.3553 -12.5 -35.3553) (float-vector 35.3553 12.5 -35.3553) (float-vector 43.3013 12.5 -25.0) (float-vector 43.3013 -12.5 -25.0)))
+         (instance face :init :vertices (list (float-vector 25.0 -12.5 -43.3013) (float-vector 25.0 12.5 -43.3013) (float-vector 35.3553 12.5 -35.3553) (float-vector 35.3553 -12.5 -35.3553)))
+         (instance face :init :vertices (list (float-vector 12.941 -12.5 -48.2963) (float-vector 12.941 12.5 -48.2963) (float-vector 25.0 12.5 -43.3013) (float-vector 25.0 -12.5 -43.3013)))
+         (instance face :init :vertices (list (float-vector -1.136868e-13 -12.5 -50.0) (float-vector -1.136868e-13 12.5 -50.0) (float-vector 12.941 12.5 -48.2963) (float-vector 12.941 -12.5 -48.2963)))
+         (instance face :init :vertices (list (float-vector -12.941 -12.5 -48.2963) (float-vector -12.941 12.5 -48.2963) (float-vector -1.136868e-13 12.5 -50.0) (float-vector -1.136868e-13 -12.5 -50.0)))
+         (instance face :init :vertices (list (float-vector -25.0 -12.5 -43.3013) (float-vector -25.0 12.5 -43.3013) (float-vector -12.941 12.5 -48.2963) (float-vector -12.941 -12.5 -48.2963)))
+         (instance face :init :vertices (list (float-vector -35.3553 -12.5 -35.3553) (float-vector -35.3553 12.5 -35.3553) (float-vector -25.0 12.5 -43.3013) (float-vector -25.0 -12.5 -43.3013)))
+         (instance face :init :vertices (list (float-vector -43.3013 -12.5 -25.0) (float-vector -43.3013 12.5 -25.0) (float-vector -35.3553 12.5 -35.3553) (float-vector -35.3553 -12.5 -35.3553)))
+         (instance face :init :vertices (list (float-vector -48.2963 -12.5 -12.941) (float-vector -48.2963 12.5 -12.941) (float-vector -43.3013 12.5 -25.0) (float-vector -43.3013 -12.5 -25.0)))
+         (instance face :init :vertices (list (float-vector -50.0 -12.5 4.973799e-14) (float-vector -50.0 12.5 4.263256e-14) (float-vector -48.2963 12.5 -12.941) (float-vector -48.2963 -12.5 -12.941)))
+         (instance face :init :vertices (list (float-vector -48.2963 -12.5 12.941) (float-vector -48.2963 12.5 12.941) (float-vector -50.0 12.5 4.263256e-14) (float-vector -50.0 -12.5 4.973799e-14)))
+         (instance face :init :vertices (list (float-vector -43.3013 -12.5 25.0) (float-vector -43.3013 12.5 25.0) (float-vector -48.2963 12.5 12.941) (float-vector -48.2963 -12.5 12.941)))
+         (instance face :init :vertices (list (float-vector -35.3553 -12.5 35.3553) (float-vector -35.3553 12.5 35.3553) (float-vector -43.3013 12.5 25.0) (float-vector -43.3013 -12.5 25.0)))
+         (instance face :init :vertices (list (float-vector -25.0 -12.5 43.3013) (float-vector -25.0 12.5 43.3013) (float-vector -35.3553 12.5 35.3553) (float-vector -35.3553 -12.5 35.3553)))
+         (instance face :init :vertices (list (float-vector -12.941 -12.5 48.2963) (float-vector -12.941 12.5 48.2963) (float-vector -25.0 12.5 43.3013) (float-vector -25.0 -12.5 43.3013)))
+         (instance face :init :vertices (list (float-vector 0.0 -12.5 50.0) (float-vector 0.0 12.5 50.0) (float-vector -12.941 12.5 48.2963) (float-vector -12.941 -12.5 48.2963)))
+         (instance face :init :vertices (list (float-vector 12.941 -12.5 48.2963) (float-vector 12.941 12.5 48.2963) (float-vector 0.0 12.5 50.0) (float-vector 0.0 -12.5 50.0)))
+         (instance face :init :vertices (list (float-vector 25.0 -12.5 43.3013) (float-vector 25.0 12.5 43.3013) (float-vector 12.941 12.5 48.2963) (float-vector 12.941 -12.5 48.2963)))
+         (instance face :init :vertices (list (float-vector 35.3553 -12.5 35.3553) (float-vector 35.3553 12.5 35.3553) (float-vector 25.0 12.5 43.3013) (float-vector 25.0 -12.5 43.3013)))
+         (instance face :init :vertices (list (float-vector 43.3013 -12.5 25.0) (float-vector 43.3013 12.5 25.0) (float-vector 35.3553 12.5 35.3553) (float-vector 35.3553 -12.5 35.3553)))
+         (instance face :init :vertices (list (float-vector 48.2963 -12.5 12.941) (float-vector 48.2963 12.5 12.941) (float-vector 43.3013 12.5 25.0) (float-vector 43.3013 -12.5 25.0)))
+         (instance face :init :vertices (list (float-vector 50.0 -12.5 7.105427e-15) (float-vector 50.0 12.5 0.0) (float-vector 48.2963 12.5 12.941) (float-vector 48.2963 -12.5 12.941)))
        ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (setq blink5 (instance bodyset-link :init (make-cascoords) :bodies bc :name :front-left-wheel :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :right-front-fork
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 88.6603 -155.0 855.0) (float-vector 90.0 -155.0 860.0) (float-vector 88.6603 -155.0 865.0) (float-vector 85.0 -155.0 868.66) (float-vector 80.0 -155.0 870.0) (float-vector 75.0 -155.0 868.66) (float-vector 71.3397 -155.0 865.0) (float-vector 70.0 -155.0 860.0) (float-vector 71.3397 -155.0 855.0) (float-vector 75.0 -155.0 851.34) (float-vector 80.0 -155.0 850.0) (float-vector 85.0 -155.0 851.34)))
-         (instance face :init :vertices (list (float-vector 90.0 155.0 860.0) (float-vector 88.6603 155.0 855.0) (float-vector 85.0 155.0 851.34) (float-vector 80.0 155.0 850.0) (float-vector 75.0 155.0 851.34) (float-vector 71.3397 155.0 855.0) (float-vector 70.0 155.0 860.0) (float-vector 71.3397 155.0 865.0) (float-vector 75.0 155.0 868.66) (float-vector 80.0 155.0 870.0) (float-vector 85.0 155.0 868.66) (float-vector 88.6603 155.0 865.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 -155.0 855.0) (float-vector 88.6603 155.0 855.0) (float-vector 90.0 155.0 860.0) (float-vector 90.0 -155.0 860.0)))
-         (instance face :init :vertices (list (float-vector 85.0 -155.0 851.34) (float-vector 85.0 155.0 851.34) (float-vector 88.6603 155.0 855.0) (float-vector 88.6603 -155.0 855.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -155.0 850.0) (float-vector 80.0 155.0 850.0) (float-vector 85.0 155.0 851.34) (float-vector 85.0 -155.0 851.34)))
-         (instance face :init :vertices (list (float-vector 75.0 -155.0 851.34) (float-vector 75.0 155.0 851.34) (float-vector 80.0 155.0 850.0) (float-vector 80.0 -155.0 850.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 -155.0 855.0) (float-vector 71.3397 155.0 855.0) (float-vector 75.0 155.0 851.34) (float-vector 75.0 -155.0 851.34)))
-         (instance face :init :vertices (list (float-vector 70.0 -155.0 860.0) (float-vector 70.0 155.0 860.0) (float-vector 71.3397 155.0 855.0) (float-vector 71.3397 -155.0 855.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 -155.0 865.0) (float-vector 71.3397 155.0 865.0) (float-vector 70.0 155.0 860.0) (float-vector 70.0 -155.0 860.0)))
-         (instance face :init :vertices (list (float-vector 75.0 -155.0 868.66) (float-vector 75.0 155.0 868.66) (float-vector 71.3397 155.0 865.0) (float-vector 71.3397 -155.0 865.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -155.0 870.0) (float-vector 80.0 155.0 870.0) (float-vector 75.0 155.0 868.66) (float-vector 75.0 -155.0 868.66)))
-         (instance face :init :vertices (list (float-vector 85.0 -155.0 868.66) (float-vector 85.0 155.0 868.66) (float-vector 80.0 155.0 870.0) (float-vector 80.0 -155.0 870.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 -155.0 865.0) (float-vector 88.6603 155.0 865.0) (float-vector 85.0 155.0 868.66) (float-vector 85.0 -155.0 868.66)))
-         (instance face :init :vertices (list (float-vector 90.0 -155.0 860.0) (float-vector 90.0 155.0 860.0) (float-vector 88.6603 155.0 865.0) (float-vector 88.6603 -155.0 865.0)))
+         (instance face :init :vertices (list (float-vector -12.5 16.25 0.0) (float-vector -37.5 16.25 0.0) (float-vector -37.5 16.25 -90.0) (float-vector -12.5 16.25 -90.0)))
+         (instance face :init :vertices (list (float-vector -37.5 18.75 0.0) (float-vector -12.5 18.75 0.0) (float-vector -12.5 18.75 -90.0) (float-vector -37.5 18.75 -90.0)))
+         (instance face :init :vertices (list (float-vector -12.5 16.25 0.0) (float-vector -12.5 18.75 0.0) (float-vector -37.5 18.75 0.0) (float-vector -37.5 16.25 0.0)))
+         (instance face :init :vertices (list (float-vector -12.5 16.25 -90.0) (float-vector -12.5 18.75 -90.0) (float-vector -12.5 18.75 0.0) (float-vector -12.5 16.25 0.0)))
+         (instance face :init :vertices (list (float-vector -37.5 16.25 -90.0) (float-vector -37.5 18.75 -90.0) (float-vector -12.5 18.75 -90.0) (float-vector -12.5 16.25 -90.0)))
+         (instance face :init :vertices (list (float-vector -37.5 16.25 0.0) (float-vector -37.5 18.75 0.0) (float-vector -37.5 18.75 -90.0) (float-vector -37.5 16.25 -90.0)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 80.0 -155.0 870.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 -155.0 867.071) (float-vector 80.0 -155.0 870.0) (float-vector 80.0 -181.788 864.672) (float-vector 72.9289 -180.667 861.966)))
-         (instance face :init :vertices (list (float-vector 80.0 -181.788 864.672) (float-vector 80.0 -204.497 849.497) (float-vector 72.9289 -202.426 847.426) (float-vector 72.9289 -180.667 861.966)))
-         (instance face :init :vertices (list (float-vector 80.0 -204.497 849.497) (float-vector 80.0 -219.672 826.788) (float-vector 72.9289 -216.966 825.667) (float-vector 72.9289 -202.426 847.426)))
-         (instance face :init :vertices (list (float-vector 72.9289 -222.071 800.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -219.672 826.788) (float-vector 80.0 -225.0 800.0) (float-vector 72.9289 -222.071 800.0) (float-vector 72.9289 -216.966 825.667)))
-         (instance face :init :vertices (list (float-vector 72.9289 -155.0 867.071)))
-         (instance face :init :vertices (list (float-vector 70.0 -155.0 860.0) (float-vector 72.9289 -155.0 867.071) (float-vector 72.9289 -180.667 861.966) (float-vector 70.0 -177.961 855.433)))
-         (instance face :init :vertices (list (float-vector 72.9289 -202.426 847.426) (float-vector 70.0 -197.426 842.426) (float-vector 70.0 -177.961 855.433) (float-vector 72.9289 -180.667 861.966)))
-         (instance face :init :vertices (list (float-vector 72.9289 -216.966 825.667) (float-vector 70.0 -210.433 822.961) (float-vector 70.0 -197.426 842.426) (float-vector 72.9289 -202.426 847.426)))
-         (instance face :init :vertices (list (float-vector 70.0 -215.0 800.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 -222.071 800.0) (float-vector 70.0 -215.0 800.0) (float-vector 70.0 -210.433 822.961) (float-vector 72.9289 -216.966 825.667)))
-         (instance face :init :vertices (list (float-vector 70.0 -155.0 860.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 -155.0 852.929) (float-vector 70.0 -155.0 860.0) (float-vector 70.0 -177.961 855.433) (float-vector 72.9289 -175.255 848.9)))
-         (instance face :init :vertices (list (float-vector 70.0 -197.426 842.426) (float-vector 72.9289 -192.426 837.426) (float-vector 72.9289 -175.255 848.9) (float-vector 70.0 -177.961 855.433)))
-         (instance face :init :vertices (list (float-vector 70.0 -210.433 822.961) (float-vector 72.9289 -203.9 820.255) (float-vector 72.9289 -192.426 837.426) (float-vector 70.0 -197.426 842.426)))
-         (instance face :init :vertices (list (float-vector 72.9289 -207.929 800.0)))
-         (instance face :init :vertices (list (float-vector 70.0 -215.0 800.0) (float-vector 72.9289 -207.929 800.0) (float-vector 72.9289 -203.9 820.255) (float-vector 70.0 -210.433 822.961)))
-         (instance face :init :vertices (list (float-vector 72.9289 -155.0 852.929)))
-         (instance face :init :vertices (list (float-vector 80.0 -155.0 850.0) (float-vector 72.9289 -155.0 852.929) (float-vector 72.9289 -175.255 848.9) (float-vector 80.0 -174.134 846.194)))
-         (instance face :init :vertices (list (float-vector 72.9289 -192.426 837.426) (float-vector 80.0 -190.355 835.355) (float-vector 80.0 -174.134 846.194) (float-vector 72.9289 -175.255 848.9)))
-         (instance face :init :vertices (list (float-vector 72.9289 -203.9 820.255) (float-vector 80.0 -201.194 819.134) (float-vector 80.0 -190.355 835.355) (float-vector 72.9289 -192.426 837.426)))
-         (instance face :init :vertices (list (float-vector 80.0 -205.0 800.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 -207.929 800.0) (float-vector 80.0 -205.0 800.0) (float-vector 80.0 -201.194 819.134) (float-vector 72.9289 -203.9 820.255)))
-         (instance face :init :vertices (list (float-vector 80.0 -155.0 850.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 -155.0 852.929) (float-vector 80.0 -155.0 850.0) (float-vector 80.0 -174.134 846.194) (float-vector 87.0711 -175.255 848.9)))
-         (instance face :init :vertices (list (float-vector 80.0 -190.355 835.355) (float-vector 87.0711 -192.426 837.426) (float-vector 87.0711 -175.255 848.9) (float-vector 80.0 -174.134 846.194)))
-         (instance face :init :vertices (list (float-vector 80.0 -201.194 819.134) (float-vector 87.0711 -203.9 820.255) (float-vector 87.0711 -192.426 837.426) (float-vector 80.0 -190.355 835.355)))
-         (instance face :init :vertices (list (float-vector 87.0711 -207.929 800.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -205.0 800.0) (float-vector 87.0711 -207.929 800.0) (float-vector 87.0711 -203.9 820.255) (float-vector 80.0 -201.194 819.134)))
-         (instance face :init :vertices (list (float-vector 87.0711 -155.0 852.929)))
-         (instance face :init :vertices (list (float-vector 90.0 -155.0 860.0) (float-vector 87.0711 -155.0 852.929) (float-vector 87.0711 -175.255 848.9) (float-vector 90.0 -177.961 855.433)))
-         (instance face :init :vertices (list (float-vector 87.0711 -192.426 837.426) (float-vector 90.0 -197.426 842.426) (float-vector 90.0 -177.961 855.433) (float-vector 87.0711 -175.255 848.9)))
-         (instance face :init :vertices (list (float-vector 87.0711 -203.9 820.255) (float-vector 90.0 -210.433 822.961) (float-vector 90.0 -197.426 842.426) (float-vector 87.0711 -192.426 837.426)))
-         (instance face :init :vertices (list (float-vector 90.0 -215.0 800.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 -207.929 800.0) (float-vector 90.0 -215.0 800.0) (float-vector 90.0 -210.433 822.961) (float-vector 87.0711 -203.9 820.255)))
-         (instance face :init :vertices (list (float-vector 90.0 -155.0 860.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 -155.0 867.071) (float-vector 90.0 -155.0 860.0) (float-vector 90.0 -177.961 855.433) (float-vector 87.0711 -180.667 861.966)))
-         (instance face :init :vertices (list (float-vector 90.0 -197.426 842.426) (float-vector 87.0711 -202.426 847.426) (float-vector 87.0711 -180.667 861.966) (float-vector 90.0 -177.961 855.433)))
-         (instance face :init :vertices (list (float-vector 90.0 -210.433 822.961) (float-vector 87.0711 -216.966 825.667) (float-vector 87.0711 -202.426 847.426) (float-vector 90.0 -197.426 842.426)))
-         (instance face :init :vertices (list (float-vector 87.0711 -222.071 800.0)))
-         (instance face :init :vertices (list (float-vector 90.0 -215.0 800.0) (float-vector 87.0711 -222.071 800.0) (float-vector 87.0711 -216.966 825.667) (float-vector 90.0 -210.433 822.961)))
-         (instance face :init :vertices (list (float-vector 87.0711 -155.0 867.071)))
-         (instance face :init :vertices (list (float-vector 80.0 -155.0 870.0) (float-vector 87.0711 -155.0 867.071) (float-vector 87.0711 -180.667 861.966) (float-vector 80.0 -181.788 864.672)))
-         (instance face :init :vertices (list (float-vector 87.0711 -202.426 847.426) (float-vector 80.0 -204.497 849.497) (float-vector 80.0 -181.788 864.672) (float-vector 87.0711 -180.667 861.966)))
-         (instance face :init :vertices (list (float-vector 87.0711 -216.966 825.667) (float-vector 80.0 -219.672 826.788) (float-vector 80.0 -204.497 849.497) (float-vector 87.0711 -202.426 847.426)))
-         (instance face :init :vertices (list (float-vector 80.0 -225.0 800.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 -222.071 800.0) (float-vector 80.0 -225.0 800.0) (float-vector 80.0 -219.672 826.788) (float-vector 87.0711 -216.966 825.667)))
+         (instance face :init :vertices (list (float-vector -12.5 -18.75 1.421085e-14) (float-vector -37.5 -18.75 1.421085e-14) (float-vector -37.5 -18.75 -90.0) (float-vector -12.5 -18.75 -90.0)))
+         (instance face :init :vertices (list (float-vector -37.5 -16.25 1.421085e-14) (float-vector -12.5 -16.25 1.421085e-14) (float-vector -12.5 -16.25 -90.0) (float-vector -37.5 -16.25 -90.0)))
+         (instance face :init :vertices (list (float-vector -12.5 -18.75 1.421085e-14) (float-vector -12.5 -16.25 1.421085e-14) (float-vector -37.5 -16.25 1.421085e-14) (float-vector -37.5 -18.75 1.421085e-14)))
+         (instance face :init :vertices (list (float-vector -12.5 -18.75 -90.0) (float-vector -12.5 -16.25 -90.0) (float-vector -12.5 -16.25 1.421085e-14) (float-vector -12.5 -18.75 1.421085e-14)))
+         (instance face :init :vertices (list (float-vector -37.5 -18.75 -90.0) (float-vector -37.5 -16.25 -90.0) (float-vector -12.5 -16.25 -90.0) (float-vector -12.5 -18.75 -90.0)))
+         (instance face :init :vertices (list (float-vector -37.5 -18.75 1.421085e-14) (float-vector -37.5 -16.25 1.421085e-14) (float-vector -37.5 -16.25 -90.0) (float-vector -37.5 -18.75 -90.0)))
        ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (send (elt bc 1) :set-color :gray)
+     (setq blink6 (instance bodyset-link :init (make-cascoords) :bodies bc :name :right-front-fork :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :front-right-wheel
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 80.0 155.0 870.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 155.0 867.071) (float-vector 80.0 155.0 870.0) (float-vector 80.0 181.788 864.672) (float-vector 87.0711 180.667 861.966)))
-         (instance face :init :vertices (list (float-vector 80.0 181.788 864.672) (float-vector 80.0 204.497 849.497) (float-vector 87.0711 202.426 847.426) (float-vector 87.0711 180.667 861.966)))
-         (instance face :init :vertices (list (float-vector 80.0 204.497 849.497) (float-vector 80.0 219.672 826.788) (float-vector 87.0711 216.966 825.667) (float-vector 87.0711 202.426 847.426)))
-         (instance face :init :vertices (list (float-vector 87.0711 222.071 800.0)))
-         (instance face :init :vertices (list (float-vector 80.0 219.672 826.788) (float-vector 80.0 225.0 800.0) (float-vector 87.0711 222.071 800.0) (float-vector 87.0711 216.966 825.667)))
-         (instance face :init :vertices (list (float-vector 87.0711 155.0 867.071)))
-         (instance face :init :vertices (list (float-vector 90.0 155.0 860.0) (float-vector 87.0711 155.0 867.071) (float-vector 87.0711 180.667 861.966) (float-vector 90.0 177.961 855.433)))
-         (instance face :init :vertices (list (float-vector 87.0711 202.426 847.426) (float-vector 90.0 197.426 842.426) (float-vector 90.0 177.961 855.433) (float-vector 87.0711 180.667 861.966)))
-         (instance face :init :vertices (list (float-vector 87.0711 216.966 825.667) (float-vector 90.0 210.433 822.961) (float-vector 90.0 197.426 842.426) (float-vector 87.0711 202.426 847.426)))
-         (instance face :init :vertices (list (float-vector 90.0 215.0 800.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 222.071 800.0) (float-vector 90.0 215.0 800.0) (float-vector 90.0 210.433 822.961) (float-vector 87.0711 216.966 825.667)))
-         (instance face :init :vertices (list (float-vector 90.0 155.0 860.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 155.0 852.929) (float-vector 90.0 155.0 860.0) (float-vector 90.0 177.961 855.433) (float-vector 87.0711 175.255 848.9)))
-         (instance face :init :vertices (list (float-vector 90.0 197.426 842.426) (float-vector 87.0711 192.426 837.426) (float-vector 87.0711 175.255 848.9) (float-vector 90.0 177.961 855.433)))
-         (instance face :init :vertices (list (float-vector 90.0 210.433 822.961) (float-vector 87.0711 203.9 820.255) (float-vector 87.0711 192.426 837.426) (float-vector 90.0 197.426 842.426)))
-         (instance face :init :vertices (list (float-vector 87.0711 207.929 800.0)))
-         (instance face :init :vertices (list (float-vector 90.0 215.0 800.0) (float-vector 87.0711 207.929 800.0) (float-vector 87.0711 203.9 820.255) (float-vector 90.0 210.433 822.961)))
-         (instance face :init :vertices (list (float-vector 87.0711 155.0 852.929)))
-         (instance face :init :vertices (list (float-vector 80.0 155.0 850.0) (float-vector 87.0711 155.0 852.929) (float-vector 87.0711 175.255 848.9) (float-vector 80.0 174.134 846.194)))
-         (instance face :init :vertices (list (float-vector 87.0711 192.426 837.426) (float-vector 80.0 190.355 835.355) (float-vector 80.0 174.134 846.194) (float-vector 87.0711 175.255 848.9)))
-         (instance face :init :vertices (list (float-vector 87.0711 203.9 820.255) (float-vector 80.0 201.194 819.134) (float-vector 80.0 190.355 835.355) (float-vector 87.0711 192.426 837.426)))
-         (instance face :init :vertices (list (float-vector 80.0 205.0 800.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 207.929 800.0) (float-vector 80.0 205.0 800.0) (float-vector 80.0 201.194 819.134) (float-vector 87.0711 203.9 820.255)))
-         (instance face :init :vertices (list (float-vector 80.0 155.0 850.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 155.0 852.929) (float-vector 80.0 155.0 850.0) (float-vector 80.0 174.134 846.194) (float-vector 72.9289 175.255 848.9)))
-         (instance face :init :vertices (list (float-vector 80.0 190.355 835.355) (float-vector 72.9289 192.426 837.426) (float-vector 72.9289 175.255 848.9) (float-vector 80.0 174.134 846.194)))
-         (instance face :init :vertices (list (float-vector 80.0 201.194 819.134) (float-vector 72.9289 203.9 820.255) (float-vector 72.9289 192.426 837.426) (float-vector 80.0 190.355 835.355)))
-         (instance face :init :vertices (list (float-vector 72.9289 207.929 800.0)))
-         (instance face :init :vertices (list (float-vector 80.0 205.0 800.0) (float-vector 72.9289 207.929 800.0) (float-vector 72.9289 203.9 820.255) (float-vector 80.0 201.194 819.134)))
-         (instance face :init :vertices (list (float-vector 72.9289 155.0 852.929)))
-         (instance face :init :vertices (list (float-vector 70.0 155.0 860.0) (float-vector 72.9289 155.0 852.929) (float-vector 72.9289 175.255 848.9) (float-vector 70.0 177.961 855.433)))
-         (instance face :init :vertices (list (float-vector 72.9289 192.426 837.426) (float-vector 70.0 197.426 842.426) (float-vector 70.0 177.961 855.433) (float-vector 72.9289 175.255 848.9)))
-         (instance face :init :vertices (list (float-vector 72.9289 203.9 820.255) (float-vector 70.0 210.433 822.961) (float-vector 70.0 197.426 842.426) (float-vector 72.9289 192.426 837.426)))
-         (instance face :init :vertices (list (float-vector 70.0 215.0 800.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 207.929 800.0) (float-vector 70.0 215.0 800.0) (float-vector 70.0 210.433 822.961) (float-vector 72.9289 203.9 820.255)))
-         (instance face :init :vertices (list (float-vector 70.0 155.0 860.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 155.0 867.071) (float-vector 70.0 155.0 860.0) (float-vector 70.0 177.961 855.433) (float-vector 72.9289 180.667 861.966)))
-         (instance face :init :vertices (list (float-vector 70.0 197.426 842.426) (float-vector 72.9289 202.426 847.426) (float-vector 72.9289 180.667 861.966) (float-vector 70.0 177.961 855.433)))
-         (instance face :init :vertices (list (float-vector 70.0 210.433 822.961) (float-vector 72.9289 216.966 825.667) (float-vector 72.9289 202.426 847.426) (float-vector 70.0 197.426 842.426)))
-         (instance face :init :vertices (list (float-vector 72.9289 222.071 800.0)))
-         (instance face :init :vertices (list (float-vector 70.0 215.0 800.0) (float-vector 72.9289 222.071 800.0) (float-vector 72.9289 216.966 825.667) (float-vector 70.0 210.433 822.961)))
-         (instance face :init :vertices (list (float-vector 72.9289 155.0 867.071)))
-         (instance face :init :vertices (list (float-vector 80.0 155.0 870.0) (float-vector 72.9289 155.0 867.071) (float-vector 72.9289 180.667 861.966) (float-vector 80.0 181.788 864.672)))
-         (instance face :init :vertices (list (float-vector 72.9289 202.426 847.426) (float-vector 80.0 204.497 849.497) (float-vector 80.0 181.788 864.672) (float-vector 72.9289 180.667 861.966)))
-         (instance face :init :vertices (list (float-vector 72.9289 216.966 825.667) (float-vector 80.0 219.672 826.788) (float-vector 80.0 204.497 849.497) (float-vector 72.9289 202.426 847.426)))
-         (instance face :init :vertices (list (float-vector 80.0 225.0 800.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 222.071 800.0) (float-vector 80.0 225.0 800.0) (float-vector 80.0 219.672 826.788) (float-vector 72.9289 216.966 825.667)))
+         (instance face :init :vertices (list (float-vector 48.2963 -12.5 -12.941) (float-vector 50.0 -12.5 7.105427e-15) (float-vector 48.2963 -12.5 12.941) (float-vector 43.3013 -12.5 25.0) (float-vector 35.3553 -12.5 35.3553) (float-vector 25.0 -12.5 43.3013) (float-vector 12.941 -12.5 48.2963) (float-vector 0.0 -12.5 50.0) (float-vector -12.941 -12.5 48.2963) (float-vector -25.0 -12.5 43.3013) (float-vector -35.3553 -12.5 35.3553) (float-vector -43.3013 -12.5 25.0) (float-vector -48.2963 -12.5 12.941) (float-vector -50.0 -12.5 4.973799e-14) (float-vector -48.2963 -12.5 -12.941) (float-vector -43.3013 -12.5 -25.0) (float-vector -35.3553 -12.5 -35.3553) (float-vector -25.0 -12.5 -43.3013) (float-vector -12.941 -12.5 -48.2963) (float-vector -1.136868e-13 -12.5 -50.0) (float-vector 12.941 -12.5 -48.2963) (float-vector 25.0 -12.5 -43.3013) (float-vector 35.3553 -12.5 -35.3553) (float-vector 43.3013 -12.5 -25.0)))
+         (instance face :init :vertices (list (float-vector 50.0 12.5 0.0) (float-vector 48.2963 12.5 -12.941) (float-vector 43.3013 12.5 -25.0) (float-vector 35.3553 12.5 -35.3553) (float-vector 25.0 12.5 -43.3013) (float-vector 12.941 12.5 -48.2963) (float-vector -1.136868e-13 12.5 -50.0) (float-vector -12.941 12.5 -48.2963) (float-vector -25.0 12.5 -43.3013) (float-vector -35.3553 12.5 -35.3553) (float-vector -43.3013 12.5 -25.0) (float-vector -48.2963 12.5 -12.941) (float-vector -50.0 12.5 4.263256e-14) (float-vector -48.2963 12.5 12.941) (float-vector -43.3013 12.5 25.0) (float-vector -35.3553 12.5 35.3553) (float-vector -25.0 12.5 43.3013) (float-vector -12.941 12.5 48.2963) (float-vector 0.0 12.5 50.0) (float-vector 12.941 12.5 48.2963) (float-vector 25.0 12.5 43.3013) (float-vector 35.3553 12.5 35.3553) (float-vector 43.3013 12.5 25.0) (float-vector 48.2963 12.5 12.941)))
+         (instance face :init :vertices (list (float-vector 48.2963 -12.5 -12.941) (float-vector 48.2963 12.5 -12.941) (float-vector 50.0 12.5 0.0) (float-vector 50.0 -12.5 7.105427e-15)))
+         (instance face :init :vertices (list (float-vector 43.3013 -12.5 -25.0) (float-vector 43.3013 12.5 -25.0) (float-vector 48.2963 12.5 -12.941) (float-vector 48.2963 -12.5 -12.941)))
+         (instance face :init :vertices (list (float-vector 35.3553 -12.5 -35.3553) (float-vector 35.3553 12.5 -35.3553) (float-vector 43.3013 12.5 -25.0) (float-vector 43.3013 -12.5 -25.0)))
+         (instance face :init :vertices (list (float-vector 25.0 -12.5 -43.3013) (float-vector 25.0 12.5 -43.3013) (float-vector 35.3553 12.5 -35.3553) (float-vector 35.3553 -12.5 -35.3553)))
+         (instance face :init :vertices (list (float-vector 12.941 -12.5 -48.2963) (float-vector 12.941 12.5 -48.2963) (float-vector 25.0 12.5 -43.3013) (float-vector 25.0 -12.5 -43.3013)))
+         (instance face :init :vertices (list (float-vector -1.136868e-13 -12.5 -50.0) (float-vector -1.136868e-13 12.5 -50.0) (float-vector 12.941 12.5 -48.2963) (float-vector 12.941 -12.5 -48.2963)))
+         (instance face :init :vertices (list (float-vector -12.941 -12.5 -48.2963) (float-vector -12.941 12.5 -48.2963) (float-vector -1.136868e-13 12.5 -50.0) (float-vector -1.136868e-13 -12.5 -50.0)))
+         (instance face :init :vertices (list (float-vector -25.0 -12.5 -43.3013) (float-vector -25.0 12.5 -43.3013) (float-vector -12.941 12.5 -48.2963) (float-vector -12.941 -12.5 -48.2963)))
+         (instance face :init :vertices (list (float-vector -35.3553 -12.5 -35.3553) (float-vector -35.3553 12.5 -35.3553) (float-vector -25.0 12.5 -43.3013) (float-vector -25.0 -12.5 -43.3013)))
+         (instance face :init :vertices (list (float-vector -43.3013 -12.5 -25.0) (float-vector -43.3013 12.5 -25.0) (float-vector -35.3553 12.5 -35.3553) (float-vector -35.3553 -12.5 -35.3553)))
+         (instance face :init :vertices (list (float-vector -48.2963 -12.5 -12.941) (float-vector -48.2963 12.5 -12.941) (float-vector -43.3013 12.5 -25.0) (float-vector -43.3013 -12.5 -25.0)))
+         (instance face :init :vertices (list (float-vector -50.0 -12.5 4.973799e-14) (float-vector -50.0 12.5 4.263256e-14) (float-vector -48.2963 12.5 -12.941) (float-vector -48.2963 -12.5 -12.941)))
+         (instance face :init :vertices (list (float-vector -48.2963 -12.5 12.941) (float-vector -48.2963 12.5 12.941) (float-vector -50.0 12.5 4.263256e-14) (float-vector -50.0 -12.5 4.973799e-14)))
+         (instance face :init :vertices (list (float-vector -43.3013 -12.5 25.0) (float-vector -43.3013 12.5 25.0) (float-vector -48.2963 12.5 12.941) (float-vector -48.2963 -12.5 12.941)))
+         (instance face :init :vertices (list (float-vector -35.3553 -12.5 35.3553) (float-vector -35.3553 12.5 35.3553) (float-vector -43.3013 12.5 25.0) (float-vector -43.3013 -12.5 25.0)))
+         (instance face :init :vertices (list (float-vector -25.0 -12.5 43.3013) (float-vector -25.0 12.5 43.3013) (float-vector -35.3553 12.5 35.3553) (float-vector -35.3553 -12.5 35.3553)))
+         (instance face :init :vertices (list (float-vector -12.941 -12.5 48.2963) (float-vector -12.941 12.5 48.2963) (float-vector -25.0 12.5 43.3013) (float-vector -25.0 -12.5 43.3013)))
+         (instance face :init :vertices (list (float-vector 0.0 -12.5 50.0) (float-vector 0.0 12.5 50.0) (float-vector -12.941 12.5 48.2963) (float-vector -12.941 -12.5 48.2963)))
+         (instance face :init :vertices (list (float-vector 12.941 -12.5 48.2963) (float-vector 12.941 12.5 48.2963) (float-vector 0.0 12.5 50.0) (float-vector 0.0 -12.5 50.0)))
+         (instance face :init :vertices (list (float-vector 25.0 -12.5 43.3013) (float-vector 25.0 12.5 43.3013) (float-vector 12.941 12.5 48.2963) (float-vector 12.941 -12.5 48.2963)))
+         (instance face :init :vertices (list (float-vector 35.3553 -12.5 35.3553) (float-vector 35.3553 12.5 35.3553) (float-vector 25.0 12.5 43.3013) (float-vector 25.0 -12.5 43.3013)))
+         (instance face :init :vertices (list (float-vector 43.3013 -12.5 25.0) (float-vector 43.3013 12.5 25.0) (float-vector 35.3553 12.5 35.3553) (float-vector 35.3553 -12.5 35.3553)))
+         (instance face :init :vertices (list (float-vector 48.2963 -12.5 12.941) (float-vector 48.2963 12.5 12.941) (float-vector 43.3013 12.5 25.0) (float-vector 43.3013 -12.5 25.0)))
+         (instance face :init :vertices (list (float-vector 50.0 -12.5 7.105427e-15) (float-vector 50.0 12.5 0.0) (float-vector 48.2963 12.5 12.941) (float-vector 48.2963 -12.5 12.941)))
        ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (setq blink7 (instance bodyset-link :init (make-cascoords) :bodies bc :name :front-right-wheel :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :bar
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 88.6603 -220.0 800.0) (float-vector 90.0 -215.0 800.0) (float-vector 88.6603 -210.0 800.0) (float-vector 85.0 -206.34 800.0) (float-vector 80.0 -205.0 800.0) (float-vector 75.0 -206.34 800.0) (float-vector 71.3397 -210.0 800.0) (float-vector 70.0 -215.0 800.0) (float-vector 71.3397 -220.0 800.0) (float-vector 75.0 -223.66 800.0) (float-vector 80.0 -225.0 800.0) (float-vector 85.0 -223.66 800.0)))
-         (instance face :init :vertices (list (float-vector 90.0 -215.0 160.0) (float-vector 88.6603 -220.0 160.0) (float-vector 85.0 -223.66 160.0) (float-vector 80.0 -225.0 160.0) (float-vector 75.0 -223.66 160.0) (float-vector 71.3397 -220.0 160.0) (float-vector 70.0 -215.0 160.0) (float-vector 71.3397 -210.0 160.0) (float-vector 75.0 -206.34 160.0) (float-vector 80.0 -205.0 160.0) (float-vector 85.0 -206.34 160.0) (float-vector 88.6603 -210.0 160.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 -220.0 800.0) (float-vector 88.6603 -220.0 160.0) (float-vector 90.0 -215.0 160.0) (float-vector 90.0 -215.0 800.0)))
-         (instance face :init :vertices (list (float-vector 85.0 -223.66 800.0) (float-vector 85.0 -223.66 160.0) (float-vector 88.6603 -220.0 160.0) (float-vector 88.6603 -220.0 800.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -225.0 800.0) (float-vector 80.0 -225.0 160.0) (float-vector 85.0 -223.66 160.0) (float-vector 85.0 -223.66 800.0)))
-         (instance face :init :vertices (list (float-vector 75.0 -223.66 800.0) (float-vector 75.0 -223.66 160.0) (float-vector 80.0 -225.0 160.0) (float-vector 80.0 -225.0 800.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 -220.0 800.0) (float-vector 71.3397 -220.0 160.0) (float-vector 75.0 -223.66 160.0) (float-vector 75.0 -223.66 800.0)))
-         (instance face :init :vertices (list (float-vector 70.0 -215.0 800.0) (float-vector 70.0 -215.0 160.0) (float-vector 71.3397 -220.0 160.0) (float-vector 71.3397 -220.0 800.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 -210.0 800.0) (float-vector 71.3397 -210.0 160.0) (float-vector 70.0 -215.0 160.0) (float-vector 70.0 -215.0 800.0)))
-         (instance face :init :vertices (list (float-vector 75.0 -206.34 800.0) (float-vector 75.0 -206.34 160.0) (float-vector 71.3397 -210.0 160.0) (float-vector 71.3397 -210.0 800.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -205.0 800.0) (float-vector 80.0 -205.0 160.0) (float-vector 75.0 -206.34 160.0) (float-vector 75.0 -206.34 800.0)))
-         (instance face :init :vertices (list (float-vector 85.0 -206.34 800.0) (float-vector 85.0 -206.34 160.0) (float-vector 80.0 -205.0 160.0) (float-vector 80.0 -205.0 800.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 -210.0 800.0) (float-vector 88.6603 -210.0 160.0) (float-vector 85.0 -206.34 160.0) (float-vector 85.0 -206.34 800.0)))
-         (instance face :init :vertices (list (float-vector 90.0 -215.0 800.0) (float-vector 90.0 -215.0 160.0) (float-vector 88.6603 -210.0 160.0) (float-vector 88.6603 -210.0 800.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 -155.0 695.0) (float-vector 10.0 -155.0 700.0) (float-vector 8.66025 -155.0 705.0) (float-vector 5.0 -155.0 708.66) (float-vector 0.0 -155.0 710.0) (float-vector -5.0 -155.0 708.66) (float-vector -8.66025 -155.0 705.0) (float-vector -10.0 -155.0 700.0) (float-vector -8.66025 -155.0 695.0) (float-vector -5.0 -155.0 691.34) (float-vector -1.421085e-14 -155.0 690.0) (float-vector 5.0 -155.0 691.34)))
+         (instance face :init :vertices (list (float-vector 10.0 155.0 700.0) (float-vector 8.66025 155.0 695.0) (float-vector 5.0 155.0 691.34) (float-vector -1.421085e-14 155.0 690.0) (float-vector -5.0 155.0 691.34) (float-vector -8.66025 155.0 695.0) (float-vector -10.0 155.0 700.0) (float-vector -8.66025 155.0 705.0) (float-vector -5.0 155.0 708.66) (float-vector 0.0 155.0 710.0) (float-vector 5.0 155.0 708.66) (float-vector 8.66025 155.0 705.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 -155.0 695.0) (float-vector 8.66025 155.0 695.0) (float-vector 10.0 155.0 700.0) (float-vector 10.0 -155.0 700.0)))
+         (instance face :init :vertices (list (float-vector 5.0 -155.0 691.34) (float-vector 5.0 155.0 691.34) (float-vector 8.66025 155.0 695.0) (float-vector 8.66025 -155.0 695.0)))
+         (instance face :init :vertices (list (float-vector -1.421085e-14 -155.0 690.0) (float-vector -1.421085e-14 155.0 690.0) (float-vector 5.0 155.0 691.34) (float-vector 5.0 -155.0 691.34)))
+         (instance face :init :vertices (list (float-vector -5.0 -155.0 691.34) (float-vector -5.0 155.0 691.34) (float-vector -1.421085e-14 155.0 690.0) (float-vector -1.421085e-14 -155.0 690.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 -155.0 695.0) (float-vector -8.66025 155.0 695.0) (float-vector -5.0 155.0 691.34) (float-vector -5.0 -155.0 691.34)))
+         (instance face :init :vertices (list (float-vector -10.0 -155.0 700.0) (float-vector -10.0 155.0 700.0) (float-vector -8.66025 155.0 695.0) (float-vector -8.66025 -155.0 695.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 -155.0 705.0) (float-vector -8.66025 155.0 705.0) (float-vector -10.0 155.0 700.0) (float-vector -10.0 -155.0 700.0)))
+         (instance face :init :vertices (list (float-vector -5.0 -155.0 708.66) (float-vector -5.0 155.0 708.66) (float-vector -8.66025 155.0 705.0) (float-vector -8.66025 -155.0 705.0)))
+         (instance face :init :vertices (list (float-vector 0.0 -155.0 710.0) (float-vector 0.0 155.0 710.0) (float-vector -5.0 155.0 708.66) (float-vector -5.0 -155.0 708.66)))
+         (instance face :init :vertices (list (float-vector 5.0 -155.0 708.66) (float-vector 5.0 155.0 708.66) (float-vector 0.0 155.0 710.0) (float-vector 0.0 -155.0 710.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 -155.0 705.0) (float-vector 8.66025 155.0 705.0) (float-vector 5.0 155.0 708.66) (float-vector 5.0 -155.0 708.66)))
+         (instance face :init :vertices (list (float-vector 10.0 -155.0 700.0) (float-vector 10.0 155.0 700.0) (float-vector 8.66025 155.0 705.0) (float-vector 8.66025 -155.0 705.0)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 88.6603 210.0 800.0) (float-vector 90.0 215.0 800.0) (float-vector 88.6603 220.0 800.0) (float-vector 85.0 223.66 800.0) (float-vector 80.0 225.0 800.0) (float-vector 75.0 223.66 800.0) (float-vector 71.3397 220.0 800.0) (float-vector 70.0 215.0 800.0) (float-vector 71.3397 210.0 800.0) (float-vector 75.0 206.34 800.0) (float-vector 80.0 205.0 800.0) (float-vector 85.0 206.34 800.0)))
-         (instance face :init :vertices (list (float-vector 90.0 215.0 160.0) (float-vector 88.6603 210.0 160.0) (float-vector 85.0 206.34 160.0) (float-vector 80.0 205.0 160.0) (float-vector 75.0 206.34 160.0) (float-vector 71.3397 210.0 160.0) (float-vector 70.0 215.0 160.0) (float-vector 71.3397 220.0 160.0) (float-vector 75.0 223.66 160.0) (float-vector 80.0 225.0 160.0) (float-vector 85.0 223.66 160.0) (float-vector 88.6603 220.0 160.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 210.0 800.0) (float-vector 88.6603 210.0 160.0) (float-vector 90.0 215.0 160.0) (float-vector 90.0 215.0 800.0)))
-         (instance face :init :vertices (list (float-vector 85.0 206.34 800.0) (float-vector 85.0 206.34 160.0) (float-vector 88.6603 210.0 160.0) (float-vector 88.6603 210.0 800.0)))
-         (instance face :init :vertices (list (float-vector 80.0 205.0 800.0) (float-vector 80.0 205.0 160.0) (float-vector 85.0 206.34 160.0) (float-vector 85.0 206.34 800.0)))
-         (instance face :init :vertices (list (float-vector 75.0 206.34 800.0) (float-vector 75.0 206.34 160.0) (float-vector 80.0 205.0 160.0) (float-vector 80.0 205.0 800.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 210.0 800.0) (float-vector 71.3397 210.0 160.0) (float-vector 75.0 206.34 160.0) (float-vector 75.0 206.34 800.0)))
-         (instance face :init :vertices (list (float-vector 70.0 215.0 800.0) (float-vector 70.0 215.0 160.0) (float-vector 71.3397 210.0 160.0) (float-vector 71.3397 210.0 800.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 220.0 800.0) (float-vector 71.3397 220.0 160.0) (float-vector 70.0 215.0 160.0) (float-vector 70.0 215.0 800.0)))
-         (instance face :init :vertices (list (float-vector 75.0 223.66 800.0) (float-vector 75.0 223.66 160.0) (float-vector 71.3397 220.0 160.0) (float-vector 71.3397 220.0 800.0)))
-         (instance face :init :vertices (list (float-vector 80.0 225.0 800.0) (float-vector 80.0 225.0 160.0) (float-vector 75.0 223.66 160.0) (float-vector 75.0 223.66 800.0)))
-         (instance face :init :vertices (list (float-vector 85.0 223.66 800.0) (float-vector 85.0 223.66 160.0) (float-vector 80.0 225.0 160.0) (float-vector 80.0 225.0 800.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 220.0 800.0) (float-vector 88.6603 220.0 160.0) (float-vector 85.0 223.66 160.0) (float-vector 85.0 223.66 800.0)))
-         (instance face :init :vertices (list (float-vector 90.0 215.0 800.0) (float-vector 90.0 215.0 160.0) (float-vector 88.6603 220.0 160.0) (float-vector 88.6603 220.0 800.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 -155.0 707.071)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 -155.0 710.0) (float-vector -7.07107 -155.0 707.071) (float-vector -7.07107 -180.667 701.966) (float-vector 1.421085e-14 -181.788 704.672)))
+         (instance face :init :vertices (list (float-vector -7.07107 -180.667 701.966) (float-vector -7.07107 -202.426 687.426) (float-vector 1.421085e-14 -204.497 689.497) (float-vector 1.421085e-14 -181.788 704.672)))
+         (instance face :init :vertices (list (float-vector -7.07107 -202.426 687.426) (float-vector -7.07107 -216.966 665.667) (float-vector 0.0 -219.672 666.788) (float-vector 1.421085e-14 -204.497 689.497)))
+         (instance face :init :vertices (list (float-vector 0.0 -225.0 640.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 -216.966 665.667) (float-vector -7.07107 -222.071 640.0) (float-vector 0.0 -225.0 640.0) (float-vector 0.0 -219.672 666.788)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 -155.0 710.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 -155.0 707.071) (float-vector 1.421085e-14 -155.0 710.0) (float-vector 1.421085e-14 -181.788 704.672) (float-vector 7.07107 -180.667 701.966)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 -204.497 689.497) (float-vector 7.07107 -202.426 687.426) (float-vector 7.07107 -180.667 701.966) (float-vector 1.421085e-14 -181.788 704.672)))
+         (instance face :init :vertices (list (float-vector 0.0 -219.672 666.788) (float-vector 7.07107 -216.966 665.667) (float-vector 7.07107 -202.426 687.426) (float-vector 1.421085e-14 -204.497 689.497)))
+         (instance face :init :vertices (list (float-vector 7.07107 -222.071 640.0)))
+         (instance face :init :vertices (list (float-vector 0.0 -225.0 640.0) (float-vector 7.07107 -222.071 640.0) (float-vector 7.07107 -216.966 665.667) (float-vector 0.0 -219.672 666.788)))
+         (instance face :init :vertices (list (float-vector 7.07107 -155.0 707.071)))
+         (instance face :init :vertices (list (float-vector 10.0 -155.0 700.0) (float-vector 7.07107 -155.0 707.071) (float-vector 7.07107 -180.667 701.966) (float-vector 10.0 -177.961 695.433)))
+         (instance face :init :vertices (list (float-vector 7.07107 -202.426 687.426) (float-vector 10.0 -197.426 682.426) (float-vector 10.0 -177.961 695.433) (float-vector 7.07107 -180.667 701.966)))
+         (instance face :init :vertices (list (float-vector 7.07107 -216.966 665.667) (float-vector 10.0 -210.433 662.961) (float-vector 10.0 -197.426 682.426) (float-vector 7.07107 -202.426 687.426)))
+         (instance face :init :vertices (list (float-vector 10.0 -215.0 640.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 -222.071 640.0) (float-vector 10.0 -215.0 640.0) (float-vector 10.0 -210.433 662.961) (float-vector 7.07107 -216.966 665.667)))
+         (instance face :init :vertices (list (float-vector 10.0 -155.0 700.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 -155.0 692.929) (float-vector 10.0 -155.0 700.0) (float-vector 10.0 -177.961 695.433) (float-vector 7.07107 -175.255 688.9)))
+         (instance face :init :vertices (list (float-vector 10.0 -197.426 682.426) (float-vector 7.07107 -192.426 677.426) (float-vector 7.07107 -175.255 688.9) (float-vector 10.0 -177.961 695.433)))
+         (instance face :init :vertices (list (float-vector 10.0 -210.433 662.961) (float-vector 7.07107 -203.9 660.255) (float-vector 7.07107 -192.426 677.426) (float-vector 10.0 -197.426 682.426)))
+         (instance face :init :vertices (list (float-vector 7.07107 -207.929 640.0)))
+         (instance face :init :vertices (list (float-vector 10.0 -215.0 640.0) (float-vector 7.07107 -207.929 640.0) (float-vector 7.07107 -203.9 660.255) (float-vector 10.0 -210.433 662.961)))
+         (instance face :init :vertices (list (float-vector 7.07107 -155.0 692.929)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 -155.0 690.0) (float-vector 7.07107 -155.0 692.929) (float-vector 7.07107 -175.255 688.9) (float-vector 1.421085e-14 -174.134 686.194)))
+         (instance face :init :vertices (list (float-vector 7.07107 -192.426 677.426) (float-vector 1.421085e-14 -190.355 675.355) (float-vector 1.421085e-14 -174.134 686.194) (float-vector 7.07107 -175.255 688.9)))
+         (instance face :init :vertices (list (float-vector 7.07107 -203.9 660.255) (float-vector 0.0 -201.194 659.134) (float-vector 1.421085e-14 -190.355 675.355) (float-vector 7.07107 -192.426 677.426)))
+         (instance face :init :vertices (list (float-vector 0.0 -205.0 640.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 -207.929 640.0) (float-vector 0.0 -205.0 640.0) (float-vector 0.0 -201.194 659.134) (float-vector 7.07107 -203.9 660.255)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 -155.0 690.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 -155.0 692.929) (float-vector 1.421085e-14 -155.0 690.0) (float-vector 1.421085e-14 -174.134 686.194) (float-vector -7.07107 -175.255 688.9)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 -190.355 675.355) (float-vector -7.07107 -192.426 677.426) (float-vector -7.07107 -175.255 688.9) (float-vector 1.421085e-14 -174.134 686.194)))
+         (instance face :init :vertices (list (float-vector 0.0 -201.194 659.134) (float-vector -7.07107 -203.9 660.255) (float-vector -7.07107 -192.426 677.426) (float-vector 1.421085e-14 -190.355 675.355)))
+         (instance face :init :vertices (list (float-vector -7.07107 -207.929 640.0)))
+         (instance face :init :vertices (list (float-vector 0.0 -205.0 640.0) (float-vector -7.07107 -207.929 640.0) (float-vector -7.07107 -203.9 660.255) (float-vector 0.0 -201.194 659.134)))
+         (instance face :init :vertices (list (float-vector -7.07107 -155.0 692.929)))
+         (instance face :init :vertices (list (float-vector -10.0 -155.0 700.0) (float-vector -7.07107 -155.0 692.929) (float-vector -7.07107 -175.255 688.9) (float-vector -10.0 -177.961 695.433)))
+         (instance face :init :vertices (list (float-vector -7.07107 -192.426 677.426) (float-vector -10.0 -197.426 682.426) (float-vector -10.0 -177.961 695.433) (float-vector -7.07107 -175.255 688.9)))
+         (instance face :init :vertices (list (float-vector -7.07107 -203.9 660.255) (float-vector -10.0 -210.433 662.961) (float-vector -10.0 -197.426 682.426) (float-vector -7.07107 -192.426 677.426)))
+         (instance face :init :vertices (list (float-vector -10.0 -215.0 640.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 -207.929 640.0) (float-vector -10.0 -215.0 640.0) (float-vector -10.0 -210.433 662.961) (float-vector -7.07107 -203.9 660.255)))
+         (instance face :init :vertices (list (float-vector -10.0 -155.0 700.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 -155.0 707.071) (float-vector -10.0 -155.0 700.0) (float-vector -10.0 -177.961 695.433) (float-vector -7.07107 -180.667 701.966)))
+         (instance face :init :vertices (list (float-vector -10.0 -197.426 682.426) (float-vector -7.07107 -202.426 687.426) (float-vector -7.07107 -180.667 701.966) (float-vector -10.0 -177.961 695.433)))
+         (instance face :init :vertices (list (float-vector -10.0 -210.433 662.961) (float-vector -7.07107 -216.966 665.667) (float-vector -7.07107 -202.426 687.426) (float-vector -10.0 -197.426 682.426)))
+         (instance face :init :vertices (list (float-vector -7.07107 -222.071 640.0)))
+         (instance face :init :vertices (list (float-vector -10.0 -215.0 640.0) (float-vector -7.07107 -222.071 640.0) (float-vector -7.07107 -216.966 665.667) (float-vector -10.0 -210.433 662.961)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 720.0 230.0 160.0) (float-vector 0.0 230.0 160.0) (float-vector 0.0 -230.0 160.0) (float-vector 720.0 -230.0 160.0)))
-         (instance face :init :vertices (list (float-vector 0.0 230.0 120.0) (float-vector 720.0 230.0 120.0) (float-vector 720.0 -230.0 120.0) (float-vector 0.0 -230.0 120.0)))
-         (instance face :init :vertices (list (float-vector 720.0 230.0 160.0) (float-vector 720.0 230.0 120.0) (float-vector 0.0 230.0 120.0) (float-vector 0.0 230.0 160.0)))
-         (instance face :init :vertices (list (float-vector 720.0 -230.0 160.0) (float-vector 720.0 -230.0 120.0) (float-vector 720.0 230.0 120.0) (float-vector 720.0 230.0 160.0)))
-         (instance face :init :vertices (list (float-vector 0.0 -230.0 160.0) (float-vector 0.0 -230.0 120.0) (float-vector 720.0 -230.0 120.0) (float-vector 720.0 -230.0 160.0)))
-         (instance face :init :vertices (list (float-vector 0.0 230.0 160.0) (float-vector 0.0 230.0 120.0) (float-vector 0.0 -230.0 120.0) (float-vector 0.0 -230.0 160.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 155.0 707.071)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 155.0 710.0) (float-vector 7.07107 155.0 707.071) (float-vector 7.07107 180.667 701.966) (float-vector 1.421085e-14 181.788 704.672)))
+         (instance face :init :vertices (list (float-vector 7.07107 180.667 701.966) (float-vector 7.07107 202.426 687.426) (float-vector 1.421085e-14 204.497 689.497) (float-vector 1.421085e-14 181.788 704.672)))
+         (instance face :init :vertices (list (float-vector 7.07107 202.426 687.426) (float-vector 7.07107 216.966 665.667) (float-vector 0.0 219.672 666.788) (float-vector 1.421085e-14 204.497 689.497)))
+         (instance face :init :vertices (list (float-vector 0.0 225.0 640.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 216.966 665.667) (float-vector 7.07107 222.071 640.0) (float-vector 0.0 225.0 640.0) (float-vector 0.0 219.672 666.788)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 155.0 710.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 155.0 707.071) (float-vector 1.421085e-14 155.0 710.0) (float-vector 1.421085e-14 181.788 704.672) (float-vector -7.07107 180.667 701.966)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 204.497 689.497) (float-vector -7.07107 202.426 687.426) (float-vector -7.07107 180.667 701.966) (float-vector 1.421085e-14 181.788 704.672)))
+         (instance face :init :vertices (list (float-vector 0.0 219.672 666.788) (float-vector -7.07107 216.966 665.667) (float-vector -7.07107 202.426 687.426) (float-vector 1.421085e-14 204.497 689.497)))
+         (instance face :init :vertices (list (float-vector -7.07107 222.071 640.0)))
+         (instance face :init :vertices (list (float-vector 0.0 225.0 640.0) (float-vector -7.07107 222.071 640.0) (float-vector -7.07107 216.966 665.667) (float-vector 0.0 219.672 666.788)))
+         (instance face :init :vertices (list (float-vector -7.07107 155.0 707.071)))
+         (instance face :init :vertices (list (float-vector -10.0 155.0 700.0) (float-vector -7.07107 155.0 707.071) (float-vector -7.07107 180.667 701.966) (float-vector -10.0 177.961 695.433)))
+         (instance face :init :vertices (list (float-vector -7.07107 202.426 687.426) (float-vector -10.0 197.426 682.426) (float-vector -10.0 177.961 695.433) (float-vector -7.07107 180.667 701.966)))
+         (instance face :init :vertices (list (float-vector -7.07107 216.966 665.667) (float-vector -10.0 210.433 662.961) (float-vector -10.0 197.426 682.426) (float-vector -7.07107 202.426 687.426)))
+         (instance face :init :vertices (list (float-vector -10.0 215.0 640.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 222.071 640.0) (float-vector -10.0 215.0 640.0) (float-vector -10.0 210.433 662.961) (float-vector -7.07107 216.966 665.667)))
+         (instance face :init :vertices (list (float-vector -10.0 155.0 700.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 155.0 692.929) (float-vector -10.0 155.0 700.0) (float-vector -10.0 177.961 695.433) (float-vector -7.07107 175.255 688.9)))
+         (instance face :init :vertices (list (float-vector -10.0 197.426 682.426) (float-vector -7.07107 192.426 677.426) (float-vector -7.07107 175.255 688.9) (float-vector -10.0 177.961 695.433)))
+         (instance face :init :vertices (list (float-vector -10.0 210.433 662.961) (float-vector -7.07107 203.9 660.255) (float-vector -7.07107 192.426 677.426) (float-vector -10.0 197.426 682.426)))
+         (instance face :init :vertices (list (float-vector -7.07107 207.929 640.0)))
+         (instance face :init :vertices (list (float-vector -10.0 215.0 640.0) (float-vector -7.07107 207.929 640.0) (float-vector -7.07107 203.9 660.255) (float-vector -10.0 210.433 662.961)))
+         (instance face :init :vertices (list (float-vector -7.07107 155.0 692.929)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 155.0 690.0) (float-vector -7.07107 155.0 692.929) (float-vector -7.07107 175.255 688.9) (float-vector 1.421085e-14 174.134 686.194)))
+         (instance face :init :vertices (list (float-vector -7.07107 192.426 677.426) (float-vector 0.0 190.355 675.355) (float-vector 1.421085e-14 174.134 686.194) (float-vector -7.07107 175.255 688.9)))
+         (instance face :init :vertices (list (float-vector -7.07107 203.9 660.255) (float-vector 0.0 201.194 659.134) (float-vector 0.0 190.355 675.355) (float-vector -7.07107 192.426 677.426)))
+         (instance face :init :vertices (list (float-vector 0.0 205.0 640.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 207.929 640.0) (float-vector 0.0 205.0 640.0) (float-vector 0.0 201.194 659.134) (float-vector -7.07107 203.9 660.255)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 155.0 690.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 155.0 692.929) (float-vector 1.421085e-14 155.0 690.0) (float-vector 1.421085e-14 174.134 686.194) (float-vector 7.07107 175.255 688.9)))
+         (instance face :init :vertices (list (float-vector 0.0 190.355 675.355) (float-vector 7.07107 192.426 677.426) (float-vector 7.07107 175.255 688.9) (float-vector 1.421085e-14 174.134 686.194)))
+         (instance face :init :vertices (list (float-vector 0.0 201.194 659.134) (float-vector 7.07107 203.9 660.255) (float-vector 7.07107 192.426 677.426) (float-vector 0.0 190.355 675.355)))
+         (instance face :init :vertices (list (float-vector 7.07107 207.929 640.0)))
+         (instance face :init :vertices (list (float-vector 0.0 205.0 640.0) (float-vector 7.07107 207.929 640.0) (float-vector 7.07107 203.9 660.255) (float-vector 0.0 201.194 659.134)))
+         (instance face :init :vertices (list (float-vector 7.07107 155.0 692.929)))
+         (instance face :init :vertices (list (float-vector 10.0 155.0 700.0) (float-vector 7.07107 155.0 692.929) (float-vector 7.07107 175.255 688.9) (float-vector 10.0 177.961 695.433)))
+         (instance face :init :vertices (list (float-vector 7.07107 192.426 677.426) (float-vector 10.0 197.426 682.426) (float-vector 10.0 177.961 695.433) (float-vector 7.07107 175.255 688.9)))
+         (instance face :init :vertices (list (float-vector 7.07107 203.9 660.255) (float-vector 10.0 210.433 662.961) (float-vector 10.0 197.426 682.426) (float-vector 7.07107 192.426 677.426)))
+         (instance face :init :vertices (list (float-vector 10.0 215.0 640.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 207.929 640.0) (float-vector 10.0 215.0 640.0) (float-vector 10.0 210.433 662.961) (float-vector 7.07107 203.9 660.255)))
+         (instance face :init :vertices (list (float-vector 10.0 155.0 700.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 155.0 707.071) (float-vector 10.0 155.0 700.0) (float-vector 10.0 177.961 695.433) (float-vector 7.07107 180.667 701.966)))
+         (instance face :init :vertices (list (float-vector 10.0 197.426 682.426) (float-vector 7.07107 202.426 687.426) (float-vector 7.07107 180.667 701.966) (float-vector 10.0 177.961 695.433)))
+         (instance face :init :vertices (list (float-vector 10.0 210.433 662.961) (float-vector 7.07107 216.966 665.667) (float-vector 7.07107 202.426 687.426) (float-vector 10.0 197.426 682.426)))
+         (instance face :init :vertices (list (float-vector 7.07107 222.071 640.0)))
+         (instance face :init :vertices (list (float-vector 10.0 215.0 640.0) (float-vector 7.07107 222.071 640.0) (float-vector 7.07107 216.966 665.667) (float-vector 10.0 210.433 662.961)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 8.66025 -220.0 640.0) (float-vector 10.0 -215.0 640.0) (float-vector 8.66025 -210.0 640.0) (float-vector 5.0 -206.34 640.0) (float-vector 0.0 -205.0 640.0) (float-vector -5.0 -206.34 640.0) (float-vector -8.66025 -210.0 640.0) (float-vector -10.0 -215.0 640.0) (float-vector -8.66025 -220.0 640.0) (float-vector -5.0 -223.66 640.0) (float-vector -1.421085e-14 -225.0 640.0) (float-vector 5.0 -223.66 640.0)))
+         (instance face :init :vertices (list (float-vector 10.0 -215.0 1.136868e-13) (float-vector 8.66025 -220.0 1.136868e-13) (float-vector 5.0 -223.66 1.136868e-13) (float-vector -1.421085e-14 -225.0 1.136868e-13) (float-vector -5.0 -223.66 1.136868e-13) (float-vector -8.66025 -220.0 1.136868e-13) (float-vector -10.0 -215.0 1.136868e-13) (float-vector -8.66025 -210.0 1.136868e-13) (float-vector -5.0 -206.34 1.136868e-13) (float-vector 0.0 -205.0 1.136868e-13) (float-vector 5.0 -206.34 1.136868e-13) (float-vector 8.66025 -210.0 1.136868e-13)))
+         (instance face :init :vertices (list (float-vector 8.66025 -220.0 640.0) (float-vector 8.66025 -220.0 1.136868e-13) (float-vector 10.0 -215.0 1.136868e-13) (float-vector 10.0 -215.0 640.0)))
+         (instance face :init :vertices (list (float-vector 5.0 -223.66 640.0) (float-vector 5.0 -223.66 1.136868e-13) (float-vector 8.66025 -220.0 1.136868e-13) (float-vector 8.66025 -220.0 640.0)))
+         (instance face :init :vertices (list (float-vector -1.421085e-14 -225.0 640.0) (float-vector -1.421085e-14 -225.0 1.136868e-13) (float-vector 5.0 -223.66 1.136868e-13) (float-vector 5.0 -223.66 640.0)))
+         (instance face :init :vertices (list (float-vector -5.0 -223.66 640.0) (float-vector -5.0 -223.66 1.136868e-13) (float-vector -1.421085e-14 -225.0 1.136868e-13) (float-vector -1.421085e-14 -225.0 640.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 -220.0 640.0) (float-vector -8.66025 -220.0 1.136868e-13) (float-vector -5.0 -223.66 1.136868e-13) (float-vector -5.0 -223.66 640.0)))
+         (instance face :init :vertices (list (float-vector -10.0 -215.0 640.0) (float-vector -10.0 -215.0 1.136868e-13) (float-vector -8.66025 -220.0 1.136868e-13) (float-vector -8.66025 -220.0 640.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 -210.0 640.0) (float-vector -8.66025 -210.0 1.136868e-13) (float-vector -10.0 -215.0 1.136868e-13) (float-vector -10.0 -215.0 640.0)))
+         (instance face :init :vertices (list (float-vector -5.0 -206.34 640.0) (float-vector -5.0 -206.34 1.136868e-13) (float-vector -8.66025 -210.0 1.136868e-13) (float-vector -8.66025 -210.0 640.0)))
+         (instance face :init :vertices (list (float-vector 0.0 -205.0 640.0) (float-vector 0.0 -205.0 1.136868e-13) (float-vector -5.0 -206.34 1.136868e-13) (float-vector -5.0 -206.34 640.0)))
+         (instance face :init :vertices (list (float-vector 5.0 -206.34 640.0) (float-vector 5.0 -206.34 1.136868e-13) (float-vector 0.0 -205.0 1.136868e-13) (float-vector 0.0 -205.0 640.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 -210.0 640.0) (float-vector 8.66025 -210.0 1.136868e-13) (float-vector 5.0 -206.34 1.136868e-13) (float-vector 5.0 -206.34 640.0)))
+         (instance face :init :vertices (list (float-vector 10.0 -215.0 640.0) (float-vector 10.0 -215.0 1.136868e-13) (float-vector 8.66025 -210.0 1.136868e-13) (float-vector 8.66025 -210.0 640.0)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 8.66025 210.0 640.0) (float-vector 10.0 215.0 640.0) (float-vector 8.66025 220.0 640.0) (float-vector 5.0 223.66 640.0) (float-vector 0.0 225.0 640.0) (float-vector -5.0 223.66 640.0) (float-vector -8.66025 220.0 640.0) (float-vector -10.0 215.0 640.0) (float-vector -8.66025 210.0 640.0) (float-vector -5.0 206.34 640.0) (float-vector -1.421085e-14 205.0 640.0) (float-vector 5.0 206.34 640.0)))
+         (instance face :init :vertices (list (float-vector 10.0 215.0 0.0) (float-vector 8.66025 210.0 0.0) (float-vector 5.0 206.34 0.0) (float-vector -1.421085e-14 205.0 0.0) (float-vector -5.0 206.34 0.0) (float-vector -8.66025 210.0 0.0) (float-vector -10.0 215.0 0.0) (float-vector -8.66025 220.0 0.0) (float-vector -5.0 223.66 0.0) (float-vector 0.0 225.0 0.0) (float-vector 5.0 223.66 0.0) (float-vector 8.66025 220.0 0.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 210.0 640.0) (float-vector 8.66025 210.0 0.0) (float-vector 10.0 215.0 0.0) (float-vector 10.0 215.0 640.0)))
+         (instance face :init :vertices (list (float-vector 5.0 206.34 640.0) (float-vector 5.0 206.34 0.0) (float-vector 8.66025 210.0 0.0) (float-vector 8.66025 210.0 640.0)))
+         (instance face :init :vertices (list (float-vector -1.421085e-14 205.0 640.0) (float-vector -1.421085e-14 205.0 0.0) (float-vector 5.0 206.34 0.0) (float-vector 5.0 206.34 640.0)))
+         (instance face :init :vertices (list (float-vector -5.0 206.34 640.0) (float-vector -5.0 206.34 0.0) (float-vector -1.421085e-14 205.0 0.0) (float-vector -1.421085e-14 205.0 640.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 210.0 640.0) (float-vector -8.66025 210.0 0.0) (float-vector -5.0 206.34 0.0) (float-vector -5.0 206.34 640.0)))
+         (instance face :init :vertices (list (float-vector -10.0 215.0 640.0) (float-vector -10.0 215.0 0.0) (float-vector -8.66025 210.0 0.0) (float-vector -8.66025 210.0 640.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 220.0 640.0) (float-vector -8.66025 220.0 0.0) (float-vector -10.0 215.0 0.0) (float-vector -10.0 215.0 640.0)))
+         (instance face :init :vertices (list (float-vector -5.0 223.66 640.0) (float-vector -5.0 223.66 0.0) (float-vector -8.66025 220.0 0.0) (float-vector -8.66025 220.0 640.0)))
+         (instance face :init :vertices (list (float-vector 0.0 225.0 640.0) (float-vector 0.0 225.0 0.0) (float-vector -5.0 223.66 0.0) (float-vector -5.0 223.66 640.0)))
+         (instance face :init :vertices (list (float-vector 5.0 223.66 640.0) (float-vector 5.0 223.66 0.0) (float-vector 0.0 225.0 0.0) (float-vector 0.0 225.0 640.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 220.0 640.0) (float-vector 8.66025 220.0 0.0) (float-vector 5.0 223.66 0.0) (float-vector 5.0 223.66 640.0)))
+         (instance face :init :vertices (list (float-vector 10.0 215.0 640.0) (float-vector 10.0 215.0 0.0) (float-vector 8.66025 220.0 0.0) (float-vector 8.66025 220.0 640.0)))
        ))
        ))
      (dolist (b (cdr bc)) (send (car bc) :assoc b))
@@ -311,28 +414,64 @@
      (send (elt bc 2) :set-color :gray)
      (send (elt bc 3) :set-color :gray)
      (send (elt bc 4) :set-color :gray)
-     (send (elt bc 5) :set-color :gray)
-     (send (elt bc 6) :set-color :gray)
-     (send (elt bc 7) :set-color :gray)
-     (send (elt bc 8) :set-color :gray)
-     (send (elt bc 9) :set-color :gray)
-     (send (elt bc 10) :set-color :gray)
-     (send (elt bc 11) :set-color :gray)
-     (send (elt bc 12) :set-color :gray)
-     (send (elt bc 13) :set-color :gray)
-     (send (elt bc 14) :set-color :gray)
-     (send (elt bc 15) :set-color :gray)
-     (send (elt bc 16) :set-color :gray)
-     (send (elt bc 17) :set-color :green)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :gifuplastic-720-cart-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name :bar :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
 
      ;; definition of assoc
+     (send blink5 :newcoords (make-coords :pos (float-vector -25.0 0.0 -70.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink4 :assoc blink5)
+     (send blink7 :newcoords (make-coords :pos (float-vector -25.0 0.0 -70.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink6 :assoc blink7)
+     (send blink1 :newcoords (make-coords :pos (float-vector 80.0 0.0 160.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink0 :assoc blink1)
+     (send blink6 :newcoords (make-coords :pos (float-vector 590.0 -147.5 120.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink0 :assoc blink6)
+     (send blink4 :newcoords (make-coords :pos (float-vector 590.0 147.5 120.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink0 :assoc blink4)
+     (send blink3 :newcoords (make-coords :pos (float-vector 135.0 -147.5 50.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink0 :assoc blink3)
+     (send blink2 :newcoords (make-coords :pos (float-vector 135.0 147.5 50.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink0 :assoc blink2)
      (send self :assoc blink0)
 
      ;; definition of end-coords
 
      ;; definition of joint
 
+     ;; definition of :bar
+     (setq joint0 (instance rotational-joint :init
+			     :parent-link blink0 :child-link blink1 :name :bar       :axis :y 
+			     :min    0.0 :max   90.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :rear-left-wheel
+     (setq joint1 (instance rotational-joint :init
+			     :parent-link blink0 :child-link blink2 :name :rear-left-wheel :axis :y 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :rear-right-wheel
+     (setq joint2 (instance rotational-joint :init
+			     :parent-link blink0 :child-link blink3 :name :rear-right-wheel :axis :y 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :left-front-fork
+     (setq joint3 (instance rotational-joint :init
+			     :parent-link blink0 :child-link blink4 :name :left-front-fork :axis :z 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :front-left-wheel
+     (setq joint4 (instance rotational-joint :init
+			     :parent-link blink4 :child-link blink5 :name :front-left-wheel :axis :y 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :right-front-fork
+     (setq joint5 (instance rotational-joint :init
+			     :parent-link blink0 :child-link blink6 :name :right-front-fork :axis :z 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :front-right-wheel
+     (setq joint6 (instance rotational-joint :init
+			     :parent-link blink6 :child-link blink7 :name :front-right-wheel :axis :y 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
 
      ;; definition of :handle
      (setq handle0 (make-cascoords :pos (float-vector 80.0 200.0 860.0) :rot #2f((1.0 0.0 0.0) (0.0 0.707107 -0.707107) (0.0 0.707107 0.707107)) :name ":larm"))
@@ -343,14 +482,21 @@
      (send blink0 :assoc handle2)
 
      ;; init-ending 
-     (setq links (list blink0))
-     (setq joint-list (list))
+     (setq links (list blink0 blink1 blink2 blink3 blink4 blink5 blink6 blink7))
+     (setq joint-list (list joint0 joint1 joint2 joint3 joint4 joint5 joint6))
      (send self :init-ending)
      (send self :move-to (make-coords :pos pos :rot rot))
      (send-all links :worldcoords)
 
      self))
 
+  (:bar (&rest args) (forward-message-to joint0 args))
+  (:rear-left-wheel (&rest args) (forward-message-to joint1 args))
+  (:rear-right-wheel (&rest args) (forward-message-to joint2 args))
+  (:left-front-fork (&rest args) (forward-message-to joint3 args))
+  (:front-left-wheel (&rest args) (forward-message-to joint4 args))
+  (:right-front-fork (&rest args) (forward-message-to joint5 args))
+  (:front-right-wheel (&rest args) (forward-message-to joint6 args))
   (:handle (&rest args) (forward-message-to-all (list  handle0 handle1 handle2) args))
   (:handle-larm (&rest args) (forward-message-to handle0 args))
   (:handle-rarm (&rest args) (forward-message-to handle1 args))
diff --git a/models/gifuplastic-900-cart-object.l b/models/gifuplastic-900-cart-object.l
index e826d8b2..fb824c6e 100644
--- a/models/gifuplastic-900-cart-object.l
+++ b/models/gifuplastic-900-cart-object.l
@@ -7,12 +7,12 @@
   :super cascaded-link
   :slots (sensors
          handle0 handle1 handle2
-         ))
+         joint0 joint1 joint2 joint3 joint4 joint5 joint6 ))
 (defmethod gifuplastic-900-cart-object
   (:init
    (&rest args &key (name "gifuplastic-900-cart") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
    (let (c bc
-         blink0
+         blink0 blink1 blink2 blink3 blink4 blink5 blink6 blink7
                  )
      (send-super* :init :name name args)
 
@@ -20,22 +20,6 @@
 
      ;; definition of :gifuplastic-900-cart-bodyset2
      (setq bc (list
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 191.962 230.0 30.0) (float-vector 200.0 230.0 60.0) (float-vector 191.962 230.0 90.0) (float-vector 170.0 230.0 111.962) (float-vector 140.0 230.0 120.0) (float-vector 110.0 230.0 111.962) (float-vector 88.0385 230.0 90.0) (float-vector 80.0 230.0 60.0) (float-vector 88.0385 230.0 30.0) (float-vector 110.0 230.0 8.03848) (float-vector 140.0 230.0 2.131628e-14) (float-vector 170.0 230.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 200.0 260.0 60.0) (float-vector 191.962 260.0 30.0) (float-vector 170.0 260.0 8.03848) (float-vector 140.0 260.0 1.421085e-14) (float-vector 110.0 260.0 8.03848) (float-vector 88.0385 260.0 30.0) (float-vector 80.0 260.0 60.0) (float-vector 88.0385 260.0 90.0) (float-vector 110.0 260.0 111.962) (float-vector 140.0 260.0 120.0) (float-vector 170.0 260.0 111.962) (float-vector 191.962 260.0 90.0)))
-         (instance face :init :vertices (list (float-vector 191.962 230.0 30.0) (float-vector 191.962 260.0 30.0) (float-vector 200.0 260.0 60.0) (float-vector 200.0 230.0 60.0)))
-         (instance face :init :vertices (list (float-vector 170.0 230.0 8.03848) (float-vector 170.0 260.0 8.03848) (float-vector 191.962 260.0 30.0) (float-vector 191.962 230.0 30.0)))
-         (instance face :init :vertices (list (float-vector 140.0 230.0 2.131628e-14) (float-vector 140.0 260.0 1.421085e-14) (float-vector 170.0 260.0 8.03848) (float-vector 170.0 230.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 110.0 230.0 8.03848) (float-vector 110.0 260.0 8.03848) (float-vector 140.0 260.0 1.421085e-14) (float-vector 140.0 230.0 2.131628e-14)))
-         (instance face :init :vertices (list (float-vector 88.0385 230.0 30.0) (float-vector 88.0385 260.0 30.0) (float-vector 110.0 260.0 8.03848) (float-vector 110.0 230.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 80.0 230.0 60.0) (float-vector 80.0 260.0 60.0) (float-vector 88.0385 260.0 30.0) (float-vector 88.0385 230.0 30.0)))
-         (instance face :init :vertices (list (float-vector 88.0385 230.0 90.0) (float-vector 88.0385 260.0 90.0) (float-vector 80.0 260.0 60.0) (float-vector 80.0 230.0 60.0)))
-         (instance face :init :vertices (list (float-vector 110.0 230.0 111.962) (float-vector 110.0 260.0 111.962) (float-vector 88.0385 260.0 90.0) (float-vector 88.0385 230.0 90.0)))
-         (instance face :init :vertices (list (float-vector 140.0 230.0 120.0) (float-vector 140.0 260.0 120.0) (float-vector 110.0 260.0 111.962) (float-vector 110.0 230.0 111.962)))
-         (instance face :init :vertices (list (float-vector 170.0 230.0 111.962) (float-vector 170.0 260.0 111.962) (float-vector 140.0 260.0 120.0) (float-vector 140.0 230.0 120.0)))
-         (instance face :init :vertices (list (float-vector 191.962 230.0 90.0) (float-vector 191.962 260.0 90.0) (float-vector 170.0 260.0 111.962) (float-vector 170.0 230.0 111.962)))
-         (instance face :init :vertices (list (float-vector 200.0 230.0 60.0) (float-vector 200.0 260.0 60.0) (float-vector 191.962 260.0 90.0) (float-vector 191.962 230.0 90.0)))
-       ))
        (instance faceset :init :faces (list
          (instance face :init :vertices (list (float-vector 155.0 264.5 170.0) (float-vector 125.0 264.5 170.0) (float-vector 125.0 264.5 36.0) (float-vector 155.0 264.5 36.0)))
          (instance face :init :vertices (list (float-vector 125.0 267.5 170.0) (float-vector 155.0 267.5 170.0) (float-vector 155.0 267.5 36.0) (float-vector 125.0 267.5 36.0)))
@@ -52,22 +36,6 @@
          (instance face :init :vertices (list (float-vector 125.0 222.5 36.0) (float-vector 125.0 225.5 36.0) (float-vector 155.0 225.5 36.0) (float-vector 155.0 222.5 36.0)))
          (instance face :init :vertices (list (float-vector 125.0 222.5 170.0) (float-vector 125.0 225.5 170.0) (float-vector 125.0 225.5 36.0) (float-vector 125.0 222.5 36.0)))
        ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 191.962 -260.0 30.0) (float-vector 200.0 -260.0 60.0) (float-vector 191.962 -260.0 90.0) (float-vector 170.0 -260.0 111.962) (float-vector 140.0 -260.0 120.0) (float-vector 110.0 -260.0 111.962) (float-vector 88.0385 -260.0 90.0) (float-vector 80.0 -260.0 60.0) (float-vector 88.0385 -260.0 30.0) (float-vector 110.0 -260.0 8.03848) (float-vector 140.0 -260.0 2.131628e-14) (float-vector 170.0 -260.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 200.0 -230.0 60.0) (float-vector 191.962 -230.0 30.0) (float-vector 170.0 -230.0 8.03848) (float-vector 140.0 -230.0 1.421085e-14) (float-vector 110.0 -230.0 8.03848) (float-vector 88.0385 -230.0 30.0) (float-vector 80.0 -230.0 60.0) (float-vector 88.0385 -230.0 90.0) (float-vector 110.0 -230.0 111.962) (float-vector 140.0 -230.0 120.0) (float-vector 170.0 -230.0 111.962) (float-vector 191.962 -230.0 90.0)))
-         (instance face :init :vertices (list (float-vector 191.962 -260.0 30.0) (float-vector 191.962 -230.0 30.0) (float-vector 200.0 -230.0 60.0) (float-vector 200.0 -260.0 60.0)))
-         (instance face :init :vertices (list (float-vector 170.0 -260.0 8.03848) (float-vector 170.0 -230.0 8.03848) (float-vector 191.962 -230.0 30.0) (float-vector 191.962 -260.0 30.0)))
-         (instance face :init :vertices (list (float-vector 140.0 -260.0 2.131628e-14) (float-vector 140.0 -230.0 1.421085e-14) (float-vector 170.0 -230.0 8.03848) (float-vector 170.0 -260.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 110.0 -260.0 8.03848) (float-vector 110.0 -230.0 8.03848) (float-vector 140.0 -230.0 1.421085e-14) (float-vector 140.0 -260.0 2.131628e-14)))
-         (instance face :init :vertices (list (float-vector 88.0385 -260.0 30.0) (float-vector 88.0385 -230.0 30.0) (float-vector 110.0 -230.0 8.03848) (float-vector 110.0 -260.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 80.0 -260.0 60.0) (float-vector 80.0 -230.0 60.0) (float-vector 88.0385 -230.0 30.0) (float-vector 88.0385 -260.0 30.0)))
-         (instance face :init :vertices (list (float-vector 88.0385 -260.0 90.0) (float-vector 88.0385 -230.0 90.0) (float-vector 80.0 -230.0 60.0) (float-vector 80.0 -260.0 60.0)))
-         (instance face :init :vertices (list (float-vector 110.0 -260.0 111.962) (float-vector 110.0 -230.0 111.962) (float-vector 88.0385 -230.0 90.0) (float-vector 88.0385 -260.0 90.0)))
-         (instance face :init :vertices (list (float-vector 140.0 -260.0 120.0) (float-vector 140.0 -230.0 120.0) (float-vector 110.0 -230.0 111.962) (float-vector 110.0 -260.0 111.962)))
-         (instance face :init :vertices (list (float-vector 170.0 -260.0 111.962) (float-vector 170.0 -230.0 111.962) (float-vector 140.0 -230.0 120.0) (float-vector 140.0 -260.0 120.0)))
-         (instance face :init :vertices (list (float-vector 191.962 -260.0 90.0) (float-vector 191.962 -230.0 90.0) (float-vector 170.0 -230.0 111.962) (float-vector 170.0 -260.0 111.962)))
-         (instance face :init :vertices (list (float-vector 200.0 -260.0 60.0) (float-vector 200.0 -230.0 60.0) (float-vector 191.962 -230.0 90.0) (float-vector 191.962 -260.0 90.0)))
-       ))
        (instance faceset :init :faces (list
          (instance face :init :vertices (list (float-vector 155.0 -225.5 170.0) (float-vector 125.0 -225.5 170.0) (float-vector 125.0 -225.5 36.0) (float-vector 155.0 -225.5 36.0)))
          (instance face :init :vertices (list (float-vector 125.0 -222.5 170.0) (float-vector 155.0 -222.5 170.0) (float-vector 155.0 -222.5 36.0) (float-vector 125.0 -222.5 36.0)))
@@ -85,224 +53,359 @@
          (instance face :init :vertices (list (float-vector 125.0 -267.5 170.0) (float-vector 125.0 -264.5 170.0) (float-vector 125.0 -264.5 36.0) (float-vector 125.0 -267.5 36.0)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 751.962 230.0 30.0) (float-vector 760.0 230.0 60.0) (float-vector 751.962 230.0 90.0) (float-vector 730.0 230.0 111.962) (float-vector 700.0 230.0 120.0) (float-vector 670.0 230.0 111.962) (float-vector 648.038 230.0 90.0) (float-vector 640.0 230.0 60.0) (float-vector 648.038 230.0 30.0) (float-vector 670.0 230.0 8.03848) (float-vector 700.0 230.0 2.131628e-14) (float-vector 730.0 230.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 760.0 260.0 60.0) (float-vector 751.962 260.0 30.0) (float-vector 730.0 260.0 8.03848) (float-vector 700.0 260.0 1.421085e-14) (float-vector 670.0 260.0 8.03848) (float-vector 648.038 260.0 30.0) (float-vector 640.0 260.0 60.0) (float-vector 648.038 260.0 90.0) (float-vector 670.0 260.0 111.962) (float-vector 700.0 260.0 120.0) (float-vector 730.0 260.0 111.962) (float-vector 751.962 260.0 90.0)))
-         (instance face :init :vertices (list (float-vector 751.962 230.0 30.0) (float-vector 751.962 260.0 30.0) (float-vector 760.0 260.0 60.0) (float-vector 760.0 230.0 60.0)))
-         (instance face :init :vertices (list (float-vector 730.0 230.0 8.03848) (float-vector 730.0 260.0 8.03848) (float-vector 751.962 260.0 30.0) (float-vector 751.962 230.0 30.0)))
-         (instance face :init :vertices (list (float-vector 700.0 230.0 2.131628e-14) (float-vector 700.0 260.0 1.421085e-14) (float-vector 730.0 260.0 8.03848) (float-vector 730.0 230.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 670.0 230.0 8.03848) (float-vector 670.0 260.0 8.03848) (float-vector 700.0 260.0 1.421085e-14) (float-vector 700.0 230.0 2.131628e-14)))
-         (instance face :init :vertices (list (float-vector 648.038 230.0 30.0) (float-vector 648.038 260.0 30.0) (float-vector 670.0 260.0 8.03848) (float-vector 670.0 230.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 640.0 230.0 60.0) (float-vector 640.0 260.0 60.0) (float-vector 648.038 260.0 30.0) (float-vector 648.038 230.0 30.0)))
-         (instance face :init :vertices (list (float-vector 648.038 230.0 90.0) (float-vector 648.038 260.0 90.0) (float-vector 640.0 260.0 60.0) (float-vector 640.0 230.0 60.0)))
-         (instance face :init :vertices (list (float-vector 670.0 230.0 111.962) (float-vector 670.0 260.0 111.962) (float-vector 648.038 260.0 90.0) (float-vector 648.038 230.0 90.0)))
-         (instance face :init :vertices (list (float-vector 700.0 230.0 120.0) (float-vector 700.0 260.0 120.0) (float-vector 670.0 260.0 111.962) (float-vector 670.0 230.0 111.962)))
-         (instance face :init :vertices (list (float-vector 730.0 230.0 111.962) (float-vector 730.0 260.0 111.962) (float-vector 700.0 260.0 120.0) (float-vector 700.0 230.0 120.0)))
-         (instance face :init :vertices (list (float-vector 751.962 230.0 90.0) (float-vector 751.962 260.0 90.0) (float-vector 730.0 260.0 111.962) (float-vector 730.0 230.0 111.962)))
-         (instance face :init :vertices (list (float-vector 760.0 230.0 60.0) (float-vector 760.0 260.0 60.0) (float-vector 751.962 260.0 90.0) (float-vector 751.962 230.0 90.0)))
+         (instance face :init :vertices (list (float-vector 900.0 300.0 220.0) (float-vector 0.0 300.0 220.0) (float-vector 0.0 -300.0 220.0) (float-vector 900.0 -300.0 220.0)))
+         (instance face :init :vertices (list (float-vector 0.0 300.0 170.0) (float-vector 900.0 300.0 170.0) (float-vector 900.0 -300.0 170.0) (float-vector 0.0 -300.0 170.0)))
+         (instance face :init :vertices (list (float-vector 900.0 300.0 220.0) (float-vector 900.0 300.0 170.0) (float-vector 0.0 300.0 170.0) (float-vector 0.0 300.0 220.0)))
+         (instance face :init :vertices (list (float-vector 900.0 -300.0 220.0) (float-vector 900.0 -300.0 170.0) (float-vector 900.0 300.0 170.0) (float-vector 900.0 300.0 220.0)))
+         (instance face :init :vertices (list (float-vector 0.0 -300.0 220.0) (float-vector 0.0 -300.0 170.0) (float-vector 900.0 -300.0 170.0) (float-vector 900.0 -300.0 220.0)))
+         (instance face :init :vertices (list (float-vector 0.0 300.0 220.0) (float-vector 0.0 300.0 170.0) (float-vector 0.0 -300.0 170.0) (float-vector 0.0 -300.0 220.0)))
+       ))
        ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (send (elt bc 1) :set-color :gray)
+     (send (elt bc 2) :set-color :gray)
+     (send (elt bc 3) :set-color :gray)
+     (send (elt bc 4) :set-color :blue)
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :gifuplastic-900-cart-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :rear-left-wheel
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 715.0 264.5 170.0) (float-vector 685.0 264.5 170.0) (float-vector 685.0 264.5 36.0) (float-vector 715.0 264.5 36.0)))
-         (instance face :init :vertices (list (float-vector 685.0 267.5 170.0) (float-vector 715.0 267.5 170.0) (float-vector 715.0 267.5 36.0) (float-vector 685.0 267.5 36.0)))
-         (instance face :init :vertices (list (float-vector 715.0 264.5 170.0) (float-vector 715.0 267.5 170.0) (float-vector 685.0 267.5 170.0) (float-vector 685.0 264.5 170.0)))
-         (instance face :init :vertices (list (float-vector 715.0 264.5 36.0) (float-vector 715.0 267.5 36.0) (float-vector 715.0 267.5 170.0) (float-vector 715.0 264.5 170.0)))
-         (instance face :init :vertices (list (float-vector 685.0 264.5 36.0) (float-vector 685.0 267.5 36.0) (float-vector 715.0 267.5 36.0) (float-vector 715.0 264.5 36.0)))
-         (instance face :init :vertices (list (float-vector 685.0 264.5 170.0) (float-vector 685.0 267.5 170.0) (float-vector 685.0 267.5 36.0) (float-vector 685.0 264.5 36.0)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 -15.5291) (float-vector 60.0 -15.0 7.105427e-15) (float-vector 57.9555 -15.0 15.5291) (float-vector 51.9615 -15.0 30.0) (float-vector 42.4264 -15.0 42.4264) (float-vector 30.0 -15.0 51.9615) (float-vector 15.5291 -15.0 57.9555) (float-vector 2.842171e-14 -15.0 60.0) (float-vector -15.5291 -15.0 57.9555) (float-vector -30.0 -15.0 51.9615) (float-vector -42.4264 -15.0 42.4264) (float-vector -51.9615 -15.0 30.0) (float-vector -57.9555 -15.0 15.5291) (float-vector -60.0 -15.0 7.105427e-14) (float-vector -57.9555 -15.0 -15.5291) (float-vector -51.9615 -15.0 -30.0) (float-vector -42.4264 -15.0 -42.4264) (float-vector -30.0 -15.0 -51.9615) (float-vector -15.5291 -15.0 -57.9555) (float-vector -8.526513e-14 -15.0 -60.0) (float-vector 15.5291 -15.0 -57.9555) (float-vector 30.0 -15.0 -51.9615) (float-vector 42.4264 -15.0 -42.4264) (float-vector 51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector 60.0 15.0 0.0) (float-vector 57.9555 15.0 -15.5291) (float-vector 51.9615 15.0 -30.0) (float-vector 42.4264 15.0 -42.4264) (float-vector 30.0 15.0 -51.9615) (float-vector 15.5291 15.0 -57.9555) (float-vector -8.526513e-14 15.0 -60.0) (float-vector -15.5291 15.0 -57.9555) (float-vector -30.0 15.0 -51.9615) (float-vector -42.4264 15.0 -42.4264) (float-vector -51.9615 15.0 -30.0) (float-vector -57.9555 15.0 -15.5291) (float-vector -60.0 15.0 6.394885e-14) (float-vector -57.9555 15.0 15.5291) (float-vector -51.9615 15.0 30.0) (float-vector -42.4264 15.0 42.4264) (float-vector -30.0 15.0 51.9615) (float-vector -15.5291 15.0 57.9555) (float-vector 2.842171e-14 15.0 60.0) (float-vector 15.5291 15.0 57.9555) (float-vector 30.0 15.0 51.9615) (float-vector 42.4264 15.0 42.4264) (float-vector 51.9615 15.0 30.0) (float-vector 57.9555 15.0 15.5291)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 -15.5291) (float-vector 57.9555 15.0 -15.5291) (float-vector 60.0 15.0 0.0) (float-vector 60.0 -15.0 7.105427e-15)))
+         (instance face :init :vertices (list (float-vector 51.9615 -15.0 -30.0) (float-vector 51.9615 15.0 -30.0) (float-vector 57.9555 15.0 -15.5291) (float-vector 57.9555 -15.0 -15.5291)))
+         (instance face :init :vertices (list (float-vector 42.4264 -15.0 -42.4264) (float-vector 42.4264 15.0 -42.4264) (float-vector 51.9615 15.0 -30.0) (float-vector 51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector 30.0 -15.0 -51.9615) (float-vector 30.0 15.0 -51.9615) (float-vector 42.4264 15.0 -42.4264) (float-vector 42.4264 -15.0 -42.4264)))
+         (instance face :init :vertices (list (float-vector 15.5291 -15.0 -57.9555) (float-vector 15.5291 15.0 -57.9555) (float-vector 30.0 15.0 -51.9615) (float-vector 30.0 -15.0 -51.9615)))
+         (instance face :init :vertices (list (float-vector -8.526513e-14 -15.0 -60.0) (float-vector -8.526513e-14 15.0 -60.0) (float-vector 15.5291 15.0 -57.9555) (float-vector 15.5291 -15.0 -57.9555)))
+         (instance face :init :vertices (list (float-vector -15.5291 -15.0 -57.9555) (float-vector -15.5291 15.0 -57.9555) (float-vector -8.526513e-14 15.0 -60.0) (float-vector -8.526513e-14 -15.0 -60.0)))
+         (instance face :init :vertices (list (float-vector -30.0 -15.0 -51.9615) (float-vector -30.0 15.0 -51.9615) (float-vector -15.5291 15.0 -57.9555) (float-vector -15.5291 -15.0 -57.9555)))
+         (instance face :init :vertices (list (float-vector -42.4264 -15.0 -42.4264) (float-vector -42.4264 15.0 -42.4264) (float-vector -30.0 15.0 -51.9615) (float-vector -30.0 -15.0 -51.9615)))
+         (instance face :init :vertices (list (float-vector -51.9615 -15.0 -30.0) (float-vector -51.9615 15.0 -30.0) (float-vector -42.4264 15.0 -42.4264) (float-vector -42.4264 -15.0 -42.4264)))
+         (instance face :init :vertices (list (float-vector -57.9555 -15.0 -15.5291) (float-vector -57.9555 15.0 -15.5291) (float-vector -51.9615 15.0 -30.0) (float-vector -51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector -60.0 -15.0 7.105427e-14) (float-vector -60.0 15.0 6.394885e-14) (float-vector -57.9555 15.0 -15.5291) (float-vector -57.9555 -15.0 -15.5291)))
+         (instance face :init :vertices (list (float-vector -57.9555 -15.0 15.5291) (float-vector -57.9555 15.0 15.5291) (float-vector -60.0 15.0 6.394885e-14) (float-vector -60.0 -15.0 7.105427e-14)))
+         (instance face :init :vertices (list (float-vector -51.9615 -15.0 30.0) (float-vector -51.9615 15.0 30.0) (float-vector -57.9555 15.0 15.5291) (float-vector -57.9555 -15.0 15.5291)))
+         (instance face :init :vertices (list (float-vector -42.4264 -15.0 42.4264) (float-vector -42.4264 15.0 42.4264) (float-vector -51.9615 15.0 30.0) (float-vector -51.9615 -15.0 30.0)))
+         (instance face :init :vertices (list (float-vector -30.0 -15.0 51.9615) (float-vector -30.0 15.0 51.9615) (float-vector -42.4264 15.0 42.4264) (float-vector -42.4264 -15.0 42.4264)))
+         (instance face :init :vertices (list (float-vector -15.5291 -15.0 57.9555) (float-vector -15.5291 15.0 57.9555) (float-vector -30.0 15.0 51.9615) (float-vector -30.0 -15.0 51.9615)))
+         (instance face :init :vertices (list (float-vector 2.842171e-14 -15.0 60.0) (float-vector 2.842171e-14 15.0 60.0) (float-vector -15.5291 15.0 57.9555) (float-vector -15.5291 -15.0 57.9555)))
+         (instance face :init :vertices (list (float-vector 15.5291 -15.0 57.9555) (float-vector 15.5291 15.0 57.9555) (float-vector 2.842171e-14 15.0 60.0) (float-vector 2.842171e-14 -15.0 60.0)))
+         (instance face :init :vertices (list (float-vector 30.0 -15.0 51.9615) (float-vector 30.0 15.0 51.9615) (float-vector 15.5291 15.0 57.9555) (float-vector 15.5291 -15.0 57.9555)))
+         (instance face :init :vertices (list (float-vector 42.4264 -15.0 42.4264) (float-vector 42.4264 15.0 42.4264) (float-vector 30.0 15.0 51.9615) (float-vector 30.0 -15.0 51.9615)))
+         (instance face :init :vertices (list (float-vector 51.9615 -15.0 30.0) (float-vector 51.9615 15.0 30.0) (float-vector 42.4264 15.0 42.4264) (float-vector 42.4264 -15.0 42.4264)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 15.5291) (float-vector 57.9555 15.0 15.5291) (float-vector 51.9615 15.0 30.0) (float-vector 51.9615 -15.0 30.0)))
+         (instance face :init :vertices (list (float-vector 60.0 -15.0 7.105427e-15) (float-vector 60.0 15.0 0.0) (float-vector 57.9555 15.0 15.5291) (float-vector 57.9555 -15.0 15.5291)))
+       ))
        ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (setq blink2 (instance bodyset-link :init (make-cascoords) :bodies bc :name :rear-left-wheel :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :rear-right-wheel
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 715.0 222.5 170.0) (float-vector 685.0 222.5 170.0) (float-vector 685.0 222.5 36.0) (float-vector 715.0 222.5 36.0)))
-         (instance face :init :vertices (list (float-vector 685.0 225.5 170.0) (float-vector 715.0 225.5 170.0) (float-vector 715.0 225.5 36.0) (float-vector 685.0 225.5 36.0)))
-         (instance face :init :vertices (list (float-vector 715.0 222.5 170.0) (float-vector 715.0 225.5 170.0) (float-vector 685.0 225.5 170.0) (float-vector 685.0 222.5 170.0)))
-         (instance face :init :vertices (list (float-vector 715.0 222.5 36.0) (float-vector 715.0 225.5 36.0) (float-vector 715.0 225.5 170.0) (float-vector 715.0 222.5 170.0)))
-         (instance face :init :vertices (list (float-vector 685.0 222.5 36.0) (float-vector 685.0 225.5 36.0) (float-vector 715.0 225.5 36.0) (float-vector 715.0 222.5 36.0)))
-         (instance face :init :vertices (list (float-vector 685.0 222.5 170.0) (float-vector 685.0 225.5 170.0) (float-vector 685.0 225.5 36.0) (float-vector 685.0 222.5 36.0)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 -15.5291) (float-vector 60.0 -15.0 7.105427e-15) (float-vector 57.9555 -15.0 15.5291) (float-vector 51.9615 -15.0 30.0) (float-vector 42.4264 -15.0 42.4264) (float-vector 30.0 -15.0 51.9615) (float-vector 15.5291 -15.0 57.9555) (float-vector 2.842171e-14 -15.0 60.0) (float-vector -15.5291 -15.0 57.9555) (float-vector -30.0 -15.0 51.9615) (float-vector -42.4264 -15.0 42.4264) (float-vector -51.9615 -15.0 30.0) (float-vector -57.9555 -15.0 15.5291) (float-vector -60.0 -15.0 7.105427e-14) (float-vector -57.9555 -15.0 -15.5291) (float-vector -51.9615 -15.0 -30.0) (float-vector -42.4264 -15.0 -42.4264) (float-vector -30.0 -15.0 -51.9615) (float-vector -15.5291 -15.0 -57.9555) (float-vector -8.526513e-14 -15.0 -60.0) (float-vector 15.5291 -15.0 -57.9555) (float-vector 30.0 -15.0 -51.9615) (float-vector 42.4264 -15.0 -42.4264) (float-vector 51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector 60.0 15.0 0.0) (float-vector 57.9555 15.0 -15.5291) (float-vector 51.9615 15.0 -30.0) (float-vector 42.4264 15.0 -42.4264) (float-vector 30.0 15.0 -51.9615) (float-vector 15.5291 15.0 -57.9555) (float-vector -8.526513e-14 15.0 -60.0) (float-vector -15.5291 15.0 -57.9555) (float-vector -30.0 15.0 -51.9615) (float-vector -42.4264 15.0 -42.4264) (float-vector -51.9615 15.0 -30.0) (float-vector -57.9555 15.0 -15.5291) (float-vector -60.0 15.0 6.394885e-14) (float-vector -57.9555 15.0 15.5291) (float-vector -51.9615 15.0 30.0) (float-vector -42.4264 15.0 42.4264) (float-vector -30.0 15.0 51.9615) (float-vector -15.5291 15.0 57.9555) (float-vector 2.842171e-14 15.0 60.0) (float-vector 15.5291 15.0 57.9555) (float-vector 30.0 15.0 51.9615) (float-vector 42.4264 15.0 42.4264) (float-vector 51.9615 15.0 30.0) (float-vector 57.9555 15.0 15.5291)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 -15.5291) (float-vector 57.9555 15.0 -15.5291) (float-vector 60.0 15.0 0.0) (float-vector 60.0 -15.0 7.105427e-15)))
+         (instance face :init :vertices (list (float-vector 51.9615 -15.0 -30.0) (float-vector 51.9615 15.0 -30.0) (float-vector 57.9555 15.0 -15.5291) (float-vector 57.9555 -15.0 -15.5291)))
+         (instance face :init :vertices (list (float-vector 42.4264 -15.0 -42.4264) (float-vector 42.4264 15.0 -42.4264) (float-vector 51.9615 15.0 -30.0) (float-vector 51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector 30.0 -15.0 -51.9615) (float-vector 30.0 15.0 -51.9615) (float-vector 42.4264 15.0 -42.4264) (float-vector 42.4264 -15.0 -42.4264)))
+         (instance face :init :vertices (list (float-vector 15.5291 -15.0 -57.9555) (float-vector 15.5291 15.0 -57.9555) (float-vector 30.0 15.0 -51.9615) (float-vector 30.0 -15.0 -51.9615)))
+         (instance face :init :vertices (list (float-vector -8.526513e-14 -15.0 -60.0) (float-vector -8.526513e-14 15.0 -60.0) (float-vector 15.5291 15.0 -57.9555) (float-vector 15.5291 -15.0 -57.9555)))
+         (instance face :init :vertices (list (float-vector -15.5291 -15.0 -57.9555) (float-vector -15.5291 15.0 -57.9555) (float-vector -8.526513e-14 15.0 -60.0) (float-vector -8.526513e-14 -15.0 -60.0)))
+         (instance face :init :vertices (list (float-vector -30.0 -15.0 -51.9615) (float-vector -30.0 15.0 -51.9615) (float-vector -15.5291 15.0 -57.9555) (float-vector -15.5291 -15.0 -57.9555)))
+         (instance face :init :vertices (list (float-vector -42.4264 -15.0 -42.4264) (float-vector -42.4264 15.0 -42.4264) (float-vector -30.0 15.0 -51.9615) (float-vector -30.0 -15.0 -51.9615)))
+         (instance face :init :vertices (list (float-vector -51.9615 -15.0 -30.0) (float-vector -51.9615 15.0 -30.0) (float-vector -42.4264 15.0 -42.4264) (float-vector -42.4264 -15.0 -42.4264)))
+         (instance face :init :vertices (list (float-vector -57.9555 -15.0 -15.5291) (float-vector -57.9555 15.0 -15.5291) (float-vector -51.9615 15.0 -30.0) (float-vector -51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector -60.0 -15.0 7.105427e-14) (float-vector -60.0 15.0 6.394885e-14) (float-vector -57.9555 15.0 -15.5291) (float-vector -57.9555 -15.0 -15.5291)))
+         (instance face :init :vertices (list (float-vector -57.9555 -15.0 15.5291) (float-vector -57.9555 15.0 15.5291) (float-vector -60.0 15.0 6.394885e-14) (float-vector -60.0 -15.0 7.105427e-14)))
+         (instance face :init :vertices (list (float-vector -51.9615 -15.0 30.0) (float-vector -51.9615 15.0 30.0) (float-vector -57.9555 15.0 15.5291) (float-vector -57.9555 -15.0 15.5291)))
+         (instance face :init :vertices (list (float-vector -42.4264 -15.0 42.4264) (float-vector -42.4264 15.0 42.4264) (float-vector -51.9615 15.0 30.0) (float-vector -51.9615 -15.0 30.0)))
+         (instance face :init :vertices (list (float-vector -30.0 -15.0 51.9615) (float-vector -30.0 15.0 51.9615) (float-vector -42.4264 15.0 42.4264) (float-vector -42.4264 -15.0 42.4264)))
+         (instance face :init :vertices (list (float-vector -15.5291 -15.0 57.9555) (float-vector -15.5291 15.0 57.9555) (float-vector -30.0 15.0 51.9615) (float-vector -30.0 -15.0 51.9615)))
+         (instance face :init :vertices (list (float-vector 2.842171e-14 -15.0 60.0) (float-vector 2.842171e-14 15.0 60.0) (float-vector -15.5291 15.0 57.9555) (float-vector -15.5291 -15.0 57.9555)))
+         (instance face :init :vertices (list (float-vector 15.5291 -15.0 57.9555) (float-vector 15.5291 15.0 57.9555) (float-vector 2.842171e-14 15.0 60.0) (float-vector 2.842171e-14 -15.0 60.0)))
+         (instance face :init :vertices (list (float-vector 30.0 -15.0 51.9615) (float-vector 30.0 15.0 51.9615) (float-vector 15.5291 15.0 57.9555) (float-vector 15.5291 -15.0 57.9555)))
+         (instance face :init :vertices (list (float-vector 42.4264 -15.0 42.4264) (float-vector 42.4264 15.0 42.4264) (float-vector 30.0 15.0 51.9615) (float-vector 30.0 -15.0 51.9615)))
+         (instance face :init :vertices (list (float-vector 51.9615 -15.0 30.0) (float-vector 51.9615 15.0 30.0) (float-vector 42.4264 15.0 42.4264) (float-vector 42.4264 -15.0 42.4264)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 15.5291) (float-vector 57.9555 15.0 15.5291) (float-vector 51.9615 15.0 30.0) (float-vector 51.9615 -15.0 30.0)))
+         (instance face :init :vertices (list (float-vector 60.0 -15.0 7.105427e-15) (float-vector 60.0 15.0 0.0) (float-vector 57.9555 15.0 15.5291) (float-vector 57.9555 -15.0 15.5291)))
+       ))
        ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (setq blink3 (instance bodyset-link :init (make-cascoords) :bodies bc :name :rear-right-wheel :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :left-front-fork
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 751.962 -260.0 30.0) (float-vector 760.0 -260.0 60.0) (float-vector 751.962 -260.0 90.0) (float-vector 730.0 -260.0 111.962) (float-vector 700.0 -260.0 120.0) (float-vector 670.0 -260.0 111.962) (float-vector 648.038 -260.0 90.0) (float-vector 640.0 -260.0 60.0) (float-vector 648.038 -260.0 30.0) (float-vector 670.0 -260.0 8.03848) (float-vector 700.0 -260.0 2.131628e-14) (float-vector 730.0 -260.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 760.0 -230.0 60.0) (float-vector 751.962 -230.0 30.0) (float-vector 730.0 -230.0 8.03848) (float-vector 700.0 -230.0 1.421085e-14) (float-vector 670.0 -230.0 8.03848) (float-vector 648.038 -230.0 30.0) (float-vector 640.0 -230.0 60.0) (float-vector 648.038 -230.0 90.0) (float-vector 670.0 -230.0 111.962) (float-vector 700.0 -230.0 120.0) (float-vector 730.0 -230.0 111.962) (float-vector 751.962 -230.0 90.0)))
-         (instance face :init :vertices (list (float-vector 751.962 -260.0 30.0) (float-vector 751.962 -230.0 30.0) (float-vector 760.0 -230.0 60.0) (float-vector 760.0 -260.0 60.0)))
-         (instance face :init :vertices (list (float-vector 730.0 -260.0 8.03848) (float-vector 730.0 -230.0 8.03848) (float-vector 751.962 -230.0 30.0) (float-vector 751.962 -260.0 30.0)))
-         (instance face :init :vertices (list (float-vector 700.0 -260.0 2.131628e-14) (float-vector 700.0 -230.0 1.421085e-14) (float-vector 730.0 -230.0 8.03848) (float-vector 730.0 -260.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 670.0 -260.0 8.03848) (float-vector 670.0 -230.0 8.03848) (float-vector 700.0 -230.0 1.421085e-14) (float-vector 700.0 -260.0 2.131628e-14)))
-         (instance face :init :vertices (list (float-vector 648.038 -260.0 30.0) (float-vector 648.038 -230.0 30.0) (float-vector 670.0 -230.0 8.03848) (float-vector 670.0 -260.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 640.0 -260.0 60.0) (float-vector 640.0 -230.0 60.0) (float-vector 648.038 -230.0 30.0) (float-vector 648.038 -260.0 30.0)))
-         (instance face :init :vertices (list (float-vector 648.038 -260.0 90.0) (float-vector 648.038 -230.0 90.0) (float-vector 640.0 -230.0 60.0) (float-vector 640.0 -260.0 60.0)))
-         (instance face :init :vertices (list (float-vector 670.0 -260.0 111.962) (float-vector 670.0 -230.0 111.962) (float-vector 648.038 -230.0 90.0) (float-vector 648.038 -260.0 90.0)))
-         (instance face :init :vertices (list (float-vector 700.0 -260.0 120.0) (float-vector 700.0 -230.0 120.0) (float-vector 670.0 -230.0 111.962) (float-vector 670.0 -260.0 111.962)))
-         (instance face :init :vertices (list (float-vector 730.0 -260.0 111.962) (float-vector 730.0 -230.0 111.962) (float-vector 700.0 -230.0 120.0) (float-vector 700.0 -260.0 120.0)))
-         (instance face :init :vertices (list (float-vector 751.962 -260.0 90.0) (float-vector 751.962 -230.0 90.0) (float-vector 730.0 -230.0 111.962) (float-vector 730.0 -260.0 111.962)))
-         (instance face :init :vertices (list (float-vector 760.0 -260.0 60.0) (float-vector 760.0 -230.0 60.0) (float-vector 751.962 -230.0 90.0) (float-vector 751.962 -260.0 90.0)))
+         (instance face :init :vertices (list (float-vector -15.0 19.5 0.0) (float-vector -45.0 19.5 0.0) (float-vector -45.0 19.5 -134.0) (float-vector -15.0 19.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -45.0 22.5 0.0) (float-vector -15.0 22.5 0.0) (float-vector -15.0 22.5 -134.0) (float-vector -45.0 22.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -15.0 19.5 0.0) (float-vector -15.0 22.5 0.0) (float-vector -45.0 22.5 0.0) (float-vector -45.0 19.5 0.0)))
+         (instance face :init :vertices (list (float-vector -15.0 19.5 -134.0) (float-vector -15.0 22.5 -134.0) (float-vector -15.0 22.5 0.0) (float-vector -15.0 19.5 0.0)))
+         (instance face :init :vertices (list (float-vector -45.0 19.5 -134.0) (float-vector -45.0 22.5 -134.0) (float-vector -15.0 22.5 -134.0) (float-vector -15.0 19.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -45.0 19.5 0.0) (float-vector -45.0 22.5 0.0) (float-vector -45.0 22.5 -134.0) (float-vector -45.0 19.5 -134.0)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 715.0 -225.5 170.0) (float-vector 685.0 -225.5 170.0) (float-vector 685.0 -225.5 36.0) (float-vector 715.0 -225.5 36.0)))
-         (instance face :init :vertices (list (float-vector 685.0 -222.5 170.0) (float-vector 715.0 -222.5 170.0) (float-vector 715.0 -222.5 36.0) (float-vector 685.0 -222.5 36.0)))
-         (instance face :init :vertices (list (float-vector 715.0 -225.5 170.0) (float-vector 715.0 -222.5 170.0) (float-vector 685.0 -222.5 170.0) (float-vector 685.0 -225.5 170.0)))
-         (instance face :init :vertices (list (float-vector 715.0 -225.5 36.0) (float-vector 715.0 -222.5 36.0) (float-vector 715.0 -222.5 170.0) (float-vector 715.0 -225.5 170.0)))
-         (instance face :init :vertices (list (float-vector 685.0 -225.5 36.0) (float-vector 685.0 -222.5 36.0) (float-vector 715.0 -222.5 36.0) (float-vector 715.0 -225.5 36.0)))
-         (instance face :init :vertices (list (float-vector 685.0 -225.5 170.0) (float-vector 685.0 -222.5 170.0) (float-vector 685.0 -222.5 36.0) (float-vector 685.0 -225.5 36.0)))
+         (instance face :init :vertices (list (float-vector -15.0 -22.5 0.0) (float-vector -45.0 -22.5 0.0) (float-vector -45.0 -22.5 -134.0) (float-vector -15.0 -22.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -45.0 -19.5 0.0) (float-vector -15.0 -19.5 0.0) (float-vector -15.0 -19.5 -134.0) (float-vector -45.0 -19.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -15.0 -22.5 0.0) (float-vector -15.0 -19.5 0.0) (float-vector -45.0 -19.5 0.0) (float-vector -45.0 -22.5 0.0)))
+         (instance face :init :vertices (list (float-vector -15.0 -22.5 -134.0) (float-vector -15.0 -19.5 -134.0) (float-vector -15.0 -19.5 0.0) (float-vector -15.0 -22.5 0.0)))
+         (instance face :init :vertices (list (float-vector -45.0 -22.5 -134.0) (float-vector -45.0 -19.5 -134.0) (float-vector -15.0 -19.5 -134.0) (float-vector -15.0 -22.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -45.0 -22.5 0.0) (float-vector -45.0 -19.5 0.0) (float-vector -45.0 -19.5 -134.0) (float-vector -45.0 -22.5 -134.0)))
        ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (send (elt bc 1) :set-color :gray)
+     (setq blink4 (instance bodyset-link :init (make-cascoords) :bodies bc :name :left-front-fork :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :front-left-wheel
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 715.0 -267.5 170.0) (float-vector 685.0 -267.5 170.0) (float-vector 685.0 -267.5 36.0) (float-vector 715.0 -267.5 36.0)))
-         (instance face :init :vertices (list (float-vector 685.0 -264.5 170.0) (float-vector 715.0 -264.5 170.0) (float-vector 715.0 -264.5 36.0) (float-vector 685.0 -264.5 36.0)))
-         (instance face :init :vertices (list (float-vector 715.0 -267.5 170.0) (float-vector 715.0 -264.5 170.0) (float-vector 685.0 -264.5 170.0) (float-vector 685.0 -267.5 170.0)))
-         (instance face :init :vertices (list (float-vector 715.0 -267.5 36.0) (float-vector 715.0 -264.5 36.0) (float-vector 715.0 -264.5 170.0) (float-vector 715.0 -267.5 170.0)))
-         (instance face :init :vertices (list (float-vector 685.0 -267.5 36.0) (float-vector 685.0 -264.5 36.0) (float-vector 715.0 -264.5 36.0) (float-vector 715.0 -267.5 36.0)))
-         (instance face :init :vertices (list (float-vector 685.0 -267.5 170.0) (float-vector 685.0 -264.5 170.0) (float-vector 685.0 -264.5 36.0) (float-vector 685.0 -267.5 36.0)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 -15.5291) (float-vector 60.0 -15.0 7.105427e-15) (float-vector 57.9555 -15.0 15.5291) (float-vector 51.9615 -15.0 30.0) (float-vector 42.4264 -15.0 42.4264) (float-vector 30.0 -15.0 51.9615) (float-vector 15.5291 -15.0 57.9555) (float-vector 0.0 -15.0 60.0) (float-vector -15.5291 -15.0 57.9555) (float-vector -30.0 -15.0 51.9615) (float-vector -42.4264 -15.0 42.4264) (float-vector -51.9615 -15.0 30.0) (float-vector -57.9555 -15.0 15.5291) (float-vector -60.0 -15.0 7.105427e-14) (float-vector -57.9555 -15.0 -15.5291) (float-vector -51.9615 -15.0 -30.0) (float-vector -42.4264 -15.0 -42.4264) (float-vector -30.0 -15.0 -51.9615) (float-vector -15.5291 -15.0 -57.9555) (float-vector -1.136868e-13 -15.0 -60.0) (float-vector 15.5291 -15.0 -57.9555) (float-vector 30.0 -15.0 -51.9615) (float-vector 42.4264 -15.0 -42.4264) (float-vector 51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector 60.0 15.0 0.0) (float-vector 57.9555 15.0 -15.5291) (float-vector 51.9615 15.0 -30.0) (float-vector 42.4264 15.0 -42.4264) (float-vector 30.0 15.0 -51.9615) (float-vector 15.5291 15.0 -57.9555) (float-vector -1.136868e-13 15.0 -60.0) (float-vector -15.5291 15.0 -57.9555) (float-vector -30.0 15.0 -51.9615) (float-vector -42.4264 15.0 -42.4264) (float-vector -51.9615 15.0 -30.0) (float-vector -57.9555 15.0 -15.5291) (float-vector -60.0 15.0 6.394885e-14) (float-vector -57.9555 15.0 15.5291) (float-vector -51.9615 15.0 30.0) (float-vector -42.4264 15.0 42.4264) (float-vector -30.0 15.0 51.9615) (float-vector -15.5291 15.0 57.9555) (float-vector 0.0 15.0 60.0) (float-vector 15.5291 15.0 57.9555) (float-vector 30.0 15.0 51.9615) (float-vector 42.4264 15.0 42.4264) (float-vector 51.9615 15.0 30.0) (float-vector 57.9555 15.0 15.5291)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 -15.5291) (float-vector 57.9555 15.0 -15.5291) (float-vector 60.0 15.0 0.0) (float-vector 60.0 -15.0 7.105427e-15)))
+         (instance face :init :vertices (list (float-vector 51.9615 -15.0 -30.0) (float-vector 51.9615 15.0 -30.0) (float-vector 57.9555 15.0 -15.5291) (float-vector 57.9555 -15.0 -15.5291)))
+         (instance face :init :vertices (list (float-vector 42.4264 -15.0 -42.4264) (float-vector 42.4264 15.0 -42.4264) (float-vector 51.9615 15.0 -30.0) (float-vector 51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector 30.0 -15.0 -51.9615) (float-vector 30.0 15.0 -51.9615) (float-vector 42.4264 15.0 -42.4264) (float-vector 42.4264 -15.0 -42.4264)))
+         (instance face :init :vertices (list (float-vector 15.5291 -15.0 -57.9555) (float-vector 15.5291 15.0 -57.9555) (float-vector 30.0 15.0 -51.9615) (float-vector 30.0 -15.0 -51.9615)))
+         (instance face :init :vertices (list (float-vector -1.136868e-13 -15.0 -60.0) (float-vector -1.136868e-13 15.0 -60.0) (float-vector 15.5291 15.0 -57.9555) (float-vector 15.5291 -15.0 -57.9555)))
+         (instance face :init :vertices (list (float-vector -15.5291 -15.0 -57.9555) (float-vector -15.5291 15.0 -57.9555) (float-vector -1.136868e-13 15.0 -60.0) (float-vector -1.136868e-13 -15.0 -60.0)))
+         (instance face :init :vertices (list (float-vector -30.0 -15.0 -51.9615) (float-vector -30.0 15.0 -51.9615) (float-vector -15.5291 15.0 -57.9555) (float-vector -15.5291 -15.0 -57.9555)))
+         (instance face :init :vertices (list (float-vector -42.4264 -15.0 -42.4264) (float-vector -42.4264 15.0 -42.4264) (float-vector -30.0 15.0 -51.9615) (float-vector -30.0 -15.0 -51.9615)))
+         (instance face :init :vertices (list (float-vector -51.9615 -15.0 -30.0) (float-vector -51.9615 15.0 -30.0) (float-vector -42.4264 15.0 -42.4264) (float-vector -42.4264 -15.0 -42.4264)))
+         (instance face :init :vertices (list (float-vector -57.9555 -15.0 -15.5291) (float-vector -57.9555 15.0 -15.5291) (float-vector -51.9615 15.0 -30.0) (float-vector -51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector -60.0 -15.0 7.105427e-14) (float-vector -60.0 15.0 6.394885e-14) (float-vector -57.9555 15.0 -15.5291) (float-vector -57.9555 -15.0 -15.5291)))
+         (instance face :init :vertices (list (float-vector -57.9555 -15.0 15.5291) (float-vector -57.9555 15.0 15.5291) (float-vector -60.0 15.0 6.394885e-14) (float-vector -60.0 -15.0 7.105427e-14)))
+         (instance face :init :vertices (list (float-vector -51.9615 -15.0 30.0) (float-vector -51.9615 15.0 30.0) (float-vector -57.9555 15.0 15.5291) (float-vector -57.9555 -15.0 15.5291)))
+         (instance face :init :vertices (list (float-vector -42.4264 -15.0 42.4264) (float-vector -42.4264 15.0 42.4264) (float-vector -51.9615 15.0 30.0) (float-vector -51.9615 -15.0 30.0)))
+         (instance face :init :vertices (list (float-vector -30.0 -15.0 51.9615) (float-vector -30.0 15.0 51.9615) (float-vector -42.4264 15.0 42.4264) (float-vector -42.4264 -15.0 42.4264)))
+         (instance face :init :vertices (list (float-vector -15.5291 -15.0 57.9555) (float-vector -15.5291 15.0 57.9555) (float-vector -30.0 15.0 51.9615) (float-vector -30.0 -15.0 51.9615)))
+         (instance face :init :vertices (list (float-vector 0.0 -15.0 60.0) (float-vector 0.0 15.0 60.0) (float-vector -15.5291 15.0 57.9555) (float-vector -15.5291 -15.0 57.9555)))
+         (instance face :init :vertices (list (float-vector 15.5291 -15.0 57.9555) (float-vector 15.5291 15.0 57.9555) (float-vector 0.0 15.0 60.0) (float-vector 0.0 -15.0 60.0)))
+         (instance face :init :vertices (list (float-vector 30.0 -15.0 51.9615) (float-vector 30.0 15.0 51.9615) (float-vector 15.5291 15.0 57.9555) (float-vector 15.5291 -15.0 57.9555)))
+         (instance face :init :vertices (list (float-vector 42.4264 -15.0 42.4264) (float-vector 42.4264 15.0 42.4264) (float-vector 30.0 15.0 51.9615) (float-vector 30.0 -15.0 51.9615)))
+         (instance face :init :vertices (list (float-vector 51.9615 -15.0 30.0) (float-vector 51.9615 15.0 30.0) (float-vector 42.4264 15.0 42.4264) (float-vector 42.4264 -15.0 42.4264)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 15.5291) (float-vector 57.9555 15.0 15.5291) (float-vector 51.9615 15.0 30.0) (float-vector 51.9615 -15.0 30.0)))
+         (instance face :init :vertices (list (float-vector 60.0 -15.0 7.105427e-15) (float-vector 60.0 15.0 0.0) (float-vector 57.9555 15.0 15.5291) (float-vector 57.9555 -15.0 15.5291)))
        ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (setq blink5 (instance bodyset-link :init (make-cascoords) :bodies bc :name :front-left-wheel :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :right-front-fork
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 88.6603 -220.0 885.0) (float-vector 90.0 -220.0 890.0) (float-vector 88.6603 -220.0 895.0) (float-vector 85.0 -220.0 898.66) (float-vector 80.0 -220.0 900.0) (float-vector 75.0 -220.0 898.66) (float-vector 71.3397 -220.0 895.0) (float-vector 70.0 -220.0 890.0) (float-vector 71.3397 -220.0 885.0) (float-vector 75.0 -220.0 881.34) (float-vector 80.0 -220.0 880.0) (float-vector 85.0 -220.0 881.34)))
-         (instance face :init :vertices (list (float-vector 90.0 220.0 890.0) (float-vector 88.6603 220.0 885.0) (float-vector 85.0 220.0 881.34) (float-vector 80.0 220.0 880.0) (float-vector 75.0 220.0 881.34) (float-vector 71.3397 220.0 885.0) (float-vector 70.0 220.0 890.0) (float-vector 71.3397 220.0 895.0) (float-vector 75.0 220.0 898.66) (float-vector 80.0 220.0 900.0) (float-vector 85.0 220.0 898.66) (float-vector 88.6603 220.0 895.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 -220.0 885.0) (float-vector 88.6603 220.0 885.0) (float-vector 90.0 220.0 890.0) (float-vector 90.0 -220.0 890.0)))
-         (instance face :init :vertices (list (float-vector 85.0 -220.0 881.34) (float-vector 85.0 220.0 881.34) (float-vector 88.6603 220.0 885.0) (float-vector 88.6603 -220.0 885.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -220.0 880.0) (float-vector 80.0 220.0 880.0) (float-vector 85.0 220.0 881.34) (float-vector 85.0 -220.0 881.34)))
-         (instance face :init :vertices (list (float-vector 75.0 -220.0 881.34) (float-vector 75.0 220.0 881.34) (float-vector 80.0 220.0 880.0) (float-vector 80.0 -220.0 880.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 -220.0 885.0) (float-vector 71.3397 220.0 885.0) (float-vector 75.0 220.0 881.34) (float-vector 75.0 -220.0 881.34)))
-         (instance face :init :vertices (list (float-vector 70.0 -220.0 890.0) (float-vector 70.0 220.0 890.0) (float-vector 71.3397 220.0 885.0) (float-vector 71.3397 -220.0 885.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 -220.0 895.0) (float-vector 71.3397 220.0 895.0) (float-vector 70.0 220.0 890.0) (float-vector 70.0 -220.0 890.0)))
-         (instance face :init :vertices (list (float-vector 75.0 -220.0 898.66) (float-vector 75.0 220.0 898.66) (float-vector 71.3397 220.0 895.0) (float-vector 71.3397 -220.0 895.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -220.0 900.0) (float-vector 80.0 220.0 900.0) (float-vector 75.0 220.0 898.66) (float-vector 75.0 -220.0 898.66)))
-         (instance face :init :vertices (list (float-vector 85.0 -220.0 898.66) (float-vector 85.0 220.0 898.66) (float-vector 80.0 220.0 900.0) (float-vector 80.0 -220.0 900.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 -220.0 895.0) (float-vector 88.6603 220.0 895.0) (float-vector 85.0 220.0 898.66) (float-vector 85.0 -220.0 898.66)))
-         (instance face :init :vertices (list (float-vector 90.0 -220.0 890.0) (float-vector 90.0 220.0 890.0) (float-vector 88.6603 220.0 895.0) (float-vector 88.6603 -220.0 895.0)))
+         (instance face :init :vertices (list (float-vector -15.0 19.5 0.0) (float-vector -45.0 19.5 0.0) (float-vector -45.0 19.5 -134.0) (float-vector -15.0 19.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -45.0 22.5 0.0) (float-vector -15.0 22.5 0.0) (float-vector -15.0 22.5 -134.0) (float-vector -45.0 22.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -15.0 19.5 0.0) (float-vector -15.0 22.5 0.0) (float-vector -45.0 22.5 0.0) (float-vector -45.0 19.5 0.0)))
+         (instance face :init :vertices (list (float-vector -15.0 19.5 -134.0) (float-vector -15.0 22.5 -134.0) (float-vector -15.0 22.5 0.0) (float-vector -15.0 19.5 0.0)))
+         (instance face :init :vertices (list (float-vector -45.0 19.5 -134.0) (float-vector -45.0 22.5 -134.0) (float-vector -15.0 22.5 -134.0) (float-vector -15.0 19.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -45.0 19.5 0.0) (float-vector -45.0 22.5 0.0) (float-vector -45.0 22.5 -134.0) (float-vector -45.0 19.5 -134.0)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 80.0 -220.0 900.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 -220.0 897.071) (float-vector 80.0 -220.0 900.0) (float-vector 80.0 -246.788 894.672) (float-vector 72.9289 -245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 80.0 -246.788 894.672) (float-vector 80.0 -269.497 879.497) (float-vector 72.9289 -267.426 877.426) (float-vector 72.9289 -245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 80.0 -269.497 879.497) (float-vector 80.0 -284.672 856.788) (float-vector 72.9289 -281.966 855.667) (float-vector 72.9289 -267.426 877.426)))
-         (instance face :init :vertices (list (float-vector 72.9289 -287.071 830.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -284.672 856.788) (float-vector 80.0 -290.0 830.0) (float-vector 72.9289 -287.071 830.0) (float-vector 72.9289 -281.966 855.667)))
-         (instance face :init :vertices (list (float-vector 72.9289 -220.0 897.071)))
-         (instance face :init :vertices (list (float-vector 70.0 -220.0 890.0) (float-vector 72.9289 -220.0 897.071) (float-vector 72.9289 -245.667 891.966) (float-vector 70.0 -242.961 885.433)))
-         (instance face :init :vertices (list (float-vector 72.9289 -267.426 877.426) (float-vector 70.0 -262.426 872.426) (float-vector 70.0 -242.961 885.433) (float-vector 72.9289 -245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 72.9289 -281.966 855.667) (float-vector 70.0 -275.433 852.961) (float-vector 70.0 -262.426 872.426) (float-vector 72.9289 -267.426 877.426)))
-         (instance face :init :vertices (list (float-vector 70.0 -280.0 830.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 -287.071 830.0) (float-vector 70.0 -280.0 830.0) (float-vector 70.0 -275.433 852.961) (float-vector 72.9289 -281.966 855.667)))
-         (instance face :init :vertices (list (float-vector 70.0 -220.0 890.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 -220.0 882.929) (float-vector 70.0 -220.0 890.0) (float-vector 70.0 -242.961 885.433) (float-vector 72.9289 -240.255 878.9)))
-         (instance face :init :vertices (list (float-vector 70.0 -262.426 872.426) (float-vector 72.9289 -257.426 867.426) (float-vector 72.9289 -240.255 878.9) (float-vector 70.0 -242.961 885.433)))
-         (instance face :init :vertices (list (float-vector 70.0 -275.433 852.961) (float-vector 72.9289 -268.9 850.255) (float-vector 72.9289 -257.426 867.426) (float-vector 70.0 -262.426 872.426)))
-         (instance face :init :vertices (list (float-vector 72.9289 -272.929 830.0)))
-         (instance face :init :vertices (list (float-vector 70.0 -280.0 830.0) (float-vector 72.9289 -272.929 830.0) (float-vector 72.9289 -268.9 850.255) (float-vector 70.0 -275.433 852.961)))
-         (instance face :init :vertices (list (float-vector 72.9289 -220.0 882.929)))
-         (instance face :init :vertices (list (float-vector 80.0 -220.0 880.0) (float-vector 72.9289 -220.0 882.929) (float-vector 72.9289 -240.255 878.9) (float-vector 80.0 -239.134 876.194)))
-         (instance face :init :vertices (list (float-vector 72.9289 -257.426 867.426) (float-vector 80.0 -255.355 865.355) (float-vector 80.0 -239.134 876.194) (float-vector 72.9289 -240.255 878.9)))
-         (instance face :init :vertices (list (float-vector 72.9289 -268.9 850.255) (float-vector 80.0 -266.194 849.134) (float-vector 80.0 -255.355 865.355) (float-vector 72.9289 -257.426 867.426)))
-         (instance face :init :vertices (list (float-vector 80.0 -270.0 830.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 -272.929 830.0) (float-vector 80.0 -270.0 830.0) (float-vector 80.0 -266.194 849.134) (float-vector 72.9289 -268.9 850.255)))
-         (instance face :init :vertices (list (float-vector 80.0 -220.0 880.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 -220.0 882.929) (float-vector 80.0 -220.0 880.0) (float-vector 80.0 -239.134 876.194) (float-vector 87.0711 -240.255 878.9)))
-         (instance face :init :vertices (list (float-vector 80.0 -255.355 865.355) (float-vector 87.0711 -257.426 867.426) (float-vector 87.0711 -240.255 878.9) (float-vector 80.0 -239.134 876.194)))
-         (instance face :init :vertices (list (float-vector 80.0 -266.194 849.134) (float-vector 87.0711 -268.9 850.255) (float-vector 87.0711 -257.426 867.426) (float-vector 80.0 -255.355 865.355)))
-         (instance face :init :vertices (list (float-vector 87.0711 -272.929 830.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -270.0 830.0) (float-vector 87.0711 -272.929 830.0) (float-vector 87.0711 -268.9 850.255) (float-vector 80.0 -266.194 849.134)))
-         (instance face :init :vertices (list (float-vector 87.0711 -220.0 882.929)))
-         (instance face :init :vertices (list (float-vector 90.0 -220.0 890.0) (float-vector 87.0711 -220.0 882.929) (float-vector 87.0711 -240.255 878.9) (float-vector 90.0 -242.961 885.433)))
-         (instance face :init :vertices (list (float-vector 87.0711 -257.426 867.426) (float-vector 90.0 -262.426 872.426) (float-vector 90.0 -242.961 885.433) (float-vector 87.0711 -240.255 878.9)))
-         (instance face :init :vertices (list (float-vector 87.0711 -268.9 850.255) (float-vector 90.0 -275.433 852.961) (float-vector 90.0 -262.426 872.426) (float-vector 87.0711 -257.426 867.426)))
-         (instance face :init :vertices (list (float-vector 90.0 -280.0 830.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 -272.929 830.0) (float-vector 90.0 -280.0 830.0) (float-vector 90.0 -275.433 852.961) (float-vector 87.0711 -268.9 850.255)))
-         (instance face :init :vertices (list (float-vector 90.0 -220.0 890.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 -220.0 897.071) (float-vector 90.0 -220.0 890.0) (float-vector 90.0 -242.961 885.433) (float-vector 87.0711 -245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 90.0 -262.426 872.426) (float-vector 87.0711 -267.426 877.426) (float-vector 87.0711 -245.667 891.966) (float-vector 90.0 -242.961 885.433)))
-         (instance face :init :vertices (list (float-vector 90.0 -275.433 852.961) (float-vector 87.0711 -281.966 855.667) (float-vector 87.0711 -267.426 877.426) (float-vector 90.0 -262.426 872.426)))
-         (instance face :init :vertices (list (float-vector 87.0711 -287.071 830.0)))
-         (instance face :init :vertices (list (float-vector 90.0 -280.0 830.0) (float-vector 87.0711 -287.071 830.0) (float-vector 87.0711 -281.966 855.667) (float-vector 90.0 -275.433 852.961)))
-         (instance face :init :vertices (list (float-vector 87.0711 -220.0 897.071)))
-         (instance face :init :vertices (list (float-vector 80.0 -220.0 900.0) (float-vector 87.0711 -220.0 897.071) (float-vector 87.0711 -245.667 891.966) (float-vector 80.0 -246.788 894.672)))
-         (instance face :init :vertices (list (float-vector 87.0711 -267.426 877.426) (float-vector 80.0 -269.497 879.497) (float-vector 80.0 -246.788 894.672) (float-vector 87.0711 -245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 87.0711 -281.966 855.667) (float-vector 80.0 -284.672 856.788) (float-vector 80.0 -269.497 879.497) (float-vector 87.0711 -267.426 877.426)))
-         (instance face :init :vertices (list (float-vector 80.0 -290.0 830.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 -287.071 830.0) (float-vector 80.0 -290.0 830.0) (float-vector 80.0 -284.672 856.788) (float-vector 87.0711 -281.966 855.667)))
+         (instance face :init :vertices (list (float-vector -15.0 -22.5 0.0) (float-vector -45.0 -22.5 0.0) (float-vector -45.0 -22.5 -134.0) (float-vector -15.0 -22.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -45.0 -19.5 0.0) (float-vector -15.0 -19.5 0.0) (float-vector -15.0 -19.5 -134.0) (float-vector -45.0 -19.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -15.0 -22.5 0.0) (float-vector -15.0 -19.5 0.0) (float-vector -45.0 -19.5 0.0) (float-vector -45.0 -22.5 0.0)))
+         (instance face :init :vertices (list (float-vector -15.0 -22.5 -134.0) (float-vector -15.0 -19.5 -134.0) (float-vector -15.0 -19.5 0.0) (float-vector -15.0 -22.5 0.0)))
+         (instance face :init :vertices (list (float-vector -45.0 -22.5 -134.0) (float-vector -45.0 -19.5 -134.0) (float-vector -15.0 -19.5 -134.0) (float-vector -15.0 -22.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -45.0 -22.5 0.0) (float-vector -45.0 -19.5 0.0) (float-vector -45.0 -19.5 -134.0) (float-vector -45.0 -22.5 -134.0)))
        ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (send (elt bc 1) :set-color :gray)
+     (setq blink6 (instance bodyset-link :init (make-cascoords) :bodies bc :name :right-front-fork :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :front-right-wheel
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 80.0 220.0 900.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 220.0 897.071) (float-vector 80.0 220.0 900.0) (float-vector 80.0 246.788 894.672) (float-vector 87.0711 245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 80.0 246.788 894.672) (float-vector 80.0 269.497 879.497) (float-vector 87.0711 267.426 877.426) (float-vector 87.0711 245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 80.0 269.497 879.497) (float-vector 80.0 284.672 856.788) (float-vector 87.0711 281.966 855.667) (float-vector 87.0711 267.426 877.426)))
-         (instance face :init :vertices (list (float-vector 87.0711 287.071 830.0)))
-         (instance face :init :vertices (list (float-vector 80.0 284.672 856.788) (float-vector 80.0 290.0 830.0) (float-vector 87.0711 287.071 830.0) (float-vector 87.0711 281.966 855.667)))
-         (instance face :init :vertices (list (float-vector 87.0711 220.0 897.071)))
-         (instance face :init :vertices (list (float-vector 90.0 220.0 890.0) (float-vector 87.0711 220.0 897.071) (float-vector 87.0711 245.667 891.966) (float-vector 90.0 242.961 885.433)))
-         (instance face :init :vertices (list (float-vector 87.0711 267.426 877.426) (float-vector 90.0 262.426 872.426) (float-vector 90.0 242.961 885.433) (float-vector 87.0711 245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 87.0711 281.966 855.667) (float-vector 90.0 275.433 852.961) (float-vector 90.0 262.426 872.426) (float-vector 87.0711 267.426 877.426)))
-         (instance face :init :vertices (list (float-vector 90.0 280.0 830.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 287.071 830.0) (float-vector 90.0 280.0 830.0) (float-vector 90.0 275.433 852.961) (float-vector 87.0711 281.966 855.667)))
-         (instance face :init :vertices (list (float-vector 90.0 220.0 890.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 220.0 882.929) (float-vector 90.0 220.0 890.0) (float-vector 90.0 242.961 885.433) (float-vector 87.0711 240.255 878.9)))
-         (instance face :init :vertices (list (float-vector 90.0 262.426 872.426) (float-vector 87.0711 257.426 867.426) (float-vector 87.0711 240.255 878.9) (float-vector 90.0 242.961 885.433)))
-         (instance face :init :vertices (list (float-vector 90.0 275.433 852.961) (float-vector 87.0711 268.9 850.255) (float-vector 87.0711 257.426 867.426) (float-vector 90.0 262.426 872.426)))
-         (instance face :init :vertices (list (float-vector 87.0711 272.929 830.0)))
-         (instance face :init :vertices (list (float-vector 90.0 280.0 830.0) (float-vector 87.0711 272.929 830.0) (float-vector 87.0711 268.9 850.255) (float-vector 90.0 275.433 852.961)))
-         (instance face :init :vertices (list (float-vector 87.0711 220.0 882.929)))
-         (instance face :init :vertices (list (float-vector 80.0 220.0 880.0) (float-vector 87.0711 220.0 882.929) (float-vector 87.0711 240.255 878.9) (float-vector 80.0 239.134 876.194)))
-         (instance face :init :vertices (list (float-vector 87.0711 257.426 867.426) (float-vector 80.0 255.355 865.355) (float-vector 80.0 239.134 876.194) (float-vector 87.0711 240.255 878.9)))
-         (instance face :init :vertices (list (float-vector 87.0711 268.9 850.255) (float-vector 80.0 266.194 849.134) (float-vector 80.0 255.355 865.355) (float-vector 87.0711 257.426 867.426)))
-         (instance face :init :vertices (list (float-vector 80.0 270.0 830.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 272.929 830.0) (float-vector 80.0 270.0 830.0) (float-vector 80.0 266.194 849.134) (float-vector 87.0711 268.9 850.255)))
-         (instance face :init :vertices (list (float-vector 80.0 220.0 880.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 220.0 882.929) (float-vector 80.0 220.0 880.0) (float-vector 80.0 239.134 876.194) (float-vector 72.9289 240.255 878.9)))
-         (instance face :init :vertices (list (float-vector 80.0 255.355 865.355) (float-vector 72.9289 257.426 867.426) (float-vector 72.9289 240.255 878.9) (float-vector 80.0 239.134 876.194)))
-         (instance face :init :vertices (list (float-vector 80.0 266.194 849.134) (float-vector 72.9289 268.9 850.255) (float-vector 72.9289 257.426 867.426) (float-vector 80.0 255.355 865.355)))
-         (instance face :init :vertices (list (float-vector 72.9289 272.929 830.0)))
-         (instance face :init :vertices (list (float-vector 80.0 270.0 830.0) (float-vector 72.9289 272.929 830.0) (float-vector 72.9289 268.9 850.255) (float-vector 80.0 266.194 849.134)))
-         (instance face :init :vertices (list (float-vector 72.9289 220.0 882.929)))
-         (instance face :init :vertices (list (float-vector 70.0 220.0 890.0) (float-vector 72.9289 220.0 882.929) (float-vector 72.9289 240.255 878.9) (float-vector 70.0 242.961 885.433)))
-         (instance face :init :vertices (list (float-vector 72.9289 257.426 867.426) (float-vector 70.0 262.426 872.426) (float-vector 70.0 242.961 885.433) (float-vector 72.9289 240.255 878.9)))
-         (instance face :init :vertices (list (float-vector 72.9289 268.9 850.255) (float-vector 70.0 275.433 852.961) (float-vector 70.0 262.426 872.426) (float-vector 72.9289 257.426 867.426)))
-         (instance face :init :vertices (list (float-vector 70.0 280.0 830.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 272.929 830.0) (float-vector 70.0 280.0 830.0) (float-vector 70.0 275.433 852.961) (float-vector 72.9289 268.9 850.255)))
-         (instance face :init :vertices (list (float-vector 70.0 220.0 890.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 220.0 897.071) (float-vector 70.0 220.0 890.0) (float-vector 70.0 242.961 885.433) (float-vector 72.9289 245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 70.0 262.426 872.426) (float-vector 72.9289 267.426 877.426) (float-vector 72.9289 245.667 891.966) (float-vector 70.0 242.961 885.433)))
-         (instance face :init :vertices (list (float-vector 70.0 275.433 852.961) (float-vector 72.9289 281.966 855.667) (float-vector 72.9289 267.426 877.426) (float-vector 70.0 262.426 872.426)))
-         (instance face :init :vertices (list (float-vector 72.9289 287.071 830.0)))
-         (instance face :init :vertices (list (float-vector 70.0 280.0 830.0) (float-vector 72.9289 287.071 830.0) (float-vector 72.9289 281.966 855.667) (float-vector 70.0 275.433 852.961)))
-         (instance face :init :vertices (list (float-vector 72.9289 220.0 897.071)))
-         (instance face :init :vertices (list (float-vector 80.0 220.0 900.0) (float-vector 72.9289 220.0 897.071) (float-vector 72.9289 245.667 891.966) (float-vector 80.0 246.788 894.672)))
-         (instance face :init :vertices (list (float-vector 72.9289 267.426 877.426) (float-vector 80.0 269.497 879.497) (float-vector 80.0 246.788 894.672) (float-vector 72.9289 245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 72.9289 281.966 855.667) (float-vector 80.0 284.672 856.788) (float-vector 80.0 269.497 879.497) (float-vector 72.9289 267.426 877.426)))
-         (instance face :init :vertices (list (float-vector 80.0 290.0 830.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 287.071 830.0) (float-vector 80.0 290.0 830.0) (float-vector 80.0 284.672 856.788) (float-vector 72.9289 281.966 855.667)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 -15.5291) (float-vector 60.0 -15.0 7.105427e-15) (float-vector 57.9555 -15.0 15.5291) (float-vector 51.9615 -15.0 30.0) (float-vector 42.4264 -15.0 42.4264) (float-vector 30.0 -15.0 51.9615) (float-vector 15.5291 -15.0 57.9555) (float-vector 0.0 -15.0 60.0) (float-vector -15.5291 -15.0 57.9555) (float-vector -30.0 -15.0 51.9615) (float-vector -42.4264 -15.0 42.4264) (float-vector -51.9615 -15.0 30.0) (float-vector -57.9555 -15.0 15.5291) (float-vector -60.0 -15.0 7.105427e-14) (float-vector -57.9555 -15.0 -15.5291) (float-vector -51.9615 -15.0 -30.0) (float-vector -42.4264 -15.0 -42.4264) (float-vector -30.0 -15.0 -51.9615) (float-vector -15.5291 -15.0 -57.9555) (float-vector -1.136868e-13 -15.0 -60.0) (float-vector 15.5291 -15.0 -57.9555) (float-vector 30.0 -15.0 -51.9615) (float-vector 42.4264 -15.0 -42.4264) (float-vector 51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector 60.0 15.0 0.0) (float-vector 57.9555 15.0 -15.5291) (float-vector 51.9615 15.0 -30.0) (float-vector 42.4264 15.0 -42.4264) (float-vector 30.0 15.0 -51.9615) (float-vector 15.5291 15.0 -57.9555) (float-vector -1.136868e-13 15.0 -60.0) (float-vector -15.5291 15.0 -57.9555) (float-vector -30.0 15.0 -51.9615) (float-vector -42.4264 15.0 -42.4264) (float-vector -51.9615 15.0 -30.0) (float-vector -57.9555 15.0 -15.5291) (float-vector -60.0 15.0 6.394885e-14) (float-vector -57.9555 15.0 15.5291) (float-vector -51.9615 15.0 30.0) (float-vector -42.4264 15.0 42.4264) (float-vector -30.0 15.0 51.9615) (float-vector -15.5291 15.0 57.9555) (float-vector 0.0 15.0 60.0) (float-vector 15.5291 15.0 57.9555) (float-vector 30.0 15.0 51.9615) (float-vector 42.4264 15.0 42.4264) (float-vector 51.9615 15.0 30.0) (float-vector 57.9555 15.0 15.5291)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 -15.5291) (float-vector 57.9555 15.0 -15.5291) (float-vector 60.0 15.0 0.0) (float-vector 60.0 -15.0 7.105427e-15)))
+         (instance face :init :vertices (list (float-vector 51.9615 -15.0 -30.0) (float-vector 51.9615 15.0 -30.0) (float-vector 57.9555 15.0 -15.5291) (float-vector 57.9555 -15.0 -15.5291)))
+         (instance face :init :vertices (list (float-vector 42.4264 -15.0 -42.4264) (float-vector 42.4264 15.0 -42.4264) (float-vector 51.9615 15.0 -30.0) (float-vector 51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector 30.0 -15.0 -51.9615) (float-vector 30.0 15.0 -51.9615) (float-vector 42.4264 15.0 -42.4264) (float-vector 42.4264 -15.0 -42.4264)))
+         (instance face :init :vertices (list (float-vector 15.5291 -15.0 -57.9555) (float-vector 15.5291 15.0 -57.9555) (float-vector 30.0 15.0 -51.9615) (float-vector 30.0 -15.0 -51.9615)))
+         (instance face :init :vertices (list (float-vector -1.136868e-13 -15.0 -60.0) (float-vector -1.136868e-13 15.0 -60.0) (float-vector 15.5291 15.0 -57.9555) (float-vector 15.5291 -15.0 -57.9555)))
+         (instance face :init :vertices (list (float-vector -15.5291 -15.0 -57.9555) (float-vector -15.5291 15.0 -57.9555) (float-vector -1.136868e-13 15.0 -60.0) (float-vector -1.136868e-13 -15.0 -60.0)))
+         (instance face :init :vertices (list (float-vector -30.0 -15.0 -51.9615) (float-vector -30.0 15.0 -51.9615) (float-vector -15.5291 15.0 -57.9555) (float-vector -15.5291 -15.0 -57.9555)))
+         (instance face :init :vertices (list (float-vector -42.4264 -15.0 -42.4264) (float-vector -42.4264 15.0 -42.4264) (float-vector -30.0 15.0 -51.9615) (float-vector -30.0 -15.0 -51.9615)))
+         (instance face :init :vertices (list (float-vector -51.9615 -15.0 -30.0) (float-vector -51.9615 15.0 -30.0) (float-vector -42.4264 15.0 -42.4264) (float-vector -42.4264 -15.0 -42.4264)))
+         (instance face :init :vertices (list (float-vector -57.9555 -15.0 -15.5291) (float-vector -57.9555 15.0 -15.5291) (float-vector -51.9615 15.0 -30.0) (float-vector -51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector -60.0 -15.0 7.105427e-14) (float-vector -60.0 15.0 6.394885e-14) (float-vector -57.9555 15.0 -15.5291) (float-vector -57.9555 -15.0 -15.5291)))
+         (instance face :init :vertices (list (float-vector -57.9555 -15.0 15.5291) (float-vector -57.9555 15.0 15.5291) (float-vector -60.0 15.0 6.394885e-14) (float-vector -60.0 -15.0 7.105427e-14)))
+         (instance face :init :vertices (list (float-vector -51.9615 -15.0 30.0) (float-vector -51.9615 15.0 30.0) (float-vector -57.9555 15.0 15.5291) (float-vector -57.9555 -15.0 15.5291)))
+         (instance face :init :vertices (list (float-vector -42.4264 -15.0 42.4264) (float-vector -42.4264 15.0 42.4264) (float-vector -51.9615 15.0 30.0) (float-vector -51.9615 -15.0 30.0)))
+         (instance face :init :vertices (list (float-vector -30.0 -15.0 51.9615) (float-vector -30.0 15.0 51.9615) (float-vector -42.4264 15.0 42.4264) (float-vector -42.4264 -15.0 42.4264)))
+         (instance face :init :vertices (list (float-vector -15.5291 -15.0 57.9555) (float-vector -15.5291 15.0 57.9555) (float-vector -30.0 15.0 51.9615) (float-vector -30.0 -15.0 51.9615)))
+         (instance face :init :vertices (list (float-vector 0.0 -15.0 60.0) (float-vector 0.0 15.0 60.0) (float-vector -15.5291 15.0 57.9555) (float-vector -15.5291 -15.0 57.9555)))
+         (instance face :init :vertices (list (float-vector 15.5291 -15.0 57.9555) (float-vector 15.5291 15.0 57.9555) (float-vector 0.0 15.0 60.0) (float-vector 0.0 -15.0 60.0)))
+         (instance face :init :vertices (list (float-vector 30.0 -15.0 51.9615) (float-vector 30.0 15.0 51.9615) (float-vector 15.5291 15.0 57.9555) (float-vector 15.5291 -15.0 57.9555)))
+         (instance face :init :vertices (list (float-vector 42.4264 -15.0 42.4264) (float-vector 42.4264 15.0 42.4264) (float-vector 30.0 15.0 51.9615) (float-vector 30.0 -15.0 51.9615)))
+         (instance face :init :vertices (list (float-vector 51.9615 -15.0 30.0) (float-vector 51.9615 15.0 30.0) (float-vector 42.4264 15.0 42.4264) (float-vector 42.4264 -15.0 42.4264)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 15.5291) (float-vector 57.9555 15.0 15.5291) (float-vector 51.9615 15.0 30.0) (float-vector 51.9615 -15.0 30.0)))
+         (instance face :init :vertices (list (float-vector 60.0 -15.0 7.105427e-15) (float-vector 60.0 15.0 0.0) (float-vector 57.9555 15.0 15.5291) (float-vector 57.9555 -15.0 15.5291)))
        ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (setq blink7 (instance bodyset-link :init (make-cascoords) :bodies bc :name :front-right-wheel :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :bar
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 88.6603 -285.0 830.0) (float-vector 90.0 -280.0 830.0) (float-vector 88.6603 -275.0 830.0) (float-vector 85.0 -271.34 830.0) (float-vector 80.0 -270.0 830.0) (float-vector 75.0 -271.34 830.0) (float-vector 71.3397 -275.0 830.0) (float-vector 70.0 -280.0 830.0) (float-vector 71.3397 -285.0 830.0) (float-vector 75.0 -288.66 830.0) (float-vector 80.0 -290.0 830.0) (float-vector 85.0 -288.66 830.0)))
-         (instance face :init :vertices (list (float-vector 90.0 -280.0 220.0) (float-vector 88.6603 -285.0 220.0) (float-vector 85.0 -288.66 220.0) (float-vector 80.0 -290.0 220.0) (float-vector 75.0 -288.66 220.0) (float-vector 71.3397 -285.0 220.0) (float-vector 70.0 -280.0 220.0) (float-vector 71.3397 -275.0 220.0) (float-vector 75.0 -271.34 220.0) (float-vector 80.0 -270.0 220.0) (float-vector 85.0 -271.34 220.0) (float-vector 88.6603 -275.0 220.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 -285.0 830.0) (float-vector 88.6603 -285.0 220.0) (float-vector 90.0 -280.0 220.0) (float-vector 90.0 -280.0 830.0)))
-         (instance face :init :vertices (list (float-vector 85.0 -288.66 830.0) (float-vector 85.0 -288.66 220.0) (float-vector 88.6603 -285.0 220.0) (float-vector 88.6603 -285.0 830.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -290.0 830.0) (float-vector 80.0 -290.0 220.0) (float-vector 85.0 -288.66 220.0) (float-vector 85.0 -288.66 830.0)))
-         (instance face :init :vertices (list (float-vector 75.0 -288.66 830.0) (float-vector 75.0 -288.66 220.0) (float-vector 80.0 -290.0 220.0) (float-vector 80.0 -290.0 830.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 -285.0 830.0) (float-vector 71.3397 -285.0 220.0) (float-vector 75.0 -288.66 220.0) (float-vector 75.0 -288.66 830.0)))
-         (instance face :init :vertices (list (float-vector 70.0 -280.0 830.0) (float-vector 70.0 -280.0 220.0) (float-vector 71.3397 -285.0 220.0) (float-vector 71.3397 -285.0 830.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 -275.0 830.0) (float-vector 71.3397 -275.0 220.0) (float-vector 70.0 -280.0 220.0) (float-vector 70.0 -280.0 830.0)))
-         (instance face :init :vertices (list (float-vector 75.0 -271.34 830.0) (float-vector 75.0 -271.34 220.0) (float-vector 71.3397 -275.0 220.0) (float-vector 71.3397 -275.0 830.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -270.0 830.0) (float-vector 80.0 -270.0 220.0) (float-vector 75.0 -271.34 220.0) (float-vector 75.0 -271.34 830.0)))
-         (instance face :init :vertices (list (float-vector 85.0 -271.34 830.0) (float-vector 85.0 -271.34 220.0) (float-vector 80.0 -270.0 220.0) (float-vector 80.0 -270.0 830.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 -275.0 830.0) (float-vector 88.6603 -275.0 220.0) (float-vector 85.0 -271.34 220.0) (float-vector 85.0 -271.34 830.0)))
-         (instance face :init :vertices (list (float-vector 90.0 -280.0 830.0) (float-vector 90.0 -280.0 220.0) (float-vector 88.6603 -275.0 220.0) (float-vector 88.6603 -275.0 830.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 -220.0 665.0) (float-vector 10.0 -220.0 670.0) (float-vector 8.66025 -220.0 675.0) (float-vector 5.0 -220.0 678.66) (float-vector 0.0 -220.0 680.0) (float-vector -5.0 -220.0 678.66) (float-vector -8.66025 -220.0 675.0) (float-vector -10.0 -220.0 670.0) (float-vector -8.66025 -220.0 665.0) (float-vector -5.0 -220.0 661.34) (float-vector -1.421085e-14 -220.0 660.0) (float-vector 5.0 -220.0 661.34)))
+         (instance face :init :vertices (list (float-vector 10.0 220.0 670.0) (float-vector 8.66025 220.0 665.0) (float-vector 5.0 220.0 661.34) (float-vector -1.421085e-14 220.0 660.0) (float-vector -5.0 220.0 661.34) (float-vector -8.66025 220.0 665.0) (float-vector -10.0 220.0 670.0) (float-vector -8.66025 220.0 675.0) (float-vector -5.0 220.0 678.66) (float-vector 0.0 220.0 680.0) (float-vector 5.0 220.0 678.66) (float-vector 8.66025 220.0 675.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 -220.0 665.0) (float-vector 8.66025 220.0 665.0) (float-vector 10.0 220.0 670.0) (float-vector 10.0 -220.0 670.0)))
+         (instance face :init :vertices (list (float-vector 5.0 -220.0 661.34) (float-vector 5.0 220.0 661.34) (float-vector 8.66025 220.0 665.0) (float-vector 8.66025 -220.0 665.0)))
+         (instance face :init :vertices (list (float-vector -1.421085e-14 -220.0 660.0) (float-vector -1.421085e-14 220.0 660.0) (float-vector 5.0 220.0 661.34) (float-vector 5.0 -220.0 661.34)))
+         (instance face :init :vertices (list (float-vector -5.0 -220.0 661.34) (float-vector -5.0 220.0 661.34) (float-vector -1.421085e-14 220.0 660.0) (float-vector -1.421085e-14 -220.0 660.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 -220.0 665.0) (float-vector -8.66025 220.0 665.0) (float-vector -5.0 220.0 661.34) (float-vector -5.0 -220.0 661.34)))
+         (instance face :init :vertices (list (float-vector -10.0 -220.0 670.0) (float-vector -10.0 220.0 670.0) (float-vector -8.66025 220.0 665.0) (float-vector -8.66025 -220.0 665.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 -220.0 675.0) (float-vector -8.66025 220.0 675.0) (float-vector -10.0 220.0 670.0) (float-vector -10.0 -220.0 670.0)))
+         (instance face :init :vertices (list (float-vector -5.0 -220.0 678.66) (float-vector -5.0 220.0 678.66) (float-vector -8.66025 220.0 675.0) (float-vector -8.66025 -220.0 675.0)))
+         (instance face :init :vertices (list (float-vector 0.0 -220.0 680.0) (float-vector 0.0 220.0 680.0) (float-vector -5.0 220.0 678.66) (float-vector -5.0 -220.0 678.66)))
+         (instance face :init :vertices (list (float-vector 5.0 -220.0 678.66) (float-vector 5.0 220.0 678.66) (float-vector 0.0 220.0 680.0) (float-vector 0.0 -220.0 680.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 -220.0 675.0) (float-vector 8.66025 220.0 675.0) (float-vector 5.0 220.0 678.66) (float-vector 5.0 -220.0 678.66)))
+         (instance face :init :vertices (list (float-vector 10.0 -220.0 670.0) (float-vector 10.0 220.0 670.0) (float-vector 8.66025 220.0 675.0) (float-vector 8.66025 -220.0 675.0)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 88.6603 275.0 830.0) (float-vector 90.0 280.0 830.0) (float-vector 88.6603 285.0 830.0) (float-vector 85.0 288.66 830.0) (float-vector 80.0 290.0 830.0) (float-vector 75.0 288.66 830.0) (float-vector 71.3397 285.0 830.0) (float-vector 70.0 280.0 830.0) (float-vector 71.3397 275.0 830.0) (float-vector 75.0 271.34 830.0) (float-vector 80.0 270.0 830.0) (float-vector 85.0 271.34 830.0)))
-         (instance face :init :vertices (list (float-vector 90.0 280.0 220.0) (float-vector 88.6603 275.0 220.0) (float-vector 85.0 271.34 220.0) (float-vector 80.0 270.0 220.0) (float-vector 75.0 271.34 220.0) (float-vector 71.3397 275.0 220.0) (float-vector 70.0 280.0 220.0) (float-vector 71.3397 285.0 220.0) (float-vector 75.0 288.66 220.0) (float-vector 80.0 290.0 220.0) (float-vector 85.0 288.66 220.0) (float-vector 88.6603 285.0 220.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 275.0 830.0) (float-vector 88.6603 275.0 220.0) (float-vector 90.0 280.0 220.0) (float-vector 90.0 280.0 830.0)))
-         (instance face :init :vertices (list (float-vector 85.0 271.34 830.0) (float-vector 85.0 271.34 220.0) (float-vector 88.6603 275.0 220.0) (float-vector 88.6603 275.0 830.0)))
-         (instance face :init :vertices (list (float-vector 80.0 270.0 830.0) (float-vector 80.0 270.0 220.0) (float-vector 85.0 271.34 220.0) (float-vector 85.0 271.34 830.0)))
-         (instance face :init :vertices (list (float-vector 75.0 271.34 830.0) (float-vector 75.0 271.34 220.0) (float-vector 80.0 270.0 220.0) (float-vector 80.0 270.0 830.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 275.0 830.0) (float-vector 71.3397 275.0 220.0) (float-vector 75.0 271.34 220.0) (float-vector 75.0 271.34 830.0)))
-         (instance face :init :vertices (list (float-vector 70.0 280.0 830.0) (float-vector 70.0 280.0 220.0) (float-vector 71.3397 275.0 220.0) (float-vector 71.3397 275.0 830.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 285.0 830.0) (float-vector 71.3397 285.0 220.0) (float-vector 70.0 280.0 220.0) (float-vector 70.0 280.0 830.0)))
-         (instance face :init :vertices (list (float-vector 75.0 288.66 830.0) (float-vector 75.0 288.66 220.0) (float-vector 71.3397 285.0 220.0) (float-vector 71.3397 285.0 830.0)))
-         (instance face :init :vertices (list (float-vector 80.0 290.0 830.0) (float-vector 80.0 290.0 220.0) (float-vector 75.0 288.66 220.0) (float-vector 75.0 288.66 830.0)))
-         (instance face :init :vertices (list (float-vector 85.0 288.66 830.0) (float-vector 85.0 288.66 220.0) (float-vector 80.0 290.0 220.0) (float-vector 80.0 290.0 830.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 285.0 830.0) (float-vector 88.6603 285.0 220.0) (float-vector 85.0 288.66 220.0) (float-vector 85.0 288.66 830.0)))
-         (instance face :init :vertices (list (float-vector 90.0 280.0 830.0) (float-vector 90.0 280.0 220.0) (float-vector 88.6603 285.0 220.0) (float-vector 88.6603 285.0 830.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 -220.0 677.071)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 -220.0 680.0) (float-vector -7.07107 -220.0 677.071) (float-vector -7.07107 -245.667 671.966) (float-vector 1.421085e-14 -246.788 674.672)))
+         (instance face :init :vertices (list (float-vector -7.07107 -245.667 671.966) (float-vector -7.07107 -267.426 657.426) (float-vector 1.421085e-14 -269.497 659.497) (float-vector 1.421085e-14 -246.788 674.672)))
+         (instance face :init :vertices (list (float-vector -7.07107 -267.426 657.426) (float-vector -7.07107 -281.966 635.667) (float-vector 0.0 -284.672 636.788) (float-vector 1.421085e-14 -269.497 659.497)))
+         (instance face :init :vertices (list (float-vector 0.0 -290.0 610.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 -281.966 635.667) (float-vector -7.07107 -287.071 610.0) (float-vector 0.0 -290.0 610.0) (float-vector 0.0 -284.672 636.788)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 -220.0 680.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 -220.0 677.071) (float-vector 1.421085e-14 -220.0 680.0) (float-vector 1.421085e-14 -246.788 674.672) (float-vector 7.07107 -245.667 671.966)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 -269.497 659.497) (float-vector 7.07107 -267.426 657.426) (float-vector 7.07107 -245.667 671.966) (float-vector 1.421085e-14 -246.788 674.672)))
+         (instance face :init :vertices (list (float-vector 0.0 -284.672 636.788) (float-vector 7.07107 -281.966 635.667) (float-vector 7.07107 -267.426 657.426) (float-vector 1.421085e-14 -269.497 659.497)))
+         (instance face :init :vertices (list (float-vector 7.07107 -287.071 610.0)))
+         (instance face :init :vertices (list (float-vector 0.0 -290.0 610.0) (float-vector 7.07107 -287.071 610.0) (float-vector 7.07107 -281.966 635.667) (float-vector 0.0 -284.672 636.788)))
+         (instance face :init :vertices (list (float-vector 7.07107 -220.0 677.071)))
+         (instance face :init :vertices (list (float-vector 10.0 -220.0 670.0) (float-vector 7.07107 -220.0 677.071) (float-vector 7.07107 -245.667 671.966) (float-vector 10.0 -242.961 665.433)))
+         (instance face :init :vertices (list (float-vector 7.07107 -267.426 657.426) (float-vector 10.0 -262.426 652.426) (float-vector 10.0 -242.961 665.433) (float-vector 7.07107 -245.667 671.966)))
+         (instance face :init :vertices (list (float-vector 7.07107 -281.966 635.667) (float-vector 10.0 -275.433 632.961) (float-vector 10.0 -262.426 652.426) (float-vector 7.07107 -267.426 657.426)))
+         (instance face :init :vertices (list (float-vector 10.0 -280.0 610.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 -287.071 610.0) (float-vector 10.0 -280.0 610.0) (float-vector 10.0 -275.433 632.961) (float-vector 7.07107 -281.966 635.667)))
+         (instance face :init :vertices (list (float-vector 10.0 -220.0 670.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 -220.0 662.929) (float-vector 10.0 -220.0 670.0) (float-vector 10.0 -242.961 665.433) (float-vector 7.07107 -240.255 658.9)))
+         (instance face :init :vertices (list (float-vector 10.0 -262.426 652.426) (float-vector 7.07107 -257.426 647.426) (float-vector 7.07107 -240.255 658.9) (float-vector 10.0 -242.961 665.433)))
+         (instance face :init :vertices (list (float-vector 10.0 -275.433 632.961) (float-vector 7.07107 -268.9 630.255) (float-vector 7.07107 -257.426 647.426) (float-vector 10.0 -262.426 652.426)))
+         (instance face :init :vertices (list (float-vector 7.07107 -272.929 610.0)))
+         (instance face :init :vertices (list (float-vector 10.0 -280.0 610.0) (float-vector 7.07107 -272.929 610.0) (float-vector 7.07107 -268.9 630.255) (float-vector 10.0 -275.433 632.961)))
+         (instance face :init :vertices (list (float-vector 7.07107 -220.0 662.929)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 -220.0 660.0) (float-vector 7.07107 -220.0 662.929) (float-vector 7.07107 -240.255 658.9) (float-vector 1.421085e-14 -239.134 656.194)))
+         (instance face :init :vertices (list (float-vector 7.07107 -257.426 647.426) (float-vector 1.421085e-14 -255.355 645.355) (float-vector 1.421085e-14 -239.134 656.194) (float-vector 7.07107 -240.255 658.9)))
+         (instance face :init :vertices (list (float-vector 7.07107 -268.9 630.255) (float-vector 0.0 -266.194 629.134) (float-vector 1.421085e-14 -255.355 645.355) (float-vector 7.07107 -257.426 647.426)))
+         (instance face :init :vertices (list (float-vector 0.0 -270.0 610.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 -272.929 610.0) (float-vector 0.0 -270.0 610.0) (float-vector 0.0 -266.194 629.134) (float-vector 7.07107 -268.9 630.255)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 -220.0 660.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 -220.0 662.929) (float-vector 1.421085e-14 -220.0 660.0) (float-vector 1.421085e-14 -239.134 656.194) (float-vector -7.07107 -240.255 658.9)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 -255.355 645.355) (float-vector -7.07107 -257.426 647.426) (float-vector -7.07107 -240.255 658.9) (float-vector 1.421085e-14 -239.134 656.194)))
+         (instance face :init :vertices (list (float-vector 0.0 -266.194 629.134) (float-vector -7.07107 -268.9 630.255) (float-vector -7.07107 -257.426 647.426) (float-vector 1.421085e-14 -255.355 645.355)))
+         (instance face :init :vertices (list (float-vector -7.07107 -272.929 610.0)))
+         (instance face :init :vertices (list (float-vector 0.0 -270.0 610.0) (float-vector -7.07107 -272.929 610.0) (float-vector -7.07107 -268.9 630.255) (float-vector 0.0 -266.194 629.134)))
+         (instance face :init :vertices (list (float-vector -7.07107 -220.0 662.929)))
+         (instance face :init :vertices (list (float-vector -10.0 -220.0 670.0) (float-vector -7.07107 -220.0 662.929) (float-vector -7.07107 -240.255 658.9) (float-vector -10.0 -242.961 665.433)))
+         (instance face :init :vertices (list (float-vector -7.07107 -257.426 647.426) (float-vector -10.0 -262.426 652.426) (float-vector -10.0 -242.961 665.433) (float-vector -7.07107 -240.255 658.9)))
+         (instance face :init :vertices (list (float-vector -7.07107 -268.9 630.255) (float-vector -10.0 -275.433 632.961) (float-vector -10.0 -262.426 652.426) (float-vector -7.07107 -257.426 647.426)))
+         (instance face :init :vertices (list (float-vector -10.0 -280.0 610.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 -272.929 610.0) (float-vector -10.0 -280.0 610.0) (float-vector -10.0 -275.433 632.961) (float-vector -7.07107 -268.9 630.255)))
+         (instance face :init :vertices (list (float-vector -10.0 -220.0 670.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 -220.0 677.071) (float-vector -10.0 -220.0 670.0) (float-vector -10.0 -242.961 665.433) (float-vector -7.07107 -245.667 671.966)))
+         (instance face :init :vertices (list (float-vector -10.0 -262.426 652.426) (float-vector -7.07107 -267.426 657.426) (float-vector -7.07107 -245.667 671.966) (float-vector -10.0 -242.961 665.433)))
+         (instance face :init :vertices (list (float-vector -10.0 -275.433 632.961) (float-vector -7.07107 -281.966 635.667) (float-vector -7.07107 -267.426 657.426) (float-vector -10.0 -262.426 652.426)))
+         (instance face :init :vertices (list (float-vector -7.07107 -287.071 610.0)))
+         (instance face :init :vertices (list (float-vector -10.0 -280.0 610.0) (float-vector -7.07107 -287.071 610.0) (float-vector -7.07107 -281.966 635.667) (float-vector -10.0 -275.433 632.961)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 900.0 300.0 220.0) (float-vector 0.0 300.0 220.0) (float-vector 0.0 -300.0 220.0) (float-vector 900.0 -300.0 220.0)))
-         (instance face :init :vertices (list (float-vector 0.0 300.0 170.0) (float-vector 900.0 300.0 170.0) (float-vector 900.0 -300.0 170.0) (float-vector 0.0 -300.0 170.0)))
-         (instance face :init :vertices (list (float-vector 900.0 300.0 220.0) (float-vector 900.0 300.0 170.0) (float-vector 0.0 300.0 170.0) (float-vector 0.0 300.0 220.0)))
-         (instance face :init :vertices (list (float-vector 900.0 -300.0 220.0) (float-vector 900.0 -300.0 170.0) (float-vector 900.0 300.0 170.0) (float-vector 900.0 300.0 220.0)))
-         (instance face :init :vertices (list (float-vector 0.0 -300.0 220.0) (float-vector 0.0 -300.0 170.0) (float-vector 900.0 -300.0 170.0) (float-vector 900.0 -300.0 220.0)))
-         (instance face :init :vertices (list (float-vector 0.0 300.0 220.0) (float-vector 0.0 300.0 170.0) (float-vector 0.0 -300.0 170.0) (float-vector 0.0 -300.0 220.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 220.0 677.071)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 220.0 680.0) (float-vector 7.07107 220.0 677.071) (float-vector 7.07107 245.667 671.966) (float-vector 1.421085e-14 246.788 674.672)))
+         (instance face :init :vertices (list (float-vector 7.07107 245.667 671.966) (float-vector 7.07107 267.426 657.426) (float-vector 1.421085e-14 269.497 659.497) (float-vector 1.421085e-14 246.788 674.672)))
+         (instance face :init :vertices (list (float-vector 7.07107 267.426 657.426) (float-vector 7.07107 281.966 635.667) (float-vector 0.0 284.672 636.788) (float-vector 1.421085e-14 269.497 659.497)))
+         (instance face :init :vertices (list (float-vector 0.0 290.0 610.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 281.966 635.667) (float-vector 7.07107 287.071 610.0) (float-vector 0.0 290.0 610.0) (float-vector 0.0 284.672 636.788)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 220.0 680.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 220.0 677.071) (float-vector 1.421085e-14 220.0 680.0) (float-vector 1.421085e-14 246.788 674.672) (float-vector -7.07107 245.667 671.966)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 269.497 659.497) (float-vector -7.07107 267.426 657.426) (float-vector -7.07107 245.667 671.966) (float-vector 1.421085e-14 246.788 674.672)))
+         (instance face :init :vertices (list (float-vector 0.0 284.672 636.788) (float-vector -7.07107 281.966 635.667) (float-vector -7.07107 267.426 657.426) (float-vector 1.421085e-14 269.497 659.497)))
+         (instance face :init :vertices (list (float-vector -7.07107 287.071 610.0)))
+         (instance face :init :vertices (list (float-vector 0.0 290.0 610.0) (float-vector -7.07107 287.071 610.0) (float-vector -7.07107 281.966 635.667) (float-vector 0.0 284.672 636.788)))
+         (instance face :init :vertices (list (float-vector -7.07107 220.0 677.071)))
+         (instance face :init :vertices (list (float-vector -10.0 220.0 670.0) (float-vector -7.07107 220.0 677.071) (float-vector -7.07107 245.667 671.966) (float-vector -10.0 242.961 665.433)))
+         (instance face :init :vertices (list (float-vector -7.07107 267.426 657.426) (float-vector -10.0 262.426 652.426) (float-vector -10.0 242.961 665.433) (float-vector -7.07107 245.667 671.966)))
+         (instance face :init :vertices (list (float-vector -7.07107 281.966 635.667) (float-vector -10.0 275.433 632.961) (float-vector -10.0 262.426 652.426) (float-vector -7.07107 267.426 657.426)))
+         (instance face :init :vertices (list (float-vector -10.0 280.0 610.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 287.071 610.0) (float-vector -10.0 280.0 610.0) (float-vector -10.0 275.433 632.961) (float-vector -7.07107 281.966 635.667)))
+         (instance face :init :vertices (list (float-vector -10.0 220.0 670.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 220.0 662.929) (float-vector -10.0 220.0 670.0) (float-vector -10.0 242.961 665.433) (float-vector -7.07107 240.255 658.9)))
+         (instance face :init :vertices (list (float-vector -10.0 262.426 652.426) (float-vector -7.07107 257.426 647.426) (float-vector -7.07107 240.255 658.9) (float-vector -10.0 242.961 665.433)))
+         (instance face :init :vertices (list (float-vector -10.0 275.433 632.961) (float-vector -7.07107 268.9 630.255) (float-vector -7.07107 257.426 647.426) (float-vector -10.0 262.426 652.426)))
+         (instance face :init :vertices (list (float-vector -7.07107 272.929 610.0)))
+         (instance face :init :vertices (list (float-vector -10.0 280.0 610.0) (float-vector -7.07107 272.929 610.0) (float-vector -7.07107 268.9 630.255) (float-vector -10.0 275.433 632.961)))
+         (instance face :init :vertices (list (float-vector -7.07107 220.0 662.929)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 220.0 660.0) (float-vector -7.07107 220.0 662.929) (float-vector -7.07107 240.255 658.9) (float-vector 1.421085e-14 239.134 656.194)))
+         (instance face :init :vertices (list (float-vector -7.07107 257.426 647.426) (float-vector 0.0 255.355 645.355) (float-vector 1.421085e-14 239.134 656.194) (float-vector -7.07107 240.255 658.9)))
+         (instance face :init :vertices (list (float-vector -7.07107 268.9 630.255) (float-vector 0.0 266.194 629.134) (float-vector 0.0 255.355 645.355) (float-vector -7.07107 257.426 647.426)))
+         (instance face :init :vertices (list (float-vector 0.0 270.0 610.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 272.929 610.0) (float-vector 0.0 270.0 610.0) (float-vector 0.0 266.194 629.134) (float-vector -7.07107 268.9 630.255)))
+         (instance face :init :vertices (list (float-vector 1.421085e-14 220.0 660.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 220.0 662.929) (float-vector 1.421085e-14 220.0 660.0) (float-vector 1.421085e-14 239.134 656.194) (float-vector 7.07107 240.255 658.9)))
+         (instance face :init :vertices (list (float-vector 0.0 255.355 645.355) (float-vector 7.07107 257.426 647.426) (float-vector 7.07107 240.255 658.9) (float-vector 1.421085e-14 239.134 656.194)))
+         (instance face :init :vertices (list (float-vector 0.0 266.194 629.134) (float-vector 7.07107 268.9 630.255) (float-vector 7.07107 257.426 647.426) (float-vector 0.0 255.355 645.355)))
+         (instance face :init :vertices (list (float-vector 7.07107 272.929 610.0)))
+         (instance face :init :vertices (list (float-vector 0.0 270.0 610.0) (float-vector 7.07107 272.929 610.0) (float-vector 7.07107 268.9 630.255) (float-vector 0.0 266.194 629.134)))
+         (instance face :init :vertices (list (float-vector 7.07107 220.0 662.929)))
+         (instance face :init :vertices (list (float-vector 10.0 220.0 670.0) (float-vector 7.07107 220.0 662.929) (float-vector 7.07107 240.255 658.9) (float-vector 10.0 242.961 665.433)))
+         (instance face :init :vertices (list (float-vector 7.07107 257.426 647.426) (float-vector 10.0 262.426 652.426) (float-vector 10.0 242.961 665.433) (float-vector 7.07107 240.255 658.9)))
+         (instance face :init :vertices (list (float-vector 7.07107 268.9 630.255) (float-vector 10.0 275.433 632.961) (float-vector 10.0 262.426 652.426) (float-vector 7.07107 257.426 647.426)))
+         (instance face :init :vertices (list (float-vector 10.0 280.0 610.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 272.929 610.0) (float-vector 10.0 280.0 610.0) (float-vector 10.0 275.433 632.961) (float-vector 7.07107 268.9 630.255)))
+         (instance face :init :vertices (list (float-vector 10.0 220.0 670.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 220.0 677.071) (float-vector 10.0 220.0 670.0) (float-vector 10.0 242.961 665.433) (float-vector 7.07107 245.667 671.966)))
+         (instance face :init :vertices (list (float-vector 10.0 262.426 652.426) (float-vector 7.07107 267.426 657.426) (float-vector 7.07107 245.667 671.966) (float-vector 10.0 242.961 665.433)))
+         (instance face :init :vertices (list (float-vector 10.0 275.433 632.961) (float-vector 7.07107 281.966 635.667) (float-vector 7.07107 267.426 657.426) (float-vector 10.0 262.426 652.426)))
+         (instance face :init :vertices (list (float-vector 7.07107 287.071 610.0)))
+         (instance face :init :vertices (list (float-vector 10.0 280.0 610.0) (float-vector 7.07107 287.071 610.0) (float-vector 7.07107 281.966 635.667) (float-vector 10.0 275.433 632.961)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 8.66025 -285.0 610.0) (float-vector 10.0 -280.0 610.0) (float-vector 8.66025 -275.0 610.0) (float-vector 5.0 -271.34 610.0) (float-vector 0.0 -270.0 610.0) (float-vector -5.0 -271.34 610.0) (float-vector -8.66025 -275.0 610.0) (float-vector -10.0 -280.0 610.0) (float-vector -8.66025 -285.0 610.0) (float-vector -5.0 -288.66 610.0) (float-vector -1.421085e-14 -290.0 610.0) (float-vector 5.0 -288.66 610.0)))
+         (instance face :init :vertices (list (float-vector 10.0 -280.0 1.136868e-13) (float-vector 8.66025 -285.0 1.136868e-13) (float-vector 5.0 -288.66 1.136868e-13) (float-vector -1.421085e-14 -290.0 1.136868e-13) (float-vector -5.0 -288.66 1.136868e-13) (float-vector -8.66025 -285.0 1.136868e-13) (float-vector -10.0 -280.0 1.136868e-13) (float-vector -8.66025 -275.0 1.136868e-13) (float-vector -5.0 -271.34 1.136868e-13) (float-vector 0.0 -270.0 1.136868e-13) (float-vector 5.0 -271.34 1.136868e-13) (float-vector 8.66025 -275.0 1.136868e-13)))
+         (instance face :init :vertices (list (float-vector 8.66025 -285.0 610.0) (float-vector 8.66025 -285.0 1.136868e-13) (float-vector 10.0 -280.0 1.136868e-13) (float-vector 10.0 -280.0 610.0)))
+         (instance face :init :vertices (list (float-vector 5.0 -288.66 610.0) (float-vector 5.0 -288.66 1.136868e-13) (float-vector 8.66025 -285.0 1.136868e-13) (float-vector 8.66025 -285.0 610.0)))
+         (instance face :init :vertices (list (float-vector -1.421085e-14 -290.0 610.0) (float-vector -1.421085e-14 -290.0 1.136868e-13) (float-vector 5.0 -288.66 1.136868e-13) (float-vector 5.0 -288.66 610.0)))
+         (instance face :init :vertices (list (float-vector -5.0 -288.66 610.0) (float-vector -5.0 -288.66 1.136868e-13) (float-vector -1.421085e-14 -290.0 1.136868e-13) (float-vector -1.421085e-14 -290.0 610.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 -285.0 610.0) (float-vector -8.66025 -285.0 1.136868e-13) (float-vector -5.0 -288.66 1.136868e-13) (float-vector -5.0 -288.66 610.0)))
+         (instance face :init :vertices (list (float-vector -10.0 -280.0 610.0) (float-vector -10.0 -280.0 1.136868e-13) (float-vector -8.66025 -285.0 1.136868e-13) (float-vector -8.66025 -285.0 610.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 -275.0 610.0) (float-vector -8.66025 -275.0 1.136868e-13) (float-vector -10.0 -280.0 1.136868e-13) (float-vector -10.0 -280.0 610.0)))
+         (instance face :init :vertices (list (float-vector -5.0 -271.34 610.0) (float-vector -5.0 -271.34 1.136868e-13) (float-vector -8.66025 -275.0 1.136868e-13) (float-vector -8.66025 -275.0 610.0)))
+         (instance face :init :vertices (list (float-vector 0.0 -270.0 610.0) (float-vector 0.0 -270.0 1.136868e-13) (float-vector -5.0 -271.34 1.136868e-13) (float-vector -5.0 -271.34 610.0)))
+         (instance face :init :vertices (list (float-vector 5.0 -271.34 610.0) (float-vector 5.0 -271.34 1.136868e-13) (float-vector 0.0 -270.0 1.136868e-13) (float-vector 0.0 -270.0 610.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 -275.0 610.0) (float-vector 8.66025 -275.0 1.136868e-13) (float-vector 5.0 -271.34 1.136868e-13) (float-vector 5.0 -271.34 610.0)))
+         (instance face :init :vertices (list (float-vector 10.0 -280.0 610.0) (float-vector 10.0 -280.0 1.136868e-13) (float-vector 8.66025 -275.0 1.136868e-13) (float-vector 8.66025 -275.0 610.0)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 8.66025 275.0 610.0) (float-vector 10.0 280.0 610.0) (float-vector 8.66025 285.0 610.0) (float-vector 5.0 288.66 610.0) (float-vector 0.0 290.0 610.0) (float-vector -5.0 288.66 610.0) (float-vector -8.66025 285.0 610.0) (float-vector -10.0 280.0 610.0) (float-vector -8.66025 275.0 610.0) (float-vector -5.0 271.34 610.0) (float-vector -1.421085e-14 270.0 610.0) (float-vector 5.0 271.34 610.0)))
+         (instance face :init :vertices (list (float-vector 10.0 280.0 0.0) (float-vector 8.66025 275.0 0.0) (float-vector 5.0 271.34 0.0) (float-vector -1.421085e-14 270.0 0.0) (float-vector -5.0 271.34 0.0) (float-vector -8.66025 275.0 0.0) (float-vector -10.0 280.0 0.0) (float-vector -8.66025 285.0 0.0) (float-vector -5.0 288.66 0.0) (float-vector 0.0 290.0 0.0) (float-vector 5.0 288.66 0.0) (float-vector 8.66025 285.0 0.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 275.0 610.0) (float-vector 8.66025 275.0 0.0) (float-vector 10.0 280.0 0.0) (float-vector 10.0 280.0 610.0)))
+         (instance face :init :vertices (list (float-vector 5.0 271.34 610.0) (float-vector 5.0 271.34 0.0) (float-vector 8.66025 275.0 0.0) (float-vector 8.66025 275.0 610.0)))
+         (instance face :init :vertices (list (float-vector -1.421085e-14 270.0 610.0) (float-vector -1.421085e-14 270.0 0.0) (float-vector 5.0 271.34 0.0) (float-vector 5.0 271.34 610.0)))
+         (instance face :init :vertices (list (float-vector -5.0 271.34 610.0) (float-vector -5.0 271.34 0.0) (float-vector -1.421085e-14 270.0 0.0) (float-vector -1.421085e-14 270.0 610.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 275.0 610.0) (float-vector -8.66025 275.0 0.0) (float-vector -5.0 271.34 0.0) (float-vector -5.0 271.34 610.0)))
+         (instance face :init :vertices (list (float-vector -10.0 280.0 610.0) (float-vector -10.0 280.0 0.0) (float-vector -8.66025 275.0 0.0) (float-vector -8.66025 275.0 610.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 285.0 610.0) (float-vector -8.66025 285.0 0.0) (float-vector -10.0 280.0 0.0) (float-vector -10.0 280.0 610.0)))
+         (instance face :init :vertices (list (float-vector -5.0 288.66 610.0) (float-vector -5.0 288.66 0.0) (float-vector -8.66025 285.0 0.0) (float-vector -8.66025 285.0 610.0)))
+         (instance face :init :vertices (list (float-vector 0.0 290.0 610.0) (float-vector 0.0 290.0 0.0) (float-vector -5.0 288.66 0.0) (float-vector -5.0 288.66 610.0)))
+         (instance face :init :vertices (list (float-vector 5.0 288.66 610.0) (float-vector 5.0 288.66 0.0) (float-vector 0.0 290.0 0.0) (float-vector 0.0 290.0 610.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 285.0 610.0) (float-vector 8.66025 285.0 0.0) (float-vector 5.0 288.66 0.0) (float-vector 5.0 288.66 610.0)))
+         (instance face :init :vertices (list (float-vector 10.0 280.0 610.0) (float-vector 10.0 280.0 0.0) (float-vector 8.66025 285.0 0.0) (float-vector 8.66025 285.0 610.0)))
        ))
        ))
      (dolist (b (cdr bc)) (send (car bc) :assoc b))
@@ -311,28 +414,64 @@
      (send (elt bc 2) :set-color :gray)
      (send (elt bc 3) :set-color :gray)
      (send (elt bc 4) :set-color :gray)
-     (send (elt bc 5) :set-color :gray)
-     (send (elt bc 6) :set-color :gray)
-     (send (elt bc 7) :set-color :gray)
-     (send (elt bc 8) :set-color :gray)
-     (send (elt bc 9) :set-color :gray)
-     (send (elt bc 10) :set-color :gray)
-     (send (elt bc 11) :set-color :gray)
-     (send (elt bc 12) :set-color :gray)
-     (send (elt bc 13) :set-color :gray)
-     (send (elt bc 14) :set-color :gray)
-     (send (elt bc 15) :set-color :gray)
-     (send (elt bc 16) :set-color :gray)
-     (send (elt bc 17) :set-color :blue)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :gifuplastic-900-cart-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name :bar :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
 
      ;; definition of assoc
+     (send blink5 :newcoords (make-coords :pos (float-vector -30.0 0.0 -110.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink4 :assoc blink5)
+     (send blink7 :newcoords (make-coords :pos (float-vector -30.0 0.0 -110.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink6 :assoc blink7)
+     (send blink1 :newcoords (make-coords :pos (float-vector 80.0 0.0 220.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink0 :assoc blink1)
+     (send blink6 :newcoords (make-coords :pos (float-vector 700.0 -245.0 170.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink0 :assoc blink6)
+     (send blink4 :newcoords (make-coords :pos (float-vector 700.0 245.0 170.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink0 :assoc blink4)
+     (send blink3 :newcoords (make-coords :pos (float-vector 140.0 -245.0 60.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink0 :assoc blink3)
+     (send blink2 :newcoords (make-coords :pos (float-vector 140.0 245.0 60.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink0 :assoc blink2)
      (send self :assoc blink0)
 
      ;; definition of end-coords
 
      ;; definition of joint
 
+     ;; definition of :bar
+     (setq joint0 (instance rotational-joint :init
+			     :parent-link blink0 :child-link blink1 :name :bar       :axis :y 
+			     :min    0.0 :max   90.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :rear-left-wheel
+     (setq joint1 (instance rotational-joint :init
+			     :parent-link blink0 :child-link blink2 :name :rear-left-wheel :axis :y 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :rear-right-wheel
+     (setq joint2 (instance rotational-joint :init
+			     :parent-link blink0 :child-link blink3 :name :rear-right-wheel :axis :y 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :left-front-fork
+     (setq joint3 (instance rotational-joint :init
+			     :parent-link blink0 :child-link blink4 :name :left-front-fork :axis :z 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :front-left-wheel
+     (setq joint4 (instance rotational-joint :init
+			     :parent-link blink4 :child-link blink5 :name :front-left-wheel :axis :y 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :right-front-fork
+     (setq joint5 (instance rotational-joint :init
+			     :parent-link blink0 :child-link blink6 :name :right-front-fork :axis :z 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :front-right-wheel
+     (setq joint6 (instance rotational-joint :init
+			     :parent-link blink6 :child-link blink7 :name :front-right-wheel :axis :y 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
 
      ;; definition of :handle
      (setq handle0 (make-cascoords :pos (float-vector 80.0 240.0 850.0) :rot #2f((1.0 0.0 0.0) (0.0 0.707107 -0.707107) (0.0 0.707107 0.707107)) :name ":larm"))
@@ -343,14 +482,21 @@
      (send blink0 :assoc handle2)
 
      ;; init-ending 
-     (setq links (list blink0))
-     (setq joint-list (list))
+     (setq links (list blink0 blink1 blink2 blink3 blink4 blink5 blink6 blink7))
+     (setq joint-list (list joint0 joint1 joint2 joint3 joint4 joint5 joint6))
      (send self :init-ending)
      (send self :move-to (make-coords :pos pos :rot rot))
      (send-all links :worldcoords)
 
      self))
 
+  (:bar (&rest args) (forward-message-to joint0 args))
+  (:rear-left-wheel (&rest args) (forward-message-to joint1 args))
+  (:rear-right-wheel (&rest args) (forward-message-to joint2 args))
+  (:left-front-fork (&rest args) (forward-message-to joint3 args))
+  (:front-left-wheel (&rest args) (forward-message-to joint4 args))
+  (:right-front-fork (&rest args) (forward-message-to joint5 args))
+  (:front-right-wheel (&rest args) (forward-message-to joint6 args))
   (:handle (&rest args) (forward-message-to-all (list  handle0 handle1 handle2) args))
   (:handle-larm (&rest args) (forward-message-to handle0 args))
   (:handle-rarm (&rest args) (forward-message-to handle1 args))
diff --git a/models/room602-trashbox0-object.l b/models/room602-trashbox0-object.l
index 8ac2da88..9359930d 100644
--- a/models/room602-trashbox0-object.l
+++ b/models/room602-trashbox0-object.l
@@ -6,7 +6,7 @@
 (defclass room602-trashbox0-object
   :super cascaded-link
   :slots (sensors
-         handle0
+         handle0 handle1
          ))
 (defmethod room602-trashbox0-object
   (:init
@@ -92,8 +92,10 @@
 
 
      ;; definition of :handle
-     (setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
+     (setq handle0 (make-cascoords :pos (float-vector -200.0 0.0 500.0) :rot #2f((-0.000204 1.0 0.000204) (1.110223e-16 -0.000204 1.0) (1.0 0.000204 4.148277e-08)) :name "rear"))
      (send blink0 :assoc handle0)
+     (setq handle1 (make-cascoords :pos (float-vector 200.0 0.0 500.0) :rot #2f((-0.000204 -1.0 0.000204) (0.0 -0.000204 -1.0) (1.0 -0.000204 4.148277e-08)) :name "front"))
+     (send blink0 :assoc handle1)
 
      ;; init-ending 
      (setq links (list blink0))
@@ -104,8 +106,9 @@
 
      self))
 
-  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
-  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-rear (&rest args) (forward-message-to handle0 args))
+  (:handle-front (&rest args) (forward-message-to handle1 args))
   (:attention (&rest args) (forward-message-to-all (list ) args))
   (:button (&rest args) (forward-message-to-all (list ) args))
   )
diff --git a/models/room602-trashbox1-object.l b/models/room602-trashbox1-object.l
index 42575ada..797f82ba 100644
--- a/models/room602-trashbox1-object.l
+++ b/models/room602-trashbox1-object.l
@@ -6,7 +6,7 @@
 (defclass room602-trashbox1-object
   :super cascaded-link
   :slots (sensors
-         handle0
+         handle0 handle1
          ))
 (defmethod room602-trashbox1-object
   (:init
@@ -92,8 +92,10 @@
 
 
      ;; definition of :handle
-     (setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
+     (setq handle0 (make-cascoords :pos (float-vector -200.0 0.0 500.0) :rot #2f((-0.000204 1.0 0.000204) (1.110223e-16 -0.000204 1.0) (1.0 0.000204 4.148277e-08)) :name "rear"))
      (send blink0 :assoc handle0)
+     (setq handle1 (make-cascoords :pos (float-vector 200.0 0.0 500.0) :rot #2f((-0.000204 -1.0 0.000204) (0.0 -0.000204 -1.0) (1.0 -0.000204 4.148277e-08)) :name "front"))
+     (send blink0 :assoc handle1)
 
      ;; init-ending 
      (setq links (list blink0))
@@ -104,8 +106,9 @@
 
      self))
 
-  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
-  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-rear (&rest args) (forward-message-to handle0 args))
+  (:handle-front (&rest args) (forward-message-to handle1 args))
   (:attention (&rest args) (forward-message-to-all (list ) args))
   (:button (&rest args) (forward-message-to-all (list ) args))
   )
diff --git a/models/room602-trashbox2-object.l b/models/room602-trashbox2-object.l
index cac80b54..c387a8d4 100644
--- a/models/room602-trashbox2-object.l
+++ b/models/room602-trashbox2-object.l
@@ -6,7 +6,7 @@
 (defclass room602-trashbox2-object
   :super cascaded-link
   :slots (sensors
-         handle0
+         handle0 handle1
          ))
 (defmethod room602-trashbox2-object
   (:init
@@ -92,8 +92,10 @@
 
 
      ;; definition of :handle
-     (setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
+     (setq handle0 (make-cascoords :pos (float-vector -200.0 0.0 500.0) :rot #2f((-0.000204 1.0 0.000204) (0.0 -0.000204 1.0) (1.0 0.000204 4.148277e-08)) :name "rear"))
      (send blink0 :assoc handle0)
+     (setq handle1 (make-cascoords :pos (float-vector 200.0 0.0 500.0) :rot #2f((-0.000204 -1.0 0.000204) (-1.110223e-16 -0.000204 -1.0) (1.0 -0.000204 4.148277e-08)) :name "front"))
+     (send blink0 :assoc handle1)
 
      ;; init-ending 
      (setq links (list blink0))
@@ -104,8 +106,9 @@
 
      self))
 
-  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
-  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-rear (&rest args) (forward-message-to handle0 args))
+  (:handle-front (&rest args) (forward-message-to handle1 args))
   (:attention (&rest args) (forward-message-to-all (list ) args))
   (:button (&rest args) (forward-message-to-all (list ) args))
   )
diff --git a/models/room602-trashbox3-object.l b/models/room602-trashbox3-object.l
index a6994c1f..e404534d 100644
--- a/models/room602-trashbox3-object.l
+++ b/models/room602-trashbox3-object.l
@@ -6,7 +6,7 @@
 (defclass room602-trashbox3-object
   :super cascaded-link
   :slots (sensors
-         handle0
+         handle0 handle1
          ))
 (defmethod room602-trashbox3-object
   (:init
@@ -92,8 +92,10 @@
 
 
      ;; definition of :handle
-     (setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
+     (setq handle0 (make-cascoords :pos (float-vector -200.0 0.0 500.0) :rot #2f((-0.000204 1.0 0.000204) (0.0 -0.000204 1.0) (1.0 0.000204 4.148277e-08)) :name "rear"))
      (send blink0 :assoc handle0)
+     (setq handle1 (make-cascoords :pos (float-vector 200.0 0.0 500.0) :rot #2f((-0.000204 -1.0 0.000204) (-1.110223e-16 -0.000204 -1.0) (1.0 -0.000204 4.148277e-08)) :name "front"))
+     (send blink0 :assoc handle1)
 
      ;; init-ending 
      (setq links (list blink0))
@@ -104,8 +106,9 @@
 
      self))
 
-  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
-  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-rear (&rest args) (forward-message-to handle0 args))
+  (:handle-front (&rest args) (forward-message-to handle1 args))
   (:attention (&rest args) (forward-message-to-all (list ) args))
   (:button (&rest args) (forward-message-to-all (list ) args))
   )
diff --git a/models/room73a3-door-right-object.l b/models/room73a3-door-right-object.l
index 64196fbb..363c2da9 100644
--- a/models/room73a3-door-right-object.l
+++ b/models/room73a3-door-right-object.l
@@ -282,7 +282,7 @@
      ;; definition of :handle
      (setq handle0 (make-cascoords :pos (float-vector 75.0 265.0 960.0) :rot #2f((-1.0 -1.224647e-16 1.232595e-32) (-1.232595e-32 2.220446e-16 1.0) (-1.224647e-16 1.0 -2.220446e-16)) :name "rear-knob"))
      (send blink2 :assoc handle0)
-     (setq handle1 (make-cascoords :pos (float-vector 75.0 265.0 960.0) :rot #2f((-1.0 -1.224647e-16 1.232595e-32) (-1.232595e-32 2.220446e-16 1.0) (-1.224647e-16 1.0 -2.220446e-16)) :name "front-knob"))
+     (setq handle1 (make-cascoords :pos (float-vector -115.0 265.0 960.0) :rot #2f((-1.0 -1.224647e-16 1.232595e-32) (-1.232595e-32 2.220446e-16 1.0) (-1.224647e-16 1.0 -2.220446e-16)) :name "front-knob"))
      (send blink2 :assoc handle1)
      (setq handle2 (make-cascoords :pos (float-vector 65.0 345.0 1060.0) :rot #2f((-1.0 -1.224647e-16 0.0) (1.224647e-16 -1.0 0.0) (0.0 0.0 1.0)) :name "lock"))
      (send blink3 :assoc handle2)
diff --git a/models/room73b2-askul-1000x700-desk-object.l b/models/room73b2-askul-1000x700-desk-object.l
deleted file mode 100644
index d4ac049b..00000000
--- a/models/room73b2-askul-1000x700-desk-object.l
+++ /dev/null
@@ -1,126 +0,0 @@
-;;
-;; DO NOT EDIT THIS FILE
-;; this file is automatically generated from euslisp+euslib version 
-;;
-;;
-(defclass room73b2-askul-1000x700-desk-object
-  :super cascaded-link
-  :slots (sensors
-         ))
-(defmethod room73b2-askul-1000x700-desk-object
-  (:init
-   (&rest args &key (name "room73b2-askul-1000x700-desk") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
-   (let (c bc
-         blink0
-                 )
-     (send-super* :init :name name args)
-
-     ;; definition of link
-
-     ;; definition of :room73b2-askul-1000x700-desk-bodyset2
-     (setq bc (list
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector -350.0 -500.0 700.0) (float-vector 350.0 -500.0 700.0) (float-vector 350.0 500.0 700.0) (float-vector -350.0 500.0 700.0)))
-         (instance face :init :vertices (list (float-vector 350.0 -500.0 682.0) (float-vector -350.0 -500.0 682.0) (float-vector -350.0 500.0 682.0) (float-vector 350.0 500.0 682.0)))
-         (instance face :init :vertices (list (float-vector -350.0 -500.0 700.0) (float-vector -350.0 -500.0 682.0) (float-vector 350.0 -500.0 682.0) (float-vector 350.0 -500.0 700.0)))
-         (instance face :init :vertices (list (float-vector -350.0 500.0 700.0) (float-vector -350.0 500.0 682.0) (float-vector -350.0 -500.0 682.0) (float-vector -350.0 -500.0 700.0)))
-         (instance face :init :vertices (list (float-vector 350.0 500.0 700.0) (float-vector 350.0 500.0 682.0) (float-vector -350.0 500.0 682.0) (float-vector -350.0 500.0 700.0)))
-         (instance face :init :vertices (list (float-vector 350.0 -500.0 700.0) (float-vector 350.0 -500.0 682.0) (float-vector 350.0 500.0 682.0) (float-vector 350.0 500.0 700.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 313.856 -458.0 682.0) (float-vector 316.0 -450.0 682.0) (float-vector 313.856 -442.0 682.0) (float-vector 308.0 -436.144 682.0) (float-vector 300.0 -434.0 682.0) (float-vector 292.0 -436.144 682.0) (float-vector 286.144 -442.0 682.0) (float-vector 284.0 -450.0 682.0) (float-vector 286.144 -458.0 682.0) (float-vector 292.0 -463.856 682.0) (float-vector 300.0 -466.0 682.0) (float-vector 308.0 -463.856 682.0)))
-         (instance face :init :vertices (list (float-vector 316.0 -450.0 0.0) (float-vector 313.856 -458.0 0.0) (float-vector 308.0 -463.856 0.0) (float-vector 300.0 -466.0 0.0) (float-vector 292.0 -463.856 0.0) (float-vector 286.144 -458.0 0.0) (float-vector 284.0 -450.0 0.0) (float-vector 286.144 -442.0 0.0) (float-vector 292.0 -436.144 0.0) (float-vector 300.0 -434.0 0.0) (float-vector 308.0 -436.144 0.0) (float-vector 313.856 -442.0 0.0)))
-         (instance face :init :vertices (list (float-vector 313.856 -458.0 682.0) (float-vector 313.856 -458.0 0.0) (float-vector 316.0 -450.0 0.0) (float-vector 316.0 -450.0 682.0)))
-         (instance face :init :vertices (list (float-vector 308.0 -463.856 682.0) (float-vector 308.0 -463.856 0.0) (float-vector 313.856 -458.0 0.0) (float-vector 313.856 -458.0 682.0)))
-         (instance face :init :vertices (list (float-vector 300.0 -466.0 682.0) (float-vector 300.0 -466.0 0.0) (float-vector 308.0 -463.856 0.0) (float-vector 308.0 -463.856 682.0)))
-         (instance face :init :vertices (list (float-vector 292.0 -463.856 682.0) (float-vector 292.0 -463.856 0.0) (float-vector 300.0 -466.0 0.0) (float-vector 300.0 -466.0 682.0)))
-         (instance face :init :vertices (list (float-vector 286.144 -458.0 682.0) (float-vector 286.144 -458.0 0.0) (float-vector 292.0 -463.856 0.0) (float-vector 292.0 -463.856 682.0)))
-         (instance face :init :vertices (list (float-vector 284.0 -450.0 682.0) (float-vector 284.0 -450.0 0.0) (float-vector 286.144 -458.0 0.0) (float-vector 286.144 -458.0 682.0)))
-         (instance face :init :vertices (list (float-vector 286.144 -442.0 682.0) (float-vector 286.144 -442.0 0.0) (float-vector 284.0 -450.0 0.0) (float-vector 284.0 -450.0 682.0)))
-         (instance face :init :vertices (list (float-vector 292.0 -436.144 682.0) (float-vector 292.0 -436.144 0.0) (float-vector 286.144 -442.0 0.0) (float-vector 286.144 -442.0 682.0)))
-         (instance face :init :vertices (list (float-vector 300.0 -434.0 682.0) (float-vector 300.0 -434.0 0.0) (float-vector 292.0 -436.144 0.0) (float-vector 292.0 -436.144 682.0)))
-         (instance face :init :vertices (list (float-vector 308.0 -436.144 682.0) (float-vector 308.0 -436.144 0.0) (float-vector 300.0 -434.0 0.0) (float-vector 300.0 -434.0 682.0)))
-         (instance face :init :vertices (list (float-vector 313.856 -442.0 682.0) (float-vector 313.856 -442.0 0.0) (float-vector 308.0 -436.144 0.0) (float-vector 308.0 -436.144 682.0)))
-         (instance face :init :vertices (list (float-vector 316.0 -450.0 682.0) (float-vector 316.0 -450.0 0.0) (float-vector 313.856 -442.0 0.0) (float-vector 313.856 -442.0 682.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 313.856 442.0 682.0) (float-vector 316.0 450.0 682.0) (float-vector 313.856 458.0 682.0) (float-vector 308.0 463.856 682.0) (float-vector 300.0 466.0 682.0) (float-vector 292.0 463.856 682.0) (float-vector 286.144 458.0 682.0) (float-vector 284.0 450.0 682.0) (float-vector 286.144 442.0 682.0) (float-vector 292.0 436.144 682.0) (float-vector 300.0 434.0 682.0) (float-vector 308.0 436.144 682.0)))
-         (instance face :init :vertices (list (float-vector 316.0 450.0 0.0) (float-vector 313.856 442.0 0.0) (float-vector 308.0 436.144 0.0) (float-vector 300.0 434.0 0.0) (float-vector 292.0 436.144 0.0) (float-vector 286.144 442.0 0.0) (float-vector 284.0 450.0 0.0) (float-vector 286.144 458.0 0.0) (float-vector 292.0 463.856 0.0) (float-vector 300.0 466.0 0.0) (float-vector 308.0 463.856 0.0) (float-vector 313.856 458.0 0.0)))
-         (instance face :init :vertices (list (float-vector 313.856 442.0 682.0) (float-vector 313.856 442.0 0.0) (float-vector 316.0 450.0 0.0) (float-vector 316.0 450.0 682.0)))
-         (instance face :init :vertices (list (float-vector 308.0 436.144 682.0) (float-vector 308.0 436.144 0.0) (float-vector 313.856 442.0 0.0) (float-vector 313.856 442.0 682.0)))
-         (instance face :init :vertices (list (float-vector 300.0 434.0 682.0) (float-vector 300.0 434.0 0.0) (float-vector 308.0 436.144 0.0) (float-vector 308.0 436.144 682.0)))
-         (instance face :init :vertices (list (float-vector 292.0 436.144 682.0) (float-vector 292.0 436.144 0.0) (float-vector 300.0 434.0 0.0) (float-vector 300.0 434.0 682.0)))
-         (instance face :init :vertices (list (float-vector 286.144 442.0 682.0) (float-vector 286.144 442.0 0.0) (float-vector 292.0 436.144 0.0) (float-vector 292.0 436.144 682.0)))
-         (instance face :init :vertices (list (float-vector 284.0 450.0 682.0) (float-vector 284.0 450.0 0.0) (float-vector 286.144 442.0 0.0) (float-vector 286.144 442.0 682.0)))
-         (instance face :init :vertices (list (float-vector 286.144 458.0 682.0) (float-vector 286.144 458.0 0.0) (float-vector 284.0 450.0 0.0) (float-vector 284.0 450.0 682.0)))
-         (instance face :init :vertices (list (float-vector 292.0 463.856 682.0) (float-vector 292.0 463.856 0.0) (float-vector 286.144 458.0 0.0) (float-vector 286.144 458.0 682.0)))
-         (instance face :init :vertices (list (float-vector 300.0 466.0 682.0) (float-vector 300.0 466.0 0.0) (float-vector 292.0 463.856 0.0) (float-vector 292.0 463.856 682.0)))
-         (instance face :init :vertices (list (float-vector 308.0 463.856 682.0) (float-vector 308.0 463.856 0.0) (float-vector 300.0 466.0 0.0) (float-vector 300.0 466.0 682.0)))
-         (instance face :init :vertices (list (float-vector 313.856 458.0 682.0) (float-vector 313.856 458.0 0.0) (float-vector 308.0 463.856 0.0) (float-vector 308.0 463.856 682.0)))
-         (instance face :init :vertices (list (float-vector 316.0 450.0 682.0) (float-vector 316.0 450.0 0.0) (float-vector 313.856 458.0 0.0) (float-vector 313.856 458.0 682.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector -286.144 442.0 682.0) (float-vector -284.0 450.0 682.0) (float-vector -286.144 458.0 682.0) (float-vector -292.0 463.856 682.0) (float-vector -300.0 466.0 682.0) (float-vector -308.0 463.856 682.0) (float-vector -313.856 458.0 682.0) (float-vector -316.0 450.0 682.0) (float-vector -313.856 442.0 682.0) (float-vector -308.0 436.144 682.0) (float-vector -300.0 434.0 682.0) (float-vector -292.0 436.144 682.0)))
-         (instance face :init :vertices (list (float-vector -284.0 450.0 0.0) (float-vector -286.144 442.0 0.0) (float-vector -292.0 436.144 0.0) (float-vector -300.0 434.0 0.0) (float-vector -308.0 436.144 0.0) (float-vector -313.856 442.0 0.0) (float-vector -316.0 450.0 0.0) (float-vector -313.856 458.0 0.0) (float-vector -308.0 463.856 0.0) (float-vector -300.0 466.0 0.0) (float-vector -292.0 463.856 0.0) (float-vector -286.144 458.0 0.0)))
-         (instance face :init :vertices (list (float-vector -286.144 442.0 682.0) (float-vector -286.144 442.0 0.0) (float-vector -284.0 450.0 0.0) (float-vector -284.0 450.0 682.0)))
-         (instance face :init :vertices (list (float-vector -292.0 436.144 682.0) (float-vector -292.0 436.144 0.0) (float-vector -286.144 442.0 0.0) (float-vector -286.144 442.0 682.0)))
-         (instance face :init :vertices (list (float-vector -300.0 434.0 682.0) (float-vector -300.0 434.0 0.0) (float-vector -292.0 436.144 0.0) (float-vector -292.0 436.144 682.0)))
-         (instance face :init :vertices (list (float-vector -308.0 436.144 682.0) (float-vector -308.0 436.144 0.0) (float-vector -300.0 434.0 0.0) (float-vector -300.0 434.0 682.0)))
-         (instance face :init :vertices (list (float-vector -313.856 442.0 682.0) (float-vector -313.856 442.0 0.0) (float-vector -308.0 436.144 0.0) (float-vector -308.0 436.144 682.0)))
-         (instance face :init :vertices (list (float-vector -316.0 450.0 682.0) (float-vector -316.0 450.0 0.0) (float-vector -313.856 442.0 0.0) (float-vector -313.856 442.0 682.0)))
-         (instance face :init :vertices (list (float-vector -313.856 458.0 682.0) (float-vector -313.856 458.0 0.0) (float-vector -316.0 450.0 0.0) (float-vector -316.0 450.0 682.0)))
-         (instance face :init :vertices (list (float-vector -308.0 463.856 682.0) (float-vector -308.0 463.856 0.0) (float-vector -313.856 458.0 0.0) (float-vector -313.856 458.0 682.0)))
-         (instance face :init :vertices (list (float-vector -300.0 466.0 682.0) (float-vector -300.0 466.0 0.0) (float-vector -308.0 463.856 0.0) (float-vector -308.0 463.856 682.0)))
-         (instance face :init :vertices (list (float-vector -292.0 463.856 682.0) (float-vector -292.0 463.856 0.0) (float-vector -300.0 466.0 0.0) (float-vector -300.0 466.0 682.0)))
-         (instance face :init :vertices (list (float-vector -286.144 458.0 682.0) (float-vector -286.144 458.0 0.0) (float-vector -292.0 463.856 0.0) (float-vector -292.0 463.856 682.0)))
-         (instance face :init :vertices (list (float-vector -284.0 450.0 682.0) (float-vector -284.0 450.0 0.0) (float-vector -286.144 458.0 0.0) (float-vector -286.144 458.0 682.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector -286.144 -458.0 682.0) (float-vector -284.0 -450.0 682.0) (float-vector -286.144 -442.0 682.0) (float-vector -292.0 -436.144 682.0) (float-vector -300.0 -434.0 682.0) (float-vector -308.0 -436.144 682.0) (float-vector -313.856 -442.0 682.0) (float-vector -316.0 -450.0 682.0) (float-vector -313.856 -458.0 682.0) (float-vector -308.0 -463.856 682.0) (float-vector -300.0 -466.0 682.0) (float-vector -292.0 -463.856 682.0)))
-         (instance face :init :vertices (list (float-vector -284.0 -450.0 0.0) (float-vector -286.144 -458.0 0.0) (float-vector -292.0 -463.856 0.0) (float-vector -300.0 -466.0 0.0) (float-vector -308.0 -463.856 0.0) (float-vector -313.856 -458.0 0.0) (float-vector -316.0 -450.0 0.0) (float-vector -313.856 -442.0 0.0) (float-vector -308.0 -436.144 0.0) (float-vector -300.0 -434.0 0.0) (float-vector -292.0 -436.144 0.0) (float-vector -286.144 -442.0 0.0)))
-         (instance face :init :vertices (list (float-vector -286.144 -458.0 682.0) (float-vector -286.144 -458.0 0.0) (float-vector -284.0 -450.0 0.0) (float-vector -284.0 -450.0 682.0)))
-         (instance face :init :vertices (list (float-vector -292.0 -463.856 682.0) (float-vector -292.0 -463.856 0.0) (float-vector -286.144 -458.0 0.0) (float-vector -286.144 -458.0 682.0)))
-         (instance face :init :vertices (list (float-vector -300.0 -466.0 682.0) (float-vector -300.0 -466.0 0.0) (float-vector -292.0 -463.856 0.0) (float-vector -292.0 -463.856 682.0)))
-         (instance face :init :vertices (list (float-vector -308.0 -463.856 682.0) (float-vector -308.0 -463.856 0.0) (float-vector -300.0 -466.0 0.0) (float-vector -300.0 -466.0 682.0)))
-         (instance face :init :vertices (list (float-vector -313.856 -458.0 682.0) (float-vector -313.856 -458.0 0.0) (float-vector -308.0 -463.856 0.0) (float-vector -308.0 -463.856 682.0)))
-         (instance face :init :vertices (list (float-vector -316.0 -450.0 682.0) (float-vector -316.0 -450.0 0.0) (float-vector -313.856 -458.0 0.0) (float-vector -313.856 -458.0 682.0)))
-         (instance face :init :vertices (list (float-vector -313.856 -442.0 682.0) (float-vector -313.856 -442.0 0.0) (float-vector -316.0 -450.0 0.0) (float-vector -316.0 -450.0 682.0)))
-         (instance face :init :vertices (list (float-vector -308.0 -436.144 682.0) (float-vector -308.0 -436.144 0.0) (float-vector -313.856 -442.0 0.0) (float-vector -313.856 -442.0 682.0)))
-         (instance face :init :vertices (list (float-vector -300.0 -434.0 682.0) (float-vector -300.0 -434.0 0.0) (float-vector -308.0 -436.144 0.0) (float-vector -308.0 -436.144 682.0)))
-         (instance face :init :vertices (list (float-vector -292.0 -436.144 682.0) (float-vector -292.0 -436.144 0.0) (float-vector -300.0 -434.0 0.0) (float-vector -300.0 -434.0 682.0)))
-         (instance face :init :vertices (list (float-vector -286.144 -442.0 682.0) (float-vector -286.144 -442.0 0.0) (float-vector -292.0 -436.144 0.0) (float-vector -292.0 -436.144 682.0)))
-         (instance face :init :vertices (list (float-vector -284.0 -450.0 682.0) (float-vector -284.0 -450.0 0.0) (float-vector -286.144 -442.0 0.0) (float-vector -286.144 -442.0 682.0)))
-       ))
-       ))
-     (dolist (b (cdr bc)) (send (car bc) :assoc b))
-     (send (elt bc 0) :set-color :white)
-     (send (elt bc 1) :set-color :gray70)
-     (send (elt bc 2) :set-color :gray70)
-     (send (elt bc 3) :set-color :gray70)
-     (send (elt bc 4) :set-color :gray70)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-askul-1000x700-desk-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
-
-     ;; definition of assoc
-     (send self :assoc blink0)
-
-     ;; definition of end-coords
-
-     ;; definition of joint
-
-
-     ;; init-ending 
-     (setq links (list blink0))
-     (setq joint-list (list))
-     (send self :init-ending)
-     (send self :move-to (make-coords :pos pos :rot rot))
-     (send-all links :worldcoords)
-
-     self))
-
-  (:handle (&rest args) (forward-message-to-all (list ) args))
-  (:attention (&rest args) (forward-message-to-all (list ) args))
-  (:button (&rest args) (forward-message-to-all (list ) args))
-  )
-
-(defun room73b2-askul-1000x700-desk (&rest args) (instance* room73b2-askul-1000x700-desk-object :init args))
-;; (format *error-output* "(instance room73b2-askul-1000x700-desk-object :init) for generating model~%")
diff --git a/models/room73b2-bariera-1200-middle-0-object.l b/models/room73b2-bariera-1200-middle-0-object.l
index c2cc7821..f58a6b42 100644
--- a/models/room73b2-bariera-1200-middle-0-object.l
+++ b/models/room73b2-bariera-1200-middle-0-object.l
@@ -21,15 +21,15 @@
      ;; definition of :room73b2-bariera-1200-middle-0-bodyset2
      (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 60.0 1185.0 2500.0) (float-vector 0.0 1185.0 2500.0) (float-vector 0.0 15.0 2500.0) (float-vector 60.0 15.0 2500.0)))
-         (instance face :init :vertices (list (float-vector 0.0 1185.0 0.0) (float-vector 60.0 1185.0 0.0) (float-vector 60.0 15.0 0.0) (float-vector 0.0 15.0 0.0)))
-         (instance face :init :vertices (list (float-vector 60.0 1185.0 2500.0) (float-vector 60.0 1185.0 0.0) (float-vector 0.0 1185.0 0.0) (float-vector 0.0 1185.0 2500.0)))
+         (instance face :init :vertices (list (float-vector 60.0 1185.0 2500.0) (float-vector -4.547474e-13 1185.0 2500.0) (float-vector 0.0 15.0 2500.0) (float-vector 60.0 15.0 2500.0)))
+         (instance face :init :vertices (list (float-vector -4.547474e-13 1185.0 0.0) (float-vector 60.0 1185.0 0.0) (float-vector 60.0 15.0 0.0) (float-vector 0.0 15.0 0.0)))
+         (instance face :init :vertices (list (float-vector 60.0 1185.0 2500.0) (float-vector 60.0 1185.0 0.0) (float-vector -4.547474e-13 1185.0 0.0) (float-vector -4.547474e-13 1185.0 2500.0)))
          (instance face :init :vertices (list (float-vector 60.0 15.0 2500.0) (float-vector 60.0 15.0 0.0) (float-vector 60.0 1185.0 0.0) (float-vector 60.0 1185.0 2500.0)))
          (instance face :init :vertices (list (float-vector 0.0 15.0 2500.0) (float-vector 0.0 15.0 0.0) (float-vector 60.0 15.0 0.0) (float-vector 60.0 15.0 2500.0)))
-         (instance face :init :vertices (list (float-vector 0.0 1185.0 2500.0) (float-vector 0.0 1185.0 0.0) (float-vector 0.0 15.0 0.0) (float-vector 0.0 15.0 2500.0)))
+         (instance face :init :vertices (list (float-vector -4.547474e-13 1185.0 2500.0) (float-vector -4.547474e-13 1185.0 0.0) (float-vector 0.0 15.0 0.0) (float-vector 0.0 15.0 2500.0)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 390.0 0.0 -29.0) (float-vector 390.0 0.0 -35.0) (float-vector 385.981 15.0 -35.0) (float-vector 385.981 15.0 -29.0)))
+         (instance face :init :vertices (list (float-vector 390.0 4.547474e-13 -29.0) (float-vector 390.0 4.547474e-13 -35.0) (float-vector 385.981 15.0 -35.0) (float-vector 385.981 15.0 -29.0)))
          (instance face :init :vertices (list (float-vector 385.981 15.0 -35.0) (float-vector 375.0 25.9808 -35.0) (float-vector 375.0 25.9808 -29.0) (float-vector 385.981 15.0 -29.0)))
          (instance face :init :vertices (list (float-vector 375.0 25.9808 -35.0) (float-vector 360.0 30.0 -35.0) (float-vector 360.0 30.0 -29.0) (float-vector 375.0 25.9808 -29.0)))
          (instance face :init :vertices (list (float-vector 360.0 30.0 -35.0) (float-vector 345.0 25.9808 -35.0) (float-vector 345.0 25.9808 -29.0) (float-vector 360.0 30.0 -29.0)))
@@ -40,25 +40,25 @@
          (instance face :init :vertices (list (float-vector 345.0 -25.9808 -35.0) (float-vector 360.0 -30.0 -35.0) (float-vector 360.0 -30.0 -29.0) (float-vector 345.0 -25.9808 -29.0)))
          (instance face :init :vertices (list (float-vector 360.0 -30.0 -35.0) (float-vector 375.0 -25.9808 -35.0) (float-vector 375.0 -25.9808 -29.0) (float-vector 360.0 -30.0 -29.0)))
          (instance face :init :vertices (list (float-vector 375.0 -25.9808 -35.0) (float-vector 385.981 -15.0 -35.0) (float-vector 385.981 -15.0 -29.0) (float-vector 375.0 -25.9808 -29.0)))
-         (instance face :init :vertices (list (float-vector 385.981 -15.0 -29.0) (float-vector 390.0 0.0 -29.0) (float-vector 385.981 15.0 -29.0) (float-vector 375.0 25.9808 -29.0) (float-vector 360.0 30.0 -29.0) (float-vector 345.0 25.9808 -29.0) (float-vector 334.019 15.0 -29.0) (float-vector 330.0 0.0 -29.0) (float-vector 334.019 -15.0 -29.0) (float-vector 345.0 -25.9808 -29.0) (float-vector 360.0 -30.0 -29.0) (float-vector 375.0 -25.9808 -29.0))
+         (instance face :init :vertices (list (float-vector 385.981 -15.0 -29.0) (float-vector 390.0 4.547474e-13 -29.0) (float-vector 385.981 15.0 -29.0) (float-vector 375.0 25.9808 -29.0) (float-vector 360.0 30.0 -29.0) (float-vector 345.0 25.9808 -29.0) (float-vector 334.019 15.0 -29.0) (float-vector 330.0 0.0 -29.0) (float-vector 334.019 -15.0 -29.0) (float-vector 345.0 -25.9808 -29.0) (float-vector 360.0 -30.0 -29.0) (float-vector 375.0 -25.9808 -29.0))
                               :holes (list
-         (instance hole :init :vertices (list (float-vector 368.66 -5.0 -29.0) (float-vector 365.0 -8.66025 -29.0) (float-vector 360.0 -10.0 -29.0) (float-vector 355.0 -8.66025 -29.0) (float-vector 351.34 -5.0 -29.0) (float-vector 350.0 0.0 -29.0) (float-vector 351.34 5.0 -29.0) (float-vector 355.0 8.66025 -29.0) (float-vector 360.0 10.0 -29.0) (float-vector 365.0 8.66025 -29.0) (float-vector 368.66 5.0 -29.0) (float-vector 370.0 0.0 -29.0)))
+         (instance hole :init :vertices (list (float-vector 368.66 -5.0 -29.0) (float-vector 365.0 -8.66025 -29.0) (float-vector 360.0 -10.0 -29.0) (float-vector 355.0 -8.66025 -29.0) (float-vector 351.34 -5.0 -29.0) (float-vector 350.0 4.547474e-13 -29.0) (float-vector 351.34 5.0 -29.0) (float-vector 355.0 8.66025 -29.0) (float-vector 360.0 10.0 -29.0) (float-vector 365.0 8.66025 -29.0) (float-vector 368.66 5.0 -29.0) (float-vector 370.0 4.547474e-13 -29.0)))
 ))
-         (instance face :init :vertices (list (float-vector 385.981 -15.0 -35.0) (float-vector 390.0 0.0 -35.0) (float-vector 390.0 0.0 -29.0) (float-vector 385.981 -15.0 -29.0)))
-         (instance face :init :vertices (list (float-vector 390.0 0.0 -35.0) (float-vector 385.981 -15.0 -35.0) (float-vector 375.0 -25.9808 -35.0) (float-vector 360.0 -30.0 -35.0) (float-vector 345.0 -25.9808 -35.0) (float-vector 334.019 -15.0 -35.0) (float-vector 330.0 0.0 -35.0) (float-vector 334.019 15.0 -35.0) (float-vector 345.0 25.9808 -35.0) (float-vector 360.0 30.0 -35.0) (float-vector 375.0 25.9808 -35.0) (float-vector 385.981 15.0 -35.0)))
-         (instance face :init :vertices (list (float-vector 370.0 0.0 0.0) (float-vector 370.0 0.0 -29.0) (float-vector 368.66 5.0 -29.0) (float-vector 368.66 5.0 0.0)))
+         (instance face :init :vertices (list (float-vector 385.981 -15.0 -35.0) (float-vector 390.0 4.547474e-13 -35.0) (float-vector 390.0 4.547474e-13 -29.0) (float-vector 385.981 -15.0 -29.0)))
+         (instance face :init :vertices (list (float-vector 390.0 4.547474e-13 -35.0) (float-vector 385.981 -15.0 -35.0) (float-vector 375.0 -25.9808 -35.0) (float-vector 360.0 -30.0 -35.0) (float-vector 345.0 -25.9808 -35.0) (float-vector 334.019 -15.0 -35.0) (float-vector 330.0 0.0 -35.0) (float-vector 334.019 15.0 -35.0) (float-vector 345.0 25.9808 -35.0) (float-vector 360.0 30.0 -35.0) (float-vector 375.0 25.9808 -35.0) (float-vector 385.981 15.0 -35.0)))
+         (instance face :init :vertices (list (float-vector 370.0 4.547474e-13 0.0) (float-vector 370.0 4.547474e-13 -29.0) (float-vector 368.66 5.0 -29.0) (float-vector 368.66 5.0 0.0)))
          (instance face :init :vertices (list (float-vector 365.0 8.66025 -29.0) (float-vector 365.0 8.66025 0.0) (float-vector 368.66 5.0 0.0) (float-vector 368.66 5.0 -29.0)))
          (instance face :init :vertices (list (float-vector 360.0 10.0 -29.0) (float-vector 360.0 10.0 0.0) (float-vector 365.0 8.66025 0.0) (float-vector 365.0 8.66025 -29.0)))
          (instance face :init :vertices (list (float-vector 355.0 8.66025 -29.0) (float-vector 355.0 8.66025 0.0) (float-vector 360.0 10.0 0.0) (float-vector 360.0 10.0 -29.0)))
          (instance face :init :vertices (list (float-vector 351.34 5.0 -29.0) (float-vector 351.34 5.0 0.0) (float-vector 355.0 8.66025 0.0) (float-vector 355.0 8.66025 -29.0)))
-         (instance face :init :vertices (list (float-vector 350.0 0.0 -29.0) (float-vector 350.0 0.0 0.0) (float-vector 351.34 5.0 0.0) (float-vector 351.34 5.0 -29.0)))
-         (instance face :init :vertices (list (float-vector 351.34 -5.0 -29.0) (float-vector 351.34 -5.0 0.0) (float-vector 350.0 0.0 0.0) (float-vector 350.0 0.0 -29.0)))
+         (instance face :init :vertices (list (float-vector 350.0 4.547474e-13 -29.0) (float-vector 350.0 4.547474e-13 0.0) (float-vector 351.34 5.0 0.0) (float-vector 351.34 5.0 -29.0)))
+         (instance face :init :vertices (list (float-vector 351.34 -5.0 -29.0) (float-vector 351.34 -5.0 0.0) (float-vector 350.0 4.547474e-13 0.0) (float-vector 350.0 4.547474e-13 -29.0)))
          (instance face :init :vertices (list (float-vector 355.0 -8.66025 -29.0) (float-vector 355.0 -8.66025 0.0) (float-vector 351.34 -5.0 0.0) (float-vector 351.34 -5.0 -29.0)))
          (instance face :init :vertices (list (float-vector 360.0 -10.0 -29.0) (float-vector 360.0 -10.0 0.0) (float-vector 355.0 -8.66025 0.0) (float-vector 355.0 -8.66025 -29.0)))
          (instance face :init :vertices (list (float-vector 365.0 -8.66025 -29.0) (float-vector 365.0 -8.66025 0.0) (float-vector 360.0 -10.0 0.0) (float-vector 360.0 -10.0 -29.0)))
          (instance face :init :vertices (list (float-vector 368.66 -5.0 -29.0) (float-vector 368.66 -5.0 0.0) (float-vector 365.0 -8.66025 0.0) (float-vector 365.0 -8.66025 -29.0)))
-         (instance face :init :vertices (list (float-vector 368.66 -5.0 0.0) (float-vector 370.0 0.0 0.0) (float-vector 368.66 5.0 0.0) (float-vector 365.0 8.66025 0.0) (float-vector 360.0 10.0 0.0) (float-vector 355.0 8.66025 0.0) (float-vector 351.34 5.0 0.0) (float-vector 350.0 0.0 0.0) (float-vector 351.34 -5.0 0.0) (float-vector 355.0 -8.66025 0.0) (float-vector 360.0 -10.0 0.0) (float-vector 365.0 -8.66025 0.0)))
-         (instance face :init :vertices (list (float-vector 370.0 0.0 0.0) (float-vector 368.66 -5.0 0.0) (float-vector 368.66 -5.0 -29.0) (float-vector 370.0 0.0 -29.0)))
+         (instance face :init :vertices (list (float-vector 368.66 -5.0 0.0) (float-vector 370.0 4.547474e-13 0.0) (float-vector 368.66 5.0 0.0) (float-vector 365.0 8.66025 0.0) (float-vector 360.0 10.0 0.0) (float-vector 355.0 8.66025 0.0) (float-vector 351.34 5.0 0.0) (float-vector 350.0 4.547474e-13 0.0) (float-vector 351.34 -5.0 0.0) (float-vector 355.0 -8.66025 0.0) (float-vector 360.0 -10.0 0.0) (float-vector 365.0 -8.66025 0.0)))
+         (instance face :init :vertices (list (float-vector 370.0 4.547474e-13 0.0) (float-vector 368.66 -5.0 0.0) (float-vector 368.66 -5.0 -29.0) (float-vector 370.0 4.547474e-13 -29.0)))
        ))
        (instance faceset :init :faces (list
          (instance face :init :vertices (list (float-vector 50.0 0.0 -29.0) (float-vector 50.0 0.0 -35.0) (float-vector 45.9808 15.0 -35.0) (float-vector 45.9808 15.0 -29.0)))
diff --git a/models/room73b2-bariera-1200-middle-1-object.l b/models/room73b2-bariera-1200-middle-1-object.l
index 876cc76a..3c5f8432 100644
--- a/models/room73b2-bariera-1200-middle-1-object.l
+++ b/models/room73b2-bariera-1200-middle-1-object.l
@@ -21,12 +21,12 @@
      ;; definition of :room73b2-bariera-1200-middle-1-bodyset2
      (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 60.0 1185.0 2500.0) (float-vector -4.547474e-13 1185.0 2500.0) (float-vector 0.0 15.0 2500.0) (float-vector 60.0 15.0 2500.0)))
-         (instance face :init :vertices (list (float-vector -4.547474e-13 1185.0 0.0) (float-vector 60.0 1185.0 0.0) (float-vector 60.0 15.0 0.0) (float-vector 0.0 15.0 0.0)))
-         (instance face :init :vertices (list (float-vector 60.0 1185.0 2500.0) (float-vector 60.0 1185.0 0.0) (float-vector -4.547474e-13 1185.0 0.0) (float-vector -4.547474e-13 1185.0 2500.0)))
+         (instance face :init :vertices (list (float-vector 60.0 1185.0 2500.0) (float-vector 0.0 1185.0 2500.0) (float-vector 0.0 15.0 2500.0) (float-vector 60.0 15.0 2500.0)))
+         (instance face :init :vertices (list (float-vector 0.0 1185.0 0.0) (float-vector 60.0 1185.0 0.0) (float-vector 60.0 15.0 0.0) (float-vector 0.0 15.0 0.0)))
+         (instance face :init :vertices (list (float-vector 60.0 1185.0 2500.0) (float-vector 60.0 1185.0 0.0) (float-vector 0.0 1185.0 0.0) (float-vector 0.0 1185.0 2500.0)))
          (instance face :init :vertices (list (float-vector 60.0 15.0 2500.0) (float-vector 60.0 15.0 0.0) (float-vector 60.0 1185.0 0.0) (float-vector 60.0 1185.0 2500.0)))
          (instance face :init :vertices (list (float-vector 0.0 15.0 2500.0) (float-vector 0.0 15.0 0.0) (float-vector 60.0 15.0 0.0) (float-vector 60.0 15.0 2500.0)))
-         (instance face :init :vertices (list (float-vector -4.547474e-13 1185.0 2500.0) (float-vector -4.547474e-13 1185.0 0.0) (float-vector 0.0 15.0 0.0) (float-vector 0.0 15.0 2500.0)))
+         (instance face :init :vertices (list (float-vector 0.0 1185.0 2500.0) (float-vector 0.0 1185.0 0.0) (float-vector 0.0 15.0 0.0) (float-vector 0.0 15.0 2500.0)))
        ))
        (instance faceset :init :faces (list
          (instance face :init :vertices (list (float-vector 390.0 0.0 -29.0) (float-vector 390.0 0.0 -35.0) (float-vector 385.981 15.0 -35.0) (float-vector 385.981 15.0 -29.0)))
diff --git a/models/room73b2-bariera-1200-middle3-1-object.l b/models/room73b2-bariera-1200-middle-3-object.l
similarity index 87%
rename from models/room73b2-bariera-1200-middle3-1-object.l
rename to models/room73b2-bariera-1200-middle-3-object.l
index 085e392a..54a3e835 100644
--- a/models/room73b2-bariera-1200-middle3-1-object.l
+++ b/models/room73b2-bariera-1200-middle-3-object.l
@@ -3,14 +3,14 @@
 ;; this file is automatically generated from euslisp+euslib version 
 ;;
 ;;
-(defclass room73b2-bariera-1200-middle3-1-object
+(defclass room73b2-bariera-1200-middle-3-object
   :super cascaded-link
   :slots (sensors
          handle0
          ))
-(defmethod room73b2-bariera-1200-middle3-1-object
+(defmethod room73b2-bariera-1200-middle-3-object
   (:init
-   (&rest args &key (name "room73b2-bariera-1200-middle3-1") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
+   (&rest args &key (name "room73b2-bariera-1200-middle-3") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
    (let (c bc
          blink0
                  )
@@ -18,7 +18,7 @@
 
      ;; definition of link
 
-     ;; definition of :room73b2-bariera-1200-middle3-1-bodyset2
+     ;; definition of :room73b2-bariera-1200-middle-3-bodyset2
      (setq bc (list
        (instance faceset :init :faces (list
          (instance face :init :vertices (list (float-vector 60.0 1185.0 2500.0) (float-vector 0.0 1185.0 2500.0) (float-vector 0.0 15.0 2500.0) (float-vector 60.0 15.0 2500.0)))
@@ -196,28 +196,6 @@
          (instance face :init :vertices (list (float-vector 72.5 1191.0 1193.0) (float-vector 72.5 1191.0 1336.0) (float-vector 72.5 1209.0 1336.0) (float-vector 72.5 1209.0 1193.0)))
          (instance face :init :vertices (list (float-vector 72.5 1191.0 1336.0) (float-vector 72.5 1191.0 1193.0) (float-vector 75.0 1191.0 1193.0) (float-vector 75.0 1191.0 1211.0) (float-vector 375.0 1191.0 1211.0) (float-vector 375.0 1191.0 1193.0) (float-vector 380.0 1191.0 1193.0) (float-vector 380.0 1191.0 1223.0) (float-vector 100.0 1191.0 1336.0)))
        ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 976.0) (float-vector 72.5 -9.0 833.0) (float-vector 380.0 -9.0 833.0) (float-vector 380.0 -9.0 863.0) (float-vector 100.0 -9.0 976.0)))
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 976.0) (float-vector 72.5 9.0 976.0) (float-vector 72.5 9.0 833.0) (float-vector 72.5 -9.0 833.0)))
-         (instance face :init :vertices (list (float-vector 72.5 9.0 976.0) (float-vector 100.0 9.0 976.0) (float-vector 380.0 9.0 863.0) (float-vector 380.0 9.0 833.0) (float-vector 375.0 9.0 833.0) (float-vector 375.0 9.0 851.0) (float-vector 75.0 9.0 851.0) (float-vector 75.0 9.0 833.0) (float-vector 72.5 9.0 833.0)))
-         (instance face :init :vertices (list (float-vector 75.0 9.0 833.0) (float-vector 75.0 1.5 833.0) (float-vector 375.0 1.5 833.0) (float-vector 375.0 9.0 833.0) (float-vector 380.0 9.0 833.0) (float-vector 380.0 -9.0 833.0) (float-vector 72.5 -9.0 833.0) (float-vector 72.5 9.0 833.0)))
-         (instance face :init :vertices (list (float-vector 380.0 9.0 863.0) (float-vector 380.0 -9.0 863.0) (float-vector 380.0 -9.0 833.0) (float-vector 380.0 9.0 833.0)))
-         (instance face :init :vertices (list (float-vector 100.0 9.0 976.0) (float-vector 100.0 -9.0 976.0) (float-vector 380.0 -9.0 863.0) (float-vector 380.0 9.0 863.0)))
-         (instance face :init :vertices (list (float-vector 100.0 -9.0 976.0) (float-vector 100.0 9.0 976.0) (float-vector 72.5 9.0 976.0) (float-vector 72.5 -9.0 976.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1198.5 831.0) (float-vector 375.0 1198.5 831.0) (float-vector 375.0 1.5 831.0) (float-vector 75.0 1.5 831.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1198.5 831.0) (float-vector 75.0 1198.5 833.0) (float-vector 375.0 1198.5 833.0) (float-vector 375.0 1198.5 831.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1191.0 851.0) (float-vector 75.0 9.0 851.0) (float-vector 375.0 9.0 851.0) (float-vector 375.0 1191.0 851.0)))
-         (instance face :init :vertices (list (float-vector 375.0 1.5 833.0) (float-vector 375.0 1.5 831.0) (float-vector 375.0 1198.5 831.0) (float-vector 375.0 1198.5 833.0) (float-vector 375.0 1191.0 833.0) (float-vector 375.0 1191.0 851.0) (float-vector 375.0 9.0 851.0) (float-vector 375.0 9.0 833.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 833.0) (float-vector 75.0 1.5 831.0) (float-vector 375.0 1.5 831.0) (float-vector 375.0 1.5 833.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 831.0) (float-vector 75.0 1.5 833.0) (float-vector 75.0 9.0 833.0) (float-vector 75.0 9.0 851.0) (float-vector 75.0 1191.0 851.0) (float-vector 75.0 1191.0 833.0) (float-vector 75.0 1198.5 833.0) (float-vector 75.0 1198.5 831.0)))
-         (instance face :init :vertices (list (float-vector 72.5 1209.0 976.0) (float-vector 72.5 1191.0 976.0) (float-vector 100.0 1191.0 976.0) (float-vector 100.0 1209.0 976.0)))
-         (instance face :init :vertices (list (float-vector 100.0 1191.0 976.0) (float-vector 380.0 1191.0 863.0) (float-vector 380.0 1209.0 863.0) (float-vector 100.0 1209.0 976.0)))
-         (instance face :init :vertices (list (float-vector 380.0 1191.0 863.0) (float-vector 380.0 1191.0 833.0) (float-vector 380.0 1209.0 833.0) (float-vector 380.0 1209.0 863.0)))
-         (instance face :init :vertices (list (float-vector 380.0 1191.0 833.0) (float-vector 375.0 1191.0 833.0) (float-vector 375.0 1198.5 833.0) (float-vector 75.0 1198.5 833.0) (float-vector 75.0 1191.0 833.0) (float-vector 72.5 1191.0 833.0) (float-vector 72.5 1209.0 833.0) (float-vector 380.0 1209.0 833.0)))
-         (instance face :init :vertices (list (float-vector 72.5 1209.0 833.0) (float-vector 72.5 1209.0 976.0) (float-vector 100.0 1209.0 976.0) (float-vector 380.0 1209.0 863.0) (float-vector 380.0 1209.0 833.0)))
-         (instance face :init :vertices (list (float-vector 72.5 1191.0 833.0) (float-vector 72.5 1191.0 976.0) (float-vector 72.5 1209.0 976.0) (float-vector 72.5 1209.0 833.0)))
-         (instance face :init :vertices (list (float-vector 72.5 1191.0 976.0) (float-vector 72.5 1191.0 833.0) (float-vector 75.0 1191.0 833.0) (float-vector 75.0 1191.0 851.0) (float-vector 375.0 1191.0 851.0) (float-vector 375.0 1191.0 833.0) (float-vector 380.0 1191.0 833.0) (float-vector 380.0 1191.0 863.0) (float-vector 100.0 1191.0 976.0)))
-       ))
        ))
      (dolist (b (cdr bc)) (send (car bc) :assoc b))
      (send (elt bc 0) :set-color :lightgoldenrodyellow)
@@ -229,8 +207,7 @@
      (send (elt bc 6) :set-color :gray76)
      (send (elt bc 7) :set-color :gray76)
      (send (elt bc 8) :set-color :gray76)
-     (send (elt bc 9) :set-color :gray76)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-bariera-1200-middle3-1-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-bariera-1200-middle-3-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
 
      ;; definition of assoc
      (send self :assoc blink0)
@@ -259,5 +236,5 @@
   (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
-(defun room73b2-bariera-1200-middle3-1 (&rest args) (instance* room73b2-bariera-1200-middle3-1-object :init args))
-;; (format *error-output* "(instance room73b2-bariera-1200-middle3-1-object :init) for generating model~%")
+(defun room73b2-bariera-1200-middle-3 (&rest args) (instance* room73b2-bariera-1200-middle-3-object :init args))
+;; (format *error-output* "(instance room73b2-bariera-1200-middle-3-object :init) for generating model~%")
diff --git a/models/room73b2-bariera-1200-middle2-object.l b/models/room73b2-bariera-1200-middle-4-object.l
similarity index 87%
rename from models/room73b2-bariera-1200-middle2-object.l
rename to models/room73b2-bariera-1200-middle-4-object.l
index ea2bcbf0..2899d740 100644
--- a/models/room73b2-bariera-1200-middle2-object.l
+++ b/models/room73b2-bariera-1200-middle-4-object.l
@@ -3,14 +3,14 @@
 ;; this file is automatically generated from euslisp+euslib version 
 ;;
 ;;
-(defclass room73b2-bariera-1200-middle2-object
+(defclass room73b2-bariera-1200-middle-4-object
   :super cascaded-link
   :slots (sensors
          handle0
          ))
-(defmethod room73b2-bariera-1200-middle2-object
+(defmethod room73b2-bariera-1200-middle-4-object
   (:init
-   (&rest args &key (name "room73b2-bariera-1200-middle2") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
+   (&rest args &key (name "room73b2-bariera-1200-middle-4") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
    (let (c bc
          blink0
                  )
@@ -18,7 +18,7 @@
 
      ;; definition of link
 
-     ;; definition of :room73b2-bariera-1200-middle2-bodyset2
+     ;; definition of :room73b2-bariera-1200-middle-4-bodyset2
      (setq bc (list
        (instance faceset :init :faces (list
          (instance face :init :vertices (list (float-vector 60.0 1185.0 2500.0) (float-vector -4.547474e-13 1185.0 2500.0) (float-vector 0.0 15.0 2500.0) (float-vector 60.0 15.0 2500.0)))
@@ -196,28 +196,6 @@
          (instance face :init :vertices (list (float-vector 72.5 1191.0 1193.0) (float-vector 72.5 1191.0 1336.0) (float-vector 72.5 1209.0 1336.0) (float-vector 72.5 1209.0 1193.0)))
          (instance face :init :vertices (list (float-vector 72.5 1191.0 1336.0) (float-vector 72.5 1191.0 1193.0) (float-vector 75.0 1191.0 1193.0) (float-vector 75.0 1191.0 1211.0) (float-vector 375.0 1191.0 1211.0) (float-vector 375.0 1191.0 1193.0) (float-vector 380.0 1191.0 1193.0) (float-vector 380.0 1191.0 1223.0) (float-vector 100.0 1191.0 1336.0)))
        ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 928.0) (float-vector 72.5 -9.0 785.0) (float-vector 380.0 -9.0 785.0) (float-vector 380.0 -9.0 815.0) (float-vector 100.0 -9.0 928.0)))
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 928.0) (float-vector 72.5 9.0 928.0) (float-vector 72.5 9.0 785.0) (float-vector 72.5 -9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 72.5 9.0 928.0) (float-vector 100.0 9.0 928.0) (float-vector 380.0 9.0 815.0) (float-vector 380.0 9.0 785.0) (float-vector 375.0 9.0 785.0) (float-vector 375.0 9.0 803.0) (float-vector 75.0 9.0 803.0) (float-vector 75.0 9.0 785.0) (float-vector 72.5 9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 75.0 9.0 785.0) (float-vector 75.0 1.5 785.0) (float-vector 375.0 1.5 785.0) (float-vector 375.0 9.0 785.0) (float-vector 380.0 9.0 785.0) (float-vector 380.0 -9.0 785.0) (float-vector 72.5 -9.0 785.0) (float-vector 72.5 9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 380.0 9.0 815.0) (float-vector 380.0 -9.0 815.0) (float-vector 380.0 -9.0 785.0) (float-vector 380.0 9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 100.0 9.0 928.0) (float-vector 100.0 -9.0 928.0) (float-vector 380.0 -9.0 815.0) (float-vector 380.0 9.0 815.0)))
-         (instance face :init :vertices (list (float-vector 100.0 -9.0 928.0) (float-vector 100.0 9.0 928.0) (float-vector 72.5 9.0 928.0) (float-vector 72.5 -9.0 928.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1198.5 783.0) (float-vector 375.0 1198.5 783.0) (float-vector 375.0 1.5 783.0) (float-vector 75.0 1.5 783.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1198.5 783.0) (float-vector 75.0 1198.5 785.0) (float-vector 375.0 1198.5 785.0) (float-vector 375.0 1198.5 783.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1191.0 803.0) (float-vector 75.0 9.0 803.0) (float-vector 375.0 9.0 803.0) (float-vector 375.0 1191.0 803.0)))
-         (instance face :init :vertices (list (float-vector 375.0 1.5 785.0) (float-vector 375.0 1.5 783.0) (float-vector 375.0 1198.5 783.0) (float-vector 375.0 1198.5 785.0) (float-vector 375.0 1191.0 785.0) (float-vector 375.0 1191.0 803.0) (float-vector 375.0 9.0 803.0) (float-vector 375.0 9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 785.0) (float-vector 75.0 1.5 783.0) (float-vector 375.0 1.5 783.0) (float-vector 375.0 1.5 785.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 783.0) (float-vector 75.0 1.5 785.0) (float-vector 75.0 9.0 785.0) (float-vector 75.0 9.0 803.0) (float-vector 75.0 1191.0 803.0) (float-vector 75.0 1191.0 785.0) (float-vector 75.0 1198.5 785.0) (float-vector 75.0 1198.5 783.0)))
-         (instance face :init :vertices (list (float-vector 72.5 1209.0 928.0) (float-vector 72.5 1191.0 928.0) (float-vector 100.0 1191.0 928.0) (float-vector 100.0 1209.0 928.0)))
-         (instance face :init :vertices (list (float-vector 100.0 1191.0 928.0) (float-vector 380.0 1191.0 815.0) (float-vector 380.0 1209.0 815.0) (float-vector 100.0 1209.0 928.0)))
-         (instance face :init :vertices (list (float-vector 380.0 1191.0 815.0) (float-vector 380.0 1191.0 785.0) (float-vector 380.0 1209.0 785.0) (float-vector 380.0 1209.0 815.0)))
-         (instance face :init :vertices (list (float-vector 380.0 1191.0 785.0) (float-vector 375.0 1191.0 785.0) (float-vector 375.0 1198.5 785.0) (float-vector 75.0 1198.5 785.0) (float-vector 75.0 1191.0 785.0) (float-vector 72.5 1191.0 785.0) (float-vector 72.5 1209.0 785.0) (float-vector 380.0 1209.0 785.0)))
-         (instance face :init :vertices (list (float-vector 72.5 1209.0 785.0) (float-vector 72.5 1209.0 928.0) (float-vector 100.0 1209.0 928.0) (float-vector 380.0 1209.0 815.0) (float-vector 380.0 1209.0 785.0)))
-         (instance face :init :vertices (list (float-vector 72.5 1191.0 785.0) (float-vector 72.5 1191.0 928.0) (float-vector 72.5 1209.0 928.0) (float-vector 72.5 1209.0 785.0)))
-         (instance face :init :vertices (list (float-vector 72.5 1191.0 928.0) (float-vector 72.5 1191.0 785.0) (float-vector 75.0 1191.0 785.0) (float-vector 75.0 1191.0 803.0) (float-vector 375.0 1191.0 803.0) (float-vector 375.0 1191.0 785.0) (float-vector 380.0 1191.0 785.0) (float-vector 380.0 1191.0 815.0) (float-vector 100.0 1191.0 928.0)))
-       ))
        ))
      (dolist (b (cdr bc)) (send (car bc) :assoc b))
      (send (elt bc 0) :set-color :lightgoldenrodyellow)
@@ -229,8 +207,7 @@
      (send (elt bc 6) :set-color :gray76)
      (send (elt bc 7) :set-color :gray76)
      (send (elt bc 8) :set-color :gray76)
-     (send (elt bc 9) :set-color :gray76)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-bariera-1200-middle2-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-bariera-1200-middle-4-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
 
      ;; definition of assoc
      (send self :assoc blink0)
@@ -259,5 +236,5 @@
   (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
-(defun room73b2-bariera-1200-middle2 (&rest args) (instance* room73b2-bariera-1200-middle2-object :init args))
-;; (format *error-output* "(instance room73b2-bariera-1200-middle2-object :init) for generating model~%")
+(defun room73b2-bariera-1200-middle-4 (&rest args) (instance* room73b2-bariera-1200-middle-4-object :init args))
+;; (format *error-output* "(instance room73b2-bariera-1200-middle-4-object :init) for generating model~%")
diff --git a/models/room73b2-bariera-1200-middle3-0-object.l b/models/room73b2-bariera-1200-middle-5-object.l
similarity index 82%
rename from models/room73b2-bariera-1200-middle3-0-object.l
rename to models/room73b2-bariera-1200-middle-5-object.l
index 6ccf8713..63a55144 100644
--- a/models/room73b2-bariera-1200-middle3-0-object.l
+++ b/models/room73b2-bariera-1200-middle-5-object.l
@@ -3,14 +3,14 @@
 ;; this file is automatically generated from euslisp+euslib version 
 ;;
 ;;
-(defclass room73b2-bariera-1200-middle3-0-object
+(defclass room73b2-bariera-1200-middle-5-object
   :super cascaded-link
   :slots (sensors
          handle0
          ))
-(defmethod room73b2-bariera-1200-middle3-0-object
+(defmethod room73b2-bariera-1200-middle-5-object
   (:init
-   (&rest args &key (name "room73b2-bariera-1200-middle3-0") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
+   (&rest args &key (name "room73b2-bariera-1200-middle-5") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
    (let (c bc
          blink0
                  )
@@ -18,7 +18,7 @@
 
      ;; definition of link
 
-     ;; definition of :room73b2-bariera-1200-middle3-0-bodyset2
+     ;; definition of :room73b2-bariera-1200-middle-5-bodyset2
      (setq bc (list
        (instance faceset :init :faces (list
          (instance face :init :vertices (list (float-vector 60.0 1185.0 2500.0) (float-vector -4.547474e-13 1185.0 2500.0) (float-vector 0.0 15.0 2500.0) (float-vector 60.0 15.0 2500.0)))
@@ -29,7 +29,7 @@
          (instance face :init :vertices (list (float-vector -4.547474e-13 1185.0 2500.0) (float-vector -4.547474e-13 1185.0 0.0) (float-vector 0.0 15.0 0.0) (float-vector 0.0 15.0 2500.0)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 390.0 4.547474e-13 -29.0) (float-vector 390.0 4.547474e-13 -35.0) (float-vector 385.981 15.0 -35.0) (float-vector 385.981 15.0 -29.0)))
+         (instance face :init :vertices (list (float-vector 390.0 0.0 -29.0) (float-vector 390.0 0.0 -35.0) (float-vector 385.981 15.0 -35.0) (float-vector 385.981 15.0 -29.0)))
          (instance face :init :vertices (list (float-vector 385.981 15.0 -35.0) (float-vector 375.0 25.9808 -35.0) (float-vector 375.0 25.9808 -29.0) (float-vector 385.981 15.0 -29.0)))
          (instance face :init :vertices (list (float-vector 375.0 25.9808 -35.0) (float-vector 360.0 30.0 -35.0) (float-vector 360.0 30.0 -29.0) (float-vector 375.0 25.9808 -29.0)))
          (instance face :init :vertices (list (float-vector 360.0 30.0 -35.0) (float-vector 345.0 25.9808 -35.0) (float-vector 345.0 25.9808 -29.0) (float-vector 360.0 30.0 -29.0)))
@@ -40,25 +40,25 @@
          (instance face :init :vertices (list (float-vector 345.0 -25.9808 -35.0) (float-vector 360.0 -30.0 -35.0) (float-vector 360.0 -30.0 -29.0) (float-vector 345.0 -25.9808 -29.0)))
          (instance face :init :vertices (list (float-vector 360.0 -30.0 -35.0) (float-vector 375.0 -25.9808 -35.0) (float-vector 375.0 -25.9808 -29.0) (float-vector 360.0 -30.0 -29.0)))
          (instance face :init :vertices (list (float-vector 375.0 -25.9808 -35.0) (float-vector 385.981 -15.0 -35.0) (float-vector 385.981 -15.0 -29.0) (float-vector 375.0 -25.9808 -29.0)))
-         (instance face :init :vertices (list (float-vector 385.981 -15.0 -29.0) (float-vector 390.0 4.547474e-13 -29.0) (float-vector 385.981 15.0 -29.0) (float-vector 375.0 25.9808 -29.0) (float-vector 360.0 30.0 -29.0) (float-vector 345.0 25.9808 -29.0) (float-vector 334.019 15.0 -29.0) (float-vector 330.0 0.0 -29.0) (float-vector 334.019 -15.0 -29.0) (float-vector 345.0 -25.9808 -29.0) (float-vector 360.0 -30.0 -29.0) (float-vector 375.0 -25.9808 -29.0))
+         (instance face :init :vertices (list (float-vector 385.981 -15.0 -29.0) (float-vector 390.0 0.0 -29.0) (float-vector 385.981 15.0 -29.0) (float-vector 375.0 25.9808 -29.0) (float-vector 360.0 30.0 -29.0) (float-vector 345.0 25.9808 -29.0) (float-vector 334.019 15.0 -29.0) (float-vector 330.0 0.0 -29.0) (float-vector 334.019 -15.0 -29.0) (float-vector 345.0 -25.9808 -29.0) (float-vector 360.0 -30.0 -29.0) (float-vector 375.0 -25.9808 -29.0))
                               :holes (list
-         (instance hole :init :vertices (list (float-vector 368.66 -5.0 -29.0) (float-vector 365.0 -8.66025 -29.0) (float-vector 360.0 -10.0 -29.0) (float-vector 355.0 -8.66025 -29.0) (float-vector 351.34 -5.0 -29.0) (float-vector 350.0 4.547474e-13 -29.0) (float-vector 351.34 5.0 -29.0) (float-vector 355.0 8.66025 -29.0) (float-vector 360.0 10.0 -29.0) (float-vector 365.0 8.66025 -29.0) (float-vector 368.66 5.0 -29.0) (float-vector 370.0 4.547474e-13 -29.0)))
+         (instance hole :init :vertices (list (float-vector 368.66 -5.0 -29.0) (float-vector 365.0 -8.66025 -29.0) (float-vector 360.0 -10.0 -29.0) (float-vector 355.0 -8.66025 -29.0) (float-vector 351.34 -5.0 -29.0) (float-vector 350.0 0.0 -29.0) (float-vector 351.34 5.0 -29.0) (float-vector 355.0 8.66025 -29.0) (float-vector 360.0 10.0 -29.0) (float-vector 365.0 8.66025 -29.0) (float-vector 368.66 5.0 -29.0) (float-vector 370.0 0.0 -29.0)))
 ))
-         (instance face :init :vertices (list (float-vector 385.981 -15.0 -35.0) (float-vector 390.0 4.547474e-13 -35.0) (float-vector 390.0 4.547474e-13 -29.0) (float-vector 385.981 -15.0 -29.0)))
-         (instance face :init :vertices (list (float-vector 390.0 4.547474e-13 -35.0) (float-vector 385.981 -15.0 -35.0) (float-vector 375.0 -25.9808 -35.0) (float-vector 360.0 -30.0 -35.0) (float-vector 345.0 -25.9808 -35.0) (float-vector 334.019 -15.0 -35.0) (float-vector 330.0 0.0 -35.0) (float-vector 334.019 15.0 -35.0) (float-vector 345.0 25.9808 -35.0) (float-vector 360.0 30.0 -35.0) (float-vector 375.0 25.9808 -35.0) (float-vector 385.981 15.0 -35.0)))
-         (instance face :init :vertices (list (float-vector 370.0 4.547474e-13 0.0) (float-vector 370.0 4.547474e-13 -29.0) (float-vector 368.66 5.0 -29.0) (float-vector 368.66 5.0 0.0)))
+         (instance face :init :vertices (list (float-vector 385.981 -15.0 -35.0) (float-vector 390.0 0.0 -35.0) (float-vector 390.0 0.0 -29.0) (float-vector 385.981 -15.0 -29.0)))
+         (instance face :init :vertices (list (float-vector 390.0 0.0 -35.0) (float-vector 385.981 -15.0 -35.0) (float-vector 375.0 -25.9808 -35.0) (float-vector 360.0 -30.0 -35.0) (float-vector 345.0 -25.9808 -35.0) (float-vector 334.019 -15.0 -35.0) (float-vector 330.0 0.0 -35.0) (float-vector 334.019 15.0 -35.0) (float-vector 345.0 25.9808 -35.0) (float-vector 360.0 30.0 -35.0) (float-vector 375.0 25.9808 -35.0) (float-vector 385.981 15.0 -35.0)))
+         (instance face :init :vertices (list (float-vector 370.0 0.0 0.0) (float-vector 370.0 0.0 -29.0) (float-vector 368.66 5.0 -29.0) (float-vector 368.66 5.0 0.0)))
          (instance face :init :vertices (list (float-vector 365.0 8.66025 -29.0) (float-vector 365.0 8.66025 0.0) (float-vector 368.66 5.0 0.0) (float-vector 368.66 5.0 -29.0)))
          (instance face :init :vertices (list (float-vector 360.0 10.0 -29.0) (float-vector 360.0 10.0 0.0) (float-vector 365.0 8.66025 0.0) (float-vector 365.0 8.66025 -29.0)))
          (instance face :init :vertices (list (float-vector 355.0 8.66025 -29.0) (float-vector 355.0 8.66025 0.0) (float-vector 360.0 10.0 0.0) (float-vector 360.0 10.0 -29.0)))
          (instance face :init :vertices (list (float-vector 351.34 5.0 -29.0) (float-vector 351.34 5.0 0.0) (float-vector 355.0 8.66025 0.0) (float-vector 355.0 8.66025 -29.0)))
-         (instance face :init :vertices (list (float-vector 350.0 4.547474e-13 -29.0) (float-vector 350.0 4.547474e-13 0.0) (float-vector 351.34 5.0 0.0) (float-vector 351.34 5.0 -29.0)))
-         (instance face :init :vertices (list (float-vector 351.34 -5.0 -29.0) (float-vector 351.34 -5.0 0.0) (float-vector 350.0 4.547474e-13 0.0) (float-vector 350.0 4.547474e-13 -29.0)))
+         (instance face :init :vertices (list (float-vector 350.0 0.0 -29.0) (float-vector 350.0 0.0 0.0) (float-vector 351.34 5.0 0.0) (float-vector 351.34 5.0 -29.0)))
+         (instance face :init :vertices (list (float-vector 351.34 -5.0 -29.0) (float-vector 351.34 -5.0 0.0) (float-vector 350.0 0.0 0.0) (float-vector 350.0 0.0 -29.0)))
          (instance face :init :vertices (list (float-vector 355.0 -8.66025 -29.0) (float-vector 355.0 -8.66025 0.0) (float-vector 351.34 -5.0 0.0) (float-vector 351.34 -5.0 -29.0)))
          (instance face :init :vertices (list (float-vector 360.0 -10.0 -29.0) (float-vector 360.0 -10.0 0.0) (float-vector 355.0 -8.66025 0.0) (float-vector 355.0 -8.66025 -29.0)))
          (instance face :init :vertices (list (float-vector 365.0 -8.66025 -29.0) (float-vector 365.0 -8.66025 0.0) (float-vector 360.0 -10.0 0.0) (float-vector 360.0 -10.0 -29.0)))
          (instance face :init :vertices (list (float-vector 368.66 -5.0 -29.0) (float-vector 368.66 -5.0 0.0) (float-vector 365.0 -8.66025 0.0) (float-vector 365.0 -8.66025 -29.0)))
-         (instance face :init :vertices (list (float-vector 368.66 -5.0 0.0) (float-vector 370.0 4.547474e-13 0.0) (float-vector 368.66 5.0 0.0) (float-vector 365.0 8.66025 0.0) (float-vector 360.0 10.0 0.0) (float-vector 355.0 8.66025 0.0) (float-vector 351.34 5.0 0.0) (float-vector 350.0 4.547474e-13 0.0) (float-vector 351.34 -5.0 0.0) (float-vector 355.0 -8.66025 0.0) (float-vector 360.0 -10.0 0.0) (float-vector 365.0 -8.66025 0.0)))
-         (instance face :init :vertices (list (float-vector 370.0 4.547474e-13 0.0) (float-vector 368.66 -5.0 0.0) (float-vector 368.66 -5.0 -29.0) (float-vector 370.0 4.547474e-13 -29.0)))
+         (instance face :init :vertices (list (float-vector 368.66 -5.0 0.0) (float-vector 370.0 0.0 0.0) (float-vector 368.66 5.0 0.0) (float-vector 365.0 8.66025 0.0) (float-vector 360.0 10.0 0.0) (float-vector 355.0 8.66025 0.0) (float-vector 351.34 5.0 0.0) (float-vector 350.0 0.0 0.0) (float-vector 351.34 -5.0 0.0) (float-vector 355.0 -8.66025 0.0) (float-vector 360.0 -10.0 0.0) (float-vector 365.0 -8.66025 0.0)))
+         (instance face :init :vertices (list (float-vector 370.0 0.0 0.0) (float-vector 368.66 -5.0 0.0) (float-vector 368.66 -5.0 -29.0) (float-vector 370.0 0.0 -29.0)))
        ))
        (instance faceset :init :faces (list
          (instance face :init :vertices (list (float-vector 50.0 0.0 -29.0) (float-vector 50.0 0.0 -35.0) (float-vector 45.9808 15.0 -35.0) (float-vector 45.9808 15.0 -29.0)))
@@ -196,28 +196,6 @@
          (instance face :init :vertices (list (float-vector 72.5 1191.0 1193.0) (float-vector 72.5 1191.0 1336.0) (float-vector 72.5 1209.0 1336.0) (float-vector 72.5 1209.0 1193.0)))
          (instance face :init :vertices (list (float-vector 72.5 1191.0 1336.0) (float-vector 72.5 1191.0 1193.0) (float-vector 75.0 1191.0 1193.0) (float-vector 75.0 1191.0 1211.0) (float-vector 375.0 1191.0 1211.0) (float-vector 375.0 1191.0 1193.0) (float-vector 380.0 1191.0 1193.0) (float-vector 380.0 1191.0 1223.0) (float-vector 100.0 1191.0 1336.0)))
        ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 976.0) (float-vector 72.5 -9.0 833.0) (float-vector 380.0 -9.0 833.0) (float-vector 380.0 -9.0 863.0) (float-vector 100.0 -9.0 976.0)))
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 976.0) (float-vector 72.5 9.0 976.0) (float-vector 72.5 9.0 833.0) (float-vector 72.5 -9.0 833.0)))
-         (instance face :init :vertices (list (float-vector 72.5 9.0 976.0) (float-vector 100.0 9.0 976.0) (float-vector 380.0 9.0 863.0) (float-vector 380.0 9.0 833.0) (float-vector 375.0 9.0 833.0) (float-vector 375.0 9.0 851.0) (float-vector 75.0 9.0 851.0) (float-vector 75.0 9.0 833.0) (float-vector 72.5 9.0 833.0)))
-         (instance face :init :vertices (list (float-vector 75.0 9.0 833.0) (float-vector 75.0 1.5 833.0) (float-vector 375.0 1.5 833.0) (float-vector 375.0 9.0 833.0) (float-vector 380.0 9.0 833.0) (float-vector 380.0 -9.0 833.0) (float-vector 72.5 -9.0 833.0) (float-vector 72.5 9.0 833.0)))
-         (instance face :init :vertices (list (float-vector 380.0 9.0 863.0) (float-vector 380.0 -9.0 863.0) (float-vector 380.0 -9.0 833.0) (float-vector 380.0 9.0 833.0)))
-         (instance face :init :vertices (list (float-vector 100.0 9.0 976.0) (float-vector 100.0 -9.0 976.0) (float-vector 380.0 -9.0 863.0) (float-vector 380.0 9.0 863.0)))
-         (instance face :init :vertices (list (float-vector 100.0 -9.0 976.0) (float-vector 100.0 9.0 976.0) (float-vector 72.5 9.0 976.0) (float-vector 72.5 -9.0 976.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1198.5 831.0) (float-vector 375.0 1198.5 831.0) (float-vector 375.0 1.5 831.0) (float-vector 75.0 1.5 831.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1198.5 831.0) (float-vector 75.0 1198.5 833.0) (float-vector 375.0 1198.5 833.0) (float-vector 375.0 1198.5 831.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1191.0 851.0) (float-vector 75.0 9.0 851.0) (float-vector 375.0 9.0 851.0) (float-vector 375.0 1191.0 851.0)))
-         (instance face :init :vertices (list (float-vector 375.0 1.5 833.0) (float-vector 375.0 1.5 831.0) (float-vector 375.0 1198.5 831.0) (float-vector 375.0 1198.5 833.0) (float-vector 375.0 1191.0 833.0) (float-vector 375.0 1191.0 851.0) (float-vector 375.0 9.0 851.0) (float-vector 375.0 9.0 833.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 833.0) (float-vector 75.0 1.5 831.0) (float-vector 375.0 1.5 831.0) (float-vector 375.0 1.5 833.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 831.0) (float-vector 75.0 1.5 833.0) (float-vector 75.0 9.0 833.0) (float-vector 75.0 9.0 851.0) (float-vector 75.0 1191.0 851.0) (float-vector 75.0 1191.0 833.0) (float-vector 75.0 1198.5 833.0) (float-vector 75.0 1198.5 831.0)))
-         (instance face :init :vertices (list (float-vector 72.5 1209.0 976.0) (float-vector 72.5 1191.0 976.0) (float-vector 100.0 1191.0 976.0) (float-vector 100.0 1209.0 976.0)))
-         (instance face :init :vertices (list (float-vector 100.0 1191.0 976.0) (float-vector 380.0 1191.0 863.0) (float-vector 380.0 1209.0 863.0) (float-vector 100.0 1209.0 976.0)))
-         (instance face :init :vertices (list (float-vector 380.0 1191.0 863.0) (float-vector 380.0 1191.0 833.0) (float-vector 380.0 1209.0 833.0) (float-vector 380.0 1209.0 863.0)))
-         (instance face :init :vertices (list (float-vector 380.0 1191.0 833.0) (float-vector 375.0 1191.0 833.0) (float-vector 375.0 1198.5 833.0) (float-vector 75.0 1198.5 833.0) (float-vector 75.0 1191.0 833.0) (float-vector 72.5 1191.0 833.0) (float-vector 72.5 1209.0 833.0) (float-vector 380.0 1209.0 833.0)))
-         (instance face :init :vertices (list (float-vector 72.5 1209.0 833.0) (float-vector 72.5 1209.0 976.0) (float-vector 100.0 1209.0 976.0) (float-vector 380.0 1209.0 863.0) (float-vector 380.0 1209.0 833.0)))
-         (instance face :init :vertices (list (float-vector 72.5 1191.0 833.0) (float-vector 72.5 1191.0 976.0) (float-vector 72.5 1209.0 976.0) (float-vector 72.5 1209.0 833.0)))
-         (instance face :init :vertices (list (float-vector 72.5 1191.0 976.0) (float-vector 72.5 1191.0 833.0) (float-vector 75.0 1191.0 833.0) (float-vector 75.0 1191.0 851.0) (float-vector 375.0 1191.0 851.0) (float-vector 375.0 1191.0 833.0) (float-vector 380.0 1191.0 833.0) (float-vector 380.0 1191.0 863.0) (float-vector 100.0 1191.0 976.0)))
-       ))
        ))
      (dolist (b (cdr bc)) (send (car bc) :assoc b))
      (send (elt bc 0) :set-color :lightgoldenrodyellow)
@@ -229,8 +207,7 @@
      (send (elt bc 6) :set-color :gray76)
      (send (elt bc 7) :set-color :gray76)
      (send (elt bc 8) :set-color :gray76)
-     (send (elt bc 9) :set-color :gray76)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-bariera-1200-middle3-0-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-bariera-1200-middle-5-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
 
      ;; definition of assoc
      (send self :assoc blink0)
@@ -259,5 +236,5 @@
   (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
-(defun room73b2-bariera-1200-middle3-0 (&rest args) (instance* room73b2-bariera-1200-middle3-0-object :init args))
-;; (format *error-output* "(instance room73b2-bariera-1200-middle3-0-object :init) for generating model~%")
+(defun room73b2-bariera-1200-middle-5 (&rest args) (instance* room73b2-bariera-1200-middle-5-object :init args))
+;; (format *error-output* "(instance room73b2-bariera-1200-middle-5-object :init) for generating model~%")
diff --git a/models/room73b2-bariera-1200-right-object.l b/models/room73b2-bariera-1200-right-top-object.l
similarity index 91%
rename from models/room73b2-bariera-1200-right-object.l
rename to models/room73b2-bariera-1200-right-top-object.l
index 66125fe9..c2ef6b52 100644
--- a/models/room73b2-bariera-1200-right-object.l
+++ b/models/room73b2-bariera-1200-right-top-object.l
@@ -3,14 +3,14 @@
 ;; this file is automatically generated from euslisp+euslib version 
 ;;
 ;;
-(defclass room73b2-bariera-1200-right-object
+(defclass room73b2-bariera-1200-right-top-object
   :super cascaded-link
   :slots (sensors
          handle0
          ))
-(defmethod room73b2-bariera-1200-right-object
+(defmethod room73b2-bariera-1200-right-top-object
   (:init
-   (&rest args &key (name "room73b2-bariera-1200-right") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
+   (&rest args &key (name "room73b2-bariera-1200-right-top") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
    (let (c bc
          blink0
                  )
@@ -18,7 +18,7 @@
 
      ;; definition of link
 
-     ;; definition of :room73b2-bariera-1200-right-bodyset2
+     ;; definition of :room73b2-bariera-1200-right-top-bodyset2
      (setq bc (list
        (instance faceset :init :faces (list
          (instance face :init :vertices (list (float-vector 60.0 1185.0 2500.0) (float-vector -4.547474e-13 1185.0 2500.0) (float-vector 0.0 15.0 2500.0) (float-vector 60.0 15.0 2500.0)))
@@ -284,28 +284,6 @@
          (instance face :init :vertices (list (float-vector 72.5 1191.0 1193.0) (float-vector 72.5 1191.0 1336.0) (float-vector 72.5 1209.0 1336.0) (float-vector 72.5 1209.0 1193.0)))
          (instance face :init :vertices (list (float-vector 72.5 1191.0 1336.0) (float-vector 72.5 1191.0 1193.0) (float-vector 75.0 1191.0 1193.0) (float-vector 75.0 1191.0 1211.0) (float-vector 375.0 1191.0 1211.0) (float-vector 375.0 1191.0 1193.0) (float-vector 380.0 1191.0 1193.0) (float-vector 380.0 1191.0 1223.0) (float-vector 100.0 1191.0 1336.0)))
        ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 1048.0) (float-vector 72.5 -9.0 905.0) (float-vector 380.0 -9.0 905.0) (float-vector 380.0 -9.0 935.0) (float-vector 100.0 -9.0 1048.0)))
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 1048.0) (float-vector 72.5 9.0 1048.0) (float-vector 72.5 9.0 905.0) (float-vector 72.5 -9.0 905.0)))
-         (instance face :init :vertices (list (float-vector 72.5 9.0 1048.0) (float-vector 100.0 9.0 1048.0) (float-vector 380.0 9.0 935.0) (float-vector 380.0 9.0 905.0) (float-vector 375.0 9.0 905.0) (float-vector 375.0 9.0 923.0) (float-vector 75.0 9.0 923.0) (float-vector 75.0 9.0 905.0) (float-vector 72.5 9.0 905.0)))
-         (instance face :init :vertices (list (float-vector 75.0 9.0 905.0) (float-vector 75.0 1.5 905.0) (float-vector 375.0 1.5 905.0) (float-vector 375.0 9.0 905.0) (float-vector 380.0 9.0 905.0) (float-vector 380.0 -9.0 905.0) (float-vector 72.5 -9.0 905.0) (float-vector 72.5 9.0 905.0)))
-         (instance face :init :vertices (list (float-vector 380.0 9.0 935.0) (float-vector 380.0 -9.0 935.0) (float-vector 380.0 -9.0 905.0) (float-vector 380.0 9.0 905.0)))
-         (instance face :init :vertices (list (float-vector 100.0 9.0 1048.0) (float-vector 100.0 -9.0 1048.0) (float-vector 380.0 -9.0 935.0) (float-vector 380.0 9.0 935.0)))
-         (instance face :init :vertices (list (float-vector 100.0 -9.0 1048.0) (float-vector 100.0 9.0 1048.0) (float-vector 72.5 9.0 1048.0) (float-vector 72.5 -9.0 1048.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1198.5 903.0) (float-vector 375.0 1198.5 903.0) (float-vector 375.0 1.5 903.0) (float-vector 75.0 1.5 903.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1198.5 903.0) (float-vector 75.0 1198.5 905.0) (float-vector 375.0 1198.5 905.0) (float-vector 375.0 1198.5 903.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1191.0 923.0) (float-vector 75.0 9.0 923.0) (float-vector 375.0 9.0 923.0) (float-vector 375.0 1191.0 923.0)))
-         (instance face :init :vertices (list (float-vector 375.0 1.5 905.0) (float-vector 375.0 1.5 903.0) (float-vector 375.0 1198.5 903.0) (float-vector 375.0 1198.5 905.0) (float-vector 375.0 1191.0 905.0) (float-vector 375.0 1191.0 923.0) (float-vector 375.0 9.0 923.0) (float-vector 375.0 9.0 905.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 905.0) (float-vector 75.0 1.5 903.0) (float-vector 375.0 1.5 903.0) (float-vector 375.0 1.5 905.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 903.0) (float-vector 75.0 1.5 905.0) (float-vector 75.0 9.0 905.0) (float-vector 75.0 9.0 923.0) (float-vector 75.0 1191.0 923.0) (float-vector 75.0 1191.0 905.0) (float-vector 75.0 1198.5 905.0) (float-vector 75.0 1198.5 903.0)))
-         (instance face :init :vertices (list (float-vector 72.5 1209.0 1048.0) (float-vector 72.5 1191.0 1048.0) (float-vector 100.0 1191.0 1048.0) (float-vector 100.0 1209.0 1048.0)))
-         (instance face :init :vertices (list (float-vector 100.0 1191.0 1048.0) (float-vector 380.0 1191.0 935.0) (float-vector 380.0 1209.0 935.0) (float-vector 100.0 1209.0 1048.0)))
-         (instance face :init :vertices (list (float-vector 380.0 1191.0 935.0) (float-vector 380.0 1191.0 905.0) (float-vector 380.0 1209.0 905.0) (float-vector 380.0 1209.0 935.0)))
-         (instance face :init :vertices (list (float-vector 380.0 1191.0 905.0) (float-vector 375.0 1191.0 905.0) (float-vector 375.0 1198.5 905.0) (float-vector 75.0 1198.5 905.0) (float-vector 75.0 1191.0 905.0) (float-vector 72.5 1191.0 905.0) (float-vector 72.5 1209.0 905.0) (float-vector 380.0 1209.0 905.0)))
-         (instance face :init :vertices (list (float-vector 72.5 1209.0 905.0) (float-vector 72.5 1209.0 1048.0) (float-vector 100.0 1209.0 1048.0) (float-vector 380.0 1209.0 935.0) (float-vector 380.0 1209.0 905.0)))
-         (instance face :init :vertices (list (float-vector 72.5 1191.0 905.0) (float-vector 72.5 1191.0 1048.0) (float-vector 72.5 1209.0 1048.0) (float-vector 72.5 1209.0 905.0)))
-         (instance face :init :vertices (list (float-vector 72.5 1191.0 1048.0) (float-vector 72.5 1191.0 905.0) (float-vector 75.0 1191.0 905.0) (float-vector 75.0 1191.0 923.0) (float-vector 375.0 1191.0 923.0) (float-vector 375.0 1191.0 905.0) (float-vector 380.0 1191.0 905.0) (float-vector 380.0 1191.0 935.0) (float-vector 100.0 1191.0 1048.0)))
-       ))
        ))
      (dolist (b (cdr bc)) (send (car bc) :assoc b))
      (send (elt bc 0) :set-color :lightgoldenrodyellow)
@@ -322,8 +300,7 @@
      (send (elt bc 11) :set-color :gray76)
      (send (elt bc 12) :set-color :gray76)
      (send (elt bc 13) :set-color :gray76)
-     (send (elt bc 14) :set-color :gray76)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-bariera-1200-right-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-bariera-1200-right-top-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
 
      ;; definition of assoc
      (send self :assoc blink0)
@@ -352,5 +329,5 @@
   (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
-(defun room73b2-bariera-1200-right (&rest args) (instance* room73b2-bariera-1200-right-object :init args))
-;; (format *error-output* "(instance room73b2-bariera-1200-right-object :init) for generating model~%")
+(defun room73b2-bariera-1200-right-top (&rest args) (instance* room73b2-bariera-1200-right-top-object :init args))
+;; (format *error-output* "(instance room73b2-bariera-1200-right-top-object :init) for generating model~%")
diff --git a/models/room73b2-bariera-900-left-object.l b/models/room73b2-bariera-900-left-top-object.l
similarity index 63%
rename from models/room73b2-bariera-900-left-object.l
rename to models/room73b2-bariera-900-left-top-object.l
index 43a1ffc9..0b1716fc 100644
--- a/models/room73b2-bariera-900-left-object.l
+++ b/models/room73b2-bariera-900-left-top-object.l
@@ -3,14 +3,14 @@
 ;; this file is automatically generated from euslisp+euslib version 
 ;;
 ;;
-(defclass room73b2-bariera-900-left-object
+(defclass room73b2-bariera-900-left-top-object
   :super cascaded-link
   :slots (sensors
          handle0
          ))
-(defmethod room73b2-bariera-900-left-object
+(defmethod room73b2-bariera-900-left-top-object
   (:init
-   (&rest args &key (name "room73b2-bariera-900-left") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
+   (&rest args &key (name "room73b2-bariera-900-left-top") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
    (let (c bc
          blink0
                  )
@@ -18,7 +18,7 @@
 
      ;; definition of link
 
-     ;; definition of :room73b2-bariera-900-left-bodyset2
+     ;; definition of :room73b2-bariera-900-left-top-bodyset2
      (setq bc (list
        (instance faceset :init :faces (list
          (instance face :init :vertices (list (float-vector 60.0 885.0 2500.0) (float-vector 0.0 885.0 2500.0) (float-vector 0.0 15.0 2500.0) (float-vector 60.0 15.0 2500.0)))
@@ -182,94 +182,6 @@
          (instance face :init :vertices (list (float-vector 72.5 891.0 1505.0) (float-vector 72.5 891.0 1648.0) (float-vector 72.5 909.0 1648.0) (float-vector 72.5 909.0 1505.0)))
          (instance face :init :vertices (list (float-vector 72.5 891.0 1648.0) (float-vector 72.5 891.0 1505.0) (float-vector 75.0 891.0 1505.0) (float-vector 75.0 891.0 1523.0) (float-vector 375.0 891.0 1523.0) (float-vector 375.0 891.0 1505.0) (float-vector 380.0 891.0 1505.0) (float-vector 380.0 891.0 1535.0) (float-vector 100.0 891.0 1648.0)))
        ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 1288.0) (float-vector 72.5 -9.0 1145.0) (float-vector 380.0 -9.0 1145.0) (float-vector 380.0 -9.0 1175.0) (float-vector 100.0 -9.0 1288.0)))
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 1288.0) (float-vector 72.5 9.0 1288.0) (float-vector 72.5 9.0 1145.0) (float-vector 72.5 -9.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 72.5 9.0 1288.0) (float-vector 100.0 9.0 1288.0) (float-vector 380.0 9.0 1175.0) (float-vector 380.0 9.0 1145.0) (float-vector 375.0 9.0 1145.0) (float-vector 375.0 9.0 1163.0) (float-vector 75.0 9.0 1163.0) (float-vector 75.0 9.0 1145.0) (float-vector 72.5 9.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 75.0 9.0 1145.0) (float-vector 75.0 1.5 1145.0) (float-vector 375.0 1.5 1145.0) (float-vector 375.0 9.0 1145.0) (float-vector 380.0 9.0 1145.0) (float-vector 380.0 -9.0 1145.0) (float-vector 72.5 -9.0 1145.0) (float-vector 72.5 9.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 380.0 9.0 1175.0) (float-vector 380.0 -9.0 1175.0) (float-vector 380.0 -9.0 1145.0) (float-vector 380.0 9.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 100.0 9.0 1288.0) (float-vector 100.0 -9.0 1288.0) (float-vector 380.0 -9.0 1175.0) (float-vector 380.0 9.0 1175.0)))
-         (instance face :init :vertices (list (float-vector 100.0 -9.0 1288.0) (float-vector 100.0 9.0 1288.0) (float-vector 72.5 9.0 1288.0) (float-vector 72.5 -9.0 1288.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 1143.0) (float-vector 375.0 898.5 1143.0) (float-vector 375.0 1.5 1143.0) (float-vector 75.0 1.5 1143.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 1143.0) (float-vector 75.0 898.5 1145.0) (float-vector 375.0 898.5 1145.0) (float-vector 375.0 898.5 1143.0)))
-         (instance face :init :vertices (list (float-vector 75.0 891.0 1163.0) (float-vector 75.0 9.0 1163.0) (float-vector 375.0 9.0 1163.0) (float-vector 375.0 891.0 1163.0)))
-         (instance face :init :vertices (list (float-vector 375.0 1.5 1145.0) (float-vector 375.0 1.5 1143.0) (float-vector 375.0 898.5 1143.0) (float-vector 375.0 898.5 1145.0) (float-vector 375.0 891.0 1145.0) (float-vector 375.0 891.0 1163.0) (float-vector 375.0 9.0 1163.0) (float-vector 375.0 9.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 1145.0) (float-vector 75.0 1.5 1143.0) (float-vector 375.0 1.5 1143.0) (float-vector 375.0 1.5 1145.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 1143.0) (float-vector 75.0 1.5 1145.0) (float-vector 75.0 9.0 1145.0) (float-vector 75.0 9.0 1163.0) (float-vector 75.0 891.0 1163.0) (float-vector 75.0 891.0 1145.0) (float-vector 75.0 898.5 1145.0) (float-vector 75.0 898.5 1143.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 1288.0) (float-vector 72.5 891.0 1288.0) (float-vector 100.0 891.0 1288.0) (float-vector 100.0 909.0 1288.0)))
-         (instance face :init :vertices (list (float-vector 100.0 891.0 1288.0) (float-vector 380.0 891.0 1175.0) (float-vector 380.0 909.0 1175.0) (float-vector 100.0 909.0 1288.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 1175.0) (float-vector 380.0 891.0 1145.0) (float-vector 380.0 909.0 1145.0) (float-vector 380.0 909.0 1175.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 1145.0) (float-vector 375.0 891.0 1145.0) (float-vector 375.0 898.5 1145.0) (float-vector 75.0 898.5 1145.0) (float-vector 75.0 891.0 1145.0) (float-vector 72.5 891.0 1145.0) (float-vector 72.5 909.0 1145.0) (float-vector 380.0 909.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 1145.0) (float-vector 72.5 909.0 1288.0) (float-vector 100.0 909.0 1288.0) (float-vector 380.0 909.0 1175.0) (float-vector 380.0 909.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 1145.0) (float-vector 72.5 891.0 1288.0) (float-vector 72.5 909.0 1288.0) (float-vector 72.5 909.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 1288.0) (float-vector 72.5 891.0 1145.0) (float-vector 75.0 891.0 1145.0) (float-vector 75.0 891.0 1163.0) (float-vector 375.0 891.0 1163.0) (float-vector 375.0 891.0 1145.0) (float-vector 380.0 891.0 1145.0) (float-vector 380.0 891.0 1175.0) (float-vector 100.0 891.0 1288.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 928.0) (float-vector 72.5 -9.0 785.0) (float-vector 380.0 -9.0 785.0) (float-vector 380.0 -9.0 815.0) (float-vector 100.0 -9.0 928.0)))
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 928.0) (float-vector 72.5 9.0 928.0) (float-vector 72.5 9.0 785.0) (float-vector 72.5 -9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 72.5 9.0 928.0) (float-vector 100.0 9.0 928.0) (float-vector 380.0 9.0 815.0) (float-vector 380.0 9.0 785.0) (float-vector 375.0 9.0 785.0) (float-vector 375.0 9.0 803.0) (float-vector 75.0 9.0 803.0) (float-vector 75.0 9.0 785.0) (float-vector 72.5 9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 75.0 9.0 785.0) (float-vector 75.0 1.5 785.0) (float-vector 375.0 1.5 785.0) (float-vector 375.0 9.0 785.0) (float-vector 380.0 9.0 785.0) (float-vector 380.0 -9.0 785.0) (float-vector 72.5 -9.0 785.0) (float-vector 72.5 9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 380.0 9.0 815.0) (float-vector 380.0 -9.0 815.0) (float-vector 380.0 -9.0 785.0) (float-vector 380.0 9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 100.0 9.0 928.0) (float-vector 100.0 -9.0 928.0) (float-vector 380.0 -9.0 815.0) (float-vector 380.0 9.0 815.0)))
-         (instance face :init :vertices (list (float-vector 100.0 -9.0 928.0) (float-vector 100.0 9.0 928.0) (float-vector 72.5 9.0 928.0) (float-vector 72.5 -9.0 928.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 783.0) (float-vector 375.0 898.5 783.0) (float-vector 375.0 1.5 783.0) (float-vector 75.0 1.5 783.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 783.0) (float-vector 75.0 898.5 785.0) (float-vector 375.0 898.5 785.0) (float-vector 375.0 898.5 783.0)))
-         (instance face :init :vertices (list (float-vector 75.0 891.0 803.0) (float-vector 75.0 9.0 803.0) (float-vector 375.0 9.0 803.0) (float-vector 375.0 891.0 803.0)))
-         (instance face :init :vertices (list (float-vector 375.0 1.5 785.0) (float-vector 375.0 1.5 783.0) (float-vector 375.0 898.5 783.0) (float-vector 375.0 898.5 785.0) (float-vector 375.0 891.0 785.0) (float-vector 375.0 891.0 803.0) (float-vector 375.0 9.0 803.0) (float-vector 375.0 9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 785.0) (float-vector 75.0 1.5 783.0) (float-vector 375.0 1.5 783.0) (float-vector 375.0 1.5 785.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 783.0) (float-vector 75.0 1.5 785.0) (float-vector 75.0 9.0 785.0) (float-vector 75.0 9.0 803.0) (float-vector 75.0 891.0 803.0) (float-vector 75.0 891.0 785.0) (float-vector 75.0 898.5 785.0) (float-vector 75.0 898.5 783.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 928.0) (float-vector 72.5 891.0 928.0) (float-vector 100.0 891.0 928.0) (float-vector 100.0 909.0 928.0)))
-         (instance face :init :vertices (list (float-vector 100.0 891.0 928.0) (float-vector 380.0 891.0 815.0) (float-vector 380.0 909.0 815.0) (float-vector 100.0 909.0 928.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 815.0) (float-vector 380.0 891.0 785.0) (float-vector 380.0 909.0 785.0) (float-vector 380.0 909.0 815.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 785.0) (float-vector 375.0 891.0 785.0) (float-vector 375.0 898.5 785.0) (float-vector 75.0 898.5 785.0) (float-vector 75.0 891.0 785.0) (float-vector 72.5 891.0 785.0) (float-vector 72.5 909.0 785.0) (float-vector 380.0 909.0 785.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 785.0) (float-vector 72.5 909.0 928.0) (float-vector 100.0 909.0 928.0) (float-vector 380.0 909.0 815.0) (float-vector 380.0 909.0 785.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 785.0) (float-vector 72.5 891.0 928.0) (float-vector 72.5 909.0 928.0) (float-vector 72.5 909.0 785.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 928.0) (float-vector 72.5 891.0 785.0) (float-vector 75.0 891.0 785.0) (float-vector 75.0 891.0 803.0) (float-vector 375.0 891.0 803.0) (float-vector 375.0 891.0 785.0) (float-vector 380.0 891.0 785.0) (float-vector 380.0 891.0 815.0) (float-vector 100.0 891.0 928.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 568.0) (float-vector 72.5 -9.0 425.0) (float-vector 380.0 -9.0 425.0) (float-vector 380.0 -9.0 455.0) (float-vector 100.0 -9.0 568.0)))
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 568.0) (float-vector 72.5 9.0 568.0) (float-vector 72.5 9.0 425.0) (float-vector 72.5 -9.0 425.0)))
-         (instance face :init :vertices (list (float-vector 72.5 9.0 568.0) (float-vector 100.0 9.0 568.0) (float-vector 380.0 9.0 455.0) (float-vector 380.0 9.0 425.0) (float-vector 375.0 9.0 425.0) (float-vector 375.0 9.0 443.0) (float-vector 75.0 9.0 443.0) (float-vector 75.0 9.0 425.0) (float-vector 72.5 9.0 425.0)))
-         (instance face :init :vertices (list (float-vector 75.0 9.0 425.0) (float-vector 75.0 1.5 425.0) (float-vector 375.0 1.5 425.0) (float-vector 375.0 9.0 425.0) (float-vector 380.0 9.0 425.0) (float-vector 380.0 -9.0 425.0) (float-vector 72.5 -9.0 425.0) (float-vector 72.5 9.0 425.0)))
-         (instance face :init :vertices (list (float-vector 380.0 9.0 455.0) (float-vector 380.0 -9.0 455.0) (float-vector 380.0 -9.0 425.0) (float-vector 380.0 9.0 425.0)))
-         (instance face :init :vertices (list (float-vector 100.0 9.0 568.0) (float-vector 100.0 -9.0 568.0) (float-vector 380.0 -9.0 455.0) (float-vector 380.0 9.0 455.0)))
-         (instance face :init :vertices (list (float-vector 100.0 -9.0 568.0) (float-vector 100.0 9.0 568.0) (float-vector 72.5 9.0 568.0) (float-vector 72.5 -9.0 568.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 423.0) (float-vector 375.0 898.5 423.0) (float-vector 375.0 1.5 423.0) (float-vector 75.0 1.5 423.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 423.0) (float-vector 75.0 898.5 425.0) (float-vector 375.0 898.5 425.0) (float-vector 375.0 898.5 423.0)))
-         (instance face :init :vertices (list (float-vector 75.0 891.0 443.0) (float-vector 75.0 9.0 443.0) (float-vector 375.0 9.0 443.0) (float-vector 375.0 891.0 443.0)))
-         (instance face :init :vertices (list (float-vector 375.0 1.5 425.0) (float-vector 375.0 1.5 423.0) (float-vector 375.0 898.5 423.0) (float-vector 375.0 898.5 425.0) (float-vector 375.0 891.0 425.0) (float-vector 375.0 891.0 443.0) (float-vector 375.0 9.0 443.0) (float-vector 375.0 9.0 425.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 425.0) (float-vector 75.0 1.5 423.0) (float-vector 375.0 1.5 423.0) (float-vector 375.0 1.5 425.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 423.0) (float-vector 75.0 1.5 425.0) (float-vector 75.0 9.0 425.0) (float-vector 75.0 9.0 443.0) (float-vector 75.0 891.0 443.0) (float-vector 75.0 891.0 425.0) (float-vector 75.0 898.5 425.0) (float-vector 75.0 898.5 423.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 568.0) (float-vector 72.5 891.0 568.0) (float-vector 100.0 891.0 568.0) (float-vector 100.0 909.0 568.0)))
-         (instance face :init :vertices (list (float-vector 100.0 891.0 568.0) (float-vector 380.0 891.0 455.0) (float-vector 380.0 909.0 455.0) (float-vector 100.0 909.0 568.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 455.0) (float-vector 380.0 891.0 425.0) (float-vector 380.0 909.0 425.0) (float-vector 380.0 909.0 455.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 425.0) (float-vector 375.0 891.0 425.0) (float-vector 375.0 898.5 425.0) (float-vector 75.0 898.5 425.0) (float-vector 75.0 891.0 425.0) (float-vector 72.5 891.0 425.0) (float-vector 72.5 909.0 425.0) (float-vector 380.0 909.0 425.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 425.0) (float-vector 72.5 909.0 568.0) (float-vector 100.0 909.0 568.0) (float-vector 380.0 909.0 455.0) (float-vector 380.0 909.0 425.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 425.0) (float-vector 72.5 891.0 568.0) (float-vector 72.5 909.0 568.0) (float-vector 72.5 909.0 425.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 568.0) (float-vector 72.5 891.0 425.0) (float-vector 75.0 891.0 425.0) (float-vector 75.0 891.0 443.0) (float-vector 375.0 891.0 443.0) (float-vector 375.0 891.0 425.0) (float-vector 380.0 891.0 425.0) (float-vector 380.0 891.0 455.0) (float-vector 100.0 891.0 568.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 208.0) (float-vector 72.5 -9.0 65.0) (float-vector 380.0 -9.0 65.0) (float-vector 380.0 -9.0 95.0) (float-vector 100.0 -9.0 208.0)))
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 208.0) (float-vector 72.5 9.0 208.0) (float-vector 72.5 9.0 65.0) (float-vector 72.5 -9.0 65.0)))
-         (instance face :init :vertices (list (float-vector 72.5 9.0 208.0) (float-vector 100.0 9.0 208.0) (float-vector 380.0 9.0 95.0) (float-vector 380.0 9.0 65.0) (float-vector 375.0 9.0 65.0) (float-vector 375.0 9.0 83.0) (float-vector 75.0 9.0 83.0) (float-vector 75.0 9.0 65.0) (float-vector 72.5 9.0 65.0)))
-         (instance face :init :vertices (list (float-vector 75.0 9.0 65.0) (float-vector 75.0 1.5 65.0) (float-vector 375.0 1.5 65.0) (float-vector 375.0 9.0 65.0) (float-vector 380.0 9.0 65.0) (float-vector 380.0 -9.0 65.0) (float-vector 72.5 -9.0 65.0) (float-vector 72.5 9.0 65.0)))
-         (instance face :init :vertices (list (float-vector 380.0 9.0 95.0) (float-vector 380.0 -9.0 95.0) (float-vector 380.0 -9.0 65.0) (float-vector 380.0 9.0 65.0)))
-         (instance face :init :vertices (list (float-vector 100.0 9.0 208.0) (float-vector 100.0 -9.0 208.0) (float-vector 380.0 -9.0 95.0) (float-vector 380.0 9.0 95.0)))
-         (instance face :init :vertices (list (float-vector 100.0 -9.0 208.0) (float-vector 100.0 9.0 208.0) (float-vector 72.5 9.0 208.0) (float-vector 72.5 -9.0 208.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 63.0) (float-vector 375.0 898.5 63.0) (float-vector 375.0 1.5 63.0) (float-vector 75.0 1.5 63.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 63.0) (float-vector 75.0 898.5 65.0) (float-vector 375.0 898.5 65.0) (float-vector 375.0 898.5 63.0)))
-         (instance face :init :vertices (list (float-vector 75.0 891.0 83.0) (float-vector 75.0 9.0 83.0) (float-vector 375.0 9.0 83.0) (float-vector 375.0 891.0 83.0)))
-         (instance face :init :vertices (list (float-vector 375.0 1.5 65.0) (float-vector 375.0 1.5 63.0) (float-vector 375.0 898.5 63.0) (float-vector 375.0 898.5 65.0) (float-vector 375.0 891.0 65.0) (float-vector 375.0 891.0 83.0) (float-vector 375.0 9.0 83.0) (float-vector 375.0 9.0 65.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 65.0) (float-vector 75.0 1.5 63.0) (float-vector 375.0 1.5 63.0) (float-vector 375.0 1.5 65.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 63.0) (float-vector 75.0 1.5 65.0) (float-vector 75.0 9.0 65.0) (float-vector 75.0 9.0 83.0) (float-vector 75.0 891.0 83.0) (float-vector 75.0 891.0 65.0) (float-vector 75.0 898.5 65.0) (float-vector 75.0 898.5 63.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 208.0) (float-vector 72.5 891.0 208.0) (float-vector 100.0 891.0 208.0) (float-vector 100.0 909.0 208.0)))
-         (instance face :init :vertices (list (float-vector 100.0 891.0 208.0) (float-vector 380.0 891.0 95.0) (float-vector 380.0 909.0 95.0) (float-vector 100.0 909.0 208.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 95.0) (float-vector 380.0 891.0 65.0) (float-vector 380.0 909.0 65.0) (float-vector 380.0 909.0 95.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 65.0) (float-vector 375.0 891.0 65.0) (float-vector 375.0 898.5 65.0) (float-vector 75.0 898.5 65.0) (float-vector 75.0 891.0 65.0) (float-vector 72.5 891.0 65.0) (float-vector 72.5 909.0 65.0) (float-vector 380.0 909.0 65.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 65.0) (float-vector 72.5 909.0 208.0) (float-vector 100.0 909.0 208.0) (float-vector 380.0 909.0 95.0) (float-vector 380.0 909.0 65.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 65.0) (float-vector 72.5 891.0 208.0) (float-vector 72.5 909.0 208.0) (float-vector 72.5 909.0 65.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 208.0) (float-vector 72.5 891.0 65.0) (float-vector 75.0 891.0 65.0) (float-vector 75.0 891.0 83.0) (float-vector 375.0 891.0 83.0) (float-vector 375.0 891.0 65.0) (float-vector 380.0 891.0 65.0) (float-vector 380.0 891.0 95.0) (float-vector 100.0 891.0 208.0)))
-       ))
        ))
      (dolist (b (cdr bc)) (send (car bc) :assoc b))
      (send (elt bc 0) :set-color :lightgoldenrodyellow)
@@ -281,11 +193,7 @@
      (send (elt bc 6) :set-color :gray76)
      (send (elt bc 7) :set-color :gray76)
      (send (elt bc 8) :set-color :gray76)
-     (send (elt bc 9) :set-color :gray76)
-     (send (elt bc 10) :set-color :gray76)
-     (send (elt bc 11) :set-color :gray76)
-     (send (elt bc 12) :set-color :gray76)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-bariera-900-left-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-bariera-900-left-top-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
 
      ;; definition of assoc
      (send self :assoc blink0)
@@ -314,5 +222,5 @@
   (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
-(defun room73b2-bariera-900-left (&rest args) (instance* room73b2-bariera-900-left-object :init args))
-;; (format *error-output* "(instance room73b2-bariera-900-left-object :init) for generating model~%")
+(defun room73b2-bariera-900-left-top (&rest args) (instance* room73b2-bariera-900-left-top-object :init args))
+;; (format *error-output* "(instance room73b2-bariera-900-left-top-object :init) for generating model~%")
diff --git a/models/room73b2-bariera-900-middle-0-object.l b/models/room73b2-bariera-900-middle-top-0-object.l
similarity index 62%
rename from models/room73b2-bariera-900-middle-0-object.l
rename to models/room73b2-bariera-900-middle-top-0-object.l
index 5ac1c9d4..120283e7 100644
--- a/models/room73b2-bariera-900-middle-0-object.l
+++ b/models/room73b2-bariera-900-middle-top-0-object.l
@@ -3,14 +3,14 @@
 ;; this file is automatically generated from euslisp+euslib version 
 ;;
 ;;
-(defclass room73b2-bariera-900-middle-0-object
+(defclass room73b2-bariera-900-middle-top-0-object
   :super cascaded-link
   :slots (sensors
          handle0
          ))
-(defmethod room73b2-bariera-900-middle-0-object
+(defmethod room73b2-bariera-900-middle-top-0-object
   (:init
-   (&rest args &key (name "room73b2-bariera-900-middle-0") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
+   (&rest args &key (name "room73b2-bariera-900-middle-top-0") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
    (let (c bc
          blink0
                  )
@@ -18,7 +18,7 @@
 
      ;; definition of link
 
-     ;; definition of :room73b2-bariera-900-middle-0-bodyset2
+     ;; definition of :room73b2-bariera-900-middle-top-0-bodyset2
      (setq bc (list
        (instance faceset :init :faces (list
          (instance face :init :vertices (list (float-vector 60.0 885.0 2500.0) (float-vector 0.0 885.0 2500.0) (float-vector 0.0 15.0 2500.0) (float-vector 60.0 15.0 2500.0)))
@@ -174,94 +174,6 @@
          (instance face :init :vertices (list (float-vector 72.5 891.0 1505.0) (float-vector 72.5 891.0 1648.0) (float-vector 72.5 909.0 1648.0) (float-vector 72.5 909.0 1505.0)))
          (instance face :init :vertices (list (float-vector 72.5 891.0 1648.0) (float-vector 72.5 891.0 1505.0) (float-vector 75.0 891.0 1505.0) (float-vector 75.0 891.0 1523.0) (float-vector 375.0 891.0 1523.0) (float-vector 375.0 891.0 1505.0) (float-vector 380.0 891.0 1505.0) (float-vector 380.0 891.0 1535.0) (float-vector 100.0 891.0 1648.0)))
        ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 1288.0) (float-vector 72.5 -9.0 1145.0) (float-vector 380.0 -9.0 1145.0) (float-vector 380.0 -9.0 1175.0) (float-vector 100.0 -9.0 1288.0)))
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 1288.0) (float-vector 72.5 9.0 1288.0) (float-vector 72.5 9.0 1145.0) (float-vector 72.5 -9.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 72.5 9.0 1288.0) (float-vector 100.0 9.0 1288.0) (float-vector 380.0 9.0 1175.0) (float-vector 380.0 9.0 1145.0) (float-vector 375.0 9.0 1145.0) (float-vector 375.0 9.0 1163.0) (float-vector 75.0 9.0 1163.0) (float-vector 75.0 9.0 1145.0) (float-vector 72.5 9.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 75.0 9.0 1145.0) (float-vector 75.0 1.5 1145.0) (float-vector 375.0 1.5 1145.0) (float-vector 375.0 9.0 1145.0) (float-vector 380.0 9.0 1145.0) (float-vector 380.0 -9.0 1145.0) (float-vector 72.5 -9.0 1145.0) (float-vector 72.5 9.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 380.0 9.0 1175.0) (float-vector 380.0 -9.0 1175.0) (float-vector 380.0 -9.0 1145.0) (float-vector 380.0 9.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 100.0 9.0 1288.0) (float-vector 100.0 -9.0 1288.0) (float-vector 380.0 -9.0 1175.0) (float-vector 380.0 9.0 1175.0)))
-         (instance face :init :vertices (list (float-vector 100.0 -9.0 1288.0) (float-vector 100.0 9.0 1288.0) (float-vector 72.5 9.0 1288.0) (float-vector 72.5 -9.0 1288.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 1143.0) (float-vector 375.0 898.5 1143.0) (float-vector 375.0 1.5 1143.0) (float-vector 75.0 1.5 1143.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 1143.0) (float-vector 75.0 898.5 1145.0) (float-vector 375.0 898.5 1145.0) (float-vector 375.0 898.5 1143.0)))
-         (instance face :init :vertices (list (float-vector 75.0 891.0 1163.0) (float-vector 75.0 9.0 1163.0) (float-vector 375.0 9.0 1163.0) (float-vector 375.0 891.0 1163.0)))
-         (instance face :init :vertices (list (float-vector 375.0 1.5 1145.0) (float-vector 375.0 1.5 1143.0) (float-vector 375.0 898.5 1143.0) (float-vector 375.0 898.5 1145.0) (float-vector 375.0 891.0 1145.0) (float-vector 375.0 891.0 1163.0) (float-vector 375.0 9.0 1163.0) (float-vector 375.0 9.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 1145.0) (float-vector 75.0 1.5 1143.0) (float-vector 375.0 1.5 1143.0) (float-vector 375.0 1.5 1145.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 1143.0) (float-vector 75.0 1.5 1145.0) (float-vector 75.0 9.0 1145.0) (float-vector 75.0 9.0 1163.0) (float-vector 75.0 891.0 1163.0) (float-vector 75.0 891.0 1145.0) (float-vector 75.0 898.5 1145.0) (float-vector 75.0 898.5 1143.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 1288.0) (float-vector 72.5 891.0 1288.0) (float-vector 100.0 891.0 1288.0) (float-vector 100.0 909.0 1288.0)))
-         (instance face :init :vertices (list (float-vector 100.0 891.0 1288.0) (float-vector 380.0 891.0 1175.0) (float-vector 380.0 909.0 1175.0) (float-vector 100.0 909.0 1288.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 1175.0) (float-vector 380.0 891.0 1145.0) (float-vector 380.0 909.0 1145.0) (float-vector 380.0 909.0 1175.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 1145.0) (float-vector 375.0 891.0 1145.0) (float-vector 375.0 898.5 1145.0) (float-vector 75.0 898.5 1145.0) (float-vector 75.0 891.0 1145.0) (float-vector 72.5 891.0 1145.0) (float-vector 72.5 909.0 1145.0) (float-vector 380.0 909.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 1145.0) (float-vector 72.5 909.0 1288.0) (float-vector 100.0 909.0 1288.0) (float-vector 380.0 909.0 1175.0) (float-vector 380.0 909.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 1145.0) (float-vector 72.5 891.0 1288.0) (float-vector 72.5 909.0 1288.0) (float-vector 72.5 909.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 1288.0) (float-vector 72.5 891.0 1145.0) (float-vector 75.0 891.0 1145.0) (float-vector 75.0 891.0 1163.0) (float-vector 375.0 891.0 1163.0) (float-vector 375.0 891.0 1145.0) (float-vector 380.0 891.0 1145.0) (float-vector 380.0 891.0 1175.0) (float-vector 100.0 891.0 1288.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 928.0) (float-vector 72.5 -9.0 785.0) (float-vector 380.0 -9.0 785.0) (float-vector 380.0 -9.0 815.0) (float-vector 100.0 -9.0 928.0)))
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 928.0) (float-vector 72.5 9.0 928.0) (float-vector 72.5 9.0 785.0) (float-vector 72.5 -9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 72.5 9.0 928.0) (float-vector 100.0 9.0 928.0) (float-vector 380.0 9.0 815.0) (float-vector 380.0 9.0 785.0) (float-vector 375.0 9.0 785.0) (float-vector 375.0 9.0 803.0) (float-vector 75.0 9.0 803.0) (float-vector 75.0 9.0 785.0) (float-vector 72.5 9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 75.0 9.0 785.0) (float-vector 75.0 1.5 785.0) (float-vector 375.0 1.5 785.0) (float-vector 375.0 9.0 785.0) (float-vector 380.0 9.0 785.0) (float-vector 380.0 -9.0 785.0) (float-vector 72.5 -9.0 785.0) (float-vector 72.5 9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 380.0 9.0 815.0) (float-vector 380.0 -9.0 815.0) (float-vector 380.0 -9.0 785.0) (float-vector 380.0 9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 100.0 9.0 928.0) (float-vector 100.0 -9.0 928.0) (float-vector 380.0 -9.0 815.0) (float-vector 380.0 9.0 815.0)))
-         (instance face :init :vertices (list (float-vector 100.0 -9.0 928.0) (float-vector 100.0 9.0 928.0) (float-vector 72.5 9.0 928.0) (float-vector 72.5 -9.0 928.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 783.0) (float-vector 375.0 898.5 783.0) (float-vector 375.0 1.5 783.0) (float-vector 75.0 1.5 783.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 783.0) (float-vector 75.0 898.5 785.0) (float-vector 375.0 898.5 785.0) (float-vector 375.0 898.5 783.0)))
-         (instance face :init :vertices (list (float-vector 75.0 891.0 803.0) (float-vector 75.0 9.0 803.0) (float-vector 375.0 9.0 803.0) (float-vector 375.0 891.0 803.0)))
-         (instance face :init :vertices (list (float-vector 375.0 1.5 785.0) (float-vector 375.0 1.5 783.0) (float-vector 375.0 898.5 783.0) (float-vector 375.0 898.5 785.0) (float-vector 375.0 891.0 785.0) (float-vector 375.0 891.0 803.0) (float-vector 375.0 9.0 803.0) (float-vector 375.0 9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 785.0) (float-vector 75.0 1.5 783.0) (float-vector 375.0 1.5 783.0) (float-vector 375.0 1.5 785.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 783.0) (float-vector 75.0 1.5 785.0) (float-vector 75.0 9.0 785.0) (float-vector 75.0 9.0 803.0) (float-vector 75.0 891.0 803.0) (float-vector 75.0 891.0 785.0) (float-vector 75.0 898.5 785.0) (float-vector 75.0 898.5 783.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 928.0) (float-vector 72.5 891.0 928.0) (float-vector 100.0 891.0 928.0) (float-vector 100.0 909.0 928.0)))
-         (instance face :init :vertices (list (float-vector 100.0 891.0 928.0) (float-vector 380.0 891.0 815.0) (float-vector 380.0 909.0 815.0) (float-vector 100.0 909.0 928.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 815.0) (float-vector 380.0 891.0 785.0) (float-vector 380.0 909.0 785.0) (float-vector 380.0 909.0 815.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 785.0) (float-vector 375.0 891.0 785.0) (float-vector 375.0 898.5 785.0) (float-vector 75.0 898.5 785.0) (float-vector 75.0 891.0 785.0) (float-vector 72.5 891.0 785.0) (float-vector 72.5 909.0 785.0) (float-vector 380.0 909.0 785.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 785.0) (float-vector 72.5 909.0 928.0) (float-vector 100.0 909.0 928.0) (float-vector 380.0 909.0 815.0) (float-vector 380.0 909.0 785.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 785.0) (float-vector 72.5 891.0 928.0) (float-vector 72.5 909.0 928.0) (float-vector 72.5 909.0 785.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 928.0) (float-vector 72.5 891.0 785.0) (float-vector 75.0 891.0 785.0) (float-vector 75.0 891.0 803.0) (float-vector 375.0 891.0 803.0) (float-vector 375.0 891.0 785.0) (float-vector 380.0 891.0 785.0) (float-vector 380.0 891.0 815.0) (float-vector 100.0 891.0 928.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 568.0) (float-vector 72.5 -9.0 425.0) (float-vector 380.0 -9.0 425.0) (float-vector 380.0 -9.0 455.0) (float-vector 100.0 -9.0 568.0)))
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 568.0) (float-vector 72.5 9.0 568.0) (float-vector 72.5 9.0 425.0) (float-vector 72.5 -9.0 425.0)))
-         (instance face :init :vertices (list (float-vector 72.5 9.0 568.0) (float-vector 100.0 9.0 568.0) (float-vector 380.0 9.0 455.0) (float-vector 380.0 9.0 425.0) (float-vector 375.0 9.0 425.0) (float-vector 375.0 9.0 443.0) (float-vector 75.0 9.0 443.0) (float-vector 75.0 9.0 425.0) (float-vector 72.5 9.0 425.0)))
-         (instance face :init :vertices (list (float-vector 75.0 9.0 425.0) (float-vector 75.0 1.5 425.0) (float-vector 375.0 1.5 425.0) (float-vector 375.0 9.0 425.0) (float-vector 380.0 9.0 425.0) (float-vector 380.0 -9.0 425.0) (float-vector 72.5 -9.0 425.0) (float-vector 72.5 9.0 425.0)))
-         (instance face :init :vertices (list (float-vector 380.0 9.0 455.0) (float-vector 380.0 -9.0 455.0) (float-vector 380.0 -9.0 425.0) (float-vector 380.0 9.0 425.0)))
-         (instance face :init :vertices (list (float-vector 100.0 9.0 568.0) (float-vector 100.0 -9.0 568.0) (float-vector 380.0 -9.0 455.0) (float-vector 380.0 9.0 455.0)))
-         (instance face :init :vertices (list (float-vector 100.0 -9.0 568.0) (float-vector 100.0 9.0 568.0) (float-vector 72.5 9.0 568.0) (float-vector 72.5 -9.0 568.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 423.0) (float-vector 375.0 898.5 423.0) (float-vector 375.0 1.5 423.0) (float-vector 75.0 1.5 423.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 423.0) (float-vector 75.0 898.5 425.0) (float-vector 375.0 898.5 425.0) (float-vector 375.0 898.5 423.0)))
-         (instance face :init :vertices (list (float-vector 75.0 891.0 443.0) (float-vector 75.0 9.0 443.0) (float-vector 375.0 9.0 443.0) (float-vector 375.0 891.0 443.0)))
-         (instance face :init :vertices (list (float-vector 375.0 1.5 425.0) (float-vector 375.0 1.5 423.0) (float-vector 375.0 898.5 423.0) (float-vector 375.0 898.5 425.0) (float-vector 375.0 891.0 425.0) (float-vector 375.0 891.0 443.0) (float-vector 375.0 9.0 443.0) (float-vector 375.0 9.0 425.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 425.0) (float-vector 75.0 1.5 423.0) (float-vector 375.0 1.5 423.0) (float-vector 375.0 1.5 425.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 423.0) (float-vector 75.0 1.5 425.0) (float-vector 75.0 9.0 425.0) (float-vector 75.0 9.0 443.0) (float-vector 75.0 891.0 443.0) (float-vector 75.0 891.0 425.0) (float-vector 75.0 898.5 425.0) (float-vector 75.0 898.5 423.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 568.0) (float-vector 72.5 891.0 568.0) (float-vector 100.0 891.0 568.0) (float-vector 100.0 909.0 568.0)))
-         (instance face :init :vertices (list (float-vector 100.0 891.0 568.0) (float-vector 380.0 891.0 455.0) (float-vector 380.0 909.0 455.0) (float-vector 100.0 909.0 568.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 455.0) (float-vector 380.0 891.0 425.0) (float-vector 380.0 909.0 425.0) (float-vector 380.0 909.0 455.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 425.0) (float-vector 375.0 891.0 425.0) (float-vector 375.0 898.5 425.0) (float-vector 75.0 898.5 425.0) (float-vector 75.0 891.0 425.0) (float-vector 72.5 891.0 425.0) (float-vector 72.5 909.0 425.0) (float-vector 380.0 909.0 425.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 425.0) (float-vector 72.5 909.0 568.0) (float-vector 100.0 909.0 568.0) (float-vector 380.0 909.0 455.0) (float-vector 380.0 909.0 425.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 425.0) (float-vector 72.5 891.0 568.0) (float-vector 72.5 909.0 568.0) (float-vector 72.5 909.0 425.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 568.0) (float-vector 72.5 891.0 425.0) (float-vector 75.0 891.0 425.0) (float-vector 75.0 891.0 443.0) (float-vector 375.0 891.0 443.0) (float-vector 375.0 891.0 425.0) (float-vector 380.0 891.0 425.0) (float-vector 380.0 891.0 455.0) (float-vector 100.0 891.0 568.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 208.0) (float-vector 72.5 -9.0 65.0) (float-vector 380.0 -9.0 65.0) (float-vector 380.0 -9.0 95.0) (float-vector 100.0 -9.0 208.0)))
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 208.0) (float-vector 72.5 9.0 208.0) (float-vector 72.5 9.0 65.0) (float-vector 72.5 -9.0 65.0)))
-         (instance face :init :vertices (list (float-vector 72.5 9.0 208.0) (float-vector 100.0 9.0 208.0) (float-vector 380.0 9.0 95.0) (float-vector 380.0 9.0 65.0) (float-vector 375.0 9.0 65.0) (float-vector 375.0 9.0 83.0) (float-vector 75.0 9.0 83.0) (float-vector 75.0 9.0 65.0) (float-vector 72.5 9.0 65.0)))
-         (instance face :init :vertices (list (float-vector 75.0 9.0 65.0) (float-vector 75.0 1.5 65.0) (float-vector 375.0 1.5 65.0) (float-vector 375.0 9.0 65.0) (float-vector 380.0 9.0 65.0) (float-vector 380.0 -9.0 65.0) (float-vector 72.5 -9.0 65.0) (float-vector 72.5 9.0 65.0)))
-         (instance face :init :vertices (list (float-vector 380.0 9.0 95.0) (float-vector 380.0 -9.0 95.0) (float-vector 380.0 -9.0 65.0) (float-vector 380.0 9.0 65.0)))
-         (instance face :init :vertices (list (float-vector 100.0 9.0 208.0) (float-vector 100.0 -9.0 208.0) (float-vector 380.0 -9.0 95.0) (float-vector 380.0 9.0 95.0)))
-         (instance face :init :vertices (list (float-vector 100.0 -9.0 208.0) (float-vector 100.0 9.0 208.0) (float-vector 72.5 9.0 208.0) (float-vector 72.5 -9.0 208.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 63.0) (float-vector 375.0 898.5 63.0) (float-vector 375.0 1.5 63.0) (float-vector 75.0 1.5 63.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 63.0) (float-vector 75.0 898.5 65.0) (float-vector 375.0 898.5 65.0) (float-vector 375.0 898.5 63.0)))
-         (instance face :init :vertices (list (float-vector 75.0 891.0 83.0) (float-vector 75.0 9.0 83.0) (float-vector 375.0 9.0 83.0) (float-vector 375.0 891.0 83.0)))
-         (instance face :init :vertices (list (float-vector 375.0 1.5 65.0) (float-vector 375.0 1.5 63.0) (float-vector 375.0 898.5 63.0) (float-vector 375.0 898.5 65.0) (float-vector 375.0 891.0 65.0) (float-vector 375.0 891.0 83.0) (float-vector 375.0 9.0 83.0) (float-vector 375.0 9.0 65.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 65.0) (float-vector 75.0 1.5 63.0) (float-vector 375.0 1.5 63.0) (float-vector 375.0 1.5 65.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 63.0) (float-vector 75.0 1.5 65.0) (float-vector 75.0 9.0 65.0) (float-vector 75.0 9.0 83.0) (float-vector 75.0 891.0 83.0) (float-vector 75.0 891.0 65.0) (float-vector 75.0 898.5 65.0) (float-vector 75.0 898.5 63.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 208.0) (float-vector 72.5 891.0 208.0) (float-vector 100.0 891.0 208.0) (float-vector 100.0 909.0 208.0)))
-         (instance face :init :vertices (list (float-vector 100.0 891.0 208.0) (float-vector 380.0 891.0 95.0) (float-vector 380.0 909.0 95.0) (float-vector 100.0 909.0 208.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 95.0) (float-vector 380.0 891.0 65.0) (float-vector 380.0 909.0 65.0) (float-vector 380.0 909.0 95.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 65.0) (float-vector 375.0 891.0 65.0) (float-vector 375.0 898.5 65.0) (float-vector 75.0 898.5 65.0) (float-vector 75.0 891.0 65.0) (float-vector 72.5 891.0 65.0) (float-vector 72.5 909.0 65.0) (float-vector 380.0 909.0 65.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 65.0) (float-vector 72.5 909.0 208.0) (float-vector 100.0 909.0 208.0) (float-vector 380.0 909.0 95.0) (float-vector 380.0 909.0 65.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 65.0) (float-vector 72.5 891.0 208.0) (float-vector 72.5 909.0 208.0) (float-vector 72.5 909.0 65.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 208.0) (float-vector 72.5 891.0 65.0) (float-vector 75.0 891.0 65.0) (float-vector 75.0 891.0 83.0) (float-vector 375.0 891.0 83.0) (float-vector 375.0 891.0 65.0) (float-vector 380.0 891.0 65.0) (float-vector 380.0 891.0 95.0) (float-vector 100.0 891.0 208.0)))
-       ))
        ))
      (dolist (b (cdr bc)) (send (car bc) :assoc b))
      (send (elt bc 0) :set-color :lightgoldenrodyellow)
@@ -272,11 +184,7 @@
      (send (elt bc 5) :set-color :gray76)
      (send (elt bc 6) :set-color :gray76)
      (send (elt bc 7) :set-color :gray76)
-     (send (elt bc 8) :set-color :gray76)
-     (send (elt bc 9) :set-color :gray76)
-     (send (elt bc 10) :set-color :gray76)
-     (send (elt bc 11) :set-color :gray76)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-bariera-900-middle-0-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-bariera-900-middle-top-0-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
 
      ;; definition of assoc
      (send self :assoc blink0)
@@ -305,5 +213,5 @@
   (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
-(defun room73b2-bariera-900-middle-0 (&rest args) (instance* room73b2-bariera-900-middle-0-object :init args))
-;; (format *error-output* "(instance room73b2-bariera-900-middle-0-object :init) for generating model~%")
+(defun room73b2-bariera-900-middle-top-0 (&rest args) (instance* room73b2-bariera-900-middle-top-0-object :init args))
+;; (format *error-output* "(instance room73b2-bariera-900-middle-top-0-object :init) for generating model~%")
diff --git a/models/room73b2-bariera-900-middle-1-object.l b/models/room73b2-bariera-900-middle-top-1-object.l
similarity index 62%
rename from models/room73b2-bariera-900-middle-1-object.l
rename to models/room73b2-bariera-900-middle-top-1-object.l
index 5aae3d83..3bb4ec88 100644
--- a/models/room73b2-bariera-900-middle-1-object.l
+++ b/models/room73b2-bariera-900-middle-top-1-object.l
@@ -3,14 +3,14 @@
 ;; this file is automatically generated from euslisp+euslib version 
 ;;
 ;;
-(defclass room73b2-bariera-900-middle-1-object
+(defclass room73b2-bariera-900-middle-top-1-object
   :super cascaded-link
   :slots (sensors
          handle0
          ))
-(defmethod room73b2-bariera-900-middle-1-object
+(defmethod room73b2-bariera-900-middle-top-1-object
   (:init
-   (&rest args &key (name "room73b2-bariera-900-middle-1") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
+   (&rest args &key (name "room73b2-bariera-900-middle-top-1") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
    (let (c bc
          blink0
                  )
@@ -18,7 +18,7 @@
 
      ;; definition of link
 
-     ;; definition of :room73b2-bariera-900-middle-1-bodyset2
+     ;; definition of :room73b2-bariera-900-middle-top-1-bodyset2
      (setq bc (list
        (instance faceset :init :faces (list
          (instance face :init :vertices (list (float-vector 60.0 885.0 2500.0) (float-vector 0.0 885.0 2500.0) (float-vector 0.0 15.0 2500.0) (float-vector 60.0 15.0 2500.0)))
@@ -174,94 +174,6 @@
          (instance face :init :vertices (list (float-vector 72.5 891.0 1505.0) (float-vector 72.5 891.0 1648.0) (float-vector 72.5 909.0 1648.0) (float-vector 72.5 909.0 1505.0)))
          (instance face :init :vertices (list (float-vector 72.5 891.0 1648.0) (float-vector 72.5 891.0 1505.0) (float-vector 75.0 891.0 1505.0) (float-vector 75.0 891.0 1523.0) (float-vector 375.0 891.0 1523.0) (float-vector 375.0 891.0 1505.0) (float-vector 380.0 891.0 1505.0) (float-vector 380.0 891.0 1535.0) (float-vector 100.0 891.0 1648.0)))
        ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 1288.0) (float-vector 72.5 -9.0 1145.0) (float-vector 380.0 -9.0 1145.0) (float-vector 380.0 -9.0 1175.0) (float-vector 100.0 -9.0 1288.0)))
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 1288.0) (float-vector 72.5 9.0 1288.0) (float-vector 72.5 9.0 1145.0) (float-vector 72.5 -9.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 72.5 9.0 1288.0) (float-vector 100.0 9.0 1288.0) (float-vector 380.0 9.0 1175.0) (float-vector 380.0 9.0 1145.0) (float-vector 375.0 9.0 1145.0) (float-vector 375.0 9.0 1163.0) (float-vector 75.0 9.0 1163.0) (float-vector 75.0 9.0 1145.0) (float-vector 72.5 9.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 75.0 9.0 1145.0) (float-vector 75.0 1.5 1145.0) (float-vector 375.0 1.5 1145.0) (float-vector 375.0 9.0 1145.0) (float-vector 380.0 9.0 1145.0) (float-vector 380.0 -9.0 1145.0) (float-vector 72.5 -9.0 1145.0) (float-vector 72.5 9.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 380.0 9.0 1175.0) (float-vector 380.0 -9.0 1175.0) (float-vector 380.0 -9.0 1145.0) (float-vector 380.0 9.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 100.0 9.0 1288.0) (float-vector 100.0 -9.0 1288.0) (float-vector 380.0 -9.0 1175.0) (float-vector 380.0 9.0 1175.0)))
-         (instance face :init :vertices (list (float-vector 100.0 -9.0 1288.0) (float-vector 100.0 9.0 1288.0) (float-vector 72.5 9.0 1288.0) (float-vector 72.5 -9.0 1288.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 1143.0) (float-vector 375.0 898.5 1143.0) (float-vector 375.0 1.5 1143.0) (float-vector 75.0 1.5 1143.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 1143.0) (float-vector 75.0 898.5 1145.0) (float-vector 375.0 898.5 1145.0) (float-vector 375.0 898.5 1143.0)))
-         (instance face :init :vertices (list (float-vector 75.0 891.0 1163.0) (float-vector 75.0 9.0 1163.0) (float-vector 375.0 9.0 1163.0) (float-vector 375.0 891.0 1163.0)))
-         (instance face :init :vertices (list (float-vector 375.0 1.5 1145.0) (float-vector 375.0 1.5 1143.0) (float-vector 375.0 898.5 1143.0) (float-vector 375.0 898.5 1145.0) (float-vector 375.0 891.0 1145.0) (float-vector 375.0 891.0 1163.0) (float-vector 375.0 9.0 1163.0) (float-vector 375.0 9.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 1145.0) (float-vector 75.0 1.5 1143.0) (float-vector 375.0 1.5 1143.0) (float-vector 375.0 1.5 1145.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 1143.0) (float-vector 75.0 1.5 1145.0) (float-vector 75.0 9.0 1145.0) (float-vector 75.0 9.0 1163.0) (float-vector 75.0 891.0 1163.0) (float-vector 75.0 891.0 1145.0) (float-vector 75.0 898.5 1145.0) (float-vector 75.0 898.5 1143.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 1288.0) (float-vector 72.5 891.0 1288.0) (float-vector 100.0 891.0 1288.0) (float-vector 100.0 909.0 1288.0)))
-         (instance face :init :vertices (list (float-vector 100.0 891.0 1288.0) (float-vector 380.0 891.0 1175.0) (float-vector 380.0 909.0 1175.0) (float-vector 100.0 909.0 1288.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 1175.0) (float-vector 380.0 891.0 1145.0) (float-vector 380.0 909.0 1145.0) (float-vector 380.0 909.0 1175.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 1145.0) (float-vector 375.0 891.0 1145.0) (float-vector 375.0 898.5 1145.0) (float-vector 75.0 898.5 1145.0) (float-vector 75.0 891.0 1145.0) (float-vector 72.5 891.0 1145.0) (float-vector 72.5 909.0 1145.0) (float-vector 380.0 909.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 1145.0) (float-vector 72.5 909.0 1288.0) (float-vector 100.0 909.0 1288.0) (float-vector 380.0 909.0 1175.0) (float-vector 380.0 909.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 1145.0) (float-vector 72.5 891.0 1288.0) (float-vector 72.5 909.0 1288.0) (float-vector 72.5 909.0 1145.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 1288.0) (float-vector 72.5 891.0 1145.0) (float-vector 75.0 891.0 1145.0) (float-vector 75.0 891.0 1163.0) (float-vector 375.0 891.0 1163.0) (float-vector 375.0 891.0 1145.0) (float-vector 380.0 891.0 1145.0) (float-vector 380.0 891.0 1175.0) (float-vector 100.0 891.0 1288.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 928.0) (float-vector 72.5 -9.0 785.0) (float-vector 380.0 -9.0 785.0) (float-vector 380.0 -9.0 815.0) (float-vector 100.0 -9.0 928.0)))
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 928.0) (float-vector 72.5 9.0 928.0) (float-vector 72.5 9.0 785.0) (float-vector 72.5 -9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 72.5 9.0 928.0) (float-vector 100.0 9.0 928.0) (float-vector 380.0 9.0 815.0) (float-vector 380.0 9.0 785.0) (float-vector 375.0 9.0 785.0) (float-vector 375.0 9.0 803.0) (float-vector 75.0 9.0 803.0) (float-vector 75.0 9.0 785.0) (float-vector 72.5 9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 75.0 9.0 785.0) (float-vector 75.0 1.5 785.0) (float-vector 375.0 1.5 785.0) (float-vector 375.0 9.0 785.0) (float-vector 380.0 9.0 785.0) (float-vector 380.0 -9.0 785.0) (float-vector 72.5 -9.0 785.0) (float-vector 72.5 9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 380.0 9.0 815.0) (float-vector 380.0 -9.0 815.0) (float-vector 380.0 -9.0 785.0) (float-vector 380.0 9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 100.0 9.0 928.0) (float-vector 100.0 -9.0 928.0) (float-vector 380.0 -9.0 815.0) (float-vector 380.0 9.0 815.0)))
-         (instance face :init :vertices (list (float-vector 100.0 -9.0 928.0) (float-vector 100.0 9.0 928.0) (float-vector 72.5 9.0 928.0) (float-vector 72.5 -9.0 928.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 783.0) (float-vector 375.0 898.5 783.0) (float-vector 375.0 1.5 783.0) (float-vector 75.0 1.5 783.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 783.0) (float-vector 75.0 898.5 785.0) (float-vector 375.0 898.5 785.0) (float-vector 375.0 898.5 783.0)))
-         (instance face :init :vertices (list (float-vector 75.0 891.0 803.0) (float-vector 75.0 9.0 803.0) (float-vector 375.0 9.0 803.0) (float-vector 375.0 891.0 803.0)))
-         (instance face :init :vertices (list (float-vector 375.0 1.5 785.0) (float-vector 375.0 1.5 783.0) (float-vector 375.0 898.5 783.0) (float-vector 375.0 898.5 785.0) (float-vector 375.0 891.0 785.0) (float-vector 375.0 891.0 803.0) (float-vector 375.0 9.0 803.0) (float-vector 375.0 9.0 785.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 785.0) (float-vector 75.0 1.5 783.0) (float-vector 375.0 1.5 783.0) (float-vector 375.0 1.5 785.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 783.0) (float-vector 75.0 1.5 785.0) (float-vector 75.0 9.0 785.0) (float-vector 75.0 9.0 803.0) (float-vector 75.0 891.0 803.0) (float-vector 75.0 891.0 785.0) (float-vector 75.0 898.5 785.0) (float-vector 75.0 898.5 783.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 928.0) (float-vector 72.5 891.0 928.0) (float-vector 100.0 891.0 928.0) (float-vector 100.0 909.0 928.0)))
-         (instance face :init :vertices (list (float-vector 100.0 891.0 928.0) (float-vector 380.0 891.0 815.0) (float-vector 380.0 909.0 815.0) (float-vector 100.0 909.0 928.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 815.0) (float-vector 380.0 891.0 785.0) (float-vector 380.0 909.0 785.0) (float-vector 380.0 909.0 815.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 785.0) (float-vector 375.0 891.0 785.0) (float-vector 375.0 898.5 785.0) (float-vector 75.0 898.5 785.0) (float-vector 75.0 891.0 785.0) (float-vector 72.5 891.0 785.0) (float-vector 72.5 909.0 785.0) (float-vector 380.0 909.0 785.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 785.0) (float-vector 72.5 909.0 928.0) (float-vector 100.0 909.0 928.0) (float-vector 380.0 909.0 815.0) (float-vector 380.0 909.0 785.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 785.0) (float-vector 72.5 891.0 928.0) (float-vector 72.5 909.0 928.0) (float-vector 72.5 909.0 785.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 928.0) (float-vector 72.5 891.0 785.0) (float-vector 75.0 891.0 785.0) (float-vector 75.0 891.0 803.0) (float-vector 375.0 891.0 803.0) (float-vector 375.0 891.0 785.0) (float-vector 380.0 891.0 785.0) (float-vector 380.0 891.0 815.0) (float-vector 100.0 891.0 928.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 568.0) (float-vector 72.5 -9.0 425.0) (float-vector 380.0 -9.0 425.0) (float-vector 380.0 -9.0 455.0) (float-vector 100.0 -9.0 568.0)))
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 568.0) (float-vector 72.5 9.0 568.0) (float-vector 72.5 9.0 425.0) (float-vector 72.5 -9.0 425.0)))
-         (instance face :init :vertices (list (float-vector 72.5 9.0 568.0) (float-vector 100.0 9.0 568.0) (float-vector 380.0 9.0 455.0) (float-vector 380.0 9.0 425.0) (float-vector 375.0 9.0 425.0) (float-vector 375.0 9.0 443.0) (float-vector 75.0 9.0 443.0) (float-vector 75.0 9.0 425.0) (float-vector 72.5 9.0 425.0)))
-         (instance face :init :vertices (list (float-vector 75.0 9.0 425.0) (float-vector 75.0 1.5 425.0) (float-vector 375.0 1.5 425.0) (float-vector 375.0 9.0 425.0) (float-vector 380.0 9.0 425.0) (float-vector 380.0 -9.0 425.0) (float-vector 72.5 -9.0 425.0) (float-vector 72.5 9.0 425.0)))
-         (instance face :init :vertices (list (float-vector 380.0 9.0 455.0) (float-vector 380.0 -9.0 455.0) (float-vector 380.0 -9.0 425.0) (float-vector 380.0 9.0 425.0)))
-         (instance face :init :vertices (list (float-vector 100.0 9.0 568.0) (float-vector 100.0 -9.0 568.0) (float-vector 380.0 -9.0 455.0) (float-vector 380.0 9.0 455.0)))
-         (instance face :init :vertices (list (float-vector 100.0 -9.0 568.0) (float-vector 100.0 9.0 568.0) (float-vector 72.5 9.0 568.0) (float-vector 72.5 -9.0 568.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 423.0) (float-vector 375.0 898.5 423.0) (float-vector 375.0 1.5 423.0) (float-vector 75.0 1.5 423.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 423.0) (float-vector 75.0 898.5 425.0) (float-vector 375.0 898.5 425.0) (float-vector 375.0 898.5 423.0)))
-         (instance face :init :vertices (list (float-vector 75.0 891.0 443.0) (float-vector 75.0 9.0 443.0) (float-vector 375.0 9.0 443.0) (float-vector 375.0 891.0 443.0)))
-         (instance face :init :vertices (list (float-vector 375.0 1.5 425.0) (float-vector 375.0 1.5 423.0) (float-vector 375.0 898.5 423.0) (float-vector 375.0 898.5 425.0) (float-vector 375.0 891.0 425.0) (float-vector 375.0 891.0 443.0) (float-vector 375.0 9.0 443.0) (float-vector 375.0 9.0 425.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 425.0) (float-vector 75.0 1.5 423.0) (float-vector 375.0 1.5 423.0) (float-vector 375.0 1.5 425.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 423.0) (float-vector 75.0 1.5 425.0) (float-vector 75.0 9.0 425.0) (float-vector 75.0 9.0 443.0) (float-vector 75.0 891.0 443.0) (float-vector 75.0 891.0 425.0) (float-vector 75.0 898.5 425.0) (float-vector 75.0 898.5 423.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 568.0) (float-vector 72.5 891.0 568.0) (float-vector 100.0 891.0 568.0) (float-vector 100.0 909.0 568.0)))
-         (instance face :init :vertices (list (float-vector 100.0 891.0 568.0) (float-vector 380.0 891.0 455.0) (float-vector 380.0 909.0 455.0) (float-vector 100.0 909.0 568.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 455.0) (float-vector 380.0 891.0 425.0) (float-vector 380.0 909.0 425.0) (float-vector 380.0 909.0 455.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 425.0) (float-vector 375.0 891.0 425.0) (float-vector 375.0 898.5 425.0) (float-vector 75.0 898.5 425.0) (float-vector 75.0 891.0 425.0) (float-vector 72.5 891.0 425.0) (float-vector 72.5 909.0 425.0) (float-vector 380.0 909.0 425.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 425.0) (float-vector 72.5 909.0 568.0) (float-vector 100.0 909.0 568.0) (float-vector 380.0 909.0 455.0) (float-vector 380.0 909.0 425.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 425.0) (float-vector 72.5 891.0 568.0) (float-vector 72.5 909.0 568.0) (float-vector 72.5 909.0 425.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 568.0) (float-vector 72.5 891.0 425.0) (float-vector 75.0 891.0 425.0) (float-vector 75.0 891.0 443.0) (float-vector 375.0 891.0 443.0) (float-vector 375.0 891.0 425.0) (float-vector 380.0 891.0 425.0) (float-vector 380.0 891.0 455.0) (float-vector 100.0 891.0 568.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 208.0) (float-vector 72.5 -9.0 65.0) (float-vector 380.0 -9.0 65.0) (float-vector 380.0 -9.0 95.0) (float-vector 100.0 -9.0 208.0)))
-         (instance face :init :vertices (list (float-vector 72.5 -9.0 208.0) (float-vector 72.5 9.0 208.0) (float-vector 72.5 9.0 65.0) (float-vector 72.5 -9.0 65.0)))
-         (instance face :init :vertices (list (float-vector 72.5 9.0 208.0) (float-vector 100.0 9.0 208.0) (float-vector 380.0 9.0 95.0) (float-vector 380.0 9.0 65.0) (float-vector 375.0 9.0 65.0) (float-vector 375.0 9.0 83.0) (float-vector 75.0 9.0 83.0) (float-vector 75.0 9.0 65.0) (float-vector 72.5 9.0 65.0)))
-         (instance face :init :vertices (list (float-vector 75.0 9.0 65.0) (float-vector 75.0 1.5 65.0) (float-vector 375.0 1.5 65.0) (float-vector 375.0 9.0 65.0) (float-vector 380.0 9.0 65.0) (float-vector 380.0 -9.0 65.0) (float-vector 72.5 -9.0 65.0) (float-vector 72.5 9.0 65.0)))
-         (instance face :init :vertices (list (float-vector 380.0 9.0 95.0) (float-vector 380.0 -9.0 95.0) (float-vector 380.0 -9.0 65.0) (float-vector 380.0 9.0 65.0)))
-         (instance face :init :vertices (list (float-vector 100.0 9.0 208.0) (float-vector 100.0 -9.0 208.0) (float-vector 380.0 -9.0 95.0) (float-vector 380.0 9.0 95.0)))
-         (instance face :init :vertices (list (float-vector 100.0 -9.0 208.0) (float-vector 100.0 9.0 208.0) (float-vector 72.5 9.0 208.0) (float-vector 72.5 -9.0 208.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 63.0) (float-vector 375.0 898.5 63.0) (float-vector 375.0 1.5 63.0) (float-vector 75.0 1.5 63.0)))
-         (instance face :init :vertices (list (float-vector 75.0 898.5 63.0) (float-vector 75.0 898.5 65.0) (float-vector 375.0 898.5 65.0) (float-vector 375.0 898.5 63.0)))
-         (instance face :init :vertices (list (float-vector 75.0 891.0 83.0) (float-vector 75.0 9.0 83.0) (float-vector 375.0 9.0 83.0) (float-vector 375.0 891.0 83.0)))
-         (instance face :init :vertices (list (float-vector 375.0 1.5 65.0) (float-vector 375.0 1.5 63.0) (float-vector 375.0 898.5 63.0) (float-vector 375.0 898.5 65.0) (float-vector 375.0 891.0 65.0) (float-vector 375.0 891.0 83.0) (float-vector 375.0 9.0 83.0) (float-vector 375.0 9.0 65.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 65.0) (float-vector 75.0 1.5 63.0) (float-vector 375.0 1.5 63.0) (float-vector 375.0 1.5 65.0)))
-         (instance face :init :vertices (list (float-vector 75.0 1.5 63.0) (float-vector 75.0 1.5 65.0) (float-vector 75.0 9.0 65.0) (float-vector 75.0 9.0 83.0) (float-vector 75.0 891.0 83.0) (float-vector 75.0 891.0 65.0) (float-vector 75.0 898.5 65.0) (float-vector 75.0 898.5 63.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 208.0) (float-vector 72.5 891.0 208.0) (float-vector 100.0 891.0 208.0) (float-vector 100.0 909.0 208.0)))
-         (instance face :init :vertices (list (float-vector 100.0 891.0 208.0) (float-vector 380.0 891.0 95.0) (float-vector 380.0 909.0 95.0) (float-vector 100.0 909.0 208.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 95.0) (float-vector 380.0 891.0 65.0) (float-vector 380.0 909.0 65.0) (float-vector 380.0 909.0 95.0)))
-         (instance face :init :vertices (list (float-vector 380.0 891.0 65.0) (float-vector 375.0 891.0 65.0) (float-vector 375.0 898.5 65.0) (float-vector 75.0 898.5 65.0) (float-vector 75.0 891.0 65.0) (float-vector 72.5 891.0 65.0) (float-vector 72.5 909.0 65.0) (float-vector 380.0 909.0 65.0)))
-         (instance face :init :vertices (list (float-vector 72.5 909.0 65.0) (float-vector 72.5 909.0 208.0) (float-vector 100.0 909.0 208.0) (float-vector 380.0 909.0 95.0) (float-vector 380.0 909.0 65.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 65.0) (float-vector 72.5 891.0 208.0) (float-vector 72.5 909.0 208.0) (float-vector 72.5 909.0 65.0)))
-         (instance face :init :vertices (list (float-vector 72.5 891.0 208.0) (float-vector 72.5 891.0 65.0) (float-vector 75.0 891.0 65.0) (float-vector 75.0 891.0 83.0) (float-vector 375.0 891.0 83.0) (float-vector 375.0 891.0 65.0) (float-vector 380.0 891.0 65.0) (float-vector 380.0 891.0 95.0) (float-vector 100.0 891.0 208.0)))
-       ))
        ))
      (dolist (b (cdr bc)) (send (car bc) :assoc b))
      (send (elt bc 0) :set-color :lightgoldenrodyellow)
@@ -272,11 +184,7 @@
      (send (elt bc 5) :set-color :gray76)
      (send (elt bc 6) :set-color :gray76)
      (send (elt bc 7) :set-color :gray76)
-     (send (elt bc 8) :set-color :gray76)
-     (send (elt bc 9) :set-color :gray76)
-     (send (elt bc 10) :set-color :gray76)
-     (send (elt bc 11) :set-color :gray76)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-bariera-900-middle-1-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-bariera-900-middle-top-1-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
 
      ;; definition of assoc
      (send self :assoc blink0)
@@ -305,5 +213,5 @@
   (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
-(defun room73b2-bariera-900-middle-1 (&rest args) (instance* room73b2-bariera-900-middle-1-object :init args))
-;; (format *error-output* "(instance room73b2-bariera-900-middle-1-object :init) for generating model~%")
+(defun room73b2-bariera-900-middle-top-1 (&rest args) (instance* room73b2-bariera-900-middle-top-1-object :init args))
+;; (format *error-output* "(instance room73b2-bariera-900-middle-top-1-object :init) for generating model~%")
diff --git a/models/room73b2-chair0-object.l b/models/room73b2-chair0-object.l
index f59380a0..a1f13662 100644
--- a/models/room73b2-chair0-object.l
+++ b/models/room73b2-chair0-object.l
@@ -38,12 +38,12 @@
          (instance face :init :vertices (list (float-vector -40.0 40.0 305.0) (float-vector -40.0 40.0 265.0) (float-vector -40.0 -40.0 265.0) (float-vector -40.0 -40.0 305.0)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 23.8157 -13.75 265.0) (float-vector 27.5 0.0 265.0) (float-vector 23.8157 13.75 265.0) (float-vector 13.75 23.8157 265.0) (float-vector 0.0 27.5 265.0) (float-vector -13.75 23.8157 265.0) (float-vector -23.8157 13.75 265.0) (float-vector -27.5 0.0 265.0) (float-vector -23.8157 -13.75 265.0) (float-vector -13.75 -23.8157 265.0) (float-vector -2.273737e-13 -27.5 265.0) (float-vector 13.75 -23.8157 265.0)))
-         (instance face :init :vertices (list (float-vector 27.5 0.0 215.0) (float-vector 23.8157 -13.75 215.0) (float-vector 13.75 -23.8157 215.0) (float-vector -2.273737e-13 -27.5 215.0) (float-vector -13.75 -23.8157 215.0) (float-vector -23.8157 -13.75 215.0) (float-vector -27.5 0.0 215.0) (float-vector -23.8157 13.75 215.0) (float-vector -13.75 23.8157 215.0) (float-vector 0.0 27.5 215.0) (float-vector 13.75 23.8157 215.0) (float-vector 23.8157 13.75 215.0)))
+         (instance face :init :vertices (list (float-vector 23.8157 -13.75 265.0) (float-vector 27.5 0.0 265.0) (float-vector 23.8157 13.75 265.0) (float-vector 13.75 23.8157 265.0) (float-vector 0.0 27.5 265.0) (float-vector -13.75 23.8157 265.0) (float-vector -23.8157 13.75 265.0) (float-vector -27.5 0.0 265.0) (float-vector -23.8157 -13.75 265.0) (float-vector -13.75 -23.8157 265.0) (float-vector 0.0 -27.5 265.0) (float-vector 13.75 -23.8157 265.0)))
+         (instance face :init :vertices (list (float-vector 27.5 0.0 215.0) (float-vector 23.8157 -13.75 215.0) (float-vector 13.75 -23.8157 215.0) (float-vector 0.0 -27.5 215.0) (float-vector -13.75 -23.8157 215.0) (float-vector -23.8157 -13.75 215.0) (float-vector -27.5 0.0 215.0) (float-vector -23.8157 13.75 215.0) (float-vector -13.75 23.8157 215.0) (float-vector 0.0 27.5 215.0) (float-vector 13.75 23.8157 215.0) (float-vector 23.8157 13.75 215.0)))
          (instance face :init :vertices (list (float-vector 23.8157 -13.75 265.0) (float-vector 23.8157 -13.75 215.0) (float-vector 27.5 0.0 215.0) (float-vector 27.5 0.0 265.0)))
          (instance face :init :vertices (list (float-vector 13.75 -23.8157 265.0) (float-vector 13.75 -23.8157 215.0) (float-vector 23.8157 -13.75 215.0) (float-vector 23.8157 -13.75 265.0)))
-         (instance face :init :vertices (list (float-vector -2.273737e-13 -27.5 265.0) (float-vector -2.273737e-13 -27.5 215.0) (float-vector 13.75 -23.8157 215.0) (float-vector 13.75 -23.8157 265.0)))
-         (instance face :init :vertices (list (float-vector -13.75 -23.8157 265.0) (float-vector -13.75 -23.8157 215.0) (float-vector -2.273737e-13 -27.5 215.0) (float-vector -2.273737e-13 -27.5 265.0)))
+         (instance face :init :vertices (list (float-vector 0.0 -27.5 265.0) (float-vector 0.0 -27.5 215.0) (float-vector 13.75 -23.8157 215.0) (float-vector 13.75 -23.8157 265.0)))
+         (instance face :init :vertices (list (float-vector -13.75 -23.8157 265.0) (float-vector -13.75 -23.8157 215.0) (float-vector 0.0 -27.5 215.0) (float-vector 0.0 -27.5 265.0)))
          (instance face :init :vertices (list (float-vector -23.8157 -13.75 265.0) (float-vector -23.8157 -13.75 215.0) (float-vector -13.75 -23.8157 215.0) (float-vector -13.75 -23.8157 265.0)))
          (instance face :init :vertices (list (float-vector -27.5 0.0 265.0) (float-vector -27.5 0.0 215.0) (float-vector -23.8157 -13.75 215.0) (float-vector -23.8157 -13.75 265.0)))
          (instance face :init :vertices (list (float-vector -23.8157 13.75 265.0) (float-vector -23.8157 13.75 215.0) (float-vector -27.5 0.0 215.0) (float-vector -27.5 0.0 265.0)))
@@ -54,12 +54,12 @@
          (instance face :init :vertices (list (float-vector 27.5 0.0 265.0) (float-vector 27.5 0.0 215.0) (float-vector 23.8157 13.75 215.0) (float-vector 23.8157 13.75 265.0)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 28.1458 -16.25 215.0) (float-vector 32.5 0.0 215.0) (float-vector 28.1458 16.25 215.0) (float-vector 16.25 28.1458 215.0) (float-vector 0.0 32.5 215.0) (float-vector -16.25 28.1458 215.0) (float-vector -28.1458 16.25 215.0) (float-vector -32.5 0.0 215.0) (float-vector -28.1458 -16.25 215.0) (float-vector -16.25 -28.1458 215.0) (float-vector -2.273737e-13 -32.5 215.0) (float-vector 16.25 -28.1458 215.0)))
-         (instance face :init :vertices (list (float-vector 32.5 0.0 95.0) (float-vector 28.1458 -16.25 95.0) (float-vector 16.25 -28.1458 95.0) (float-vector -2.273737e-13 -32.5 95.0) (float-vector -16.25 -28.1458 95.0) (float-vector -28.1458 -16.25 95.0) (float-vector -32.5 0.0 95.0) (float-vector -28.1458 16.25 95.0) (float-vector -16.25 28.1458 95.0) (float-vector 0.0 32.5 95.0) (float-vector 16.25 28.1458 95.0) (float-vector 28.1458 16.25 95.0)))
+         (instance face :init :vertices (list (float-vector 28.1458 -16.25 215.0) (float-vector 32.5 0.0 215.0) (float-vector 28.1458 16.25 215.0) (float-vector 16.25 28.1458 215.0) (float-vector 0.0 32.5 215.0) (float-vector -16.25 28.1458 215.0) (float-vector -28.1458 16.25 215.0) (float-vector -32.5 0.0 215.0) (float-vector -28.1458 -16.25 215.0) (float-vector -16.25 -28.1458 215.0) (float-vector 0.0 -32.5 215.0) (float-vector 16.25 -28.1458 215.0)))
+         (instance face :init :vertices (list (float-vector 32.5 0.0 95.0) (float-vector 28.1458 -16.25 95.0) (float-vector 16.25 -28.1458 95.0) (float-vector 0.0 -32.5 95.0) (float-vector -16.25 -28.1458 95.0) (float-vector -28.1458 -16.25 95.0) (float-vector -32.5 0.0 95.0) (float-vector -28.1458 16.25 95.0) (float-vector -16.25 28.1458 95.0) (float-vector 0.0 32.5 95.0) (float-vector 16.25 28.1458 95.0) (float-vector 28.1458 16.25 95.0)))
          (instance face :init :vertices (list (float-vector 28.1458 -16.25 215.0) (float-vector 28.1458 -16.25 95.0) (float-vector 32.5 0.0 95.0) (float-vector 32.5 0.0 215.0)))
          (instance face :init :vertices (list (float-vector 16.25 -28.1458 215.0) (float-vector 16.25 -28.1458 95.0) (float-vector 28.1458 -16.25 95.0) (float-vector 28.1458 -16.25 215.0)))
-         (instance face :init :vertices (list (float-vector -2.273737e-13 -32.5 215.0) (float-vector -2.273737e-13 -32.5 95.0) (float-vector 16.25 -28.1458 95.0) (float-vector 16.25 -28.1458 215.0)))
-         (instance face :init :vertices (list (float-vector -16.25 -28.1458 215.0) (float-vector -16.25 -28.1458 95.0) (float-vector -2.273737e-13 -32.5 95.0) (float-vector -2.273737e-13 -32.5 215.0)))
+         (instance face :init :vertices (list (float-vector 0.0 -32.5 215.0) (float-vector 0.0 -32.5 95.0) (float-vector 16.25 -28.1458 95.0) (float-vector 16.25 -28.1458 215.0)))
+         (instance face :init :vertices (list (float-vector -16.25 -28.1458 215.0) (float-vector -16.25 -28.1458 95.0) (float-vector 0.0 -32.5 95.0) (float-vector 0.0 -32.5 215.0)))
          (instance face :init :vertices (list (float-vector -28.1458 -16.25 215.0) (float-vector -28.1458 -16.25 95.0) (float-vector -16.25 -28.1458 95.0) (float-vector -16.25 -28.1458 215.0)))
          (instance face :init :vertices (list (float-vector -32.5 0.0 215.0) (float-vector -32.5 0.0 95.0) (float-vector -28.1458 -16.25 95.0) (float-vector -28.1458 -16.25 215.0)))
          (instance face :init :vertices (list (float-vector -28.1458 16.25 215.0) (float-vector -28.1458 16.25 95.0) (float-vector -32.5 0.0 95.0) (float-vector -32.5 0.0 215.0)))
diff --git a/models/room73b2-chair1-object.l b/models/room73b2-chair1-object.l
index d1b5365d..c782c97d 100644
--- a/models/room73b2-chair1-object.l
+++ b/models/room73b2-chair1-object.l
@@ -21,11 +21,11 @@
      ;; definition of :room73b2-chair1-bodyset2
      (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 56.6312 18.4006 45.0) (float-vector 35.0 -48.1734 45.0) (float-vector -35.0 -48.1734 45.0) (float-vector -56.6312 18.4006 45.0) (float-vector -2.273737e-13 59.5456 45.0)))
-         (instance face :init :vertices (list (float-vector 35.0 -48.1734 95.0) (float-vector 56.6312 18.4006 95.0) (float-vector -2.273737e-13 59.5456 95.0) (float-vector -56.6312 18.4006 95.0) (float-vector -35.0 -48.1734 95.0)))
+         (instance face :init :vertices (list (float-vector 56.6312 18.4006 45.0) (float-vector 35.0 -48.1734 45.0) (float-vector -35.0 -48.1734 45.0) (float-vector -56.6312 18.4006 45.0) (float-vector 0.0 59.5456 45.0)))
+         (instance face :init :vertices (list (float-vector 35.0 -48.1734 95.0) (float-vector 56.6312 18.4006 95.0) (float-vector 0.0 59.5456 95.0) (float-vector -56.6312 18.4006 95.0) (float-vector -35.0 -48.1734 95.0)))
          (instance face :init :vertices (list (float-vector 56.6312 18.4006 45.0) (float-vector 56.6312 18.4006 95.0) (float-vector 35.0 -48.1734 95.0) (float-vector 35.0 -48.1734 45.0)))
-         (instance face :init :vertices (list (float-vector -2.273737e-13 59.5456 45.0) (float-vector -2.273737e-13 59.5456 95.0) (float-vector 56.6312 18.4006 95.0) (float-vector 56.6312 18.4006 45.0)))
-         (instance face :init :vertices (list (float-vector -56.6312 18.4006 45.0) (float-vector -56.6312 18.4006 95.0) (float-vector -2.273737e-13 59.5456 95.0) (float-vector -2.273737e-13 59.5456 45.0)))
+         (instance face :init :vertices (list (float-vector 0.0 59.5456 45.0) (float-vector 0.0 59.5456 95.0) (float-vector 56.6312 18.4006 95.0) (float-vector 56.6312 18.4006 45.0)))
+         (instance face :init :vertices (list (float-vector -56.6312 18.4006 45.0) (float-vector -56.6312 18.4006 95.0) (float-vector 0.0 59.5456 95.0) (float-vector 0.0 59.5456 45.0)))
          (instance face :init :vertices (list (float-vector -35.0 -48.1734 45.0) (float-vector -35.0 -48.1734 95.0) (float-vector -56.6312 18.4006 95.0) (float-vector -56.6312 18.4006 45.0)))
          (instance face :init :vertices (list (float-vector 35.0 -48.1734 45.0) (float-vector 35.0 -48.1734 95.0) (float-vector -35.0 -48.1734 95.0) (float-vector -35.0 -48.1734 45.0)))
        ))
diff --git a/models/room73b2-door-right-object.l b/models/room73b2-door-right-object.l
index 03e60578..52a21d13 100644
--- a/models/room73b2-door-right-object.l
+++ b/models/room73b2-door-right-object.l
@@ -282,7 +282,7 @@
      ;; definition of :handle
      (setq handle0 (make-cascoords :pos (float-vector 75.0 265.0 960.0) :rot #2f((-1.0 -1.224647e-16 1.232595e-32) (-1.232595e-32 2.220446e-16 1.0) (-1.224647e-16 1.0 -2.220446e-16)) :name "rear-knob"))
      (send blink2 :assoc handle0)
-     (setq handle1 (make-cascoords :pos (float-vector 75.0 265.0 960.0) :rot #2f((-1.0 -1.224647e-16 1.232595e-32) (-1.232595e-32 2.220446e-16 1.0) (-1.224647e-16 1.0 -2.220446e-16)) :name "front-knob"))
+     (setq handle1 (make-cascoords :pos (float-vector -115.0 265.0 960.0) :rot #2f((-1.0 -1.224647e-16 1.232595e-32) (-1.232595e-32 2.220446e-16 1.0) (-1.224647e-16 1.0 -2.220446e-16)) :name "front-knob"))
      (send blink2 :assoc handle1)
      (setq handle2 (make-cascoords :pos (float-vector 65.0 345.0 1060.0) :rot #2f((-1.0 -1.224647e-16 0.0) (1.224647e-16 -1.0 0.0) (0.0 0.0 1.0)) :name "lock"))
      (send blink3 :assoc handle2)
diff --git a/models/room73b2-gifuplastic-900-cart-object.l b/models/room73b2-gifuplastic-900-cart-object.l
index 56d3ac9a..dc953afe 100644
--- a/models/room73b2-gifuplastic-900-cart-object.l
+++ b/models/room73b2-gifuplastic-900-cart-object.l
@@ -7,12 +7,12 @@
   :super cascaded-link
   :slots (sensors
          handle0 handle1 handle2
-         ))
+         joint0 joint1 joint2 joint3 joint4 joint5 joint6 ))
 (defmethod room73b2-gifuplastic-900-cart-object
   (:init
    (&rest args &key (name "room73b2-gifuplastic-900-cart") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
    (let (c bc
-         blink0
+         blink0 blink1 blink2 blink3 blink4 blink5 blink6 blink7
                  )
      (send-super* :init :name name args)
 
@@ -20,22 +20,6 @@
 
      ;; definition of :room73b2-gifuplastic-900-cart-bodyset2
      (setq bc (list
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 191.962 230.0 30.0) (float-vector 200.0 230.0 60.0) (float-vector 191.962 230.0 90.0) (float-vector 170.0 230.0 111.962) (float-vector 140.0 230.0 120.0) (float-vector 110.0 230.0 111.962) (float-vector 88.0385 230.0 90.0) (float-vector 80.0 230.0 60.0) (float-vector 88.0385 230.0 30.0) (float-vector 110.0 230.0 8.03848) (float-vector 140.0 230.0 -7.105427e-15) (float-vector 170.0 230.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 200.0 260.0 60.0) (float-vector 191.962 260.0 30.0) (float-vector 170.0 260.0 8.03848) (float-vector 140.0 260.0 0.0) (float-vector 110.0 260.0 8.03848) (float-vector 88.0385 260.0 30.0) (float-vector 80.0 260.0 60.0) (float-vector 88.0385 260.0 90.0) (float-vector 110.0 260.0 111.962) (float-vector 140.0 260.0 120.0) (float-vector 170.0 260.0 111.962) (float-vector 191.962 260.0 90.0)))
-         (instance face :init :vertices (list (float-vector 191.962 230.0 30.0) (float-vector 191.962 260.0 30.0) (float-vector 200.0 260.0 60.0) (float-vector 200.0 230.0 60.0)))
-         (instance face :init :vertices (list (float-vector 170.0 230.0 8.03848) (float-vector 170.0 260.0 8.03848) (float-vector 191.962 260.0 30.0) (float-vector 191.962 230.0 30.0)))
-         (instance face :init :vertices (list (float-vector 140.0 230.0 -7.105427e-15) (float-vector 140.0 260.0 0.0) (float-vector 170.0 260.0 8.03848) (float-vector 170.0 230.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 110.0 230.0 8.03848) (float-vector 110.0 260.0 8.03848) (float-vector 140.0 260.0 0.0) (float-vector 140.0 230.0 -7.105427e-15)))
-         (instance face :init :vertices (list (float-vector 88.0385 230.0 30.0) (float-vector 88.0385 260.0 30.0) (float-vector 110.0 260.0 8.03848) (float-vector 110.0 230.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 80.0 230.0 60.0) (float-vector 80.0 260.0 60.0) (float-vector 88.0385 260.0 30.0) (float-vector 88.0385 230.0 30.0)))
-         (instance face :init :vertices (list (float-vector 88.0385 230.0 90.0) (float-vector 88.0385 260.0 90.0) (float-vector 80.0 260.0 60.0) (float-vector 80.0 230.0 60.0)))
-         (instance face :init :vertices (list (float-vector 110.0 230.0 111.962) (float-vector 110.0 260.0 111.962) (float-vector 88.0385 260.0 90.0) (float-vector 88.0385 230.0 90.0)))
-         (instance face :init :vertices (list (float-vector 140.0 230.0 120.0) (float-vector 140.0 260.0 120.0) (float-vector 110.0 260.0 111.962) (float-vector 110.0 230.0 111.962)))
-         (instance face :init :vertices (list (float-vector 170.0 230.0 111.962) (float-vector 170.0 260.0 111.962) (float-vector 140.0 260.0 120.0) (float-vector 140.0 230.0 120.0)))
-         (instance face :init :vertices (list (float-vector 191.962 230.0 90.0) (float-vector 191.962 260.0 90.0) (float-vector 170.0 260.0 111.962) (float-vector 170.0 230.0 111.962)))
-         (instance face :init :vertices (list (float-vector 200.0 230.0 60.0) (float-vector 200.0 260.0 60.0) (float-vector 191.962 260.0 90.0) (float-vector 191.962 230.0 90.0)))
-       ))
        (instance faceset :init :faces (list
          (instance face :init :vertices (list (float-vector 155.0 264.5 170.0) (float-vector 125.0 264.5 170.0) (float-vector 125.0 264.5 36.0) (float-vector 155.0 264.5 36.0)))
          (instance face :init :vertices (list (float-vector 125.0 267.5 170.0) (float-vector 155.0 267.5 170.0) (float-vector 155.0 267.5 36.0) (float-vector 125.0 267.5 36.0)))
@@ -52,22 +36,6 @@
          (instance face :init :vertices (list (float-vector 125.0 222.5 36.0) (float-vector 125.0 225.5 36.0) (float-vector 155.0 225.5 36.0) (float-vector 155.0 222.5 36.0)))
          (instance face :init :vertices (list (float-vector 125.0 222.5 170.0) (float-vector 125.0 225.5 170.0) (float-vector 125.0 225.5 36.0) (float-vector 125.0 222.5 36.0)))
        ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 191.962 -260.0 30.0) (float-vector 200.0 -260.0 60.0) (float-vector 191.962 -260.0 90.0) (float-vector 170.0 -260.0 111.962) (float-vector 140.0 -260.0 120.0) (float-vector 110.0 -260.0 111.962) (float-vector 88.0385 -260.0 90.0) (float-vector 80.0 -260.0 60.0) (float-vector 88.0385 -260.0 30.0) (float-vector 110.0 -260.0 8.03848) (float-vector 140.0 -260.0 -7.105427e-15) (float-vector 170.0 -260.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 200.0 -230.0 60.0) (float-vector 191.962 -230.0 30.0) (float-vector 170.0 -230.0 8.03848) (float-vector 140.0 -230.0 0.0) (float-vector 110.0 -230.0 8.03848) (float-vector 88.0385 -230.0 30.0) (float-vector 80.0 -230.0 60.0) (float-vector 88.0385 -230.0 90.0) (float-vector 110.0 -230.0 111.962) (float-vector 140.0 -230.0 120.0) (float-vector 170.0 -230.0 111.962) (float-vector 191.962 -230.0 90.0)))
-         (instance face :init :vertices (list (float-vector 191.962 -260.0 30.0) (float-vector 191.962 -230.0 30.0) (float-vector 200.0 -230.0 60.0) (float-vector 200.0 -260.0 60.0)))
-         (instance face :init :vertices (list (float-vector 170.0 -260.0 8.03848) (float-vector 170.0 -230.0 8.03848) (float-vector 191.962 -230.0 30.0) (float-vector 191.962 -260.0 30.0)))
-         (instance face :init :vertices (list (float-vector 140.0 -260.0 -7.105427e-15) (float-vector 140.0 -230.0 0.0) (float-vector 170.0 -230.0 8.03848) (float-vector 170.0 -260.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 110.0 -260.0 8.03848) (float-vector 110.0 -230.0 8.03848) (float-vector 140.0 -230.0 0.0) (float-vector 140.0 -260.0 -7.105427e-15)))
-         (instance face :init :vertices (list (float-vector 88.0385 -260.0 30.0) (float-vector 88.0385 -230.0 30.0) (float-vector 110.0 -230.0 8.03848) (float-vector 110.0 -260.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 80.0 -260.0 60.0) (float-vector 80.0 -230.0 60.0) (float-vector 88.0385 -230.0 30.0) (float-vector 88.0385 -260.0 30.0)))
-         (instance face :init :vertices (list (float-vector 88.0385 -260.0 90.0) (float-vector 88.0385 -230.0 90.0) (float-vector 80.0 -230.0 60.0) (float-vector 80.0 -260.0 60.0)))
-         (instance face :init :vertices (list (float-vector 110.0 -260.0 111.962) (float-vector 110.0 -230.0 111.962) (float-vector 88.0385 -230.0 90.0) (float-vector 88.0385 -260.0 90.0)))
-         (instance face :init :vertices (list (float-vector 140.0 -260.0 120.0) (float-vector 140.0 -230.0 120.0) (float-vector 110.0 -230.0 111.962) (float-vector 110.0 -260.0 111.962)))
-         (instance face :init :vertices (list (float-vector 170.0 -260.0 111.962) (float-vector 170.0 -230.0 111.962) (float-vector 140.0 -230.0 120.0) (float-vector 140.0 -260.0 120.0)))
-         (instance face :init :vertices (list (float-vector 191.962 -260.0 90.0) (float-vector 191.962 -230.0 90.0) (float-vector 170.0 -230.0 111.962) (float-vector 170.0 -260.0 111.962)))
-         (instance face :init :vertices (list (float-vector 200.0 -260.0 60.0) (float-vector 200.0 -230.0 60.0) (float-vector 191.962 -230.0 90.0) (float-vector 191.962 -260.0 90.0)))
-       ))
        (instance faceset :init :faces (list
          (instance face :init :vertices (list (float-vector 155.0 -225.5 170.0) (float-vector 125.0 -225.5 170.0) (float-vector 125.0 -225.5 36.0) (float-vector 155.0 -225.5 36.0)))
          (instance face :init :vertices (list (float-vector 125.0 -222.5 170.0) (float-vector 155.0 -222.5 170.0) (float-vector 155.0 -222.5 36.0) (float-vector 125.0 -222.5 36.0)))
@@ -85,224 +53,359 @@
          (instance face :init :vertices (list (float-vector 125.0 -267.5 170.0) (float-vector 125.0 -264.5 170.0) (float-vector 125.0 -264.5 36.0) (float-vector 125.0 -267.5 36.0)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 751.962 230.0 30.0) (float-vector 760.0 230.0 60.0) (float-vector 751.962 230.0 90.0) (float-vector 730.0 230.0 111.962) (float-vector 700.0 230.0 120.0) (float-vector 670.0 230.0 111.962) (float-vector 648.038 230.0 90.0) (float-vector 640.0 230.0 60.0) (float-vector 648.038 230.0 30.0) (float-vector 670.0 230.0 8.03848) (float-vector 700.0 230.0 -7.105427e-15) (float-vector 730.0 230.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 760.0 260.0 60.0) (float-vector 751.962 260.0 30.0) (float-vector 730.0 260.0 8.03848) (float-vector 700.0 260.0 0.0) (float-vector 670.0 260.0 8.03848) (float-vector 648.038 260.0 30.0) (float-vector 640.0 260.0 60.0) (float-vector 648.038 260.0 90.0) (float-vector 670.0 260.0 111.962) (float-vector 700.0 260.0 120.0) (float-vector 730.0 260.0 111.962) (float-vector 751.962 260.0 90.0)))
-         (instance face :init :vertices (list (float-vector 751.962 230.0 30.0) (float-vector 751.962 260.0 30.0) (float-vector 760.0 260.0 60.0) (float-vector 760.0 230.0 60.0)))
-         (instance face :init :vertices (list (float-vector 730.0 230.0 8.03848) (float-vector 730.0 260.0 8.03848) (float-vector 751.962 260.0 30.0) (float-vector 751.962 230.0 30.0)))
-         (instance face :init :vertices (list (float-vector 700.0 230.0 -7.105427e-15) (float-vector 700.0 260.0 0.0) (float-vector 730.0 260.0 8.03848) (float-vector 730.0 230.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 670.0 230.0 8.03848) (float-vector 670.0 260.0 8.03848) (float-vector 700.0 260.0 0.0) (float-vector 700.0 230.0 -7.105427e-15)))
-         (instance face :init :vertices (list (float-vector 648.038 230.0 30.0) (float-vector 648.038 260.0 30.0) (float-vector 670.0 260.0 8.03848) (float-vector 670.0 230.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 640.0 230.0 60.0) (float-vector 640.0 260.0 60.0) (float-vector 648.038 260.0 30.0) (float-vector 648.038 230.0 30.0)))
-         (instance face :init :vertices (list (float-vector 648.038 230.0 90.0) (float-vector 648.038 260.0 90.0) (float-vector 640.0 260.0 60.0) (float-vector 640.0 230.0 60.0)))
-         (instance face :init :vertices (list (float-vector 670.0 230.0 111.962) (float-vector 670.0 260.0 111.962) (float-vector 648.038 260.0 90.0) (float-vector 648.038 230.0 90.0)))
-         (instance face :init :vertices (list (float-vector 700.0 230.0 120.0) (float-vector 700.0 260.0 120.0) (float-vector 670.0 260.0 111.962) (float-vector 670.0 230.0 111.962)))
-         (instance face :init :vertices (list (float-vector 730.0 230.0 111.962) (float-vector 730.0 260.0 111.962) (float-vector 700.0 260.0 120.0) (float-vector 700.0 230.0 120.0)))
-         (instance face :init :vertices (list (float-vector 751.962 230.0 90.0) (float-vector 751.962 260.0 90.0) (float-vector 730.0 260.0 111.962) (float-vector 730.0 230.0 111.962)))
-         (instance face :init :vertices (list (float-vector 760.0 230.0 60.0) (float-vector 760.0 260.0 60.0) (float-vector 751.962 260.0 90.0) (float-vector 751.962 230.0 90.0)))
+         (instance face :init :vertices (list (float-vector 900.0 300.0 220.0) (float-vector 0.0 300.0 220.0) (float-vector 0.0 -300.0 220.0) (float-vector 900.0 -300.0 220.0)))
+         (instance face :init :vertices (list (float-vector 0.0 300.0 170.0) (float-vector 900.0 300.0 170.0) (float-vector 900.0 -300.0 170.0) (float-vector 0.0 -300.0 170.0)))
+         (instance face :init :vertices (list (float-vector 900.0 300.0 220.0) (float-vector 900.0 300.0 170.0) (float-vector 0.0 300.0 170.0) (float-vector 0.0 300.0 220.0)))
+         (instance face :init :vertices (list (float-vector 900.0 -300.0 220.0) (float-vector 900.0 -300.0 170.0) (float-vector 900.0 300.0 170.0) (float-vector 900.0 300.0 220.0)))
+         (instance face :init :vertices (list (float-vector 0.0 -300.0 220.0) (float-vector 0.0 -300.0 170.0) (float-vector 900.0 -300.0 170.0) (float-vector 900.0 -300.0 220.0)))
+         (instance face :init :vertices (list (float-vector 0.0 300.0 220.0) (float-vector 0.0 300.0 170.0) (float-vector 0.0 -300.0 170.0) (float-vector 0.0 -300.0 220.0)))
+       ))
        ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (send (elt bc 1) :set-color :gray)
+     (send (elt bc 2) :set-color :gray)
+     (send (elt bc 3) :set-color :gray)
+     (send (elt bc 4) :set-color :blue)
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-gifuplastic-900-cart-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :rear-left-wheel
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 715.0 264.5 170.0) (float-vector 685.0 264.5 170.0) (float-vector 685.0 264.5 36.0) (float-vector 715.0 264.5 36.0)))
-         (instance face :init :vertices (list (float-vector 685.0 267.5 170.0) (float-vector 715.0 267.5 170.0) (float-vector 715.0 267.5 36.0) (float-vector 685.0 267.5 36.0)))
-         (instance face :init :vertices (list (float-vector 715.0 264.5 170.0) (float-vector 715.0 267.5 170.0) (float-vector 685.0 267.5 170.0) (float-vector 685.0 264.5 170.0)))
-         (instance face :init :vertices (list (float-vector 715.0 264.5 36.0) (float-vector 715.0 267.5 36.0) (float-vector 715.0 267.5 170.0) (float-vector 715.0 264.5 170.0)))
-         (instance face :init :vertices (list (float-vector 685.0 264.5 36.0) (float-vector 685.0 267.5 36.0) (float-vector 715.0 267.5 36.0) (float-vector 715.0 264.5 36.0)))
-         (instance face :init :vertices (list (float-vector 685.0 264.5 170.0) (float-vector 685.0 267.5 170.0) (float-vector 685.0 267.5 36.0) (float-vector 685.0 264.5 36.0)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 -15.5291) (float-vector 60.0 -15.0 7.105427e-15) (float-vector 57.9555 -15.0 15.5291) (float-vector 51.9615 -15.0 30.0) (float-vector 42.4264 -15.0 42.4264) (float-vector 30.0 -15.0 51.9615) (float-vector 15.5291 -15.0 57.9555) (float-vector 0.0 -15.0 60.0) (float-vector -15.5291 -15.0 57.9555) (float-vector -30.0 -15.0 51.9615) (float-vector -42.4264 -15.0 42.4264) (float-vector -51.9615 -15.0 30.0) (float-vector -57.9555 -15.0 15.5291) (float-vector -60.0 -15.0 6.394885e-14) (float-vector -57.9555 -15.0 -15.5291) (float-vector -51.9615 -15.0 -30.0) (float-vector -42.4264 -15.0 -42.4264) (float-vector -30.0 -15.0 -51.9615) (float-vector -15.5291 -15.0 -57.9555) (float-vector -1.136868e-13 -15.0 -60.0) (float-vector 15.5291 -15.0 -57.9555) (float-vector 30.0 -15.0 -51.9615) (float-vector 42.4264 -15.0 -42.4264) (float-vector 51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector 60.0 15.0 0.0) (float-vector 57.9555 15.0 -15.5291) (float-vector 51.9615 15.0 -30.0) (float-vector 42.4264 15.0 -42.4264) (float-vector 30.0 15.0 -51.9615) (float-vector 15.5291 15.0 -57.9555) (float-vector -1.136868e-13 15.0 -60.0) (float-vector -15.5291 15.0 -57.9555) (float-vector -30.0 15.0 -51.9615) (float-vector -42.4264 15.0 -42.4264) (float-vector -51.9615 15.0 -30.0) (float-vector -57.9555 15.0 -15.5291) (float-vector -60.0 15.0 6.394885e-14) (float-vector -57.9555 15.0 15.5291) (float-vector -51.9615 15.0 30.0) (float-vector -42.4264 15.0 42.4264) (float-vector -30.0 15.0 51.9615) (float-vector -15.5291 15.0 57.9555) (float-vector 0.0 15.0 60.0) (float-vector 15.5291 15.0 57.9555) (float-vector 30.0 15.0 51.9615) (float-vector 42.4264 15.0 42.4264) (float-vector 51.9615 15.0 30.0) (float-vector 57.9555 15.0 15.5291)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 -15.5291) (float-vector 57.9555 15.0 -15.5291) (float-vector 60.0 15.0 0.0) (float-vector 60.0 -15.0 7.105427e-15)))
+         (instance face :init :vertices (list (float-vector 51.9615 -15.0 -30.0) (float-vector 51.9615 15.0 -30.0) (float-vector 57.9555 15.0 -15.5291) (float-vector 57.9555 -15.0 -15.5291)))
+         (instance face :init :vertices (list (float-vector 42.4264 -15.0 -42.4264) (float-vector 42.4264 15.0 -42.4264) (float-vector 51.9615 15.0 -30.0) (float-vector 51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector 30.0 -15.0 -51.9615) (float-vector 30.0 15.0 -51.9615) (float-vector 42.4264 15.0 -42.4264) (float-vector 42.4264 -15.0 -42.4264)))
+         (instance face :init :vertices (list (float-vector 15.5291 -15.0 -57.9555) (float-vector 15.5291 15.0 -57.9555) (float-vector 30.0 15.0 -51.9615) (float-vector 30.0 -15.0 -51.9615)))
+         (instance face :init :vertices (list (float-vector -1.136868e-13 -15.0 -60.0) (float-vector -1.136868e-13 15.0 -60.0) (float-vector 15.5291 15.0 -57.9555) (float-vector 15.5291 -15.0 -57.9555)))
+         (instance face :init :vertices (list (float-vector -15.5291 -15.0 -57.9555) (float-vector -15.5291 15.0 -57.9555) (float-vector -1.136868e-13 15.0 -60.0) (float-vector -1.136868e-13 -15.0 -60.0)))
+         (instance face :init :vertices (list (float-vector -30.0 -15.0 -51.9615) (float-vector -30.0 15.0 -51.9615) (float-vector -15.5291 15.0 -57.9555) (float-vector -15.5291 -15.0 -57.9555)))
+         (instance face :init :vertices (list (float-vector -42.4264 -15.0 -42.4264) (float-vector -42.4264 15.0 -42.4264) (float-vector -30.0 15.0 -51.9615) (float-vector -30.0 -15.0 -51.9615)))
+         (instance face :init :vertices (list (float-vector -51.9615 -15.0 -30.0) (float-vector -51.9615 15.0 -30.0) (float-vector -42.4264 15.0 -42.4264) (float-vector -42.4264 -15.0 -42.4264)))
+         (instance face :init :vertices (list (float-vector -57.9555 -15.0 -15.5291) (float-vector -57.9555 15.0 -15.5291) (float-vector -51.9615 15.0 -30.0) (float-vector -51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector -60.0 -15.0 6.394885e-14) (float-vector -60.0 15.0 6.394885e-14) (float-vector -57.9555 15.0 -15.5291) (float-vector -57.9555 -15.0 -15.5291)))
+         (instance face :init :vertices (list (float-vector -57.9555 -15.0 15.5291) (float-vector -57.9555 15.0 15.5291) (float-vector -60.0 15.0 6.394885e-14) (float-vector -60.0 -15.0 6.394885e-14)))
+         (instance face :init :vertices (list (float-vector -51.9615 -15.0 30.0) (float-vector -51.9615 15.0 30.0) (float-vector -57.9555 15.0 15.5291) (float-vector -57.9555 -15.0 15.5291)))
+         (instance face :init :vertices (list (float-vector -42.4264 -15.0 42.4264) (float-vector -42.4264 15.0 42.4264) (float-vector -51.9615 15.0 30.0) (float-vector -51.9615 -15.0 30.0)))
+         (instance face :init :vertices (list (float-vector -30.0 -15.0 51.9615) (float-vector -30.0 15.0 51.9615) (float-vector -42.4264 15.0 42.4264) (float-vector -42.4264 -15.0 42.4264)))
+         (instance face :init :vertices (list (float-vector -15.5291 -15.0 57.9555) (float-vector -15.5291 15.0 57.9555) (float-vector -30.0 15.0 51.9615) (float-vector -30.0 -15.0 51.9615)))
+         (instance face :init :vertices (list (float-vector 0.0 -15.0 60.0) (float-vector 0.0 15.0 60.0) (float-vector -15.5291 15.0 57.9555) (float-vector -15.5291 -15.0 57.9555)))
+         (instance face :init :vertices (list (float-vector 15.5291 -15.0 57.9555) (float-vector 15.5291 15.0 57.9555) (float-vector 0.0 15.0 60.0) (float-vector 0.0 -15.0 60.0)))
+         (instance face :init :vertices (list (float-vector 30.0 -15.0 51.9615) (float-vector 30.0 15.0 51.9615) (float-vector 15.5291 15.0 57.9555) (float-vector 15.5291 -15.0 57.9555)))
+         (instance face :init :vertices (list (float-vector 42.4264 -15.0 42.4264) (float-vector 42.4264 15.0 42.4264) (float-vector 30.0 15.0 51.9615) (float-vector 30.0 -15.0 51.9615)))
+         (instance face :init :vertices (list (float-vector 51.9615 -15.0 30.0) (float-vector 51.9615 15.0 30.0) (float-vector 42.4264 15.0 42.4264) (float-vector 42.4264 -15.0 42.4264)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 15.5291) (float-vector 57.9555 15.0 15.5291) (float-vector 51.9615 15.0 30.0) (float-vector 51.9615 -15.0 30.0)))
+         (instance face :init :vertices (list (float-vector 60.0 -15.0 7.105427e-15) (float-vector 60.0 15.0 0.0) (float-vector 57.9555 15.0 15.5291) (float-vector 57.9555 -15.0 15.5291)))
+       ))
        ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (setq blink2 (instance bodyset-link :init (make-cascoords) :bodies bc :name :rear-left-wheel :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :rear-right-wheel
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 715.0 222.5 170.0) (float-vector 685.0 222.5 170.0) (float-vector 685.0 222.5 36.0) (float-vector 715.0 222.5 36.0)))
-         (instance face :init :vertices (list (float-vector 685.0 225.5 170.0) (float-vector 715.0 225.5 170.0) (float-vector 715.0 225.5 36.0) (float-vector 685.0 225.5 36.0)))
-         (instance face :init :vertices (list (float-vector 715.0 222.5 170.0) (float-vector 715.0 225.5 170.0) (float-vector 685.0 225.5 170.0) (float-vector 685.0 222.5 170.0)))
-         (instance face :init :vertices (list (float-vector 715.0 222.5 36.0) (float-vector 715.0 225.5 36.0) (float-vector 715.0 225.5 170.0) (float-vector 715.0 222.5 170.0)))
-         (instance face :init :vertices (list (float-vector 685.0 222.5 36.0) (float-vector 685.0 225.5 36.0) (float-vector 715.0 225.5 36.0) (float-vector 715.0 222.5 36.0)))
-         (instance face :init :vertices (list (float-vector 685.0 222.5 170.0) (float-vector 685.0 225.5 170.0) (float-vector 685.0 225.5 36.0) (float-vector 685.0 222.5 36.0)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 -15.5291) (float-vector 60.0 -15.0 7.105427e-15) (float-vector 57.9555 -15.0 15.5291) (float-vector 51.9615 -15.0 30.0) (float-vector 42.4264 -15.0 42.4264) (float-vector 30.0 -15.0 51.9615) (float-vector 15.5291 -15.0 57.9555) (float-vector -1.136868e-13 -15.0 60.0) (float-vector -15.5291 -15.0 57.9555) (float-vector -30.0 -15.0 51.9615) (float-vector -42.4264 -15.0 42.4264) (float-vector -51.9615 -15.0 30.0) (float-vector -57.9555 -15.0 15.5291) (float-vector -60.0 -15.0 6.394885e-14) (float-vector -57.9555 -15.0 -15.5291) (float-vector -51.9615 -15.0 -30.0) (float-vector -42.4264 -15.0 -42.4264) (float-vector -30.0 -15.0 -51.9615) (float-vector -15.5291 -15.0 -57.9555) (float-vector -2.273737e-13 -15.0 -60.0) (float-vector 15.5291 -15.0 -57.9555) (float-vector 30.0 -15.0 -51.9615) (float-vector 42.4264 -15.0 -42.4264) (float-vector 51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector 60.0 15.0 0.0) (float-vector 57.9555 15.0 -15.5291) (float-vector 51.9615 15.0 -30.0) (float-vector 42.4264 15.0 -42.4264) (float-vector 30.0 15.0 -51.9615) (float-vector 15.5291 15.0 -57.9555) (float-vector -1.136868e-13 15.0 -60.0) (float-vector -15.5291 15.0 -57.9555) (float-vector -30.0 15.0 -51.9615) (float-vector -42.4264 15.0 -42.4264) (float-vector -51.9615 15.0 -30.0) (float-vector -57.9555 15.0 -15.5291) (float-vector -60.0 15.0 6.394885e-14) (float-vector -57.9555 15.0 15.5291) (float-vector -51.9615 15.0 30.0) (float-vector -42.4264 15.0 42.4264) (float-vector -30.0 15.0 51.9615) (float-vector -15.5291 15.0 57.9555) (float-vector 0.0 15.0 60.0) (float-vector 15.5291 15.0 57.9555) (float-vector 30.0 15.0 51.9615) (float-vector 42.4264 15.0 42.4264) (float-vector 51.9615 15.0 30.0) (float-vector 57.9555 15.0 15.5291)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 -15.5291) (float-vector 57.9555 15.0 -15.5291) (float-vector 60.0 15.0 0.0) (float-vector 60.0 -15.0 7.105427e-15)))
+         (instance face :init :vertices (list (float-vector 51.9615 -15.0 -30.0) (float-vector 51.9615 15.0 -30.0) (float-vector 57.9555 15.0 -15.5291) (float-vector 57.9555 -15.0 -15.5291)))
+         (instance face :init :vertices (list (float-vector 42.4264 -15.0 -42.4264) (float-vector 42.4264 15.0 -42.4264) (float-vector 51.9615 15.0 -30.0) (float-vector 51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector 30.0 -15.0 -51.9615) (float-vector 30.0 15.0 -51.9615) (float-vector 42.4264 15.0 -42.4264) (float-vector 42.4264 -15.0 -42.4264)))
+         (instance face :init :vertices (list (float-vector 15.5291 -15.0 -57.9555) (float-vector 15.5291 15.0 -57.9555) (float-vector 30.0 15.0 -51.9615) (float-vector 30.0 -15.0 -51.9615)))
+         (instance face :init :vertices (list (float-vector -2.273737e-13 -15.0 -60.0) (float-vector -1.136868e-13 15.0 -60.0) (float-vector 15.5291 15.0 -57.9555) (float-vector 15.5291 -15.0 -57.9555)))
+         (instance face :init :vertices (list (float-vector -15.5291 -15.0 -57.9555) (float-vector -15.5291 15.0 -57.9555) (float-vector -1.136868e-13 15.0 -60.0) (float-vector -2.273737e-13 -15.0 -60.0)))
+         (instance face :init :vertices (list (float-vector -30.0 -15.0 -51.9615) (float-vector -30.0 15.0 -51.9615) (float-vector -15.5291 15.0 -57.9555) (float-vector -15.5291 -15.0 -57.9555)))
+         (instance face :init :vertices (list (float-vector -42.4264 -15.0 -42.4264) (float-vector -42.4264 15.0 -42.4264) (float-vector -30.0 15.0 -51.9615) (float-vector -30.0 -15.0 -51.9615)))
+         (instance face :init :vertices (list (float-vector -51.9615 -15.0 -30.0) (float-vector -51.9615 15.0 -30.0) (float-vector -42.4264 15.0 -42.4264) (float-vector -42.4264 -15.0 -42.4264)))
+         (instance face :init :vertices (list (float-vector -57.9555 -15.0 -15.5291) (float-vector -57.9555 15.0 -15.5291) (float-vector -51.9615 15.0 -30.0) (float-vector -51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector -60.0 -15.0 6.394885e-14) (float-vector -60.0 15.0 6.394885e-14) (float-vector -57.9555 15.0 -15.5291) (float-vector -57.9555 -15.0 -15.5291)))
+         (instance face :init :vertices (list (float-vector -57.9555 -15.0 15.5291) (float-vector -57.9555 15.0 15.5291) (float-vector -60.0 15.0 6.394885e-14) (float-vector -60.0 -15.0 6.394885e-14)))
+         (instance face :init :vertices (list (float-vector -51.9615 -15.0 30.0) (float-vector -51.9615 15.0 30.0) (float-vector -57.9555 15.0 15.5291) (float-vector -57.9555 -15.0 15.5291)))
+         (instance face :init :vertices (list (float-vector -42.4264 -15.0 42.4264) (float-vector -42.4264 15.0 42.4264) (float-vector -51.9615 15.0 30.0) (float-vector -51.9615 -15.0 30.0)))
+         (instance face :init :vertices (list (float-vector -30.0 -15.0 51.9615) (float-vector -30.0 15.0 51.9615) (float-vector -42.4264 15.0 42.4264) (float-vector -42.4264 -15.0 42.4264)))
+         (instance face :init :vertices (list (float-vector -15.5291 -15.0 57.9555) (float-vector -15.5291 15.0 57.9555) (float-vector -30.0 15.0 51.9615) (float-vector -30.0 -15.0 51.9615)))
+         (instance face :init :vertices (list (float-vector -1.136868e-13 -15.0 60.0) (float-vector 0.0 15.0 60.0) (float-vector -15.5291 15.0 57.9555) (float-vector -15.5291 -15.0 57.9555)))
+         (instance face :init :vertices (list (float-vector 15.5291 -15.0 57.9555) (float-vector 15.5291 15.0 57.9555) (float-vector 0.0 15.0 60.0) (float-vector -1.136868e-13 -15.0 60.0)))
+         (instance face :init :vertices (list (float-vector 30.0 -15.0 51.9615) (float-vector 30.0 15.0 51.9615) (float-vector 15.5291 15.0 57.9555) (float-vector 15.5291 -15.0 57.9555)))
+         (instance face :init :vertices (list (float-vector 42.4264 -15.0 42.4264) (float-vector 42.4264 15.0 42.4264) (float-vector 30.0 15.0 51.9615) (float-vector 30.0 -15.0 51.9615)))
+         (instance face :init :vertices (list (float-vector 51.9615 -15.0 30.0) (float-vector 51.9615 15.0 30.0) (float-vector 42.4264 15.0 42.4264) (float-vector 42.4264 -15.0 42.4264)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 15.5291) (float-vector 57.9555 15.0 15.5291) (float-vector 51.9615 15.0 30.0) (float-vector 51.9615 -15.0 30.0)))
+         (instance face :init :vertices (list (float-vector 60.0 -15.0 7.105427e-15) (float-vector 60.0 15.0 0.0) (float-vector 57.9555 15.0 15.5291) (float-vector 57.9555 -15.0 15.5291)))
+       ))
        ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (setq blink3 (instance bodyset-link :init (make-cascoords) :bodies bc :name :rear-right-wheel :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :left-front-fork
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 751.962 -260.0 30.0) (float-vector 760.0 -260.0 60.0) (float-vector 751.962 -260.0 90.0) (float-vector 730.0 -260.0 111.962) (float-vector 700.0 -260.0 120.0) (float-vector 670.0 -260.0 111.962) (float-vector 648.038 -260.0 90.0) (float-vector 640.0 -260.0 60.0) (float-vector 648.038 -260.0 30.0) (float-vector 670.0 -260.0 8.03848) (float-vector 700.0 -260.0 -7.105427e-15) (float-vector 730.0 -260.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 760.0 -230.0 60.0) (float-vector 751.962 -230.0 30.0) (float-vector 730.0 -230.0 8.03848) (float-vector 700.0 -230.0 0.0) (float-vector 670.0 -230.0 8.03848) (float-vector 648.038 -230.0 30.0) (float-vector 640.0 -230.0 60.0) (float-vector 648.038 -230.0 90.0) (float-vector 670.0 -230.0 111.962) (float-vector 700.0 -230.0 120.0) (float-vector 730.0 -230.0 111.962) (float-vector 751.962 -230.0 90.0)))
-         (instance face :init :vertices (list (float-vector 751.962 -260.0 30.0) (float-vector 751.962 -230.0 30.0) (float-vector 760.0 -230.0 60.0) (float-vector 760.0 -260.0 60.0)))
-         (instance face :init :vertices (list (float-vector 730.0 -260.0 8.03848) (float-vector 730.0 -230.0 8.03848) (float-vector 751.962 -230.0 30.0) (float-vector 751.962 -260.0 30.0)))
-         (instance face :init :vertices (list (float-vector 700.0 -260.0 -7.105427e-15) (float-vector 700.0 -230.0 0.0) (float-vector 730.0 -230.0 8.03848) (float-vector 730.0 -260.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 670.0 -260.0 8.03848) (float-vector 670.0 -230.0 8.03848) (float-vector 700.0 -230.0 0.0) (float-vector 700.0 -260.0 -7.105427e-15)))
-         (instance face :init :vertices (list (float-vector 648.038 -260.0 30.0) (float-vector 648.038 -230.0 30.0) (float-vector 670.0 -230.0 8.03848) (float-vector 670.0 -260.0 8.03848)))
-         (instance face :init :vertices (list (float-vector 640.0 -260.0 60.0) (float-vector 640.0 -230.0 60.0) (float-vector 648.038 -230.0 30.0) (float-vector 648.038 -260.0 30.0)))
-         (instance face :init :vertices (list (float-vector 648.038 -260.0 90.0) (float-vector 648.038 -230.0 90.0) (float-vector 640.0 -230.0 60.0) (float-vector 640.0 -260.0 60.0)))
-         (instance face :init :vertices (list (float-vector 670.0 -260.0 111.962) (float-vector 670.0 -230.0 111.962) (float-vector 648.038 -230.0 90.0) (float-vector 648.038 -260.0 90.0)))
-         (instance face :init :vertices (list (float-vector 700.0 -260.0 120.0) (float-vector 700.0 -230.0 120.0) (float-vector 670.0 -230.0 111.962) (float-vector 670.0 -260.0 111.962)))
-         (instance face :init :vertices (list (float-vector 730.0 -260.0 111.962) (float-vector 730.0 -230.0 111.962) (float-vector 700.0 -230.0 120.0) (float-vector 700.0 -260.0 120.0)))
-         (instance face :init :vertices (list (float-vector 751.962 -260.0 90.0) (float-vector 751.962 -230.0 90.0) (float-vector 730.0 -230.0 111.962) (float-vector 730.0 -260.0 111.962)))
-         (instance face :init :vertices (list (float-vector 760.0 -260.0 60.0) (float-vector 760.0 -230.0 60.0) (float-vector 751.962 -230.0 90.0) (float-vector 751.962 -260.0 90.0)))
+         (instance face :init :vertices (list (float-vector -15.0 19.5 0.0) (float-vector -45.0 19.5 0.0) (float-vector -45.0 19.5 -134.0) (float-vector -15.0 19.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -45.0 22.5 0.0) (float-vector -15.0 22.5 0.0) (float-vector -15.0 22.5 -134.0) (float-vector -45.0 22.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -15.0 19.5 0.0) (float-vector -15.0 22.5 0.0) (float-vector -45.0 22.5 0.0) (float-vector -45.0 19.5 0.0)))
+         (instance face :init :vertices (list (float-vector -15.0 19.5 -134.0) (float-vector -15.0 22.5 -134.0) (float-vector -15.0 22.5 0.0) (float-vector -15.0 19.5 0.0)))
+         (instance face :init :vertices (list (float-vector -45.0 19.5 -134.0) (float-vector -45.0 22.5 -134.0) (float-vector -15.0 22.5 -134.0) (float-vector -15.0 19.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -45.0 19.5 0.0) (float-vector -45.0 22.5 0.0) (float-vector -45.0 22.5 -134.0) (float-vector -45.0 19.5 -134.0)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 715.0 -225.5 170.0) (float-vector 685.0 -225.5 170.0) (float-vector 685.0 -225.5 36.0) (float-vector 715.0 -225.5 36.0)))
-         (instance face :init :vertices (list (float-vector 685.0 -222.5 170.0) (float-vector 715.0 -222.5 170.0) (float-vector 715.0 -222.5 36.0) (float-vector 685.0 -222.5 36.0)))
-         (instance face :init :vertices (list (float-vector 715.0 -225.5 170.0) (float-vector 715.0 -222.5 170.0) (float-vector 685.0 -222.5 170.0) (float-vector 685.0 -225.5 170.0)))
-         (instance face :init :vertices (list (float-vector 715.0 -225.5 36.0) (float-vector 715.0 -222.5 36.0) (float-vector 715.0 -222.5 170.0) (float-vector 715.0 -225.5 170.0)))
-         (instance face :init :vertices (list (float-vector 685.0 -225.5 36.0) (float-vector 685.0 -222.5 36.0) (float-vector 715.0 -222.5 36.0) (float-vector 715.0 -225.5 36.0)))
-         (instance face :init :vertices (list (float-vector 685.0 -225.5 170.0) (float-vector 685.0 -222.5 170.0) (float-vector 685.0 -222.5 36.0) (float-vector 685.0 -225.5 36.0)))
+         (instance face :init :vertices (list (float-vector -15.0 -22.5 0.0) (float-vector -45.0 -22.5 0.0) (float-vector -45.0 -22.5 -134.0) (float-vector -15.0 -22.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -45.0 -19.5 0.0) (float-vector -15.0 -19.5 0.0) (float-vector -15.0 -19.5 -134.0) (float-vector -45.0 -19.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -15.0 -22.5 0.0) (float-vector -15.0 -19.5 0.0) (float-vector -45.0 -19.5 0.0) (float-vector -45.0 -22.5 0.0)))
+         (instance face :init :vertices (list (float-vector -15.0 -22.5 -134.0) (float-vector -15.0 -19.5 -134.0) (float-vector -15.0 -19.5 0.0) (float-vector -15.0 -22.5 0.0)))
+         (instance face :init :vertices (list (float-vector -45.0 -22.5 -134.0) (float-vector -45.0 -19.5 -134.0) (float-vector -15.0 -19.5 -134.0) (float-vector -15.0 -22.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -45.0 -22.5 0.0) (float-vector -45.0 -19.5 0.0) (float-vector -45.0 -19.5 -134.0) (float-vector -45.0 -22.5 -134.0)))
        ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (send (elt bc 1) :set-color :gray)
+     (setq blink4 (instance bodyset-link :init (make-cascoords) :bodies bc :name :left-front-fork :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :front-left-wheel
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 715.0 -267.5 170.0) (float-vector 685.0 -267.5 170.0) (float-vector 685.0 -267.5 36.0) (float-vector 715.0 -267.5 36.0)))
-         (instance face :init :vertices (list (float-vector 685.0 -264.5 170.0) (float-vector 715.0 -264.5 170.0) (float-vector 715.0 -264.5 36.0) (float-vector 685.0 -264.5 36.0)))
-         (instance face :init :vertices (list (float-vector 715.0 -267.5 170.0) (float-vector 715.0 -264.5 170.0) (float-vector 685.0 -264.5 170.0) (float-vector 685.0 -267.5 170.0)))
-         (instance face :init :vertices (list (float-vector 715.0 -267.5 36.0) (float-vector 715.0 -264.5 36.0) (float-vector 715.0 -264.5 170.0) (float-vector 715.0 -267.5 170.0)))
-         (instance face :init :vertices (list (float-vector 685.0 -267.5 36.0) (float-vector 685.0 -264.5 36.0) (float-vector 715.0 -264.5 36.0) (float-vector 715.0 -267.5 36.0)))
-         (instance face :init :vertices (list (float-vector 685.0 -267.5 170.0) (float-vector 685.0 -264.5 170.0) (float-vector 685.0 -264.5 36.0) (float-vector 685.0 -267.5 36.0)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 -15.5291) (float-vector 60.0 -15.0 7.105427e-15) (float-vector 57.9555 -15.0 15.5291) (float-vector 51.9615 -15.0 30.0) (float-vector 42.4264 -15.0 42.4264) (float-vector 30.0 -15.0 51.9615) (float-vector 15.5291 -15.0 57.9555) (float-vector 0.0 -15.0 60.0) (float-vector -15.5291 -15.0 57.9555) (float-vector -30.0 -15.0 51.9615) (float-vector -42.4264 -15.0 42.4264) (float-vector -51.9615 -15.0 30.0) (float-vector -57.9555 -15.0 15.5291) (float-vector -60.0 -15.0 6.394885e-14) (float-vector -57.9555 -15.0 -15.5291) (float-vector -51.9615 -15.0 -30.0) (float-vector -42.4264 -15.0 -42.4264) (float-vector -30.0 -15.0 -51.9615) (float-vector -15.5291 -15.0 -57.9555) (float-vector 0.0 -15.0 -60.0) (float-vector 15.5291 -15.0 -57.9555) (float-vector 30.0 -15.0 -51.9615) (float-vector 42.4264 -15.0 -42.4264) (float-vector 51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector 60.0 15.0 0.0) (float-vector 57.9555 15.0 -15.5291) (float-vector 51.9615 15.0 -30.0) (float-vector 42.4264 15.0 -42.4264) (float-vector 30.0 15.0 -51.9615) (float-vector 15.5291 15.0 -57.9555) (float-vector 0.0 15.0 -60.0) (float-vector -15.5291 15.0 -57.9555) (float-vector -30.0 15.0 -51.9615) (float-vector -42.4264 15.0 -42.4264) (float-vector -51.9615 15.0 -30.0) (float-vector -57.9555 15.0 -15.5291) (float-vector -60.0 15.0 6.394885e-14) (float-vector -57.9555 15.0 15.5291) (float-vector -51.9615 15.0 30.0) (float-vector -42.4264 15.0 42.4264) (float-vector -30.0 15.0 51.9615) (float-vector -15.5291 15.0 57.9555) (float-vector 0.0 15.0 60.0) (float-vector 15.5291 15.0 57.9555) (float-vector 30.0 15.0 51.9615) (float-vector 42.4264 15.0 42.4264) (float-vector 51.9615 15.0 30.0) (float-vector 57.9555 15.0 15.5291)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 -15.5291) (float-vector 57.9555 15.0 -15.5291) (float-vector 60.0 15.0 0.0) (float-vector 60.0 -15.0 7.105427e-15)))
+         (instance face :init :vertices (list (float-vector 51.9615 -15.0 -30.0) (float-vector 51.9615 15.0 -30.0) (float-vector 57.9555 15.0 -15.5291) (float-vector 57.9555 -15.0 -15.5291)))
+         (instance face :init :vertices (list (float-vector 42.4264 -15.0 -42.4264) (float-vector 42.4264 15.0 -42.4264) (float-vector 51.9615 15.0 -30.0) (float-vector 51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector 30.0 -15.0 -51.9615) (float-vector 30.0 15.0 -51.9615) (float-vector 42.4264 15.0 -42.4264) (float-vector 42.4264 -15.0 -42.4264)))
+         (instance face :init :vertices (list (float-vector 15.5291 -15.0 -57.9555) (float-vector 15.5291 15.0 -57.9555) (float-vector 30.0 15.0 -51.9615) (float-vector 30.0 -15.0 -51.9615)))
+         (instance face :init :vertices (list (float-vector 0.0 -15.0 -60.0) (float-vector 0.0 15.0 -60.0) (float-vector 15.5291 15.0 -57.9555) (float-vector 15.5291 -15.0 -57.9555)))
+         (instance face :init :vertices (list (float-vector -15.5291 -15.0 -57.9555) (float-vector -15.5291 15.0 -57.9555) (float-vector 0.0 15.0 -60.0) (float-vector 0.0 -15.0 -60.0)))
+         (instance face :init :vertices (list (float-vector -30.0 -15.0 -51.9615) (float-vector -30.0 15.0 -51.9615) (float-vector -15.5291 15.0 -57.9555) (float-vector -15.5291 -15.0 -57.9555)))
+         (instance face :init :vertices (list (float-vector -42.4264 -15.0 -42.4264) (float-vector -42.4264 15.0 -42.4264) (float-vector -30.0 15.0 -51.9615) (float-vector -30.0 -15.0 -51.9615)))
+         (instance face :init :vertices (list (float-vector -51.9615 -15.0 -30.0) (float-vector -51.9615 15.0 -30.0) (float-vector -42.4264 15.0 -42.4264) (float-vector -42.4264 -15.0 -42.4264)))
+         (instance face :init :vertices (list (float-vector -57.9555 -15.0 -15.5291) (float-vector -57.9555 15.0 -15.5291) (float-vector -51.9615 15.0 -30.0) (float-vector -51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector -60.0 -15.0 6.394885e-14) (float-vector -60.0 15.0 6.394885e-14) (float-vector -57.9555 15.0 -15.5291) (float-vector -57.9555 -15.0 -15.5291)))
+         (instance face :init :vertices (list (float-vector -57.9555 -15.0 15.5291) (float-vector -57.9555 15.0 15.5291) (float-vector -60.0 15.0 6.394885e-14) (float-vector -60.0 -15.0 6.394885e-14)))
+         (instance face :init :vertices (list (float-vector -51.9615 -15.0 30.0) (float-vector -51.9615 15.0 30.0) (float-vector -57.9555 15.0 15.5291) (float-vector -57.9555 -15.0 15.5291)))
+         (instance face :init :vertices (list (float-vector -42.4264 -15.0 42.4264) (float-vector -42.4264 15.0 42.4264) (float-vector -51.9615 15.0 30.0) (float-vector -51.9615 -15.0 30.0)))
+         (instance face :init :vertices (list (float-vector -30.0 -15.0 51.9615) (float-vector -30.0 15.0 51.9615) (float-vector -42.4264 15.0 42.4264) (float-vector -42.4264 -15.0 42.4264)))
+         (instance face :init :vertices (list (float-vector -15.5291 -15.0 57.9555) (float-vector -15.5291 15.0 57.9555) (float-vector -30.0 15.0 51.9615) (float-vector -30.0 -15.0 51.9615)))
+         (instance face :init :vertices (list (float-vector 0.0 -15.0 60.0) (float-vector 0.0 15.0 60.0) (float-vector -15.5291 15.0 57.9555) (float-vector -15.5291 -15.0 57.9555)))
+         (instance face :init :vertices (list (float-vector 15.5291 -15.0 57.9555) (float-vector 15.5291 15.0 57.9555) (float-vector 0.0 15.0 60.0) (float-vector 0.0 -15.0 60.0)))
+         (instance face :init :vertices (list (float-vector 30.0 -15.0 51.9615) (float-vector 30.0 15.0 51.9615) (float-vector 15.5291 15.0 57.9555) (float-vector 15.5291 -15.0 57.9555)))
+         (instance face :init :vertices (list (float-vector 42.4264 -15.0 42.4264) (float-vector 42.4264 15.0 42.4264) (float-vector 30.0 15.0 51.9615) (float-vector 30.0 -15.0 51.9615)))
+         (instance face :init :vertices (list (float-vector 51.9615 -15.0 30.0) (float-vector 51.9615 15.0 30.0) (float-vector 42.4264 15.0 42.4264) (float-vector 42.4264 -15.0 42.4264)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 15.5291) (float-vector 57.9555 15.0 15.5291) (float-vector 51.9615 15.0 30.0) (float-vector 51.9615 -15.0 30.0)))
+         (instance face :init :vertices (list (float-vector 60.0 -15.0 7.105427e-15) (float-vector 60.0 15.0 0.0) (float-vector 57.9555 15.0 15.5291) (float-vector 57.9555 -15.0 15.5291)))
        ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (setq blink5 (instance bodyset-link :init (make-cascoords) :bodies bc :name :front-left-wheel :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :right-front-fork
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 88.6603 -220.0 885.0) (float-vector 90.0 -220.0 890.0) (float-vector 88.6603 -220.0 895.0) (float-vector 85.0 -220.0 898.66) (float-vector 80.0 -220.0 900.0) (float-vector 75.0 -220.0 898.66) (float-vector 71.3397 -220.0 895.0) (float-vector 70.0 -220.0 890.0) (float-vector 71.3397 -220.0 885.0) (float-vector 75.0 -220.0 881.34) (float-vector 80.0 -220.0 880.0) (float-vector 85.0 -220.0 881.34)))
-         (instance face :init :vertices (list (float-vector 90.0 220.0 890.0) (float-vector 88.6603 220.0 885.0) (float-vector 85.0 220.0 881.34) (float-vector 80.0 220.0 880.0) (float-vector 75.0 220.0 881.34) (float-vector 71.3397 220.0 885.0) (float-vector 70.0 220.0 890.0) (float-vector 71.3397 220.0 895.0) (float-vector 75.0 220.0 898.66) (float-vector 80.0 220.0 900.0) (float-vector 85.0 220.0 898.66) (float-vector 88.6603 220.0 895.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 -220.0 885.0) (float-vector 88.6603 220.0 885.0) (float-vector 90.0 220.0 890.0) (float-vector 90.0 -220.0 890.0)))
-         (instance face :init :vertices (list (float-vector 85.0 -220.0 881.34) (float-vector 85.0 220.0 881.34) (float-vector 88.6603 220.0 885.0) (float-vector 88.6603 -220.0 885.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -220.0 880.0) (float-vector 80.0 220.0 880.0) (float-vector 85.0 220.0 881.34) (float-vector 85.0 -220.0 881.34)))
-         (instance face :init :vertices (list (float-vector 75.0 -220.0 881.34) (float-vector 75.0 220.0 881.34) (float-vector 80.0 220.0 880.0) (float-vector 80.0 -220.0 880.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 -220.0 885.0) (float-vector 71.3397 220.0 885.0) (float-vector 75.0 220.0 881.34) (float-vector 75.0 -220.0 881.34)))
-         (instance face :init :vertices (list (float-vector 70.0 -220.0 890.0) (float-vector 70.0 220.0 890.0) (float-vector 71.3397 220.0 885.0) (float-vector 71.3397 -220.0 885.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 -220.0 895.0) (float-vector 71.3397 220.0 895.0) (float-vector 70.0 220.0 890.0) (float-vector 70.0 -220.0 890.0)))
-         (instance face :init :vertices (list (float-vector 75.0 -220.0 898.66) (float-vector 75.0 220.0 898.66) (float-vector 71.3397 220.0 895.0) (float-vector 71.3397 -220.0 895.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -220.0 900.0) (float-vector 80.0 220.0 900.0) (float-vector 75.0 220.0 898.66) (float-vector 75.0 -220.0 898.66)))
-         (instance face :init :vertices (list (float-vector 85.0 -220.0 898.66) (float-vector 85.0 220.0 898.66) (float-vector 80.0 220.0 900.0) (float-vector 80.0 -220.0 900.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 -220.0 895.0) (float-vector 88.6603 220.0 895.0) (float-vector 85.0 220.0 898.66) (float-vector 85.0 -220.0 898.66)))
-         (instance face :init :vertices (list (float-vector 90.0 -220.0 890.0) (float-vector 90.0 220.0 890.0) (float-vector 88.6603 220.0 895.0) (float-vector 88.6603 -220.0 895.0)))
+         (instance face :init :vertices (list (float-vector -15.0 19.5 0.0) (float-vector -45.0 19.5 0.0) (float-vector -45.0 19.5 -134.0) (float-vector -15.0 19.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -45.0 22.5 0.0) (float-vector -15.0 22.5 0.0) (float-vector -15.0 22.5 -134.0) (float-vector -45.0 22.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -15.0 19.5 0.0) (float-vector -15.0 22.5 0.0) (float-vector -45.0 22.5 0.0) (float-vector -45.0 19.5 0.0)))
+         (instance face :init :vertices (list (float-vector -15.0 19.5 -134.0) (float-vector -15.0 22.5 -134.0) (float-vector -15.0 22.5 0.0) (float-vector -15.0 19.5 0.0)))
+         (instance face :init :vertices (list (float-vector -45.0 19.5 -134.0) (float-vector -45.0 22.5 -134.0) (float-vector -15.0 22.5 -134.0) (float-vector -15.0 19.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -45.0 19.5 0.0) (float-vector -45.0 22.5 0.0) (float-vector -45.0 22.5 -134.0) (float-vector -45.0 19.5 -134.0)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 80.0 -220.0 900.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 -220.0 897.071) (float-vector 80.0 -220.0 900.0) (float-vector 80.0 -246.788 894.672) (float-vector 72.9289 -245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 80.0 -246.788 894.672) (float-vector 80.0 -269.497 879.497) (float-vector 72.9289 -267.426 877.426) (float-vector 72.9289 -245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 80.0 -269.497 879.497) (float-vector 80.0 -284.672 856.788) (float-vector 72.9289 -281.966 855.667) (float-vector 72.9289 -267.426 877.426)))
-         (instance face :init :vertices (list (float-vector 72.9289 -287.071 830.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -284.672 856.788) (float-vector 80.0 -290.0 830.0) (float-vector 72.9289 -287.071 830.0) (float-vector 72.9289 -281.966 855.667)))
-         (instance face :init :vertices (list (float-vector 72.9289 -220.0 897.071)))
-         (instance face :init :vertices (list (float-vector 70.0 -220.0 890.0) (float-vector 72.9289 -220.0 897.071) (float-vector 72.9289 -245.667 891.966) (float-vector 70.0 -242.961 885.433)))
-         (instance face :init :vertices (list (float-vector 72.9289 -267.426 877.426) (float-vector 70.0 -262.426 872.426) (float-vector 70.0 -242.961 885.433) (float-vector 72.9289 -245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 72.9289 -281.966 855.667) (float-vector 70.0 -275.433 852.961) (float-vector 70.0 -262.426 872.426) (float-vector 72.9289 -267.426 877.426)))
-         (instance face :init :vertices (list (float-vector 70.0 -280.0 830.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 -287.071 830.0) (float-vector 70.0 -280.0 830.0) (float-vector 70.0 -275.433 852.961) (float-vector 72.9289 -281.966 855.667)))
-         (instance face :init :vertices (list (float-vector 70.0 -220.0 890.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 -220.0 882.929) (float-vector 70.0 -220.0 890.0) (float-vector 70.0 -242.961 885.433) (float-vector 72.9289 -240.255 878.9)))
-         (instance face :init :vertices (list (float-vector 70.0 -262.426 872.426) (float-vector 72.9289 -257.426 867.426) (float-vector 72.9289 -240.255 878.9) (float-vector 70.0 -242.961 885.433)))
-         (instance face :init :vertices (list (float-vector 70.0 -275.433 852.961) (float-vector 72.9289 -268.9 850.255) (float-vector 72.9289 -257.426 867.426) (float-vector 70.0 -262.426 872.426)))
-         (instance face :init :vertices (list (float-vector 72.9289 -272.929 830.0)))
-         (instance face :init :vertices (list (float-vector 70.0 -280.0 830.0) (float-vector 72.9289 -272.929 830.0) (float-vector 72.9289 -268.9 850.255) (float-vector 70.0 -275.433 852.961)))
-         (instance face :init :vertices (list (float-vector 72.9289 -220.0 882.929)))
-         (instance face :init :vertices (list (float-vector 80.0 -220.0 880.0) (float-vector 72.9289 -220.0 882.929) (float-vector 72.9289 -240.255 878.9) (float-vector 80.0 -239.134 876.194)))
-         (instance face :init :vertices (list (float-vector 72.9289 -257.426 867.426) (float-vector 80.0 -255.355 865.355) (float-vector 80.0 -239.134 876.194) (float-vector 72.9289 -240.255 878.9)))
-         (instance face :init :vertices (list (float-vector 72.9289 -268.9 850.255) (float-vector 80.0 -266.194 849.134) (float-vector 80.0 -255.355 865.355) (float-vector 72.9289 -257.426 867.426)))
-         (instance face :init :vertices (list (float-vector 80.0 -270.0 830.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 -272.929 830.0) (float-vector 80.0 -270.0 830.0) (float-vector 80.0 -266.194 849.134) (float-vector 72.9289 -268.9 850.255)))
-         (instance face :init :vertices (list (float-vector 80.0 -220.0 880.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 -220.0 882.929) (float-vector 80.0 -220.0 880.0) (float-vector 80.0 -239.134 876.194) (float-vector 87.0711 -240.255 878.9)))
-         (instance face :init :vertices (list (float-vector 80.0 -255.355 865.355) (float-vector 87.0711 -257.426 867.426) (float-vector 87.0711 -240.255 878.9) (float-vector 80.0 -239.134 876.194)))
-         (instance face :init :vertices (list (float-vector 80.0 -266.194 849.134) (float-vector 87.0711 -268.9 850.255) (float-vector 87.0711 -257.426 867.426) (float-vector 80.0 -255.355 865.355)))
-         (instance face :init :vertices (list (float-vector 87.0711 -272.929 830.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -270.0 830.0) (float-vector 87.0711 -272.929 830.0) (float-vector 87.0711 -268.9 850.255) (float-vector 80.0 -266.194 849.134)))
-         (instance face :init :vertices (list (float-vector 87.0711 -220.0 882.929)))
-         (instance face :init :vertices (list (float-vector 90.0 -220.0 890.0) (float-vector 87.0711 -220.0 882.929) (float-vector 87.0711 -240.255 878.9) (float-vector 90.0 -242.961 885.433)))
-         (instance face :init :vertices (list (float-vector 87.0711 -257.426 867.426) (float-vector 90.0 -262.426 872.426) (float-vector 90.0 -242.961 885.433) (float-vector 87.0711 -240.255 878.9)))
-         (instance face :init :vertices (list (float-vector 87.0711 -268.9 850.255) (float-vector 90.0 -275.433 852.961) (float-vector 90.0 -262.426 872.426) (float-vector 87.0711 -257.426 867.426)))
-         (instance face :init :vertices (list (float-vector 90.0 -280.0 830.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 -272.929 830.0) (float-vector 90.0 -280.0 830.0) (float-vector 90.0 -275.433 852.961) (float-vector 87.0711 -268.9 850.255)))
-         (instance face :init :vertices (list (float-vector 90.0 -220.0 890.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 -220.0 897.071) (float-vector 90.0 -220.0 890.0) (float-vector 90.0 -242.961 885.433) (float-vector 87.0711 -245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 90.0 -262.426 872.426) (float-vector 87.0711 -267.426 877.426) (float-vector 87.0711 -245.667 891.966) (float-vector 90.0 -242.961 885.433)))
-         (instance face :init :vertices (list (float-vector 90.0 -275.433 852.961) (float-vector 87.0711 -281.966 855.667) (float-vector 87.0711 -267.426 877.426) (float-vector 90.0 -262.426 872.426)))
-         (instance face :init :vertices (list (float-vector 87.0711 -287.071 830.0)))
-         (instance face :init :vertices (list (float-vector 90.0 -280.0 830.0) (float-vector 87.0711 -287.071 830.0) (float-vector 87.0711 -281.966 855.667) (float-vector 90.0 -275.433 852.961)))
-         (instance face :init :vertices (list (float-vector 87.0711 -220.0 897.071)))
-         (instance face :init :vertices (list (float-vector 80.0 -220.0 900.0) (float-vector 87.0711 -220.0 897.071) (float-vector 87.0711 -245.667 891.966) (float-vector 80.0 -246.788 894.672)))
-         (instance face :init :vertices (list (float-vector 87.0711 -267.426 877.426) (float-vector 80.0 -269.497 879.497) (float-vector 80.0 -246.788 894.672) (float-vector 87.0711 -245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 87.0711 -281.966 855.667) (float-vector 80.0 -284.672 856.788) (float-vector 80.0 -269.497 879.497) (float-vector 87.0711 -267.426 877.426)))
-         (instance face :init :vertices (list (float-vector 80.0 -290.0 830.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 -287.071 830.0) (float-vector 80.0 -290.0 830.0) (float-vector 80.0 -284.672 856.788) (float-vector 87.0711 -281.966 855.667)))
+         (instance face :init :vertices (list (float-vector -15.0 -22.5 0.0) (float-vector -45.0 -22.5 0.0) (float-vector -45.0 -22.5 -134.0) (float-vector -15.0 -22.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -45.0 -19.5 0.0) (float-vector -15.0 -19.5 0.0) (float-vector -15.0 -19.5 -134.0) (float-vector -45.0 -19.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -15.0 -22.5 0.0) (float-vector -15.0 -19.5 0.0) (float-vector -45.0 -19.5 0.0) (float-vector -45.0 -22.5 0.0)))
+         (instance face :init :vertices (list (float-vector -15.0 -22.5 -134.0) (float-vector -15.0 -19.5 -134.0) (float-vector -15.0 -19.5 0.0) (float-vector -15.0 -22.5 0.0)))
+         (instance face :init :vertices (list (float-vector -45.0 -22.5 -134.0) (float-vector -45.0 -19.5 -134.0) (float-vector -15.0 -19.5 -134.0) (float-vector -15.0 -22.5 -134.0)))
+         (instance face :init :vertices (list (float-vector -45.0 -22.5 0.0) (float-vector -45.0 -19.5 0.0) (float-vector -45.0 -19.5 -134.0) (float-vector -45.0 -22.5 -134.0)))
        ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (send (elt bc 1) :set-color :gray)
+     (setq blink6 (instance bodyset-link :init (make-cascoords) :bodies bc :name :right-front-fork :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :front-right-wheel
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 80.0 220.0 900.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 220.0 897.071) (float-vector 80.0 220.0 900.0) (float-vector 80.0 246.788 894.672) (float-vector 87.0711 245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 80.0 246.788 894.672) (float-vector 80.0 269.497 879.497) (float-vector 87.0711 267.426 877.426) (float-vector 87.0711 245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 80.0 269.497 879.497) (float-vector 80.0 284.672 856.788) (float-vector 87.0711 281.966 855.667) (float-vector 87.0711 267.426 877.426)))
-         (instance face :init :vertices (list (float-vector 87.0711 287.071 830.0)))
-         (instance face :init :vertices (list (float-vector 80.0 284.672 856.788) (float-vector 80.0 290.0 830.0) (float-vector 87.0711 287.071 830.0) (float-vector 87.0711 281.966 855.667)))
-         (instance face :init :vertices (list (float-vector 87.0711 220.0 897.071)))
-         (instance face :init :vertices (list (float-vector 90.0 220.0 890.0) (float-vector 87.0711 220.0 897.071) (float-vector 87.0711 245.667 891.966) (float-vector 90.0 242.961 885.433)))
-         (instance face :init :vertices (list (float-vector 87.0711 267.426 877.426) (float-vector 90.0 262.426 872.426) (float-vector 90.0 242.961 885.433) (float-vector 87.0711 245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 87.0711 281.966 855.667) (float-vector 90.0 275.433 852.961) (float-vector 90.0 262.426 872.426) (float-vector 87.0711 267.426 877.426)))
-         (instance face :init :vertices (list (float-vector 90.0 280.0 830.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 287.071 830.0) (float-vector 90.0 280.0 830.0) (float-vector 90.0 275.433 852.961) (float-vector 87.0711 281.966 855.667)))
-         (instance face :init :vertices (list (float-vector 90.0 220.0 890.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 220.0 882.929) (float-vector 90.0 220.0 890.0) (float-vector 90.0 242.961 885.433) (float-vector 87.0711 240.255 878.9)))
-         (instance face :init :vertices (list (float-vector 90.0 262.426 872.426) (float-vector 87.0711 257.426 867.426) (float-vector 87.0711 240.255 878.9) (float-vector 90.0 242.961 885.433)))
-         (instance face :init :vertices (list (float-vector 90.0 275.433 852.961) (float-vector 87.0711 268.9 850.255) (float-vector 87.0711 257.426 867.426) (float-vector 90.0 262.426 872.426)))
-         (instance face :init :vertices (list (float-vector 87.0711 272.929 830.0)))
-         (instance face :init :vertices (list (float-vector 90.0 280.0 830.0) (float-vector 87.0711 272.929 830.0) (float-vector 87.0711 268.9 850.255) (float-vector 90.0 275.433 852.961)))
-         (instance face :init :vertices (list (float-vector 87.0711 220.0 882.929)))
-         (instance face :init :vertices (list (float-vector 80.0 220.0 880.0) (float-vector 87.0711 220.0 882.929) (float-vector 87.0711 240.255 878.9) (float-vector 80.0 239.134 876.194)))
-         (instance face :init :vertices (list (float-vector 87.0711 257.426 867.426) (float-vector 80.0 255.355 865.355) (float-vector 80.0 239.134 876.194) (float-vector 87.0711 240.255 878.9)))
-         (instance face :init :vertices (list (float-vector 87.0711 268.9 850.255) (float-vector 80.0 266.194 849.134) (float-vector 80.0 255.355 865.355) (float-vector 87.0711 257.426 867.426)))
-         (instance face :init :vertices (list (float-vector 80.0 270.0 830.0)))
-         (instance face :init :vertices (list (float-vector 87.0711 272.929 830.0) (float-vector 80.0 270.0 830.0) (float-vector 80.0 266.194 849.134) (float-vector 87.0711 268.9 850.255)))
-         (instance face :init :vertices (list (float-vector 80.0 220.0 880.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 220.0 882.929) (float-vector 80.0 220.0 880.0) (float-vector 80.0 239.134 876.194) (float-vector 72.9289 240.255 878.9)))
-         (instance face :init :vertices (list (float-vector 80.0 255.355 865.355) (float-vector 72.9289 257.426 867.426) (float-vector 72.9289 240.255 878.9) (float-vector 80.0 239.134 876.194)))
-         (instance face :init :vertices (list (float-vector 80.0 266.194 849.134) (float-vector 72.9289 268.9 850.255) (float-vector 72.9289 257.426 867.426) (float-vector 80.0 255.355 865.355)))
-         (instance face :init :vertices (list (float-vector 72.9289 272.929 830.0)))
-         (instance face :init :vertices (list (float-vector 80.0 270.0 830.0) (float-vector 72.9289 272.929 830.0) (float-vector 72.9289 268.9 850.255) (float-vector 80.0 266.194 849.134)))
-         (instance face :init :vertices (list (float-vector 72.9289 220.0 882.929)))
-         (instance face :init :vertices (list (float-vector 70.0 220.0 890.0) (float-vector 72.9289 220.0 882.929) (float-vector 72.9289 240.255 878.9) (float-vector 70.0 242.961 885.433)))
-         (instance face :init :vertices (list (float-vector 72.9289 257.426 867.426) (float-vector 70.0 262.426 872.426) (float-vector 70.0 242.961 885.433) (float-vector 72.9289 240.255 878.9)))
-         (instance face :init :vertices (list (float-vector 72.9289 268.9 850.255) (float-vector 70.0 275.433 852.961) (float-vector 70.0 262.426 872.426) (float-vector 72.9289 257.426 867.426)))
-         (instance face :init :vertices (list (float-vector 70.0 280.0 830.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 272.929 830.0) (float-vector 70.0 280.0 830.0) (float-vector 70.0 275.433 852.961) (float-vector 72.9289 268.9 850.255)))
-         (instance face :init :vertices (list (float-vector 70.0 220.0 890.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 220.0 897.071) (float-vector 70.0 220.0 890.0) (float-vector 70.0 242.961 885.433) (float-vector 72.9289 245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 70.0 262.426 872.426) (float-vector 72.9289 267.426 877.426) (float-vector 72.9289 245.667 891.966) (float-vector 70.0 242.961 885.433)))
-         (instance face :init :vertices (list (float-vector 70.0 275.433 852.961) (float-vector 72.9289 281.966 855.667) (float-vector 72.9289 267.426 877.426) (float-vector 70.0 262.426 872.426)))
-         (instance face :init :vertices (list (float-vector 72.9289 287.071 830.0)))
-         (instance face :init :vertices (list (float-vector 70.0 280.0 830.0) (float-vector 72.9289 287.071 830.0) (float-vector 72.9289 281.966 855.667) (float-vector 70.0 275.433 852.961)))
-         (instance face :init :vertices (list (float-vector 72.9289 220.0 897.071)))
-         (instance face :init :vertices (list (float-vector 80.0 220.0 900.0) (float-vector 72.9289 220.0 897.071) (float-vector 72.9289 245.667 891.966) (float-vector 80.0 246.788 894.672)))
-         (instance face :init :vertices (list (float-vector 72.9289 267.426 877.426) (float-vector 80.0 269.497 879.497) (float-vector 80.0 246.788 894.672) (float-vector 72.9289 245.667 891.966)))
-         (instance face :init :vertices (list (float-vector 72.9289 281.966 855.667) (float-vector 80.0 284.672 856.788) (float-vector 80.0 269.497 879.497) (float-vector 72.9289 267.426 877.426)))
-         (instance face :init :vertices (list (float-vector 80.0 290.0 830.0)))
-         (instance face :init :vertices (list (float-vector 72.9289 287.071 830.0) (float-vector 80.0 290.0 830.0) (float-vector 80.0 284.672 856.788) (float-vector 72.9289 281.966 855.667)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 -15.5291) (float-vector 60.0 -15.0 7.105427e-15) (float-vector 57.9555 -15.0 15.5291) (float-vector 51.9615 -15.0 30.0) (float-vector 42.4264 -15.0 42.4264) (float-vector 30.0 -15.0 51.9615) (float-vector 15.5291 -15.0 57.9555) (float-vector 0.0 -15.0 60.0) (float-vector -15.5291 -15.0 57.9555) (float-vector -30.0 -15.0 51.9615) (float-vector -42.4264 -15.0 42.4264) (float-vector -51.9615 -15.0 30.0) (float-vector -57.9555 -15.0 15.5291) (float-vector -60.0 -15.0 6.394885e-14) (float-vector -57.9555 -15.0 -15.5291) (float-vector -51.9615 -15.0 -30.0) (float-vector -42.4264 -15.0 -42.4264) (float-vector -30.0 -15.0 -51.9615) (float-vector -15.5291 -15.0 -57.9555) (float-vector 0.0 -15.0 -60.0) (float-vector 15.5291 -15.0 -57.9555) (float-vector 30.0 -15.0 -51.9615) (float-vector 42.4264 -15.0 -42.4264) (float-vector 51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector 60.0 15.0 0.0) (float-vector 57.9555 15.0 -15.5291) (float-vector 51.9615 15.0 -30.0) (float-vector 42.4264 15.0 -42.4264) (float-vector 30.0 15.0 -51.9615) (float-vector 15.5291 15.0 -57.9555) (float-vector 0.0 15.0 -60.0) (float-vector -15.5291 15.0 -57.9555) (float-vector -30.0 15.0 -51.9615) (float-vector -42.4264 15.0 -42.4264) (float-vector -51.9615 15.0 -30.0) (float-vector -57.9555 15.0 -15.5291) (float-vector -60.0 15.0 6.394885e-14) (float-vector -57.9555 15.0 15.5291) (float-vector -51.9615 15.0 30.0) (float-vector -42.4264 15.0 42.4264) (float-vector -30.0 15.0 51.9615) (float-vector -15.5291 15.0 57.9555) (float-vector 0.0 15.0 60.0) (float-vector 15.5291 15.0 57.9555) (float-vector 30.0 15.0 51.9615) (float-vector 42.4264 15.0 42.4264) (float-vector 51.9615 15.0 30.0) (float-vector 57.9555 15.0 15.5291)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 -15.5291) (float-vector 57.9555 15.0 -15.5291) (float-vector 60.0 15.0 0.0) (float-vector 60.0 -15.0 7.105427e-15)))
+         (instance face :init :vertices (list (float-vector 51.9615 -15.0 -30.0) (float-vector 51.9615 15.0 -30.0) (float-vector 57.9555 15.0 -15.5291) (float-vector 57.9555 -15.0 -15.5291)))
+         (instance face :init :vertices (list (float-vector 42.4264 -15.0 -42.4264) (float-vector 42.4264 15.0 -42.4264) (float-vector 51.9615 15.0 -30.0) (float-vector 51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector 30.0 -15.0 -51.9615) (float-vector 30.0 15.0 -51.9615) (float-vector 42.4264 15.0 -42.4264) (float-vector 42.4264 -15.0 -42.4264)))
+         (instance face :init :vertices (list (float-vector 15.5291 -15.0 -57.9555) (float-vector 15.5291 15.0 -57.9555) (float-vector 30.0 15.0 -51.9615) (float-vector 30.0 -15.0 -51.9615)))
+         (instance face :init :vertices (list (float-vector 0.0 -15.0 -60.0) (float-vector 0.0 15.0 -60.0) (float-vector 15.5291 15.0 -57.9555) (float-vector 15.5291 -15.0 -57.9555)))
+         (instance face :init :vertices (list (float-vector -15.5291 -15.0 -57.9555) (float-vector -15.5291 15.0 -57.9555) (float-vector 0.0 15.0 -60.0) (float-vector 0.0 -15.0 -60.0)))
+         (instance face :init :vertices (list (float-vector -30.0 -15.0 -51.9615) (float-vector -30.0 15.0 -51.9615) (float-vector -15.5291 15.0 -57.9555) (float-vector -15.5291 -15.0 -57.9555)))
+         (instance face :init :vertices (list (float-vector -42.4264 -15.0 -42.4264) (float-vector -42.4264 15.0 -42.4264) (float-vector -30.0 15.0 -51.9615) (float-vector -30.0 -15.0 -51.9615)))
+         (instance face :init :vertices (list (float-vector -51.9615 -15.0 -30.0) (float-vector -51.9615 15.0 -30.0) (float-vector -42.4264 15.0 -42.4264) (float-vector -42.4264 -15.0 -42.4264)))
+         (instance face :init :vertices (list (float-vector -57.9555 -15.0 -15.5291) (float-vector -57.9555 15.0 -15.5291) (float-vector -51.9615 15.0 -30.0) (float-vector -51.9615 -15.0 -30.0)))
+         (instance face :init :vertices (list (float-vector -60.0 -15.0 6.394885e-14) (float-vector -60.0 15.0 6.394885e-14) (float-vector -57.9555 15.0 -15.5291) (float-vector -57.9555 -15.0 -15.5291)))
+         (instance face :init :vertices (list (float-vector -57.9555 -15.0 15.5291) (float-vector -57.9555 15.0 15.5291) (float-vector -60.0 15.0 6.394885e-14) (float-vector -60.0 -15.0 6.394885e-14)))
+         (instance face :init :vertices (list (float-vector -51.9615 -15.0 30.0) (float-vector -51.9615 15.0 30.0) (float-vector -57.9555 15.0 15.5291) (float-vector -57.9555 -15.0 15.5291)))
+         (instance face :init :vertices (list (float-vector -42.4264 -15.0 42.4264) (float-vector -42.4264 15.0 42.4264) (float-vector -51.9615 15.0 30.0) (float-vector -51.9615 -15.0 30.0)))
+         (instance face :init :vertices (list (float-vector -30.0 -15.0 51.9615) (float-vector -30.0 15.0 51.9615) (float-vector -42.4264 15.0 42.4264) (float-vector -42.4264 -15.0 42.4264)))
+         (instance face :init :vertices (list (float-vector -15.5291 -15.0 57.9555) (float-vector -15.5291 15.0 57.9555) (float-vector -30.0 15.0 51.9615) (float-vector -30.0 -15.0 51.9615)))
+         (instance face :init :vertices (list (float-vector 0.0 -15.0 60.0) (float-vector 0.0 15.0 60.0) (float-vector -15.5291 15.0 57.9555) (float-vector -15.5291 -15.0 57.9555)))
+         (instance face :init :vertices (list (float-vector 15.5291 -15.0 57.9555) (float-vector 15.5291 15.0 57.9555) (float-vector 0.0 15.0 60.0) (float-vector 0.0 -15.0 60.0)))
+         (instance face :init :vertices (list (float-vector 30.0 -15.0 51.9615) (float-vector 30.0 15.0 51.9615) (float-vector 15.5291 15.0 57.9555) (float-vector 15.5291 -15.0 57.9555)))
+         (instance face :init :vertices (list (float-vector 42.4264 -15.0 42.4264) (float-vector 42.4264 15.0 42.4264) (float-vector 30.0 15.0 51.9615) (float-vector 30.0 -15.0 51.9615)))
+         (instance face :init :vertices (list (float-vector 51.9615 -15.0 30.0) (float-vector 51.9615 15.0 30.0) (float-vector 42.4264 15.0 42.4264) (float-vector 42.4264 -15.0 42.4264)))
+         (instance face :init :vertices (list (float-vector 57.9555 -15.0 15.5291) (float-vector 57.9555 15.0 15.5291) (float-vector 51.9615 15.0 30.0) (float-vector 51.9615 -15.0 30.0)))
+         (instance face :init :vertices (list (float-vector 60.0 -15.0 7.105427e-15) (float-vector 60.0 15.0 0.0) (float-vector 57.9555 15.0 15.5291) (float-vector 57.9555 -15.0 15.5291)))
        ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :gray)
+     (setq blink7 (instance bodyset-link :init (make-cascoords) :bodies bc :name :front-right-wheel :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of :bar
+     (setq bc (list
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 88.6603 -285.0 830.0) (float-vector 90.0 -280.0 830.0) (float-vector 88.6603 -275.0 830.0) (float-vector 85.0 -271.34 830.0) (float-vector 80.0 -270.0 830.0) (float-vector 75.0 -271.34 830.0) (float-vector 71.3397 -275.0 830.0) (float-vector 70.0 -280.0 830.0) (float-vector 71.3397 -285.0 830.0) (float-vector 75.0 -288.66 830.0) (float-vector 80.0 -290.0 830.0) (float-vector 85.0 -288.66 830.0)))
-         (instance face :init :vertices (list (float-vector 90.0 -280.0 220.0) (float-vector 88.6603 -285.0 220.0) (float-vector 85.0 -288.66 220.0) (float-vector 80.0 -290.0 220.0) (float-vector 75.0 -288.66 220.0) (float-vector 71.3397 -285.0 220.0) (float-vector 70.0 -280.0 220.0) (float-vector 71.3397 -275.0 220.0) (float-vector 75.0 -271.34 220.0) (float-vector 80.0 -270.0 220.0) (float-vector 85.0 -271.34 220.0) (float-vector 88.6603 -275.0 220.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 -285.0 830.0) (float-vector 88.6603 -285.0 220.0) (float-vector 90.0 -280.0 220.0) (float-vector 90.0 -280.0 830.0)))
-         (instance face :init :vertices (list (float-vector 85.0 -288.66 830.0) (float-vector 85.0 -288.66 220.0) (float-vector 88.6603 -285.0 220.0) (float-vector 88.6603 -285.0 830.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -290.0 830.0) (float-vector 80.0 -290.0 220.0) (float-vector 85.0 -288.66 220.0) (float-vector 85.0 -288.66 830.0)))
-         (instance face :init :vertices (list (float-vector 75.0 -288.66 830.0) (float-vector 75.0 -288.66 220.0) (float-vector 80.0 -290.0 220.0) (float-vector 80.0 -290.0 830.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 -285.0 830.0) (float-vector 71.3397 -285.0 220.0) (float-vector 75.0 -288.66 220.0) (float-vector 75.0 -288.66 830.0)))
-         (instance face :init :vertices (list (float-vector 70.0 -280.0 830.0) (float-vector 70.0 -280.0 220.0) (float-vector 71.3397 -285.0 220.0) (float-vector 71.3397 -285.0 830.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 -275.0 830.0) (float-vector 71.3397 -275.0 220.0) (float-vector 70.0 -280.0 220.0) (float-vector 70.0 -280.0 830.0)))
-         (instance face :init :vertices (list (float-vector 75.0 -271.34 830.0) (float-vector 75.0 -271.34 220.0) (float-vector 71.3397 -275.0 220.0) (float-vector 71.3397 -275.0 830.0)))
-         (instance face :init :vertices (list (float-vector 80.0 -270.0 830.0) (float-vector 80.0 -270.0 220.0) (float-vector 75.0 -271.34 220.0) (float-vector 75.0 -271.34 830.0)))
-         (instance face :init :vertices (list (float-vector 85.0 -271.34 830.0) (float-vector 85.0 -271.34 220.0) (float-vector 80.0 -270.0 220.0) (float-vector 80.0 -270.0 830.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 -275.0 830.0) (float-vector 88.6603 -275.0 220.0) (float-vector 85.0 -271.34 220.0) (float-vector 85.0 -271.34 830.0)))
-         (instance face :init :vertices (list (float-vector 90.0 -280.0 830.0) (float-vector 90.0 -280.0 220.0) (float-vector 88.6603 -275.0 220.0) (float-vector 88.6603 -275.0 830.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 -220.0 665.0) (float-vector 10.0 -220.0 670.0) (float-vector 8.66025 -220.0 675.0) (float-vector 5.0 -220.0 678.66) (float-vector 1.136868e-13 -220.0 680.0) (float-vector -5.0 -220.0 678.66) (float-vector -8.66025 -220.0 675.0) (float-vector -10.0 -220.0 670.0) (float-vector -8.66025 -220.0 665.0) (float-vector -5.0 -220.0 661.34) (float-vector 1.136868e-13 -220.0 660.0) (float-vector 5.0 -220.0 661.34)))
+         (instance face :init :vertices (list (float-vector 10.0 220.0 670.0) (float-vector 8.66025 220.0 665.0) (float-vector 5.0 220.0 661.34) (float-vector 1.136868e-13 220.0 660.0) (float-vector -5.0 220.0 661.34) (float-vector -8.66025 220.0 665.0) (float-vector -10.0 220.0 670.0) (float-vector -8.66025 220.0 675.0) (float-vector -5.0 220.0 678.66) (float-vector 1.136868e-13 220.0 680.0) (float-vector 5.0 220.0 678.66) (float-vector 8.66025 220.0 675.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 -220.0 665.0) (float-vector 8.66025 220.0 665.0) (float-vector 10.0 220.0 670.0) (float-vector 10.0 -220.0 670.0)))
+         (instance face :init :vertices (list (float-vector 5.0 -220.0 661.34) (float-vector 5.0 220.0 661.34) (float-vector 8.66025 220.0 665.0) (float-vector 8.66025 -220.0 665.0)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 -220.0 660.0) (float-vector 1.136868e-13 220.0 660.0) (float-vector 5.0 220.0 661.34) (float-vector 5.0 -220.0 661.34)))
+         (instance face :init :vertices (list (float-vector -5.0 -220.0 661.34) (float-vector -5.0 220.0 661.34) (float-vector 1.136868e-13 220.0 660.0) (float-vector 1.136868e-13 -220.0 660.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 -220.0 665.0) (float-vector -8.66025 220.0 665.0) (float-vector -5.0 220.0 661.34) (float-vector -5.0 -220.0 661.34)))
+         (instance face :init :vertices (list (float-vector -10.0 -220.0 670.0) (float-vector -10.0 220.0 670.0) (float-vector -8.66025 220.0 665.0) (float-vector -8.66025 -220.0 665.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 -220.0 675.0) (float-vector -8.66025 220.0 675.0) (float-vector -10.0 220.0 670.0) (float-vector -10.0 -220.0 670.0)))
+         (instance face :init :vertices (list (float-vector -5.0 -220.0 678.66) (float-vector -5.0 220.0 678.66) (float-vector -8.66025 220.0 675.0) (float-vector -8.66025 -220.0 675.0)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 -220.0 680.0) (float-vector 1.136868e-13 220.0 680.0) (float-vector -5.0 220.0 678.66) (float-vector -5.0 -220.0 678.66)))
+         (instance face :init :vertices (list (float-vector 5.0 -220.0 678.66) (float-vector 5.0 220.0 678.66) (float-vector 1.136868e-13 220.0 680.0) (float-vector 1.136868e-13 -220.0 680.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 -220.0 675.0) (float-vector 8.66025 220.0 675.0) (float-vector 5.0 220.0 678.66) (float-vector 5.0 -220.0 678.66)))
+         (instance face :init :vertices (list (float-vector 10.0 -220.0 670.0) (float-vector 10.0 220.0 670.0) (float-vector 8.66025 220.0 675.0) (float-vector 8.66025 -220.0 675.0)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 88.6603 275.0 830.0) (float-vector 90.0 280.0 830.0) (float-vector 88.6603 285.0 830.0) (float-vector 85.0 288.66 830.0) (float-vector 80.0 290.0 830.0) (float-vector 75.0 288.66 830.0) (float-vector 71.3397 285.0 830.0) (float-vector 70.0 280.0 830.0) (float-vector 71.3397 275.0 830.0) (float-vector 75.0 271.34 830.0) (float-vector 80.0 270.0 830.0) (float-vector 85.0 271.34 830.0)))
-         (instance face :init :vertices (list (float-vector 90.0 280.0 220.0) (float-vector 88.6603 275.0 220.0) (float-vector 85.0 271.34 220.0) (float-vector 80.0 270.0 220.0) (float-vector 75.0 271.34 220.0) (float-vector 71.3397 275.0 220.0) (float-vector 70.0 280.0 220.0) (float-vector 71.3397 285.0 220.0) (float-vector 75.0 288.66 220.0) (float-vector 80.0 290.0 220.0) (float-vector 85.0 288.66 220.0) (float-vector 88.6603 285.0 220.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 275.0 830.0) (float-vector 88.6603 275.0 220.0) (float-vector 90.0 280.0 220.0) (float-vector 90.0 280.0 830.0)))
-         (instance face :init :vertices (list (float-vector 85.0 271.34 830.0) (float-vector 85.0 271.34 220.0) (float-vector 88.6603 275.0 220.0) (float-vector 88.6603 275.0 830.0)))
-         (instance face :init :vertices (list (float-vector 80.0 270.0 830.0) (float-vector 80.0 270.0 220.0) (float-vector 85.0 271.34 220.0) (float-vector 85.0 271.34 830.0)))
-         (instance face :init :vertices (list (float-vector 75.0 271.34 830.0) (float-vector 75.0 271.34 220.0) (float-vector 80.0 270.0 220.0) (float-vector 80.0 270.0 830.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 275.0 830.0) (float-vector 71.3397 275.0 220.0) (float-vector 75.0 271.34 220.0) (float-vector 75.0 271.34 830.0)))
-         (instance face :init :vertices (list (float-vector 70.0 280.0 830.0) (float-vector 70.0 280.0 220.0) (float-vector 71.3397 275.0 220.0) (float-vector 71.3397 275.0 830.0)))
-         (instance face :init :vertices (list (float-vector 71.3397 285.0 830.0) (float-vector 71.3397 285.0 220.0) (float-vector 70.0 280.0 220.0) (float-vector 70.0 280.0 830.0)))
-         (instance face :init :vertices (list (float-vector 75.0 288.66 830.0) (float-vector 75.0 288.66 220.0) (float-vector 71.3397 285.0 220.0) (float-vector 71.3397 285.0 830.0)))
-         (instance face :init :vertices (list (float-vector 80.0 290.0 830.0) (float-vector 80.0 290.0 220.0) (float-vector 75.0 288.66 220.0) (float-vector 75.0 288.66 830.0)))
-         (instance face :init :vertices (list (float-vector 85.0 288.66 830.0) (float-vector 85.0 288.66 220.0) (float-vector 80.0 290.0 220.0) (float-vector 80.0 290.0 830.0)))
-         (instance face :init :vertices (list (float-vector 88.6603 285.0 830.0) (float-vector 88.6603 285.0 220.0) (float-vector 85.0 288.66 220.0) (float-vector 85.0 288.66 830.0)))
-         (instance face :init :vertices (list (float-vector 90.0 280.0 830.0) (float-vector 90.0 280.0 220.0) (float-vector 88.6603 285.0 220.0) (float-vector 88.6603 285.0 830.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 -220.0 677.071)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 -220.0 680.0) (float-vector -7.07107 -220.0 677.071) (float-vector -7.07107 -245.667 671.966) (float-vector 1.136868e-13 -246.788 674.672)))
+         (instance face :init :vertices (list (float-vector -7.07107 -245.667 671.966) (float-vector -7.07107 -267.426 657.426) (float-vector 0.0 -269.497 659.497) (float-vector 1.136868e-13 -246.788 674.672)))
+         (instance face :init :vertices (list (float-vector -7.07107 -267.426 657.426) (float-vector -7.07107 -281.966 635.667) (float-vector 1.136868e-13 -284.672 636.788) (float-vector 0.0 -269.497 659.497)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 -290.0 610.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 -281.966 635.667) (float-vector -7.07107 -287.071 610.0) (float-vector 1.136868e-13 -290.0 610.0) (float-vector 1.136868e-13 -284.672 636.788)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 -220.0 680.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 -220.0 677.071) (float-vector 1.136868e-13 -220.0 680.0) (float-vector 1.136868e-13 -246.788 674.672) (float-vector 7.07107 -245.667 671.966)))
+         (instance face :init :vertices (list (float-vector 0.0 -269.497 659.497) (float-vector 7.07107 -267.426 657.426) (float-vector 7.07107 -245.667 671.966) (float-vector 1.136868e-13 -246.788 674.672)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 -284.672 636.788) (float-vector 7.07107 -281.966 635.667) (float-vector 7.07107 -267.426 657.426) (float-vector 0.0 -269.497 659.497)))
+         (instance face :init :vertices (list (float-vector 7.07107 -287.071 610.0)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 -290.0 610.0) (float-vector 7.07107 -287.071 610.0) (float-vector 7.07107 -281.966 635.667) (float-vector 1.136868e-13 -284.672 636.788)))
+         (instance face :init :vertices (list (float-vector 7.07107 -220.0 677.071)))
+         (instance face :init :vertices (list (float-vector 10.0 -220.0 670.0) (float-vector 7.07107 -220.0 677.071) (float-vector 7.07107 -245.667 671.966) (float-vector 10.0 -242.961 665.433)))
+         (instance face :init :vertices (list (float-vector 7.07107 -267.426 657.426) (float-vector 10.0 -262.426 652.426) (float-vector 10.0 -242.961 665.433) (float-vector 7.07107 -245.667 671.966)))
+         (instance face :init :vertices (list (float-vector 7.07107 -281.966 635.667) (float-vector 10.0 -275.433 632.961) (float-vector 10.0 -262.426 652.426) (float-vector 7.07107 -267.426 657.426)))
+         (instance face :init :vertices (list (float-vector 10.0 -280.0 610.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 -287.071 610.0) (float-vector 10.0 -280.0 610.0) (float-vector 10.0 -275.433 632.961) (float-vector 7.07107 -281.966 635.667)))
+         (instance face :init :vertices (list (float-vector 10.0 -220.0 670.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 -220.0 662.929) (float-vector 10.0 -220.0 670.0) (float-vector 10.0 -242.961 665.433) (float-vector 7.07107 -240.255 658.9)))
+         (instance face :init :vertices (list (float-vector 10.0 -262.426 652.426) (float-vector 7.07107 -257.426 647.426) (float-vector 7.07107 -240.255 658.9) (float-vector 10.0 -242.961 665.433)))
+         (instance face :init :vertices (list (float-vector 10.0 -275.433 632.961) (float-vector 7.07107 -268.9 630.255) (float-vector 7.07107 -257.426 647.426) (float-vector 10.0 -262.426 652.426)))
+         (instance face :init :vertices (list (float-vector 7.07107 -272.929 610.0)))
+         (instance face :init :vertices (list (float-vector 10.0 -280.0 610.0) (float-vector 7.07107 -272.929 610.0) (float-vector 7.07107 -268.9 630.255) (float-vector 10.0 -275.433 632.961)))
+         (instance face :init :vertices (list (float-vector 7.07107 -220.0 662.929)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 -220.0 660.0) (float-vector 7.07107 -220.0 662.929) (float-vector 7.07107 -240.255 658.9) (float-vector 1.136868e-13 -239.134 656.194)))
+         (instance face :init :vertices (list (float-vector 7.07107 -257.426 647.426) (float-vector 1.136868e-13 -255.355 645.355) (float-vector 1.136868e-13 -239.134 656.194) (float-vector 7.07107 -240.255 658.9)))
+         (instance face :init :vertices (list (float-vector 7.07107 -268.9 630.255) (float-vector 0.0 -266.194 629.134) (float-vector 1.136868e-13 -255.355 645.355) (float-vector 7.07107 -257.426 647.426)))
+         (instance face :init :vertices (list (float-vector 0.0 -270.0 610.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 -272.929 610.0) (float-vector 0.0 -270.0 610.0) (float-vector 0.0 -266.194 629.134) (float-vector 7.07107 -268.9 630.255)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 -220.0 660.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 -220.0 662.929) (float-vector 1.136868e-13 -220.0 660.0) (float-vector 1.136868e-13 -239.134 656.194) (float-vector -7.07107 -240.255 658.9)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 -255.355 645.355) (float-vector -7.07107 -257.426 647.426) (float-vector -7.07107 -240.255 658.9) (float-vector 1.136868e-13 -239.134 656.194)))
+         (instance face :init :vertices (list (float-vector 0.0 -266.194 629.134) (float-vector -7.07107 -268.9 630.255) (float-vector -7.07107 -257.426 647.426) (float-vector 1.136868e-13 -255.355 645.355)))
+         (instance face :init :vertices (list (float-vector -7.07107 -272.929 610.0)))
+         (instance face :init :vertices (list (float-vector 0.0 -270.0 610.0) (float-vector -7.07107 -272.929 610.0) (float-vector -7.07107 -268.9 630.255) (float-vector 0.0 -266.194 629.134)))
+         (instance face :init :vertices (list (float-vector -7.07107 -220.0 662.929)))
+         (instance face :init :vertices (list (float-vector -10.0 -220.0 670.0) (float-vector -7.07107 -220.0 662.929) (float-vector -7.07107 -240.255 658.9) (float-vector -10.0 -242.961 665.433)))
+         (instance face :init :vertices (list (float-vector -7.07107 -257.426 647.426) (float-vector -10.0 -262.426 652.426) (float-vector -10.0 -242.961 665.433) (float-vector -7.07107 -240.255 658.9)))
+         (instance face :init :vertices (list (float-vector -7.07107 -268.9 630.255) (float-vector -10.0 -275.433 632.961) (float-vector -10.0 -262.426 652.426) (float-vector -7.07107 -257.426 647.426)))
+         (instance face :init :vertices (list (float-vector -10.0 -280.0 610.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 -272.929 610.0) (float-vector -10.0 -280.0 610.0) (float-vector -10.0 -275.433 632.961) (float-vector -7.07107 -268.9 630.255)))
+         (instance face :init :vertices (list (float-vector -10.0 -220.0 670.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 -220.0 677.071) (float-vector -10.0 -220.0 670.0) (float-vector -10.0 -242.961 665.433) (float-vector -7.07107 -245.667 671.966)))
+         (instance face :init :vertices (list (float-vector -10.0 -262.426 652.426) (float-vector -7.07107 -267.426 657.426) (float-vector -7.07107 -245.667 671.966) (float-vector -10.0 -242.961 665.433)))
+         (instance face :init :vertices (list (float-vector -10.0 -275.433 632.961) (float-vector -7.07107 -281.966 635.667) (float-vector -7.07107 -267.426 657.426) (float-vector -10.0 -262.426 652.426)))
+         (instance face :init :vertices (list (float-vector -7.07107 -287.071 610.0)))
+         (instance face :init :vertices (list (float-vector -10.0 -280.0 610.0) (float-vector -7.07107 -287.071 610.0) (float-vector -7.07107 -281.966 635.667) (float-vector -10.0 -275.433 632.961)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 900.0 300.0 220.0) (float-vector 0.0 300.0 220.0) (float-vector 0.0 -300.0 220.0) (float-vector 900.0 -300.0 220.0)))
-         (instance face :init :vertices (list (float-vector 0.0 300.0 170.0) (float-vector 900.0 300.0 170.0) (float-vector 900.0 -300.0 170.0) (float-vector 0.0 -300.0 170.0)))
-         (instance face :init :vertices (list (float-vector 900.0 300.0 220.0) (float-vector 900.0 300.0 170.0) (float-vector 0.0 300.0 170.0) (float-vector 0.0 300.0 220.0)))
-         (instance face :init :vertices (list (float-vector 900.0 -300.0 220.0) (float-vector 900.0 -300.0 170.0) (float-vector 900.0 300.0 170.0) (float-vector 900.0 300.0 220.0)))
-         (instance face :init :vertices (list (float-vector 0.0 -300.0 220.0) (float-vector 0.0 -300.0 170.0) (float-vector 900.0 -300.0 170.0) (float-vector 900.0 -300.0 220.0)))
-         (instance face :init :vertices (list (float-vector 0.0 300.0 220.0) (float-vector 0.0 300.0 170.0) (float-vector 0.0 -300.0 170.0) (float-vector 0.0 -300.0 220.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 220.0 677.071)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 220.0 680.0) (float-vector 7.07107 220.0 677.071) (float-vector 7.07107 245.667 671.966) (float-vector 1.136868e-13 246.788 674.672)))
+         (instance face :init :vertices (list (float-vector 7.07107 245.667 671.966) (float-vector 7.07107 267.426 657.426) (float-vector 1.136868e-13 269.497 659.497) (float-vector 1.136868e-13 246.788 674.672)))
+         (instance face :init :vertices (list (float-vector 7.07107 267.426 657.426) (float-vector 7.07107 281.966 635.667) (float-vector 1.136868e-13 284.672 636.788) (float-vector 1.136868e-13 269.497 659.497)))
+         (instance face :init :vertices (list (float-vector 0.0 290.0 610.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 281.966 635.667) (float-vector 7.07107 287.071 610.0) (float-vector 0.0 290.0 610.0) (float-vector 1.136868e-13 284.672 636.788)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 220.0 680.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 220.0 677.071) (float-vector 1.136868e-13 220.0 680.0) (float-vector 1.136868e-13 246.788 674.672) (float-vector -7.07107 245.667 671.966)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 269.497 659.497) (float-vector -7.07107 267.426 657.426) (float-vector -7.07107 245.667 671.966) (float-vector 1.136868e-13 246.788 674.672)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 284.672 636.788) (float-vector -7.07107 281.966 635.667) (float-vector -7.07107 267.426 657.426) (float-vector 1.136868e-13 269.497 659.497)))
+         (instance face :init :vertices (list (float-vector -7.07107 287.071 610.0)))
+         (instance face :init :vertices (list (float-vector 0.0 290.0 610.0) (float-vector -7.07107 287.071 610.0) (float-vector -7.07107 281.966 635.667) (float-vector 1.136868e-13 284.672 636.788)))
+         (instance face :init :vertices (list (float-vector -7.07107 220.0 677.071)))
+         (instance face :init :vertices (list (float-vector -10.0 220.0 670.0) (float-vector -7.07107 220.0 677.071) (float-vector -7.07107 245.667 671.966) (float-vector -10.0 242.961 665.433)))
+         (instance face :init :vertices (list (float-vector -7.07107 267.426 657.426) (float-vector -10.0 262.426 652.426) (float-vector -10.0 242.961 665.433) (float-vector -7.07107 245.667 671.966)))
+         (instance face :init :vertices (list (float-vector -7.07107 281.966 635.667) (float-vector -10.0 275.433 632.961) (float-vector -10.0 262.426 652.426) (float-vector -7.07107 267.426 657.426)))
+         (instance face :init :vertices (list (float-vector -10.0 280.0 610.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 287.071 610.0) (float-vector -10.0 280.0 610.0) (float-vector -10.0 275.433 632.961) (float-vector -7.07107 281.966 635.667)))
+         (instance face :init :vertices (list (float-vector -10.0 220.0 670.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 220.0 662.929) (float-vector -10.0 220.0 670.0) (float-vector -10.0 242.961 665.433) (float-vector -7.07107 240.255 658.9)))
+         (instance face :init :vertices (list (float-vector -10.0 262.426 652.426) (float-vector -7.07107 257.426 647.426) (float-vector -7.07107 240.255 658.9) (float-vector -10.0 242.961 665.433)))
+         (instance face :init :vertices (list (float-vector -10.0 275.433 632.961) (float-vector -7.07107 268.9 630.255) (float-vector -7.07107 257.426 647.426) (float-vector -10.0 262.426 652.426)))
+         (instance face :init :vertices (list (float-vector -7.07107 272.929 610.0)))
+         (instance face :init :vertices (list (float-vector -10.0 280.0 610.0) (float-vector -7.07107 272.929 610.0) (float-vector -7.07107 268.9 630.255) (float-vector -10.0 275.433 632.961)))
+         (instance face :init :vertices (list (float-vector -7.07107 220.0 662.929)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 220.0 660.0) (float-vector -7.07107 220.0 662.929) (float-vector -7.07107 240.255 658.9) (float-vector 1.136868e-13 239.134 656.194)))
+         (instance face :init :vertices (list (float-vector -7.07107 257.426 647.426) (float-vector 1.136868e-13 255.355 645.355) (float-vector 1.136868e-13 239.134 656.194) (float-vector -7.07107 240.255 658.9)))
+         (instance face :init :vertices (list (float-vector -7.07107 268.9 630.255) (float-vector 1.136868e-13 266.194 629.134) (float-vector 1.136868e-13 255.355 645.355) (float-vector -7.07107 257.426 647.426)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 270.0 610.0)))
+         (instance face :init :vertices (list (float-vector -7.07107 272.929 610.0) (float-vector 1.136868e-13 270.0 610.0) (float-vector 1.136868e-13 266.194 629.134) (float-vector -7.07107 268.9 630.255)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 220.0 660.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 220.0 662.929) (float-vector 1.136868e-13 220.0 660.0) (float-vector 1.136868e-13 239.134 656.194) (float-vector 7.07107 240.255 658.9)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 255.355 645.355) (float-vector 7.07107 257.426 647.426) (float-vector 7.07107 240.255 658.9) (float-vector 1.136868e-13 239.134 656.194)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 266.194 629.134) (float-vector 7.07107 268.9 630.255) (float-vector 7.07107 257.426 647.426) (float-vector 1.136868e-13 255.355 645.355)))
+         (instance face :init :vertices (list (float-vector 7.07107 272.929 610.0)))
+         (instance face :init :vertices (list (float-vector 1.136868e-13 270.0 610.0) (float-vector 7.07107 272.929 610.0) (float-vector 7.07107 268.9 630.255) (float-vector 1.136868e-13 266.194 629.134)))
+         (instance face :init :vertices (list (float-vector 7.07107 220.0 662.929)))
+         (instance face :init :vertices (list (float-vector 10.0 220.0 670.0) (float-vector 7.07107 220.0 662.929) (float-vector 7.07107 240.255 658.9) (float-vector 10.0 242.961 665.433)))
+         (instance face :init :vertices (list (float-vector 7.07107 257.426 647.426) (float-vector 10.0 262.426 652.426) (float-vector 10.0 242.961 665.433) (float-vector 7.07107 240.255 658.9)))
+         (instance face :init :vertices (list (float-vector 7.07107 268.9 630.255) (float-vector 10.0 275.433 632.961) (float-vector 10.0 262.426 652.426) (float-vector 7.07107 257.426 647.426)))
+         (instance face :init :vertices (list (float-vector 10.0 280.0 610.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 272.929 610.0) (float-vector 10.0 280.0 610.0) (float-vector 10.0 275.433 632.961) (float-vector 7.07107 268.9 630.255)))
+         (instance face :init :vertices (list (float-vector 10.0 220.0 670.0)))
+         (instance face :init :vertices (list (float-vector 7.07107 220.0 677.071) (float-vector 10.0 220.0 670.0) (float-vector 10.0 242.961 665.433) (float-vector 7.07107 245.667 671.966)))
+         (instance face :init :vertices (list (float-vector 10.0 262.426 652.426) (float-vector 7.07107 267.426 657.426) (float-vector 7.07107 245.667 671.966) (float-vector 10.0 242.961 665.433)))
+         (instance face :init :vertices (list (float-vector 10.0 275.433 632.961) (float-vector 7.07107 281.966 635.667) (float-vector 7.07107 267.426 657.426) (float-vector 10.0 262.426 652.426)))
+         (instance face :init :vertices (list (float-vector 7.07107 287.071 610.0)))
+         (instance face :init :vertices (list (float-vector 10.0 280.0 610.0) (float-vector 7.07107 287.071 610.0) (float-vector 7.07107 281.966 635.667) (float-vector 10.0 275.433 632.961)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 8.66025 -285.0 610.0) (float-vector 10.0 -280.0 610.0) (float-vector 8.66025 -275.0 610.0) (float-vector 5.0 -271.34 610.0) (float-vector 0.0 -270.0 610.0) (float-vector -5.0 -271.34 610.0) (float-vector -8.66025 -275.0 610.0) (float-vector -10.0 -280.0 610.0) (float-vector -8.66025 -285.0 610.0) (float-vector -5.0 -288.66 610.0) (float-vector 0.0 -290.0 610.0) (float-vector 5.0 -288.66 610.0)))
+         (instance face :init :vertices (list (float-vector 10.0 -280.0 1.136868e-13) (float-vector 8.66025 -285.0 1.136868e-13) (float-vector 5.0 -288.66 1.136868e-13) (float-vector 1.136868e-13 -290.0 1.136868e-13) (float-vector -5.0 -288.66 1.136868e-13) (float-vector -8.66025 -285.0 1.136868e-13) (float-vector -10.0 -280.0 1.136868e-13) (float-vector -8.66025 -275.0 1.136868e-13) (float-vector -5.0 -271.34 1.136868e-13) (float-vector 1.136868e-13 -270.0 1.136868e-13) (float-vector 5.0 -271.34 1.136868e-13) (float-vector 8.66025 -275.0 1.136868e-13)))
+         (instance face :init :vertices (list (float-vector 8.66025 -285.0 610.0) (float-vector 8.66025 -285.0 1.136868e-13) (float-vector 10.0 -280.0 1.136868e-13) (float-vector 10.0 -280.0 610.0)))
+         (instance face :init :vertices (list (float-vector 5.0 -288.66 610.0) (float-vector 5.0 -288.66 1.136868e-13) (float-vector 8.66025 -285.0 1.136868e-13) (float-vector 8.66025 -285.0 610.0)))
+         (instance face :init :vertices (list (float-vector 0.0 -290.0 610.0) (float-vector 1.136868e-13 -290.0 1.136868e-13) (float-vector 5.0 -288.66 1.136868e-13) (float-vector 5.0 -288.66 610.0)))
+         (instance face :init :vertices (list (float-vector -5.0 -288.66 610.0) (float-vector -5.0 -288.66 1.136868e-13) (float-vector 1.136868e-13 -290.0 1.136868e-13) (float-vector 0.0 -290.0 610.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 -285.0 610.0) (float-vector -8.66025 -285.0 1.136868e-13) (float-vector -5.0 -288.66 1.136868e-13) (float-vector -5.0 -288.66 610.0)))
+         (instance face :init :vertices (list (float-vector -10.0 -280.0 610.0) (float-vector -10.0 -280.0 1.136868e-13) (float-vector -8.66025 -285.0 1.136868e-13) (float-vector -8.66025 -285.0 610.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 -275.0 610.0) (float-vector -8.66025 -275.0 1.136868e-13) (float-vector -10.0 -280.0 1.136868e-13) (float-vector -10.0 -280.0 610.0)))
+         (instance face :init :vertices (list (float-vector -5.0 -271.34 610.0) (float-vector -5.0 -271.34 1.136868e-13) (float-vector -8.66025 -275.0 1.136868e-13) (float-vector -8.66025 -275.0 610.0)))
+         (instance face :init :vertices (list (float-vector 0.0 -270.0 610.0) (float-vector 1.136868e-13 -270.0 1.136868e-13) (float-vector -5.0 -271.34 1.136868e-13) (float-vector -5.0 -271.34 610.0)))
+         (instance face :init :vertices (list (float-vector 5.0 -271.34 610.0) (float-vector 5.0 -271.34 1.136868e-13) (float-vector 1.136868e-13 -270.0 1.136868e-13) (float-vector 0.0 -270.0 610.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 -275.0 610.0) (float-vector 8.66025 -275.0 1.136868e-13) (float-vector 5.0 -271.34 1.136868e-13) (float-vector 5.0 -271.34 610.0)))
+         (instance face :init :vertices (list (float-vector 10.0 -280.0 610.0) (float-vector 10.0 -280.0 1.136868e-13) (float-vector 8.66025 -275.0 1.136868e-13) (float-vector 8.66025 -275.0 610.0)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 8.66025 275.0 610.0) (float-vector 10.0 280.0 610.0) (float-vector 8.66025 285.0 610.0) (float-vector 5.0 288.66 610.0) (float-vector 0.0 290.0 610.0) (float-vector -5.0 288.66 610.0) (float-vector -8.66025 285.0 610.0) (float-vector -10.0 280.0 610.0) (float-vector -8.66025 275.0 610.0) (float-vector -5.0 271.34 610.0) (float-vector 0.0 270.0 610.0) (float-vector 5.0 271.34 610.0)))
+         (instance face :init :vertices (list (float-vector 10.0 280.0 0.0) (float-vector 8.66025 275.0 0.0) (float-vector 5.0 271.34 0.0) (float-vector 1.136868e-13 270.0 0.0) (float-vector -5.0 271.34 0.0) (float-vector -8.66025 275.0 0.0) (float-vector -10.0 280.0 0.0) (float-vector -8.66025 285.0 0.0) (float-vector -5.0 288.66 0.0) (float-vector 1.136868e-13 290.0 0.0) (float-vector 5.0 288.66 0.0) (float-vector 8.66025 285.0 0.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 275.0 610.0) (float-vector 8.66025 275.0 0.0) (float-vector 10.0 280.0 0.0) (float-vector 10.0 280.0 610.0)))
+         (instance face :init :vertices (list (float-vector 5.0 271.34 610.0) (float-vector 5.0 271.34 0.0) (float-vector 8.66025 275.0 0.0) (float-vector 8.66025 275.0 610.0)))
+         (instance face :init :vertices (list (float-vector 0.0 270.0 610.0) (float-vector 1.136868e-13 270.0 0.0) (float-vector 5.0 271.34 0.0) (float-vector 5.0 271.34 610.0)))
+         (instance face :init :vertices (list (float-vector -5.0 271.34 610.0) (float-vector -5.0 271.34 0.0) (float-vector 1.136868e-13 270.0 0.0) (float-vector 0.0 270.0 610.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 275.0 610.0) (float-vector -8.66025 275.0 0.0) (float-vector -5.0 271.34 0.0) (float-vector -5.0 271.34 610.0)))
+         (instance face :init :vertices (list (float-vector -10.0 280.0 610.0) (float-vector -10.0 280.0 0.0) (float-vector -8.66025 275.0 0.0) (float-vector -8.66025 275.0 610.0)))
+         (instance face :init :vertices (list (float-vector -8.66025 285.0 610.0) (float-vector -8.66025 285.0 0.0) (float-vector -10.0 280.0 0.0) (float-vector -10.0 280.0 610.0)))
+         (instance face :init :vertices (list (float-vector -5.0 288.66 610.0) (float-vector -5.0 288.66 0.0) (float-vector -8.66025 285.0 0.0) (float-vector -8.66025 285.0 610.0)))
+         (instance face :init :vertices (list (float-vector 0.0 290.0 610.0) (float-vector 1.136868e-13 290.0 0.0) (float-vector -5.0 288.66 0.0) (float-vector -5.0 288.66 610.0)))
+         (instance face :init :vertices (list (float-vector 5.0 288.66 610.0) (float-vector 5.0 288.66 0.0) (float-vector 1.136868e-13 290.0 0.0) (float-vector 0.0 290.0 610.0)))
+         (instance face :init :vertices (list (float-vector 8.66025 285.0 610.0) (float-vector 8.66025 285.0 0.0) (float-vector 5.0 288.66 0.0) (float-vector 5.0 288.66 610.0)))
+         (instance face :init :vertices (list (float-vector 10.0 280.0 610.0) (float-vector 10.0 280.0 0.0) (float-vector 8.66025 285.0 0.0) (float-vector 8.66025 285.0 610.0)))
        ))
        ))
      (dolist (b (cdr bc)) (send (car bc) :assoc b))
@@ -311,28 +414,64 @@
      (send (elt bc 2) :set-color :gray)
      (send (elt bc 3) :set-color :gray)
      (send (elt bc 4) :set-color :gray)
-     (send (elt bc 5) :set-color :gray)
-     (send (elt bc 6) :set-color :gray)
-     (send (elt bc 7) :set-color :gray)
-     (send (elt bc 8) :set-color :gray)
-     (send (elt bc 9) :set-color :gray)
-     (send (elt bc 10) :set-color :gray)
-     (send (elt bc 11) :set-color :gray)
-     (send (elt bc 12) :set-color :gray)
-     (send (elt bc 13) :set-color :gray)
-     (send (elt bc 14) :set-color :gray)
-     (send (elt bc 15) :set-color :gray)
-     (send (elt bc 16) :set-color :gray)
-     (send (elt bc 17) :set-color :blue)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-gifuplastic-900-cart-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name :bar :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
 
      ;; definition of assoc
+     (send blink5 :newcoords (make-coords :pos (float-vector -30.0 0.0 -110.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink4 :assoc blink5)
+     (send blink7 :newcoords (make-coords :pos (float-vector -30.0 0.0 -110.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink6 :assoc blink7)
+     (send blink1 :newcoords (make-coords :pos (float-vector 80.0 0.0 220.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink0 :assoc blink1)
+     (send blink6 :newcoords (make-coords :pos (float-vector 700.0 -245.0 170.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink0 :assoc blink6)
+     (send blink4 :newcoords (make-coords :pos (float-vector 700.0 245.0 170.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink0 :assoc blink4)
+     (send blink3 :newcoords (make-coords :pos (float-vector 140.0 -245.0 60.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink0 :assoc blink3)
+     (send blink2 :newcoords (make-coords :pos (float-vector 140.0 245.0 60.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+     (send blink0 :assoc blink2)
      (send self :assoc blink0)
 
      ;; definition of end-coords
 
      ;; definition of joint
 
+     ;; definition of :bar
+     (setq joint0 (instance rotational-joint :init
+			     :parent-link blink0 :child-link blink1 :name :bar       :axis :y 
+			     :min    0.0 :max   90.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :rear-left-wheel
+     (setq joint1 (instance rotational-joint :init
+			     :parent-link blink0 :child-link blink2 :name :rear-left-wheel :axis :y 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :rear-right-wheel
+     (setq joint2 (instance rotational-joint :init
+			     :parent-link blink0 :child-link blink3 :name :rear-right-wheel :axis :y 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :left-front-fork
+     (setq joint3 (instance rotational-joint :init
+			     :parent-link blink0 :child-link blink4 :name :left-front-fork :axis :z 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :front-left-wheel
+     (setq joint4 (instance rotational-joint :init
+			     :parent-link blink4 :child-link blink5 :name :front-left-wheel :axis :y 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :right-front-fork
+     (setq joint5 (instance rotational-joint :init
+			     :parent-link blink0 :child-link blink6 :name :right-front-fork :axis :z 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+     ;; definition of :front-right-wheel
+     (setq joint6 (instance rotational-joint :init
+			     :parent-link blink6 :child-link blink7 :name :front-right-wheel :axis :y 
+			     :min -10000000000.0 :max 10000000000.0 :max-joint-velocity 5 :max-joint-torque 100))
+
 
      ;; definition of :handle
      (setq handle0 (make-cascoords :pos (float-vector 80.0 240.0 850.0) :rot #2f((1.0 -8.132804e-17 9.377201e-17) (1.238144e-16 0.707107 -0.707107) (-8.799221e-18 0.707107 0.707107)) :name ":larm"))
@@ -343,14 +482,21 @@
      (send blink0 :assoc handle2)
 
      ;; init-ending 
-     (setq links (list blink0))
-     (setq joint-list (list))
+     (setq links (list blink0 blink1 blink2 blink3 blink4 blink5 blink6 blink7))
+     (setq joint-list (list joint0 joint1 joint2 joint3 joint4 joint5 joint6))
      (send self :init-ending)
      (send self :move-to (make-coords :pos pos :rot rot))
      (send-all links :worldcoords)
 
      self))
 
+  (:bar (&rest args) (forward-message-to joint0 args))
+  (:rear-left-wheel (&rest args) (forward-message-to joint1 args))
+  (:rear-right-wheel (&rest args) (forward-message-to joint2 args))
+  (:left-front-fork (&rest args) (forward-message-to joint3 args))
+  (:front-left-wheel (&rest args) (forward-message-to joint4 args))
+  (:right-front-fork (&rest args) (forward-message-to joint5 args))
+  (:front-right-wheel (&rest args) (forward-message-to joint6 args))
   (:handle (&rest args) (forward-message-to-all (list  handle0 handle1 handle2) args))
   (:handle-larm (&rest args) (forward-message-to handle0 args))
   (:handle-rarm (&rest args) (forward-message-to handle1 args))
diff --git a/models/room73b2-hrp2-parts-drawer-object.l b/models/room73b2-hrp2-parts-drawer-object.l
index b9c173cb..2d0bd145 100644
--- a/models/room73b2-hrp2-parts-drawer-object.l
+++ b/models/room73b2-hrp2-parts-drawer-object.l
@@ -466,15 +466,15 @@
      ;; definition of :handle
      (setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
      (send blink0 :assoc handle0)
-     (setq handle1 (make-cascoords :pos (float-vector 233.0 0.0 340.0) :rot #2f((-1.0 -1.224647e-16 0.0) (2.465190e-32 -2.220446e-16 -1.0) (1.224647e-16 -1.0 2.220446e-16)) :name ":drawer-handle0"))
+     (setq handle1 (make-cascoords :pos (float-vector 233.0 -6.821210e-13 340.0) :rot #2f((-1.0 -1.224647e-16 0.0) (2.465190e-32 -2.220446e-16 -1.0) (1.224647e-16 -1.0 2.220446e-16)) :name ":drawer-handle0"))
      (send blink1 :assoc handle1)
-     (setq handle2 (make-cascoords :pos (float-vector 233.0 -4.547474e-13 492.5) :rot #2f((-1.0 -1.224647e-16 0.0) (2.465190e-32 -2.220446e-16 -1.0) (1.224647e-16 -1.0 2.220446e-16)) :name ":drawer-handle1"))
+     (setq handle2 (make-cascoords :pos (float-vector 233.0 -9.094947e-13 492.5) :rot #2f((-1.0 -1.224647e-16 0.0) (2.465190e-32 -2.220446e-16 -1.0) (1.224647e-16 -1.0 2.220446e-16)) :name ":drawer-handle1"))
      (send blink2 :assoc handle2)
-     (setq handle3 (make-cascoords :pos (float-vector 233.0 4.547474e-13 675.0) :rot #2f((-1.0 -1.224647e-16 0.0) (2.465190e-32 -2.220446e-16 -1.0) (1.224647e-16 -1.0 2.220446e-16)) :name ":drawer-handle2"))
+     (setq handle3 (make-cascoords :pos (float-vector 233.0 0.0 675.0) :rot #2f((-1.0 -1.224647e-16 0.0) (2.465190e-32 -2.220446e-16 -1.0) (1.224647e-16 -1.0 2.220446e-16)) :name ":drawer-handle2"))
      (send blink3 :assoc handle3)
-     (setq handle4 (make-cascoords :pos (float-vector 233.0 4.547474e-13 857.5) :rot #2f((-1.0 -1.224647e-16 0.0) (2.465190e-32 -2.220446e-16 -1.0) (1.224647e-16 -1.0 2.220446e-16)) :name ":drawer-handle3"))
+     (setq handle4 (make-cascoords :pos (float-vector 233.0 0.0 857.5) :rot #2f((-1.0 -1.224647e-16 0.0) (2.465190e-32 -2.220446e-16 -1.0) (1.224647e-16 -1.0 2.220446e-16)) :name ":drawer-handle3"))
      (send blink4 :assoc handle4)
-     (setq handle5 (make-cascoords :pos (float-vector 233.0 4.547474e-13 1040.0) :rot #2f((-1.0 -1.224647e-16 0.0) (2.465190e-32 -2.220446e-16 -1.0) (1.224647e-16 -1.0 2.220446e-16)) :name ":drawer-handle4"))
+     (setq handle5 (make-cascoords :pos (float-vector 233.0 0.0 1040.0) :rot #2f((-1.0 -1.224647e-16 0.0) (2.465190e-32 -2.220446e-16 -1.0) (1.224647e-16 -1.0 2.220446e-16)) :name ":drawer-handle4"))
      (send blink5 :assoc handle5)
 
      ;; init-ending 
diff --git a/models/room73b2-locker1-object.l b/models/room73b2-locker1-object.l
deleted file mode 100644
index d484fea9..00000000
--- a/models/room73b2-locker1-object.l
+++ /dev/null
@@ -1,176 +0,0 @@
-;;
-;; DO NOT EDIT THIS FILE
-;; this file is automatically generated from euslisp+euslib version 
-;;
-;;
-(defclass room73b2-locker1-object
-  :super cascaded-link
-  :slots (sensors
-         handle0
-         joint0 ))
-(defmethod room73b2-locker1-object
-  (:init
-   (&rest args &key (name "room73b2-locker1") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
-   (let (c bc
-         blink0 blink1
-                 )
-     (send-super* :init :name name args)
-
-     ;; definition of link
-
-     ;; definition of :root
-     (setq bc (list
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 225.0 225.0 2150.0) (float-vector -225.0 225.0 2150.0) (float-vector -225.0 -225.0 2150.0) (float-vector 225.0 -225.0 2150.0)))
-         (instance face :init :vertices (list (float-vector -225.0 225.0 2130.0) (float-vector 225.0 225.0 2130.0) (float-vector 225.0 -225.0 2130.0) (float-vector -225.0 -225.0 2130.0)))
-         (instance face :init :vertices (list (float-vector 225.0 225.0 2150.0) (float-vector 225.0 225.0 2130.0) (float-vector -225.0 225.0 2130.0) (float-vector -225.0 225.0 2150.0)))
-         (instance face :init :vertices (list (float-vector 225.0 -225.0 2150.0) (float-vector 225.0 -225.0 2130.0) (float-vector 225.0 225.0 2130.0) (float-vector 225.0 225.0 2150.0)))
-         (instance face :init :vertices (list (float-vector -225.0 -225.0 2150.0) (float-vector -225.0 -225.0 2130.0) (float-vector 225.0 -225.0 2130.0) (float-vector 225.0 -225.0 2150.0)))
-         (instance face :init :vertices (list (float-vector -225.0 225.0 2150.0) (float-vector -225.0 225.0 2130.0) (float-vector -225.0 -225.0 2130.0) (float-vector -225.0 -225.0 2150.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 225.0 225.0 60.0) (float-vector -225.0 225.0 60.0) (float-vector -225.0 -225.0 60.0) (float-vector 225.0 -225.0 60.0)))
-         (instance face :init :vertices (list (float-vector -225.0 225.0 0.0) (float-vector 225.0 225.0 0.0) (float-vector 225.0 -225.0 0.0) (float-vector -225.0 -225.0 0.0)))
-         (instance face :init :vertices (list (float-vector 225.0 225.0 60.0) (float-vector 225.0 225.0 0.0) (float-vector -225.0 225.0 0.0) (float-vector -225.0 225.0 60.0)))
-         (instance face :init :vertices (list (float-vector 225.0 -225.0 60.0) (float-vector 225.0 -225.0 0.0) (float-vector 225.0 225.0 0.0) (float-vector 225.0 225.0 60.0)))
-         (instance face :init :vertices (list (float-vector -225.0 -225.0 60.0) (float-vector -225.0 -225.0 0.0) (float-vector 225.0 -225.0 0.0) (float-vector 225.0 -225.0 60.0)))
-         (instance face :init :vertices (list (float-vector -225.0 225.0 60.0) (float-vector -225.0 225.0 0.0) (float-vector -225.0 -225.0 0.0) (float-vector -225.0 -225.0 60.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector -210.5 210.0 2130.0) (float-vector -225.5 210.0 2130.0) (float-vector -225.5 -210.0 2130.0) (float-vector -210.5 -210.0 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.5 210.0 60.0) (float-vector -210.5 210.0 60.0) (float-vector -210.5 -210.0 60.0) (float-vector -225.5 -210.0 60.0)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 2130.0) (float-vector -210.5 210.0 60.0) (float-vector -225.5 210.0 60.0) (float-vector -225.5 210.0 2130.0)))
-         (instance face :init :vertices (list (float-vector -210.5 -210.0 2130.0) (float-vector -210.5 -210.0 60.0) (float-vector -210.5 210.0 60.0) (float-vector -210.5 210.0 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.5 -210.0 2130.0) (float-vector -225.5 -210.0 60.0) (float-vector -210.5 -210.0 60.0) (float-vector -210.5 -210.0 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.5 210.0 2130.0) (float-vector -225.5 210.0 60.0) (float-vector -225.5 -210.0 60.0) (float-vector -225.5 -210.0 2130.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 205.0 225.5 2130.0) (float-vector -225.0 225.5 2130.0) (float-vector -225.0 210.5 2130.0) (float-vector 205.0 210.5 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.0 225.5 60.0) (float-vector 205.0 225.5 60.0) (float-vector 205.0 210.5 60.0) (float-vector -225.0 210.5 60.0)))
-         (instance face :init :vertices (list (float-vector 205.0 225.5 2130.0) (float-vector 205.0 225.5 60.0) (float-vector -225.0 225.5 60.0) (float-vector -225.0 225.5 2130.0)))
-         (instance face :init :vertices (list (float-vector 205.0 210.5 2130.0) (float-vector 205.0 210.5 60.0) (float-vector 205.0 225.5 60.0) (float-vector 205.0 225.5 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.0 210.5 2130.0) (float-vector -225.0 210.5 60.0) (float-vector 205.0 210.5 60.0) (float-vector 205.0 210.5 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.0 225.5 2130.0) (float-vector -225.0 225.5 60.0) (float-vector -225.0 210.5 60.0) (float-vector -225.0 210.5 2130.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 205.0 -210.5 2130.0) (float-vector -225.0 -210.5 2130.0) (float-vector -225.0 -225.5 2130.0) (float-vector 205.0 -225.5 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.0 -210.5 60.0) (float-vector 205.0 -210.5 60.0) (float-vector 205.0 -225.5 60.0) (float-vector -225.0 -225.5 60.0)))
-         (instance face :init :vertices (list (float-vector 205.0 -210.5 2130.0) (float-vector 205.0 -210.5 60.0) (float-vector -225.0 -210.5 60.0) (float-vector -225.0 -210.5 2130.0)))
-         (instance face :init :vertices (list (float-vector 205.0 -225.5 2130.0) (float-vector 205.0 -225.5 60.0) (float-vector 205.0 -210.5 60.0) (float-vector 205.0 -210.5 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.0 -225.5 2130.0) (float-vector -225.0 -225.5 60.0) (float-vector 205.0 -225.5 60.0) (float-vector 205.0 -225.5 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.0 -210.5 2130.0) (float-vector -225.0 -210.5 60.0) (float-vector -225.0 -225.5 60.0) (float-vector -225.0 -225.5 2130.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 204.5 210.0 1794.5) (float-vector -210.5 210.0 1794.5) (float-vector -210.5 -210.0 1794.5) (float-vector 204.5 -210.0 1794.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 1779.5) (float-vector 204.5 210.0 1779.5) (float-vector 204.5 -210.0 1779.5) (float-vector -210.5 -210.0 1779.5)))
-         (instance face :init :vertices (list (float-vector 204.5 210.0 1794.5) (float-vector 204.5 210.0 1779.5) (float-vector -210.5 210.0 1779.5) (float-vector -210.5 210.0 1794.5)))
-         (instance face :init :vertices (list (float-vector 204.5 -210.0 1794.5) (float-vector 204.5 -210.0 1779.5) (float-vector 204.5 210.0 1779.5) (float-vector 204.5 210.0 1794.5)))
-         (instance face :init :vertices (list (float-vector -210.5 -210.0 1794.5) (float-vector -210.5 -210.0 1779.5) (float-vector 204.5 -210.0 1779.5) (float-vector 204.5 -210.0 1794.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 1794.5) (float-vector -210.5 210.0 1779.5) (float-vector -210.5 -210.0 1779.5) (float-vector -210.5 -210.0 1794.5)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 204.5 210.0 1447.5) (float-vector -210.5 210.0 1447.5) (float-vector -210.5 -210.0 1447.5) (float-vector 204.5 -210.0 1447.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 1432.5) (float-vector 204.5 210.0 1432.5) (float-vector 204.5 -210.0 1432.5) (float-vector -210.5 -210.0 1432.5)))
-         (instance face :init :vertices (list (float-vector 204.5 210.0 1447.5) (float-vector 204.5 210.0 1432.5) (float-vector -210.5 210.0 1432.5) (float-vector -210.5 210.0 1447.5)))
-         (instance face :init :vertices (list (float-vector 204.5 -210.0 1447.5) (float-vector 204.5 -210.0 1432.5) (float-vector 204.5 210.0 1432.5) (float-vector 204.5 210.0 1447.5)))
-         (instance face :init :vertices (list (float-vector -210.5 -210.0 1447.5) (float-vector -210.5 -210.0 1432.5) (float-vector 204.5 -210.0 1432.5) (float-vector 204.5 -210.0 1447.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 1447.5) (float-vector -210.5 210.0 1432.5) (float-vector -210.5 -210.0 1432.5) (float-vector -210.5 -210.0 1447.5)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 204.5 210.0 1100.5) (float-vector -210.5 210.0 1100.5) (float-vector -210.5 -210.0 1100.5) (float-vector 204.5 -210.0 1100.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 1085.5) (float-vector 204.5 210.0 1085.5) (float-vector 204.5 -210.0 1085.5) (float-vector -210.5 -210.0 1085.5)))
-         (instance face :init :vertices (list (float-vector 204.5 210.0 1100.5) (float-vector 204.5 210.0 1085.5) (float-vector -210.5 210.0 1085.5) (float-vector -210.5 210.0 1100.5)))
-         (instance face :init :vertices (list (float-vector 204.5 -210.0 1100.5) (float-vector 204.5 -210.0 1085.5) (float-vector 204.5 210.0 1085.5) (float-vector 204.5 210.0 1100.5)))
-         (instance face :init :vertices (list (float-vector -210.5 -210.0 1100.5) (float-vector -210.5 -210.0 1085.5) (float-vector 204.5 -210.0 1085.5) (float-vector 204.5 -210.0 1100.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 1100.5) (float-vector -210.5 210.0 1085.5) (float-vector -210.5 -210.0 1085.5) (float-vector -210.5 -210.0 1100.5)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 204.5 210.0 753.5) (float-vector -210.5 210.0 753.5) (float-vector -210.5 -210.0 753.5) (float-vector 204.5 -210.0 753.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 738.5) (float-vector 204.5 210.0 738.5) (float-vector 204.5 -210.0 738.5) (float-vector -210.5 -210.0 738.5)))
-         (instance face :init :vertices (list (float-vector 204.5 210.0 753.5) (float-vector 204.5 210.0 738.5) (float-vector -210.5 210.0 738.5) (float-vector -210.5 210.0 753.5)))
-         (instance face :init :vertices (list (float-vector 204.5 -210.0 753.5) (float-vector 204.5 -210.0 738.5) (float-vector 204.5 210.0 738.5) (float-vector 204.5 210.0 753.5)))
-         (instance face :init :vertices (list (float-vector -210.5 -210.0 753.5) (float-vector -210.5 -210.0 738.5) (float-vector 204.5 -210.0 738.5) (float-vector 204.5 -210.0 753.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 753.5) (float-vector -210.5 210.0 738.5) (float-vector -210.5 -210.0 738.5) (float-vector -210.5 -210.0 753.5)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 204.5 210.0 406.5) (float-vector -210.5 210.0 406.5) (float-vector -210.5 -210.0 406.5) (float-vector 204.5 -210.0 406.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 391.5) (float-vector 204.5 210.0 391.5) (float-vector 204.5 -210.0 391.5) (float-vector -210.5 -210.0 391.5)))
-         (instance face :init :vertices (list (float-vector 204.5 210.0 406.5) (float-vector 204.5 210.0 391.5) (float-vector -210.5 210.0 391.5) (float-vector -210.5 210.0 406.5)))
-         (instance face :init :vertices (list (float-vector 204.5 -210.0 406.5) (float-vector 204.5 -210.0 391.5) (float-vector 204.5 210.0 391.5) (float-vector 204.5 210.0 406.5)))
-         (instance face :init :vertices (list (float-vector -210.5 -210.0 406.5) (float-vector -210.5 -210.0 391.5) (float-vector 204.5 -210.0 391.5) (float-vector 204.5 -210.0 406.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 406.5) (float-vector -210.5 210.0 391.5) (float-vector -210.5 -210.0 391.5) (float-vector -210.5 -210.0 406.5)))
-       ))
-       ))
-     (dolist (b (cdr bc)) (send (car bc) :assoc b))
-     (send (elt bc 0) :set-color :beige)
-     (send (elt bc 1) :set-color :beige)
-     (send (elt bc 2) :set-color :beige)
-     (send (elt bc 3) :set-color :beige)
-     (send (elt bc 4) :set-color :beige)
-     (send (elt bc 5) :set-color :beige)
-     (send (elt bc 6) :set-color :beige)
-     (send (elt bc 7) :set-color :beige)
-     (send (elt bc 8) :set-color :beige)
-     (send (elt bc 9) :set-color :beige)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :root :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
-
-     ;; definition of :room73b2-locker1-bodyset2
-     (setq bc (list
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector -10.0 10.0 0.0) (float-vector -10.0 -440.0 0.0) (float-vector -10.0 -440.0 2070.0) (float-vector -10.0 10.0 2070.0)))
-         (instance face :init :vertices (list (float-vector 10.0 -440.0 0.0) (float-vector 10.0 -440.0 2070.0) (float-vector -10.0 -440.0 2070.0) (float-vector -10.0 -440.0 0.0)))
-         (instance face :init :vertices (list (float-vector 10.0 10.0 0.0) (float-vector 10.0 10.0 2070.0) (float-vector 10.0 -440.0 2070.0) (float-vector 10.0 -440.0 0.0))
-                              :holes (list
-         (instance hole :init :vertices (list (float-vector 10.0 -410.0 890.0) (float-vector 10.0 -410.0 970.0) (float-vector 10.0 -360.0 970.0) (float-vector 10.0 -360.0 890.0)))
-))
-         (instance face :init :vertices (list (float-vector -10.0 10.0 2070.0) (float-vector -10.0 -440.0 2070.0) (float-vector 10.0 -440.0 2070.0) (float-vector 10.0 10.0 2070.0)))
-         (instance face :init :vertices (list (float-vector 10.0 10.0 0.0) (float-vector 10.0 -440.0 0.0) (float-vector -10.0 -440.0 0.0) (float-vector -10.0 10.0 0.0)))
-         (instance face :init :vertices (list (float-vector -10.0 10.0 0.0) (float-vector -10.0 10.0 2070.0) (float-vector 10.0 10.0 2070.0) (float-vector 10.0 10.0 0.0)))
-         (instance face :init :vertices (list (float-vector 0.0 -360.0 970.0) (float-vector 0.0 -410.0 970.0) (float-vector 0.0 -410.0 890.0) (float-vector 0.0 -360.0 890.0)))
-         (instance face :init :vertices (list (float-vector 0.0 -410.0 890.0) (float-vector 0.0 -410.0 970.0) (float-vector 10.0 -410.0 970.0) (float-vector 10.0 -410.0 890.0)))
-         (instance face :init :vertices (list (float-vector 10.0 -360.0 970.0) (float-vector 10.0 -410.0 970.0) (float-vector 0.0 -410.0 970.0) (float-vector 0.0 -360.0 970.0)))
-         (instance face :init :vertices (list (float-vector 10.0 -360.0 890.0) (float-vector 10.0 -360.0 970.0) (float-vector 0.0 -360.0 970.0) (float-vector 0.0 -360.0 890.0)))
-         (instance face :init :vertices (list (float-vector 0.0 -360.0 890.0) (float-vector 0.0 -410.0 890.0) (float-vector 10.0 -410.0 890.0) (float-vector 10.0 -360.0 890.0)))
-       ))
-       ))
-     (dolist (b (cdr bc)) (send (car bc) :assoc b))
-     (send (elt bc 0) :set-color :beige)
-     (setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-locker1-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
-
-     ;; definition of assoc
-     (send blink1 :newcoords (make-coords :pos (float-vector 215.0 215.0 60.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
-     (send blink0 :assoc blink1)
-     (send self :assoc blink0)
-
-     ;; definition of end-coords
-
-     ;; definition of joint
-
-     ;; definition of :door
-     (setq joint0 (instance rotational-joint :init
-			     :parent-link blink0 :child-link blink1 :name :door      :axis :z 
-			     :min    0.0 :max   90.0 :max-joint-velocity 5 :max-joint-torque 100))
-
-
-     ;; definition of :handle
-     (setq handle0 (make-cascoords :pos (float-vector 225.0 -187.5 1007.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "door-handle"))
-     (send blink1 :assoc handle0)
-
-     ;; init-ending 
-     (setq links (list blink0 blink1))
-     (setq joint-list (list joint0))
-     (send self :init-ending)
-     (send self :move-to (make-coords :pos pos :rot rot))
-     (send-all links :worldcoords)
-
-     self))
-
-  (:door (&rest args) (forward-message-to joint0 args))
-  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
-  (:handle-door-handle (&rest args) (forward-message-to handle0 args))
-  (:attention (&rest args) (forward-message-to-all (list ) args))
-  (:button (&rest args) (forward-message-to-all (list ) args))
-  )
-
-(defun room73b2-locker1 (&rest args) (instance* room73b2-locker1-object :init args))
-;; (format *error-output* "(instance room73b2-locker1-object :init) for generating model~%")
diff --git a/models/room73b2-locker2-object.l b/models/room73b2-locker2-object.l
deleted file mode 100644
index 9f95f179..00000000
--- a/models/room73b2-locker2-object.l
+++ /dev/null
@@ -1,176 +0,0 @@
-;;
-;; DO NOT EDIT THIS FILE
-;; this file is automatically generated from euslisp+euslib version 
-;;
-;;
-(defclass room73b2-locker2-object
-  :super cascaded-link
-  :slots (sensors
-         handle0
-         joint0 ))
-(defmethod room73b2-locker2-object
-  (:init
-   (&rest args &key (name "room73b2-locker2") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
-   (let (c bc
-         blink0 blink1
-                 )
-     (send-super* :init :name name args)
-
-     ;; definition of link
-
-     ;; definition of :root
-     (setq bc (list
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 225.0 225.0 2150.0) (float-vector -225.0 225.0 2150.0) (float-vector -225.0 -225.0 2150.0) (float-vector 225.0 -225.0 2150.0)))
-         (instance face :init :vertices (list (float-vector -225.0 225.0 2130.0) (float-vector 225.0 225.0 2130.0) (float-vector 225.0 -225.0 2130.0) (float-vector -225.0 -225.0 2130.0)))
-         (instance face :init :vertices (list (float-vector 225.0 225.0 2150.0) (float-vector 225.0 225.0 2130.0) (float-vector -225.0 225.0 2130.0) (float-vector -225.0 225.0 2150.0)))
-         (instance face :init :vertices (list (float-vector 225.0 -225.0 2150.0) (float-vector 225.0 -225.0 2130.0) (float-vector 225.0 225.0 2130.0) (float-vector 225.0 225.0 2150.0)))
-         (instance face :init :vertices (list (float-vector -225.0 -225.0 2150.0) (float-vector -225.0 -225.0 2130.0) (float-vector 225.0 -225.0 2130.0) (float-vector 225.0 -225.0 2150.0)))
-         (instance face :init :vertices (list (float-vector -225.0 225.0 2150.0) (float-vector -225.0 225.0 2130.0) (float-vector -225.0 -225.0 2130.0) (float-vector -225.0 -225.0 2150.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 225.0 225.0 60.0) (float-vector -225.0 225.0 60.0) (float-vector -225.0 -225.0 60.0) (float-vector 225.0 -225.0 60.0)))
-         (instance face :init :vertices (list (float-vector -225.0 225.0 0.0) (float-vector 225.0 225.0 0.0) (float-vector 225.0 -225.0 0.0) (float-vector -225.0 -225.0 0.0)))
-         (instance face :init :vertices (list (float-vector 225.0 225.0 60.0) (float-vector 225.0 225.0 0.0) (float-vector -225.0 225.0 0.0) (float-vector -225.0 225.0 60.0)))
-         (instance face :init :vertices (list (float-vector 225.0 -225.0 60.0) (float-vector 225.0 -225.0 0.0) (float-vector 225.0 225.0 0.0) (float-vector 225.0 225.0 60.0)))
-         (instance face :init :vertices (list (float-vector -225.0 -225.0 60.0) (float-vector -225.0 -225.0 0.0) (float-vector 225.0 -225.0 0.0) (float-vector 225.0 -225.0 60.0)))
-         (instance face :init :vertices (list (float-vector -225.0 225.0 60.0) (float-vector -225.0 225.0 0.0) (float-vector -225.0 -225.0 0.0) (float-vector -225.0 -225.0 60.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector -210.5 210.0 2130.0) (float-vector -225.5 210.0 2130.0) (float-vector -225.5 -210.0 2130.0) (float-vector -210.5 -210.0 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.5 210.0 60.0) (float-vector -210.5 210.0 60.0) (float-vector -210.5 -210.0 60.0) (float-vector -225.5 -210.0 60.0)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 2130.0) (float-vector -210.5 210.0 60.0) (float-vector -225.5 210.0 60.0) (float-vector -225.5 210.0 2130.0)))
-         (instance face :init :vertices (list (float-vector -210.5 -210.0 2130.0) (float-vector -210.5 -210.0 60.0) (float-vector -210.5 210.0 60.0) (float-vector -210.5 210.0 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.5 -210.0 2130.0) (float-vector -225.5 -210.0 60.0) (float-vector -210.5 -210.0 60.0) (float-vector -210.5 -210.0 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.5 210.0 2130.0) (float-vector -225.5 210.0 60.0) (float-vector -225.5 -210.0 60.0) (float-vector -225.5 -210.0 2130.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 205.0 225.5 2130.0) (float-vector -225.0 225.5 2130.0) (float-vector -225.0 210.5 2130.0) (float-vector 205.0 210.5 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.0 225.5 60.0) (float-vector 205.0 225.5 60.0) (float-vector 205.0 210.5 60.0) (float-vector -225.0 210.5 60.0)))
-         (instance face :init :vertices (list (float-vector 205.0 225.5 2130.0) (float-vector 205.0 225.5 60.0) (float-vector -225.0 225.5 60.0) (float-vector -225.0 225.5 2130.0)))
-         (instance face :init :vertices (list (float-vector 205.0 210.5 2130.0) (float-vector 205.0 210.5 60.0) (float-vector 205.0 225.5 60.0) (float-vector 205.0 225.5 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.0 210.5 2130.0) (float-vector -225.0 210.5 60.0) (float-vector 205.0 210.5 60.0) (float-vector 205.0 210.5 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.0 225.5 2130.0) (float-vector -225.0 225.5 60.0) (float-vector -225.0 210.5 60.0) (float-vector -225.0 210.5 2130.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 205.0 -210.5 2130.0) (float-vector -225.0 -210.5 2130.0) (float-vector -225.0 -225.5 2130.0) (float-vector 205.0 -225.5 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.0 -210.5 60.0) (float-vector 205.0 -210.5 60.0) (float-vector 205.0 -225.5 60.0) (float-vector -225.0 -225.5 60.0)))
-         (instance face :init :vertices (list (float-vector 205.0 -210.5 2130.0) (float-vector 205.0 -210.5 60.0) (float-vector -225.0 -210.5 60.0) (float-vector -225.0 -210.5 2130.0)))
-         (instance face :init :vertices (list (float-vector 205.0 -225.5 2130.0) (float-vector 205.0 -225.5 60.0) (float-vector 205.0 -210.5 60.0) (float-vector 205.0 -210.5 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.0 -225.5 2130.0) (float-vector -225.0 -225.5 60.0) (float-vector 205.0 -225.5 60.0) (float-vector 205.0 -225.5 2130.0)))
-         (instance face :init :vertices (list (float-vector -225.0 -210.5 2130.0) (float-vector -225.0 -210.5 60.0) (float-vector -225.0 -225.5 60.0) (float-vector -225.0 -225.5 2130.0)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 204.5 210.0 1794.5) (float-vector -210.5 210.0 1794.5) (float-vector -210.5 -210.0 1794.5) (float-vector 204.5 -210.0 1794.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 1779.5) (float-vector 204.5 210.0 1779.5) (float-vector 204.5 -210.0 1779.5) (float-vector -210.5 -210.0 1779.5)))
-         (instance face :init :vertices (list (float-vector 204.5 210.0 1794.5) (float-vector 204.5 210.0 1779.5) (float-vector -210.5 210.0 1779.5) (float-vector -210.5 210.0 1794.5)))
-         (instance face :init :vertices (list (float-vector 204.5 -210.0 1794.5) (float-vector 204.5 -210.0 1779.5) (float-vector 204.5 210.0 1779.5) (float-vector 204.5 210.0 1794.5)))
-         (instance face :init :vertices (list (float-vector -210.5 -210.0 1794.5) (float-vector -210.5 -210.0 1779.5) (float-vector 204.5 -210.0 1779.5) (float-vector 204.5 -210.0 1794.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 1794.5) (float-vector -210.5 210.0 1779.5) (float-vector -210.5 -210.0 1779.5) (float-vector -210.5 -210.0 1794.5)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 204.5 210.0 1447.5) (float-vector -210.5 210.0 1447.5) (float-vector -210.5 -210.0 1447.5) (float-vector 204.5 -210.0 1447.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 1432.5) (float-vector 204.5 210.0 1432.5) (float-vector 204.5 -210.0 1432.5) (float-vector -210.5 -210.0 1432.5)))
-         (instance face :init :vertices (list (float-vector 204.5 210.0 1447.5) (float-vector 204.5 210.0 1432.5) (float-vector -210.5 210.0 1432.5) (float-vector -210.5 210.0 1447.5)))
-         (instance face :init :vertices (list (float-vector 204.5 -210.0 1447.5) (float-vector 204.5 -210.0 1432.5) (float-vector 204.5 210.0 1432.5) (float-vector 204.5 210.0 1447.5)))
-         (instance face :init :vertices (list (float-vector -210.5 -210.0 1447.5) (float-vector -210.5 -210.0 1432.5) (float-vector 204.5 -210.0 1432.5) (float-vector 204.5 -210.0 1447.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 1447.5) (float-vector -210.5 210.0 1432.5) (float-vector -210.5 -210.0 1432.5) (float-vector -210.5 -210.0 1447.5)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 204.5 210.0 1100.5) (float-vector -210.5 210.0 1100.5) (float-vector -210.5 -210.0 1100.5) (float-vector 204.5 -210.0 1100.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 1085.5) (float-vector 204.5 210.0 1085.5) (float-vector 204.5 -210.0 1085.5) (float-vector -210.5 -210.0 1085.5)))
-         (instance face :init :vertices (list (float-vector 204.5 210.0 1100.5) (float-vector 204.5 210.0 1085.5) (float-vector -210.5 210.0 1085.5) (float-vector -210.5 210.0 1100.5)))
-         (instance face :init :vertices (list (float-vector 204.5 -210.0 1100.5) (float-vector 204.5 -210.0 1085.5) (float-vector 204.5 210.0 1085.5) (float-vector 204.5 210.0 1100.5)))
-         (instance face :init :vertices (list (float-vector -210.5 -210.0 1100.5) (float-vector -210.5 -210.0 1085.5) (float-vector 204.5 -210.0 1085.5) (float-vector 204.5 -210.0 1100.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 1100.5) (float-vector -210.5 210.0 1085.5) (float-vector -210.5 -210.0 1085.5) (float-vector -210.5 -210.0 1100.5)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 204.5 210.0 753.5) (float-vector -210.5 210.0 753.5) (float-vector -210.5 -210.0 753.5) (float-vector 204.5 -210.0 753.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 738.5) (float-vector 204.5 210.0 738.5) (float-vector 204.5 -210.0 738.5) (float-vector -210.5 -210.0 738.5)))
-         (instance face :init :vertices (list (float-vector 204.5 210.0 753.5) (float-vector 204.5 210.0 738.5) (float-vector -210.5 210.0 738.5) (float-vector -210.5 210.0 753.5)))
-         (instance face :init :vertices (list (float-vector 204.5 -210.0 753.5) (float-vector 204.5 -210.0 738.5) (float-vector 204.5 210.0 738.5) (float-vector 204.5 210.0 753.5)))
-         (instance face :init :vertices (list (float-vector -210.5 -210.0 753.5) (float-vector -210.5 -210.0 738.5) (float-vector 204.5 -210.0 738.5) (float-vector 204.5 -210.0 753.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 753.5) (float-vector -210.5 210.0 738.5) (float-vector -210.5 -210.0 738.5) (float-vector -210.5 -210.0 753.5)))
-       ))
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 204.5 210.0 406.5) (float-vector -210.5 210.0 406.5) (float-vector -210.5 -210.0 406.5) (float-vector 204.5 -210.0 406.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 391.5) (float-vector 204.5 210.0 391.5) (float-vector 204.5 -210.0 391.5) (float-vector -210.5 -210.0 391.5)))
-         (instance face :init :vertices (list (float-vector 204.5 210.0 406.5) (float-vector 204.5 210.0 391.5) (float-vector -210.5 210.0 391.5) (float-vector -210.5 210.0 406.5)))
-         (instance face :init :vertices (list (float-vector 204.5 -210.0 406.5) (float-vector 204.5 -210.0 391.5) (float-vector 204.5 210.0 391.5) (float-vector 204.5 210.0 406.5)))
-         (instance face :init :vertices (list (float-vector -210.5 -210.0 406.5) (float-vector -210.5 -210.0 391.5) (float-vector 204.5 -210.0 391.5) (float-vector 204.5 -210.0 406.5)))
-         (instance face :init :vertices (list (float-vector -210.5 210.0 406.5) (float-vector -210.5 210.0 391.5) (float-vector -210.5 -210.0 391.5) (float-vector -210.5 -210.0 406.5)))
-       ))
-       ))
-     (dolist (b (cdr bc)) (send (car bc) :assoc b))
-     (send (elt bc 0) :set-color :beige)
-     (send (elt bc 1) :set-color :beige)
-     (send (elt bc 2) :set-color :beige)
-     (send (elt bc 3) :set-color :beige)
-     (send (elt bc 4) :set-color :beige)
-     (send (elt bc 5) :set-color :beige)
-     (send (elt bc 6) :set-color :beige)
-     (send (elt bc 7) :set-color :beige)
-     (send (elt bc 8) :set-color :beige)
-     (send (elt bc 9) :set-color :beige)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :root :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
-
-     ;; definition of :room73b2-locker2-bodyset2
-     (setq bc (list
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector -10.0 10.0 0.0) (float-vector -10.0 -440.0 0.0) (float-vector -10.0 -440.0 2070.0) (float-vector -10.0 10.0 2070.0)))
-         (instance face :init :vertices (list (float-vector 10.0 -440.0 0.0) (float-vector 10.0 -440.0 2070.0) (float-vector -10.0 -440.0 2070.0) (float-vector -10.0 -440.0 0.0)))
-         (instance face :init :vertices (list (float-vector 10.0 10.0 0.0) (float-vector 10.0 10.0 2070.0) (float-vector 10.0 -440.0 2070.0) (float-vector 10.0 -440.0 0.0))
-                              :holes (list
-         (instance hole :init :vertices (list (float-vector 10.0 -410.0 890.0) (float-vector 10.0 -410.0 970.0) (float-vector 10.0 -360.0 970.0) (float-vector 10.0 -360.0 890.0)))
-))
-         (instance face :init :vertices (list (float-vector -10.0 10.0 2070.0) (float-vector -10.0 -440.0 2070.0) (float-vector 10.0 -440.0 2070.0) (float-vector 10.0 10.0 2070.0)))
-         (instance face :init :vertices (list (float-vector 10.0 10.0 0.0) (float-vector 10.0 -440.0 0.0) (float-vector -10.0 -440.0 0.0) (float-vector -10.0 10.0 0.0)))
-         (instance face :init :vertices (list (float-vector -10.0 10.0 0.0) (float-vector -10.0 10.0 2070.0) (float-vector 10.0 10.0 2070.0) (float-vector 10.0 10.0 0.0)))
-         (instance face :init :vertices (list (float-vector 2.273737e-13 -360.0 970.0) (float-vector 2.273737e-13 -410.0 970.0) (float-vector 2.273737e-13 -410.0 890.0) (float-vector 2.273737e-13 -360.0 890.0)))
-         (instance face :init :vertices (list (float-vector 2.273737e-13 -410.0 890.0) (float-vector 2.273737e-13 -410.0 970.0) (float-vector 10.0 -410.0 970.0) (float-vector 10.0 -410.0 890.0)))
-         (instance face :init :vertices (list (float-vector 10.0 -360.0 970.0) (float-vector 10.0 -410.0 970.0) (float-vector 2.273737e-13 -410.0 970.0) (float-vector 2.273737e-13 -360.0 970.0)))
-         (instance face :init :vertices (list (float-vector 10.0 -360.0 890.0) (float-vector 10.0 -360.0 970.0) (float-vector 2.273737e-13 -360.0 970.0) (float-vector 2.273737e-13 -360.0 890.0)))
-         (instance face :init :vertices (list (float-vector 2.273737e-13 -360.0 890.0) (float-vector 2.273737e-13 -410.0 890.0) (float-vector 10.0 -410.0 890.0) (float-vector 10.0 -360.0 890.0)))
-       ))
-       ))
-     (dolist (b (cdr bc)) (send (car bc) :assoc b))
-     (send (elt bc 0) :set-color :beige)
-     (setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-locker2-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
-
-     ;; definition of assoc
-     (send blink1 :newcoords (make-coords :pos (float-vector 215.0 215.0 60.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
-     (send blink0 :assoc blink1)
-     (send self :assoc blink0)
-
-     ;; definition of end-coords
-
-     ;; definition of joint
-
-     ;; definition of :door
-     (setq joint0 (instance rotational-joint :init
-			     :parent-link blink0 :child-link blink1 :name :door      :axis :z 
-			     :min    0.0 :max   90.0 :max-joint-velocity 5 :max-joint-torque 100))
-
-
-     ;; definition of :handle
-     (setq handle0 (make-cascoords :pos (float-vector 225.0 -187.5 1007.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "door-handle"))
-     (send blink1 :assoc handle0)
-
-     ;; init-ending 
-     (setq links (list blink0 blink1))
-     (setq joint-list (list joint0))
-     (send self :init-ending)
-     (send self :move-to (make-coords :pos pos :rot rot))
-     (send-all links :worldcoords)
-
-     self))
-
-  (:door (&rest args) (forward-message-to joint0 args))
-  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
-  (:handle-door-handle (&rest args) (forward-message-to handle0 args))
-  (:attention (&rest args) (forward-message-to-all (list ) args))
-  (:button (&rest args) (forward-message-to-all (list ) args))
-  )
-
-(defun room73b2-locker2 (&rest args) (instance* room73b2-locker2-object :init args))
-;; (format *error-output* "(instance room73b2-locker2-object :init) for generating model~%")
diff --git a/models/room73b2-scene.l b/models/room73b2-scene.l
index f5adc326..3537777c 100644
--- a/models/room73b2-scene.l
+++ b/models/room73b2-scene.l
@@ -5,8 +5,6 @@
 (provide :room73b2-scene "models/room73b2-scene.l")
 
 (load "models/room73b2-73b2-ground-object.l")
-(load "models/room73b2-locker2-object.l")
-(load "models/room73b2-locker1-object.l")
 (load "models/room73b2-door-left-object.l")
 (load "models/room73b2-door-right-object.l")
 (load "models/room73b2-foldable-desk-object.l")
@@ -16,6 +14,11 @@
 (load "models/room73b2-bamboo-broom-object.l")
 (load "models/room73b2-azuma-broom-object.l")
 (load "models/room73b2-azuma-short-broom-object.l")
+(load "models/room73b2-cupboard-right-object.l")
+(load "models/room73b2-trashbox3-object.l")
+(load "models/room73b2-trashbox2-object.l")
+(load "models/room73b2-trashbox1-object.l")
+(load "models/room73b2-trashbox0-object.l")
 (load "models/room73b2-coe-800-shelf-object.l")
 (load "models/room73b2-coe-450-shelf-object.l")
 (load "models/room73b2-uchida-shelf-1100-object.l")
@@ -25,13 +28,13 @@
 (load "models/room73b2-uchida-shelf-1300-object.l")
 (load "models/room73b2-uchida-shelf-1300-object.l")
 (load "models/room73b2-uchida-shelf-1300-object.l")
-(load "models/room73b2-bariera-1200-right-object.l")
-(load "models/room73b2-bariera-1200-middle3-0-object.l")
-(load "models/room73b2-bariera-1200-middle3-1-object.l")
-(load "models/room73b2-bariera-1200-middle2-object.l")
+(load "models/room73b2-bariera-1200-right-top-object.l")
 (load "models/room73b2-bariera-1200-middle-0-object.l")
 (load "models/room73b2-bariera-1200-middle-1-object.l")
 (load "models/room73b2-bariera-1200-middle-2-object.l")
+(load "models/room73b2-bariera-1200-middle-3-object.l")
+(load "models/room73b2-bariera-1200-middle-4-object.l")
+(load "models/room73b2-bariera-1200-middle-5-object.l")
 (load "models/room73b2-bariera-1200-corner-object.l")
 (load "models/room73b2-wanda-object.l")
 (load "models/room73b2-iemon-object.l")
@@ -42,8 +45,8 @@
 (load "models/room73b2-empty-box-object.l")
 (load "models/room73b2-bottle-object.l")
 (load "models/room73b2-sushi-cup2-object.l")
-(load "models/room73b2-trashbox0-object.l")
 (load "models/room73b2-karimoku-table-object.l")
+(load "models/room73b2-uchida-shelf-1300-object.l")
 (load "models/room73b2-hrp2-parts-drawer-object.l")
 (load "models/room73b2-plus-590-locker-object.l")
 (load "models/room73b2-sharp-52-aquostv-object.l")
@@ -54,17 +57,15 @@
 (load "models/room73b2-askul-1200x700-desk-4-object.l")
 (load "models/room73b2-askul-1200x700-desk-5-object.l")
 (load "models/room73b2-askul-1200x700-desk-6-object.l")
+(load "models/room73b2-askul-1200x700-desk-7-object.l")
 (load "models/room73b2-uchida-shelf-1100-object.l")
-(load "models/room73b2-askul-1000x700-desk-object.l")
 (load "models/room73b2-uchida-shelf-1300-object.l")
-(load "models/room73b2-askul-1200x700-desk-7-object.l")
-(load "models/room73b2-cupboard-right-object.l")
 (load "models/room73b2-cupboard-left-object.l")
 (load "models/room73b2-toshiba-clacio-refrigerator-object.l")
 (load "models/room73b2-bariera-1400-middle-object.l")
-(load "models/room73b2-bariera-900-middle-0-object.l")
-(load "models/room73b2-bariera-900-middle-1-object.l")
-(load "models/room73b2-bariera-900-left-object.l")
+(load "models/room73b2-bariera-900-middle-top-0-object.l")
+(load "models/room73b2-bariera-900-middle-top-1-object.l")
+(load "models/room73b2-bariera-900-left-top-object.l")
 (load "models/room73b2-askul-1400-desk-object.l")
 (load "models/room73b2-desk-0-object.l")
 (load "models/room73b2-desk-1-object.l")
@@ -102,8 +103,6 @@
       :init :name name :objects
       (list
  (send (room73b2-73b2-ground) :transform (make-coords :pos (float-vector 5957.0 442.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
- (send (room73b2-locker2) :transform (make-coords :pos (float-vector 9595.0 -1925.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-locker1) :transform (make-coords :pos (float-vector 9145.0 -1925.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
  (send (room73b2-door-left) :transform (make-coords :pos (float-vector 0.0 405.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
  (send (room73b2-door-right) :transform (make-coords :pos (float-vector 0.0 -405.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
  (send (room73b2-foldable-desk) :transform (make-coords :pos (float-vector 1850.0 -2100.0 0.0) :rot #2f((7.216450e-16 1.0 0.0) (-1.0 7.216450e-16 0.0) (0.0 0.0 1.0))))
@@ -113,8 +112,13 @@
  (send (room73b2-bamboo-broom) :transform (make-coords :pos (float-vector 450.0 -3000.0 0.0) :rot #2f((0.707107 -0.707107 0.0) (0.707107 0.707107 0.0) (0.0 0.0 1.0))))
  (send (room73b2-azuma-broom) :transform (make-coords :pos (float-vector 150.0 -3000.0 0.0) :rot #2f((0.707107 -0.707107 0.0) (0.707107 0.707107 0.0) (0.0 0.0 1.0))))
  (send (room73b2-azuma-short-broom) :transform (make-coords :pos (float-vector 300.0 -3000.0 0.0) :rot #2f((0.707107 -0.707107 0.0) (0.707107 0.707107 0.0) (0.0 0.0 1.0))))
- (send (room73b2-coe-800-shelf) :transform (make-coords :pos (float-vector 1975.0 1300.0 0.0) :rot #2f((-1.0 -1.224647e-16 0.0) (1.224647e-16 -1.0 0.0) (0.0 0.0 1.0))))
- (send (room73b2-coe-450-shelf) :transform (make-coords :pos (float-vector 1975.0 2375.0 0.0) :rot #2f((-1.0 -1.224647e-16 0.0) (1.224647e-16 -1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-cupboard-right) :transform (make-coords :pos (float-vector 2575.0 1300.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-trashbox3) :transform (make-coords :pos (float-vector 2575.0 2525.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-trashbox2) :transform (make-coords :pos (float-vector 2575.0 2875.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-trashbox1) :transform (make-coords :pos (float-vector 2575.0 3225.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-trashbox0) :transform (make-coords :pos (float-vector 2575.0 3575.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-coe-800-shelf) :transform (make-coords :pos (float-vector 2575.0 1900.0 0.0) :rot #2f((-1.0 -1.224647e-16 0.0) (1.224647e-16 -1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-coe-450-shelf) :transform (make-coords :pos (float-vector 2575.0 4025.0 0.0) :rot #2f((-1.0 -1.224647e-16 0.0) (1.224647e-16 -1.0 0.0) (0.0 0.0 1.0))))
  (send (room73b2-uchida-shelf-1100) :transform (make-coords :pos (float-vector 11400.0 3220.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
  (send (room73b2-uchida-shelf-1300) :transform (make-coords :pos (float-vector 11720.0 -2710.0 0.0) :rot #2f((-1.0 -1.224647e-16 0.0) (1.224647e-16 -1.0 0.0) (0.0 0.0 1.0))))
  (send (room73b2-uchida-shelf-1300) :transform (make-coords :pos (float-vector 11720.0 -1445.0 0.0) :rot #2f((-1.0 -1.224647e-16 0.0) (1.224647e-16 -1.0 0.0) (0.0 0.0 1.0))))
@@ -122,46 +126,44 @@
  (send (room73b2-uchida-shelf-1300) :transform (make-coords :pos (float-vector 11720.0 1085.0 0.0) :rot #2f((-1.0 -1.224647e-16 0.0) (1.224647e-16 -1.0 0.0) (0.0 0.0 1.0))))
  (send (room73b2-uchida-shelf-1300) :transform (make-coords :pos (float-vector 11720.0 2350.0 0.0) :rot #2f((-1.0 -1.224647e-16 0.0) (1.224647e-16 -1.0 0.0) (0.0 0.0 1.0))))
  (send (room73b2-uchida-shelf-1300) :transform (make-coords :pos (float-vector 235.0 -1550.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
- (send (room73b2-bariera-1200-right) :transform (make-coords :pos (float-vector 2110.0 -3420.0 35.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-bariera-1200-middle3-0) :transform (make-coords :pos (float-vector 3310.0 -3420.0 35.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-bariera-1200-middle3-1) :transform (make-coords :pos (float-vector 4510.0 -3420.0 35.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-bariera-1200-middle2) :transform (make-coords :pos (float-vector 5710.0 -3420.0 35.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-bariera-1200-middle-0) :transform (make-coords :pos (float-vector 6910.0 -3420.0 35.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-bariera-1200-middle-1) :transform (make-coords :pos (float-vector 8110.0 -3420.0 35.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-bariera-1200-middle-2) :transform (make-coords :pos (float-vector 9310.0 -3420.0 35.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-bariera-1200-right-top) :transform (make-coords :pos (float-vector 2110.0 -3420.0 35.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-bariera-1200-middle-0) :transform (make-coords :pos (float-vector 3310.0 -3420.0 35.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-bariera-1200-middle-1) :transform (make-coords :pos (float-vector 4510.0 -3420.0 35.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-bariera-1200-middle-2) :transform (make-coords :pos (float-vector 5710.0 -3420.0 35.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-bariera-1200-middle-3) :transform (make-coords :pos (float-vector 6910.0 -3420.0 35.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-bariera-1200-middle-4) :transform (make-coords :pos (float-vector 8110.0 -3420.0 35.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-bariera-1200-middle-5) :transform (make-coords :pos (float-vector 9310.0 -3420.0 35.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
  (send (room73b2-bariera-1200-corner) :transform (make-coords :pos (float-vector 9370.0 -2150.0 35.0) :rot #2f((-1.0 -1.224647e-16 0.0) (1.224647e-16 -1.0 0.0) (0.0 0.0 1.0))))
- (send (room73b2-wanda) :transform (make-coords :pos (float-vector 5685.0 1370.0 1093.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
- (send (room73b2-iemon) :transform (make-coords :pos (float-vector 5685.0 1590.0 1153.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
- (send (room73b2-georgia-emerald-mountain) :transform (make-coords :pos (float-vector 5685.0 1480.0 1093.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
- (send (room73b2-hitachi-fiesta-refrigerator) :transform (make-coords :pos (float-vector 5720.0 1480.0 0.0) :rot #2f((-1.0 -1.224647e-16 0.0) (1.224647e-16 -1.0 0.0) (0.0 0.0 1.0))))
- (send (room73b2-chair1) :transform (make-coords :pos (float-vector 2600.0 1600.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-chair0) :transform (make-coords :pos (float-vector 3600.0 1600.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-empty-box) :transform (make-coords :pos (float-vector 2950.0 1600.0 700.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
- (send (room73b2-bottle) :transform (make-coords :pos (float-vector 2900.0 1350.0 700.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
- (send (room73b2-sushi-cup2) :transform (make-coords :pos (float-vector 2900.0 1800.0 700.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
- (send (room73b2-trashbox0) :transform (make-coords :pos (float-vector 285.0 -1550.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
- (send (room73b2-karimoku-table) :transform (make-coords :pos (float-vector 3100.0 1600.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
- (send (room73b2-hrp2-parts-drawer) :transform (make-coords :pos (float-vector 5720.0 2450.0 0.0) :rot #2f((-1.0 -1.224647e-16 0.0) (1.224647e-16 -1.0 0.0) (0.0 0.0 1.0))))
- (send (room73b2-plus-590-locker) :transform (make-coords :pos (float-vector 5720.0 3200.0 0.0) :rot #2f((-1.0 1.224647e-16 0.0) (-1.224647e-16 -1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-wanda) :transform (make-coords :pos (float-vector 5685.0 790.0 1093.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-iemon) :transform (make-coords :pos (float-vector 5685.0 1010.0 1153.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-georgia-emerald-mountain) :transform (make-coords :pos (float-vector 5685.0 900.0 1093.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-hitachi-fiesta-refrigerator) :transform (make-coords :pos (float-vector 5720.0 900.0 0.0) :rot #2f((-1.0 -1.224647e-16 0.0) (1.224647e-16 -1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-chair1) :transform (make-coords :pos (float-vector 3700.0 2000.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-chair0) :transform (make-coords :pos (float-vector 4700.0 2000.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-empty-box) :transform (make-coords :pos (float-vector 4050.0 2000.0 700.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-bottle) :transform (make-coords :pos (float-vector 4000.0 1750.0 700.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-sushi-cup2) :transform (make-coords :pos (float-vector 4000.0 2200.0 700.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-karimoku-table) :transform (make-coords :pos (float-vector 4200.0 2000.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-uchida-shelf-1300) :transform (make-coords :pos (float-vector 5720.0 2800.0 0.0) :rot #2f((-1.0 -1.224647e-16 0.0) (1.224647e-16 -1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-hrp2-parts-drawer) :transform (make-coords :pos (float-vector 5720.0 1600.0 0.0) :rot #2f((-1.0 -1.224647e-16 0.0) (1.224647e-16 -1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-plus-590-locker) :transform (make-coords :pos (float-vector 6400.0 3100.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
  (send (room73b2-sharp-52-aquostv) :transform (make-coords :pos (float-vector 4200.0 3000.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-askul-1200x700-desk-0) :transform (make-coords :pos (float-vector 6850.0 -2700.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-askul-1200x700-desk-1) :transform (make-coords :pos (float-vector 5650.0 -2700.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-askul-1200x700-desk-2) :transform (make-coords :pos (float-vector 4450.0 -2700.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-askul-1200x700-desk-3) :transform (make-coords :pos (float-vector 3250.0 -2700.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-askul-1200x700-desk-4) :transform (make-coords :pos (float-vector 2050.0 -2700.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-askul-1200x700-desk-5) :transform (make-coords :pos (float-vector 850.0 -2700.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-askul-1200x700-desk-6) :transform (make-coords :pos (float-vector 285.0 -1550.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
- (send (room73b2-uchida-shelf-1100) :transform (make-coords :pos (float-vector 3549.0 4112.5 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-askul-1000x700-desk) :transform (make-coords :pos (float-vector 3549.0 3985.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-uchida-shelf-1300) :transform (make-coords :pos (float-vector 4749.0 4112.5 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-askul-1200x700-desk-7) :transform (make-coords :pos (float-vector 4749.0 3985.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-cupboard-right) :transform (make-coords :pos (float-vector 2639.0 3526.5 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-cupboard-left) :transform (make-coords :pos (float-vector 2048.0 3526.5 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-toshiba-clacio-refrigerator) :transform (make-coords :pos (float-vector 1430.0 3650.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-askul-1200x700-desk-0) :transform (make-coords :pos (float-vector 8550.0 -2700.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-askul-1200x700-desk-1) :transform (make-coords :pos (float-vector 7350.0 -2700.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-askul-1200x700-desk-2) :transform (make-coords :pos (float-vector 6150.0 -2700.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-askul-1200x700-desk-3) :transform (make-coords :pos (float-vector 4950.0 -2700.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-askul-1200x700-desk-4) :transform (make-coords :pos (float-vector 3750.0 -2700.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-askul-1200x700-desk-5) :transform (make-coords :pos (float-vector 2550.0 -2700.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-askul-1200x700-desk-6) :transform (make-coords :pos (float-vector 1350.0 -2700.0 0.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-askul-1200x700-desk-7) :transform (make-coords :pos (float-vector 285.0 -1550.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-uchida-shelf-1100) :transform (make-coords :pos (float-vector 3549.0 3985.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-uchida-shelf-1300) :transform (make-coords :pos (float-vector 4749.0 3985.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-cupboard-left) :transform (make-coords :pos (float-vector 2048.0 4073.5 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-toshiba-clacio-refrigerator) :transform (make-coords :pos (float-vector 1430.0 3950.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
  (send (room73b2-bariera-1400-middle) :transform (make-coords :pos (float-vector 9300.0 4320.0 35.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-bariera-900-middle-0) :transform (make-coords :pos (float-vector 8400.0 4320.0 35.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-bariera-900-middle-1) :transform (make-coords :pos (float-vector 7500.0 4320.0 35.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room73b2-bariera-900-left) :transform (make-coords :pos (float-vector 6600.0 4320.0 35.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-bariera-900-middle-top-0) :transform (make-coords :pos (float-vector 8400.0 4320.0 35.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-bariera-900-middle-top-1) :transform (make-coords :pos (float-vector 7500.0 4320.0 35.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room73b2-bariera-900-left-top) :transform (make-coords :pos (float-vector 6600.0 4320.0 35.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
  (send (room73b2-askul-1400-desk) :transform (make-coords :pos (float-vector 10000.0 3950.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
  (send (room73b2-desk-0) :transform (make-coords :pos (float-vector 8850.0 3950.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
  (send (room73b2-desk-1) :transform (make-coords :pos (float-vector 7950.0 3950.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
diff --git a/models/room73b2-sushi-cup2-object.l b/models/room73b2-sushi-cup2-object.l
index bb6d0a53..f249cb9c 100644
--- a/models/room73b2-sushi-cup2-object.l
+++ b/models/room73b2-sushi-cup2-object.l
@@ -61,8 +61,8 @@
          (instance face :init :vertices (list (float-vector -9.79184 -23.6396 6.18034) (float-vector -7.65367 -18.4776 0.0) (float-vector 0.0 -20.0 0.0) (float-vector -4.547474e-13 -25.5873 6.18034)))
          (instance face :init :vertices (list (float-vector -18.093 -18.093 6.18034) (float-vector -14.1421 -14.1421 0.0) (float-vector -7.65367 -18.4776 0.0) (float-vector -9.79184 -23.6396 6.18034)))
          (instance face :init :vertices (list (float-vector -23.6396 -9.79184 6.18034) (float-vector -18.4776 -7.65367 0.0) (float-vector -14.1421 -14.1421 0.0) (float-vector -18.093 -18.093 6.18034)))
-         (instance face :init :vertices (list (float-vector -25.5873 2.273737e-13 6.18034) (float-vector -20.0 0.0 0.0) (float-vector -18.4776 -7.65367 0.0) (float-vector -23.6396 -9.79184 6.18034)))
-         (instance face :init :vertices (list (float-vector -23.6396 9.79184 6.18034) (float-vector -18.4776 7.65367 0.0) (float-vector -20.0 0.0 0.0) (float-vector -25.5873 2.273737e-13 6.18034)))
+         (instance face :init :vertices (list (float-vector -25.5873 0.0 6.18034) (float-vector -20.0 0.0 0.0) (float-vector -18.4776 -7.65367 0.0) (float-vector -23.6396 -9.79184 6.18034)))
+         (instance face :init :vertices (list (float-vector -23.6396 9.79184 6.18034) (float-vector -18.4776 7.65367 0.0) (float-vector -20.0 0.0 0.0) (float-vector -25.5873 0.0 6.18034)))
          (instance face :init :vertices (list (float-vector -18.093 18.093 6.18034) (float-vector -14.1421 14.1421 0.0) (float-vector -18.4776 7.65367 0.0) (float-vector -23.6396 9.79184 6.18034)))
          (instance face :init :vertices (list (float-vector -9.79184 23.6396 6.18034) (float-vector -7.65367 18.4776 0.0) (float-vector -14.1421 14.1421 0.0) (float-vector -18.093 18.093 6.18034)))
          (instance face :init :vertices (list (float-vector 0.0 25.5873 6.18034) (float-vector 0.0 20.0 0.0) (float-vector -7.65367 18.4776 0.0) (float-vector -9.79184 23.6396 6.18034)))
@@ -77,8 +77,8 @@
          (instance face :init :vertices (list (float-vector -10.4441 -25.2143 11.7557) (float-vector -9.79184 -23.6396 6.18034) (float-vector -4.547474e-13 -25.5873 6.18034) (float-vector -4.547474e-13 -27.2918 11.7557)))
          (instance face :init :vertices (list (float-vector -19.2982 -19.2982 11.7557) (float-vector -18.093 -18.093 6.18034) (float-vector -9.79184 -23.6396 6.18034) (float-vector -10.4441 -25.2143 11.7557)))
          (instance face :init :vertices (list (float-vector -25.2143 -10.4441 11.7557) (float-vector -23.6396 -9.79184 6.18034) (float-vector -18.093 -18.093 6.18034) (float-vector -19.2982 -19.2982 11.7557)))
-         (instance face :init :vertices (list (float-vector -27.2918 2.273737e-13 11.7557) (float-vector -25.5873 2.273737e-13 6.18034) (float-vector -23.6396 -9.79184 6.18034) (float-vector -25.2143 -10.4441 11.7557)))
-         (instance face :init :vertices (list (float-vector -25.2143 10.4441 11.7557) (float-vector -23.6396 9.79184 6.18034) (float-vector -25.5873 2.273737e-13 6.18034) (float-vector -27.2918 2.273737e-13 11.7557)))
+         (instance face :init :vertices (list (float-vector -27.2918 0.0 11.7557) (float-vector -25.5873 0.0 6.18034) (float-vector -23.6396 -9.79184 6.18034) (float-vector -25.2143 -10.4441 11.7557)))
+         (instance face :init :vertices (list (float-vector -25.2143 10.4441 11.7557) (float-vector -23.6396 9.79184 6.18034) (float-vector -25.5873 0.0 6.18034) (float-vector -27.2918 0.0 11.7557)))
          (instance face :init :vertices (list (float-vector -19.2982 19.2982 11.7557) (float-vector -18.093 18.093 6.18034) (float-vector -23.6396 9.79184 6.18034) (float-vector -25.2143 10.4441 11.7557)))
          (instance face :init :vertices (list (float-vector -10.4441 25.2143 11.7557) (float-vector -9.79184 23.6396 6.18034) (float-vector -18.093 18.093 6.18034) (float-vector -19.2982 19.2982 11.7557)))
          (instance face :init :vertices (list (float-vector 0.0 27.2918 11.7557) (float-vector 0.0 25.5873 6.18034) (float-vector -9.79184 23.6396 6.18034) (float-vector -10.4441 25.2143 11.7557)))
@@ -93,8 +93,8 @@
          (instance face :init :vertices (list (float-vector -11.4601 -27.667 16.1803) (float-vector -10.4441 -25.2143 11.7557) (float-vector -4.547474e-13 -27.2918 11.7557) (float-vector -4.547474e-13 -29.9466 16.1803)))
          (instance face :init :vertices (list (float-vector -21.1754 -21.1754 16.1803) (float-vector -19.2982 -19.2982 11.7557) (float-vector -10.4441 -25.2143 11.7557) (float-vector -11.4601 -27.667 16.1803)))
          (instance face :init :vertices (list (float-vector -27.667 -11.4601 16.1803) (float-vector -25.2143 -10.4441 11.7557) (float-vector -19.2982 -19.2982 11.7557) (float-vector -21.1754 -21.1754 16.1803)))
-         (instance face :init :vertices (list (float-vector -29.9466 2.273737e-13 16.1803) (float-vector -27.2918 2.273737e-13 11.7557) (float-vector -25.2143 -10.4441 11.7557) (float-vector -27.667 -11.4601 16.1803)))
-         (instance face :init :vertices (list (float-vector -27.667 11.4601 16.1803) (float-vector -25.2143 10.4441 11.7557) (float-vector -27.2918 2.273737e-13 11.7557) (float-vector -29.9466 2.273737e-13 16.1803)))
+         (instance face :init :vertices (list (float-vector -29.9466 0.0 16.1803) (float-vector -27.2918 0.0 11.7557) (float-vector -25.2143 -10.4441 11.7557) (float-vector -27.667 -11.4601 16.1803)))
+         (instance face :init :vertices (list (float-vector -27.667 11.4601 16.1803) (float-vector -25.2143 10.4441 11.7557) (float-vector -27.2918 0.0 11.7557) (float-vector -29.9466 0.0 16.1803)))
          (instance face :init :vertices (list (float-vector -21.1754 21.1754 16.1803) (float-vector -19.2982 19.2982 11.7557) (float-vector -25.2143 10.4441 11.7557) (float-vector -27.667 11.4601 16.1803)))
          (instance face :init :vertices (list (float-vector -11.4601 27.667 16.1803) (float-vector -10.4441 25.2143 11.7557) (float-vector -19.2982 19.2982 11.7557) (float-vector -21.1754 21.1754 16.1803)))
          (instance face :init :vertices (list (float-vector 0.0 29.9466 16.1803) (float-vector 0.0 27.2918 11.7557) (float-vector -10.4441 25.2143 11.7557) (float-vector -11.4601 27.667 16.1803)))
@@ -109,8 +109,8 @@
          (instance face :init :vertices (list (float-vector -12.7402 -30.7576 19.0211) (float-vector -11.4601 -27.667 16.1803) (float-vector -4.547474e-13 -29.9466 16.1803) (float-vector -4.547474e-13 -33.2918 19.0211)))
          (instance face :init :vertices (list (float-vector -23.5409 -23.5409 19.0211) (float-vector -21.1754 -21.1754 16.1803) (float-vector -11.4601 -27.667 16.1803) (float-vector -12.7402 -30.7576 19.0211)))
          (instance face :init :vertices (list (float-vector -30.7576 -12.7402 19.0211) (float-vector -27.667 -11.4601 16.1803) (float-vector -21.1754 -21.1754 16.1803) (float-vector -23.5409 -23.5409 19.0211)))
-         (instance face :init :vertices (list (float-vector -33.2918 2.273737e-13 19.0211) (float-vector -29.9466 2.273737e-13 16.1803) (float-vector -27.667 -11.4601 16.1803) (float-vector -30.7576 -12.7402 19.0211)))
-         (instance face :init :vertices (list (float-vector -30.7576 12.7402 19.0211) (float-vector -27.667 11.4601 16.1803) (float-vector -29.9466 2.273737e-13 16.1803) (float-vector -33.2918 2.273737e-13 19.0211)))
+         (instance face :init :vertices (list (float-vector -33.2918 0.0 19.0211) (float-vector -29.9466 0.0 16.1803) (float-vector -27.667 -11.4601 16.1803) (float-vector -30.7576 -12.7402 19.0211)))
+         (instance face :init :vertices (list (float-vector -30.7576 12.7402 19.0211) (float-vector -27.667 11.4601 16.1803) (float-vector -29.9466 0.0 16.1803) (float-vector -33.2918 0.0 19.0211)))
          (instance face :init :vertices (list (float-vector -23.5409 23.5409 19.0211) (float-vector -21.1754 21.1754 16.1803) (float-vector -27.667 11.4601 16.1803) (float-vector -30.7576 12.7402 19.0211)))
          (instance face :init :vertices (list (float-vector -12.7402 30.7576 19.0211) (float-vector -11.4601 27.667 16.1803) (float-vector -21.1754 21.1754 16.1803) (float-vector -23.5409 23.5409 19.0211)))
          (instance face :init :vertices (list (float-vector 0.0 33.2918 19.0211) (float-vector 0.0 29.9466 16.1803) (float-vector -11.4601 27.667 16.1803) (float-vector -12.7402 30.7576 19.0211)))
@@ -125,8 +125,8 @@
          (instance face :init :vertices (list (float-vector -14.1593 -34.1835 20.0) (float-vector -12.7402 -30.7576 19.0211) (float-vector -4.547474e-13 -33.2918 19.0211) (float-vector -4.547474e-13 -37.0 20.0)))
          (instance face :init :vertices (list (float-vector -26.163 -26.163 20.0) (float-vector -23.5409 -23.5409 19.0211) (float-vector -12.7402 -30.7576 19.0211) (float-vector -14.1593 -34.1835 20.0)))
          (instance face :init :vertices (list (float-vector -34.1835 -14.1593 20.0) (float-vector -30.7576 -12.7402 19.0211) (float-vector -23.5409 -23.5409 19.0211) (float-vector -26.163 -26.163 20.0)))
-         (instance face :init :vertices (list (float-vector -37.0 2.273737e-13 20.0) (float-vector -33.2918 2.273737e-13 19.0211) (float-vector -30.7576 -12.7402 19.0211) (float-vector -34.1835 -14.1593 20.0)))
-         (instance face :init :vertices (list (float-vector -34.1835 14.1593 20.0) (float-vector -30.7576 12.7402 19.0211) (float-vector -33.2918 2.273737e-13 19.0211) (float-vector -37.0 2.273737e-13 20.0)))
+         (instance face :init :vertices (list (float-vector -37.0 0.0 20.0) (float-vector -33.2918 0.0 19.0211) (float-vector -30.7576 -12.7402 19.0211) (float-vector -34.1835 -14.1593 20.0)))
+         (instance face :init :vertices (list (float-vector -34.1835 14.1593 20.0) (float-vector -30.7576 12.7402 19.0211) (float-vector -33.2918 0.0 19.0211) (float-vector -37.0 0.0 20.0)))
          (instance face :init :vertices (list (float-vector -26.163 26.163 20.0) (float-vector -23.5409 23.5409 19.0211) (float-vector -30.7576 12.7402 19.0211) (float-vector -34.1835 14.1593 20.0)))
          (instance face :init :vertices (list (float-vector -14.1593 34.1835 20.0) (float-vector -12.7402 30.7576 19.0211) (float-vector -23.5409 23.5409 19.0211) (float-vector -26.163 26.163 20.0)))
          (instance face :init :vertices (list (float-vector 0.0 37.0 20.0) (float-vector 0.0 33.2918 19.0211) (float-vector -12.7402 30.7576 19.0211) (float-vector -14.1593 34.1835 20.0)))
@@ -141,8 +141,8 @@
          (instance face :init :vertices (list (float-vector -14.1593 -34.1835 23.28) (float-vector -14.1593 -34.1835 20.0) (float-vector -4.547474e-13 -37.0 20.0) (float-vector -4.547474e-13 -37.0 23.28)))
          (instance face :init :vertices (list (float-vector -26.163 -26.163 23.28) (float-vector -26.163 -26.163 20.0) (float-vector -14.1593 -34.1835 20.0) (float-vector -14.1593 -34.1835 23.28)))
          (instance face :init :vertices (list (float-vector -34.1835 -14.1593 23.28) (float-vector -34.1835 -14.1593 20.0) (float-vector -26.163 -26.163 20.0) (float-vector -26.163 -26.163 23.28)))
-         (instance face :init :vertices (list (float-vector -37.0 2.273737e-13 23.28) (float-vector -37.0 2.273737e-13 20.0) (float-vector -34.1835 -14.1593 20.0) (float-vector -34.1835 -14.1593 23.28)))
-         (instance face :init :vertices (list (float-vector -34.1835 14.1593 23.28) (float-vector -34.1835 14.1593 20.0) (float-vector -37.0 2.273737e-13 20.0) (float-vector -37.0 2.273737e-13 23.28)))
+         (instance face :init :vertices (list (float-vector -37.0 0.0 23.28) (float-vector -37.0 0.0 20.0) (float-vector -34.1835 -14.1593 20.0) (float-vector -34.1835 -14.1593 23.28)))
+         (instance face :init :vertices (list (float-vector -34.1835 14.1593 23.28) (float-vector -34.1835 14.1593 20.0) (float-vector -37.0 0.0 20.0) (float-vector -37.0 0.0 23.28)))
          (instance face :init :vertices (list (float-vector -26.163 26.163 23.28) (float-vector -26.163 26.163 20.0) (float-vector -34.1835 14.1593 20.0) (float-vector -34.1835 14.1593 23.28)))
          (instance face :init :vertices (list (float-vector -14.1593 34.1835 23.28) (float-vector -14.1593 34.1835 20.0) (float-vector -26.163 26.163 20.0) (float-vector -26.163 26.163 23.28)))
          (instance face :init :vertices (list (float-vector 0.0 37.0 23.28) (float-vector 0.0 37.0 20.0) (float-vector -14.1593 34.1835 20.0) (float-vector -14.1593 34.1835 23.28)))
@@ -157,8 +157,8 @@
          (instance face :init :vertices (list (float-vector -13.8887 -33.5303 26.56) (float-vector -14.1593 -34.1835 23.28) (float-vector -4.547474e-13 -37.0 23.28) (float-vector -4.547474e-13 -36.2929 26.56)))
          (instance face :init :vertices (list (float-vector -25.663 -25.663 26.56) (float-vector -26.163 -26.163 23.28) (float-vector -14.1593 -34.1835 23.28) (float-vector -13.8887 -33.5303 26.56)))
          (instance face :init :vertices (list (float-vector -33.5303 -13.8887 26.56) (float-vector -34.1835 -14.1593 23.28) (float-vector -26.163 -26.163 23.28) (float-vector -25.663 -25.663 26.56)))
-         (instance face :init :vertices (list (float-vector -36.2929 2.273737e-13 26.56) (float-vector -37.0 2.273737e-13 23.28) (float-vector -34.1835 -14.1593 23.28) (float-vector -33.5303 -13.8887 26.56)))
-         (instance face :init :vertices (list (float-vector -33.5303 13.8887 26.56) (float-vector -34.1835 14.1593 23.28) (float-vector -37.0 2.273737e-13 23.28) (float-vector -36.2929 2.273737e-13 26.56)))
+         (instance face :init :vertices (list (float-vector -36.2929 0.0 26.56) (float-vector -37.0 0.0 23.28) (float-vector -34.1835 -14.1593 23.28) (float-vector -33.5303 -13.8887 26.56)))
+         (instance face :init :vertices (list (float-vector -33.5303 13.8887 26.56) (float-vector -34.1835 14.1593 23.28) (float-vector -37.0 0.0 23.28) (float-vector -36.2929 0.0 26.56)))
          (instance face :init :vertices (list (float-vector -25.663 25.663 26.56) (float-vector -26.163 26.163 23.28) (float-vector -34.1835 14.1593 23.28) (float-vector -33.5303 13.8887 26.56)))
          (instance face :init :vertices (list (float-vector -13.8887 33.5303 26.56) (float-vector -14.1593 34.1835 23.28) (float-vector -26.163 26.163 23.28) (float-vector -25.663 25.663 26.56)))
          (instance face :init :vertices (list (float-vector 0.0 36.2929 26.56) (float-vector 0.0 37.0 23.28) (float-vector -14.1593 34.1835 23.28) (float-vector -13.8887 33.5303 26.56)))
@@ -173,8 +173,8 @@
          (instance face :init :vertices (list (float-vector -13.7766 -33.2597 29.84) (float-vector -13.8887 -33.5303 26.56) (float-vector -4.547474e-13 -36.2929 26.56) (float-vector -4.547474e-13 -36.0 29.84)))
          (instance face :init :vertices (list (float-vector -25.4558 -25.4558 29.84) (float-vector -25.663 -25.663 26.56) (float-vector -13.8887 -33.5303 26.56) (float-vector -13.7766 -33.2597 29.84)))
          (instance face :init :vertices (list (float-vector -33.2597 -13.7766 29.84) (float-vector -33.5303 -13.8887 26.56) (float-vector -25.663 -25.663 26.56) (float-vector -25.4558 -25.4558 29.84)))
-         (instance face :init :vertices (list (float-vector -36.0 2.273737e-13 29.84) (float-vector -36.2929 2.273737e-13 26.56) (float-vector -33.5303 -13.8887 26.56) (float-vector -33.2597 -13.7766 29.84)))
-         (instance face :init :vertices (list (float-vector -33.2597 13.7766 29.84) (float-vector -33.5303 13.8887 26.56) (float-vector -36.2929 2.273737e-13 26.56) (float-vector -36.0 2.273737e-13 29.84)))
+         (instance face :init :vertices (list (float-vector -36.0 0.0 29.84) (float-vector -36.2929 0.0 26.56) (float-vector -33.5303 -13.8887 26.56) (float-vector -33.2597 -13.7766 29.84)))
+         (instance face :init :vertices (list (float-vector -33.2597 13.7766 29.84) (float-vector -33.5303 13.8887 26.56) (float-vector -36.2929 0.0 26.56) (float-vector -36.0 0.0 29.84)))
          (instance face :init :vertices (list (float-vector -25.4558 25.4558 29.84) (float-vector -25.663 25.663 26.56) (float-vector -33.5303 13.8887 26.56) (float-vector -33.2597 13.7766 29.84)))
          (instance face :init :vertices (list (float-vector -13.7766 33.2597 29.84) (float-vector -13.8887 33.5303 26.56) (float-vector -25.663 25.663 26.56) (float-vector -25.4558 25.4558 29.84)))
          (instance face :init :vertices (list (float-vector 0.0 36.0 29.84) (float-vector 0.0 36.2929 26.56) (float-vector -13.8887 33.5303 26.56) (float-vector -13.7766 33.2597 29.84)))
@@ -189,8 +189,8 @@
          (instance face :init :vertices (list (float-vector -13.8887 -33.5303 33.12) (float-vector -13.7766 -33.2597 29.84) (float-vector -4.547474e-13 -36.0 29.84) (float-vector -4.547474e-13 -36.2929 33.12)))
          (instance face :init :vertices (list (float-vector -25.663 -25.663 33.12) (float-vector -25.4558 -25.4558 29.84) (float-vector -13.7766 -33.2597 29.84) (float-vector -13.8887 -33.5303 33.12)))
          (instance face :init :vertices (list (float-vector -33.5303 -13.8887 33.12) (float-vector -33.2597 -13.7766 29.84) (float-vector -25.4558 -25.4558 29.84) (float-vector -25.663 -25.663 33.12)))
-         (instance face :init :vertices (list (float-vector -36.2929 2.273737e-13 33.12) (float-vector -36.0 2.273737e-13 29.84) (float-vector -33.2597 -13.7766 29.84) (float-vector -33.5303 -13.8887 33.12)))
-         (instance face :init :vertices (list (float-vector -33.5303 13.8887 33.12) (float-vector -33.2597 13.7766 29.84) (float-vector -36.0 2.273737e-13 29.84) (float-vector -36.2929 2.273737e-13 33.12)))
+         (instance face :init :vertices (list (float-vector -36.2929 0.0 33.12) (float-vector -36.0 0.0 29.84) (float-vector -33.2597 -13.7766 29.84) (float-vector -33.5303 -13.8887 33.12)))
+         (instance face :init :vertices (list (float-vector -33.5303 13.8887 33.12) (float-vector -33.2597 13.7766 29.84) (float-vector -36.0 0.0 29.84) (float-vector -36.2929 0.0 33.12)))
          (instance face :init :vertices (list (float-vector -25.663 25.663 33.12) (float-vector -25.4558 25.4558 29.84) (float-vector -33.2597 13.7766 29.84) (float-vector -33.5303 13.8887 33.12)))
          (instance face :init :vertices (list (float-vector -13.8887 33.5303 33.12) (float-vector -13.7766 33.2597 29.84) (float-vector -25.4558 25.4558 29.84) (float-vector -25.663 25.663 33.12)))
          (instance face :init :vertices (list (float-vector 0.0 36.2929 33.12) (float-vector 0.0 36.0 29.84) (float-vector -13.7766 33.2597 29.84) (float-vector -13.8887 33.5303 33.12)))
@@ -205,8 +205,8 @@
          (instance face :init :vertices (list (float-vector -14.1593 -34.1835 36.4) (float-vector -13.8887 -33.5303 33.12) (float-vector -4.547474e-13 -36.2929 33.12) (float-vector -4.547474e-13 -37.0 36.4)))
          (instance face :init :vertices (list (float-vector -26.163 -26.163 36.4) (float-vector -25.663 -25.663 33.12) (float-vector -13.8887 -33.5303 33.12) (float-vector -14.1593 -34.1835 36.4)))
          (instance face :init :vertices (list (float-vector -34.1835 -14.1593 36.4) (float-vector -33.5303 -13.8887 33.12) (float-vector -25.663 -25.663 33.12) (float-vector -26.163 -26.163 36.4)))
-         (instance face :init :vertices (list (float-vector -37.0 2.273737e-13 36.4) (float-vector -36.2929 2.273737e-13 33.12) (float-vector -33.5303 -13.8887 33.12) (float-vector -34.1835 -14.1593 36.4)))
-         (instance face :init :vertices (list (float-vector -34.1835 14.1593 36.4) (float-vector -33.5303 13.8887 33.12) (float-vector -36.2929 2.273737e-13 33.12) (float-vector -37.0 2.273737e-13 36.4)))
+         (instance face :init :vertices (list (float-vector -37.0 0.0 36.4) (float-vector -36.2929 0.0 33.12) (float-vector -33.5303 -13.8887 33.12) (float-vector -34.1835 -14.1593 36.4)))
+         (instance face :init :vertices (list (float-vector -34.1835 14.1593 36.4) (float-vector -33.5303 13.8887 33.12) (float-vector -36.2929 0.0 33.12) (float-vector -37.0 0.0 36.4)))
          (instance face :init :vertices (list (float-vector -26.163 26.163 36.4) (float-vector -25.663 25.663 33.12) (float-vector -33.5303 13.8887 33.12) (float-vector -34.1835 14.1593 36.4)))
          (instance face :init :vertices (list (float-vector -14.1593 34.1835 36.4) (float-vector -13.8887 33.5303 33.12) (float-vector -25.663 25.663 33.12) (float-vector -26.163 26.163 36.4)))
          (instance face :init :vertices (list (float-vector 0.0 37.0 36.4) (float-vector 0.0 36.2929 33.12) (float-vector -13.8887 33.5303 33.12) (float-vector -14.1593 34.1835 36.4)))
@@ -221,8 +221,8 @@
          (instance face :init :vertices (list (float-vector -14.4299 -34.8368 39.68) (float-vector -14.1593 -34.1835 36.4) (float-vector -4.547474e-13 -37.0 36.4) (float-vector -4.547474e-13 -37.7071 39.68)))
          (instance face :init :vertices (list (float-vector -26.663 -26.663 39.68) (float-vector -26.163 -26.163 36.4) (float-vector -14.1593 -34.1835 36.4) (float-vector -14.4299 -34.8368 39.68)))
          (instance face :init :vertices (list (float-vector -34.8368 -14.4299 39.68) (float-vector -34.1835 -14.1593 36.4) (float-vector -26.163 -26.163 36.4) (float-vector -26.663 -26.663 39.68)))
-         (instance face :init :vertices (list (float-vector -37.7071 2.273737e-13 39.68) (float-vector -37.0 2.273737e-13 36.4) (float-vector -34.1835 -14.1593 36.4) (float-vector -34.8368 -14.4299 39.68)))
-         (instance face :init :vertices (list (float-vector -34.8368 14.4299 39.68) (float-vector -34.1835 14.1593 36.4) (float-vector -37.0 2.273737e-13 36.4) (float-vector -37.7071 2.273737e-13 39.68)))
+         (instance face :init :vertices (list (float-vector -37.7071 0.0 39.68) (float-vector -37.0 0.0 36.4) (float-vector -34.1835 -14.1593 36.4) (float-vector -34.8368 -14.4299 39.68)))
+         (instance face :init :vertices (list (float-vector -34.8368 14.4299 39.68) (float-vector -34.1835 14.1593 36.4) (float-vector -37.0 0.0 36.4) (float-vector -37.7071 0.0 39.68)))
          (instance face :init :vertices (list (float-vector -26.663 26.663 39.68) (float-vector -26.163 26.163 36.4) (float-vector -34.1835 14.1593 36.4) (float-vector -34.8368 14.4299 39.68)))
          (instance face :init :vertices (list (float-vector -14.4299 34.8368 39.68) (float-vector -14.1593 34.1835 36.4) (float-vector -26.163 26.163 36.4) (float-vector -26.663 26.663 39.68)))
          (instance face :init :vertices (list (float-vector 0.0 37.7071 39.68) (float-vector 0.0 37.0 36.4) (float-vector -14.1593 34.1835 36.4) (float-vector -14.4299 34.8368 39.68)))
@@ -237,8 +237,8 @@
          (instance face :init :vertices (list (float-vector -14.542 -35.1074 42.96) (float-vector -14.4299 -34.8368 39.68) (float-vector -4.547474e-13 -37.7071 39.68) (float-vector -4.547474e-13 -38.0 42.96)))
          (instance face :init :vertices (list (float-vector -26.8701 -26.8701 42.96) (float-vector -26.663 -26.663 39.68) (float-vector -14.4299 -34.8368 39.68) (float-vector -14.542 -35.1074 42.96)))
          (instance face :init :vertices (list (float-vector -35.1074 -14.542 42.96) (float-vector -34.8368 -14.4299 39.68) (float-vector -26.663 -26.663 39.68) (float-vector -26.8701 -26.8701 42.96)))
-         (instance face :init :vertices (list (float-vector -38.0 2.273737e-13 42.96) (float-vector -37.7071 2.273737e-13 39.68) (float-vector -34.8368 -14.4299 39.68) (float-vector -35.1074 -14.542 42.96)))
-         (instance face :init :vertices (list (float-vector -35.1074 14.542 42.96) (float-vector -34.8368 14.4299 39.68) (float-vector -37.7071 2.273737e-13 39.68) (float-vector -38.0 2.273737e-13 42.96)))
+         (instance face :init :vertices (list (float-vector -38.0 0.0 42.96) (float-vector -37.7071 0.0 39.68) (float-vector -34.8368 -14.4299 39.68) (float-vector -35.1074 -14.542 42.96)))
+         (instance face :init :vertices (list (float-vector -35.1074 14.542 42.96) (float-vector -34.8368 14.4299 39.68) (float-vector -37.7071 0.0 39.68) (float-vector -38.0 0.0 42.96)))
          (instance face :init :vertices (list (float-vector -26.8701 26.8701 42.96) (float-vector -26.663 26.663 39.68) (float-vector -34.8368 14.4299 39.68) (float-vector -35.1074 14.542 42.96)))
          (instance face :init :vertices (list (float-vector -14.542 35.1074 42.96) (float-vector -14.4299 34.8368 39.68) (float-vector -26.663 26.663 39.68) (float-vector -26.8701 26.8701 42.96)))
          (instance face :init :vertices (list (float-vector 0.0 38.0 42.96) (float-vector 0.0 37.7071 39.68) (float-vector -14.4299 34.8368 39.68) (float-vector -14.542 35.1074 42.96)))
@@ -253,8 +253,8 @@
          (instance face :init :vertices (list (float-vector -14.4299 -34.8368 46.24) (float-vector -14.542 -35.1074 42.96) (float-vector -4.547474e-13 -38.0 42.96) (float-vector -4.547474e-13 -37.7071 46.24)))
          (instance face :init :vertices (list (float-vector -26.663 -26.663 46.24) (float-vector -26.8701 -26.8701 42.96) (float-vector -14.542 -35.1074 42.96) (float-vector -14.4299 -34.8368 46.24)))
          (instance face :init :vertices (list (float-vector -34.8368 -14.4299 46.24) (float-vector -35.1074 -14.542 42.96) (float-vector -26.8701 -26.8701 42.96) (float-vector -26.663 -26.663 46.24)))
-         (instance face :init :vertices (list (float-vector -37.7071 2.273737e-13 46.24) (float-vector -38.0 2.273737e-13 42.96) (float-vector -35.1074 -14.542 42.96) (float-vector -34.8368 -14.4299 46.24)))
-         (instance face :init :vertices (list (float-vector -34.8368 14.4299 46.24) (float-vector -35.1074 14.542 42.96) (float-vector -38.0 2.273737e-13 42.96) (float-vector -37.7071 2.273737e-13 46.24)))
+         (instance face :init :vertices (list (float-vector -37.7071 0.0 46.24) (float-vector -38.0 0.0 42.96) (float-vector -35.1074 -14.542 42.96) (float-vector -34.8368 -14.4299 46.24)))
+         (instance face :init :vertices (list (float-vector -34.8368 14.4299 46.24) (float-vector -35.1074 14.542 42.96) (float-vector -38.0 0.0 42.96) (float-vector -37.7071 0.0 46.24)))
          (instance face :init :vertices (list (float-vector -26.663 26.663 46.24) (float-vector -26.8701 26.8701 42.96) (float-vector -35.1074 14.542 42.96) (float-vector -34.8368 14.4299 46.24)))
          (instance face :init :vertices (list (float-vector -14.4299 34.8368 46.24) (float-vector -14.542 35.1074 42.96) (float-vector -26.8701 26.8701 42.96) (float-vector -26.663 26.663 46.24)))
          (instance face :init :vertices (list (float-vector 0.0 37.7071 46.24) (float-vector 0.0 38.0 42.96) (float-vector -14.542 35.1074 42.96) (float-vector -14.4299 34.8368 46.24)))
@@ -269,8 +269,8 @@
          (instance face :init :vertices (list (float-vector -14.1593 -34.1835 49.52) (float-vector -14.4299 -34.8368 46.24) (float-vector -4.547474e-13 -37.7071 46.24) (float-vector -4.547474e-13 -37.0 49.52)))
          (instance face :init :vertices (list (float-vector -26.163 -26.163 49.52) (float-vector -26.663 -26.663 46.24) (float-vector -14.4299 -34.8368 46.24) (float-vector -14.1593 -34.1835 49.52)))
          (instance face :init :vertices (list (float-vector -34.1835 -14.1593 49.52) (float-vector -34.8368 -14.4299 46.24) (float-vector -26.663 -26.663 46.24) (float-vector -26.163 -26.163 49.52)))
-         (instance face :init :vertices (list (float-vector -37.0 2.273737e-13 49.52) (float-vector -37.7071 2.273737e-13 46.24) (float-vector -34.8368 -14.4299 46.24) (float-vector -34.1835 -14.1593 49.52)))
-         (instance face :init :vertices (list (float-vector -34.1835 14.1593 49.52) (float-vector -34.8368 14.4299 46.24) (float-vector -37.7071 2.273737e-13 46.24) (float-vector -37.0 2.273737e-13 49.52)))
+         (instance face :init :vertices (list (float-vector -37.0 0.0 49.52) (float-vector -37.7071 0.0 46.24) (float-vector -34.8368 -14.4299 46.24) (float-vector -34.1835 -14.1593 49.52)))
+         (instance face :init :vertices (list (float-vector -34.1835 14.1593 49.52) (float-vector -34.8368 14.4299 46.24) (float-vector -37.7071 0.0 46.24) (float-vector -37.0 0.0 49.52)))
          (instance face :init :vertices (list (float-vector -26.163 26.163 49.52) (float-vector -26.663 26.663 46.24) (float-vector -34.8368 14.4299 46.24) (float-vector -34.1835 14.1593 49.52)))
          (instance face :init :vertices (list (float-vector -14.1593 34.1835 49.52) (float-vector -14.4299 34.8368 46.24) (float-vector -26.663 26.663 46.24) (float-vector -26.163 26.163 49.52)))
          (instance face :init :vertices (list (float-vector 0.0 37.0 49.52) (float-vector 0.0 37.7071 46.24) (float-vector -14.4299 34.8368 46.24) (float-vector -14.1593 34.1835 49.52)))
@@ -285,8 +285,8 @@
          (instance face :init :vertices (list (float-vector -13.8887 -33.5303 52.8) (float-vector -14.1593 -34.1835 49.52) (float-vector -4.547474e-13 -37.0 49.52) (float-vector -4.547474e-13 -36.2929 52.8)))
          (instance face :init :vertices (list (float-vector -25.663 -25.663 52.8) (float-vector -26.163 -26.163 49.52) (float-vector -14.1593 -34.1835 49.52) (float-vector -13.8887 -33.5303 52.8)))
          (instance face :init :vertices (list (float-vector -33.5303 -13.8887 52.8) (float-vector -34.1835 -14.1593 49.52) (float-vector -26.163 -26.163 49.52) (float-vector -25.663 -25.663 52.8)))
-         (instance face :init :vertices (list (float-vector -36.2929 2.273737e-13 52.8) (float-vector -37.0 2.273737e-13 49.52) (float-vector -34.1835 -14.1593 49.52) (float-vector -33.5303 -13.8887 52.8)))
-         (instance face :init :vertices (list (float-vector -33.5303 13.8887 52.8) (float-vector -34.1835 14.1593 49.52) (float-vector -37.0 2.273737e-13 49.52) (float-vector -36.2929 2.273737e-13 52.8)))
+         (instance face :init :vertices (list (float-vector -36.2929 0.0 52.8) (float-vector -37.0 0.0 49.52) (float-vector -34.1835 -14.1593 49.52) (float-vector -33.5303 -13.8887 52.8)))
+         (instance face :init :vertices (list (float-vector -33.5303 13.8887 52.8) (float-vector -34.1835 14.1593 49.52) (float-vector -37.0 0.0 49.52) (float-vector -36.2929 0.0 52.8)))
          (instance face :init :vertices (list (float-vector -25.663 25.663 52.8) (float-vector -26.163 26.163 49.52) (float-vector -34.1835 14.1593 49.52) (float-vector -33.5303 13.8887 52.8)))
          (instance face :init :vertices (list (float-vector -13.8887 33.5303 52.8) (float-vector -14.1593 34.1835 49.52) (float-vector -26.163 26.163 49.52) (float-vector -25.663 25.663 52.8)))
          (instance face :init :vertices (list (float-vector 0.0 36.2929 52.8) (float-vector 0.0 37.0 49.52) (float-vector -14.1593 34.1835 49.52) (float-vector -13.8887 33.5303 52.8)))
@@ -301,8 +301,8 @@
          (instance face :init :vertices (list (float-vector -13.7766 -33.2597 56.08) (float-vector -13.8887 -33.5303 52.8) (float-vector -4.547474e-13 -36.2929 52.8) (float-vector -4.547474e-13 -36.0 56.08)))
          (instance face :init :vertices (list (float-vector -25.4558 -25.4558 56.08) (float-vector -25.663 -25.663 52.8) (float-vector -13.8887 -33.5303 52.8) (float-vector -13.7766 -33.2597 56.08)))
          (instance face :init :vertices (list (float-vector -33.2597 -13.7766 56.08) (float-vector -33.5303 -13.8887 52.8) (float-vector -25.663 -25.663 52.8) (float-vector -25.4558 -25.4558 56.08)))
-         (instance face :init :vertices (list (float-vector -36.0 2.273737e-13 56.08) (float-vector -36.2929 2.273737e-13 52.8) (float-vector -33.5303 -13.8887 52.8) (float-vector -33.2597 -13.7766 56.08)))
-         (instance face :init :vertices (list (float-vector -33.2597 13.7766 56.08) (float-vector -33.5303 13.8887 52.8) (float-vector -36.2929 2.273737e-13 52.8) (float-vector -36.0 2.273737e-13 56.08)))
+         (instance face :init :vertices (list (float-vector -36.0 0.0 56.08) (float-vector -36.2929 0.0 52.8) (float-vector -33.5303 -13.8887 52.8) (float-vector -33.2597 -13.7766 56.08)))
+         (instance face :init :vertices (list (float-vector -33.2597 13.7766 56.08) (float-vector -33.5303 13.8887 52.8) (float-vector -36.2929 0.0 52.8) (float-vector -36.0 0.0 56.08)))
          (instance face :init :vertices (list (float-vector -25.4558 25.4558 56.08) (float-vector -25.663 25.663 52.8) (float-vector -33.5303 13.8887 52.8) (float-vector -33.2597 13.7766 56.08)))
          (instance face :init :vertices (list (float-vector -13.7766 33.2597 56.08) (float-vector -13.8887 33.5303 52.8) (float-vector -25.663 25.663 52.8) (float-vector -25.4558 25.4558 56.08)))
          (instance face :init :vertices (list (float-vector 0.0 36.0 56.08) (float-vector 0.0 36.2929 52.8) (float-vector -13.8887 33.5303 52.8) (float-vector -13.7766 33.2597 56.08)))
@@ -317,8 +317,8 @@
          (instance face :init :vertices (list (float-vector -13.8887 -33.5303 59.36) (float-vector -13.7766 -33.2597 56.08) (float-vector -4.547474e-13 -36.0 56.08) (float-vector -4.547474e-13 -36.2929 59.36)))
          (instance face :init :vertices (list (float-vector -25.663 -25.663 59.36) (float-vector -25.4558 -25.4558 56.08) (float-vector -13.7766 -33.2597 56.08) (float-vector -13.8887 -33.5303 59.36)))
          (instance face :init :vertices (list (float-vector -33.5303 -13.8887 59.36) (float-vector -33.2597 -13.7766 56.08) (float-vector -25.4558 -25.4558 56.08) (float-vector -25.663 -25.663 59.36)))
-         (instance face :init :vertices (list (float-vector -36.2929 2.273737e-13 59.36) (float-vector -36.0 2.273737e-13 56.08) (float-vector -33.2597 -13.7766 56.08) (float-vector -33.5303 -13.8887 59.36)))
-         (instance face :init :vertices (list (float-vector -33.5303 13.8887 59.36) (float-vector -33.2597 13.7766 56.08) (float-vector -36.0 2.273737e-13 56.08) (float-vector -36.2929 2.273737e-13 59.36)))
+         (instance face :init :vertices (list (float-vector -36.2929 0.0 59.36) (float-vector -36.0 0.0 56.08) (float-vector -33.2597 -13.7766 56.08) (float-vector -33.5303 -13.8887 59.36)))
+         (instance face :init :vertices (list (float-vector -33.5303 13.8887 59.36) (float-vector -33.2597 13.7766 56.08) (float-vector -36.0 0.0 56.08) (float-vector -36.2929 0.0 59.36)))
          (instance face :init :vertices (list (float-vector -25.663 25.663 59.36) (float-vector -25.4558 25.4558 56.08) (float-vector -33.2597 13.7766 56.08) (float-vector -33.5303 13.8887 59.36)))
          (instance face :init :vertices (list (float-vector -13.8887 33.5303 59.36) (float-vector -13.7766 33.2597 56.08) (float-vector -25.4558 25.4558 56.08) (float-vector -25.663 25.663 59.36)))
          (instance face :init :vertices (list (float-vector 0.0 36.2929 59.36) (float-vector 0.0 36.0 56.08) (float-vector -13.7766 33.2597 56.08) (float-vector -13.8887 33.5303 59.36)))
@@ -333,8 +333,8 @@
          (instance face :init :vertices (list (float-vector -14.1593 -34.1835 62.64) (float-vector -13.8887 -33.5303 59.36) (float-vector -4.547474e-13 -36.2929 59.36) (float-vector -4.547474e-13 -37.0 62.64)))
          (instance face :init :vertices (list (float-vector -26.163 -26.163 62.64) (float-vector -25.663 -25.663 59.36) (float-vector -13.8887 -33.5303 59.36) (float-vector -14.1593 -34.1835 62.64)))
          (instance face :init :vertices (list (float-vector -34.1835 -14.1593 62.64) (float-vector -33.5303 -13.8887 59.36) (float-vector -25.663 -25.663 59.36) (float-vector -26.163 -26.163 62.64)))
-         (instance face :init :vertices (list (float-vector -37.0 2.273737e-13 62.64) (float-vector -36.2929 2.273737e-13 59.36) (float-vector -33.5303 -13.8887 59.36) (float-vector -34.1835 -14.1593 62.64)))
-         (instance face :init :vertices (list (float-vector -34.1835 14.1593 62.64) (float-vector -33.5303 13.8887 59.36) (float-vector -36.2929 2.273737e-13 59.36) (float-vector -37.0 2.273737e-13 62.64)))
+         (instance face :init :vertices (list (float-vector -37.0 0.0 62.64) (float-vector -36.2929 0.0 59.36) (float-vector -33.5303 -13.8887 59.36) (float-vector -34.1835 -14.1593 62.64)))
+         (instance face :init :vertices (list (float-vector -34.1835 14.1593 62.64) (float-vector -33.5303 13.8887 59.36) (float-vector -36.2929 0.0 59.36) (float-vector -37.0 0.0 62.64)))
          (instance face :init :vertices (list (float-vector -26.163 26.163 62.64) (float-vector -25.663 25.663 59.36) (float-vector -33.5303 13.8887 59.36) (float-vector -34.1835 14.1593 62.64)))
          (instance face :init :vertices (list (float-vector -14.1593 34.1835 62.64) (float-vector -13.8887 33.5303 59.36) (float-vector -25.663 25.663 59.36) (float-vector -26.163 26.163 62.64)))
          (instance face :init :vertices (list (float-vector 0.0 37.0 62.64) (float-vector 0.0 36.2929 59.36) (float-vector -13.8887 33.5303 59.36) (float-vector -14.1593 34.1835 62.64)))
@@ -349,8 +349,8 @@
          (instance face :init :vertices (list (float-vector -14.4299 -34.8368 65.92) (float-vector -14.1593 -34.1835 62.64) (float-vector -4.547474e-13 -37.0 62.64) (float-vector -4.547474e-13 -37.7071 65.92)))
          (instance face :init :vertices (list (float-vector -26.663 -26.663 65.92) (float-vector -26.163 -26.163 62.64) (float-vector -14.1593 -34.1835 62.64) (float-vector -14.4299 -34.8368 65.92)))
          (instance face :init :vertices (list (float-vector -34.8368 -14.4299 65.92) (float-vector -34.1835 -14.1593 62.64) (float-vector -26.163 -26.163 62.64) (float-vector -26.663 -26.663 65.92)))
-         (instance face :init :vertices (list (float-vector -37.7071 2.273737e-13 65.92) (float-vector -37.0 2.273737e-13 62.64) (float-vector -34.1835 -14.1593 62.64) (float-vector -34.8368 -14.4299 65.92)))
-         (instance face :init :vertices (list (float-vector -34.8368 14.4299 65.92) (float-vector -34.1835 14.1593 62.64) (float-vector -37.0 2.273737e-13 62.64) (float-vector -37.7071 2.273737e-13 65.92)))
+         (instance face :init :vertices (list (float-vector -37.7071 0.0 65.92) (float-vector -37.0 0.0 62.64) (float-vector -34.1835 -14.1593 62.64) (float-vector -34.8368 -14.4299 65.92)))
+         (instance face :init :vertices (list (float-vector -34.8368 14.4299 65.92) (float-vector -34.1835 14.1593 62.64) (float-vector -37.0 0.0 62.64) (float-vector -37.7071 0.0 65.92)))
          (instance face :init :vertices (list (float-vector -26.663 26.663 65.92) (float-vector -26.163 26.163 62.64) (float-vector -34.1835 14.1593 62.64) (float-vector -34.8368 14.4299 65.92)))
          (instance face :init :vertices (list (float-vector -14.4299 34.8368 65.92) (float-vector -14.1593 34.1835 62.64) (float-vector -26.163 26.163 62.64) (float-vector -26.663 26.663 65.92)))
          (instance face :init :vertices (list (float-vector 0.0 37.7071 65.92) (float-vector 0.0 37.0 62.64) (float-vector -14.1593 34.1835 62.64) (float-vector -14.4299 34.8368 65.92)))
@@ -365,8 +365,8 @@
          (instance face :init :vertices (list (float-vector -14.542 -35.1074 69.2) (float-vector -14.4299 -34.8368 65.92) (float-vector -4.547474e-13 -37.7071 65.92) (float-vector -4.547474e-13 -38.0 69.2)))
          (instance face :init :vertices (list (float-vector -26.8701 -26.8701 69.2) (float-vector -26.663 -26.663 65.92) (float-vector -14.4299 -34.8368 65.92) (float-vector -14.542 -35.1074 69.2)))
          (instance face :init :vertices (list (float-vector -35.1074 -14.542 69.2) (float-vector -34.8368 -14.4299 65.92) (float-vector -26.663 -26.663 65.92) (float-vector -26.8701 -26.8701 69.2)))
-         (instance face :init :vertices (list (float-vector -38.0 2.273737e-13 69.2) (float-vector -37.7071 2.273737e-13 65.92) (float-vector -34.8368 -14.4299 65.92) (float-vector -35.1074 -14.542 69.2)))
-         (instance face :init :vertices (list (float-vector -35.1074 14.542 69.2) (float-vector -34.8368 14.4299 65.92) (float-vector -37.7071 2.273737e-13 65.92) (float-vector -38.0 2.273737e-13 69.2)))
+         (instance face :init :vertices (list (float-vector -38.0 0.0 69.2) (float-vector -37.7071 0.0 65.92) (float-vector -34.8368 -14.4299 65.92) (float-vector -35.1074 -14.542 69.2)))
+         (instance face :init :vertices (list (float-vector -35.1074 14.542 69.2) (float-vector -34.8368 14.4299 65.92) (float-vector -37.7071 0.0 65.92) (float-vector -38.0 0.0 69.2)))
          (instance face :init :vertices (list (float-vector -26.8701 26.8701 69.2) (float-vector -26.663 26.663 65.92) (float-vector -34.8368 14.4299 65.92) (float-vector -35.1074 14.542 69.2)))
          (instance face :init :vertices (list (float-vector -14.542 35.1074 69.2) (float-vector -14.4299 34.8368 65.92) (float-vector -26.663 26.663 65.92) (float-vector -26.8701 26.8701 69.2)))
          (instance face :init :vertices (list (float-vector 0.0 38.0 69.2) (float-vector 0.0 37.7071 65.92) (float-vector -14.4299 34.8368 65.92) (float-vector -14.542 35.1074 69.2)))
@@ -381,8 +381,8 @@
          (instance face :init :vertices (list (float-vector -14.4299 -34.8368 72.48) (float-vector -14.542 -35.1074 69.2) (float-vector -4.547474e-13 -38.0 69.2) (float-vector -4.547474e-13 -37.7071 72.48)))
          (instance face :init :vertices (list (float-vector -26.663 -26.663 72.48) (float-vector -26.8701 -26.8701 69.2) (float-vector -14.542 -35.1074 69.2) (float-vector -14.4299 -34.8368 72.48)))
          (instance face :init :vertices (list (float-vector -34.8368 -14.4299 72.48) (float-vector -35.1074 -14.542 69.2) (float-vector -26.8701 -26.8701 69.2) (float-vector -26.663 -26.663 72.48)))
-         (instance face :init :vertices (list (float-vector -37.7071 2.273737e-13 72.48) (float-vector -38.0 2.273737e-13 69.2) (float-vector -35.1074 -14.542 69.2) (float-vector -34.8368 -14.4299 72.48)))
-         (instance face :init :vertices (list (float-vector -34.8368 14.4299 72.48) (float-vector -35.1074 14.542 69.2) (float-vector -38.0 2.273737e-13 69.2) (float-vector -37.7071 2.273737e-13 72.48)))
+         (instance face :init :vertices (list (float-vector -37.7071 0.0 72.48) (float-vector -38.0 0.0 69.2) (float-vector -35.1074 -14.542 69.2) (float-vector -34.8368 -14.4299 72.48)))
+         (instance face :init :vertices (list (float-vector -34.8368 14.4299 72.48) (float-vector -35.1074 14.542 69.2) (float-vector -38.0 0.0 69.2) (float-vector -37.7071 0.0 72.48)))
          (instance face :init :vertices (list (float-vector -26.663 26.663 72.48) (float-vector -26.8701 26.8701 69.2) (float-vector -35.1074 14.542 69.2) (float-vector -34.8368 14.4299 72.48)))
          (instance face :init :vertices (list (float-vector -14.4299 34.8368 72.48) (float-vector -14.542 35.1074 69.2) (float-vector -26.8701 26.8701 69.2) (float-vector -26.663 26.663 72.48)))
          (instance face :init :vertices (list (float-vector 0.0 37.7071 72.48) (float-vector 0.0 38.0 69.2) (float-vector -14.542 35.1074 69.2) (float-vector -14.4299 34.8368 72.48)))
@@ -397,8 +397,8 @@
          (instance face :init :vertices (list (float-vector -14.1593 -34.1835 75.76) (float-vector -14.4299 -34.8368 72.48) (float-vector -4.547474e-13 -37.7071 72.48) (float-vector -4.547474e-13 -37.0 75.76)))
          (instance face :init :vertices (list (float-vector -26.163 -26.163 75.76) (float-vector -26.663 -26.663 72.48) (float-vector -14.4299 -34.8368 72.48) (float-vector -14.1593 -34.1835 75.76)))
          (instance face :init :vertices (list (float-vector -34.1835 -14.1593 75.76) (float-vector -34.8368 -14.4299 72.48) (float-vector -26.663 -26.663 72.48) (float-vector -26.163 -26.163 75.76)))
-         (instance face :init :vertices (list (float-vector -37.0 2.273737e-13 75.76) (float-vector -37.7071 2.273737e-13 72.48) (float-vector -34.8368 -14.4299 72.48) (float-vector -34.1835 -14.1593 75.76)))
-         (instance face :init :vertices (list (float-vector -34.1835 14.1593 75.76) (float-vector -34.8368 14.4299 72.48) (float-vector -37.7071 2.273737e-13 72.48) (float-vector -37.0 2.273737e-13 75.76)))
+         (instance face :init :vertices (list (float-vector -37.0 0.0 75.76) (float-vector -37.7071 0.0 72.48) (float-vector -34.8368 -14.4299 72.48) (float-vector -34.1835 -14.1593 75.76)))
+         (instance face :init :vertices (list (float-vector -34.1835 14.1593 75.76) (float-vector -34.8368 14.4299 72.48) (float-vector -37.7071 0.0 72.48) (float-vector -37.0 0.0 75.76)))
          (instance face :init :vertices (list (float-vector -26.163 26.163 75.76) (float-vector -26.663 26.663 72.48) (float-vector -34.8368 14.4299 72.48) (float-vector -34.1835 14.1593 75.76)))
          (instance face :init :vertices (list (float-vector -14.1593 34.1835 75.76) (float-vector -14.4299 34.8368 72.48) (float-vector -26.663 26.663 72.48) (float-vector -26.163 26.163 75.76)))
          (instance face :init :vertices (list (float-vector 0.0 37.0 75.76) (float-vector 0.0 37.7071 72.48) (float-vector -14.4299 34.8368 72.48) (float-vector -14.1593 34.1835 75.76)))
@@ -413,8 +413,8 @@
          (instance face :init :vertices (list (float-vector -13.8887 -33.5303 79.04) (float-vector -14.1593 -34.1835 75.76) (float-vector -4.547474e-13 -37.0 75.76) (float-vector -4.547474e-13 -36.2929 79.04)))
          (instance face :init :vertices (list (float-vector -25.663 -25.663 79.04) (float-vector -26.163 -26.163 75.76) (float-vector -14.1593 -34.1835 75.76) (float-vector -13.8887 -33.5303 79.04)))
          (instance face :init :vertices (list (float-vector -33.5303 -13.8887 79.04) (float-vector -34.1835 -14.1593 75.76) (float-vector -26.163 -26.163 75.76) (float-vector -25.663 -25.663 79.04)))
-         (instance face :init :vertices (list (float-vector -36.2929 2.273737e-13 79.04) (float-vector -37.0 2.273737e-13 75.76) (float-vector -34.1835 -14.1593 75.76) (float-vector -33.5303 -13.8887 79.04)))
-         (instance face :init :vertices (list (float-vector -33.5303 13.8887 79.04) (float-vector -34.1835 14.1593 75.76) (float-vector -37.0 2.273737e-13 75.76) (float-vector -36.2929 2.273737e-13 79.04)))
+         (instance face :init :vertices (list (float-vector -36.2929 0.0 79.04) (float-vector -37.0 0.0 75.76) (float-vector -34.1835 -14.1593 75.76) (float-vector -33.5303 -13.8887 79.04)))
+         (instance face :init :vertices (list (float-vector -33.5303 13.8887 79.04) (float-vector -34.1835 14.1593 75.76) (float-vector -37.0 0.0 75.76) (float-vector -36.2929 0.0 79.04)))
          (instance face :init :vertices (list (float-vector -25.663 25.663 79.04) (float-vector -26.163 26.163 75.76) (float-vector -34.1835 14.1593 75.76) (float-vector -33.5303 13.8887 79.04)))
          (instance face :init :vertices (list (float-vector -13.8887 33.5303 79.04) (float-vector -14.1593 34.1835 75.76) (float-vector -26.163 26.163 75.76) (float-vector -25.663 25.663 79.04)))
          (instance face :init :vertices (list (float-vector 0.0 36.2929 79.04) (float-vector 0.0 37.0 75.76) (float-vector -14.1593 34.1835 75.76) (float-vector -13.8887 33.5303 79.04)))
@@ -429,8 +429,8 @@
          (instance face :init :vertices (list (float-vector -13.7766 -33.2597 82.32) (float-vector -13.8887 -33.5303 79.04) (float-vector -4.547474e-13 -36.2929 79.04) (float-vector -4.547474e-13 -36.0 82.32)))
          (instance face :init :vertices (list (float-vector -25.4558 -25.4558 82.32) (float-vector -25.663 -25.663 79.04) (float-vector -13.8887 -33.5303 79.04) (float-vector -13.7766 -33.2597 82.32)))
          (instance face :init :vertices (list (float-vector -33.2597 -13.7766 82.32) (float-vector -33.5303 -13.8887 79.04) (float-vector -25.663 -25.663 79.04) (float-vector -25.4558 -25.4558 82.32)))
-         (instance face :init :vertices (list (float-vector -36.0 2.273737e-13 82.32) (float-vector -36.2929 2.273737e-13 79.04) (float-vector -33.5303 -13.8887 79.04) (float-vector -33.2597 -13.7766 82.32)))
-         (instance face :init :vertices (list (float-vector -33.2597 13.7766 82.32) (float-vector -33.5303 13.8887 79.04) (float-vector -36.2929 2.273737e-13 79.04) (float-vector -36.0 2.273737e-13 82.32)))
+         (instance face :init :vertices (list (float-vector -36.0 0.0 82.32) (float-vector -36.2929 0.0 79.04) (float-vector -33.5303 -13.8887 79.04) (float-vector -33.2597 -13.7766 82.32)))
+         (instance face :init :vertices (list (float-vector -33.2597 13.7766 82.32) (float-vector -33.5303 13.8887 79.04) (float-vector -36.2929 0.0 79.04) (float-vector -36.0 0.0 82.32)))
          (instance face :init :vertices (list (float-vector -25.4558 25.4558 82.32) (float-vector -25.663 25.663 79.04) (float-vector -33.5303 13.8887 79.04) (float-vector -33.2597 13.7766 82.32)))
          (instance face :init :vertices (list (float-vector -13.7766 33.2597 82.32) (float-vector -13.8887 33.5303 79.04) (float-vector -25.663 25.663 79.04) (float-vector -25.4558 25.4558 82.32)))
          (instance face :init :vertices (list (float-vector 0.0 36.0 82.32) (float-vector 0.0 36.2929 79.04) (float-vector -13.8887 33.5303 79.04) (float-vector -13.7766 33.2597 82.32)))
@@ -445,8 +445,8 @@
          (instance face :init :vertices (list (float-vector -13.8887 -33.5303 85.6) (float-vector -13.7766 -33.2597 82.32) (float-vector -4.547474e-13 -36.0 82.32) (float-vector -4.547474e-13 -36.2929 85.6)))
          (instance face :init :vertices (list (float-vector -25.663 -25.663 85.6) (float-vector -25.4558 -25.4558 82.32) (float-vector -13.7766 -33.2597 82.32) (float-vector -13.8887 -33.5303 85.6)))
          (instance face :init :vertices (list (float-vector -33.5303 -13.8887 85.6) (float-vector -33.2597 -13.7766 82.32) (float-vector -25.4558 -25.4558 82.32) (float-vector -25.663 -25.663 85.6)))
-         (instance face :init :vertices (list (float-vector -36.2929 2.273737e-13 85.6) (float-vector -36.0 2.273737e-13 82.32) (float-vector -33.2597 -13.7766 82.32) (float-vector -33.5303 -13.8887 85.6)))
-         (instance face :init :vertices (list (float-vector -33.5303 13.8887 85.6) (float-vector -33.2597 13.7766 82.32) (float-vector -36.0 2.273737e-13 82.32) (float-vector -36.2929 2.273737e-13 85.6)))
+         (instance face :init :vertices (list (float-vector -36.2929 0.0 85.6) (float-vector -36.0 0.0 82.32) (float-vector -33.2597 -13.7766 82.32) (float-vector -33.5303 -13.8887 85.6)))
+         (instance face :init :vertices (list (float-vector -33.5303 13.8887 85.6) (float-vector -33.2597 13.7766 82.32) (float-vector -36.0 0.0 82.32) (float-vector -36.2929 0.0 85.6)))
          (instance face :init :vertices (list (float-vector -25.663 25.663 85.6) (float-vector -25.4558 25.4558 82.32) (float-vector -33.2597 13.7766 82.32) (float-vector -33.5303 13.8887 85.6)))
          (instance face :init :vertices (list (float-vector -13.8887 33.5303 85.6) (float-vector -13.7766 33.2597 82.32) (float-vector -25.4558 25.4558 82.32) (float-vector -25.663 25.663 85.6)))
          (instance face :init :vertices (list (float-vector 0.0 36.2929 85.6) (float-vector 0.0 36.0 82.32) (float-vector -13.7766 33.2597 82.32) (float-vector -13.8887 33.5303 85.6)))
@@ -461,8 +461,8 @@
          (instance face :init :vertices (list (float-vector -14.1593 -34.1835 88.88) (float-vector -13.8887 -33.5303 85.6) (float-vector -4.547474e-13 -36.2929 85.6) (float-vector -4.547474e-13 -37.0 88.88)))
          (instance face :init :vertices (list (float-vector -26.163 -26.163 88.88) (float-vector -25.663 -25.663 85.6) (float-vector -13.8887 -33.5303 85.6) (float-vector -14.1593 -34.1835 88.88)))
          (instance face :init :vertices (list (float-vector -34.1835 -14.1593 88.88) (float-vector -33.5303 -13.8887 85.6) (float-vector -25.663 -25.663 85.6) (float-vector -26.163 -26.163 88.88)))
-         (instance face :init :vertices (list (float-vector -37.0 2.273737e-13 88.88) (float-vector -36.2929 2.273737e-13 85.6) (float-vector -33.5303 -13.8887 85.6) (float-vector -34.1835 -14.1593 88.88)))
-         (instance face :init :vertices (list (float-vector -34.1835 14.1593 88.88) (float-vector -33.5303 13.8887 85.6) (float-vector -36.2929 2.273737e-13 85.6) (float-vector -37.0 2.273737e-13 88.88)))
+         (instance face :init :vertices (list (float-vector -37.0 0.0 88.88) (float-vector -36.2929 0.0 85.6) (float-vector -33.5303 -13.8887 85.6) (float-vector -34.1835 -14.1593 88.88)))
+         (instance face :init :vertices (list (float-vector -34.1835 14.1593 88.88) (float-vector -33.5303 13.8887 85.6) (float-vector -36.2929 0.0 85.6) (float-vector -37.0 0.0 88.88)))
          (instance face :init :vertices (list (float-vector -26.163 26.163 88.88) (float-vector -25.663 25.663 85.6) (float-vector -33.5303 13.8887 85.6) (float-vector -34.1835 14.1593 88.88)))
          (instance face :init :vertices (list (float-vector -14.1593 34.1835 88.88) (float-vector -13.8887 33.5303 85.6) (float-vector -25.663 25.663 85.6) (float-vector -26.163 26.163 88.88)))
          (instance face :init :vertices (list (float-vector 0.0 37.0 88.88) (float-vector 0.0 36.2929 85.6) (float-vector -13.8887 33.5303 85.6) (float-vector -14.1593 34.1835 88.88)))
@@ -477,8 +477,8 @@
          (instance face :init :vertices (list (float-vector -14.4299 -34.8368 92.16) (float-vector -14.1593 -34.1835 88.88) (float-vector -4.547474e-13 -37.0 88.88) (float-vector -4.547474e-13 -37.7071 92.16)))
          (instance face :init :vertices (list (float-vector -26.663 -26.663 92.16) (float-vector -26.163 -26.163 88.88) (float-vector -14.1593 -34.1835 88.88) (float-vector -14.4299 -34.8368 92.16)))
          (instance face :init :vertices (list (float-vector -34.8368 -14.4299 92.16) (float-vector -34.1835 -14.1593 88.88) (float-vector -26.163 -26.163 88.88) (float-vector -26.663 -26.663 92.16)))
-         (instance face :init :vertices (list (float-vector -37.7071 2.273737e-13 92.16) (float-vector -37.0 2.273737e-13 88.88) (float-vector -34.1835 -14.1593 88.88) (float-vector -34.8368 -14.4299 92.16)))
-         (instance face :init :vertices (list (float-vector -34.8368 14.4299 92.16) (float-vector -34.1835 14.1593 88.88) (float-vector -37.0 2.273737e-13 88.88) (float-vector -37.7071 2.273737e-13 92.16)))
+         (instance face :init :vertices (list (float-vector -37.7071 0.0 92.16) (float-vector -37.0 0.0 88.88) (float-vector -34.1835 -14.1593 88.88) (float-vector -34.8368 -14.4299 92.16)))
+         (instance face :init :vertices (list (float-vector -34.8368 14.4299 92.16) (float-vector -34.1835 14.1593 88.88) (float-vector -37.0 0.0 88.88) (float-vector -37.7071 0.0 92.16)))
          (instance face :init :vertices (list (float-vector -26.663 26.663 92.16) (float-vector -26.163 26.163 88.88) (float-vector -34.1835 14.1593 88.88) (float-vector -34.8368 14.4299 92.16)))
          (instance face :init :vertices (list (float-vector -14.4299 34.8368 92.16) (float-vector -14.1593 34.1835 88.88) (float-vector -26.163 26.163 88.88) (float-vector -26.663 26.663 92.16)))
          (instance face :init :vertices (list (float-vector 0.0 37.7071 92.16) (float-vector 0.0 37.0 88.88) (float-vector -14.1593 34.1835 88.88) (float-vector -14.4299 34.8368 92.16)))
@@ -493,8 +493,8 @@
          (instance face :init :vertices (list (float-vector -14.542 -35.1074 95.44) (float-vector -14.4299 -34.8368 92.16) (float-vector -4.547474e-13 -37.7071 92.16) (float-vector -4.547474e-13 -38.0 95.44)))
          (instance face :init :vertices (list (float-vector -26.8701 -26.8701 95.44) (float-vector -26.663 -26.663 92.16) (float-vector -14.4299 -34.8368 92.16) (float-vector -14.542 -35.1074 95.44)))
          (instance face :init :vertices (list (float-vector -35.1074 -14.542 95.44) (float-vector -34.8368 -14.4299 92.16) (float-vector -26.663 -26.663 92.16) (float-vector -26.8701 -26.8701 95.44)))
-         (instance face :init :vertices (list (float-vector -38.0 2.273737e-13 95.44) (float-vector -37.7071 2.273737e-13 92.16) (float-vector -34.8368 -14.4299 92.16) (float-vector -35.1074 -14.542 95.44)))
-         (instance face :init :vertices (list (float-vector -35.1074 14.542 95.44) (float-vector -34.8368 14.4299 92.16) (float-vector -37.7071 2.273737e-13 92.16) (float-vector -38.0 2.273737e-13 95.44)))
+         (instance face :init :vertices (list (float-vector -38.0 0.0 95.44) (float-vector -37.7071 0.0 92.16) (float-vector -34.8368 -14.4299 92.16) (float-vector -35.1074 -14.542 95.44)))
+         (instance face :init :vertices (list (float-vector -35.1074 14.542 95.44) (float-vector -34.8368 14.4299 92.16) (float-vector -37.7071 0.0 92.16) (float-vector -38.0 0.0 95.44)))
          (instance face :init :vertices (list (float-vector -26.8701 26.8701 95.44) (float-vector -26.663 26.663 92.16) (float-vector -34.8368 14.4299 92.16) (float-vector -35.1074 14.542 95.44)))
          (instance face :init :vertices (list (float-vector -14.542 35.1074 95.44) (float-vector -14.4299 34.8368 92.16) (float-vector -26.663 26.663 92.16) (float-vector -26.8701 26.8701 95.44)))
          (instance face :init :vertices (list (float-vector 0.0 38.0 95.44) (float-vector 0.0 37.7071 92.16) (float-vector -14.4299 34.8368 92.16) (float-vector -14.542 35.1074 95.44)))
@@ -509,8 +509,8 @@
          (instance face :init :vertices (list (float-vector -14.4299 -34.8368 98.72) (float-vector -14.542 -35.1074 95.44) (float-vector -4.547474e-13 -38.0 95.44) (float-vector -4.547474e-13 -37.7071 98.72)))
          (instance face :init :vertices (list (float-vector -26.663 -26.663 98.72) (float-vector -26.8701 -26.8701 95.44) (float-vector -14.542 -35.1074 95.44) (float-vector -14.4299 -34.8368 98.72)))
          (instance face :init :vertices (list (float-vector -34.8368 -14.4299 98.72) (float-vector -35.1074 -14.542 95.44) (float-vector -26.8701 -26.8701 95.44) (float-vector -26.663 -26.663 98.72)))
-         (instance face :init :vertices (list (float-vector -37.7071 2.273737e-13 98.72) (float-vector -38.0 2.273737e-13 95.44) (float-vector -35.1074 -14.542 95.44) (float-vector -34.8368 -14.4299 98.72)))
-         (instance face :init :vertices (list (float-vector -34.8368 14.4299 98.72) (float-vector -35.1074 14.542 95.44) (float-vector -38.0 2.273737e-13 95.44) (float-vector -37.7071 2.273737e-13 98.72)))
+         (instance face :init :vertices (list (float-vector -37.7071 0.0 98.72) (float-vector -38.0 0.0 95.44) (float-vector -35.1074 -14.542 95.44) (float-vector -34.8368 -14.4299 98.72)))
+         (instance face :init :vertices (list (float-vector -34.8368 14.4299 98.72) (float-vector -35.1074 14.542 95.44) (float-vector -38.0 0.0 95.44) (float-vector -37.7071 0.0 98.72)))
          (instance face :init :vertices (list (float-vector -26.663 26.663 98.72) (float-vector -26.8701 26.8701 95.44) (float-vector -35.1074 14.542 95.44) (float-vector -34.8368 14.4299 98.72)))
          (instance face :init :vertices (list (float-vector -14.4299 34.8368 98.72) (float-vector -14.542 35.1074 95.44) (float-vector -26.8701 26.8701 95.44) (float-vector -26.663 26.663 98.72)))
          (instance face :init :vertices (list (float-vector 0.0 37.7071 98.72) (float-vector 0.0 38.0 95.44) (float-vector -14.542 35.1074 95.44) (float-vector -14.4299 34.8368 98.72)))
@@ -525,8 +525,8 @@
          (instance face :init :vertices (list (float-vector -14.1593 -34.1835 102.0) (float-vector -14.4299 -34.8368 98.72) (float-vector -4.547474e-13 -37.7071 98.72) (float-vector -4.547474e-13 -37.0 102.0)))
          (instance face :init :vertices (list (float-vector -26.163 -26.163 102.0) (float-vector -26.663 -26.663 98.72) (float-vector -14.4299 -34.8368 98.72) (float-vector -14.1593 -34.1835 102.0)))
          (instance face :init :vertices (list (float-vector -34.1835 -14.1593 102.0) (float-vector -34.8368 -14.4299 98.72) (float-vector -26.663 -26.663 98.72) (float-vector -26.163 -26.163 102.0)))
-         (instance face :init :vertices (list (float-vector -37.0 2.273737e-13 102.0) (float-vector -37.7071 2.273737e-13 98.72) (float-vector -34.8368 -14.4299 98.72) (float-vector -34.1835 -14.1593 102.0)))
-         (instance face :init :vertices (list (float-vector -34.1835 14.1593 102.0) (float-vector -34.8368 14.4299 98.72) (float-vector -37.7071 2.273737e-13 98.72) (float-vector -37.0 2.273737e-13 102.0)))
+         (instance face :init :vertices (list (float-vector -37.0 0.0 102.0) (float-vector -37.7071 0.0 98.72) (float-vector -34.8368 -14.4299 98.72) (float-vector -34.1835 -14.1593 102.0)))
+         (instance face :init :vertices (list (float-vector -34.1835 14.1593 102.0) (float-vector -34.8368 14.4299 98.72) (float-vector -37.7071 0.0 98.72) (float-vector -37.0 0.0 102.0)))
          (instance face :init :vertices (list (float-vector -26.163 26.163 102.0) (float-vector -26.663 26.663 98.72) (float-vector -34.8368 14.4299 98.72) (float-vector -34.1835 14.1593 102.0)))
          (instance face :init :vertices (list (float-vector -14.1593 34.1835 102.0) (float-vector -14.4299 34.8368 98.72) (float-vector -26.663 26.663 98.72) (float-vector -26.163 26.163 102.0)))
          (instance face :init :vertices (list (float-vector 0.0 37.0 102.0) (float-vector 0.0 37.7071 98.72) (float-vector -14.4299 34.8368 98.72) (float-vector -14.1593 34.1835 102.0)))
@@ -541,8 +541,8 @@
          (instance face :init :vertices (list (float-vector -12.6286 -30.488 102.0) (float-vector -14.1593 -34.1835 102.0) (float-vector -4.547474e-13 -37.0 102.0) (float-vector -4.547474e-13 -33.0 102.0)))
          (instance face :init :vertices (list (float-vector -23.3345 -23.3345 102.0) (float-vector -26.163 -26.163 102.0) (float-vector -14.1593 -34.1835 102.0) (float-vector -12.6286 -30.488 102.0)))
          (instance face :init :vertices (list (float-vector -30.488 -12.6286 102.0) (float-vector -34.1835 -14.1593 102.0) (float-vector -26.163 -26.163 102.0) (float-vector -23.3345 -23.3345 102.0)))
-         (instance face :init :vertices (list (float-vector -33.0 2.273737e-13 102.0) (float-vector -37.0 2.273737e-13 102.0) (float-vector -34.1835 -14.1593 102.0) (float-vector -30.488 -12.6286 102.0)))
-         (instance face :init :vertices (list (float-vector -30.488 12.6286 102.0) (float-vector -34.1835 14.1593 102.0) (float-vector -37.0 2.273737e-13 102.0) (float-vector -33.0 2.273737e-13 102.0)))
+         (instance face :init :vertices (list (float-vector -33.0 0.0 102.0) (float-vector -37.0 0.0 102.0) (float-vector -34.1835 -14.1593 102.0) (float-vector -30.488 -12.6286 102.0)))
+         (instance face :init :vertices (list (float-vector -30.488 12.6286 102.0) (float-vector -34.1835 14.1593 102.0) (float-vector -37.0 0.0 102.0) (float-vector -33.0 0.0 102.0)))
          (instance face :init :vertices (list (float-vector -23.3345 23.3345 102.0) (float-vector -26.163 26.163 102.0) (float-vector -34.1835 14.1593 102.0) (float-vector -30.488 12.6286 102.0)))
          (instance face :init :vertices (list (float-vector -12.6286 30.488 102.0) (float-vector -14.1593 34.1835 102.0) (float-vector -26.163 26.163 102.0) (float-vector -23.3345 23.3345 102.0)))
          (instance face :init :vertices (list (float-vector 0.0 33.0 102.0) (float-vector 0.0 37.0 102.0) (float-vector -14.1593 34.1835 102.0) (float-vector -12.6286 30.488 102.0)))
@@ -557,8 +557,8 @@
          (instance face :init :vertices (list (float-vector -12.6286 -30.488 20.0) (float-vector -12.6286 -30.488 102.0) (float-vector -4.547474e-13 -33.0 102.0) (float-vector -4.547474e-13 -33.0 20.0)))
          (instance face :init :vertices (list (float-vector -23.3345 -23.3345 20.0) (float-vector -23.3345 -23.3345 102.0) (float-vector -12.6286 -30.488 102.0) (float-vector -12.6286 -30.488 20.0)))
          (instance face :init :vertices (list (float-vector -30.488 -12.6286 20.0) (float-vector -30.488 -12.6286 102.0) (float-vector -23.3345 -23.3345 102.0) (float-vector -23.3345 -23.3345 20.0)))
-         (instance face :init :vertices (list (float-vector -33.0 2.273737e-13 20.0) (float-vector -33.0 2.273737e-13 102.0) (float-vector -30.488 -12.6286 102.0) (float-vector -30.488 -12.6286 20.0)))
-         (instance face :init :vertices (list (float-vector -30.488 12.6286 20.0) (float-vector -30.488 12.6286 102.0) (float-vector -33.0 2.273737e-13 102.0) (float-vector -33.0 2.273737e-13 20.0)))
+         (instance face :init :vertices (list (float-vector -33.0 0.0 20.0) (float-vector -33.0 0.0 102.0) (float-vector -30.488 -12.6286 102.0) (float-vector -30.488 -12.6286 20.0)))
+         (instance face :init :vertices (list (float-vector -30.488 12.6286 20.0) (float-vector -30.488 12.6286 102.0) (float-vector -33.0 0.0 102.0) (float-vector -33.0 0.0 20.0)))
          (instance face :init :vertices (list (float-vector -23.3345 23.3345 20.0) (float-vector -23.3345 23.3345 102.0) (float-vector -30.488 12.6286 102.0) (float-vector -30.488 12.6286 20.0)))
          (instance face :init :vertices (list (float-vector -12.6286 30.488 20.0) (float-vector -12.6286 30.488 102.0) (float-vector -23.3345 23.3345 102.0) (float-vector -23.3345 23.3345 20.0)))
          (instance face :init :vertices (list (float-vector 0.0 33.0 20.0) (float-vector 0.0 33.0 102.0) (float-vector -12.6286 30.488 102.0) (float-vector -12.6286 30.488 20.0)))
@@ -573,8 +573,8 @@
          (instance face :init :vertices (list (float-vector -5.74025 -13.8582 10.0) (float-vector -12.6286 -30.488 20.0) (float-vector -4.547474e-13 -33.0 20.0) (float-vector 0.0 -15.0 10.0)))
          (instance face :init :vertices (list (float-vector -10.6066 -10.6066 10.0) (float-vector -23.3345 -23.3345 20.0) (float-vector -12.6286 -30.488 20.0) (float-vector -5.74025 -13.8582 10.0)))
          (instance face :init :vertices (list (float-vector -13.8582 -5.74025 10.0) (float-vector -30.488 -12.6286 20.0) (float-vector -23.3345 -23.3345 20.0) (float-vector -10.6066 -10.6066 10.0)))
-         (instance face :init :vertices (list (float-vector -15.0 0.0 10.0) (float-vector -33.0 2.273737e-13 20.0) (float-vector -30.488 -12.6286 20.0) (float-vector -13.8582 -5.74025 10.0)))
-         (instance face :init :vertices (list (float-vector -13.8582 5.74025 10.0) (float-vector -30.488 12.6286 20.0) (float-vector -33.0 2.273737e-13 20.0) (float-vector -15.0 0.0 10.0)))
+         (instance face :init :vertices (list (float-vector -15.0 0.0 10.0) (float-vector -33.0 0.0 20.0) (float-vector -30.488 -12.6286 20.0) (float-vector -13.8582 -5.74025 10.0)))
+         (instance face :init :vertices (list (float-vector -13.8582 5.74025 10.0) (float-vector -30.488 12.6286 20.0) (float-vector -33.0 0.0 20.0) (float-vector -15.0 0.0 10.0)))
          (instance face :init :vertices (list (float-vector -10.6066 10.6066 10.0) (float-vector -23.3345 23.3345 20.0) (float-vector -30.488 12.6286 20.0) (float-vector -13.8582 5.74025 10.0)))
          (instance face :init :vertices (list (float-vector -5.74025 13.8582 10.0) (float-vector -12.6286 30.488 20.0) (float-vector -23.3345 23.3345 20.0) (float-vector -10.6066 10.6066 10.0)))
          (instance face :init :vertices (list (float-vector 0.0 15.0 10.0) (float-vector 0.0 33.0 20.0) (float-vector -12.6286 30.488 20.0) (float-vector -5.74025 13.8582 10.0)))
diff --git a/models/room73b2-toshiba-clacio-refrigerator-object.l b/models/room73b2-toshiba-clacio-refrigerator-object.l
index 0b66e3bc..2fa07b5b 100644
--- a/models/room73b2-toshiba-clacio-refrigerator-object.l
+++ b/models/room73b2-toshiba-clacio-refrigerator-object.l
@@ -335,9 +335,9 @@
      (send blink2 :assoc handle1)
      (setq handle2 (make-cascoords :pos (float-vector 294.739 95.0 937.191) :rot #2f((-0.939693 -0.34202 -2.775558e-17) (2.775558e-17 -1.110223e-16 1.0) (-0.34202 0.939693 1.110223e-16)) :name "drawer-middle-left"))
      (send blink3 :assoc handle2)
-     (setq handle3 (make-cascoords :pos (float-vector 305.0 -2.273737e-13 699.0) :rot #2f((-0.866025 0.5 0.0) (0.0 0.0 1.0) (0.5 0.866025 0.0)) :name "drawer-lower1"))
+     (setq handle3 (make-cascoords :pos (float-vector 305.0 0.0 699.0) :rot #2f((-0.866025 0.5 0.0) (0.0 0.0 1.0) (0.5 0.866025 0.0)) :name "drawer-lower1"))
      (send blink4 :assoc handle3)
-     (setq handle4 (make-cascoords :pos (float-vector 305.0 -2.273737e-13 359.0) :rot #2f((-0.866025 0.5 0.0) (0.0 0.0 1.0) (0.5 0.866025 0.0)) :name "drawer-lower2"))
+     (setq handle4 (make-cascoords :pos (float-vector 305.0 0.0 359.0) :rot #2f((-0.866025 0.5 0.0) (0.0 0.0 1.0) (0.5 0.866025 0.0)) :name "drawer-lower2"))
      (send blink5 :assoc handle4)
 
      ;; init-ending 
diff --git a/models/room73b2-trashbox0-object.l b/models/room73b2-trashbox0-object.l
index 49070dcb..15198eb5 100644
--- a/models/room73b2-trashbox0-object.l
+++ b/models/room73b2-trashbox0-object.l
@@ -6,7 +6,7 @@
 (defclass room73b2-trashbox0-object
   :super cascaded-link
   :slots (sensors
-         handle0
+         handle0 handle1
          ))
 (defmethod room73b2-trashbox0-object
   (:init
@@ -92,8 +92,10 @@
 
 
      ;; definition of :handle
-     (setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
+     (setq handle0 (make-cascoords :pos (float-vector -200.0 0.0 500.0) :rot #2f((-0.000204 1.0 0.000204) (0.0 -0.000204 1.0) (1.0 0.000204 4.148277e-08)) :name "rear"))
      (send blink0 :assoc handle0)
+     (setq handle1 (make-cascoords :pos (float-vector 200.0 0.0 500.0) :rot #2f((-0.000204 -1.0 0.000204) (0.0 -0.000204 -1.0) (1.0 -0.000204 4.148277e-08)) :name "front"))
+     (send blink0 :assoc handle1)
 
      ;; init-ending 
      (setq links (list blink0))
@@ -104,8 +106,9 @@
 
      self))
 
-  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
-  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-rear (&rest args) (forward-message-to handle0 args))
+  (:handle-front (&rest args) (forward-message-to handle1 args))
   (:attention (&rest args) (forward-message-to-all (list ) args))
   (:button (&rest args) (forward-message-to-all (list ) args))
   )
diff --git a/models/room73b2-trashbox1-object.l b/models/room73b2-trashbox1-object.l
new file mode 100644
index 00000000..1cc53ed4
--- /dev/null
+++ b/models/room73b2-trashbox1-object.l
@@ -0,0 +1,117 @@
+;;
+;; DO NOT EDIT THIS FILE
+;; this file is automatically generated from euslisp+euslib version 
+;;
+;;
+(defclass room73b2-trashbox1-object
+  :super cascaded-link
+  :slots (sensors
+         handle0 handle1
+         ))
+(defmethod room73b2-trashbox1-object
+  (:init
+   (&rest args &key (name "room73b2-trashbox1") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
+   (let (c bc
+         blink0
+                 )
+     (send-super* :init :name name args)
+
+     ;; definition of link
+
+     ;; definition of :room73b2-trashbox1-bodyset2
+     (setq bc (list
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 200.0 100.0 10.0) (float-vector 150.0 150.0 10.0) (float-vector -150.0 150.0 10.0) (float-vector -200.0 100.0 10.0) (float-vector -200.0 -100.0 10.0) (float-vector -150.0 -150.0 10.0) (float-vector 150.0 -150.0 10.0) (float-vector 200.0 -100.0 10.0)))
+         (instance face :init :vertices (list (float-vector 150.0 150.0 0.0) (float-vector 200.0 100.0 0.0) (float-vector 200.0 -100.0 0.0) (float-vector 150.0 -150.0 0.0) (float-vector -150.0 -150.0 0.0) (float-vector -200.0 -100.0 0.0) (float-vector -200.0 100.0 0.0) (float-vector -150.0 150.0 0.0)))
+         (instance face :init :vertices (list (float-vector 200.0 100.0 10.0) (float-vector 200.0 100.0 0.0) (float-vector 150.0 150.0 0.0) (float-vector 150.0 150.0 10.0)))
+         (instance face :init :vertices (list (float-vector 200.0 -100.0 10.0) (float-vector 200.0 -100.0 0.0) (float-vector 200.0 100.0 0.0) (float-vector 200.0 100.0 10.0)))
+         (instance face :init :vertices (list (float-vector 150.0 -150.0 10.0) (float-vector 150.0 -150.0 0.0) (float-vector 200.0 -100.0 0.0) (float-vector 200.0 -100.0 10.0)))
+         (instance face :init :vertices (list (float-vector -150.0 -150.0 10.0) (float-vector -150.0 -150.0 0.0) (float-vector 150.0 -150.0 0.0) (float-vector 150.0 -150.0 10.0)))
+         (instance face :init :vertices (list (float-vector -200.0 -100.0 10.0) (float-vector -200.0 -100.0 0.0) (float-vector -150.0 -150.0 0.0) (float-vector -150.0 -150.0 10.0)))
+         (instance face :init :vertices (list (float-vector -200.0 100.0 10.0) (float-vector -200.0 100.0 0.0) (float-vector -200.0 -100.0 0.0) (float-vector -200.0 -100.0 10.0)))
+         (instance face :init :vertices (list (float-vector -150.0 150.0 10.0) (float-vector -150.0 150.0 0.0) (float-vector -200.0 100.0 0.0) (float-vector -200.0 100.0 10.0)))
+         (instance face :init :vertices (list (float-vector 150.0 150.0 10.0) (float-vector 150.0 150.0 0.0) (float-vector -150.0 150.0 0.0) (float-vector -150.0 150.0 10.0)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 200.0 100.0 500.0) (float-vector 189.99 99.99 500.0) (float-vector 190.0 -100.0 500.0) (float-vector 150.0 -140.0 500.0) (float-vector -150.0 -140.0 500.0) (float-vector -190.0 -100.0 500.0) (float-vector -190.0 100.0 500.0) (float-vector -150.0 140.0 500.0) (float-vector 150.0 140.0 500.0) (float-vector 190.0 100.0 500.0) (float-vector 199.99 100.01 500.0) (float-vector 150.0 150.0 500.0) (float-vector -150.0 150.0 500.0) (float-vector -200.0 100.0 500.0) (float-vector -200.0 -100.0 500.0) (float-vector -150.0 -150.0 500.0) (float-vector 150.0 -150.0 500.0) (float-vector 200.0 -100.0 500.0)))
+         (instance face :init :vertices (list (float-vector 189.99 99.99 0.0) (float-vector 200.0 100.0 0.0) (float-vector 200.0 -100.0 0.0) (float-vector 150.0 -150.0 0.0) (float-vector -150.0 -150.0 0.0) (float-vector -200.0 -100.0 0.0) (float-vector -200.0 100.0 0.0) (float-vector -150.0 150.0 0.0) (float-vector 150.0 150.0 0.0) (float-vector 199.99 100.01 0.0) (float-vector 190.0 100.0 0.0) (float-vector 150.0 140.0 0.0) (float-vector -150.0 140.0 0.0) (float-vector -190.0 100.0 0.0) (float-vector -190.0 -100.0 0.0) (float-vector -150.0 -140.0 0.0) (float-vector 150.0 -140.0 0.0) (float-vector 190.0 -100.0 0.0)))
+         (instance face :init :vertices (list (float-vector 200.0 100.0 500.0) (float-vector 200.0 100.0 0.0) (float-vector 189.99 99.99 0.0) (float-vector 189.99 99.99 500.0)))
+         (instance face :init :vertices (list (float-vector 200.0 -100.0 500.0) (float-vector 200.0 -100.0 0.0) (float-vector 200.0 100.0 0.0) (float-vector 200.0 100.0 500.0)))
+         (instance face :init :vertices (list (float-vector 150.0 -150.0 500.0) (float-vector 150.0 -150.0 0.0) (float-vector 200.0 -100.0 0.0) (float-vector 200.0 -100.0 500.0)))
+         (instance face :init :vertices (list (float-vector -150.0 -150.0 500.0) (float-vector -150.0 -150.0 0.0) (float-vector 150.0 -150.0 0.0) (float-vector 150.0 -150.0 500.0)))
+         (instance face :init :vertices (list (float-vector -200.0 -100.0 500.0) (float-vector -200.0 -100.0 0.0) (float-vector -150.0 -150.0 0.0) (float-vector -150.0 -150.0 500.0)))
+         (instance face :init :vertices (list (float-vector -200.0 100.0 500.0) (float-vector -200.0 100.0 0.0) (float-vector -200.0 -100.0 0.0) (float-vector -200.0 -100.0 500.0)))
+         (instance face :init :vertices (list (float-vector -150.0 150.0 500.0) (float-vector -150.0 150.0 0.0) (float-vector -200.0 100.0 0.0) (float-vector -200.0 100.0 500.0)))
+         (instance face :init :vertices (list (float-vector 150.0 150.0 500.0) (float-vector 150.0 150.0 0.0) (float-vector -150.0 150.0 0.0) (float-vector -150.0 150.0 500.0)))
+         (instance face :init :vertices (list (float-vector 199.99 100.01 500.0) (float-vector 199.99 100.01 0.0) (float-vector 150.0 150.0 0.0) (float-vector 150.0 150.0 500.0)))
+         (instance face :init :vertices (list (float-vector 190.0 100.0 500.0) (float-vector 190.0 100.0 0.0) (float-vector 199.99 100.01 0.0) (float-vector 199.99 100.01 500.0)))
+         (instance face :init :vertices (list (float-vector 150.0 140.0 500.0) (float-vector 150.0 140.0 0.0) (float-vector 190.0 100.0 0.0) (float-vector 190.0 100.0 500.0)))
+         (instance face :init :vertices (list (float-vector -150.0 140.0 500.0) (float-vector -150.0 140.0 0.0) (float-vector 150.0 140.0 0.0) (float-vector 150.0 140.0 500.0)))
+         (instance face :init :vertices (list (float-vector -190.0 100.0 500.0) (float-vector -190.0 100.0 0.0) (float-vector -150.0 140.0 0.0) (float-vector -150.0 140.0 500.0)))
+         (instance face :init :vertices (list (float-vector -190.0 -100.0 500.0) (float-vector -190.0 -100.0 0.0) (float-vector -190.0 100.0 0.0) (float-vector -190.0 100.0 500.0)))
+         (instance face :init :vertices (list (float-vector -150.0 -140.0 500.0) (float-vector -150.0 -140.0 0.0) (float-vector -190.0 -100.0 0.0) (float-vector -190.0 -100.0 500.0)))
+         (instance face :init :vertices (list (float-vector 150.0 -140.0 500.0) (float-vector 150.0 -140.0 0.0) (float-vector -150.0 -140.0 0.0) (float-vector -150.0 -140.0 500.0)))
+         (instance face :init :vertices (list (float-vector 190.0 -100.0 500.0) (float-vector 190.0 -100.0 0.0) (float-vector 150.0 -140.0 0.0) (float-vector 150.0 -140.0 500.0)))
+         (instance face :init :vertices (list (float-vector 189.99 99.99 500.0) (float-vector 189.99 99.99 0.0) (float-vector 190.0 -100.0 0.0) (float-vector 190.0 -100.0 500.0)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 210.0 100.0 510.0) (float-vector 189.99 99.99 510.0) (float-vector 190.0 -100.0 510.0) (float-vector 150.0 -140.0 510.0) (float-vector -150.0 -140.0 510.0) (float-vector -190.0 -100.0 510.0) (float-vector -190.0 100.0 510.0) (float-vector -150.0 140.0 510.0) (float-vector 150.0 140.0 510.0) (float-vector 190.0 100.0 510.0) (float-vector 209.99 100.01 510.0) (float-vector 150.0 160.0 510.0) (float-vector -150.0 160.0 510.0) (float-vector -210.0 100.0 510.0) (float-vector -210.0 -100.0 510.0) (float-vector -150.0 -160.0 510.0) (float-vector 150.0 -160.0 510.0) (float-vector 210.0 -100.0 510.0)))
+         (instance face :init :vertices (list (float-vector 189.99 99.99 500.0) (float-vector 210.0 100.0 500.0) (float-vector 210.0 -100.0 500.0) (float-vector 150.0 -160.0 500.0) (float-vector -150.0 -160.0 500.0) (float-vector -210.0 -100.0 500.0) (float-vector -210.0 100.0 500.0) (float-vector -150.0 160.0 500.0) (float-vector 150.0 160.0 500.0) (float-vector 209.99 100.01 500.0) (float-vector 190.0 100.0 500.0) (float-vector 150.0 140.0 500.0) (float-vector -150.0 140.0 500.0) (float-vector -190.0 100.0 500.0) (float-vector -190.0 -100.0 500.0) (float-vector -150.0 -140.0 500.0) (float-vector 150.0 -140.0 500.0) (float-vector 190.0 -100.0 500.0)))
+         (instance face :init :vertices (list (float-vector 210.0 100.0 510.0) (float-vector 210.0 100.0 500.0) (float-vector 189.99 99.99 500.0) (float-vector 189.99 99.99 510.0)))
+         (instance face :init :vertices (list (float-vector 210.0 -100.0 510.0) (float-vector 210.0 -100.0 500.0) (float-vector 210.0 100.0 500.0) (float-vector 210.0 100.0 510.0)))
+         (instance face :init :vertices (list (float-vector 150.0 -160.0 510.0) (float-vector 150.0 -160.0 500.0) (float-vector 210.0 -100.0 500.0) (float-vector 210.0 -100.0 510.0)))
+         (instance face :init :vertices (list (float-vector -150.0 -160.0 510.0) (float-vector -150.0 -160.0 500.0) (float-vector 150.0 -160.0 500.0) (float-vector 150.0 -160.0 510.0)))
+         (instance face :init :vertices (list (float-vector -210.0 -100.0 510.0) (float-vector -210.0 -100.0 500.0) (float-vector -150.0 -160.0 500.0) (float-vector -150.0 -160.0 510.0)))
+         (instance face :init :vertices (list (float-vector -210.0 100.0 510.0) (float-vector -210.0 100.0 500.0) (float-vector -210.0 -100.0 500.0) (float-vector -210.0 -100.0 510.0)))
+         (instance face :init :vertices (list (float-vector -150.0 160.0 510.0) (float-vector -150.0 160.0 500.0) (float-vector -210.0 100.0 500.0) (float-vector -210.0 100.0 510.0)))
+         (instance face :init :vertices (list (float-vector 150.0 160.0 510.0) (float-vector 150.0 160.0 500.0) (float-vector -150.0 160.0 500.0) (float-vector -150.0 160.0 510.0)))
+         (instance face :init :vertices (list (float-vector 209.99 100.01 510.0) (float-vector 209.99 100.01 500.0) (float-vector 150.0 160.0 500.0) (float-vector 150.0 160.0 510.0)))
+         (instance face :init :vertices (list (float-vector 190.0 100.0 510.0) (float-vector 190.0 100.0 500.0) (float-vector 209.99 100.01 500.0) (float-vector 209.99 100.01 510.0)))
+         (instance face :init :vertices (list (float-vector 150.0 140.0 510.0) (float-vector 150.0 140.0 500.0) (float-vector 190.0 100.0 500.0) (float-vector 190.0 100.0 510.0)))
+         (instance face :init :vertices (list (float-vector -150.0 140.0 510.0) (float-vector -150.0 140.0 500.0) (float-vector 150.0 140.0 500.0) (float-vector 150.0 140.0 510.0)))
+         (instance face :init :vertices (list (float-vector -190.0 100.0 510.0) (float-vector -190.0 100.0 500.0) (float-vector -150.0 140.0 500.0) (float-vector -150.0 140.0 510.0)))
+         (instance face :init :vertices (list (float-vector -190.0 -100.0 510.0) (float-vector -190.0 -100.0 500.0) (float-vector -190.0 100.0 500.0) (float-vector -190.0 100.0 510.0)))
+         (instance face :init :vertices (list (float-vector -150.0 -140.0 510.0) (float-vector -150.0 -140.0 500.0) (float-vector -190.0 -100.0 500.0) (float-vector -190.0 -100.0 510.0)))
+         (instance face :init :vertices (list (float-vector 150.0 -140.0 510.0) (float-vector 150.0 -140.0 500.0) (float-vector -150.0 -140.0 500.0) (float-vector -150.0 -140.0 510.0)))
+         (instance face :init :vertices (list (float-vector 190.0 -100.0 510.0) (float-vector 190.0 -100.0 500.0) (float-vector 150.0 -140.0 500.0) (float-vector 150.0 -140.0 510.0)))
+         (instance face :init :vertices (list (float-vector 189.99 99.99 510.0) (float-vector 189.99 99.99 500.0) (float-vector 190.0 -100.0 500.0) (float-vector 190.0 -100.0 510.0)))
+       ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :blue)
+     (send (elt bc 1) :set-color :blue)
+     (send (elt bc 2) :set-color :blue)
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-trashbox1-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of assoc
+     (send self :assoc blink0)
+
+     ;; definition of end-coords
+
+     ;; definition of joint
+
+
+     ;; definition of :handle
+     (setq handle0 (make-cascoords :pos (float-vector -200.0 0.0 500.0) :rot #2f((-0.000204 1.0 0.000204) (0.0 -0.000204 1.0) (1.0 0.000204 4.148277e-08)) :name "rear"))
+     (send blink0 :assoc handle0)
+     (setq handle1 (make-cascoords :pos (float-vector 200.0 0.0 500.0) :rot #2f((-0.000204 -1.0 0.000204) (0.0 -0.000204 -1.0) (1.0 -0.000204 4.148277e-08)) :name "front"))
+     (send blink0 :assoc handle1)
+
+     ;; init-ending 
+     (setq links (list blink0))
+     (setq joint-list (list))
+     (send self :init-ending)
+     (send self :move-to (make-coords :pos pos :rot rot))
+     (send-all links :worldcoords)
+
+     self))
+
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-rear (&rest args) (forward-message-to handle0 args))
+  (:handle-front (&rest args) (forward-message-to handle1 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
+  )
+
+(defun room73b2-trashbox1 (&rest args) (instance* room73b2-trashbox1-object :init args))
+;; (format *error-output* "(instance room73b2-trashbox1-object :init) for generating model~%")
diff --git a/models/room73b2-trashbox2-object.l b/models/room73b2-trashbox2-object.l
new file mode 100644
index 00000000..340b68be
--- /dev/null
+++ b/models/room73b2-trashbox2-object.l
@@ -0,0 +1,117 @@
+;;
+;; DO NOT EDIT THIS FILE
+;; this file is automatically generated from euslisp+euslib version 
+;;
+;;
+(defclass room73b2-trashbox2-object
+  :super cascaded-link
+  :slots (sensors
+         handle0 handle1
+         ))
+(defmethod room73b2-trashbox2-object
+  (:init
+   (&rest args &key (name "room73b2-trashbox2") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
+   (let (c bc
+         blink0
+                 )
+     (send-super* :init :name name args)
+
+     ;; definition of link
+
+     ;; definition of :room73b2-trashbox2-bodyset2
+     (setq bc (list
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 200.0 100.0 10.0) (float-vector 150.0 150.0 10.0) (float-vector -150.0 150.0 10.0) (float-vector -200.0 100.0 10.0) (float-vector -200.0 -100.0 10.0) (float-vector -150.0 -150.0 10.0) (float-vector 150.0 -150.0 10.0) (float-vector 200.0 -100.0 10.0)))
+         (instance face :init :vertices (list (float-vector 150.0 150.0 0.0) (float-vector 200.0 100.0 0.0) (float-vector 200.0 -100.0 0.0) (float-vector 150.0 -150.0 0.0) (float-vector -150.0 -150.0 0.0) (float-vector -200.0 -100.0 0.0) (float-vector -200.0 100.0 0.0) (float-vector -150.0 150.0 0.0)))
+         (instance face :init :vertices (list (float-vector 200.0 100.0 10.0) (float-vector 200.0 100.0 0.0) (float-vector 150.0 150.0 0.0) (float-vector 150.0 150.0 10.0)))
+         (instance face :init :vertices (list (float-vector 200.0 -100.0 10.0) (float-vector 200.0 -100.0 0.0) (float-vector 200.0 100.0 0.0) (float-vector 200.0 100.0 10.0)))
+         (instance face :init :vertices (list (float-vector 150.0 -150.0 10.0) (float-vector 150.0 -150.0 0.0) (float-vector 200.0 -100.0 0.0) (float-vector 200.0 -100.0 10.0)))
+         (instance face :init :vertices (list (float-vector -150.0 -150.0 10.0) (float-vector -150.0 -150.0 0.0) (float-vector 150.0 -150.0 0.0) (float-vector 150.0 -150.0 10.0)))
+         (instance face :init :vertices (list (float-vector -200.0 -100.0 10.0) (float-vector -200.0 -100.0 0.0) (float-vector -150.0 -150.0 0.0) (float-vector -150.0 -150.0 10.0)))
+         (instance face :init :vertices (list (float-vector -200.0 100.0 10.0) (float-vector -200.0 100.0 0.0) (float-vector -200.0 -100.0 0.0) (float-vector -200.0 -100.0 10.0)))
+         (instance face :init :vertices (list (float-vector -150.0 150.0 10.0) (float-vector -150.0 150.0 0.0) (float-vector -200.0 100.0 0.0) (float-vector -200.0 100.0 10.0)))
+         (instance face :init :vertices (list (float-vector 150.0 150.0 10.0) (float-vector 150.0 150.0 0.0) (float-vector -150.0 150.0 0.0) (float-vector -150.0 150.0 10.0)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 200.0 100.0 500.0) (float-vector 189.99 99.99 500.0) (float-vector 190.0 -100.0 500.0) (float-vector 150.0 -140.0 500.0) (float-vector -150.0 -140.0 500.0) (float-vector -190.0 -100.0 500.0) (float-vector -190.0 100.0 500.0) (float-vector -150.0 140.0 500.0) (float-vector 150.0 140.0 500.0) (float-vector 190.0 100.0 500.0) (float-vector 199.99 100.01 500.0) (float-vector 150.0 150.0 500.0) (float-vector -150.0 150.0 500.0) (float-vector -200.0 100.0 500.0) (float-vector -200.0 -100.0 500.0) (float-vector -150.0 -150.0 500.0) (float-vector 150.0 -150.0 500.0) (float-vector 200.0 -100.0 500.0)))
+         (instance face :init :vertices (list (float-vector 189.99 99.99 0.0) (float-vector 200.0 100.0 0.0) (float-vector 200.0 -100.0 0.0) (float-vector 150.0 -150.0 0.0) (float-vector -150.0 -150.0 0.0) (float-vector -200.0 -100.0 0.0) (float-vector -200.0 100.0 0.0) (float-vector -150.0 150.0 0.0) (float-vector 150.0 150.0 0.0) (float-vector 199.99 100.01 0.0) (float-vector 190.0 100.0 0.0) (float-vector 150.0 140.0 0.0) (float-vector -150.0 140.0 0.0) (float-vector -190.0 100.0 0.0) (float-vector -190.0 -100.0 0.0) (float-vector -150.0 -140.0 0.0) (float-vector 150.0 -140.0 0.0) (float-vector 190.0 -100.0 0.0)))
+         (instance face :init :vertices (list (float-vector 200.0 100.0 500.0) (float-vector 200.0 100.0 0.0) (float-vector 189.99 99.99 0.0) (float-vector 189.99 99.99 500.0)))
+         (instance face :init :vertices (list (float-vector 200.0 -100.0 500.0) (float-vector 200.0 -100.0 0.0) (float-vector 200.0 100.0 0.0) (float-vector 200.0 100.0 500.0)))
+         (instance face :init :vertices (list (float-vector 150.0 -150.0 500.0) (float-vector 150.0 -150.0 0.0) (float-vector 200.0 -100.0 0.0) (float-vector 200.0 -100.0 500.0)))
+         (instance face :init :vertices (list (float-vector -150.0 -150.0 500.0) (float-vector -150.0 -150.0 0.0) (float-vector 150.0 -150.0 0.0) (float-vector 150.0 -150.0 500.0)))
+         (instance face :init :vertices (list (float-vector -200.0 -100.0 500.0) (float-vector -200.0 -100.0 0.0) (float-vector -150.0 -150.0 0.0) (float-vector -150.0 -150.0 500.0)))
+         (instance face :init :vertices (list (float-vector -200.0 100.0 500.0) (float-vector -200.0 100.0 0.0) (float-vector -200.0 -100.0 0.0) (float-vector -200.0 -100.0 500.0)))
+         (instance face :init :vertices (list (float-vector -150.0 150.0 500.0) (float-vector -150.0 150.0 0.0) (float-vector -200.0 100.0 0.0) (float-vector -200.0 100.0 500.0)))
+         (instance face :init :vertices (list (float-vector 150.0 150.0 500.0) (float-vector 150.0 150.0 0.0) (float-vector -150.0 150.0 0.0) (float-vector -150.0 150.0 500.0)))
+         (instance face :init :vertices (list (float-vector 199.99 100.01 500.0) (float-vector 199.99 100.01 0.0) (float-vector 150.0 150.0 0.0) (float-vector 150.0 150.0 500.0)))
+         (instance face :init :vertices (list (float-vector 190.0 100.0 500.0) (float-vector 190.0 100.0 0.0) (float-vector 199.99 100.01 0.0) (float-vector 199.99 100.01 500.0)))
+         (instance face :init :vertices (list (float-vector 150.0 140.0 500.0) (float-vector 150.0 140.0 0.0) (float-vector 190.0 100.0 0.0) (float-vector 190.0 100.0 500.0)))
+         (instance face :init :vertices (list (float-vector -150.0 140.0 500.0) (float-vector -150.0 140.0 0.0) (float-vector 150.0 140.0 0.0) (float-vector 150.0 140.0 500.0)))
+         (instance face :init :vertices (list (float-vector -190.0 100.0 500.0) (float-vector -190.0 100.0 0.0) (float-vector -150.0 140.0 0.0) (float-vector -150.0 140.0 500.0)))
+         (instance face :init :vertices (list (float-vector -190.0 -100.0 500.0) (float-vector -190.0 -100.0 0.0) (float-vector -190.0 100.0 0.0) (float-vector -190.0 100.0 500.0)))
+         (instance face :init :vertices (list (float-vector -150.0 -140.0 500.0) (float-vector -150.0 -140.0 0.0) (float-vector -190.0 -100.0 0.0) (float-vector -190.0 -100.0 500.0)))
+         (instance face :init :vertices (list (float-vector 150.0 -140.0 500.0) (float-vector 150.0 -140.0 0.0) (float-vector -150.0 -140.0 0.0) (float-vector -150.0 -140.0 500.0)))
+         (instance face :init :vertices (list (float-vector 190.0 -100.0 500.0) (float-vector 190.0 -100.0 0.0) (float-vector 150.0 -140.0 0.0) (float-vector 150.0 -140.0 500.0)))
+         (instance face :init :vertices (list (float-vector 189.99 99.99 500.0) (float-vector 189.99 99.99 0.0) (float-vector 190.0 -100.0 0.0) (float-vector 190.0 -100.0 500.0)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 210.0 100.0 510.0) (float-vector 189.99 99.99 510.0) (float-vector 190.0 -100.0 510.0) (float-vector 150.0 -140.0 510.0) (float-vector -150.0 -140.0 510.0) (float-vector -190.0 -100.0 510.0) (float-vector -190.0 100.0 510.0) (float-vector -150.0 140.0 510.0) (float-vector 150.0 140.0 510.0) (float-vector 190.0 100.0 510.0) (float-vector 209.99 100.01 510.0) (float-vector 150.0 160.0 510.0) (float-vector -150.0 160.0 510.0) (float-vector -210.0 100.0 510.0) (float-vector -210.0 -100.0 510.0) (float-vector -150.0 -160.0 510.0) (float-vector 150.0 -160.0 510.0) (float-vector 210.0 -100.0 510.0)))
+         (instance face :init :vertices (list (float-vector 189.99 99.99 500.0) (float-vector 210.0 100.0 500.0) (float-vector 210.0 -100.0 500.0) (float-vector 150.0 -160.0 500.0) (float-vector -150.0 -160.0 500.0) (float-vector -210.0 -100.0 500.0) (float-vector -210.0 100.0 500.0) (float-vector -150.0 160.0 500.0) (float-vector 150.0 160.0 500.0) (float-vector 209.99 100.01 500.0) (float-vector 190.0 100.0 500.0) (float-vector 150.0 140.0 500.0) (float-vector -150.0 140.0 500.0) (float-vector -190.0 100.0 500.0) (float-vector -190.0 -100.0 500.0) (float-vector -150.0 -140.0 500.0) (float-vector 150.0 -140.0 500.0) (float-vector 190.0 -100.0 500.0)))
+         (instance face :init :vertices (list (float-vector 210.0 100.0 510.0) (float-vector 210.0 100.0 500.0) (float-vector 189.99 99.99 500.0) (float-vector 189.99 99.99 510.0)))
+         (instance face :init :vertices (list (float-vector 210.0 -100.0 510.0) (float-vector 210.0 -100.0 500.0) (float-vector 210.0 100.0 500.0) (float-vector 210.0 100.0 510.0)))
+         (instance face :init :vertices (list (float-vector 150.0 -160.0 510.0) (float-vector 150.0 -160.0 500.0) (float-vector 210.0 -100.0 500.0) (float-vector 210.0 -100.0 510.0)))
+         (instance face :init :vertices (list (float-vector -150.0 -160.0 510.0) (float-vector -150.0 -160.0 500.0) (float-vector 150.0 -160.0 500.0) (float-vector 150.0 -160.0 510.0)))
+         (instance face :init :vertices (list (float-vector -210.0 -100.0 510.0) (float-vector -210.0 -100.0 500.0) (float-vector -150.0 -160.0 500.0) (float-vector -150.0 -160.0 510.0)))
+         (instance face :init :vertices (list (float-vector -210.0 100.0 510.0) (float-vector -210.0 100.0 500.0) (float-vector -210.0 -100.0 500.0) (float-vector -210.0 -100.0 510.0)))
+         (instance face :init :vertices (list (float-vector -150.0 160.0 510.0) (float-vector -150.0 160.0 500.0) (float-vector -210.0 100.0 500.0) (float-vector -210.0 100.0 510.0)))
+         (instance face :init :vertices (list (float-vector 150.0 160.0 510.0) (float-vector 150.0 160.0 500.0) (float-vector -150.0 160.0 500.0) (float-vector -150.0 160.0 510.0)))
+         (instance face :init :vertices (list (float-vector 209.99 100.01 510.0) (float-vector 209.99 100.01 500.0) (float-vector 150.0 160.0 500.0) (float-vector 150.0 160.0 510.0)))
+         (instance face :init :vertices (list (float-vector 190.0 100.0 510.0) (float-vector 190.0 100.0 500.0) (float-vector 209.99 100.01 500.0) (float-vector 209.99 100.01 510.0)))
+         (instance face :init :vertices (list (float-vector 150.0 140.0 510.0) (float-vector 150.0 140.0 500.0) (float-vector 190.0 100.0 500.0) (float-vector 190.0 100.0 510.0)))
+         (instance face :init :vertices (list (float-vector -150.0 140.0 510.0) (float-vector -150.0 140.0 500.0) (float-vector 150.0 140.0 500.0) (float-vector 150.0 140.0 510.0)))
+         (instance face :init :vertices (list (float-vector -190.0 100.0 510.0) (float-vector -190.0 100.0 500.0) (float-vector -150.0 140.0 500.0) (float-vector -150.0 140.0 510.0)))
+         (instance face :init :vertices (list (float-vector -190.0 -100.0 510.0) (float-vector -190.0 -100.0 500.0) (float-vector -190.0 100.0 500.0) (float-vector -190.0 100.0 510.0)))
+         (instance face :init :vertices (list (float-vector -150.0 -140.0 510.0) (float-vector -150.0 -140.0 500.0) (float-vector -190.0 -100.0 500.0) (float-vector -190.0 -100.0 510.0)))
+         (instance face :init :vertices (list (float-vector 150.0 -140.0 510.0) (float-vector 150.0 -140.0 500.0) (float-vector -150.0 -140.0 500.0) (float-vector -150.0 -140.0 510.0)))
+         (instance face :init :vertices (list (float-vector 190.0 -100.0 510.0) (float-vector 190.0 -100.0 500.0) (float-vector 150.0 -140.0 500.0) (float-vector 150.0 -140.0 510.0)))
+         (instance face :init :vertices (list (float-vector 189.99 99.99 510.0) (float-vector 189.99 99.99 500.0) (float-vector 190.0 -100.0 500.0) (float-vector 190.0 -100.0 510.0)))
+       ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :blue)
+     (send (elt bc 1) :set-color :blue)
+     (send (elt bc 2) :set-color :blue)
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-trashbox2-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of assoc
+     (send self :assoc blink0)
+
+     ;; definition of end-coords
+
+     ;; definition of joint
+
+
+     ;; definition of :handle
+     (setq handle0 (make-cascoords :pos (float-vector -200.0 0.0 500.0) :rot #2f((-0.000204 1.0 0.000204) (0.0 -0.000204 1.0) (1.0 0.000204 4.148277e-08)) :name "rear"))
+     (send blink0 :assoc handle0)
+     (setq handle1 (make-cascoords :pos (float-vector 200.0 0.0 500.0) :rot #2f((-0.000204 -1.0 0.000204) (0.0 -0.000204 -1.0) (1.0 -0.000204 4.148277e-08)) :name "front"))
+     (send blink0 :assoc handle1)
+
+     ;; init-ending 
+     (setq links (list blink0))
+     (setq joint-list (list))
+     (send self :init-ending)
+     (send self :move-to (make-coords :pos pos :rot rot))
+     (send-all links :worldcoords)
+
+     self))
+
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-rear (&rest args) (forward-message-to handle0 args))
+  (:handle-front (&rest args) (forward-message-to handle1 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
+  )
+
+(defun room73b2-trashbox2 (&rest args) (instance* room73b2-trashbox2-object :init args))
+;; (format *error-output* "(instance room73b2-trashbox2-object :init) for generating model~%")
diff --git a/models/room73b2-trashbox3-object.l b/models/room73b2-trashbox3-object.l
new file mode 100644
index 00000000..a9b9aec4
--- /dev/null
+++ b/models/room73b2-trashbox3-object.l
@@ -0,0 +1,117 @@
+;;
+;; DO NOT EDIT THIS FILE
+;; this file is automatically generated from euslisp+euslib version 
+;;
+;;
+(defclass room73b2-trashbox3-object
+  :super cascaded-link
+  :slots (sensors
+         handle0 handle1
+         ))
+(defmethod room73b2-trashbox3-object
+  (:init
+   (&rest args &key (name "room73b2-trashbox3") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
+   (let (c bc
+         blink0
+                 )
+     (send-super* :init :name name args)
+
+     ;; definition of link
+
+     ;; definition of :room73b2-trashbox3-bodyset2
+     (setq bc (list
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 200.0 100.0 10.0) (float-vector 150.0 150.0 10.0) (float-vector -150.0 150.0 10.0) (float-vector -200.0 100.0 10.0) (float-vector -200.0 -100.0 10.0) (float-vector -150.0 -150.0 10.0) (float-vector 150.0 -150.0 10.0) (float-vector 200.0 -100.0 10.0)))
+         (instance face :init :vertices (list (float-vector 150.0 150.0 0.0) (float-vector 200.0 100.0 0.0) (float-vector 200.0 -100.0 0.0) (float-vector 150.0 -150.0 0.0) (float-vector -150.0 -150.0 0.0) (float-vector -200.0 -100.0 0.0) (float-vector -200.0 100.0 0.0) (float-vector -150.0 150.0 0.0)))
+         (instance face :init :vertices (list (float-vector 200.0 100.0 10.0) (float-vector 200.0 100.0 0.0) (float-vector 150.0 150.0 0.0) (float-vector 150.0 150.0 10.0)))
+         (instance face :init :vertices (list (float-vector 200.0 -100.0 10.0) (float-vector 200.0 -100.0 0.0) (float-vector 200.0 100.0 0.0) (float-vector 200.0 100.0 10.0)))
+         (instance face :init :vertices (list (float-vector 150.0 -150.0 10.0) (float-vector 150.0 -150.0 0.0) (float-vector 200.0 -100.0 0.0) (float-vector 200.0 -100.0 10.0)))
+         (instance face :init :vertices (list (float-vector -150.0 -150.0 10.0) (float-vector -150.0 -150.0 0.0) (float-vector 150.0 -150.0 0.0) (float-vector 150.0 -150.0 10.0)))
+         (instance face :init :vertices (list (float-vector -200.0 -100.0 10.0) (float-vector -200.0 -100.0 0.0) (float-vector -150.0 -150.0 0.0) (float-vector -150.0 -150.0 10.0)))
+         (instance face :init :vertices (list (float-vector -200.0 100.0 10.0) (float-vector -200.0 100.0 0.0) (float-vector -200.0 -100.0 0.0) (float-vector -200.0 -100.0 10.0)))
+         (instance face :init :vertices (list (float-vector -150.0 150.0 10.0) (float-vector -150.0 150.0 0.0) (float-vector -200.0 100.0 0.0) (float-vector -200.0 100.0 10.0)))
+         (instance face :init :vertices (list (float-vector 150.0 150.0 10.0) (float-vector 150.0 150.0 0.0) (float-vector -150.0 150.0 0.0) (float-vector -150.0 150.0 10.0)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 200.0 100.0 500.0) (float-vector 189.99 99.99 500.0) (float-vector 190.0 -100.0 500.0) (float-vector 150.0 -140.0 500.0) (float-vector -150.0 -140.0 500.0) (float-vector -190.0 -100.0 500.0) (float-vector -190.0 100.0 500.0) (float-vector -150.0 140.0 500.0) (float-vector 150.0 140.0 500.0) (float-vector 190.0 100.0 500.0) (float-vector 199.99 100.01 500.0) (float-vector 150.0 150.0 500.0) (float-vector -150.0 150.0 500.0) (float-vector -200.0 100.0 500.0) (float-vector -200.0 -100.0 500.0) (float-vector -150.0 -150.0 500.0) (float-vector 150.0 -150.0 500.0) (float-vector 200.0 -100.0 500.0)))
+         (instance face :init :vertices (list (float-vector 189.99 99.99 0.0) (float-vector 200.0 100.0 0.0) (float-vector 200.0 -100.0 0.0) (float-vector 150.0 -150.0 0.0) (float-vector -150.0 -150.0 0.0) (float-vector -200.0 -100.0 0.0) (float-vector -200.0 100.0 0.0) (float-vector -150.0 150.0 0.0) (float-vector 150.0 150.0 0.0) (float-vector 199.99 100.01 0.0) (float-vector 190.0 100.0 0.0) (float-vector 150.0 140.0 0.0) (float-vector -150.0 140.0 0.0) (float-vector -190.0 100.0 0.0) (float-vector -190.0 -100.0 0.0) (float-vector -150.0 -140.0 0.0) (float-vector 150.0 -140.0 0.0) (float-vector 190.0 -100.0 0.0)))
+         (instance face :init :vertices (list (float-vector 200.0 100.0 500.0) (float-vector 200.0 100.0 0.0) (float-vector 189.99 99.99 0.0) (float-vector 189.99 99.99 500.0)))
+         (instance face :init :vertices (list (float-vector 200.0 -100.0 500.0) (float-vector 200.0 -100.0 0.0) (float-vector 200.0 100.0 0.0) (float-vector 200.0 100.0 500.0)))
+         (instance face :init :vertices (list (float-vector 150.0 -150.0 500.0) (float-vector 150.0 -150.0 0.0) (float-vector 200.0 -100.0 0.0) (float-vector 200.0 -100.0 500.0)))
+         (instance face :init :vertices (list (float-vector -150.0 -150.0 500.0) (float-vector -150.0 -150.0 0.0) (float-vector 150.0 -150.0 0.0) (float-vector 150.0 -150.0 500.0)))
+         (instance face :init :vertices (list (float-vector -200.0 -100.0 500.0) (float-vector -200.0 -100.0 0.0) (float-vector -150.0 -150.0 0.0) (float-vector -150.0 -150.0 500.0)))
+         (instance face :init :vertices (list (float-vector -200.0 100.0 500.0) (float-vector -200.0 100.0 0.0) (float-vector -200.0 -100.0 0.0) (float-vector -200.0 -100.0 500.0)))
+         (instance face :init :vertices (list (float-vector -150.0 150.0 500.0) (float-vector -150.0 150.0 0.0) (float-vector -200.0 100.0 0.0) (float-vector -200.0 100.0 500.0)))
+         (instance face :init :vertices (list (float-vector 150.0 150.0 500.0) (float-vector 150.0 150.0 0.0) (float-vector -150.0 150.0 0.0) (float-vector -150.0 150.0 500.0)))
+         (instance face :init :vertices (list (float-vector 199.99 100.01 500.0) (float-vector 199.99 100.01 0.0) (float-vector 150.0 150.0 0.0) (float-vector 150.0 150.0 500.0)))
+         (instance face :init :vertices (list (float-vector 190.0 100.0 500.0) (float-vector 190.0 100.0 0.0) (float-vector 199.99 100.01 0.0) (float-vector 199.99 100.01 500.0)))
+         (instance face :init :vertices (list (float-vector 150.0 140.0 500.0) (float-vector 150.0 140.0 0.0) (float-vector 190.0 100.0 0.0) (float-vector 190.0 100.0 500.0)))
+         (instance face :init :vertices (list (float-vector -150.0 140.0 500.0) (float-vector -150.0 140.0 0.0) (float-vector 150.0 140.0 0.0) (float-vector 150.0 140.0 500.0)))
+         (instance face :init :vertices (list (float-vector -190.0 100.0 500.0) (float-vector -190.0 100.0 0.0) (float-vector -150.0 140.0 0.0) (float-vector -150.0 140.0 500.0)))
+         (instance face :init :vertices (list (float-vector -190.0 -100.0 500.0) (float-vector -190.0 -100.0 0.0) (float-vector -190.0 100.0 0.0) (float-vector -190.0 100.0 500.0)))
+         (instance face :init :vertices (list (float-vector -150.0 -140.0 500.0) (float-vector -150.0 -140.0 0.0) (float-vector -190.0 -100.0 0.0) (float-vector -190.0 -100.0 500.0)))
+         (instance face :init :vertices (list (float-vector 150.0 -140.0 500.0) (float-vector 150.0 -140.0 0.0) (float-vector -150.0 -140.0 0.0) (float-vector -150.0 -140.0 500.0)))
+         (instance face :init :vertices (list (float-vector 190.0 -100.0 500.0) (float-vector 190.0 -100.0 0.0) (float-vector 150.0 -140.0 0.0) (float-vector 150.0 -140.0 500.0)))
+         (instance face :init :vertices (list (float-vector 189.99 99.99 500.0) (float-vector 189.99 99.99 0.0) (float-vector 190.0 -100.0 0.0) (float-vector 190.0 -100.0 500.0)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 210.0 100.0 510.0) (float-vector 189.99 99.99 510.0) (float-vector 190.0 -100.0 510.0) (float-vector 150.0 -140.0 510.0) (float-vector -150.0 -140.0 510.0) (float-vector -190.0 -100.0 510.0) (float-vector -190.0 100.0 510.0) (float-vector -150.0 140.0 510.0) (float-vector 150.0 140.0 510.0) (float-vector 190.0 100.0 510.0) (float-vector 209.99 100.01 510.0) (float-vector 150.0 160.0 510.0) (float-vector -150.0 160.0 510.0) (float-vector -210.0 100.0 510.0) (float-vector -210.0 -100.0 510.0) (float-vector -150.0 -160.0 510.0) (float-vector 150.0 -160.0 510.0) (float-vector 210.0 -100.0 510.0)))
+         (instance face :init :vertices (list (float-vector 189.99 99.99 500.0) (float-vector 210.0 100.0 500.0) (float-vector 210.0 -100.0 500.0) (float-vector 150.0 -160.0 500.0) (float-vector -150.0 -160.0 500.0) (float-vector -210.0 -100.0 500.0) (float-vector -210.0 100.0 500.0) (float-vector -150.0 160.0 500.0) (float-vector 150.0 160.0 500.0) (float-vector 209.99 100.01 500.0) (float-vector 190.0 100.0 500.0) (float-vector 150.0 140.0 500.0) (float-vector -150.0 140.0 500.0) (float-vector -190.0 100.0 500.0) (float-vector -190.0 -100.0 500.0) (float-vector -150.0 -140.0 500.0) (float-vector 150.0 -140.0 500.0) (float-vector 190.0 -100.0 500.0)))
+         (instance face :init :vertices (list (float-vector 210.0 100.0 510.0) (float-vector 210.0 100.0 500.0) (float-vector 189.99 99.99 500.0) (float-vector 189.99 99.99 510.0)))
+         (instance face :init :vertices (list (float-vector 210.0 -100.0 510.0) (float-vector 210.0 -100.0 500.0) (float-vector 210.0 100.0 500.0) (float-vector 210.0 100.0 510.0)))
+         (instance face :init :vertices (list (float-vector 150.0 -160.0 510.0) (float-vector 150.0 -160.0 500.0) (float-vector 210.0 -100.0 500.0) (float-vector 210.0 -100.0 510.0)))
+         (instance face :init :vertices (list (float-vector -150.0 -160.0 510.0) (float-vector -150.0 -160.0 500.0) (float-vector 150.0 -160.0 500.0) (float-vector 150.0 -160.0 510.0)))
+         (instance face :init :vertices (list (float-vector -210.0 -100.0 510.0) (float-vector -210.0 -100.0 500.0) (float-vector -150.0 -160.0 500.0) (float-vector -150.0 -160.0 510.0)))
+         (instance face :init :vertices (list (float-vector -210.0 100.0 510.0) (float-vector -210.0 100.0 500.0) (float-vector -210.0 -100.0 500.0) (float-vector -210.0 -100.0 510.0)))
+         (instance face :init :vertices (list (float-vector -150.0 160.0 510.0) (float-vector -150.0 160.0 500.0) (float-vector -210.0 100.0 500.0) (float-vector -210.0 100.0 510.0)))
+         (instance face :init :vertices (list (float-vector 150.0 160.0 510.0) (float-vector 150.0 160.0 500.0) (float-vector -150.0 160.0 500.0) (float-vector -150.0 160.0 510.0)))
+         (instance face :init :vertices (list (float-vector 209.99 100.01 510.0) (float-vector 209.99 100.01 500.0) (float-vector 150.0 160.0 500.0) (float-vector 150.0 160.0 510.0)))
+         (instance face :init :vertices (list (float-vector 190.0 100.0 510.0) (float-vector 190.0 100.0 500.0) (float-vector 209.99 100.01 500.0) (float-vector 209.99 100.01 510.0)))
+         (instance face :init :vertices (list (float-vector 150.0 140.0 510.0) (float-vector 150.0 140.0 500.0) (float-vector 190.0 100.0 500.0) (float-vector 190.0 100.0 510.0)))
+         (instance face :init :vertices (list (float-vector -150.0 140.0 510.0) (float-vector -150.0 140.0 500.0) (float-vector 150.0 140.0 500.0) (float-vector 150.0 140.0 510.0)))
+         (instance face :init :vertices (list (float-vector -190.0 100.0 510.0) (float-vector -190.0 100.0 500.0) (float-vector -150.0 140.0 500.0) (float-vector -150.0 140.0 510.0)))
+         (instance face :init :vertices (list (float-vector -190.0 -100.0 510.0) (float-vector -190.0 -100.0 500.0) (float-vector -190.0 100.0 500.0) (float-vector -190.0 100.0 510.0)))
+         (instance face :init :vertices (list (float-vector -150.0 -140.0 510.0) (float-vector -150.0 -140.0 500.0) (float-vector -190.0 -100.0 500.0) (float-vector -190.0 -100.0 510.0)))
+         (instance face :init :vertices (list (float-vector 150.0 -140.0 510.0) (float-vector 150.0 -140.0 500.0) (float-vector -150.0 -140.0 500.0) (float-vector -150.0 -140.0 510.0)))
+         (instance face :init :vertices (list (float-vector 190.0 -100.0 510.0) (float-vector 190.0 -100.0 500.0) (float-vector 150.0 -140.0 500.0) (float-vector 150.0 -140.0 510.0)))
+         (instance face :init :vertices (list (float-vector 189.99 99.99 510.0) (float-vector 189.99 99.99 500.0) (float-vector 190.0 -100.0 500.0) (float-vector 190.0 -100.0 510.0)))
+       ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :blue)
+     (send (elt bc 1) :set-color :blue)
+     (send (elt bc 2) :set-color :blue)
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-trashbox3-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of assoc
+     (send self :assoc blink0)
+
+     ;; definition of end-coords
+
+     ;; definition of joint
+
+
+     ;; definition of :handle
+     (setq handle0 (make-cascoords :pos (float-vector -200.0 0.0 500.0) :rot #2f((-0.000204 1.0 0.000204) (0.0 -0.000204 1.0) (1.0 0.000204 4.148277e-08)) :name "rear"))
+     (send blink0 :assoc handle0)
+     (setq handle1 (make-cascoords :pos (float-vector 200.0 0.0 500.0) :rot #2f((-0.000204 -1.0 0.000204) (0.0 -0.000204 -1.0) (1.0 -0.000204 4.148277e-08)) :name "front"))
+     (send blink0 :assoc handle1)
+
+     ;; init-ending 
+     (setq links (list blink0))
+     (setq joint-list (list))
+     (send self :init-ending)
+     (send self :move-to (make-coords :pos pos :rot rot))
+     (send-all links :worldcoords)
+
+     self))
+
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-rear (&rest args) (forward-message-to handle0 args))
+  (:handle-front (&rest args) (forward-message-to handle1 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
+  )
+
+(defun room73b2-trashbox3 (&rest args) (instance* room73b2-trashbox3-object :init args))
+;; (format *error-output* "(instance room73b2-trashbox3-object :init) for generating model~%")
diff --git a/models/room73b2-uchida-shelf-1100-object.l b/models/room73b2-uchida-shelf-1100-object.l
index 9140481a..b76070d5 100644
--- a/models/room73b2-uchida-shelf-1100-object.l
+++ b/models/room73b2-uchida-shelf-1100-object.l
@@ -61,20 +61,44 @@
          (instance face :init :vertices (list (float-vector 187.5 550.5 2065.5) (float-vector 187.5 550.5 0.5) (float-vector 187.5 515.5 0.5) (float-vector 187.5 515.5 2065.5)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 214.0 541.5 1417.5) (float-vector -214.0 541.5 1417.5) (float-vector -214.0 -541.5 1417.5) (float-vector 214.0 -541.5 1417.5)))
-         (instance face :init :vertices (list (float-vector -214.0 541.5 1382.5) (float-vector 214.0 541.5 1382.5) (float-vector 214.0 -541.5 1382.5) (float-vector -214.0 -541.5 1382.5)))
-         (instance face :init :vertices (list (float-vector 214.0 541.5 1417.5) (float-vector 214.0 541.5 1382.5) (float-vector -214.0 541.5 1382.5) (float-vector -214.0 541.5 1417.5)))
-         (instance face :init :vertices (list (float-vector 214.0 -541.5 1417.5) (float-vector 214.0 -541.5 1382.5) (float-vector 214.0 541.5 1382.5) (float-vector 214.0 541.5 1417.5)))
-         (instance face :init :vertices (list (float-vector -214.0 -541.5 1417.5) (float-vector -214.0 -541.5 1382.5) (float-vector 214.0 -541.5 1382.5) (float-vector 214.0 -541.5 1417.5)))
-         (instance face :init :vertices (list (float-vector -214.0 541.5 1417.5) (float-vector -214.0 541.5 1382.5) (float-vector -214.0 -541.5 1382.5) (float-vector -214.0 -541.5 1417.5)))
+         (instance face :init :vertices (list (float-vector 214.0 541.5 617.5) (float-vector -214.0 541.5 617.5) (float-vector -214.0 -541.5 617.5) (float-vector 214.0 -541.5 617.5)))
+         (instance face :init :vertices (list (float-vector -214.0 541.5 582.5) (float-vector 214.0 541.5 582.5) (float-vector 214.0 -541.5 582.5) (float-vector -214.0 -541.5 582.5)))
+         (instance face :init :vertices (list (float-vector 214.0 541.5 617.5) (float-vector 214.0 541.5 582.5) (float-vector -214.0 541.5 582.5) (float-vector -214.0 541.5 617.5)))
+         (instance face :init :vertices (list (float-vector 214.0 -541.5 617.5) (float-vector 214.0 -541.5 582.5) (float-vector 214.0 541.5 582.5) (float-vector 214.0 541.5 617.5)))
+         (instance face :init :vertices (list (float-vector -214.0 -541.5 617.5) (float-vector -214.0 -541.5 582.5) (float-vector 214.0 -541.5 582.5) (float-vector 214.0 -541.5 617.5)))
+         (instance face :init :vertices (list (float-vector -214.0 541.5 617.5) (float-vector -214.0 541.5 582.5) (float-vector -214.0 -541.5 582.5) (float-vector -214.0 -541.5 617.5)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 214.0 541.5 1767.5) (float-vector -214.0 541.5 1767.5) (float-vector -214.0 -541.5 1767.5) (float-vector 214.0 -541.5 1767.5)))
-         (instance face :init :vertices (list (float-vector -214.0 541.5 1732.5) (float-vector 214.0 541.5 1732.5) (float-vector 214.0 -541.5 1732.5) (float-vector -214.0 -541.5 1732.5)))
-         (instance face :init :vertices (list (float-vector 214.0 541.5 1767.5) (float-vector 214.0 541.5 1732.5) (float-vector -214.0 541.5 1732.5) (float-vector -214.0 541.5 1767.5)))
-         (instance face :init :vertices (list (float-vector 214.0 -541.5 1767.5) (float-vector 214.0 -541.5 1732.5) (float-vector 214.0 541.5 1732.5) (float-vector 214.0 541.5 1767.5)))
-         (instance face :init :vertices (list (float-vector -214.0 -541.5 1767.5) (float-vector -214.0 -541.5 1732.5) (float-vector 214.0 -541.5 1732.5) (float-vector 214.0 -541.5 1767.5)))
-         (instance face :init :vertices (list (float-vector -214.0 541.5 1767.5) (float-vector -214.0 541.5 1732.5) (float-vector -214.0 -541.5 1732.5) (float-vector -214.0 -541.5 1767.5)))
+         (instance face :init :vertices (list (float-vector 214.0 541.5 917.5) (float-vector -214.0 541.5 917.5) (float-vector -214.0 -541.5 917.5) (float-vector 214.0 -541.5 917.5)))
+         (instance face :init :vertices (list (float-vector -214.0 541.5 882.5) (float-vector 214.0 541.5 882.5) (float-vector 214.0 -541.5 882.5) (float-vector -214.0 -541.5 882.5)))
+         (instance face :init :vertices (list (float-vector 214.0 541.5 917.5) (float-vector 214.0 541.5 882.5) (float-vector -214.0 541.5 882.5) (float-vector -214.0 541.5 917.5)))
+         (instance face :init :vertices (list (float-vector 214.0 -541.5 917.5) (float-vector 214.0 -541.5 882.5) (float-vector 214.0 541.5 882.5) (float-vector 214.0 541.5 917.5)))
+         (instance face :init :vertices (list (float-vector -214.0 -541.5 917.5) (float-vector -214.0 -541.5 882.5) (float-vector 214.0 -541.5 882.5) (float-vector 214.0 -541.5 917.5)))
+         (instance face :init :vertices (list (float-vector -214.0 541.5 917.5) (float-vector -214.0 541.5 882.5) (float-vector -214.0 -541.5 882.5) (float-vector -214.0 -541.5 917.5)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 214.0 541.5 1217.5) (float-vector -214.0 541.5 1217.5) (float-vector -214.0 -541.5 1217.5) (float-vector 214.0 -541.5 1217.5)))
+         (instance face :init :vertices (list (float-vector -214.0 541.5 1182.5) (float-vector 214.0 541.5 1182.5) (float-vector 214.0 -541.5 1182.5) (float-vector -214.0 -541.5 1182.5)))
+         (instance face :init :vertices (list (float-vector 214.0 541.5 1217.5) (float-vector 214.0 541.5 1182.5) (float-vector -214.0 541.5 1182.5) (float-vector -214.0 541.5 1217.5)))
+         (instance face :init :vertices (list (float-vector 214.0 -541.5 1217.5) (float-vector 214.0 -541.5 1182.5) (float-vector 214.0 541.5 1182.5) (float-vector 214.0 541.5 1217.5)))
+         (instance face :init :vertices (list (float-vector -214.0 -541.5 1217.5) (float-vector -214.0 -541.5 1182.5) (float-vector 214.0 -541.5 1182.5) (float-vector 214.0 -541.5 1217.5)))
+         (instance face :init :vertices (list (float-vector -214.0 541.5 1217.5) (float-vector -214.0 541.5 1182.5) (float-vector -214.0 -541.5 1182.5) (float-vector -214.0 -541.5 1217.5)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 214.0 541.5 1517.5) (float-vector -214.0 541.5 1517.5) (float-vector -214.0 -541.5 1517.5) (float-vector 214.0 -541.5 1517.5)))
+         (instance face :init :vertices (list (float-vector -214.0 541.5 1482.5) (float-vector 214.0 541.5 1482.5) (float-vector 214.0 -541.5 1482.5) (float-vector -214.0 -541.5 1482.5)))
+         (instance face :init :vertices (list (float-vector 214.0 541.5 1517.5) (float-vector 214.0 541.5 1482.5) (float-vector -214.0 541.5 1482.5) (float-vector -214.0 541.5 1517.5)))
+         (instance face :init :vertices (list (float-vector 214.0 -541.5 1517.5) (float-vector 214.0 -541.5 1482.5) (float-vector 214.0 541.5 1482.5) (float-vector 214.0 541.5 1517.5)))
+         (instance face :init :vertices (list (float-vector -214.0 -541.5 1517.5) (float-vector -214.0 -541.5 1482.5) (float-vector 214.0 -541.5 1482.5) (float-vector 214.0 -541.5 1517.5)))
+         (instance face :init :vertices (list (float-vector -214.0 541.5 1517.5) (float-vector -214.0 541.5 1482.5) (float-vector -214.0 -541.5 1482.5) (float-vector -214.0 -541.5 1517.5)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 214.0 541.5 1817.5) (float-vector -214.0 541.5 1817.5) (float-vector -214.0 -541.5 1817.5) (float-vector 214.0 -541.5 1817.5)))
+         (instance face :init :vertices (list (float-vector -214.0 541.5 1782.5) (float-vector 214.0 541.5 1782.5) (float-vector 214.0 -541.5 1782.5) (float-vector -214.0 -541.5 1782.5)))
+         (instance face :init :vertices (list (float-vector 214.0 541.5 1817.5) (float-vector 214.0 541.5 1782.5) (float-vector -214.0 541.5 1782.5) (float-vector -214.0 541.5 1817.5)))
+         (instance face :init :vertices (list (float-vector 214.0 -541.5 1817.5) (float-vector 214.0 -541.5 1782.5) (float-vector 214.0 541.5 1782.5) (float-vector 214.0 541.5 1817.5)))
+         (instance face :init :vertices (list (float-vector -214.0 -541.5 1817.5) (float-vector -214.0 -541.5 1782.5) (float-vector 214.0 -541.5 1782.5) (float-vector 214.0 -541.5 1817.5)))
+         (instance face :init :vertices (list (float-vector -214.0 541.5 1817.5) (float-vector -214.0 541.5 1782.5) (float-vector -214.0 -541.5 1782.5) (float-vector -214.0 -541.5 1817.5)))
        ))
        ))
      (dolist (b (cdr bc)) (send (car bc) :assoc b))
@@ -85,6 +109,9 @@
      (send (elt bc 4) :set-color :lightgoldenrodyellow)
      (send (elt bc 5) :set-color :lightgoldenrodyellow)
      (send (elt bc 6) :set-color :lightgoldenrodyellow)
+     (send (elt bc 7) :set-color :lightgoldenrodyellow)
+     (send (elt bc 8) :set-color :lightgoldenrodyellow)
+     (send (elt bc 9) :set-color :lightgoldenrodyellow)
      (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-uchida-shelf-1100-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
 
      ;; definition of assoc
diff --git a/models/room73b2-uchida-shelf-1300-object.l b/models/room73b2-uchida-shelf-1300-object.l
index 8a1ddac1..2fa1b8fe 100644
--- a/models/room73b2-uchida-shelf-1300-object.l
+++ b/models/room73b2-uchida-shelf-1300-object.l
@@ -61,20 +61,44 @@
          (instance face :init :vertices (list (float-vector 187.5 650.5 2065.5) (float-vector 187.5 650.5 0.5) (float-vector 187.5 615.5 0.5) (float-vector 187.5 615.5 2065.5)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 214.0 641.5 1417.5) (float-vector -214.0 641.5 1417.5) (float-vector -214.0 -641.5 1417.5) (float-vector 214.0 -641.5 1417.5)))
-         (instance face :init :vertices (list (float-vector -214.0 641.5 1382.5) (float-vector 214.0 641.5 1382.5) (float-vector 214.0 -641.5 1382.5) (float-vector -214.0 -641.5 1382.5)))
-         (instance face :init :vertices (list (float-vector 214.0 641.5 1417.5) (float-vector 214.0 641.5 1382.5) (float-vector -214.0 641.5 1382.5) (float-vector -214.0 641.5 1417.5)))
-         (instance face :init :vertices (list (float-vector 214.0 -641.5 1417.5) (float-vector 214.0 -641.5 1382.5) (float-vector 214.0 641.5 1382.5) (float-vector 214.0 641.5 1417.5)))
-         (instance face :init :vertices (list (float-vector -214.0 -641.5 1417.5) (float-vector -214.0 -641.5 1382.5) (float-vector 214.0 -641.5 1382.5) (float-vector 214.0 -641.5 1417.5)))
-         (instance face :init :vertices (list (float-vector -214.0 641.5 1417.5) (float-vector -214.0 641.5 1382.5) (float-vector -214.0 -641.5 1382.5) (float-vector -214.0 -641.5 1417.5)))
+         (instance face :init :vertices (list (float-vector 214.0 641.5 617.5) (float-vector -214.0 641.5 617.5) (float-vector -214.0 -641.5 617.5) (float-vector 214.0 -641.5 617.5)))
+         (instance face :init :vertices (list (float-vector -214.0 641.5 582.5) (float-vector 214.0 641.5 582.5) (float-vector 214.0 -641.5 582.5) (float-vector -214.0 -641.5 582.5)))
+         (instance face :init :vertices (list (float-vector 214.0 641.5 617.5) (float-vector 214.0 641.5 582.5) (float-vector -214.0 641.5 582.5) (float-vector -214.0 641.5 617.5)))
+         (instance face :init :vertices (list (float-vector 214.0 -641.5 617.5) (float-vector 214.0 -641.5 582.5) (float-vector 214.0 641.5 582.5) (float-vector 214.0 641.5 617.5)))
+         (instance face :init :vertices (list (float-vector -214.0 -641.5 617.5) (float-vector -214.0 -641.5 582.5) (float-vector 214.0 -641.5 582.5) (float-vector 214.0 -641.5 617.5)))
+         (instance face :init :vertices (list (float-vector -214.0 641.5 617.5) (float-vector -214.0 641.5 582.5) (float-vector -214.0 -641.5 582.5) (float-vector -214.0 -641.5 617.5)))
        ))
        (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 214.0 641.5 1767.5) (float-vector -214.0 641.5 1767.5) (float-vector -214.0 -641.5 1767.5) (float-vector 214.0 -641.5 1767.5)))
-         (instance face :init :vertices (list (float-vector -214.0 641.5 1732.5) (float-vector 214.0 641.5 1732.5) (float-vector 214.0 -641.5 1732.5) (float-vector -214.0 -641.5 1732.5)))
-         (instance face :init :vertices (list (float-vector 214.0 641.5 1767.5) (float-vector 214.0 641.5 1732.5) (float-vector -214.0 641.5 1732.5) (float-vector -214.0 641.5 1767.5)))
-         (instance face :init :vertices (list (float-vector 214.0 -641.5 1767.5) (float-vector 214.0 -641.5 1732.5) (float-vector 214.0 641.5 1732.5) (float-vector 214.0 641.5 1767.5)))
-         (instance face :init :vertices (list (float-vector -214.0 -641.5 1767.5) (float-vector -214.0 -641.5 1732.5) (float-vector 214.0 -641.5 1732.5) (float-vector 214.0 -641.5 1767.5)))
-         (instance face :init :vertices (list (float-vector -214.0 641.5 1767.5) (float-vector -214.0 641.5 1732.5) (float-vector -214.0 -641.5 1732.5) (float-vector -214.0 -641.5 1767.5)))
+         (instance face :init :vertices (list (float-vector 214.0 641.5 917.5) (float-vector -214.0 641.5 917.5) (float-vector -214.0 -641.5 917.5) (float-vector 214.0 -641.5 917.5)))
+         (instance face :init :vertices (list (float-vector -214.0 641.5 882.5) (float-vector 214.0 641.5 882.5) (float-vector 214.0 -641.5 882.5) (float-vector -214.0 -641.5 882.5)))
+         (instance face :init :vertices (list (float-vector 214.0 641.5 917.5) (float-vector 214.0 641.5 882.5) (float-vector -214.0 641.5 882.5) (float-vector -214.0 641.5 917.5)))
+         (instance face :init :vertices (list (float-vector 214.0 -641.5 917.5) (float-vector 214.0 -641.5 882.5) (float-vector 214.0 641.5 882.5) (float-vector 214.0 641.5 917.5)))
+         (instance face :init :vertices (list (float-vector -214.0 -641.5 917.5) (float-vector -214.0 -641.5 882.5) (float-vector 214.0 -641.5 882.5) (float-vector 214.0 -641.5 917.5)))
+         (instance face :init :vertices (list (float-vector -214.0 641.5 917.5) (float-vector -214.0 641.5 882.5) (float-vector -214.0 -641.5 882.5) (float-vector -214.0 -641.5 917.5)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 214.0 641.5 1217.5) (float-vector -214.0 641.5 1217.5) (float-vector -214.0 -641.5 1217.5) (float-vector 214.0 -641.5 1217.5)))
+         (instance face :init :vertices (list (float-vector -214.0 641.5 1182.5) (float-vector 214.0 641.5 1182.5) (float-vector 214.0 -641.5 1182.5) (float-vector -214.0 -641.5 1182.5)))
+         (instance face :init :vertices (list (float-vector 214.0 641.5 1217.5) (float-vector 214.0 641.5 1182.5) (float-vector -214.0 641.5 1182.5) (float-vector -214.0 641.5 1217.5)))
+         (instance face :init :vertices (list (float-vector 214.0 -641.5 1217.5) (float-vector 214.0 -641.5 1182.5) (float-vector 214.0 641.5 1182.5) (float-vector 214.0 641.5 1217.5)))
+         (instance face :init :vertices (list (float-vector -214.0 -641.5 1217.5) (float-vector -214.0 -641.5 1182.5) (float-vector 214.0 -641.5 1182.5) (float-vector 214.0 -641.5 1217.5)))
+         (instance face :init :vertices (list (float-vector -214.0 641.5 1217.5) (float-vector -214.0 641.5 1182.5) (float-vector -214.0 -641.5 1182.5) (float-vector -214.0 -641.5 1217.5)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 214.0 641.5 1517.5) (float-vector -214.0 641.5 1517.5) (float-vector -214.0 -641.5 1517.5) (float-vector 214.0 -641.5 1517.5)))
+         (instance face :init :vertices (list (float-vector -214.0 641.5 1482.5) (float-vector 214.0 641.5 1482.5) (float-vector 214.0 -641.5 1482.5) (float-vector -214.0 -641.5 1482.5)))
+         (instance face :init :vertices (list (float-vector 214.0 641.5 1517.5) (float-vector 214.0 641.5 1482.5) (float-vector -214.0 641.5 1482.5) (float-vector -214.0 641.5 1517.5)))
+         (instance face :init :vertices (list (float-vector 214.0 -641.5 1517.5) (float-vector 214.0 -641.5 1482.5) (float-vector 214.0 641.5 1482.5) (float-vector 214.0 641.5 1517.5)))
+         (instance face :init :vertices (list (float-vector -214.0 -641.5 1517.5) (float-vector -214.0 -641.5 1482.5) (float-vector 214.0 -641.5 1482.5) (float-vector 214.0 -641.5 1517.5)))
+         (instance face :init :vertices (list (float-vector -214.0 641.5 1517.5) (float-vector -214.0 641.5 1482.5) (float-vector -214.0 -641.5 1482.5) (float-vector -214.0 -641.5 1517.5)))
+       ))
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 214.0 641.5 1817.5) (float-vector -214.0 641.5 1817.5) (float-vector -214.0 -641.5 1817.5) (float-vector 214.0 -641.5 1817.5)))
+         (instance face :init :vertices (list (float-vector -214.0 641.5 1782.5) (float-vector 214.0 641.5 1782.5) (float-vector 214.0 -641.5 1782.5) (float-vector -214.0 -641.5 1782.5)))
+         (instance face :init :vertices (list (float-vector 214.0 641.5 1817.5) (float-vector 214.0 641.5 1782.5) (float-vector -214.0 641.5 1782.5) (float-vector -214.0 641.5 1817.5)))
+         (instance face :init :vertices (list (float-vector 214.0 -641.5 1817.5) (float-vector 214.0 -641.5 1782.5) (float-vector 214.0 641.5 1782.5) (float-vector 214.0 641.5 1817.5)))
+         (instance face :init :vertices (list (float-vector -214.0 -641.5 1817.5) (float-vector -214.0 -641.5 1782.5) (float-vector 214.0 -641.5 1782.5) (float-vector 214.0 -641.5 1817.5)))
+         (instance face :init :vertices (list (float-vector -214.0 641.5 1817.5) (float-vector -214.0 641.5 1782.5) (float-vector -214.0 -641.5 1782.5) (float-vector -214.0 -641.5 1817.5)))
        ))
        ))
      (dolist (b (cdr bc)) (send (car bc) :assoc b))
@@ -85,6 +109,9 @@
      (send (elt bc 4) :set-color :lightgoldenrodyellow)
      (send (elt bc 5) :set-color :lightgoldenrodyellow)
      (send (elt bc 6) :set-color :lightgoldenrodyellow)
+     (send (elt bc 7) :set-color :lightgoldenrodyellow)
+     (send (elt bc 8) :set-color :lightgoldenrodyellow)
+     (send (elt bc 9) :set-color :lightgoldenrodyellow)
      (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room73b2-uchida-shelf-1300-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
 
      ;; definition of assoc
diff --git a/models/room83b1-door-right-object.l b/models/room83b1-door-right-object.l
index f8cfa19c..8b804781 100644
--- a/models/room83b1-door-right-object.l
+++ b/models/room83b1-door-right-object.l
@@ -282,7 +282,7 @@
      ;; definition of :handle
      (setq handle0 (make-cascoords :pos (float-vector 75.0 265.0 960.0) :rot #2f((-1.0 -1.224647e-16 1.232595e-32) (-1.232595e-32 2.220446e-16 1.0) (-1.224647e-16 1.0 -2.220446e-16)) :name "rear-knob"))
      (send blink2 :assoc handle0)
-     (setq handle1 (make-cascoords :pos (float-vector 75.0 265.0 960.0) :rot #2f((-1.0 -1.224647e-16 1.232595e-32) (-1.232595e-32 2.220446e-16 1.0) (-1.224647e-16 1.0 -2.220446e-16)) :name "front-knob"))
+     (setq handle1 (make-cascoords :pos (float-vector -115.0 265.0 960.0) :rot #2f((-1.0 -1.224647e-16 1.232595e-32) (-1.232595e-32 2.220446e-16 1.0) (-1.224647e-16 1.0 -2.220446e-16)) :name "front-knob"))
      (send blink2 :assoc handle1)
      (setq handle2 (make-cascoords :pos (float-vector 65.0 345.0 1060.0) :rot #2f((-1.0 -1.224647e-16 0.0) (1.224647e-16 -1.0 0.0) (0.0 0.0 1.0)) :name "lock"))
      (send blink3 :assoc handle2)
diff --git a/models/trashbox-object.l b/models/trashbox-object.l
index e9cdb526..cb872138 100644
--- a/models/trashbox-object.l
+++ b/models/trashbox-object.l
@@ -6,7 +6,7 @@
 (defclass trashbox-object
   :super cascaded-link
   :slots (sensors
-         handle0
+         handle0 handle1
          ))
 (defmethod trashbox-object
   (:init
@@ -92,8 +92,10 @@
 
 
      ;; definition of :handle
-     (setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0"))
+     (setq handle0 (make-cascoords :pos (float-vector -200.0 5.684342e-14 500.0) :rot #2f((-0.000204 1.0 0.000204) (1.110223e-16 -0.000204 1.0) (1.0 0.000204 4.148277e-08)) :name "rear"))
      (send blink0 :assoc handle0)
+     (setq handle1 (make-cascoords :pos (float-vector 200.0 -5.684342e-14 500.0) :rot #2f((-0.000204 -1.0 0.000204) (0.0 -0.000204 -1.0) (1.0 -0.000204 4.148277e-08)) :name "front"))
+     (send blink0 :assoc handle1)
 
      ;; init-ending 
      (setq links (list blink0))
@@ -104,8 +106,9 @@
 
      self))
 
-  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
-  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-rear (&rest args) (forward-message-to handle0 args))
+  (:handle-front (&rest args) (forward-message-to handle1 args))
   (:attention (&rest args) (forward-message-to-all (list ) args))
   (:button (&rest args) (forward-message-to-all (list ) args))
   )
diff --git a/package.xml b/package.xml
index 8b9d0fdc..55281f24 100644
--- a/package.xml
+++ b/package.xml
@@ -1,6 +1,6 @@
 <package>
   <name>euslisp</name>
-  <version>9.27.0</version>
+  <version>9.29.0</version>
   <description>EusLisp is an integrated programming system for the
   research on intelligent robots based on Common Lisp and
   Object-Oriented programming</description>
diff --git a/test/Makefile b/test/Makefile
new file mode 100644
index 00000000..1fa5e144
--- /dev/null
+++ b/test/Makefile
@@ -0,0 +1,42 @@
+GCC_MACHINE=$(shell gcc -dumpmachine)
+$(info "-- GCC_MACHINE = ${GCC_MACHINE}")
+OS=$(shell uname -s | sed 's/[^A-Za-z1-9].*//')
+$(info "--      OS = ${OS}")
+ifeq ($(OS),Linux)
+ export MAKEFILE=Makefile.Linux
+endif
+ifeq ($(OS),CYGWIN)
+ export MAKEFILE=Makefile.Cygwin
+endif
+ifeq ($(OS),Darwin)
+ export MAKEFILE=Makefile.Darwin
+endif
+
+$(info "-- MAKEFILE = ${MAKEFILE}")
+
+# set EUSDIR if not defined
+export EUSDIR?=$(CURDIR)/..
+$(info "--  EUSDIR = ${EUSDIR}")
+
+include $(MAKEFILE)
+
+SRC=test_foreign.c
+OBJ=$(basename $(SRC)).o
+LIB=$(basename $(SRC)).$(LSFX)
+
+$(LIB): $(OBJ)
+	$(LD) $(SOFLAGS) $(OUTOPT)$(LIB) $(OBJ) $(LDFLAGS)
+	@echo "Try make test"
+
+$(OBJ): $(SRC)
+	$(CC) $(CFLAGS) -DCOMPILE_LIB -c $(SRC) $(OBJOPT)$(OBJ)
+
+clean:
+	rm -f $(LIB) $(OBJ)
+
+test: $(LIB)
+	teusgl eus64-test.l
+
+clean :
+	\rm -f *.o *.so
+
diff --git a/test/Makefile.Cygwin b/test/Makefile.Cygwin
new file mode 100644
index 00000000..1f97214c
--- /dev/null
+++ b/test/Makefile.Cygwin
@@ -0,0 +1,12 @@
+CC = c++
+CFLAGS = -O2 -falign-functions=4 -DCygwin -I$(EUSDIR)/include
+LDFLAGS =
+OBJOPT = -o
+OUTOPT = -o
+LD = c++ -shared -falign-functions=4
+EXELD = c++ -falign-functions=4
+SOFLAGS =
+EXESFX = .exe
+LSFX = dll
+LPFX = lib
+LIBS = -L$(ARCHDIR) -lRAPID
diff --git a/test/Makefile.Darwin b/test/Makefile.Darwin
new file mode 100644
index 00000000..111dcfcf
--- /dev/null
+++ b/test/Makefile.Darwin
@@ -0,0 +1,12 @@
+CC = c++
+CFLAGS = -O2 -falign-functions=8 -fPIC -DDarwin -DGCC -I$(EUSDIR)/include
+LDFLAGS =
+OBJOPT = -o
+OUTOPT = -o
+LD = c++
+SOFLAGS = -dynamiclib -flat_namespace -undefined suppress
+EXELD = c++
+EXESFX =
+LSFX = so
+LPFX = lib
+LIBS = -L$(ARCHDIR) -lRAPID
diff --git a/test/Makefile.Linux b/test/Makefile.Linux
new file mode 100644
index 00000000..fb6f0d68
--- /dev/null
+++ b/test/Makefile.Linux
@@ -0,0 +1,33 @@
+CC = c++
+CFLAGS = -O2 -DLinux -DGCC -I$(EUSDIR)/include
+LDFLAGS =
+OBJOPT = -o
+OUTOPT = -o
+LD = c++
+SOFLAGS = -shared
+EXELD = c++
+EXESFX =
+LSFX = so
+LPFX = lib
+
+ifneq (,$(findstring 64,$(shell gcc -dumpmachine)))
+ CFLAGS+=-falign-functions=8
+else
+ CFLAGS+=-falign-functions=4
+endif
+
+ifneq ($(shell gcc -dumpmachine | egrep "^(arm|aarch)"),)
+  LDFLAGS+=-Wl,-z,execstack
+  CFLAGS+=-DARM -fPIC
+endif
+ifneq ($(shell gcc -dumpmachine | grep "^x86_64"),)
+  CFLAGS+=-fPIC
+endif
+
+ifneq ($(shell gcc -dumpmachine | grep "i.*86-linux"),)
+CC += -m32
+LD += -m32
+EXELD += -m32
+endif
+
+
diff --git a/test/argparse.l b/test/argparse.l
index e5d59d57..5c8bcd8a 100644
--- a/test/argparse.l
+++ b/test/argparse.l
@@ -15,7 +15,8 @@
 
 (defun write-tmp-file (fname send-lst)
   `(with-open-file (test-file ,fname :direction :output :if-exists :supersede)
-     (princ-line "(lisp::install-error-handler #'(lambda (&rest args) (exit 1)))" test-file)
+     (princ-line "(defun exit-on-error (&rest args) (exit 1))" test-file)
+     (princ-line "(lisp::install-error-handler 'exit-on-error)" test-file)
      (princ-line "(require :argparse \"lib/llib/argparse.l\")" test-file)
      (terpri test-file)
      (princ-line "(setq argparse (instantiate argparse:argument-parser))" test-file)
@@ -42,7 +43,8 @@
         (resf (tmp "tmp-argparse-result-" name)))
     `(deftest ,name
        ,(write-tmp-file testf send-lst)
-       (assert (= 0 (unix:system ,(format nil "eus ~A ~A 2>/dev/null 1>~A" testf command resf))))
+       (assert (= 0 (unix:system ,(format nil "~A ~A ~A 2>/dev/null 1>~A"
+                                          *program-name* testf command resf))))
        (let ((alst (read-file ,resf)))
          ,@(mapcar #'(lambda (res)
                        `(assert (and (assoc ,(car res) alst)
@@ -54,7 +56,8 @@
         (resf (tmp "tmp-argparse-result-" name)))
     `(deftest ,name
        ,(write-tmp-file testf send-lst)
-       (assert (= 0 (unix:system ,(format nil "eus ~A --help 2>/dev/null 1>~A" testf resf))))
+       (assert (= 0 (unix:system ,(format nil "~A ~A --help 2>/dev/null 1>~A"
+                                          *program-name* testf resf))))
        (let ((str1 ,result)
              (str2 (string-right-trim '(#\Space #\Newline) (read-binary-file ,resf))))
          (assert (string= str1 str2))))))
@@ -63,7 +66,8 @@
   (let ((testf (tmp "tmp-argparse-test-" name)))
     `(deftest ,name
        ,(write-tmp-file testf send-lst)
-       (assert (= 256 (unix:system ,(format nil "eus ~A ~A 2>/dev/null 1>/dev/null" testf command)))))))
+       (assert (= 256 (unix:system ,(format nil "~A ~A ~A 2>/dev/null 1>/dev/null"
+                                            *program-name* testf command)))))))
 
 
 ;; HELP TESTS
@@ -336,7 +340,7 @@ optional arguments:
   (:add-argument "-cc" :help "Callback with compiled function"
                  :action #'print)
   (:add-argument "-ccf" :help "Callback with compiled function"
-                 :action #'lisp-implementation-version)
+                 :action #'lisp-implementation-type)
   (:add-argument "--count" :action :count)
   (:add-argument '("--append" "-a") :action :append :read t :choices (list 1 2 3))
   (:add-argument "--const" :const 10 :action :store-const))
@@ -530,7 +534,7 @@ optional arguments:
   (:add-argument "-cc" :help "Callback with compiled function"
                  :action #'print)
   (:add-argument "-ccf" :help "Callback with compiled function"
-                 :action #'lisp-implementation-version)
+                 :action #'lisp-implementation-type)
   (:add-argument "--count" :action :count)
   (:add-argument '("--append" "-a") :action :append :read t :choices (list 1 2 3))
   (:add-argument "--const" :const 10 :action :store-const))
@@ -538,7 +542,7 @@ optional arguments:
 (defargparse-test parse-overall.2
   "--arg=a --req=3 --def=2 -ff --dest=b -ccf --count"
   ((:arg "a") (:req 3) (:def 2) (:remap "b") (:flag nil) (:flag-false nil)
-   (:ca nil) (:cf nil) (:cc nil) (:ccf #.(lisp-implementation-version)) (:count 1)
+   (:ca nil) (:cf nil) (:cc nil) (:ccf #.(lisp-implementation-type)) (:count 1)
    (:append nil) (:const nil))
   (:init :description "Program Description" :prog "test.l")
   (:add-argument "--arg" :help "The 'arg' argument" :required t)
@@ -554,7 +558,7 @@ optional arguments:
   (:add-argument "-cc" :help "Callback with compiled function"
                  :action #'print)
   (:add-argument "-ccf" :help "Callback with compiled function"
-                 :action #'lisp-implementation-version)
+                 :action #'lisp-implementation-type)
   (:add-argument "--count" :action :count)
   (:add-argument '("--append" "-a") :action :append :read t :choices (list 1 2 3))
   (:add-argument "--const" :const 10 :action :store-const))
diff --git a/test/env.l b/test/env.l
new file mode 100644
index 00000000..f1e796ec
--- /dev/null
+++ b/test/env.l
@@ -0,0 +1,74 @@
+(require :unittest "lib/llib/unittest.l")
+
+(init-unit-test)
+
+(eval-when (compile) ;; this does not work on compiled code
+ (when nil
+
+;;(defun make-c (a) (let ((x 0)) #'(lambda () (list a x))))
+;;(defun make-c () (let ((x 0)) #'(lambda () (list x))))
+(defun make-c0 () #'(lambda () (list 0)))
+
+(compile 'make-c0)
+(setq f0 (make-c0))
+
+(deftest f0
+  (format t ";; funcall make-c0 ~A~%" (funcall f0))
+  (assert (equal (funcall f0) '(0))))
+
+(defun make-c1 () (let () #'(lambda (x) (list x))))
+
+(compile 'make-c1)
+(setq f1 (make-c1))
+
+(deftest f1
+  (format t ";; funcall make-c1 ~A~%" (funcall f1 1))
+  (assert (equal (funcall f1 1) '(1))))
+
+(defun make-c2 () (let ((x 0)) #'(lambda () (list x))))
+
+(compile 'make-c2)
+(setq f2 (make-c2))
+
+(deftest f2
+  (format t ";; funcall make-c2 ~A~%" (funcall f2))
+  (assert (equal (funcall f2) '(0))))
+
+(setq *x* 2) (defun make-c3 () #'(lambda () (list *x*)))
+
+(compile 'make-c3)
+(setq f3 (make-c3))
+
+(deftest f3
+  (format t ";; funcall make-c3 ~A~%" (funcall f3))
+  (assert (equal (funcall f3) '(2))))
+
+(defun make-c4 () #'(lambda (x) (list x)))
+
+(compile 'make-c4)
+(setq f4 (make-c4))
+
+(deftest f4
+  (format t ";; funcall make-c4 ~A~%" (funcall f4 1))
+  (assert (equal (funcall f4 1) '(1))))
+
+)) ;; eval-when (compile) (when nil
+
+(deftest lambda-in-lambda
+  (let (r)
+    (setq r
+	  (mapcar #'(lambda (x)
+		      (mapcar #'(lambda (y) 1)
+			      '(nil nil nil nil nil nil nil nil nil nil nil nil nil
+				    nil nil nil nil nil nil nil nil nil nil nil nil nil)))
+		  '(nil nil nil nil nil nil nil nil nil nil nil nil nil
+			nil nil nil nil nil nil nil nil nil nil nil nil nil)))
+    (print r)
+    (assert (equal
+	     (make-list 26 :initial-element (make-list 26 :initial-element 1))
+	     r))
+    ))
+
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))
diff --git a/test/geo.l b/test/geo.l
index f6592794..f2a54348 100644
--- a/test/geo.l
+++ b/test/geo.l
@@ -3,6 +3,8 @@
 (init-unit-test)
 
 (in-package "GEO")
+;; redefined to use normalize-vector defined in irteus(?)
+;; this requrie to avoid outer circuit not found in (body+ c1 b d1 c2 d2 c3 d3 c4 d4)
 (defun face-normal-vector (vertices)
   (let* ((v1 (first vertices)) (v2) (vlist (rest vertices))
          (v (float-vector 0 0 0))
@@ -38,6 +40,50 @@
     (assert (eps= (send f :distance (float-vector 200 0 100)) (norm #f(100 100))))
     ))
 
+;; test intersection3
+;; https://github.com/euslisp/jskeus/pull/561
+(deftest triangulation-intersection3 ()
+  (let ((l0 (make-line (float-vector -120.0 -30.0 0.0) (float-vector 15.0 0.0 0.0)))
+	(l1 (make-line (float-vector -15.0 120.0 0.0)  (float-vector -15.0 0.0 0.0)))
+        res-p res-n)
+    (setq res-p (geo::line-intersection3 (l0 . pvert) (l0 . nvert) (l1 . pvert) (l1 . nvert) 0.00001)) ;; -> (0.777778 1.05556)
+    (setq res-n (geo::line-intersection3 (l1 . pvert) (l1 . nvert) (l0 . pvert) (l0 . nvert) 0.00001)) ;; -> (1.05556 0.777778)
+    (warn ";;; intersection3 (res-p) ~A~%" res-p)
+    (warn ";;; intersection3 (res-n) ~A~%" res-n)
+
+    (assert (eps= (elt res-p 0) (elt res-n 1)))
+    (assert (eps= (elt res-p 1) (elt res-n 0)))
+    ))
+
+(deftest check-primitive-body ()
+  (let (p-body)
+    (dolist (b (list (make-cube 100 100 100)
+		     (make-cylinder 100 100)
+		     (make-icosahedron 100)
+		     (make-gdome (make-icosahedron 100))
+		     (make-solid-of-revolution (list #f(50  0 100)
+						     #f(100 0 100)
+						     #f(100 0   0)
+						     #f(50  0   0)
+						     ))
+		     (make-cone #f(0 0 100) 100)
+		     (let ((v1 #f(0 0 0))
+			   (v2 #f(100 0 0))
+			   (v3 #f(0 100 0))
+			   (v4 #f(0 0 100)))
+		       (make-body-from-vertices (list (list v1 v2 v3)
+						      (list v4 v2 v1)
+						      (list v4 v3 v2)
+						      (list v4 v1 v3))))
+		     ))
+      (format t "body ~A, csg ~A~%" b (send b :csg))
+      ;; check body must be equal to original body
+      (setq p-body (remove-duplicates (send-all (send b :faces) :body)))
+      (assert (= (length p-body) 1) "length of unique primitive body must be 1")
+      (assert (equal (elt p-body 0) b) "primitive body must be identical to body")
+      ))
+  )
+
 (eval-when (load eval)
   (run-all-tests)
   (exit))
diff --git a/test/test-foreign.l b/test/test-foreign.l
new file mode 100644
index 00000000..819482b4
--- /dev/null
+++ b/test/test-foreign.l
@@ -0,0 +1,581 @@
+(eval-when (load eval) (load "test-foreign.module_l"))
+(require :unittest "lib/llib/unittest.l")
+
+(init-unit-test)
+
+(defun check-func (f)
+  (warning-message 3 "~A [paramtypes] ~A, [result] ~A~%"
+		   (send f :pname)
+		   (cdr (assoc 'paramtypes (send (send f :func) :slots)))
+		   (cdr (assoc 'resulttype (send (send f :func) :slots)))))
+
+(defun assert-read-line-eps= (s ret)
+  (let (l)
+    (setq l (read-line s))
+    (warning-message 2 "check read-line ~A -> ~A = ~A~%" l  (subseq l 2) ret)
+    (assert (eps= (read-from-string (subseq l 2)) ret))))
+
+(defun assert-read-line-string= (s ret &optional (f #'identity))
+  (let (l)
+    (setq l (read-line s))
+    (warning-message 2 "check read-line ~A -> ~A = ~A~%" l l ret)
+    (assert (string= l ret))))
+
+(defun assert-read-funcall= (f ret)
+  (let ()
+    (warning-message 2 "check ~A -> ~A = ~A~%" f (eval f) ret)
+    (assert (eps= (eval f) ret))))
+
+(deftest test-pointer-size
+  (format t "~%;;;; pointer size check ;;;;~%")
+
+  (format t "pointer size ~D ~D~%"
+	  lisp::sizeof-* (get-size-pointer))
+  (assert (= lisp::sizeof-* (get-size-pointer)))
+
+  (format t "double size ~D ~D~%"
+	  lisp::sizeof-double (get-size-double))
+  (assert (= lisp::sizeof-double (get-size-double)))
+
+  (format t "long integer size ~D ~D~%"
+	  (cadr (assoc :long lisp::sizeof-types))
+	  (get-size-long))
+  (assert (= (cadr (assoc :long lisp::sizeof-types)) (get-size-long)))
+
+  (format t "integer size ~D ~D~%"
+	  lisp::sizeof-int (get-size-int))
+  (assert (= lisp::sizeof-int (get-size-int)))
+
+  (format t "float size ~D ~D~%"
+	  lisp::sizeof-float (get-size-float32))
+  (assert (= lisp::sizeof-float (get-size-float32)))
+
+  (format t "eusinteger size ~D ~D~%"
+	  lisp::sizeof-* (get-size-eusfloat))
+  (assert (= lisp::sizeof-* (get-size-eusfloat)))
+
+  (format t "eusfloat size ~D ~D~%"
+	  lisp::sizeof-* (get-size-eusinteger))
+  (assert (= lisp::sizeof-* (get-size-eusinteger)))
+  )
+
+(deftest test-multiple-arguments-passing
+  (format t "~%multiple arguments passing~%")
+  (format t "expected result~%")
+  (format t "100 101 102
+103 104 105
+1000.000000 1010.000000 1020.000000 1030.000000
+1040.000000 1050.000000 1060.000000 1070.000000
+2080.000000 2090.000000
+206 207
+test-testd = 1.23456
+~%")
+  (format t "exec in eus~%")
+  (format t "test-testd = ~A~%"
+        (setq ret (test-testd 100 101 102
+            103 104 105
+            1000.0 1010.0 1020.0 1030.0
+            1040.0 1050.0 1060.0 1070.0
+            2080.0 2090.0
+            206 207)))
+  (when (not (and (memq :word-size=32 *features*) (memq :arm *features*)))
+  (assert (eps= 1.23456 ret))
+  )
+
+  ;;
+  (check-func 'test-testd)
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (test-testd 100 101 102 103 104 105 1000.000000 1010.000000 1020.000000 1030.000000 1040.000000 1050.000000 1060.000000 1070.000000 2080.000000 2090.000000 206 207)(exit 0))'" *eusdir*)))
+  (assert-read-line-string= f "100 101 102")
+  (assert-read-line-string= f "103 104 105")
+  (assert-read-line-string= f "1000.000000 1010.000000 1020.000000 1030.000000")
+  (assert-read-line-string= f "1040.000000 1050.000000 1060.000000 1070.000000")
+  (assert-read-line-string= f "2080.000000 2090.000000")
+  (assert-read-line-string= f "206 207")
+
+  (format t "exec in eus~%")
+  (format t "test-testf = ~A~%"
+        (setq ret (test-testf 100 101 102
+            103 104 105
+            1000.0 1010.0 1020.0 1030.0
+            1040.0 1050.0 1060.0 1070.0
+            2080.0 2090.0
+            206 207)))
+  (assert (eps= 1.23456 ret))
+  ;;
+  (check-func 'test-testf)
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (test-testf 100 101 102 103 104 105 1000.000000 1010.000000 1020.000000 1030.000000 1040.000000 1050.000000 1060.000000 1070.000000 2080.000000 2090.000000 206 207)(exit 0))'" *eusdir*)))
+  (assert-read-line-string= f "100 101 102")
+  (assert-read-line-string= f "103 104 105")
+  (assert-read-line-string= f "1000.000000 1010.000000 1020.000000 1030.000000")
+  (assert-read-line-string= f "1040.000000 1050.000000 1060.000000 1070.000000")
+  (assert-read-line-string= f "2080.000000 2090.000000")
+  (assert-read-line-string= f "206 207")
+
+  (format t "exec in eus~%")
+  (format t "test-testfd = ~A~%"
+        (setq ret (test-testfd 100 101 102
+            103 104 105
+            1000.0 1010.0 1020.0 1030.0
+            1040.0 1050.0 1060.0 1070.0
+            2080.0 2090.0 2100.0 2110.0
+            206 207)))
+  (assert (= 123456 ret))
+  ;;
+  (when (not (eq (read (unix::piped-fork "gcc -dumpmachine") nil 'arm-linux-gnueabi) 'arm-linux-gnueabi))
+  (check-func 'test-testfd)
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (test-testfd 100 101 102 103 104 105 1000.000000 1010.000000 1020.000000 1030.000000 1040.000000 1050.000000 1060.000000 1070.000000 2080.000000 2090.000000  2100.000000 2110.000000 206 207)(exit 0))'" *eusdir*)))
+  (assert-read-line-string= f "100 101 102")
+  (assert-read-line-string= f "103 104 105")
+  (assert-read-line-string= f "1000.000000 1010.000000 1020.000000 1030.000000")
+  (assert-read-line-string= f "1040.000000 1050.000000 1060.000000 1070.000000")
+  (assert-read-line-string= f "2080.000000 2090.000000 2100.000000 2110.000000")
+  (assert-read-line-string= f "206 207")
+  )
+  )
+
+(deftest test-int-test
+  (format t "~%~%int-test~%")
+  (format t "expected result~%")
+  (format t "0:        1 1~%")
+  (format t "0:        2 2~%")
+  (format t "0:        3 3~%")
+  (format t "0:        4 4~%")
+  (format t "~%int-test(success, exec in eus)~%")
+  (check-func 'int-test)
+  (int-test 0 1 2 3 4)
+  ;;
+  (check-func 'int-test)
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (int-test 0 1 2 3 4)(exit 0))'" *eusdir*)))
+  (assert-read-line-string= f "0:        1 1")
+  (assert-read-line-string= f "0:        2 2")
+  (assert-read-line-string= f "0:        3 3")
+  (assert-read-line-string= f "0:        4 4")
+  )
+
+(deftest test-long-test
+  (format t "~%~%long-test~%")
+  (format t "expected result~%")
+  (format t "0:        1 1~%")
+  (format t "0:        2 2~%")
+  (format t "0:        3 3~%")
+  (format t "0:        4 4~%")
+  (format t "~%long-test(success, exec in eus)~%")
+  (check-func 'long-test)
+  (long-test 0 1 2 3 4)
+  ;;
+  (check-func 'long-test)
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (long-test 0 1 2 3 4)(exit 0))'" *eusdir*)))
+  (assert-read-line-string= f "0:        1 1")
+  (assert-read-line-string= f "0:        2 2")
+  (assert-read-line-string= f "0:        3 3")
+  (assert-read-line-string= f "0:        4 4")
+  )
+
+(deftest test-eusinteger-test
+  (format t "~%~%eusinteger-test~%")
+  (format t "expected result~%")
+  (format t "0:        1 1~%")
+  (format t "0:        2 2~%")
+  (format t "0:        3 3~%")
+  (format t "0:        4 4~%")
+  (format t "~%eusinteger-test(success, exec in eus)~%")
+  (check-func 'eusinteger-test)
+  (eusinteger-test 0 1 2 3 4)
+  ;;
+  (check-func 'eusinteger-test)
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (eusinteger-test 0 1 2 3 4)(exit 0))'" *eusdir*)))
+  (assert-read-line-string= f "0:        1 1")
+  (assert-read-line-string= f "0:        2 2")
+  (assert-read-line-string= f "0:        3 3")
+  (assert-read-line-string= f "0:        4 4")
+  )
+
+(deftest test-float-test
+  (format t "~%~%float-test~%")
+  (format t "expected result~%")
+  (format t "0: 1.000000e-01 ..~%")
+  (format t "0: 2.000000e-01 ..~%")
+  (format t "0: 3.000000e-01 ..~%")
+  (format t "0: 4.000000e-01 ..~%")
+  (format t "~%float-test(success, exec in eus)~%")
+  (check-func 'float-test)
+  (float-test 0 0.1 0.2 0.3 0.4)
+  (format t "~%float1-test(success, exec in eus)~%")
+  (check-func 'float1-test)
+  (float1-test 0 0.1 0.2 0.3 0.4)
+  (format t "~%float2-test(fail, exec in eus)~%")
+  (check-func 'float2-test)
+  (float2-test 0 0.1 0.2 0.3 0.4)
+  (format t "~%float3-test(depend on architecture, exec in eus)~%")
+  (check-func 'float3-test)
+  (float3-test 0 0.1 0.2 0.3 0.4)
+
+  ;;
+  (check-func 'float-test)
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (float-test 0 0.1 0.2 0.3 0.4)(exit 0))'" *eusdir*)))
+  (assert-read-line-eps= f 0.1)
+  (assert-read-line-eps= f 0.2)
+  (assert-read-line-eps= f 0.3)
+  (assert-read-line-eps= f 0.4)
+
+  (when (memq :word-size=32 *features*)
+    (check-func 'float1-test)
+    (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (float1-test 0 0.1 0.2 0.3 0.4)(exit 0))'" *eusdir*)))
+    (assert-read-line-eps= f 0.1)
+    (assert-read-line-eps= f 0.2)
+    (assert-read-line-eps= f 0.3)
+    (assert-read-line-eps= f 0.4))
+  )
+
+(deftest test-double-test
+  (format t "~%~%double-test~%")
+  (format t "expected result~%")
+  (format t "1: 1.000000e-01 ..~%")
+  (format t "1: 2.000000e-01 ..~%")
+  (format t "1: 3.000000e-01 ..~%")
+  (format t "1: 4.000000e-01 ..~%")
+  (format t "~%double-test(success, exec in eus)~%")
+  (check-func 'double-test)
+  (double-test 1 0.1 0.2 0.3 0.4)
+  (format t "~%double1-test(fail, exec in eus)~%")
+  (check-func 'double1-test)
+  (double1-test 1 0.1 0.2 0.3 0.4)
+  (format t "~%double2-test(fail, exec in eus)~%")
+  (check-func 'double2-test)
+  (double2-test 1 0.1 0.2 0.3 0.4)
+  (format t "~%double3-test(depend on architecture, exec in eus)~%")
+  (check-func 'double3-test)
+  (double3-test 1 0.1 0.2 0.3 0.4)
+
+  ;;
+  (when (not (eq (read (unix::piped-fork "gcc -dumpmachine") nil 'arm-linux-gnueabi) 'arm-linux-gnueabi))
+  (check-func 'double-test)
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (double-test 1 0.1 0.2 0.3 0.4)(exit 0))'" *eusdir*)))
+  (assert-read-line-eps= f 0.1)
+  (assert-read-line-eps= f 0.2)
+  (assert-read-line-eps= f 0.3)
+  (assert-read-line-eps= f 0.4)
+  )
+  (when (not (and (memq :word-size=32 *features*) (memq :arm *features*)))
+  (check-func 'double3-test)
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (double3-test 1 0.1 0.2 0.3 0.4)(exit 0))'" *eusdir*)))
+  (assert-read-line-eps= f 0.1)
+  (assert-read-line-eps= f 0.2)
+  (assert-read-line-eps= f 0.3)
+  (assert-read-line-eps= f 0.4)
+  )
+  )
+
+(deftest test-eusfloat-test
+  (format t "~%~%eusfloat-test~%")
+  (format t "expected result~%")
+  (format t "0: 1.000000e-01 ..~%")
+  (format t "0: 2.000000e-01 ..~%")
+  (format t "0: 3.000000e-01 ..~%")
+  (format t "0: 4.000000e-01 ..~%")
+  (format t "~%eusfloat-test(fail, exec in eus)~%")
+  (check-func 'eusfloat-test)
+  (eusfloat-test 0 0.1 0.2 0.3 0.4)
+  (format t "~%eusfloat1-test(success, exec in eus)~%")
+  (check-func 'eusfloat1-test)
+  (eusfloat1-test 0 0.1 0.2 0.3 0.4)
+  (format t "~%eusfloat2-test(success, exec in eus)~%")
+  (check-func 'eusfloat2-test)
+  (eusfloat2-test 0 0.1 0.2 0.3 0.4)
+  (format t "~%eusfloat3-test(success, exec in eus)~%")
+  (check-func 'eusfloat3-test)
+  (eusfloat3-test 0 0.1 0.2 0.3 0.4)
+
+  ;;
+  (when (memq :word-size=32 *features*)
+    (check-func 'eusfloat-test)
+    (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (eusfloat-test 0 0.1 0.2 0.3 0.4)(exit 0))'" *eusdir*)))
+    (assert-read-line-eps= f 0.1)
+    (assert-read-line-eps= f 0.2)
+    (assert-read-line-eps= f 0.3)
+    (assert-read-line-eps= f 0.4))
+
+  (check-func 'eusfloat1-test)
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (eusfloat1-test 0 0.1 0.2 0.3 0.4)(exit 0))'" *eusdir*)))
+  (assert-read-line-eps= f 0.1)
+  (assert-read-line-eps= f 0.2)
+  (assert-read-line-eps= f 0.3)
+  (assert-read-line-eps= f 0.4)
+
+  (when (memq :word-size=64 *features*)
+    (check-func 'eusfloat2-test)
+    (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (eusfloat2-test 0 0.1 0.2 0.3 0.4)(exit 0))'" *eusdir*)))
+    (assert-read-line-eps= f 0.1)
+    (assert-read-line-eps= f 0.2)
+    (assert-read-line-eps= f 0.3)
+    (assert-read-line-eps= f 0.4)
+
+    (check-func 'eusfloat3-test)
+    (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (eusfloat3-test 0 0.1 0.2 0.3 0.4)(exit 0))'" *eusdir*)))
+    (assert-read-line-eps= f 0.1)
+    (assert-read-line-eps= f 0.2)
+    (assert-read-line-eps= f 0.3)
+    (assert-read-line-eps= f 0.4))
+
+  )
+
+(deftest test-integer-vector
+  (setq iv (integer-vector 0 100 10000 1000000 100000000 10000000000))
+
+  (format t "~%iv-test~%")
+  (format t "size = 6
+0: 0 0
+1: 100 64
+2: 10000 2710
+3: 1000000 F4240
+4: 100000000 5F5E100
+5: 10000000000 2540BE400~%")
+  (format t "~%iv-test(fail, exec in eus)~%")
+  (check-func 'iv-test)
+  (iv-test (length iv) iv)
+
+  (format t "~%lv-test~%")
+  (format t "size = 6
+0: 0 0
+1: 100 64
+2: 10000 2710
+3: 1000000 F4240
+4: 100000000 5F5E100
+5: 10000000000 2540BE400~%")
+  (format t "~%lv-test(exec in eus)~%")
+  (check-func 'lv-test)
+  (lv-test (length iv) iv)
+
+  ;;
+  (check-func 'lv-test)
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (setq iv (integer-vector 0 100 10000 1000000 100000000 10000000000))(lv-test (length iv) iv)(exit 0))'" *eusdir*)))
+  (assert-read-line-string= f "size = 6")
+  (assert-read-line-string= f "0: 0 0")
+  (assert-read-line-string= f "1: 100 64")
+  (assert-read-line-string= f "2: 10000 2710")
+  (assert-read-line-string= f "3: 1000000 F4240")
+  (assert-read-line-string= f "4: 100000000 5F5E100")
+  (when (memq :word-size=64 *features*)
+    (assert-read-line-string= f "5: 10000000000 2540BE400"))
+
+  (format t "~%eiv-test~%")
+  (format t "size = 6
+0: 0 0
+1: 100 64
+2: 10000 2710
+3: 1000000 F4240
+4: 100000000 5F5E100
+5: 10000000000 2540BE400~%")
+  (format t "~%lv-test(exec in eus)~%")
+  (check-func 'eiv-test)
+  (eiv-test (length iv) iv)
+
+  ;;
+  (check-func 'eiv-test)
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (setq iv (integer-vector 0 100 10000 1000000 100000000 10000000000))(eiv-test (length iv) iv)(exit 0))'" *eusdir*)))
+  (assert-read-line-string= f "size = 6")
+  (assert-read-line-string= f "0: 0 0")
+  (assert-read-line-string= f "1: 100 64")
+  (assert-read-line-string= f "2: 10000 2710")
+  (assert-read-line-string= f "3: 1000000 F4240")
+  (assert-read-line-string= f "4: 100000000 5F5E100")
+  (when (memq :word-size=64 *features*)
+    (assert-read-line-string= f "5: 10000000000 2540BE400"))
+  )
+
+(deftest test-float-vector
+  (setq fv (float-vector 0.1 0.2 0.3 0.5 0.7))
+
+  (format t "~%fv-test~%")
+  (format t "size = 5
+0: 1.000000e-01 3FB9999999999998
+1: 2.000000e-01 3FC9999999999998
+2: 3.000000e-01 3FD3333333333330
+3: 5.000000e-01 3FE0000000000000
+4: 7.000000e-01 3FE6666666666664~%")
+  (format t "~%fv-test(exec in eus)~%")
+  (check-func 'fv-test)
+  (fv-test (length fv) fv)
+
+  (format t "~%dv-test~%")
+  (format t "size = 5
+0: 1.000000e-01 3FB9999999999998
+1: 2.000000e-01 3FC9999999999998
+2: 3.000000e-01 3FD3333333333330
+3: 5.000000e-01 3FE0000000000000
+4: 7.000000e-01 3FE6666666666664~%")
+  (format t "~%dv-test(exec in eus)~%")
+  (check-func 'dv-test)
+  (dv-test (length fv) fv)
+
+  ;;
+  (when (memq :word-size=64 *features*)
+    (check-func 'dv-test)
+    (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (setq fv (float-vector 0.1 0.2 0.3 0.5 0.7))(dv-test (length fv) fv)(exit 0))'" *eusdir*)))
+    (assert-read-line-string= f "size = 5")
+    (assert-read-line-string= f "0: 1.000000e-01 3FB9999999999998")
+    (assert-read-line-string= f "1: 2.000000e-01 3FC9999999999998")
+    (assert-read-line-string= f "2: 3.000000e-01 3FD3333333333330")
+    (assert-read-line-string= f "3: 5.000000e-01 3FE0000000000000")
+    (assert-read-line-string= f "4: 7.000000e-01 3FE6666666666664"))
+
+  ;;
+  (format t "~%efv-test~%")
+  (format t "size = 5
+0: 1.000000e-01 3FB9999999999998
+1: 2.000000e-01 3FC9999999999998
+2: 3.000000e-01 3FD3333333333330
+3: 5.000000e-01 3FE0000000000000
+4: 7.000000e-01 3FE6666666666664~%")
+  (format t "~%efv-test(exec in eus)~%")
+  (check-func 'efv-test)
+  (efv-test (length fv) fv)
+
+  ;;
+  (check-func 'efv-test)
+  (when (memq :word-size=64 *features*)
+    (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (setq fv (float-vector 0.1 0.2 0.3 0.5 0.7))(efv-test (length fv) fv)(exit 0))'" *eusdir*)))
+    (assert-read-line-string= f "size = 5")
+    (assert-read-line-string= f "0: 1.000000e-01 3FB9999999999998")
+    (assert-read-line-string= f "1: 2.000000e-01 3FC9999999999998")
+    (assert-read-line-string= f "2: 3.000000e-01 3FD3333333333330")
+    (assert-read-line-string= f "3: 5.000000e-01 3FE0000000000000")
+    (assert-read-line-string= f "4: 7.000000e-01 3FE6666666666664"))
+  )
+
+(deftest test-string-test
+  (setq str "input : test64 string")
+  (format t "~%str-test~%")
+  ;;(format t "expected result~%")
+  (format t "input string : ~S~%" str)
+  (format t "~%str-test(exec in eus)~%")
+  (check-func 'str-test)
+  (str-test (length str) str)
+  ;;
+  (check-func 'str-test)
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (setq str \"input : test64 string\")(str-test (length str) str)(exit 0))'" *eusdir*)))
+  (assert-read-line-string= f (format nil "size = ~d" (length str)))
+  (dotimes (i (length str))
+    (assert-read-line-string= f (format nil "~d: ~c ~x" i (elt str i) (elt str i)))
+    )
+  )
+
+(deftest test-return-float
+  (format t "~%return float test~%")
+  (format t "expected result~%")
+  (format t "  ret-float ~8,8e~%" (+ 0.55555 133.0))
+  (format t "~%ret-float(exec in eus)~%")
+  (format t "  ret-float ~8,8e~%" (ret-float 0.55555 133.0))
+  ;;
+  (check-func 'ret-float)
+  (assert-read-funcall= '(ret-float 0.55555 133.0) (+ 0.55555 133.0))
+  (assert (eps= (ret-float 0.55555 133.0) (+ 0.55555 133.0)))
+  )
+
+(deftest test-return-double
+  (format t "~%return double test~%")
+  (format t "expected result~%")
+  (format t "  ret-double ~8,8e~%" (+ 0.55555 133.0))
+  (format t "~%ret-double(exec in eus)~%")
+  (format t "  ret-double ~8,8e~%" (ret-double 0.55555 133.0))
+  ;;
+  (when (not (and (memq :word-size=32 *features*) (memq :arm *features*)))
+  (check-func 'ret-double)
+  (assert-read-funcall= '(ret-double 0.55555 133.0) (+ 0.55555 133.0))
+  (assert (eps= (ret-double 0.55555 133.0) (+ 0.55555 133.0)))
+  )
+  )
+
+(deftest test-return-eusfloat
+  (format t "~%return eusfloat test~%")
+  (format t "expected result~%")
+  (format t "  ret-eusfloat ~8,8e~%" (+ 0.55555 133.0))
+  (format t "~%ret-eusfloat(exec in eus)~%")
+  (format t "  ret-eusfloat ~8,8e~%" (ret-eusfloat 0.55555 133.0))
+  ;;
+  (check-func 'ret-eusfloat)
+  (assert-read-funcall= '(ret-eusfloat 0.55555 133.0) (+ 0.55555 133.0))
+  (assert (eps= (ret-eusfloat 0.55555 133.0) (+ 0.55555 133.0)))
+  )
+
+(deftest test-return-int
+  (format t "~%return int test~%")
+  (format t "expected result~%")
+  (format t "  ret-int ~D~%" (+ 123 645000))
+  (format t "~%ret-int(exec in eus)~%")
+  (format t "  ret-int ~D~%" (ret-int 123 645000))
+
+  (check-func 'ret-int)
+  (assert (= (ret-int 123 645000) (+ 123 645000)))
+  )
+
+(deftest test-return-long
+  (format t "~%return long test~%")
+  (format t "expected result~%")
+  (format t "  ret-long ~D~%" (+ 123 645000))
+  (format t "~%ret-long(exec in eus)~%")
+  (format t "  ret-long ~D~%" (ret-long 123 645000))
+
+  (check-func 'ret-long)
+  (assert (= (ret-long 123 645000) (+ 123 645000)))
+  )
+
+(deftest test-return-eusinteger
+  (format t "~%return eusinteger test~%")
+  (format t "expected result~%")
+  (format t "  ret-eusinteger ~D~%" (+ 123 645000))
+  (format t "~%ret-eusinteger(exec in eus)~%")
+  (format t "  ret-eusinteger ~D~%" (ret-eusinteger 123 645000))
+
+  (check-func 'ret-eusinteger)
+  (assert (= (ret-eusinteger 123 645000) (+ 123 645000)))
+  )
+
+#|
+;; ret-int
+;; ret-short
+;; ret-char
+
+;; callback function
+(defun-c-callable LISP-IFUNC () :integer
+  (format t "LISP-INTFUNC is called, return ~D~%" 1234)
+  1234)
+;;
+(format t "~%callback function test(integer)~%")
+(format t "  callback function is set~%")
+(set-ifunc (pod-address 'LISP-IFUNC))
+(format t "  expected result: LISP-INTFUNC is called, return 1234~%")
+(format t "  call-ifunc = ~A~%" (call-ifunc))
+
+(defun-c-callable LISP-FFUNC ((i0 :integer) (i1 :integer) (i2 :integer)
+                              (i3 :integer) (i4 :integer) (i5 :integer)
+                              (f0 :float) (f1 :float) (f2 :float) (f3 :float)
+                              (f4 :float) (f5 :float) (f6 :float) (f7 :float)
+                              (f8 :float) (f9 :float)
+                              (i6 :integer) (i7 :integer)) :float
+  (format t "LISP-FFUNC is called~%")
+  (format t "~A ~A ~A~%" i0 i1 i2)
+  (format t "~A ~A ~A~%" i3 i4 i5)
+  (format t "~A ~A ~A ~A~%" f0 f1 f2 f3)
+  (format t "~A ~A ~A ~A~%" f4 f5 f6 f7)
+  (format t "~A ~A~%" f8 f9)
+  (format t "~A ~A~%" i6 i7)
+  (format t "return ~A~%" 0.12345)
+  0.12345)
+(format t "~%callback function test(float)~%")
+(format t "  callback function is set~%")
+(set-ffunc (pod-address 'LISP-FFUNC))
+(format t "  expected result: LISP-FFUNC is called
+  100 101 102
+  103 104 105
+  1000.0 1010.0 1020.0 1030.0
+  1040.0 1050.0 1060.0 1070.0
+  2080.0 2090.0
+  206 207
+  return 0.12345~%")
+(format t "call-ffunc = ~A~%" (call-ffunc))
+|#
+
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))
diff --git a/test/test-foreign.module_l b/test/test-foreign.module_l
new file mode 100644
index 00000000..c4d917d5
--- /dev/null
+++ b/test/test-foreign.module_l
@@ -0,0 +1,64 @@
+(unless (boundp '*testmod*)
+  (setq *testmod* (load-foreign "test_foreign.so"))
+  (defforeign int-test *testmod* "int_test" (:integer :integer :integer :integer :integer) :integer)
+  (defforeign long-test *testmod* "long_test" (:integer :integer :integer :integer :integer) :integer)
+  (defforeign eusinteger-test *testmod* "eusinteger_test" (:integer :integer :integer :integer :integer) :integer)
+  (defforeign float-test *testmod* "float_test" (:integer :float32 :float32 :float32 :float32) :integer)
+  (defforeign float1-test *testmod* "float_test" (:integer :float :float :float :float) :integer)
+  (defforeign float2-test *testmod* "float_test" (:integer :double :double :double :double) :integer)
+  (defforeign float3-test *testmod* "float_test" () :integer)
+  (defforeign eusfloat-test *testmod* "eusfloat_test" (:integer :float32 :float32 :float32 :float32) :integer)
+  (defforeign eusfloat1-test *testmod* "eusfloat_test" (:integer :float :float :float :float) :integer)
+  (defforeign eusfloat2-test *testmod* "eusfloat_test" (:integer :double :double :double :double) :integer)
+  (defforeign eusfloat3-test *testmod* "eusfloat_test" () :integer)
+  (defforeign double-test *testmod* "double_test" (:integer :double :double :double :double) :integer)
+  (defforeign double1-test *testmod* "double_test" (:integer :float :float :float :float) :integer)
+  (defforeign double2-test *testmod* "double_test" (:integer :float32 :float32 :float32 :float32) :integer)
+  (defforeign double3-test *testmod* "double_test" () :integer)
+  (defforeign iv-test *testmod* "iv_test" () :integer)
+  (defforeign lv-test *testmod* "lv_test" () :integer)
+  (defforeign eiv-test *testmod* "eiv_test" () :integer)
+  (defforeign fv-test *testmod* "fv_test" () :integer)
+  (defforeign dv-test *testmod* "dv_test" () :integer)
+  (defforeign efv-test *testmod* "efv_test" () :integer)
+  (defforeign str-test *testmod* "str_test" () :integer)
+  (defforeign int-test *testmod* "int_test" () :integer)
+  (defforeign ret-float *testmod* "ret_float" (:float32 :float32) :float32)
+  (defforeign ret-double *testmod* "ret_double" (:double :double) :float)
+  (defforeign ret-eusfloat *testmod* "ret_eusfloat" (:float :float) :float)
+  (defforeign ret-int *testmod* "ret_int" () :integer)
+  (defforeign ret-long *testmod* "ret_long" () :integer)
+  (defforeign ret-eusinteger *testmod* "ret_eusinteger" () :integer)
+
+  (defforeign set-ifunc *testmod* "set_ifunc" (:integer) :integer)
+  (defforeign set-ffunc *testmod* "set_ffunc" (:integer) :integer)
+
+  (defforeign test-testd *testmod* "test_testd" (:integer :integer :integer
+                                                          :integer :integer :integer
+                                                          :double :double :double :double
+                                                          :double :double :double :double
+                                                          :double :double
+                                                          :integer :integer) :float)
+  (defforeign test-testf *testmod* "test_testf" (:integer :integer :integer
+                                                          :integer :integer :integer
+                                                          :float :float :float :float
+                                                          :float :float :float :float
+                                                          :float :float
+                                                          :integer :integer) :float)
+  (defforeign test-testfd *testmod* "test_testfd" (:integer :integer :integer
+                                                            :integer :integer :integer
+                                                            :double :float32 :double :float32
+                                                            :float32 :double :double :float32
+                                                            :float32 :double :double :float32
+                                                            :integer :integer) :integer)
+  (defforeign call-ifunc *testmod* "call_ifunc" () :integer)
+  (defforeign call-ffunc *testmod* "call_ffunc" () :float)
+
+  (defforeign get-size-pointer *testmod* "get_size_of_pointer" () :integer)
+  (defforeign get-size-float32 *testmod* "get_size_of_float32" () :integer)
+  (defforeign get-size-double  *testmod* "get_size_of_double" ()  :integer)
+  (defforeign get-size-long    *testmod* "get_size_of_long" () :integer)
+  (defforeign get-size-int     *testmod* "get_size_of_int" () :integer)
+  (defforeign get-size-eusinteger   *testmod* "get_size_of_eusinteger" () :integer)
+  (defforeign get-size-eusfloat     *testmod* "get_size_of_eusfloat" () :integer)
+  )
diff --git a/test/test_foreign.c b/test/test_foreign.c
new file mode 100644
index 00000000..48f62bd2
--- /dev/null
+++ b/test/test_foreign.c
@@ -0,0 +1,396 @@
+// for eus.h
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include <string.h>
+#include <setjmp.h>
+#include <errno.h>
+#include <sstream>
+
+#define class   eus_class
+#define throw   eus_throw
+#define export  eus_export
+#define vector  eus_vector
+#define string  eus_string
+#include <eus.h> // include eus.h just for eusfloat_t ...
+#undef class
+#undef throw
+#undef export
+#undef vector
+#undef string
+
+extern "C" {
+int int_test(int n, int i1, int i2, int i3, int i4) {
+  unsigned int ui;
+
+  //printf("int_test in c\n");
+  ui = *((unsigned int *)(&i1));
+  printf("%d: %8d %X\n", n, i1, ui);
+  ui = *((unsigned int *)(&i2));
+  printf("%d: %8d %X\n", n, i2, ui);
+  ui = *((unsigned int *)(&i3));
+  printf("%d: %8d %X\n", n, i3, ui);
+  ui = *((unsigned int *)(&i4));
+  printf("%d: %8d %X\n", n, i4, ui);
+
+  return -1;
+}
+
+int long_test(long n, long d1, long d2, long d3, long d4) {
+  unsigned long ul;
+
+  //printf("long_test in c\n");
+  ul = *((unsigned long *)(&d1));
+  printf("%d: %8d %X\n", n, d1, ul);
+  ul = *((unsigned long *)(&d2));
+  printf("%d: %8d %X\n", n, d2, ul);
+  ul = *((unsigned long *)(&d3));
+  printf("%d: %8d %X\n", n, d3, ul);
+  ul = *((unsigned long *)(&d4));
+  printf("%d: %8d %X\n", n, d4, ul);
+
+  return -1;
+}
+
+int eusinteger_test(int n, eusinteger_t i1, eusinteger_t i2, eusinteger_t i3, eusinteger_t i4) {
+  unsigned long ul;
+
+  //printf("eusinteger_test in c\n");
+  ul = *((unsigned int *)(&i1));
+  printf("%d: %8d %X\n", n, i1, ul);
+  ul = *((unsigned int *)(&i2));
+  printf("%d: %8d %X\n", n, i2, ul);
+  ul = *((unsigned int *)(&i3));
+  printf("%d: %8d %X\n", n, i3, ul);
+  ul = *((unsigned int *)(&i4));
+  printf("%d: %8d %X\n", n, i4, ul);
+
+  return -1;
+}
+
+int float_test(int n, float f1, float f2, float f3, float f4) {
+  unsigned int ui;
+
+  //printf("float_test in c\n");
+  ui = *((unsigned int *)(&f1));
+  printf("%d: %8.8e %X (%4.1f)\n", n, f1, ui, f1);
+  ui = *((unsigned int *)(&f2));
+  printf("%d: %8.8e %X (%4.1f)\n", n, f2, ui, f2);
+  ui = *((unsigned int *)(&f3));
+  printf("%d: %8.8e %X (%4.1f)\n", n, f3, ui, f3);
+  ui = *((unsigned int *)(&f4));
+  printf("%d: %8.8e %X (%4.1f)\n", n, f4, ui, f4);
+
+  return -1;
+}
+
+int double_test(long n, double d1, double d2, double d3, double d4) {
+  unsigned long ul;
+
+  //printf("double_test in c\n");
+  ul = *((unsigned long *)(&d1));
+  printf("%ld: %16.16e %lX (%4.1f)\n", n, d1, ul, d1);
+  ul = *((unsigned long *)(&d2));
+  printf("%ld: %16.16e %lX (%4.1f)\n", n, d2, ul, d2);
+  ul = *((unsigned long *)(&d3));
+  printf("%ld: %16.16e %lX (%4.1f)\n", n, d3, ul, d3);
+  ul = *((unsigned long *)(&d4));
+  printf("%ld: %16.16e %lX (%4.1f)\n", n, d4, ul, d4);
+
+  return -1;
+}
+
+int eusfloat_test(int n, eusfloat_t f1, eusfloat_t f2, eusfloat_t f3, eusfloat_t f4) {
+  unsigned int ui;
+
+  //printf("float_test in c\n");
+  ui = *((unsigned int *)(&f1));
+  printf("%d: %8.8e %X (%4.1f)\n", n, f1, ui, f1);
+  ui = *((unsigned int *)(&f2));
+  printf("%d: %8.8e %X (%4.1f)\n", n, f2, ui, f2);
+  ui = *((unsigned int *)(&f3));
+  printf("%d: %8.8e %X (%4.1f)\n", n, f3, ui, f3);
+  ui = *((unsigned int *)(&f4));
+  printf("%d: %8.8e %X (%4.1f)\n", n, f4, ui, f4);
+
+  return -1;
+}
+
+int iv_test(int n, int *src) {
+  int i;
+  unsigned int *ui;
+  printf("size = %d\n", n);
+  for(i=0;i<n ;i++){
+    ui = (unsigned int *)(&(src[i]));
+    printf("%d: %d %X\n", i, src[i], *ui);
+  }
+  return -1;
+}
+
+int lv_test(int n, long *src) {
+  int i;
+  unsigned long *ul;
+  printf("size = %d\n", n);
+  for(i=0;i<n ;i++){
+    ul = (unsigned long *)(&(src[i]));
+    printf("%d: %ld %lX\n", i, src[i], *ul);
+  }
+  return -1;
+}
+
+int eiv_test(int n, eusinteger_t *src) {
+  eusinteger_t i;
+  unsigned long *ul;
+  printf("size = %d\n", n);
+  for(i=0;i<n ;i++){
+    ul = (unsigned long *)(&(src[i]));
+    printf("%d: %ld %lX\n", i, src[i], *ul);
+  }
+  return -1;
+}
+
+int fv_test(int n, float *src) {
+  int i;
+  unsigned int *ui;
+  printf("size = %d\n", n);
+  for(i=0;i<n ;i++){
+    ui = (unsigned int *)(&(src[i]));
+    printf("%d: %e %X\n", i, src[i], *ui);
+  }
+  return -1;
+}
+
+int dv_test(int n, double *src) {
+  int i;
+  unsigned long *ul;
+  printf("size = %d\n", n);
+  for(i=0;i<n ;i++){
+    ul = (unsigned long *)(&(src[i]));
+    printf("%d: %e %lX\n", i, src[i], *ul);
+  }
+  return -1;
+}
+
+int efv_test(int n, eusfloat_t *src) {
+  int i;
+  unsigned long *ul;
+  printf("size = %d\n", n);
+  for(i=0;i<n ;i++){
+    ul = (unsigned long *)(&(src[i]));
+    printf("%d: %e %lX\n", i, src[i], *ul);
+  }
+  return -1;
+}
+
+int str_test(int n, char *src) {
+  int i;
+  printf("size = %d\n", n);
+  for(i=0;i<n ;i++){
+    printf("%d: %c %x\n", i, src[i], src[i]);
+  }
+  return -1;
+}
+
+int int_long_short_test(long l, int i, short s) {
+  printf("long  = %ld(%lX)\n",l,l);
+  printf("int   = %d(%X)\n",i,i);
+  printf("short = %d(%X)\n",s,s);
+
+  return l + i + s;
+}
+
+float ret_float(float a, float b) {
+  float ret = (float) (a + b);
+  unsigned int *ui;
+  ui = (unsigned int *)&ret;
+  printf("// %f + %f -> %f\n", a, b, ret);
+  printf("// return %e, %X\n", ret, *ui);
+  return ret;
+}
+
+double ret_double(double a, double b) {
+  double ret = (a + b);
+  unsigned long long *ul;
+  ul = (unsigned long long*)&ret;
+  printf("// %f + %f -> %f\n", a, b, ret);
+  printf("// return %e, %lX\n", ret, *ul);
+  return ret;
+}
+
+eusfloat_t ret_eusfloat(eusfloat_t a, eusfloat_t b) {
+  eusfloat_t ret = (a + b);
+  unsigned long *ul;
+  ul = (unsigned long *)&ret;
+  printf("// %f + %f -> %f\n", a, b, ret);
+  printf("// return %e, %lX\n", ret, *ul);
+  return ret;
+}
+
+int ret_int(int a, int b) {
+  int ret = a + b;
+  unsigned long *ul;
+  ul = (unsigned long *)&ret;
+  printf("// %d + %d -> %d\n", a, b, ret);
+  printf("// return %ld, %lX\n", ret, *ul);
+  return ret;
+}
+
+long ret_long(long a, long b) {
+  long ret = a + b;
+  unsigned long *ul;
+  ul = (unsigned long *)&ret;
+  printf("// %d + %d -> %d\n", a, b, ret);
+  printf("// return %ld, %lX\n", ret, *ul);
+  return ret;
+}
+
+eusinteger_t ret_eusinteger(eusinteger_t a, eusinteger_t b) {
+  eusinteger_t ret = a + b;
+  unsigned long *ul;
+  ul = (unsigned long *)&ret;
+  printf("// %d + %d -> %d\n", a, b, ret);
+  printf("// return %ld, %lX\n", ret, *ul);
+  return ret;
+}
+
+double test_testd(long i0, long i1, long i2,
+                  long i3, long i4, long i5,
+                  double d0, double d1, double d2, double d3,
+                  double d4, double d5, double d6, double d7,
+                  double d8, double d9,
+                  long i6, long i7) {
+  printf("%ld %ld %ld\n", i0, i1, i2);
+  printf("%ld %ld %ld\n", i3, i4, i5);
+  //printf("%ld %ld %ld %ld\n",
+  //(long)d0, (long)d1, (long)d2, (long)d3);
+  printf("%lf %lf %lf %lf\n", d0, d1, d2, d3);
+  printf("%lf %lf %lf %lf\n", d4, d5, d6, d7);
+  printf("%lf %lf\n", d8, d9);
+  printf("%ld %ld\n", i6, i7);
+
+  //return 0x1234;
+  return 1.23456;
+}
+double test_testd2(long i0, long i1, long i2,
+                   long i3, long i4, long i5,
+                   double d0, double d1, double d2, double d3,
+                   double d4, double d5, double d6, double d7,
+                   double d8, double d9, double d10,
+                   long i6, long i7) {
+  printf("%ld %ld %ld\n", i0, i1, i2);
+  printf("%ld %ld %ld\n", i3, i4, i5);
+  //printf("%ld %ld %ld %ld\n",
+  //(long)d0, (long)d1, (long)d2, (long)d3);
+  printf("%lf %lf %lf %lf\n", d0, d1, d2, d3);
+  printf("%lf %lf %lf %lf\n", d4, d5, d6, d7);
+  printf("%lf %lf %lf\n", d8, d9, d10);
+  printf("%ld %ld\n", i6, i7);
+
+  //return 0x1234;
+  return 1.23456;
+}
+eusfloat_t test_testf(long i0, long i1, long i2,
+		      long i3, long i4, long i5,
+		      eusfloat_t d0, eusfloat_t d1, eusfloat_t d2, eusfloat_t d3,
+		      eusfloat_t d4, eusfloat_t d5, eusfloat_t d6, eusfloat_t d7,
+		      eusfloat_t d8, eusfloat_t d9,
+		      long i6, long i7) {
+  printf("%ld %ld %ld\n", i0, i1, i2);
+  printf("%ld %ld %ld\n", i3, i4, i5);
+  //printf("%ld %ld %ld %ld\n",
+  //(long)d0, (long)d1, (long)d2, (long)d3);
+  printf("%lf %lf %lf %lf\n", d0, d1, d2, d3);
+  printf("%lf %lf %lf %lf\n", d4, d5, d6, d7);
+  printf("%lf %lf\n", d8, d9);
+  printf("%ld %ld\n", i6, i7);
+
+  //return 0x1234;
+  return 1.23456;
+}
+int test_testfd(long i0, long i1, long i2,
+		long i3, long i4, long i5,
+		double d0, float d1, double d2, float d3,
+		float d4, double d5, double d6, float d7,
+		float d8, double d9, double d10, float d11,
+		long i6, long i7) {
+  printf("%ld %ld %ld\n", i0, i1, i2);
+  printf("%ld %ld %ld\n", i3, i4, i5);
+  //printf("%ld %ld %ld %ld\n",
+  //(long)d0, (long)d1, (long)d2, (long)d3);
+  printf("%lf %f %lf %f\n", d0, d1, d2, d3);
+  printf("%f %lf %lf %f\n", d4, d5, d6, d7);
+  printf("%f %lf %lf %f\n", d8, d9, d10, d11);
+  printf("%ld %ld\n", i6, i7);
+
+  //return 0x1234;
+  return 123456;
+}
+static long (*g)();
+static double (*gf) (long i0, long i1, long i2,
+                     long i3, long i4, long i5,
+                     double d0, double d1, double d2, double d3,
+                     double d4, double d5, double d6, double d7,
+                     double d8, double d9,
+                     long i6, long i7);
+
+long set_ifunc(long (*f) ())
+{
+  g = f;
+  printf("set_ifunc, g = %lX\n", g);
+}
+
+long set_ffunc(double (*f) ())
+{
+  gf = (double (*) (long i0, long i1, long i2,
+                    long i3, long i4, long i5,
+                    double d0, double d1, double d2, double d3,
+                    double d4, double d5, double d6, double d7,
+                    double d8, double d9,
+                    long i6, long i7))f;
+  printf("set_ffunc, gf = %lX\n", gf);
+}
+
+long call_ifunc() {
+  printf("call_ifunc, g = %lX\n", g);
+  return g();
+}
+
+double call_ffunc() {
+  printf("call_ffunc, gf = %lX\n", gf);
+  return gf(100,101,102,
+            103,104,105,
+            1000.0, 1010.0, 1020.0, 1030.0,
+            1040.0, 1050.0, 1060.0, 1070.0,
+            2080.0, 2090.0,
+            206, 207);
+}
+
+long get_size_of_pointer() {
+  return (sizeof(void *));
+}
+
+long get_size_of_float32() {
+  return (sizeof(float));
+}
+
+long get_size_of_double() {
+  return (sizeof(double));
+}
+
+long get_size_of_long() {
+  return (sizeof(long));
+}
+
+long get_size_of_int() {
+  return (sizeof(int));
+}
+
+long get_size_of_eusinteger() {
+  return (sizeof(eusinteger_t));
+}
+
+long get_size_of_eusfloat() {
+  return (sizeof(eusfloat_t));
+}
+
+};