Labirinto

[rcb2002]

Olá...

Alguém já precisou criar um labirinto e um algoritmo para resolvê-lo? Preciso disso em outra plataforma mas quero fazer os testes primeiro em clipper (Ext MiniGUI).

Obrigado.

[rcb2002]

Ok, pessoal... devo ter feito duas perguntas meio absurdas pq isso nunca aconteceu: 15 dias sem uma resposta nesse fórum é inédito. Avancei em alguns conceitos aqui mas ainda fica uma dúvida: desenho nessa plataforma... mas em tela. Com aquela liberdade que temos pra desenhar num PDF usando a HaruPDF. Não tem como? Procuro isso há dias e não encontro, parece que tem algo no Harbour, mas não sei como faço pra sair de um e usar o outro. É possível então que ninguém nunca na história tenha precisado desenhar na tela? Fazer um jogo, graficos ou algo assim?
Obrigado novamente e ansiosamente aguardando!

:)Pos

[Toledo]

Amigo, não entendi direito o que você quer fazer, mas na MiniGui existe vários comandos para desenhar linhas, circulos, etc:

DEFINE BRUSH <cbrush> [STYLE <style>] [COLOR <clr>] [HATCH <hatch>]

CHANGE BRUSH <cbrush> [STYLE <style>] [COLOR <clr>] [HATCH <hatch>]

SELECT BRUSH <cbrush>

DEFINE PEN <cpen> [STYLE <style>] [WIDTH <width>] [COLOR <clr>]

CHANGE PEN <cpen> [STYLE <style>] [WIDTH <width>] [COLOR <clr>]

SELECT PEN <cpen> ;=> hbprn:selectpen(<cpen>)

@ <row>,<col>,<row2>,<col2> DRAW TEXT <txt> [STYLE <style>] [FONT <cfont>]

@ <row>,<col> TEXTOUT <txt> [FONT <cfont>]

@ <row>,<col>,<row2>,<col2> RECTANGLE [PEN <cpen>] [BRUSH <cbrush>]

@ <row>,<col>,<row2>,<col2> FILLRECT [BRUSH <cbrush>]

@ <row>,<col>,<row2>,<col2> ROUNDRECT [ROUNDR <tor>] [ROUNDC <toc>] [PEN <cpen>] [BRUSH <cbrush>]

@ <row>,<col>,<row2>,<col2> FRAMERECT [BRUSH <cbrush>]

@ <row>,<col>,<row2>,<col2> INVERTRECT

@ <row>,<col>,<row2>,<col2> ELLIPSE [PEN <cpen>] [BRUSH <cbrush>]

@ <row>,<col>,<row2>,<col2> ARC RADIAL1 <row3>,<col3> RADIAL2 <row4>,<col4> [PEN <cpen>]

@ <row>,<col> ARCTO RADIAL1 <row3>,<col3> RADIAL2 <row4>,<col4> [PEN <cpen>]

@ <row>,<col>,<row2>,<col2> CHORD RADIAL1 <row3>,<col3> RADIAL2 <row4>,<col4> [PEN <cpen>] [BRUSH <cbrush>]

@ <row>,<col>,<row2>,<col2> PIE RADIAL1 <row3>,<col3> RADIAL2 <row4>,<col4> [PEN <cpen>] [BRUSH <cbrush>]

POLYGON <apoints> [PEN <cpen>] [BRUSH <cbrush>] [STYLE <style>]

POLYBEZIER <aPoints> [PEN <cpen>]

POLYBEZIERTO <aPoints> [PEN <cpen>]

DEFINE RECT REGION <creg> AT <row>,<col>,<row2>,<col2>

DEFINE POLYGON REGION <creg> VERTEX <apoints> [STYLE <style>]

DEFINE ELLIPTIC REGION <creg> AT <row>,<col>,<row2>,<col2>

DEFINE ROUNDRECT REGION <creg> AT <row>,<col>,<row2>,<col2> ELLIPSE <ewidth>,<eheight>

COMBINE REGIONS <creg1>,<creg2> TO <creg> [STYLE <style>]

SELECT CLIP REGION <creg>

DELETE CLIP REGION

SET POLYFILL MODE <mode>

SET POLYFILL ALTERNATE

SET POLYFILL WINDING

GET POLYFILL MODE TO <mode>

SET VIEWPORTORG <row>,<col>

GET VIEWPORTORG TO <aviewport>

SET RGB <red>,<green>,<blue> TO <nrgb>

Veja também os exemplos:

\SAMPLES\Advanced\Circle
\SAMPLES\Advanced\Curves
\SAMPLES\Advanced\Lines
\SAMPLES\BASIC\MouseDrag

Abraços,