Forum Sketchup Artlantis Archicad
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Forum Sketchup Artlantis Archicad

forum d'entraide pour Sketchup Artlantis Archicad Twinmotion Enscape Thearender

Annonces
Bonjour Invité Bienvenue sur le forum biblio3d - le forum a été créé le Sam 19 Jan 2008 - 14:26- Nous avons enregistrés 14730 topics pour un total de : 174847 posts - le record de membres connectés simultanément :555
Galerie


GDL : conflit Xrotang / stStyle Empty
Ton bloc notes
Derniers sujets
» [ SKETCHUP plugins ] Universal Importer
par tenrev Hier à 22:42

» [ SKETCHUP Layout ] Layout 2024 probléme de Style
par tenrev Hier à 22:34

» [ LUMION ] Lumion 2024
par bruno Mer 24 Avr 2024 - 17:26

» [ 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

» [ MATOS INFORM. ] LICENCES ARCHICAD
par yannickniort Jeu 11 Avr 2024 - 15:00

» [ 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

» [ SKETCHUP LIVE COMPONENT ] rendre visible ou invisible un paramètre utilisateur selon des conditions ?
par simjoubert Mar 19 Mar 2024 - 15:38

» [ PRESENTATION ] Manutio
par Manutio Lun 18 Mar 2024 - 9:21

formulaire/diaporama
création d'un diaporama à insérer dans un post
Sondage

Chaine Twitch

GDL : conflit Xrotang / stStyle Poll_c1029%GDL : conflit Xrotang / stStyle Poll_c10 29% [ 11 ]
GDL : conflit Xrotang / stStyle Poll_c1011%GDL : conflit Xrotang / stStyle Poll_c10 11% [ 4 ]
GDL : conflit Xrotang / stStyle Poll_c103%GDL : conflit Xrotang / stStyle Poll_c10 3% [ 1 ]
GDL : conflit Xrotang / stStyle Poll_c108%GDL : conflit Xrotang / stStyle Poll_c10 8% [ 3 ]
GDL : conflit Xrotang / stStyle Poll_c108%GDL : conflit Xrotang / stStyle Poll_c10 8% [ 3 ]
GDL : conflit Xrotang / stStyle Poll_c108%GDL : conflit Xrotang / stStyle Poll_c10 8% [ 3 ]
GDL : conflit Xrotang / stStyle Poll_c1029%GDL : conflit Xrotang / stStyle Poll_c10 29% [ 11 ]
GDL : conflit Xrotang / stStyle Poll_c105%GDL : conflit Xrotang / stStyle Poll_c10 5% [ 2 ]

Total des votes : 38

chaine sketchup.tv
GDL : conflit Xrotang / stStyle Generi11
Serveur Discord
Le Deal du moment : -40%
-40% sur le Pack Gaming Mario PDP Manette filaire + ...
Voir le deal
29.99 €

GDL : conflit Xrotang / stStyle

 :: ARCHICAD :: OBJETS & GDL

Voir le sujet précédent Voir le sujet suivant Aller en bas

resolu GDL : conflit Xrotang / stStyle

#115963
Farkas
Farkas
Administrateurs
Administrateurs
Masculin 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

MessageFarkas Jeu 14 Avr 2016 - 10:45

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.

GDL : conflit Xrotang / stStyle A

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 ?

GDL : conflit Xrotang / stStyle B

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 content


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

resolu Re: GDL : conflit Xrotang / stStyle

#117051
Silk37
Silk37
modérateur
modérateur
Masculin Date d'inscription : 05/05/2013
Nombre de messages : 6091
Points : 12799
Age : 43
Localisation : La Membrolle-sur-Choisille
Emploi : GDListe - Formateur
https://www.facebook.com/PatrimoineVirtuel

MessageSilk37 Mar 24 Mai 2016 - 12:33

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

resolu Re: GDL : conflit Xrotang / stStyle

#117154
Farkas
Farkas
Administrateurs
Administrateurs
Masculin 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

MessageFarkas Lun 30 Mai 2016 - 5:49

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
J'ai donc replacé le DEL3 à la fin de la première partie comme ceci et ça semble fonctionner !

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 ! content

-------------------------------------------------------------------------------------------------------------------------
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

resolu Re: GDL : conflit Xrotang / stStyle

#117155
Silk37
Silk37
modérateur
modérateur
Masculin Date d'inscription : 05/05/2013
Nombre de messages : 6091
Points : 12799
Age : 43
Localisation : La Membrolle-sur-Choisille
Emploi : GDListe - Formateur
https://www.facebook.com/PatrimoineVirtuel

MessageSilk37 Lun 30 Mai 2016 - 7:07

Y a pas de quoi rigole

-------------------------------------------------------------------------------------------------------------------------
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

resolu Re: GDL : conflit Xrotang / stStyle

#0
Contenu sponsorisé

MessageContenu sponsorisé

Voir le sujet précédent Voir le sujet suivant Revenir en haut

Sujets similaires
» Personnage 3D

Créer un compte ou se connecter pour répondre

Vous devez être membre pour répondre.

S'enregistrer

Rejoignez notre communauté ! C'est facile !


S'enregistrer

Connexion

Vous êtes déjà membre ? Aucun soucis, cliquez ici pour vous connecter.


Connexion

Forum Sketchup Artlantis Archicad  :: ARCHICAD :: OBJETS & GDL

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
©phpBB | Contact | Signaler un abus
réglement du forum