Свои программы

Pixilang по русски
yourchange
Posts: 33
Joined: Tue Jan 01, 2013 5:30 pm
Location: Украина, Николаев

Свои программы

Post by yourchange »

Предлагаю делиться своими программами.
yourchange
Posts: 33
Joined: Tue Jan 01, 2013 5:30 pm
Location: Украина, Николаев

Re: Свои программы

Post by yourchange »

в map я сделал только отображение карты и перемещение по ней.
в init() можно изменить xr и yr- размер карты. сама карта создается rand.
после чего углы смягчаются, и в map() подставляются картинки из gnd10.png.
если изменить r то нужно изменить рамер картинки любым редактором исходя из того что в картинке 11*7 секторов.
Attachments
map.zip
(6.01 KiB) Downloaded 687 times
User avatar
NightRadio
Site Admin
Posts: 3941
Joined: Fri Jan 23, 2004 12:28 am
Location: Ekaterinburg. Russia
Contact:

Re: Свои программы

Post by NightRadio »

Привет!
К сожалению, с map.zip возникли некоторые проблемы.

1) При распаковке архива в Linux я вижу следующие файлы:
map\cod.txt
map\gnd10.png
map\map.pixi
Причем map\ - это не название директории, это часть файла, так как символ \ в юниксах - это просто символ. То есть, получаю файл с именем map\cod.txt. Соответственно, include файл cod.txt не находит. Я не знаю, с чем это связано. Может, какая-то особенность запаковщика ZIP-ов? Впервые с таким сталкиваюсь.

2) На моем компе прога не запускается, так как в этом месте допущена небольшая ошибка:

Code: Select all

tex=load("gnd10.png")
stn=new(77)
i=0 y=0 while(y<7){x=0 while(x<11){
stn[i]=new(r,r,INT16) clean(stn[i])
op_cc(OP_ADD,stn[i],tex,0,0,x*r,y*r,r,r)
Дело в том, что операции обработки данных (op_cc) работают только для контейнеров одинакового типа.
То есть, в приведенном выше коде контейнеры stn и tex должны иметь одинаковый тип.
stn имеет тип INT16.
tex - тип INT32, так как на моем компе цвет 32-битный.
При этом, такой код будет спокойно работать на мобильных устройствах (Android, например), потому то там на пиксель отдается 16 бит.
yourchange
Posts: 33
Joined: Tue Jan 01, 2013 5:30 pm
Location: Украина, Николаев

Re: Свои программы

Post by yourchange »

Привет.
1) архивировал resco explorer, попробую X-plore. На компе проверить не могу - сломался, а на смарте работает нормально.
2) тип исправил через get_type(tex), думаю проблем возникнуть не должно, правда не помню зачем я вообще уточнял тип, new(r,r) и так работает.
Attachments
map.zip
(5.95 KiB) Downloaded 667 times
yourchange
Posts: 33
Joined: Tue Jan 01, 2013 5:30 pm
Location: Украина, Николаев

Re: Свои программы

Post by yourchange »

Старая, сырая версия 3dmodeller. Умеет строить примитивы.
для наложения текстуры следует поместить текстуру в tex=load("img/map.jpg")
Attachments
3dModeller.zip
(3.8 KiB) Downloaded 672 times
User avatar
NightRadio
Site Admin
Posts: 3941
Joined: Fri Jan 23, 2004 12:28 am
Location: Ekaterinburg. Russia
Contact:

Re: Свои программы

Post by NightRadio »

Классно!
Вот только еще одно маленькое замечание. На компе с мышкой с этими прогами работать почти невозможно, потому что они реагируют на движение курсора даже тогда, когда ни одна кнопка не нажата. В обработке событий нужно дополнительно проверять, нажата ли левая кнопка мыши.
yourchange
Posts: 33
Joined: Tue Jan 01, 2013 5:30 pm
Location: Украина, Николаев

Re: Свои программы

Post by yourchange »

