Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
1 - Einsteigerfragen

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Rechteck im Raum frei drehen
Autor: Maik Borchardt (---.dip0.t-ipconnect.de)
Datum:   11.06.14 16:00

Hallo liebe Profaner,

im Rahmen eines Entwicklungsprojektes (kleiner Roboter mit Entfernungssensor) möchte ich mir ein einfaches Simulations Programm schreiben....

Folgendes soll Simuliert werden:

Roboter (einfache Rechteck Grafik in Fenstermitte) soll frei im raum gedreht werden können (freier Winkel)...

Jetzt komm ich grad garnicht mehr zurecht mit der Berechnung der Position im Umlaufenden Kreis... eigentlich ne simple sache.... fast schon peinlich, aber ich bekomm es grad nicht wirklich hin...

ich weiß, graue erinnerungen das es in etwa....

xpos%=320-(radius%*cos(pi()*winkel%/180)
ypos%=200-(radius%*sin(pis*winkel%/180)

oder so ähnlich war....

meine versuche sind irgendwie ganz nett anzuschauen, aber absolut nicht das was ich benötige...


Kann mir vielleicht einer von euch weiterhelfen.... das wäre echt super...

hier mein bastel/fummel Code

 cls
 
 proc RectangleCirc
         parameters Winkel%
         declare xpos%,ypos%,x2pos%,y2pos%
         'nullposition        
         xpos%=320-20
         ypos%=240-40
         x2pos%=xpos%+40
         y2pos%=ypos%+80
         UsePen 2,1,rgb(255,0,0)
         line xpos%,ypos%-xpos%,y2pos%
         lineto x2pos%,y2pos%
         lineTo x2pos%,ypos%
         lineto xpos%,ypos%
 
         'jetzt im Winkel von Winkel% Grad gedreht Zeichnen
 
         xpos%=winkelx(xpos%,winkel%)
         ypos%=winkely(ypos%,winkel%)
         x2pos%=winkelx(x2pos%,winkel%)
         y2pos%=winkely(y2pos%,winkel%)
 
         UsePen 2,1,rgb(0,0,255)
         line xpos%,ypos%-xpos%,y2pos%
         lineto x2pos%,y2pos%
         lineTo x2pos%,ypos%
         lineto xpos%,ypos%
 
 endproc
 
 proc winkelx
         parameters xpos%,winkel%
         return xpos%-20*cos(pi()*&loop/180)
 endproc
 proc winkely
         parameters ypos%,winkel%
         return ypos%+40*sin(pi()*winkel%/180)
 endproc
 
 whileloop 0,360
         RectangleCirc(&loop)
 endwhile
 
 
 whileloop 0,360
         setpixel winkelx(320,&loop),winkely(240,&loop),rgb(0,255,255)
 endwhile
 
 
 waitinput
 
 
 


Xp Home
Profan 9

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Rechteck im Raum frei drehen  Neu
Maik Borchardt 11.06.14 16:00 
 Re: Rechteck im Raum frei drehen  Neu
Heinz Brill 11.06.14 18:53 
 Re: Rechteck im Raum frei drehen  Neu
Maik Borchardt 11.06.14 20:16 
 Re: Rechteck im Raum frei drehen  Neu
Maik Borchardt 11.06.14 20:45 
 Code für Quadrat zur Veranschaulichung - RE: Rechteck im Raum frei drehen  Neu
Maik Borchardt 11.06.14 21:43 
 gelöst!: Rechteck im Raum frei drehen  Neu
Maik Borchardt 13.06.14 13:50 
 Re: Rechteck im Raum frei drehen  Neu
peter 19.07.14 16:21 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org