am 2016-03-03 04:22 PM
am 2021-05-27 08:28 PM
am 2021-05-28 09:11 AM
am 2021-05-28 09:30 AM
Hi,
habe den Code dahingehend etwas ergänzt, dass man die Ecken dyn. ziehen kann.
am 2021-05-28 09:50 AM
am 2021-05-28 10:21 AM
am 2021-05-28 11:43 AM
!!! 2D-SCRIPT !!!
HOTSPOT2 0,0,1 : HOTSPOT2 A,0,2 : HOTSPOT2 A,B,3 : HOTSPOT2 0,B,4
htspt = 10
radi = 0.111 : CIRCLE2 0,0, radi : CIRCLE2 A,0, radi : CIRCLE2 A,B, radi : CIRCLE2 0,B, radi
anzahlX = INT (A / iRastermass)
anzahlY = INT (B / iRastermass)
!!!IF FRA(A / iRastermass) < 0.5 THEN helpiMPX = 1 ELSE helpiMPX = 0
!!!IF FRA(B / iRastermass) < 0.5 THEN helpiMPY = 1 ELSE helpiMPY = 0
!!! Folgende 2 Zeilen ergeben die selben Ergebnisse wie die 2 IF-Schleiben zuvor.
!!! Es geht beides, aber IF-Schleiben im GDL kosten Rechengeschwindigkeit
helpiMPX = 1 - ROUND_INT(FRA(A / iRastermass))
helpiMPY = 1 - ROUND_INT(FRA(B / iRastermass))
!!! HAUPTRASTER !!!
PEN stiftHauptraster
FOR i = 0 TO anzahlX
FOR j = 0 TO anzahlY
htspt = htspt+1
HOTSPOT2 0, 0, htspt
LINE2 0,-.05,0,.05
LINE2 -.05,0,.05,0
ADD2 0,iRastermass
NEXT j
DEL j
ADD2 iRastermass,0
NEXT i
DEL i
!!! MITTELPUNKTE !!!
ADD2 iRastermass/2 , iRastermass/2
PEN stiftMittelpunkte
FOR i = 0 TO anzahlX - helpiMPX
FOR j = 0 TO anzahlY - helpiMPY
htspt = htspt+1
HOTSPOT2 0, 0, htspt
CIRCLE2 0,0,0.005
ADD2 0,iRastermass
NEXT j
DEL j
ADD2 iRastermass,0
NEXT i
DEL i
DEL 1
am 2021-05-28 03:52 PM
am 2021-05-28 06:42 PM
am 2021-05-28 06:44 PM
am 2021-05-28 08:13 PM