Ton bloc notes
Derniers sujets
» [ MATOS INFORM. ] LICENCES ARCHICAD
par yannickniort Mar 30 Avr 2024 - 8:29
» [ SKETCHUP Layout ] Layout 2024 probléme de Style
par lionel Claude Lun 29 Avr 2024 - 20:50
» [ SKETCHUP plugins ] Universal Importer
par Samuel Tallet Lun 29 Avr 2024 - 19:18
» [ LUMION ] Lumion 2024
par Owayda Lun 29 Avr 2024 - 16:00
» [ SKETCHUP composants dynamiques ]
par Miroslav Lun 29 Avr 2024 - 15:33
» [ CHAINE TWITCH ] c'est reparti - pour quelques live
par tenrev Lun 29 Avr 2024 - 14:49
» [ SKETCHUP objets ]
par vick Mar 23 Avr 2024 - 20:52
» [ SKETCHUP vray ]
par furax49 Mar 23 Avr 2024 - 19:52
» [ ARTLANTIS ] Ca donne envie !
par loic46 Dim 21 Avr 2024 - 22:56
» [ SKETCHUP généralité ] sortie officielle de sketchup 2024
par tenrev Ven 19 Avr 2024 - 14:24
» [ ARTLANTIS ] Problème origine se déplace
par loic46 Jeu 18 Avr 2024 - 22:28
» [ SKETCHUP plugins ] Vms_up
par Rascal Jeu 18 Avr 2024 - 14:41
» [ SKETCHUP objets ] aquarium
par JDD Lun 15 Avr 2024 - 22:20
» [ ARCHICAD ] raccourci clavier
par VertiKal Ven 12 Avr 2024 - 17:47
» [ ARCHICAD ] Zone - Menu déroulant
par Christophe Fortineau Jeu 11 Avr 2024 - 19:49
» [ SKETCHUP généralité ] Servimg Premium pour tous les membres
par tenrev Jeu 11 Avr 2024 - 14:31
» [ SKETCHUP plugins ] Move it
par TF3 Mer 10 Avr 2024 - 10:23
» [ SKETCHUP plugins ] curic 2D export
par tenrev Mar 9 Avr 2024 - 17:41
» [ SKETCHUP plugins ] profil builder 4 est disponible
par furax49 Mar 9 Avr 2024 - 17:00
» [ ARCHICAD ] Torsion sur poteaux
par Ti Pack Mar 9 Avr 2024 - 14:59
» [ PRESENTATION ]
par tenrev Lun 8 Avr 2024 - 8:22
» [ TWINMOTION ] bug d'affichage des textures avec le path tracer
par Gaspard Hauser Ven 5 Avr 2024 - 12:53
» [ TWINMOTION ] eGPU / ralentissement Twinmotion important
par TF3 Mer 3 Avr 2024 - 9:11
» [ TWINMOTION ] twinmotion installée deux fois?
par tenrev Mer 3 Avr 2024 - 8:58
» [ INTELLIGENCE ARTIFICIELLE ] Joyeuses Paques avec sketchup.... diffusion
par tenrev Dim 31 Mar 2024 - 16:32
» [ INTELLIGENCE ARTIFICIELLE ] quelques vidéo de mes tests IA
par simjoubert Ven 29 Mar 2024 - 19:16
» [ SKETCHUP généralité ] Interface réinitialisée totalement suite connexion Trimble
par Shakna Ven 29 Mar 2024 - 15:04
» [ SKETCHUP LIVE COMPONENT ] Importer une liste de points dans son graphe via un input texte
par tenrev Jeu 28 Mar 2024 - 13:30
» [ ARCHICAD-OBJETS GDL ] Sortie de toit TCP (Poujoulat)
par BoTof Lun 25 Mar 2024 - 9:12
» [ SKETCHUP LIVE COMPONENT ] besoin de tuyaux sur les textures random
par tenrev Sam 23 Mar 2024 - 10:35
» [ SKETCHUP composants dynamiques ] Copies de copies
par Manutio Ven 22 Mar 2024 - 12:21
» [ SKETCHUP plugins ] plugin pour les textes
par vick Ven 22 Mar 2024 - 10:34
» [ SKETCHUP généralité ] SÉLECTIONNER - Tuto 4/4 - 2ème TECHNIQUE INÉDITE
par jerryvento Jeu 21 Mar 2024 - 9:08
» [ SKETCHUP tutos ] SÉLECTIONNER - Tuto 4/4 - 2ème TECHNIQUE INÉDITE
par jerryvento Jeu 21 Mar 2024 - 9:07
» [ KEYSHOT ] plugin sketchup
par tenrev Mer 20 Mar 2024 - 8:26
par yannickniort Mar 30 Avr 2024 - 8:29
» [ SKETCHUP Layout ] Layout 2024 probléme de Style
par lionel Claude Lun 29 Avr 2024 - 20:50
» [ SKETCHUP plugins ] Universal Importer
par Samuel Tallet Lun 29 Avr 2024 - 19:18
» [ LUMION ] Lumion 2024
par Owayda Lun 29 Avr 2024 - 16:00
» [ SKETCHUP composants dynamiques ]
par Miroslav Lun 29 Avr 2024 - 15:33
» [ CHAINE TWITCH ] c'est reparti - pour quelques live
par tenrev Lun 29 Avr 2024 - 14:49
» [ SKETCHUP objets ]
par vick Mar 23 Avr 2024 - 20:52
» [ SKETCHUP vray ]
par furax49 Mar 23 Avr 2024 - 19:52
» [ ARTLANTIS ] Ca donne envie !
par loic46 Dim 21 Avr 2024 - 22:56
» [ SKETCHUP généralité ] sortie officielle de sketchup 2024
par tenrev Ven 19 Avr 2024 - 14:24
» [ ARTLANTIS ] Problème origine se déplace
par loic46 Jeu 18 Avr 2024 - 22:28
» [ SKETCHUP plugins ] Vms_up
par Rascal Jeu 18 Avr 2024 - 14:41
» [ SKETCHUP objets ] aquarium
par JDD Lun 15 Avr 2024 - 22:20
» [ ARCHICAD ] raccourci clavier
par VertiKal Ven 12 Avr 2024 - 17:47
» [ ARCHICAD ] Zone - Menu déroulant
par Christophe Fortineau Jeu 11 Avr 2024 - 19:49
» [ SKETCHUP généralité ] Servimg Premium pour tous les membres
par tenrev Jeu 11 Avr 2024 - 14:31
» [ SKETCHUP plugins ] Move it
par TF3 Mer 10 Avr 2024 - 10:23
» [ SKETCHUP plugins ] curic 2D export
par tenrev Mar 9 Avr 2024 - 17:41
» [ SKETCHUP plugins ] profil builder 4 est disponible
par furax49 Mar 9 Avr 2024 - 17:00
» [ ARCHICAD ] Torsion sur poteaux
par Ti Pack Mar 9 Avr 2024 - 14:59
» [ PRESENTATION ]
par tenrev Lun 8 Avr 2024 - 8:22
» [ TWINMOTION ] bug d'affichage des textures avec le path tracer
par Gaspard Hauser Ven 5 Avr 2024 - 12:53
» [ TWINMOTION ] eGPU / ralentissement Twinmotion important
par TF3 Mer 3 Avr 2024 - 9:11
» [ TWINMOTION ] twinmotion installée deux fois?
par tenrev Mer 3 Avr 2024 - 8:58
» [ INTELLIGENCE ARTIFICIELLE ] Joyeuses Paques avec sketchup.... diffusion
par tenrev Dim 31 Mar 2024 - 16:32
» [ INTELLIGENCE ARTIFICIELLE ] quelques vidéo de mes tests IA
par simjoubert Ven 29 Mar 2024 - 19:16
» [ SKETCHUP généralité ] Interface réinitialisée totalement suite connexion Trimble
par Shakna Ven 29 Mar 2024 - 15:04
» [ SKETCHUP LIVE COMPONENT ] Importer une liste de points dans son graphe via un input texte
par tenrev Jeu 28 Mar 2024 - 13:30
» [ ARCHICAD-OBJETS GDL ] Sortie de toit TCP (Poujoulat)
par BoTof Lun 25 Mar 2024 - 9:12
» [ SKETCHUP LIVE COMPONENT ] besoin de tuyaux sur les textures random
par tenrev Sam 23 Mar 2024 - 10:35
» [ SKETCHUP composants dynamiques ] Copies de copies
par Manutio Ven 22 Mar 2024 - 12:21
» [ SKETCHUP plugins ] plugin pour les textes
par vick Ven 22 Mar 2024 - 10:34
» [ SKETCHUP généralité ] SÉLECTIONNER - Tuto 4/4 - 2ème TECHNIQUE INÉDITE
par jerryvento Jeu 21 Mar 2024 - 9:08
» [ SKETCHUP tutos ] SÉLECTIONNER - Tuto 4/4 - 2ème TECHNIQUE INÉDITE
par jerryvento Jeu 21 Mar 2024 - 9:07
» [ KEYSHOT ] plugin sketchup
par tenrev Mer 20 Mar 2024 - 8:26
formulaire/diaporama
chaine sketchup.tv
Serveur Discord
GDL : conflit Xrotang / stStyle
Page 1 sur 1 • Partagez
- FarkasAdministrateurs
- Humeur : C'est bon le sirop d'érable
Date d'inscription : 29/11/2012
Nombre de messages : 4419
Points : 8668
Age : 38
Localisation : Canada
Emploi : Architecte
Bonjour
J'ai édité l'objet grille de la bib standard pour en faire un caillebotti, aquel je souhaiterais ajouter les paramètres Xrotang, Yrotang. Le truc c'est que le script ne fonctionne pas. J'ai beau introduire des valeurs non nulles, ça ne change l'inclinaison de l'objet en 3D.
Je soupçonne un conflit avec la variable stStyle... Je souhaiterais supprimer les lignes de code qui y sont liées. Quelqu'un pourrait-il me dire quelles lignes il faut supprimer ?
Script 3D :
Merci(lk) d'avance
J'ai édité l'objet grille de la bib standard pour en faire un caillebotti, aquel je souhaiterais ajouter les paramètres Xrotang, Yrotang. Le truc c'est que le script ne fonctionne pas. J'ai beau introduire des valeurs non nulles, ça ne change l'inclinaison de l'objet en 3D.
Je soupçonne un conflit avec la variable stStyle... Je souhaiterais supprimer les lignes de code qui y sont liées. Quelqu'un pourrait-il me dire quelles lignes il faut supprimer ?
Script 3D :
- Code:
RotX Xrotang
RotY Yrotang
RotZ Zrotang
DEL 3
gs_fill_type = gs_fill_type * gs_bFills
gs_fill_pen = gs_fill_pen * gs_bFills
gs_back_pen = gs_back_pen * gs_bFills
gs_fillGlass = gs_fillGlass * gs_bFills
gs_penGlass_fg = gs_penGlass_fg * gs_bFills
gs_penGlass_bg = gs_penGlass_bg * gs_bFills
gs_fillSdl = gs_fillSdl * gs_bFills
gs_penSdl_fg = gs_penSdl_fg * gs_bFills
gs_penSdl_bg = gs_penSdl_bg * gs_bFills
if gs_detlevel_3D_m = 0 then end
if not(gs_shadow) then shadow off
unID = 1
pen gs_cont_pen
gosub iStyle
end
! =============================================================================
! SUBRUTINES
!
! =============================================================================
! -----------------------------------------------------------------------------
! Vertical
! -----------------------------------------------------------------------------
2:
material gs_frame_mat
sect_fill gs_fill_type, gs_back_pen, gs_fill_pen, gs_cont_pen
rotx 90
addz -B
gosub 200
if u <= 0 or w <= 0 then
addz yCoordEdges[1]
prism_ 5, -yCoordEdges[1] + yCoordEdges[2],
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, -1
del 1
end
endif
gs_SashText_typ = `Type 1`
put xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 10,
xCoordFrames[1]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 15
if iNumFramesB > 2 then
for kj = 2 to iNumFramesB-1
put xCoordFrames[1]+thickEdge/2, yCoordFrames[kj]-thickFrame/2, 10,
xCoordFrames[1]+thickEdge/2, yCoordFrames[kj]+thickFrame/2, 15
next kj
endif
put xCoordFrames[1]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 15
if iNumFramesB > 2 then
for kj = 2 to iNumFramesB-1
put xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[kj]-thickFrame/2, 10,
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[kj]+thickFrame/2, 15
next kj
endif
put xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 10,
xCoordFrames[1]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 15
if iNumFramesA > 2 then
for ij = 2 to iNumFramesA-1
put xCoordFrames[ij]-thickFrame/2, yCoordFrames[1]+thickEdge/2, 10,
xCoordFrames[ij]+thickFrame/2, yCoordFrames[1]+thickEdge/2, 15
next ij
endif
put xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 10,
xCoordFrames[1]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 15
if iNumFramesA > 2 then
for ij = 2 to iNumFramesA-1
put xCoordFrames[ij]-thickFrame/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[ij]+thickFrame/2, yCoordFrames[iNumFramesB]-thickEdge/2, 15
next ij
endif
put xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15
! -------------------------------------------------------------------------
if gs_SashText_typ = `Type 1` then
base
prism_ 4+((iNumFramesB-2)*2),-yCoordEdges[1]+yCoordEdges[2],
get ((iNumFramesB-2)*6+12)
prism_ 4+((iNumFramesB-2)*2),-yCoordEdges[1]+yCoordEdges[2],
get ((iNumFramesB-2)*6+12)
vert 0, 0, 0
vert 0, 1, 0
vert 0, 0, 1
vert 1, 0, 0
coor 5, -1, -2, -3, -4
body 1
base
prism_ 4+((iNumFramesA-2)*2),-yCoordEdges[1]+yCoordEdges[2],
get ((iNumFramesA-2)*6+12)
prism_ 4+((iNumFramesA-2)*2),-yCoordEdges[1]+yCoordEdges[2],
get ((iNumFramesA-2)*6+12)
vert 0, 0, 0
vert 1, 0, 0
vert 0, 0, 1
vert 0, 1, 0
coor 5, -1, -2, -3, -4
body 1
endif
if gs_SashText_typ = `Type 2` then
base
prism_ 6+((iNumFramesB-2)*2),-yCoordEdges[1]+yCoordEdges[2],
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 8,
xCoordFrames[1]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 15,
get((iNumFramesB-2)*6),
xCoordFrames[1]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 13,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15
prism_ 6+((iNumFramesB-2)*2),-yCoordEdges[1]+yCoordEdges[2],
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 8,
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 15,
get((iNumFramesB-2)*6),
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 13,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15
vert 0, 0, 0
vert 0, 1, 0
vert 0, 0, 1
vert 1, 0, 0
coor 5, -1, -2, -3, -4
body 1
base
prism_ 6+((iNumFramesA-2)*2),-yCoordEdges[1]+yCoordEdges[2],
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 8,
xCoordFrames[1]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 15,
get((iNumFramesA-2)*6),
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 13,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 15
prism_ 6+((iNumFramesA-2)*2),-yCoordEdges[1]+yCoordEdges[2],
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 8,
xCoordFrames[1]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 15,
get((iNumFramesA-2)*6),
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 13,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15
vert 0, 0, 0
vert 1, 0, 0
vert 0, 0, 1
vert 0, 1, 0
coor 5, -1, -2, -3, -4
body 1
endif
! --- Both in type1 and type 2 / inner grids ---
for ij = 2 to iNumFramesA-1
for kj = 2 to iNumFramesB-1
put xCoordFrames[ij]-thickFrame/2, yCoordFrames[kj]-thickFrame/2, 10,
xCoordFrames[ij]-thickFrame/2, yCoordFrames[kj]+thickFrame/2, 15
next kj
put xCoordFrames[ij]-thickFrame/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[ij]+thickFrame/2, yCoordFrames[iNumFramesB]-thickEdge/2, 15
for kj = iNumFramesB-1 to 2 step -1
put xCoordFrames[ij]+thickFrame/2, yCoordFrames[kj]+thickFrame/2, 10,
xCoordFrames[ij]+thickFrame/2, yCoordFrames[kj]-thickFrame/2, 15
next kj
put xCoordFrames[ij]+thickFrame/2, yCoordFrames[1]+thickEdge/2, 10,
xCoordFrames[ij]-thickFrame/2, yCoordFrames[1]+thickEdge/2, 15
next ij
if iNumFramesA > 2 then parn = (nsp/3)/(iNumFramesA-2) else parn = 0
if iNumFramesA > 2 then outst = nsp/(iNumFramesA-2) else outst = 0
for ij = 2 to iNumFramesA-1
base
prism_ parn,-yCoordEdges[1]+yCoordEdges[2],
get(outst)
vert 0, 0, 0
vert 0, 1, 0
vert 0, 0, 1
vert 1, 0, 0
coor 5, -1, -2, -3, -4
body 1
next ij
for ij = 1 to iNumFramesA-1
if ij = 1 or ij = iNumFramesA-1 then
if ij = 1 then
dx1 = thickEdge
dx2 = thickFrame
else
dx1 = thickFrame
dx2 = thickEdge
endif
else
dx1 = thickFrame
dx2 = thickFrame
endif
for kj = 2 to iNumFramesB-1
base
prism_ 4,-yCoordEdges[1]+yCoordEdges[2],
xCoordFrames[ij]+dx1/2, yCoordFrames[kj]-thickFrame/2, 10,
xCoordFrames[ij]+dx1/2, yCoordFrames[kj]+thickFrame/2, 15,
xCoordFrames[ij+1]-dx2/2, yCoordFrames[kj]+thickFrame/2, 10,
xCoordFrames[ij+1]-dx2/2, yCoordFrames[kj]-thickFrame/2, 15
vert 0, 0, 0
vert 1, 0, 0
vert 0, 0, 1
vert 0, 1, 0
coor 5, -1, -2, -3, -4
body 1
next kj
next ij
for o = 1 to iNumFramesA-1 step 1
for e = 1 to iNumFramesB-1 step 1
if o = 1 then
dx1 = thickEdge
dx2 = thickFrame
else
dx1 = thickFrame
dx2 = thickFrame
endif
if o = iNumFramesA-1 then
dx1 = thickFrame
dx2 = thickEdge
endif
if e = 1 then
dy1 = thickEdge
dy2 = thickFrame
else
dy1 = thickFrame
dy2 = thickFrame
endif
if e = iNumFramesB-1 then
dy1 = thickFrame
dy2 = thickEdge
endif
put xCoordFrames[o]+dx1/2,yCoordFrames[e]+dy1/2,15,
xCoordFrames[o+1]-dx2/2,yCoordFrames[e]+dy1/2,15,
xCoordFrames[o+1]-dx2/2,yCoordFrames[e+1]-dy2/2,15,
xCoordFrames[o]+dx1/2,yCoordFrames[e+1]-dy2/2,15,
xCoordFrames[o]+dx1/2,yCoordFrames[e]+dy1/2,-1
next e
next o
if ifx1 = 0 then
mask1 = 13
mask4 = 8
else
mask1 = 15
mask4 = 15
endif
if ifx2 = 0 then
mask2 = 8
mask3 = 13
else
mask2 = 15
mask3 = 15
endif
addz yCoordEdges[1]
body 1
if bFilling <> 0 then
material gs_glass_mat
sect_fill gs_fillGlass, gs_penGlass_bg, gs_penGlass_fg, gs_cont_pen
r = (iNumFramesA-1)*(iNumFramesB-1)
addz (yCoordEdges[2]-yCoordEdges[1]-thickFilling)/2
for k = 1 to r step 1
prism_ 5, thickFilling,
get (15)
next k
body 1
del 1
endif
del 3
return
! -----------------------------------------------------------------------------
! Horizontal
! -----------------------------------------------------------------------------
1:
material gs_frame_mat
sect_fill gs_fill_type, gs_back_pen, gs_fill_pen, gs_cont_pen
if u <= 0 or w <= 0 then
prism_ 5, zCoordEdges[2]-zCoordEdges[1],
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, -1
end
endif
gosub 100
gs_SashText_typ = `Type 1`
put xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 10,
xCoordFrames[1]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 15
if iNumFramesB > 2 then
for kj = 2 to iNumFramesB-1
put xCoordFrames[1]+thickEdge/2, yCoordFrames[kj]-thickFrame/2, 10,
xCoordFrames[1]+thickEdge/2, yCoordFrames[kj]+thickFrame/2, 15
next kj
endif
put xCoordFrames[1]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 15
if iNumFramesB > 2 then
for kj = 2 to iNumFramesB-1
put xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[kj]-thickFrame/2, 10,
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[kj]+thickFrame/2, 15
next kj
endif
put xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 10,
xCoordFrames[1]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 15
if iNumFramesA > 2 then
for ij = 2 to iNumFramesA-1
put xCoordFrames[ij]-thickFrame/2, yCoordFrames[1]+thickEdge/2, 10,
xCoordFrames[ij]+thickFrame/2, yCoordFrames[1]+thickEdge/2, 15
next ij
endif
put xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 10,
xCoordFrames[1]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 15
if iNumFramesA > 2 then
for ij = 2 to iNumFramesA-1
put xCoordFrames[ij]-thickFrame/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[ij]+thickFrame/2, yCoordFrames[iNumFramesB]-thickEdge/2, 15
next ij
endif
put xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15
! -------------------------------------------------------------------------
if gs_SashText_typ = `Type 1` then
base
prism_ 4+((iNumFramesB-2)*2),zCoordEdges[2]-zCoordEdges[1],
get ((iNumFramesB-2)*6+12)
prism_ 4+((iNumFramesB-2)*2),zCoordEdges[2]-zCoordEdges[1],
get ((iNumFramesB-2)*6+12)
vert 0, 0, 0
vert 0, 1, 0
vert 0, 0, 1
vert 1, 0, 0
coor 5, -1, -2, -3, -4
body 1
base
prism_ 4+((iNumFramesA-2)*2),zCoordEdges[2]-zCoordEdges[1],
get ((iNumFramesA-2)*6+12)
prism_ 4+((iNumFramesA-2)*2),zCoordEdges[2]-zCoordEdges[1],
get ((iNumFramesA-2)*6+12)
vert 0, 0, 0
vert 1, 0, 0
vert 0, 0, 1
vert 0, 1, 0
coor 5, -1, -2, -3, -4
body 1
endif
if gs_SashText_typ = `Type 2` then
base
prism_ 6+((iNumFramesB-2)*2),zCoordEdges[2]-zCoordEdges[1],
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 8,
xCoordFrames[1]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 15,
get((iNumFramesB-2)*6),
xCoordFrames[1]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 13,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15
prism_ 6+((iNumFramesB-2)*2),zCoordEdges[2]-zCoordEdges[1],
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 8,
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 15,
get((iNumFramesB-2)*6),
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 13,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15
vert 0, 0, 0
vert 0, 1, 0
vert 0, 0, 1
vert 1, 0, 0
coor 5, -1, -2, -3, -4
body 1
base
prism_ 6+((iNumFramesA-2)*2),zCoordEdges[2]-zCoordEdges[1],
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 8,
xCoordFrames[1]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 15,
get((iNumFramesA-2)*6),
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 13,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 15
prism_ 6+((iNumFramesA-2)*2),zCoordEdges[2]-zCoordEdges[1],
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 8,
xCoordFrames[1]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 15,
get((iNumFramesA-2)*6),
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 13,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15
vert 0, 0, 0
vert 1, 0, 0
vert 0, 0, 1
vert 0, 1, 0
coor 5, -1, -2, -3, -4
body 1
endif
! --- Both in type1 and type 2 / inner grids ---
for ij = 2 to iNumFramesA-1
for kj = 2 to iNumFramesB-1
put xCoordFrames[ij]-thickFrame/2, yCoordFrames[kj]-thickFrame/2, 10,
xCoordFrames[ij]-thickFrame/2, yCoordFrames[kj]+thickFrame/2, 15
next kj
put xCoordFrames[ij]-thickFrame/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[ij]+thickFrame/2, yCoordFrames[iNumFramesB]-thickEdge/2, 15
for kj = iNumFramesB-1 to 2 step -1
put xCoordFrames[ij]+thickFrame/2, yCoordFrames[kj]+thickFrame/2, 10,
xCoordFrames[ij]+thickFrame/2, yCoordFrames[kj]-thickFrame/2, 15
next kj
put xCoordFrames[ij]+thickFrame/2, yCoordFrames[1]+thickEdge/2, 10,
xCoordFrames[ij]-thickFrame/2, yCoordFrames[1]+thickEdge/2, 15
next ij
if iNumFramesA > 2 then parn = (nsp/3)/(iNumFramesA-2) else parn = 0
if iNumFramesA > 2 then outst = nsp/(iNumFramesA-2) else outst = 0
for ij = 2 to iNumFramesA-1
base
prism_ parn,zCoordEdges[2]-zCoordEdges[1],
get(outst)
vert 0, 0, 0
vert 0, 1, 0
vert 0, 0, 1
vert 1, 0, 0
coor 5, -1, -2, -3, -4
body 1
next ij
for ij = 1 to iNumFramesA-1
if ij = 1 or ij = iNumFramesA-1 then
if ij = 1 then
dx1 = thickEdge
dx2 = thickFrame
else
dx1 = thickFrame
dx2 = thickEdge
endif
else
dx1 = thickFrame
dx2 = thickFrame
endif
for kj = 2 to iNumFramesB-1
base
prism_ 4,zCoordEdges[2]-zCoordEdges[1],
xCoordFrames[ij]+dx1/2, yCoordFrames[kj]-thickFrame/2, 10,
xCoordFrames[ij]+dx1/2, yCoordFrames[kj]+thickFrame/2, 15,
xCoordFrames[ij+1]-dx2/2, yCoordFrames[kj]+thickFrame/2, 10,
xCoordFrames[ij+1]-dx2/2, yCoordFrames[kj]-thickFrame/2, 15
vert 0, 0, 0
vert 1, 0, 0
vert 0, 0, 1
vert 0, 1, 0
coor 5, -1, -2, -3, -4
body 1
next kj
next ij
for o = 1 to iNumFramesA-1 step 1
for e = 1 to iNumFramesB-1 step 1
if o = 1 then
dx1 = thickEdge
dx2 = thickFrame
else
dx1 = thickFrame
dx2 = thickFrame
endif
if o = iNumFramesA-1 then
dx1 = thickFrame
dx2 = thickEdge
endif
if e = 1 then
dy1 = thickEdge
dy2 = thickFrame
else
dy1 = thickFrame
dy2 = thickFrame
endif
if e = iNumFramesB-1 then
dy1 = thickFrame
dy2 = thickEdge
endif
put xCoordFrames[o]+dx1/2,yCoordFrames[e]+dy1/2,15,
xCoordFrames[o+1]-dx2/2,yCoordFrames[e]+dy1/2,15,
xCoordFrames[o+1]-dx2/2,yCoordFrames[e+1]-dy2/2,15,
xCoordFrames[o]+dx1/2,yCoordFrames[e+1]-dy2/2,15,
xCoordFrames[o]+dx1/2,yCoordFrames[e]+dy1/2,-1
next e
next o
body 1
if bFilling <> 0 then
material gs_glass_mat
sect_fill gs_fillGlass, gs_penGlass_bg, gs_penGlass_fg, gs_cont_pen
r = (iNumFramesA-1)*(iNumFramesB-1)
addz (zCoordEdges[2]-zCoordEdges[1]-thickFilling)/2
for k = 1 to r step 1
prism_ 5,thickFilling,
get (15)
next k
del 1
endif
return
! -----------------------------------------------------------------------------
! hotspot editing for Horizontal
! -----------------------------------------------------------------------------
100:
for k0 = 1 to 2
for k1 = 1 to 2
hotspot 0, yCoordEdges[k1],zCoordEdges[k0],unID,a,1+256:unID=unID+1
hotspot -1, yCoordEdges[k1],zCoordEdges[k0],unID,a,3 :unID=unID+1
hotspot a, yCoordEdges[k1],zCoordEdges[k0],unID,a,2 :unID=unID+1
next k1
next k0
for k0 = 1 to 2
for k1 = 1 to 2
hotspot a*(k1-1),0,zCoordEdges[k0],unID,b,1+128:unID=unID+1
hotspot a*(k1-1),-1,zCoordEdges[k0],unID,b,3 :unID=unID+1
hotspot a*(k1-1),b,zCoordEdges[k0],unID,b,2 :unID=unID+1
next k1
next k0
for k0 = 1 to 2
for k1 = 1 to 2
hotspot xCoordEdges[k1],yCoordEdges[k0],0,unID,ZZYZX,1+256:unID=unID+1
hotspot xCoordEdges[k1],yCoordEdges[k0],-1,unID,ZZYZX,3 :unID=unID+1
hotspot xCoordEdges[k1],yCoordEdges[k0],ZZYZX,unID,ZZYZX,2 :unID=unID+1
next k1
next k0
xCoordFrames[1] = xCoordEdges[1] + thickEdge/2
xCoordFrames[iNumFramesA] = xCoordEdges[2] - thickEdge/2
yCoordFrames[1] = yCoordEdges[1] + thickEdge/2
yCoordFrames[iNumFramesB] = yCoordEdges[2] - thickEdge/2
for k = 2 to iNumFramesA-1
hotspot 0,yCoordFrames[1],(zCoordEdges[2]-zCoordEdges[1])/2,unID, xCoordFrames[k], 1+128 :unID=unID+1
hotspot -1,yCoordFrames[1],(zCoordEdges[2]-zCoordEdges[1])/2, unID, xCoordFrames[k], 3 :unID=unID+1
hotspot xCoordFrames[k],yCoordFrames[1],(zCoordEdges[2]-zCoordEdges[1])/2, unID, xCoordFrames[k], 2 :unID=unID+1
hotspot 0,yCoordFrames[iNumFramesB],(zCoordEdges[2]-zCoordEdges[1])/2, unID, xCoordFrames[k], 1+128 :unID=unID+1
hotspot -1,yCoordFrames[iNumFramesB],(zCoordEdges[2]-zCoordEdges[1])/2, unID, xCoordFrames[k], 3 :unID=unID+1
hotspot xCoordFrames[k],yCoordFrames[iNumFramesB],(zCoordEdges[2]-zCoordEdges[1])/2,unID, xCoordFrames[k], 2 :unID=unID+1
next k
for k = 2 to iNumFramesB-1
hotspot xCoordFrames[1],0,(zCoordEdges[2]-zCoordEdges[1])/2, unID, yCoordFrames[k], 1+128 :unID=unID+1
hotspot xCoordFrames[1],-1,(zCoordEdges[2]-zCoordEdges[1])/2, unID, yCoordFrames[k], 3 :unID=unID+1
hotspot xCoordFrames[1],yCoordFrames[k],(zCoordEdges[2]-zCoordEdges[1])/2, unID, yCoordFrames[k], 2 :unID=unID+1
hotspot xCoordFrames[iNumFramesA],0,(zCoordEdges[2]-zCoordEdges[1])/2, unID, yCoordFrames[k], 1+128 :unID=unID+1
hotspot xCoordFrames[iNumFramesA],-1,(zCoordEdges[2]-zCoordEdges[1])/2, unID, yCoordFrames[k], 3 :unID=unID+1
hotspot xCoordFrames[iNumFramesA],yCoordFrames[k],(zCoordEdges[2]-zCoordEdges[1])/2, unID, yCoordFrames[k], 2 :unID=unID+1
next k
return
! -----------------------------------------------------------------------------
! hotspot editing for Vertical
! -----------------------------------------------------------------------------
200:
for k0 = 1 to 2
for k1 = 1 to 2
hotspot 0, zCoordEdges[k0], yCoordEdges[k1], unID, a, 1+256 :unID=unID+1
hotspot -1, zCoordEdges[k0], yCoordEdges[k1], unID, a, 3 :unID=unID+1
hotspot a, zCoordEdges[k0], yCoordEdges[k1], unID, a, 2 :unID=unID+1
next k1
next k0
addy ZZYZX
muly -1
for k0 = 1 to 2
for k1 = 1 to 2
hotspot a*(k0-1), 0, yCoordEdges[k1], unID, ZZYZX, 1+256 :unID=unID+1
hotspot a*(k0-1), -1, yCoordEdges[k1], unID, ZZYZX, 3 :unID=unID+1
hotspot a*(k0-1), ZZYZX, yCoordEdges[k1], unID, ZZYZX, 2 :unID=unID+1
next k1
next k0
del 2
for k0 = 1 to 2
for k1 = 1 to 2
hotspot a*(k1-1), ZZYZX, 0, unID, b, 1+256 :unID=unID+1
hotspot a*(k1-1), ZZYZX, -1, unID, b, 3 :unID=unID+1
hotspot a*(k1-1), ZZYZX, b, unID, b, 2 :unID=unID+1
next k1
next k0
xCoordFrames[1] = xCoordEdges[1] + thickEdge/2
xCoordFrames[iNumFramesA] = xCoordEdges[2] - thickEdge/2
yCoordFrames[1] = zCoordEdges[1] + thickEdge/2
yCoordFrames[iNumFramesB] = zCoordEdges[2] - thickEdge/2
for k = 2 to iNumFramesA-1
hotspot 0, yCoordFrames[1],(yCoordEdges[1]+yCoordEdges[2])/2, unID, xCoordFrames[k], 1+128 :unID=unID+1
hotspot -1, yCoordFrames[1],(yCoordEdges[1]+yCoordEdges[2])/2, unID, xCoordFrames[k], 3 :unID=unID+1
hotspot xCoordFrames[k],yCoordFrames[1],(yCoordEdges[1]+yCoordEdges[2])/2, unID, xCoordFrames[k], 2 :unID=unID+1
hotspot 0, yCoordFrames[iNumFramesB],(yCoordEdges[1]+yCoordEdges[2])/2, unID, xCoordFrames[k], 1+128 :unID=unID+1
hotspot -1, yCoordFrames[iNumFramesB],(yCoordEdges[1]+yCoordEdges[2])/2, unID, xCoordFrames[k], 3 :unID=unID+1
hotspot xCoordFrames[k],yCoordFrames[iNumFramesB],(yCoordEdges[1]+yCoordEdges[2])/2, unID, xCoordFrames[k], 2 :unID=unID+1
next k
for k = 2 to iNumFramesB-1
hotspot xCoordFrames[1], 0,(yCoordEdges[1]+yCoordEdges[2])/2, unID, yCoordFrames[k], 1+128 :unID=unID+1
hotspot xCoordFrames[1], -1,(yCoordEdges[1]+yCoordEdges[2])/2, unID, yCoordFrames[k], 3 :unID=unID+1
hotspot xCoordFrames[1],yCoordFrames[k],(yCoordEdges[1]+yCoordEdges[2])/2, unID, yCoordFrames[k], 2 :unID=unID+1
hotspot xCoordFrames[iNumFramesA], 0,(yCoordEdges[1]+yCoordEdges[2])/2, unID, yCoordFrames[k], 1+128 :unID=unID+1
hotspot xCoordFrames[iNumFramesA], -1,(yCoordEdges[1]+yCoordEdges[2])/2, unID, yCoordFrames[k], 3 :unID=unID+1
hotspot xCoordFrames[iNumFramesA],yCoordFrames[k],(yCoordEdges[1]+yCoordEdges[2])/2, unID, yCoordFrames[k], 2 :unID=unID+1
next k
return
Merci(lk) d'avance
Dernière édition par Farkas le Lun 30 Mai 2016 - 5:49, édité 2 fois
-------------------------------------------------------------------------------------------------------------------------
Farkas se prononce fɔʁkɔʃ
HackBook Pro -- MSI GP72VR 7RF -- Intel i7 7700HG -- Intel HD630 + GTX 1060 (4Go) -- Mac OS 11.5 / Windows 10
Alienware x17 R2 -- Intel i7 12700H -- 64 Go -- RTX 3080 Ti -- Windows 11
Le del 3 de ta ligne 5 ( une ligne vide compte pour 1) annulé les 3 modifications de coordonnées précédentes. .. Il doit donc être placé après les lignes de script qui créent la 3d. La tu te deplaces, tu reviens à ton point de départ et ensuite tu crées ta 3d... normal que ça ne change rien
-------------------------------------------------------------------------------------------------------------------------
Programmeur et formateur GDL à BIM Services
Président-modélisateur de PatrimoineVirtuel
PC fixe : Windows 10 64bit - I7 6900K 8 cœurs 3.7Ghz - 32Go RAM - Geforce GTX 1070
PC portable : hp ZBook - Windows 10 64bit Pro - I7 7820HQ 4 cœurs 2.9Ghz - 16Go RAM - Quatro M1200
ArchiCAD 10 à 20 - GDL - AutoCAD 2D
- FarkasAdministrateurs
- Humeur : C'est bon le sirop d'érable
Date d'inscription : 29/11/2012
Nombre de messages : 4419
Points : 8668
Age : 38
Localisation : Canada
Emploi : Architecte
J'ai donc replacé le DEL3 à la fin de la première partie comme ceci et ça semble fonctionner !Silk37 a écrit:Le del 3 de ta ligne 5 ( une ligne vide compte pour 1) annulé les 3 modifications de coordonnées précédentes. .. Il doit donc être placé après les lignes de script qui créent la 3d. La tu te deplaces, tu reviens à ton point de départ et ensuite tu crées ta 3d... normal que ça ne change rien
- Code:
RotX Xrotang
RotY Yrotang
RotZ Zrotang
gs_fill_type = gs_fill_type * gs_bFills
gs_fill_pen = gs_fill_pen * gs_bFills
gs_back_pen = gs_back_pen * gs_bFills
gs_fillGlass = gs_fillGlass * gs_bFills
gs_penGlass_fg = gs_penGlass_fg * gs_bFills
gs_penGlass_bg = gs_penGlass_bg * gs_bFills
gs_fillSdl = gs_fillSdl * gs_bFills
gs_penSdl_fg = gs_penSdl_fg * gs_bFills
gs_penSdl_bg = gs_penSdl_bg * gs_bFills
if gs_detlevel_3D_m = 0 then end
if not(gs_shadow) then shadow off
unID = 1
pen gs_cont_pen
gosub iStyle
DEL 3
end
! =============================================================================
! SUBRUTINES
!
! =============================================================================
! -----------------------------------------------------------------------------
! Vertical
! -----------------------------------------------------------------------------
2:
material gs_frame_mat
sect_fill gs_fill_type, gs_back_pen, gs_fill_pen, gs_cont_pen
rotx 90
addz -B
gosub 200
if u <= 0 or w <= 0 then
addz yCoordEdges[1]
prism_ 5, -yCoordEdges[1] + yCoordEdges[2],
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, -1
del 1
end
endif
gs_SashText_typ = `Type 1`
put xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 10,
xCoordFrames[1]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 15
if iNumFramesB > 2 then
for kj = 2 to iNumFramesB-1
put xCoordFrames[1]+thickEdge/2, yCoordFrames[kj]-thickFrame/2, 10,
xCoordFrames[1]+thickEdge/2, yCoordFrames[kj]+thickFrame/2, 15
next kj
endif
put xCoordFrames[1]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 15
if iNumFramesB > 2 then
for kj = 2 to iNumFramesB-1
put xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[kj]-thickFrame/2, 10,
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[kj]+thickFrame/2, 15
next kj
endif
put xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 10,
xCoordFrames[1]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 15
if iNumFramesA > 2 then
for ij = 2 to iNumFramesA-1
put xCoordFrames[ij]-thickFrame/2, yCoordFrames[1]+thickEdge/2, 10,
xCoordFrames[ij]+thickFrame/2, yCoordFrames[1]+thickEdge/2, 15
next ij
endif
put xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 10,
xCoordFrames[1]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 15
if iNumFramesA > 2 then
for ij = 2 to iNumFramesA-1
put xCoordFrames[ij]-thickFrame/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[ij]+thickFrame/2, yCoordFrames[iNumFramesB]-thickEdge/2, 15
next ij
endif
put xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15
! -------------------------------------------------------------------------
if gs_SashText_typ = `Type 1` then
base
prism_ 4+((iNumFramesB-2)*2),-yCoordEdges[1]+yCoordEdges[2],
get ((iNumFramesB-2)*6+12)
prism_ 4+((iNumFramesB-2)*2),-yCoordEdges[1]+yCoordEdges[2],
get ((iNumFramesB-2)*6+12)
vert 0, 0, 0
vert 0, 1, 0
vert 0, 0, 1
vert 1, 0, 0
coor 5, -1, -2, -3, -4
body 1
base
prism_ 4+((iNumFramesA-2)*2),-yCoordEdges[1]+yCoordEdges[2],
get ((iNumFramesA-2)*6+12)
prism_ 4+((iNumFramesA-2)*2),-yCoordEdges[1]+yCoordEdges[2],
get ((iNumFramesA-2)*6+12)
vert 0, 0, 0
vert 1, 0, 0
vert 0, 0, 1
vert 0, 1, 0
coor 5, -1, -2, -3, -4
body 1
endif
if gs_SashText_typ = `Type 2` then
base
prism_ 6+((iNumFramesB-2)*2),-yCoordEdges[1]+yCoordEdges[2],
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 8,
xCoordFrames[1]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 15,
get((iNumFramesB-2)*6),
xCoordFrames[1]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 13,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15
prism_ 6+((iNumFramesB-2)*2),-yCoordEdges[1]+yCoordEdges[2],
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 8,
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 15,
get((iNumFramesB-2)*6),
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 13,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15
vert 0, 0, 0
vert 0, 1, 0
vert 0, 0, 1
vert 1, 0, 0
coor 5, -1, -2, -3, -4
body 1
base
prism_ 6+((iNumFramesA-2)*2),-yCoordEdges[1]+yCoordEdges[2],
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 8,
xCoordFrames[1]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 15,
get((iNumFramesA-2)*6),
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 13,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 15
prism_ 6+((iNumFramesA-2)*2),-yCoordEdges[1]+yCoordEdges[2],
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 8,
xCoordFrames[1]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 15,
get((iNumFramesA-2)*6),
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 13,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15
vert 0, 0, 0
vert 1, 0, 0
vert 0, 0, 1
vert 0, 1, 0
coor 5, -1, -2, -3, -4
body 1
endif
! --- Both in type1 and type 2 / inner grids ---
for ij = 2 to iNumFramesA-1
for kj = 2 to iNumFramesB-1
put xCoordFrames[ij]-thickFrame/2, yCoordFrames[kj]-thickFrame/2, 10,
xCoordFrames[ij]-thickFrame/2, yCoordFrames[kj]+thickFrame/2, 15
next kj
put xCoordFrames[ij]-thickFrame/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[ij]+thickFrame/2, yCoordFrames[iNumFramesB]-thickEdge/2, 15
for kj = iNumFramesB-1 to 2 step -1
put xCoordFrames[ij]+thickFrame/2, yCoordFrames[kj]+thickFrame/2, 10,
xCoordFrames[ij]+thickFrame/2, yCoordFrames[kj]-thickFrame/2, 15
next kj
put xCoordFrames[ij]+thickFrame/2, yCoordFrames[1]+thickEdge/2, 10,
xCoordFrames[ij]-thickFrame/2, yCoordFrames[1]+thickEdge/2, 15
next ij
if iNumFramesA > 2 then parn = (nsp/3)/(iNumFramesA-2) else parn = 0
if iNumFramesA > 2 then outst = nsp/(iNumFramesA-2) else outst = 0
for ij = 2 to iNumFramesA-1
base
prism_ parn,-yCoordEdges[1]+yCoordEdges[2],
get(outst)
vert 0, 0, 0
vert 0, 1, 0
vert 0, 0, 1
vert 1, 0, 0
coor 5, -1, -2, -3, -4
body 1
next ij
for ij = 1 to iNumFramesA-1
if ij = 1 or ij = iNumFramesA-1 then
if ij = 1 then
dx1 = thickEdge
dx2 = thickFrame
else
dx1 = thickFrame
dx2 = thickEdge
endif
else
dx1 = thickFrame
dx2 = thickFrame
endif
for kj = 2 to iNumFramesB-1
base
prism_ 4,-yCoordEdges[1]+yCoordEdges[2],
xCoordFrames[ij]+dx1/2, yCoordFrames[kj]-thickFrame/2, 10,
xCoordFrames[ij]+dx1/2, yCoordFrames[kj]+thickFrame/2, 15,
xCoordFrames[ij+1]-dx2/2, yCoordFrames[kj]+thickFrame/2, 10,
xCoordFrames[ij+1]-dx2/2, yCoordFrames[kj]-thickFrame/2, 15
vert 0, 0, 0
vert 1, 0, 0
vert 0, 0, 1
vert 0, 1, 0
coor 5, -1, -2, -3, -4
body 1
next kj
next ij
for o = 1 to iNumFramesA-1 step 1
for e = 1 to iNumFramesB-1 step 1
if o = 1 then
dx1 = thickEdge
dx2 = thickFrame
else
dx1 = thickFrame
dx2 = thickFrame
endif
if o = iNumFramesA-1 then
dx1 = thickFrame
dx2 = thickEdge
endif
if e = 1 then
dy1 = thickEdge
dy2 = thickFrame
else
dy1 = thickFrame
dy2 = thickFrame
endif
if e = iNumFramesB-1 then
dy1 = thickFrame
dy2 = thickEdge
endif
put xCoordFrames[o]+dx1/2,yCoordFrames[e]+dy1/2,15,
xCoordFrames[o+1]-dx2/2,yCoordFrames[e]+dy1/2,15,
xCoordFrames[o+1]-dx2/2,yCoordFrames[e+1]-dy2/2,15,
xCoordFrames[o]+dx1/2,yCoordFrames[e+1]-dy2/2,15,
xCoordFrames[o]+dx1/2,yCoordFrames[e]+dy1/2,-1
next e
next o
if ifx1 = 0 then
mask1 = 13
mask4 = 8
else
mask1 = 15
mask4 = 15
endif
if ifx2 = 0 then
mask2 = 8
mask3 = 13
else
mask2 = 15
mask3 = 15
endif
addz yCoordEdges[1]
body 1
if bFilling <> 0 then
material gs_glass_mat
sect_fill gs_fillGlass, gs_penGlass_bg, gs_penGlass_fg, gs_cont_pen
r = (iNumFramesA-1)*(iNumFramesB-1)
addz (yCoordEdges[2]-yCoordEdges[1]-thickFilling)/2
for k = 1 to r step 1
prism_ 5, thickFilling,
get (15)
next k
body 1
del 1
endif
del 3
return
! -----------------------------------------------------------------------------
! Horizontal
! -----------------------------------------------------------------------------
1:
material gs_frame_mat
sect_fill gs_fill_type, gs_back_pen, gs_fill_pen, gs_cont_pen
if u <= 0 or w <= 0 then
prism_ 5, zCoordEdges[2]-zCoordEdges[1],
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, -1
end
endif
gosub 100
gs_SashText_typ = `Type 1`
put xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 10,
xCoordFrames[1]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 15
if iNumFramesB > 2 then
for kj = 2 to iNumFramesB-1
put xCoordFrames[1]+thickEdge/2, yCoordFrames[kj]-thickFrame/2, 10,
xCoordFrames[1]+thickEdge/2, yCoordFrames[kj]+thickFrame/2, 15
next kj
endif
put xCoordFrames[1]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 15
if iNumFramesB > 2 then
for kj = 2 to iNumFramesB-1
put xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[kj]-thickFrame/2, 10,
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[kj]+thickFrame/2, 15
next kj
endif
put xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 10,
xCoordFrames[1]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 15
if iNumFramesA > 2 then
for ij = 2 to iNumFramesA-1
put xCoordFrames[ij]-thickFrame/2, yCoordFrames[1]+thickEdge/2, 10,
xCoordFrames[ij]+thickFrame/2, yCoordFrames[1]+thickEdge/2, 15
next ij
endif
put xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 10,
xCoordFrames[1]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 15
if iNumFramesA > 2 then
for ij = 2 to iNumFramesA-1
put xCoordFrames[ij]-thickFrame/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[ij]+thickFrame/2, yCoordFrames[iNumFramesB]-thickEdge/2, 15
next ij
endif
put xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15
! -------------------------------------------------------------------------
if gs_SashText_typ = `Type 1` then
base
prism_ 4+((iNumFramesB-2)*2),zCoordEdges[2]-zCoordEdges[1],
get ((iNumFramesB-2)*6+12)
prism_ 4+((iNumFramesB-2)*2),zCoordEdges[2]-zCoordEdges[1],
get ((iNumFramesB-2)*6+12)
vert 0, 0, 0
vert 0, 1, 0
vert 0, 0, 1
vert 1, 0, 0
coor 5, -1, -2, -3, -4
body 1
base
prism_ 4+((iNumFramesA-2)*2),zCoordEdges[2]-zCoordEdges[1],
get ((iNumFramesA-2)*6+12)
prism_ 4+((iNumFramesA-2)*2),zCoordEdges[2]-zCoordEdges[1],
get ((iNumFramesA-2)*6+12)
vert 0, 0, 0
vert 1, 0, 0
vert 0, 0, 1
vert 0, 1, 0
coor 5, -1, -2, -3, -4
body 1
endif
if gs_SashText_typ = `Type 2` then
base
prism_ 6+((iNumFramesB-2)*2),zCoordEdges[2]-zCoordEdges[1],
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 8,
xCoordFrames[1]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 15,
get((iNumFramesB-2)*6),
xCoordFrames[1]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 13,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15
prism_ 6+((iNumFramesB-2)*2),zCoordEdges[2]-zCoordEdges[1],
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 8,
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 15,
get((iNumFramesB-2)*6),
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 13,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15
vert 0, 0, 0
vert 0, 1, 0
vert 0, 0, 1
vert 1, 0, 0
coor 5, -1, -2, -3, -4
body 1
base
prism_ 6+((iNumFramesA-2)*2),zCoordEdges[2]-zCoordEdges[1],
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]-thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 8,
xCoordFrames[1]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 15,
get((iNumFramesA-2)*6),
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[1]+thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]+thickEdge/2, 13,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[1]-thickEdge/2, 15
prism_ 6+((iNumFramesA-2)*2),zCoordEdges[2]-zCoordEdges[1],
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15,
xCoordFrames[1]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 8,
xCoordFrames[1]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 15,
get((iNumFramesA-2)*6),
xCoordFrames[iNumFramesA]-thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]-thickEdge/2, 13,
xCoordFrames[iNumFramesA]+thickEdge/2, yCoordFrames[iNumFramesB]+thickEdge/2, 15
vert 0, 0, 0
vert 1, 0, 0
vert 0, 0, 1
vert 0, 1, 0
coor 5, -1, -2, -3, -4
body 1
endif
! --- Both in type1 and type 2 / inner grids ---
for ij = 2 to iNumFramesA-1
for kj = 2 to iNumFramesB-1
put xCoordFrames[ij]-thickFrame/2, yCoordFrames[kj]-thickFrame/2, 10,
xCoordFrames[ij]-thickFrame/2, yCoordFrames[kj]+thickFrame/2, 15
next kj
put xCoordFrames[ij]-thickFrame/2, yCoordFrames[iNumFramesB]-thickEdge/2, 10,
xCoordFrames[ij]+thickFrame/2, yCoordFrames[iNumFramesB]-thickEdge/2, 15
for kj = iNumFramesB-1 to 2 step -1
put xCoordFrames[ij]+thickFrame/2, yCoordFrames[kj]+thickFrame/2, 10,
xCoordFrames[ij]+thickFrame/2, yCoordFrames[kj]-thickFrame/2, 15
next kj
put xCoordFrames[ij]+thickFrame/2, yCoordFrames[1]+thickEdge/2, 10,
xCoordFrames[ij]-thickFrame/2, yCoordFrames[1]+thickEdge/2, 15
next ij
if iNumFramesA > 2 then parn = (nsp/3)/(iNumFramesA-2) else parn = 0
if iNumFramesA > 2 then outst = nsp/(iNumFramesA-2) else outst = 0
for ij = 2 to iNumFramesA-1
base
prism_ parn,zCoordEdges[2]-zCoordEdges[1],
get(outst)
vert 0, 0, 0
vert 0, 1, 0
vert 0, 0, 1
vert 1, 0, 0
coor 5, -1, -2, -3, -4
body 1
next ij
for ij = 1 to iNumFramesA-1
if ij = 1 or ij = iNumFramesA-1 then
if ij = 1 then
dx1 = thickEdge
dx2 = thickFrame
else
dx1 = thickFrame
dx2 = thickEdge
endif
else
dx1 = thickFrame
dx2 = thickFrame
endif
for kj = 2 to iNumFramesB-1
base
prism_ 4,zCoordEdges[2]-zCoordEdges[1],
xCoordFrames[ij]+dx1/2, yCoordFrames[kj]-thickFrame/2, 10,
xCoordFrames[ij]+dx1/2, yCoordFrames[kj]+thickFrame/2, 15,
xCoordFrames[ij+1]-dx2/2, yCoordFrames[kj]+thickFrame/2, 10,
xCoordFrames[ij+1]-dx2/2, yCoordFrames[kj]-thickFrame/2, 15
vert 0, 0, 0
vert 1, 0, 0
vert 0, 0, 1
vert 0, 1, 0
coor 5, -1, -2, -3, -4
body 1
next kj
next ij
for o = 1 to iNumFramesA-1 step 1
for e = 1 to iNumFramesB-1 step 1
if o = 1 then
dx1 = thickEdge
dx2 = thickFrame
else
dx1 = thickFrame
dx2 = thickFrame
endif
if o = iNumFramesA-1 then
dx1 = thickFrame
dx2 = thickEdge
endif
if e = 1 then
dy1 = thickEdge
dy2 = thickFrame
else
dy1 = thickFrame
dy2 = thickFrame
endif
if e = iNumFramesB-1 then
dy1 = thickFrame
dy2 = thickEdge
endif
put xCoordFrames[o]+dx1/2,yCoordFrames[e]+dy1/2,15,
xCoordFrames[o+1]-dx2/2,yCoordFrames[e]+dy1/2,15,
xCoordFrames[o+1]-dx2/2,yCoordFrames[e+1]-dy2/2,15,
xCoordFrames[o]+dx1/2,yCoordFrames[e+1]-dy2/2,15,
xCoordFrames[o]+dx1/2,yCoordFrames[e]+dy1/2,-1
next e
next o
body 1
if bFilling <> 0 then
material gs_glass_mat
sect_fill gs_fillGlass, gs_penGlass_bg, gs_penGlass_fg, gs_cont_pen
r = (iNumFramesA-1)*(iNumFramesB-1)
addz (zCoordEdges[2]-zCoordEdges[1]-thickFilling)/2
for k = 1 to r step 1
prism_ 5,thickFilling,
get (15)
next k
del 1
endif
return
! -----------------------------------------------------------------------------
! hotspot editing for Horizontal
! -----------------------------------------------------------------------------
100:
for k0 = 1 to 2
for k1 = 1 to 2
hotspot 0, yCoordEdges[k1],zCoordEdges[k0],unID,a,1+256:unID=unID+1
hotspot -1, yCoordEdges[k1],zCoordEdges[k0],unID,a,3 :unID=unID+1
hotspot a, yCoordEdges[k1],zCoordEdges[k0],unID,a,2 :unID=unID+1
next k1
next k0
for k0 = 1 to 2
for k1 = 1 to 2
hotspot a*(k1-1),0,zCoordEdges[k0],unID,b,1+128:unID=unID+1
hotspot a*(k1-1),-1,zCoordEdges[k0],unID,b,3 :unID=unID+1
hotspot a*(k1-1),b,zCoordEdges[k0],unID,b,2 :unID=unID+1
next k1
next k0
for k0 = 1 to 2
for k1 = 1 to 2
hotspot xCoordEdges[k1],yCoordEdges[k0],0,unID,ZZYZX,1+256:unID=unID+1
hotspot xCoordEdges[k1],yCoordEdges[k0],-1,unID,ZZYZX,3 :unID=unID+1
hotspot xCoordEdges[k1],yCoordEdges[k0],ZZYZX,unID,ZZYZX,2 :unID=unID+1
next k1
next k0
xCoordFrames[1] = xCoordEdges[1] + thickEdge/2
xCoordFrames[iNumFramesA] = xCoordEdges[2] - thickEdge/2
yCoordFrames[1] = yCoordEdges[1] + thickEdge/2
yCoordFrames[iNumFramesB] = yCoordEdges[2] - thickEdge/2
for k = 2 to iNumFramesA-1
hotspot 0,yCoordFrames[1],(zCoordEdges[2]-zCoordEdges[1])/2,unID, xCoordFrames[k], 1+128 :unID=unID+1
hotspot -1,yCoordFrames[1],(zCoordEdges[2]-zCoordEdges[1])/2, unID, xCoordFrames[k], 3 :unID=unID+1
hotspot xCoordFrames[k],yCoordFrames[1],(zCoordEdges[2]-zCoordEdges[1])/2, unID, xCoordFrames[k], 2 :unID=unID+1
hotspot 0,yCoordFrames[iNumFramesB],(zCoordEdges[2]-zCoordEdges[1])/2, unID, xCoordFrames[k], 1+128 :unID=unID+1
hotspot -1,yCoordFrames[iNumFramesB],(zCoordEdges[2]-zCoordEdges[1])/2, unID, xCoordFrames[k], 3 :unID=unID+1
hotspot xCoordFrames[k],yCoordFrames[iNumFramesB],(zCoordEdges[2]-zCoordEdges[1])/2,unID, xCoordFrames[k], 2 :unID=unID+1
next k
for k = 2 to iNumFramesB-1
hotspot xCoordFrames[1],0,(zCoordEdges[2]-zCoordEdges[1])/2, unID, yCoordFrames[k], 1+128 :unID=unID+1
hotspot xCoordFrames[1],-1,(zCoordEdges[2]-zCoordEdges[1])/2, unID, yCoordFrames[k], 3 :unID=unID+1
hotspot xCoordFrames[1],yCoordFrames[k],(zCoordEdges[2]-zCoordEdges[1])/2, unID, yCoordFrames[k], 2 :unID=unID+1
hotspot xCoordFrames[iNumFramesA],0,(zCoordEdges[2]-zCoordEdges[1])/2, unID, yCoordFrames[k], 1+128 :unID=unID+1
hotspot xCoordFrames[iNumFramesA],-1,(zCoordEdges[2]-zCoordEdges[1])/2, unID, yCoordFrames[k], 3 :unID=unID+1
hotspot xCoordFrames[iNumFramesA],yCoordFrames[k],(zCoordEdges[2]-zCoordEdges[1])/2, unID, yCoordFrames[k], 2 :unID=unID+1
next k
return
! -----------------------------------------------------------------------------
! hotspot editing for Vertical
! -----------------------------------------------------------------------------
200:
for k0 = 1 to 2
for k1 = 1 to 2
hotspot 0, zCoordEdges[k0], yCoordEdges[k1], unID, a, 1+256 :unID=unID+1
hotspot -1, zCoordEdges[k0], yCoordEdges[k1], unID, a, 3 :unID=unID+1
hotspot a, zCoordEdges[k0], yCoordEdges[k1], unID, a, 2 :unID=unID+1
next k1
next k0
addy ZZYZX
muly -1
for k0 = 1 to 2
for k1 = 1 to 2
hotspot a*(k0-1), 0, yCoordEdges[k1], unID, ZZYZX, 1+256 :unID=unID+1
hotspot a*(k0-1), -1, yCoordEdges[k1], unID, ZZYZX, 3 :unID=unID+1
hotspot a*(k0-1), ZZYZX, yCoordEdges[k1], unID, ZZYZX, 2 :unID=unID+1
next k1
next k0
del 2
for k0 = 1 to 2
for k1 = 1 to 2
hotspot a*(k1-1), ZZYZX, 0, unID, b, 1+256 :unID=unID+1
hotspot a*(k1-1), ZZYZX, -1, unID, b, 3 :unID=unID+1
hotspot a*(k1-1), ZZYZX, b, unID, b, 2 :unID=unID+1
next k1
next k0
xCoordFrames[1] = xCoordEdges[1] + thickEdge/2
xCoordFrames[iNumFramesA] = xCoordEdges[2] - thickEdge/2
yCoordFrames[1] = zCoordEdges[1] + thickEdge/2
yCoordFrames[iNumFramesB] = zCoordEdges[2] - thickEdge/2
for k = 2 to iNumFramesA-1
hotspot 0, yCoordFrames[1],(yCoordEdges[1]+yCoordEdges[2])/2, unID, xCoordFrames[k], 1+128 :unID=unID+1
hotspot -1, yCoordFrames[1],(yCoordEdges[1]+yCoordEdges[2])/2, unID, xCoordFrames[k], 3 :unID=unID+1
hotspot xCoordFrames[k],yCoordFrames[1],(yCoordEdges[1]+yCoordEdges[2])/2, unID, xCoordFrames[k], 2 :unID=unID+1
hotspot 0, yCoordFrames[iNumFramesB],(yCoordEdges[1]+yCoordEdges[2])/2, unID, xCoordFrames[k], 1+128 :unID=unID+1
hotspot -1, yCoordFrames[iNumFramesB],(yCoordEdges[1]+yCoordEdges[2])/2, unID, xCoordFrames[k], 3 :unID=unID+1
hotspot xCoordFrames[k],yCoordFrames[iNumFramesB],(yCoordEdges[1]+yCoordEdges[2])/2, unID, xCoordFrames[k], 2 :unID=unID+1
next k
for k = 2 to iNumFramesB-1
hotspot xCoordFrames[1], 0,(yCoordEdges[1]+yCoordEdges[2])/2, unID, yCoordFrames[k], 1+128 :unID=unID+1
hotspot xCoordFrames[1], -1,(yCoordEdges[1]+yCoordEdges[2])/2, unID, yCoordFrames[k], 3 :unID=unID+1
hotspot xCoordFrames[1],yCoordFrames[k],(yCoordEdges[1]+yCoordEdges[2])/2, unID, yCoordFrames[k], 2 :unID=unID+1
hotspot xCoordFrames[iNumFramesA], 0,(yCoordEdges[1]+yCoordEdges[2])/2, unID, yCoordFrames[k], 1+128 :unID=unID+1
hotspot xCoordFrames[iNumFramesA], -1,(yCoordEdges[1]+yCoordEdges[2])/2, unID, yCoordFrames[k], 3 :unID=unID+1
hotspot xCoordFrames[iNumFramesA],yCoordFrames[k],(yCoordEdges[1]+yCoordEdges[2])/2, unID, yCoordFrames[k], 2 :unID=unID+1
next k
return
Mersilk bien !
-------------------------------------------------------------------------------------------------------------------------
Farkas se prononce fɔʁkɔʃ
HackBook Pro -- MSI GP72VR 7RF -- Intel i7 7700HG -- Intel HD630 + GTX 1060 (4Go) -- Mac OS 11.5 / Windows 10
Alienware x17 R2 -- Intel i7 12700H -- 64 Go -- RTX 3080 Ti -- Windows 11
Y a pas de quoi
-------------------------------------------------------------------------------------------------------------------------
Programmeur et formateur GDL à BIM Services
Président-modélisateur de PatrimoineVirtuel
PC fixe : Windows 10 64bit - I7 6900K 8 cœurs 3.7Ghz - 32Go RAM - Geforce GTX 1070
PC portable : hp ZBook - Windows 10 64bit Pro - I7 7820HQ 4 cœurs 2.9Ghz - 16Go RAM - Quatro M1200
ArchiCAD 10 à 20 - GDL - AutoCAD 2D
- Contenu sponsorisé
Sujets similaires
Créer un compte ou se connecter pour répondre
Vous devez être membre pour répondre.
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum