[object]http://www.justsayhi.com/bb/files/countdown/countdown.swf?co=5EC9FF&bgcolor=666666&date_month=07&date_day=08&date_year=1&un=LHC%20ACTIVATION&size=giant&mo=07&da=08&yr=2008[/object]
Возможна ли вставка произвольных флэш объектов
Автор темы: CherryPah, Июн 24 2008 03:06
2 ответов в этой теме
#1
Опубликовано 24 Июнь 2008 - 03:06
Вконтакте
Когда я купил коробку с WoW, на ней не было ни слова про теорикрафт и ротацию. Там было сказано: СТАНЬ ГЕРОЕМ, УБЕЙ ДРАКОНА.
Хочу назад в ванилу, никаких вещей за баджи, убил босса-полутал эпик, не убил ходи в синих трусах и зеленой рубахе, завидуй рейдерам в т1/2, молись на богов пве в т3.
#2
Опубликовано 16 Июль 2008 - 02:54
чиста заодно ТЕСТ
чтоб новую тему не делать=)
чтоб новую тему не делать=)
#3
Опубликовано 06 Август 2008 - 15:58
{===============================DRAW==================} procedure draw(b: wide_vector_p); var: F: wide_vector_p; gdrv, gmode: integer; i,j,k: integer; xsize, ysize, x0, y0: integer; xmin, ymin, xmax, ymax, xs, ys: extended; begin gdrv := 0; gmode := 0; initgraph(gdrv, gmode, ''); if graphresult <> 0 then begin writeln('Ошибка графики'); halt; end; xsize := 600; ysize := 450; x0 := 20; y0 := 15; xmin := b[1].x; xmax := b[WVSIZE].x; ymax := b[1].y; ymin := b[1].y; for k := 2 to WVSIZE do begin if b[k].y > ymax then ymax := b[k].y; if b[k].y < ymin then ymin := b[k].y; end; xs := (xmax - xmin) / xsize; ys := (ymax - ymin) / ysize; moveto(round((b[1].x - xmin) / xs), round((b[1].y - ymin) / ys) ); for k := 2 to WVSIZE do begin lineto(round((b[k].x - xmin) / xs), round((b[k].y - ymin) / ys) ); end; end;
{===============================DRAW==================}procedure draw(b: wide_vector_p);var: F: wide_vector_p; gdrv, gmode: integer; i,j,k: integer; xsize, ysize, x0, y0: integer; xmin, ymin, xmax, ymax, xs, ys: extended;begin gdrv := 0; gmode := 0; initgraph(gdrv, gmode, ''); if graphresult <> 0 then begin writeln('Ошибка графики'); halt; end; xsize := 600; ysize := 450; x0 := 20; y0 := 15; xmin := b[1].x; xmax := b[WVSIZE].x; ymax := b[1].y; ymin := b[1].y; for k := 2 to WVSIZE do begin if b[k].y > ymax then ymax := b[k].y; if b[k].y < ymin then ymin := b[k].y; end; xs := (xmax - xmin) / xsize; ys := (ymax - ymin) / ysize; moveto(round((b[1].x - xmin) / xs), round((b[1].y - ymin) / ys) ); for k := 2 to WVSIZE do begin lineto(round((b[k].x - xmin) / xs), round((b[k].y - ymin) / ys) ); end; end;
Тест ;-)
Ответить в эту тему
Посетителей, читающих эту тему: 1
0 пользователей, 1 гостей, 0 анонимных пользователей