kdevplatform - 1.3.60git-****. Запомните эти цифры, впоследствии мы вернемся к ним. После установки среды нам нужно скачать плагины kdev-xdebug и executebrowser. делаем это командами

git clone git://anongit.kde.org/scratch/nsams/kdev-xdebug.git ~/kdev-xdebug

и

git clone git://anongit.kde.org/scratch/nsams/kdev-executebrowser.git ~/kdev-executebrowser

затем собираем плагин kdev-executebrowser

cd ~/kdev-executebrowser

mkdir build && cd build

cmake -DCMAKE_INSTALL_PREFIX=/usr ..

make -j2

sudo make install

kbuildsycoca4

и переходим к плагину kdev-xdebug

если попытаться собрать его прямо сразу, то мы получитм ошибку что путь EXECUTESCRIPT_INCLUSE_DIR не найден. Поэтому нам придется немного подправить файл CMakeLists.txt. Сразу оговорюсь что cmake я знаю плохо, и вполне возможно что есть другой метод исправить ошибку, но я делал так. Удаляем из него строку

find_path( EXECUTESCRIPT_INCLUDE_DIR iexecutescriptplugin.h
PATH_SUFFIXES kdevexecutescript )

а строку

include_directories(
    ${KDEVPLATFORM_INCLUDE_DIR}
    ${KDE4_INCLUDES}
    ${CMAKE_CURRENT_BINARY_DIR}
    ${CMAKE_CURRENT_SOURCE_DIR}
    ${EXECUTEBROWSER_INCLUDE_DIR}
    ${EXECUTESCRIPT_INCLUDE_DIR}
)

заменяем на

include_directories(
    ${KDEVPLATFORM_INCLUDE_DIR}
    ${KDE4_INCLUDES}
    ${CMAKE_CURRENT_BINARY_DIR}
    ${CMAKE_CURRENT_SOURCE_DIR}
    ${EXECUTEBROWSER_INCLUDE_DIR}
    /usr/include/kdevplatform/executescript
)

В моей OpenSuSE путь до iexecutescriptplugin.h именно такой, в вашей системе этот путь может отличаться.

После того как мы подправили путь можно перейти к сборке.

cd ~/kdev-xdebug

mkdir build && cd build

cmake -DCMAKE_INSTALL_PREFIX=/usr ..

make -j2

sudo make install

kbuildsycoca4

Теперь пришло время вернуться к версиям программ. Если у вас стоит релизная версия, то вам не придется выполнять следующие действия.

перейти в каталог /usr/share/kde4/services/

cd /usr/share/kde4/services/

и подправить там 2 файла kdevexecutebrowser.desktop и kdevxdebug.desktop.

Заменить

X-KDevelop-Version=13

на

X-KDevelop-Version=14.

После этого можно проверять работоспособность свежеустановленных плагинов и переходить к их настройке. Процесс настройки хорошо описан в блоге одного из разработчиков среды - Niko Sams: http://nikosams.blogspot.com/2010/02/kdevelop-xdebug-php-debugger.html На этом все. Успешной разработки сайтов. :)

Программа выведет: Cow says: moo Cow can bark

Ну, наверное, вам уже стало понятно почему корова может гавкать?! Тут всё довольно просто и прозрачно. А вот диагностировать подобную проблему в сложной системе с кучей используемых модулей и фреймворков довольно сложно. На это можно убить даже не несколько часов, а несколько дней. Так что, рекомендую локализовывать $@ в DESTROY методе ваших классов.

По этой же причине значению, которое вернул eval, вообще нельзя доверять (ты же не контролируешь код всех модулей, которые используешь), и стоит использовать Try::Tiny или что-то подобное.

(с) этот текст - найденная на просторах интернета копипаста

Первым делом нам нужно установить onscripter-en. Это кроссплатформенный клон nscripter-а. Скачиваем последнюю версию onscripter-а из свн командой

svn co  http://svn.haeleth.net/onscr/trunk/

Качать исходники в архиве не советую, ибо они не собираются с помощью gcc выше версии 4.3.х. Следующим шагом нужно удовлетворить зависимости командой

sudo zypper install smpeg sdl sdl_mixer sdl_ttf sdl_image

libogg, libbzip2 и freetype уже установленны в вашей системе.

Теперь приступим непосредственно к сборке

cd trunk

./configure

Если эта команда выдала вам

Writing Makefile... done Now run "make" to build ONScripter-En.

то переходим к сборке, в противном случае удовлетворяем запрашиваемые зависимости. Дальше пробуем собрать программу.

make

Команда выдаст вам ошибку конвертирования const char в char в файле ONScripterLabel_command.cpp в строке 1139. Открываем этот файл с помощью любимого текстового редактора. Для кого-то это vim, для кого-то emacs, кто-то любит редакторы с gui, а я открою этот файл с помощью nano.

nano -w ONScripterLabel_command.cpp

переходим на 1139 строку и перед char добавляем const, сохраняем файл и выходим. И заново пытаемся выполнить команду make. Теперь сборка должна пройти успешно. Далее ставим onscripter командой

sudo make install

и для проверки пытаемся запустить его командой

onscripter-en

Если запускается, то все прошло гладко и мы переходим к следующей части, установке непосредственно игры. У вас должен быть образ игры When They Cry 4.iso и патч-англификатор [WH] Umineko Chiru English.zip Монтируем образ в вашу систему с помощью CDEmu, Acetone2iso или команды монтирования mount указав в качестве параметров -t iso9660 и -o loop. Я выбрал последний вариант.

sudo mkdir /mnt/umineko && sudo mount -t iso9660 -o loop /path/to/When\ They\ Cry\ 4.iso /mnt/umineko

где /path/to это путь к образу диска. Теперь с помощью wine(либо windows, если таковая есть у вас в наличии) ставим игру. Во многих мануалах рекомендуют скопировать содержимое диска в созданный заранее каталог, но я не советую этого делать, т.к. на диске все файлы в верхнем регистре, а для игры нужны файлы в разных регистрах. Исталлятор сам подправит регистр файлов. А т.к. он только для Windows, то приходится прибегать к таким манипуляциям. итак приступим к установке.

cd /mnt/umineko && LC_ALL=ja_JA.UTF8 wine launcher.exe

Для установки запускаем wine с японской локалью и следуем инструкциям инсталлятора. Укажите путь к игре. Я указал ~/Umineko6. Теперь переходим к патчу. Распаковываем содержимое архива в каталог с игрой и переходим в полученный каталог.

cd [WH]\ Umineko\ Chiru\ English

и ставим патч. либо с помощью команды

LC_ALL=ja_JA.UTF8 wine Umineko\ no\ Naku\ Koro\ ni\ EP6.exe