спасибо, учту. Прогу все равно переписывать заново, придумал несколько интересных решений да и код в ней неакуратный. когда отремонтирую комп - обязательно буду все тестить на нем, хотя мое основное направление - wm6, приятно иметь возможность заниматься 3д моделированием в любое время.
yourchange
Posts: 33
Joined: Tue Jan 01, 2013 5:30 pm
Location: Украина, Николаев

Re: Свои программы

Post by yourchange »

помойму, довольно интересное решение проверки регионов. особо если сравнивать с тем как я это делал раньше - сколько кнопок(прямоугольных), столько и проверок. теперь на любое количество регионов любой формы - одна проверка.
Attachments
buttons.zip
(995 Bytes) Downloaded 665 times
yourchange
Posts: 33
Joined: Tue Jan 01, 2013 5:30 pm
Location: Украина, Николаев

Re: Свои программы

Post by yourchange »

пока не оптимизировано
Attachments
3dmap.zip
(30.71 KiB) Downloaded 641 times
yourchange
Posts: 33
Joined: Tue Jan 01, 2013 5:30 pm
Location: Украина, Николаев

Re: Свои программы

Post by yourchange »

Доброго времени суток. Решил выложить свою рабочую папку, так как мало свободного времени. Может кому-нибудь что-то покажется интересным.
yourchange
Posts: 33
Joined: Tue Jan 01, 2013 5:30 pm
Location: Украина, Николаев

Re: Свои программы

Post by yourchange »

Доброго времени суток. Решил выложить свою рабочую папку, так как мало свободного времени. Может кому-нибудь что-то покажется интересным.
Attachments
MAP.zip
(32.65 KiB) Downloaded 523 times
LIB.zip
(6.71 KiB) Downloaded 589 times
DEMO.zip
Доброго времени суток. Решил выложить свою рабочую папку, так как мало свободного времени. Может кому-нибудь что-то покажется интересным.
(20.5 KiB) Downloaded 541 times
yourchange
Posts: 33
Joined: Tue Jan 01, 2013 5:30 pm
Location: Украина, Николаев

Re: Свои программы

Post by yourchange »

Может кому-нибудь что-то покажется интересным.
Attachments
RES.zip
(42.14 KiB) Downloaded 536 times
OBJ.zip
(24.93 KiB) Downloaded 623 times
MY.zip
(41.87 KiB) Downloaded 561 times
yourchange
Posts: 33
Joined: Tue Jan 01, 2013 5:30 pm
Location: Украина, Николаев

Re: Свои программы

Post by yourchange »

MY-корень, остальные - папки, еще в корне был файл tex.jpg, возможно без него что-то не запустится
Attachments
IMG.zip
(36.62 KiB) Downloaded 525 times
SRC.zip
(22.27 KiB) Downloaded 544 times
yourchange
Posts: 33
Joined: Tue Jan 01, 2013 5:30 pm
Location: Украина, Николаев

Re: Свои программы

Post by yourchange »

рисует сплайн.
$arr-двухмерный массив[номер точки, 0(x)\1(y)]
$div- кол-во делений между точками
$c-цвет

Code: Select all

fn v_spline($arr, $div, $c){
$nrb = get_xsize($arr);
$s_step=1/($nrb*$div);
$tml=0; while($tml<1){
	$step=$nrb-1; while($step>0){
		$m=0; while($m<$step){
			$n=0; while($n<2){
				$lns = ($arr[$m+1, $n]-$arr[$m, $n])*$tml;
				$arr[$m, $n] = $arr[$m, $n]+$lns;
				$n+1; }
			$m+1; }
		$step-1;}
	$xold=$x; $yold=$y;
	$x=$arr[0,0]; $y=$arr[0,1];
	if($tml>0){line($xold,$yold,$x,$y,$c);}
	$tml+$s_step; }
}
yourchange
Posts: 33
Joined: Tue Jan 01, 2013 5:30 pm
Location: Украина, Николаев

Re: Свои программы

Post by yourchange »

Результат моего знакомства с кватернионами, анимацией. Дальше добавлю рэгдолл.
Attachments
human.zip
(6.7 KiB) Downloaded 337 times
Post Reply