Polyroof

Hmooslechner — Thu, 13 Apr 2023 17:09:53 GMT

Falls mal jemand einen Polyroof-Befehl einsetzen will, hier mal meine Lösung für eine Koordinatenliste, welchem er folgt:
Der Befehl braucht ja 2 Konturen - einmal für die "Dachaufsetzlinie" und noch einmal für die "rundum-Kontur mit Überstand"



!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
"Dach":
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!  Kopiert aus dem GDL-Handbuch und vereinfacht, damit man geistig mal durchsteigt:
!
!!a = 0 : y = 8
!!x = 6 
!!OG = Ortgangform  !!!OG = Traufenform: 0 = grad runter, 1=rechtwinkelig, 2=waagrecht
!!
!
!
!POLYROOF{3} mat,1, 1, 5, 5,
!0, 0.1, 0.3, 1, 2,
!0, 		y, 	0, 45, 0, mat, mat,		!! Beginn Kontur 1
!0, 		0, 	0, 45, 0, mat, mat,
!x, 		0, 	0, 45, 0, mat, mat,
!x, 		y, 	0, 45, 0, mat, mat,
!0, 		y, 	-1, 45, 0, mat, mat,	!! Ende Kontur 1
!0, 		y, 	0, OG, 0, mat,			!! Beginn Kontur 2
!0, 		0, 	0, OG, 0, mat,
!x, 		0, 	0, OG, 0, mat,
!x, 		y, 	0, OG, 0, mat,
!0, 		y, 	-1, OG, 0, mat			!! Ende Kontur 2
!




!  STYLE "3d".  !! zur visuellen Kontrolle


For j=1 to points



	!!! Koordinatenübergabe an den Stack

		
		!!!  Erste Kontur:
		
			put x[j]     !!! Koordinatenliste
			put y[j] 

					! 	addx x[j]  !!! nur zum Testen ob es richtig übergibt
					! 	addy y[j]
					! 	  if j < points then addz Hoehenvektor+0.1
					! 	  if j = points then addz Hoehenvektor+0.2
					! 	  if j < points then text  0.001, 0, "OK"
					! 	  if j = points then text  0.001, 0, "Ende"
					!	circle 0.2
					!	del 3


			if j < points then put 0
			if j = points then put -1


					!			if j < points-1 then put Dachwinkel	!!! Versuch einer Giebelseite..
					!			if j = points-1 then put 90

			put Dachwinkel
			put 0
			put dmat
			put dmat


		
Next j



For j=1 to points



	!!! Koordinatenübergabe an den Stack


		
		!!!	2. Kontur:
		
		
			put x[j]      !!! Koordinatenliste
			put y[j] 

					! 	addx x[j]  !!! nur zum Testen ob es richtig übergibt
					! 	addy y[j]
					! 	  if j < points then addz Hoehenvektor+1.1
					! 	  if j = points then addz Hoehenvektor+1.2
					! 	  if j < points then text  0.001, 0, "OK"
					! 	  if j = points then text  0.001, 0, "Ende"
					!	circle 0.2
					!	del 3


			if j < points then put 0
			if j = points then put -1
			put OG	!OG = Ortgangform  !!!OG = Traufenform: 0 = grad runter, 1=rechtwinkelig, 2=waagrecht
			put 0
			put dmat


		
Next j
	



	POLYROOF{3} dmat,1, 1, points, points,
	0, 0.1, 0.3, 0, 0,
	get (nsp)



!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
return
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Habe hier schon mal einige Zeit benötigt, um da "durchzusteigen"..

Thema "Polyroof" in Programmierung

Polyroof