либо просто запустив onscripter в данном каталоге

onscripter-en

В зависимости от того, каким способом вы ставите патч, и выбирайте в предложенном диалоге операционную систему. Все после установки патча можно начинать игру. команда для запуска все та-же

onscripter-en

в каталоге с игрой. Для удобства можно написать небольшой скрипт запуска:

Сохраним его как umineko.sh в каталоге Umineko6. Теперь можно запускать игру с помощью одной команды, или повесить псевдоним на выполнение этой команы, либо создать симлинк.

А теперь скриншоты:

Приятной иг^WПриятного прочтения.

Правда этот пароль с логином поменять можно, только перепрошив целиком ОС роутера. В web-интерфейсе же логин и пароль admin:admin можно поменять весьма просто.

Далее запускаем web-сервер командой

Линукс в этом роутере минимальный - нет табов, башевского хистори, простейших редакторов и прочее. И вообще интернет совсем не пестрит упоминанием даже о параметрах команд находящихся там программ. Но там есть iptables.

После этого можно настраивать собственно сам роутер. Соединение держит он относительно стабильно, но имеются симптомы, аналогичные описанным в статье SkyLinux[1] от Stanson'a, посвященной более ранней модификации этого роутера CNU550. Иногда может пропадать соединение, видимо в CNU680pro так-же отваливается pppd как и в CNU550. С своей статье Stanson пересобрал прошивку и вообще очень детально разобрал как и что. В принципе, на CNU680 можно поставить и собственной сборки дистрибутив(но это только в том случае, если детально знать Unix, иначе можно угробить роутер):

Это было лирическое отступление про возможность прошивать проприетарные девайсы опенсурсными програмным обеспечением.

Далее перейдем собственно к тонкой настройке. Почему - не знаю, но у меня так и не вышло настроить проброс ssh из внутренней машины во внешний доступ используя вкладку NAT в web-интерфейсе роутера.

Есть локальная сеть за эти роутером, в которой есть сервера, предоставляющие услуги внешнему миру(ssh,smtp и тому подобное). Нужно пробросить эти службы во внешний инет. Как это можно реализовать на примере CNU680pro средствами iptables, не используя заводские средства настройки и официальные описания, поставляющиеся вместе с роутером. Скайлинк дает услугу "постоянный ip-адрес" роутеру на интерфейсе ppp0:

в данном случае ppp0 - 23.127.34.24 - реальный адрес, выданный скайлинком, от имени которого юзер ходит в интернете и оставляет свои следы во всяческих логах и тому подобное. Предположим нужно запросить по адресу 23.127.34.24 веб-сервер, находящийсяв локальной сети на какойто из машин. Для этого надо провести следующие махинации с iptables:

и после этого ваш локальный сервер  http://192.168.0.71/ досупен через веб по адресу  http://23.127.34.24/

profit!

Предположим нужно пробросить доступ по ssh напрямую из внешнего мира через роутер, чтобы пользователи могли логиниться по ssh на внутренние машины локальной сети. Для этого необходимо ввести следующие команды:

и после этого на внутреннюю машину можно зайти по ssh вот так вот:

profit!

Более подробно настройки маршрутизации именно для этого случая разъяснены в этой статье [2]

Итого, чтобы пробросить веб сервер или ssh доступ нужно ввести всего три команды, не изменяя никак ни прошивку, ни чего остального. Чтобы сбросить настройки -надо сказать iptables -F

Правда есть одно но, файловая система в роутере read-only и чуть позднее надо будет разобраться как писать напрямую во флеш память эти команды. Так как родной web интерфейс у меня отчего-то не заработал.

Все остальные возможности этого модема не рассматривались вида DMZ хост и прочее.

За сим всё,

vilfred from LOR The Next Generation

[1]  http://89.208.116.11/ftp/pub/CNU550pro/index.html)

[2]  http://www.it-simple.ru/?p=2250

Извлечение пикселей из картинки при помощи ImageMagick и показ картинки в виждете gtk2-perl.

Gtk2-perl позволяет получить доступ к пикселям при помощи функции get_pixels, которая возвращает 16-ти битную строку пикселей длины w*h*3 для RGB изображения. Единственное неудобство в том, что функции для работы с изображениями Gtk2-perl понимают несколько форматов картинок, а ImageMagick позволяет работать с более чем 90 форматами изображений. Функция Gtk2::Gdk::Pixbuf->new_from_data может из строки в 16-тиричном формате выстраивать картинку. Значит для этого надо открыть картинку, прочитать пикселы и затем сформировать и передать в perl соответствующую строку при помощи библиотеки ImageMagick.

Для начала необходимо написать программу на c, после чего уже писать соответствующий XS-модуль. Программа выглядит как-то так:

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
// подключить API ImageMagick

#include <magick/api.h>

int main(int argc,char **argv) {

//Воспользоваться внутренними типами IM
  ExceptionInfo
      exception;
  Image
      *image;
  ImageInfo

      *image_info;
  PixelPacket 
      *pixels;
  ViewInfo 
      *vinfo;

  int i,j,w,h;
// Инициализировать структуру image info и прочитать изображение
  InitializeMagick(*argv);

// установить обработку событий типа ReadError и т.п.
  GetExceptionInfo(&exception);
// сделлать копию структуры image info
  image_info=CloneImageInfo((ImageInfo *) NULL);

// скопировать в структуру имя файла
  (void)strcpy(image_info->filename,"image.gif");
// прочитать картинку, попутно отработав эксепшены &exception 
  image=ReadImage(image_info,&exception);

  if (image == (Image *) NULL) {

// в случае ошибки
    fprintf(stderr, "readFileMagick: %s: %s\n",
    exception.reason,exception.description);

// MagickError(exception.severity,exception.reason,exception.description);

    return -1;
  }
// открыть открыть просмотр кеша пикселей
  vinfo = OpenCacheView(image);

  pixels = GetCacheView(vinfo, 0,0,image->columns,image->rows);

  if(!pixels) {
    fprintf(stderr, "readFileMagick: ошибка чтения кеша пикселей.\n"); 
    return(-1);

  }
  h = image->columns; //ширина по горизонтали (число столбцов картинки)

  w = image->rows;    //высота по вертикали   (число строк картинки)
// вывести значения пикселов по трем каналам
  for (i = 0; i <= w-1; i++) {

    for (j = 0; j <= h-1; j++) {

      printf("%d ",(int)255*pixels[j+h*i].blue/65535);

      printf("%d ",(int)255*pixels[j+h*i].green/65535);

      printf("%d\n",(int)255*pixels[j+h*i].red/65535);

    }
  }
// закрыть и уничтожить все
  CloseCacheView(vinfo);
  DestroyImageInfo(image_info);

  DestroyImage(image);
  return(0);
}

    setenv LD_LIBRARY_PATH /usr/local/lib
    gcc `Magick-config --cflags --cppflags` pixels.c `Magick-config --ldflags --libs`

SV*
pixs (SV * fn, int k)
  INIT:
       unsigned char * lfn;
       STRLEN l;  /* STRLEN is a certain type of int */
       /* ... */
  CODE:
       lfn = SvPV (fn, l); 

В целом, на XS вышеприведенная программа выглядит таким образом:

#include "EXTERN.h"

#include "perl.h"
#include "XSUB.h"
// string.h нужен для функции strcpy
#include <string.h>
// на всякий случай, для матобработкию. если таковая будет, чтобы не писать при компиляции -lm
#include <math.h>
// для ImageMagick
#include <magick/api.h>

#include "ppport.h"
// определить название модуля, необходимого далее для инициализации ImageMagick
#define PackageName "Pixels"
// название модуля и пакетов
MODULE = Pixels		PACKAGE = Pixels		

// отключить прототипы, о(see perldoc perlxs)
PROTOTYPES: DISABLE
// Инициализировать ImageMagick (see perldoc perlxs)
BOOT:
  InitializeMagick(PackageName);

// скаляр (see perldoc perlguts), функции передаются на вход два параметра,
// имя файла и что-то еще. Тип передаваемых параметров определяется только десь
SV*
pixs(SV *fn, int k)

  INIT:
//Воспользоваться внутренними типами IM
        ExceptionInfo
          exception;
        Image
          *image;

        ImageInfo
          *info,
          *image_info;
        PixelPacket
          *pixels;

        ViewInfo
          *vinfo;
// определить двумерные массивы для хранения пикселов
        int **sm,**sym,i,j;

// переменные для имени  файла и возвращаемого значения пикселов
        unsigned char * lfn, * number;
// определение STRLEN находится в файле config.h (perldoc perlguts)
        STRLEN t; 

// определение типа данных для хеша и для массива *только для XSUBs* (perldoc perlguts)
        HV* hash = newHV(); 
        AV* array = newAV();

  CODE:
// присваивание имени, впрочем, это описано в perldoc perlguts
        lfn = SvPV (fn,t);

// установить обработку событий типа ReadError и т.п.
        GetExceptionInfo(&exception);
// сделлать копию структуры image info
        image_info=CloneImageInfo((ImageInfo *) NULL);

// скопировать в структуру имя файла
        strcpy(image_info->filename, lfn);
// прочитать картинку, попутно отработав эксепшены &exception 
        image=ReadImage(image_info,&exception);

// в случае ошибки
        if (image == (Image *) NULL) {     
          fprintf(stderr, "readFileMagick: %s: %s\n",
          exception.reason,exception.description);

        }
// открыть просмотр кеша пикселей
        vinfo = OpenCacheView(image);
        pixels = GetCacheView(vinfo, 0,0,image->columns,image->rows);

        int h=image->columns; //ширина по горизонтали (число столбцов)
        int w=image->rows;    //высота по вертикали   (число строк)

// занести данные о высоте и ширине картинки в массив, который будет
// сопоставлен с ключом хеша arr
        av_push(array, newSVnv(h));
        av_push(array, newSVnv(w));

        int small=w*h*3;
// выделение памяти для строки возвращаемых пикселов, длина строки должна
// быть равна определенной выше small.
        number=malloc(small*sizeof(*number));

// отработка ошибки, если возникнут проблемы с pixels
        if(!pixels) {
          fprintf(stderr, "readFileMagick: unable to get pixel cache.\n");

        }
// выделение памяти для двумерных массивово
        sm = malloc(w * sizeof(*sm));

        for (i=0; i<w; ++i){

          sm[i] = malloc ( h * sizeof(**sm));

        }
        sym = malloc(w * sizeof(*sym));

        for (i=0; i<w; ++i){

          sym[i] = malloc ( h * sizeof(**sym));

        }
// заполнение массива пикселей для дальнейшей обработки
        for (i=0; i<=w-1; i++) {

          for (j=0; j<=h-1; j++) {

            sm[i][j]=(int)255*pixels[j+h*i].blue/65535;

            sym[i][j]=sm[i][j];

          }
        }
// математическая обработка пикселей, алгоритм подробно описан здесь и  здесь немного
        for (i=k; i<=w-1-k; i++){

          for (j=k; j<=h-1-k; j++){

            int summ=0;
            int ii,jj;
            for (ii=-k; ii<=k; ii++){

              for (jj=-k; jj<=k; jj++) summ+=sm[i+ii][j+jj];

            }
            sym[i][j]=(int)summ/((2*k+1)*(2*k+1));

          }
        }
        int count=0;
// заполнение массива пикселей, которые будут возвращаться в perl-программу по ключу хеша uns
        for (i=0; i<=w-1; i++){

          for (j=0; j<=h-1; j++){

            number[count]=(unsigned char)sym[i][j];

            count++;
            number[count]=(unsigned char)sym[i][j];

            count++;
            number[count]=(unsigned char)sym[i][j];

            count++;
          }
//освободить память из под массивов 
          free (sm[i]);

          free (sym[i]);
        }
        free(sm);

        free(sym);
// закрыть и уничтожить все
        CloseCacheView(vinfo);
        DestroyImageInfo(image_info);

        DestroyImage(image);
// добавить в значение хеша массив
        hv_store(hash, "arr",3,(SV*)array, 0);

// добавить в значение хеша строку unsigned char, которая ассоциируется с ключем uns
// четвертым параметром идет выделение памяти для переменной number
        hv_store(hash, "uns",3, newSVpv ((unsigned char*) number, small*sizeof(number[0])), 0);

        free(number);
      RETVAL = newRV_noinc((SV*) hash);

// прагма (?) RETVAL возвращает ссылку на хеш (perldoc perlguts).
  OUTPUT:
      RETVAL

[vilfred@mobile100 xxx]$ h2xs -A -n Pixels
Defaulting to backwards compatibility with perl 5.8.3
If you intend this module to be compatible with earlier perl versions,
please
specify a minimum perl version with the -b option.

Writing Pixels/ppport.h
Writing Pixels/lib/Pixels.pm
Writing Pixels/Pixels.xs
Writing Pixels/Makefile.PL
Writing Pixels/README
Writing Pixels/t/Pixels.t
Writing Pixels/Changes
Writing Pixels/MANIFEST
[vilfred@mobile100 xxx]$

    LIBS              => ['-L/usr/lib -lMagick -L/usr/X11R6/lib -lfreetype -lz \
-L/usr/lib -ltiff -lfreetype -ljpeg -lXext -lSM -lICE -lX11 -lXt \
-lbz2 -lz -lpthread -lm -lpthread'], # e.g., '-lm'

После этого вносятся соответствующие правки в текст Pixels.xs и далее идут команды perl Makefile.PL, make и make test. Т.к. модуль Pixels.pm не установлен (не было команды make install), то необходимо вновь написанный модуль каким-то образом вызвать в perl-скрипте. Nick Ing-Simmons написал библиотеку blib (perldoc blib), которая находит необходимый модуль.

Соответствующий perl-код такой,(с подсвеченным синтаксисом html). Вобщем, что то в этом роде...

samolet | Предыдущая | Извлечение пикселей | to be continued...

]]> https://rulinux.net/message.php?newsid=34857&page=1 https://rulinux.net/message.php?newsid=34857&page=1 Thu, 04 Mar 2010 16:39:00 +0300 samolet | xs | pixels | подсчет объектов Вызов функции, написанной на языке С из программы на языке perl

Допустим, нужно что-то быстро вычислить, а скорости perl не хватает. Для этого в perl существует специальный интерфейс, позволяющий проводить вычисления на языке C. Соответствующие описания находятся в мауналах например perldoc perlxstut или perldoc perlguts. Ниже по тексту несколько примеров как передавать в модули числа и последовательности байтов и получать на выходе различные структуры данных.

Скаляр

Задача: Нужно вычислить сумму чисел до числа передаваемомго функции, т.е. если функции передать число 5, то она должна вернуть число 1+2+3+4+5=15.

Командой h2xs -A -n Perebor создается пакет Perebor с одноименной директорией, в которой находится файл Perebor.xs, в котороый пишется нижеследующий код (этот пример взят с немецкого сайта):

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

MODULE = Perebor                PACKAGE = Perebor

int
sum_numbers(int x)

        CODE:
         {
           int i, sum;
           for(i=1,sum=0;i<=x;i++) {

             sum+=i;
           }
        RETVAL=sum;
         }

        OUTPUT:
        RETVAL

#/usr/bin/perl -w

BEGIN
  {

    push @INC, "./blib/arch", "./blib/lib";
  }

use Perebor;

$x=Perebor::sum_numbers(5);


print "$x\n";

Массив

Для того, чтобы функция возыращала массив или ссылку на массив, надо сделать так:

#include "EXTERN.h"
#include "perl.h"

#include "XSUB.h"

#include "ppport.h"

MODULE = Perebor                PACKAGE = Perebor

SV*
getnum(int l)
  INIT:
        AV* array;

  CODE:
        int n = 1;
        array = newAV();

        while (n < l) {
          av_push(array, newSVnv(n));

          n++;
        }
      RETVAL = newRV_noinc((SV*)array);

  OUTPUT:
      RETVAL

#/usr/bin/perl -w

BEGIN
  {

    push @INC, "./blib/arch", "./blib/lib";
  }
     
use Perebor;
     
$x=Perebor::massiv(11);
     

print join " " => @{$x},"\n";

#include "EXTERN.h"

#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

MODULE = Perebor                PACKAGE = Perebor


SV*
massiv(int l)
  INIT:
        AV* array;

  CODE:
        int n = 1;
        array = newAV();

        while (n < l) {
          av_push(array, newSVnv(n));

          n++;
        }
      RETVAL = newRV_noinc((SV*)array);

  OUTPUT:
      RETVAL

SV*
massiv_square(int l)

  INIT:
        AV* array;
  CODE:
        int n = 1;

        array = newAV();
        while (n < l) {

          av_push(array, newSVnv(n*n));
          n++;

        }
      RETVAL = newRV_noinc((SV*)array);

  OUTPUT:
      RETVAL

#/usr/bin/perl -w
BEGIN
  {

    push @INC, "./blib/arch", "./blib/lib";
  }

use Perebor;

$x=Perebor::massiv(11);


print join " " => @{$x},"\n";

$x=Perebor::massiv_square(11);


print join " " => @{$x},"\n";

Если есть необходимость передать в программу строку чисел, упакованных функцией pack C*, 123 (т.е. числа в 16-тиричном виде), то возникает проблема следующего толка: при обработке символа '\x00' (ноль в 16-тиричном виде), сишнная функция завершит работу, т.к. ноль это конец записи. Для того, чтобы избежать этой проблемы, нужно помимо строки unsigned char передать её длинну, вычисленную функцией perl length:

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

MODULE = Perebor            PACKAGE = Perebor

SV*
getnum(unsigned char *number, int l)

  INIT:
        AV* array;
        int sum;

        double y;
  CODE:
        int n = 0;

        array = newAV();
        while (n < l) {

          sum=number[n++];
          av_push(array, newSVnv(sum*sum));

        }
      RETVAL = newRV_noinc((SV*)array);

  OUTPUT:
      RETVAL

Perl код, вызывающий функцию getnum, выглядит так:

#/usr/bin/perl -w
BEGIN
{

push @INC, "./blib/arch", "./blib/lib";

}

use Perebor;

$txt="\x00\x01\x02\x03\x04\xdd\xcd\xfe";

$x=Perebor::getnum($txt,length $txt);
print join " " => @{$x},"\n";

Предположим, теперь нужно построить и вернуть в си-программу хеш

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

MODULE = Hval            PACKAGE = Hval

SV *

getnum(int k)

  INIT:
  CODE:

        HV* hash = newHV();
        hv_store(hash, "aaa",3, newSViv(k), 1);

        hv_store(hash, "bbb",3, newSVpv("xxx",0), 0);

      RETVAL = newRV( (SV *) hash ); /* bepmsr| qq{kjs m u}x */

  OUTPUT:
  RETVAL

#!/usr/bin/perl -w

use strict;
use warnings;

use ExtUtils::testlib;
use Hval;
use Data::Dumper;

my $hash_ref = Hval::getnum(10);

foreach my $key (keys %$hash_ref) {
  print "$key => $hash_ref->{$key}\n";

}

$hash_ref = Hval::getnum(2);
foreach my $key (keys %$hash_ref) {

  print "$key => $hash_ref->{$key}\n";
}

$hash_ref = Hval::getnum(7);
foreach my $key (keys %$hash_ref) {

  print "$key => $hash_ref->{$key}\n";
}

File rr.pl not changed so no update needed.
[vilfred@mobile100 Hval]$ perl rr.pl
bbb => xxx
aaa => 10
bbb => xxx
aaa => 2
bbb => xxx
aaa => 7
[vilfred@mobile100 Hval]$ 

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

MODULE = Hval            PACKAGE = Hval

SV *
getnum(char *data,int l,int k)

   INIT:
   CODE:
      
     HV* hash = newHV();

     hv_store(hash, "unsigned_char",3, newSVpv ((char*) data, l*sizeof(data[0])), 0);

                
   RETVAL = newRV( (SV *) hash ); 
                   
   OUTPUT:

   RETVAL

#!/usr/bin/perl -w

use strict;
use warnings;
use ExtUtils::testlib;

use Hval;

use Data::Dumper;

my $txt=pack "C",255;

my $hash_ref = Hval::getnum($txt,length $txt,10);


foreach my $key (keys %$hash_ref) {
#  print "$key => $hash_ref->{$key}\n\n";
  print "$key => ".unpack "C",$hash_ref->{$key};
  print "\n";

}

[vilfred@mobile100 Hval]$ perl rr.pl
uns => 255
[vilfred@mobile100 Hval]$

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

MODULE = Hval            PACKAGE = Hval

SV *
getnum(char *data,int l,int k)

  INIT:

  CODE:
    
        HV* hash = newHV();

        AV* array = newAV();
        av_push(array, newSVnv(34)); 
        av_push(array, newSVnv(77)); 
        hv_store(hash, "unsigned_char",3, newSVpv ((char*) data, l*sizeof(data[0])), 0);

        hv_store(hash, "array",3,(SV*)array, 0);

      RETVAL = newRV( (SV *) hash ); 
    
  OUTPUT:

      RETVAL

#!/usr/bin/perl -w

use strict;
use warnings;
use ExtUtils::testlib;


use Hval;
use Data::Dumper;

my $txt=pack "C",255;
my $hash_ref = Hval::getnum($txt,length $txt,10);


foreach my $key (keys %$hash_ref) {
  print "$key => ";
  print join " | "=> @{$hash_ref->{$key}} if $key ne 'uns';
  print "\n\n";
  print "$key => ".unpack "C",$hash_ref->{$key} if $key eq 'uns';
  print "\n";

}
     

Обработка изображений

В gtk2-perl есть функция, позволяющая получать яркость пикселей в виде строки '\xff\x00...'. Т.к. зачастую при обработке изображений важна скорость работы программы, то по скорости get_pixels(), в принципе, может использоваться для обработки одиночных рисунков:

#!/usr/bin/perl

use strict;
use warnings;
use Glib qw(FALSE TRUE);

use Gtk2 -init;

use ExtUtils::testlib;
use HalfWork;

my(@criteria,@a,@res,$pix,$button,@m,$img,$pixbuf,$pixels,$w,$h,$c);



sub render_image{
  my ($txt1,$min, $max); $min=10; $max=440;
  $img=$ARGV[0] if $ARGV[0];
  $img=$_[0] if $_[0];
  $pixbuf = Gtk2::Gdk::Pixbuf->new_from_file ($img);
  $pixels = $pixbuf->get_pixels();
  $h = $pixbuf->get_height; $w = $pixbuf->get_width;

}
            
while (<$ARGV[0]/*.*>){
  print $c++," ";
  &render_image($_) if m!\.jpg$!;

}

[vilfred@mobile100 HalfWork]$ time perl fast.pl ../datchik/files/
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78
79 80 81 82 83 84 85
real    0m2.230s
user    0m1.893s
sys     0m0.320s
[vilfred@mobile100 HalfWork]$ perl -e 'print 85/2.2,"\n"'
38.6363636363636
[vilfred@mobile100 HalfWork]$

Чтобы работать не с пикселями а с картинкой, т.е. сразу видеть результаты работы алгоритма, пишется, например, такой код:

#!/usr/bin/perl

use strict;
use warnings;

use Glib qw(FALSE TRUE);

use Gtk2 -init;
use ExtUtils::testlib;
use HalfWork;


my(@criteria,@a,@res,$pix,$button,@m,$img,$pixbuf,$pixels,$w,$h,$c);


my $window  = Gtk2::Window->new ( "toplevel" );
my $hbox    = Gtk2::HBox->new (1,1);

my $vbox    = Gtk2::VBox->new (0,1);
my $image   = Gtk2::Image->new;

my $e;

&images();

sub render_image{
  my ($txt1,$min, $max); $min=10; $max=440;


#  die "Usage: $0 imagefile\n" unless @ARGV;
  $img=$ARGV[0] if $ARGV[0];
  $img=$_[0] if $_[0];
  $pixbuf = Gtk2::Gdk::Pixbuf->new_from_file ($img);
  $pixels = $pixbuf->get_pixels();
  $h = $pixbuf->get_height; $w = $pixbuf->get_width;
  my $criteria;

  $pixbuf = Gtk2::Gdk::Pixbuf->new_from_data
                        ($pixels,  # packed image data in a scalar
                           'rgb',  # only 24- or 32-bit RGB are supported
                               0,  # no alpha, data is 24-bit
                               8,  # only 8 bits per sample are supported
                              $w,  # in pixels
                              $h,  # in pixels
                            $w*3); # number of *bytes* in each row
                            
  $image->set_from_pixbuf ($pixbuf);
  $window->set_title("imaging $img");
  $img=''; $#res=-1;


}

$window->add($hbox);
$hbox->add($vbox);

$vbox->add($image);
$button = Gtk2::Button->new("Repaint...");
$button->signal_connect("clicked", \&signal);

$vbox->pack_start($button, 1, 1, 5);
$window->signal_connect( "destroy" , sub { Gtk2->main_quit ; } ) ;

$window->signal_connect (delete_event => sub {Gtk2->main_quit;});
$window->show_all();


eval {
Gtk2->main; };

my $cry;
open F,">$ARGV[0]/criteria.txt" or die "cant open: $!";


foreach (@criteria){ $cry+=$_ }
print F $cry/$#criteria," | ", print join " " => @criteria,"\n";


close F;
print "\nуТЕДОЕЕ ЪОБЮЕОЙЕ ЮЙУМБ НБЛУЙНХНПЧ: ",$cry/$#criteria,"\n";
exit 0;


sub signal {
  &render_image($m[$#m]) if $m[$#m] and -f $m[$#m];
  pop @m;
  Glib::Timeout->add (100,
  sub { $button->clicked; 0});

}

sub images{
  while (<$ARGV[0]/*.*>){

    $m[$c++]=$_ if m!\.jpg$!;
  }
  reverse @m;


}

[vilfred@mobile100 HalfWork]$ time perl wheather.pl ../datchik/files/

real    0m12.635s
user    0m2.565s
sys     0m0.453s
[vilfred@mobile100 HalfWork]$ perl -e 'print 85/11,"\n"'
7.72727272727273
[vilfred@mobile100 HalfWork]$

samolet | xs | next]]> https://rulinux.net/message.php?newsid=34868&page=1 https://rulinux.net/message.php?newsid=34868&page=1 Sat, 13 Feb 2010 21:20:00 +0300 https://rulinux.net/message.php?newsid=34862&page=1 https://rulinux.net/message.php?newsid=34862&page=1 Mon, 16 Nov 2009 08:23:00 +0300 Здравствуйте и добро пожаловать в туториал по экспорту анимированных md3/md5mesh из blender.
Мы что вы полагем умеете работать в блендер, и имеете готовую анимированную модель для экспорта в Sauerbraten. Если это не так, то вы можете взять модель сталкера по рекомендации LGT 2 и научится делать скелетную анимацию по урокам Андрея Прахова и Александра Супрунова опубликованным в выпусках LinuxFormat 87-91

Итак приступим. Откроем blender и загрузим в него имеющуюся у вас модель.

Выберти арматуру и нажмите [Tab] для перехода в режим редактирования. Выберите край кости на конце tag_torso и переместите курсор на выделенную часть. Выставите родителем тега кость являющуюся стыковой между ногами и туловищем[ctrl-p]. Повторите то-же самое для tag_head. Выставите родителем тега соответствующую кость. Переместите курсор в центр [shift-c]. Установите точку опоры в центр на место курсора [.]. Это позволит повернуть все вокруг центра 3d пространства. Теперь выделите все [a] и поверните по оси z на -90°([r] [z] [90] [-]).
Приступим к tag_weapon. Выравнивание данного тега довольно сложная задача. Но сейчас мы научимся трюку выравнивания. Перейдите к кадру анимации на котором персонаж стреляет и его рука с оружием направлена по оси x. Перейдите в pose mode. Выставите курсор на кончик кости где вы хотите добавить тег. Перейдите к виду сбоку [Num 3] и добавьте пустой tag_weapon. Родитель кости должен быть пустым. Выберите последний кадр анимации. Выберите ноги и tag_torso. И с помощью элемента меню File → Export → Quake3 (.md3)... проэкспортируйте выделенное в md3 файл legs.md3(файл назовите на ваше усмотрение)..
Перейдем к туловищу. Перейдите в object mode. Переместите курсор в центр [shift-c]. Выберите все [a] и выровните tag_torso по центру на место курсора. Убедитесь что точка опоры выровнена по центру[.]. Это позволит вращать арматуру вокруг курсора. Выберите все, кроме tag_torso. Поверните по оси z на 90°([r] [z] [90]), а затем по оси x на 90°([r] [x] [90]). Выберите меш тела и все теги и проэкспортируйте в файл torso.md3(файл назовите на ваше усмотрение). Теперь проэкспортируем голову. Небольшое отличие экспорта меша головы от тела, заключается в том, что вам нужен лишь один кадр. Об анимации головы позаботится md3 тела. Нажмите F10 для перехода на панель Scene, затем откройте вкладку Anim и учбедитесь что Sta: выставлен в 1 и End: выставлен в 1.

Выберите меш головы, tag_head, и экспортируйте в head.md3 или наподобие. Теперь создайте файл md3.cfg:
md3load legs.md3 // модель ног
//Здесь указываем скин, масштаб, карты нормалей и пр. md3anim dying 0 30 20
//Далее перечисляем все необходимые анимации
md3load torso.md3 // модель туловища
//Здесь указываем скин, маски, карты нормалей и пр.
md3anim dying 0 30 20 //Так-же как и после загрузки ног перечисляем все необходимые анимации
md3load head.md3 // модель головы
//Здесь указываем скин, маски, карты нормалей и пр.
//При загрузке головы анимации указывать не нужно
md3link 0 1 tag_torso //Моделям загруженным с помощью md3load присваивается уникальный ID
md3link 1 2 tag_head //команда md3link обьединяет модели с указанным ID по тегу.
//Далее указываем масштаб, specular и прочие не обязательные параметры

Полностью параметры конфигурации формата md3 в Sauerbraten вы можете найти тут.
Как вариант можно экспортировать модель в формат md5mesh. Для экспорта используйте данный плагин для Blender.

В этом формате анимации хранятся отдельно от мешей. Название файла меша звучит как имя.md5mesh, а файла анимации как имя.md5anim. Так-же для каждой анимации используется отдельный файл, например idle.md5anim или run.md5anim. Параметры конфигурации md5 аналогичны таковым для формата md3. Подробнее про параметры конфигурации вы можете прочесть тут.

Осталось лишь создать файлик preview.jpg разером 512х512 с изображением персонажа и все.
Запустим игру и после загрузки карты и выбора модели персонажа перейдем к виду от 3 лица [9]. И если вы все выполнили правильно, то ваша модель в игре будет выглядеть так:

Параметры конфигурации формата md3 вы можете найти тут.

Без конфигурации

Используйте данный способ если ваша md3 не имеет анимаций (статическая) и имеет всего одну текстуру. MD3 файлы должны располагаться в каталоге packages/models/. В каталоге модели должен располагаться скин (UV текстура, обычно skin.jpg или skin.png) и сама md3(обычно tris.md3). Так-же там может располагаться masks.jpg содержащая specmap в R канале, glowmap в G канале, и chrome map в B канале. Движок подхватит их автоматически. Если один из файлов не найден, движок будет искать их в родительской директории. Например, если для модели flags/red не найдена tris.md3 в каталоге packages/models/flags/red/, то движок станет искать tris.md3 в каталоге packages/models/flags/. Это позволяет менять скины и геометрию.

С конфигурацией

Используйте данный способ если ваша md3 анимированная и имеет несколько скинов, или если вы хотите использовать прочие возможности конфигурации. Добавьте md3.cfg в каталог packages/models/. Этот файл определяет загрузку моделей, связи и пр. Следующие команды могут быть использованы в md3.cfg:

md3load P

Эта команда загрузит первую часть вашей модели. Например это может быть head.md3 из модели персонажа. P это путь к модели md3 относительно файла md3.cfg.

md3pitch S O M N

Эта команда определяет как модель реагирует на шаг. Шаг (в градусах) масштабируется S, компенсируется O, а затем фиксируется в диапазоне M..N, т.е. шаг*S + O, M, N. По умолчанию, все части модели имеют S=1, O=0, M=-360, и N=360.

md3skin H S M [E [F]]

Эта команда загрузит текстуру и отнесет ее к последней модели загруженной с помощью md3load. H это название меша на который накладывается текстура. S это путь к текстуре относительно md3.cfg. M это набор текстур для spec (красный канал)/glow (зеленый канал) карт. Если E не равно нулю, то синий канал маски интерпретируется как chrome карта. E (максимальная интенсивность envmap) и F (минимальная интенсивность envmap, по умолчанию: 0) значение плавающей точки в диапазоне от 0 до 1, в котором envmapping интенсивность будет варьироваться в зависимости от угла обзора . Интенсивность масштабируется в данном диапазоне, а затем умнажается на chrome map. md3bumpmap H N [S]

Эта команда включит поддержку карт бампа для заданного меша последней модели загружнееой с помощью md3load. H это название меша на который накладывается карты бампа. N это текстура карты нормалей. S это путь к текстуре которая (если указано) используется вместо скина наложенного с помощью команды md3skin. Используется только если видеокарта пользователя поддерживает карты бампа, в противном случае скин наложенный с помощью md3skin имеет приимущество. Эти два скина могут быть одинаковыми. Однако скин предназначенный для бампмэппинга практически не имеет теней, в то время как плоские текстуры (без бампа) в целом должны, эта команда позволяет разделить скин для бампмаппинга и плоский. md3spec MESH S MESH это название меша к которому применяется эффект. S это итненсивность отражений (если не указано или стоит 0 то принимается значение по умолчанию 100, это хорошо для метала/пластика или чего-то блестящего, низкие значения, например 50 хороши для дерева и пр. , если стоит -1 отражения отключены).

md3alphatest MESH T

MESH это название меша к которому применяется эффект. Команда определяет светотеневой порог T, при котором альфа канал скина будет отбрасывать пиксели с альфой меньше чем T. Т является плавающей точкой в диапазоне от 0 до 1 (по умолчанию: 0.9).

md3alphablend MESH B

MESH это название меша к которому применяется эффект. Controls whether a model with an alpha-channel skin will alpha blend (по умолчанию: 1).

md3shader MESH S

MESH это название меша к которому применяется эффект. S это название шейдера используемого для рендеринга модели (по умолчанию: "stdmodel").

md3glow MESH G

MESH это название меша к которому применяется эффект. G это масштаб glowmap(карты свечения) ( если не указано или стоит 0 то принимается значение по умолчанию 300, -если стоит -1 свечение отключено), в процентах от цвета скина.

md3glare MESH S G

MESH это название меша к которому применяется эффект. S и G являются плавающими точками указывающими масштаб величины бликов сгенерированных отраженным светом и бликов, соответственно (по умолчанию: 1 1).

md3envmap MESH P

Установка карты окружающей среды для модели. MESH это название меша к которому применяется эффект. P это путь к карте(синтаксис похож на синтаксис команды "loadsky") если не указано, то на модель будет наложена карта ближайшего обьекта , или skybox, если карта не определена.

md3ambient MESH A

MESH это название меша к которому применяется эффект. A это процент от общей освещенности(используется для затенения). если не указано или стоит 0 то принимается значение по умолчанию 30%, -1 очначает отсутствие внешнего света.

md3fullbright MESH N

MESH это название меша к которому применяется эффект. N это постоянный принудительно указанный уровень освещения используемый вместо общего. N является плавающей точкой в диапазоне от 0 до 1

md3anim A F N [S [P]]

Эта команда определяет анимацию применяемую к последней загруженной модели (md3load). A это название анимации. Любая из перечисленных ниже анимаций может быть использована:

•  dying
•  dead
•  pain
•  idle
•  forward
•  backward
•  left
•  right
•  hold 1 ... hold 7
•  attack 1 ... attack 7
•  jump
•  sink
•  swim
•  edit
•  lag
•  taunt
•  win
•  lose
•  gun shoot
•  gun idle
•  vwep shoot
•  vwep idle
•  mapmodel
•  trigger

•  dying
•  dead
•  pain
•  hold 1 ... hold 7
•  attack 1 ... attack 7
•  edit
•  lag
•  taunt
•  win
•  lose

•  idle
•  forward
•  backward
•  left
•  right
•  jump
•  sink
•  swim

md3link P C T

Эта команда отвечает за линковку двух моделей. Каждая модель загруженная с помощью md3load имеет свой ID. Первая загруженная модель имеет ID 0, вторая - ID 1, и так далее. Эти идентификаторы используются для определения моделей и обьединения(линковки) их вместе. P это ID родительской модели. C это ID Дочерней модели. T это название тега определяющего вершины модели, которые будут обьединены. Примечание: Удостоверьтесь что вы поняли разницу между родительской и дочерней моделью. Рендеринг начинается с модели 0 (Первая загруженная модель) и продолжается на дочерних моделях. Представьте себе дерево, так-вот модель 0 это корень.

Пример конфигурации

md3load lower.md3 // модель № 0

md3skin l_lower ./default_l.png

md3anim dying 0 30 20

md3anim dead 30 1 25

md3anim "forward|backward|left|right|swim" 114 10 18

md3anim idle 164 30 30

md3anim "jump|lag|edit" 147 8 15

md3load upper.md3 // модель № 1

md3skin u_torso ./default.png

md3anim dying 0 30 20

md3anim dead 30 1 25

md3anim "lag|edit" 91 40 18

md3anim "attack *" 131 6 15

md3anim idle 152 1 15

md3anim pain 152 1 15

md3load head.md3 // модель № 2

md3skin h_head ./default_h.png

md3link 0 1 tag_torso

md3link 1 2 tag_head

mdlspec 50

mdlscale 20 // 20 процентов от оригинального размера

mdltrans 0 0 -1.5 // lower the model a bit

Если один из файлов не найден, движок будет искать их в родительской директории. Например, если для модели flags/red не найдена tris.md2 в каталоге packages/models/flags/red/, то движок станет искать tris.md2 в каталоге packages/models/flags/. Это позволяет менять скины и геометрию.

Ожидается что файлы формата md2 используют Quake-совместимый масштаб и анимацию.

Вы можете так-же добавить конфигурационный файл (md2.cfg) в каталог с моделью, позволяющий настроить анимацию модели. Следующие команды могут быть использованы в md2.cfg:

md2anim N F M [S [P]]

N это название анимации. Любая из перечисленных ниже анимаций может быть использована:

•  dying
•  dead
•  pain
•  idle
•  forward
•  backward
•  left
•  right
•  hold 1 ... hold 7
•  attack 1 ... attack 7
•  jump
•  sink
•  swim
•  edit
•  lag
•  taunt
•  win
•  lose
•  gun shoot
•  gun idle
•  vwep shoot
•  vwep idle
•  mapmodel
•  trigger

F это номер кадра с которого начинается анимация. M это количество кадров в анимации. S это количество кадров в секунду. Если не указано, то 10 FPS используется по умолчанию. P определяет приоритет анимации(по умолчанию P=0).

Например определение анимации "pain" начинающейся с 50 кадра и состоящей из 6 кадров и работающей со скоростью 30 кадров в секунду Будет выглядеть так: md2anim "pain" 50 6 30

В данной статье используется Blender и md3 exporter script. По умолчанию предполагается что вы умеете работать в Blender хотя-бы на базовом уровне. А так-же что у вас уже имеется готовая модель для экспорта( в нашем случае это будет бронежилет взятый из модели сталкера с сайта  http://artblock.ru ). Итак начнем. Открываем Blender:

Панели могут быть расположены по-другому, в зависимости от ваших предпочтений. Откройте файл с моделью нажав F1 или CTRL+O, а затем нажмите Num_1 для получения вида спереди.

Эта модель бронежилета должна располагаться над землей. Вы можете добиться этого редактированием md3.cfg после экспорта, или изменением высоты в Blender как показано на рисунке. Использование обоих методов сразу позволит вам добиться большей точности. Ниже показана модель в режиме редактирования с точкой отсчета в начале координат. Для правильного экспорта любой модели, анимированной или нет, точка отсчета должна быть 0,0,0. Проверьте uvmap для уверенности в том, что карта правильная. Нажмите TAB для выхода из Edit Mode, а затем F для входа в режим UV Face Select . В версии 2.46 и выше режим UV Face Select отсутствует, он объединен с Edit Mode. Выберите UV/Image Editor (справа) нажав на кнопку Window Type(внизу слева).

Если вы еще не сконвертировали четырехугольники в треугольники, то выполните это в режиме редактирования выделив все(A) и нажав Ctrl+T или выбрав в меню Mesh → Faces → Convert Quads to Triangles. Это правильный формат граней в игровых движках.

Осталось выполнить еще один шаг и можно будет экспортировать. Оси в Blender отличаются от большинства 3d приложений в том числе и от Sauerbraten. Если мы экспортируем модели сейчас, то направления моделей будут не верны . Выделите все вершины нажав A. Затем R для того чтобы повернуть модель А затем Z для врашения по оси z. Поворачиваем модель на -90.

К вашему сведению скажу что модели по умолчанию в Blender типа Куба и Цилиндра слишком малы для экспорта в Sauerbraten. Это может быть исправлено в Blender и/или через конфиг md3.cfg используемый в Sauerbraten. Для примера показана модель бронежилета в сравнении с камерой. Теперь все готово для экспорта. Нажмите TAB для перехода в Object Mode и выбрав модель нажмите File → Export → Quake3(.Md3). Дайте имя модели, например tris.md3, выберите каталог для экспорта и нажмите Export Quake3 MD3.

Если вы читали Sauerbraten/docs/dev/md3_sauer_howto.txt (это ваша библия о sauerbraten md3) вы знаете что статичская модель не требует md3.cfg. Это нормально, но мы сделаем ее чтобы понять процесс. Откройте любой текстовый редактор(например Vi или Emacs) и сохраните файл как md3.cfg. Добавьте в него следующие строки:

md3load tris.md3

эта строка подгужает модель в sauerbraten. Далее мы должны указать существующие текстуры и маски. Так-же вам потребуется имя меша для наложения на него текстуры. Вы можете найти его в Blender на панелях режима Editing(F9) посмотрев что указано в строке OB: панели Links and Materials. На модели монеты указано имя kevlar (второй скриншот справа). Следующая строка будет иметь вид:

md3skin kevlar ./skin.jpg

Где skin.jpg это имя текстуры наложенной на модель. Теперь давайте настроим размер и specularity:

mdlscale 200 mdlspec -1

Сохраните файл и можно начинать тест. Только для начала сделайте бекап файлов tris.md3 skin.jpg и md3.cfg из каталога с заменяемой моделью. Запустите Sauerbraten и если все прошло гладко ваша модель окажется в игре. В моем случае модель выглядит так:

В следующей статье мы изучим экспорт анимированных md3 файлов.

Реализация: Раньше для этого я использовал ivman, но чего-то он слишком громоздкий был. За основу взят комментер событий на питоне от radiofun, из которого вырезана часть составляющая комментарии (теперь комментируем события из баш скриптов, по мере надобности. На моей станции комментирует самописная прога на сях lsay ( проприетарный цепстраловский синтез + зажигание светодиодов в lpt в зависимости от амплитуды речи ))

Собственно сырец маунт манагера и комменты к нему ниже

В самом начале поправьте урл скрипта-хэндлера. у меня он на баше, но Вы можете его на чем угодно делать. Его задача минимальна, исходник привожу ниже. из папки handler_dir (не забудьте выставить свою!) Вызывает все скрипты предварительно установив полученные аргументы в переменные к которым легко обращаться и export’нув их.

В папке с хэндлерами мы можем складывать свои баш скрипты на все случае жизни. Из каждого скрипта нам доступно: $ACTION – connect или disconnect $TYPE – тип устройства: usbdev, stgdev, cd, volume. Последние два монтируются автоматом, а куда именно – узнать можем через $MPOINT. Там путь к точке монтирования. $BROWSEABLE – это для ленивых, чтобы не проверять несколько разом и сэкономить на ифе: Если 1 – значит нечто отмонтировано и в $MPOINT можно минимум почитать данные. usbdev и stgdev выставляют $DEVICENAME, для cd и volume есть еще $LABEL и $UUID, так что свои флешки распознатиь легко.

Вот примеры простых скриптов-хэндлеров: Этот проверяет по ууиду (ам) моя ли эта флешка и экспортирует переменную STG_OWNER.

Я задолбался сносить с флешки автораны с вирусней, когда попользую ее на вендовозных машинах в инсте. Надо бы написать парсер авторан.инфа чтобы еще и сообразить где лежит вирусня, но лень.

Коммуниздим потихоньку музочку с флешек друзей в фоновом режиме. Всю, какую находим и складываем в ~/msx4sort/UUID. Зависит от первого скрипта-хэндлера, который проверяет наша ли это флешка и если наша – то игнорирует. (свою-то музыку нафига копировать?)

Ну и на последок: автоматом скопировать фотографии с карточки фотика, которую определяем по ууид.

Все скрипты пронумерованы, то есть в имени в лучших традиция 00, 01, 02 в самом начале. Так можно задать очередность выполнения. Все. спасибо radiofun за начальный скрипт.

З.Ы. Там в самом первом баш скрипте определен report() так как я кдешник, вывожу сообщения через kdialog и на синтез речи. гномерам и прочим просто поправить и все будет ку. Не забудьте на всех скриптах сделать chmod +x ну и запускать ./mount_manager.py при загрузке. Вот собственно и все, хотя по хорошему надо бы еще и код подчистить местами.

Автор статьи AiFiLTr0

Репост статьи с  http://invyl.ath.cx:8080/wp/?p=35