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 14811 topics pour un total de : 175700 posts - le record de membres connectés simultanément :555
Galerie


GDL : conflit Xrotang / stStyle Empty
Ton bloc notes
Derniers sujets
» [ ARTLANTIS ] Ca donne envie !
par Gaspard Hauser Hier à 10:00

» [ TWINMOTION ] Unreal Engine déménage sur Fab - DataSmith & Archicad
par Coulou Hier à 9:03

» [ CHALLENGE 2024 ] Challenge architecture extérieure ou paysagiste - AK40Cess - Archicad-Twinmotion
par Coulou Mar 8 Oct 2024 - 11:53

» [ TWINMOTION ] Unreal Engine déménage sur Fab - Assets de Megascan
par JDD Lun 7 Oct 2024 - 21:52

» [ CHALLENGE ARCHITECTURE EXTERIEURE OU PAYSAGISTE ] Démarrage du challenge 2024 - les régles
par tenrev Jeu 3 Oct 2024 - 14:58

» [ ARCHICAD ] Cotation d'ouverture sans hauteur
par Titou Jeu 3 Oct 2024 - 11:21

» [ SKETCHUP généralité ] Aide pour SKP 2017
par PEGASE Mer 2 Oct 2024 - 15:05

» [ ARCHICAD ] - Bardage à claire voie paramétrique
par Fred0079 Mer 2 Oct 2024 - 10:53

» [ CHALLENGE 2024 ] Challenge architecture extérieure ou paysagiste - allansens - cinema 4D
par Allansens Lun 30 Sep 2024 - 10:38

» [ SKETCHUP LIVE COMPONENT ] besoin de tuyaux sur les textures random
par simjoubert Lun 30 Sep 2024 - 0:45

» [ D5_RENDER ] Animation visualisation architecturale
par Gaspard Hauser Jeu 26 Sep 2024 - 16:49

» [ ARCHICAD ] Ajouter du lambris sur un mur
par Patrick Superpat Mer 25 Sep 2024 - 18:20

» [ SKETCHUP LIVE COMPONENT ] Importer une liste de points dans son graphe via un input texte
par simjoubert Mer 25 Sep 2024 - 16:32

» [ ARCHICAD ] Extrémités de Poutres
par Coulou Mer 25 Sep 2024 - 9:54

» [ SKETCHUP LIVE COMPONENT ] chemin courbe défini dans sketchup
par simjoubert Ven 20 Sep 2024 - 20:07

» Bonjour à tous !
par tenrev Lun 16 Sep 2024 - 11:49

» Recherche un dessinateur pour mes produits
par tenrev Lun 16 Sep 2024 - 11:48

» [ SKETCHUP composants dynamiques ]
par simjoubert Dim 15 Sep 2024 - 9:37

» [ CHALLENGE 2024 ]Challenge architecture extérieure ou paysagiste - Nicolaco - Sketchup - Blender - Cycles (ABANDON)
par youyou40 Lun 9 Sep 2024 - 19:18

» Des vignettes à la place d'un export Graphique 2D !
par Gaspard Hauser Ven 6 Sep 2024 - 0:01

» [ MATOS INFORM. ] Application Splashtop Wired XDisplay, pour utliser votre tablette iPad ou Android en moniteur supplémentaire
par JDD Jeu 5 Sep 2024 - 10:49

» [ CHALLENGE 2024 ] Challenge architecture extérieure ou paysagiste- Gaspard Hauser - Sketchup - D5 render
par JDD Mer 4 Sep 2024 - 18:03

» [ SKETCHUP généralité ]
par lionel Claude Mar 3 Sep 2024 - 19:45

» [ D5_RENDER ] Comparatif D5 enhancement vs Krea AI enhancement
par Gaspard Hauser Dim 1 Sep 2024 - 19:40

» [ Challenge 2024] cHallenge archjtexture exterieur ou paysagiste-vick-sketchup-enscape
par Gaspard Hauser Dim 1 Sep 2024 - 12:34

» [ D5_RENDER ] Animation d'objets, Phasing animation D5 render
par AK40Cess Sam 31 Aoû 2024 - 10:33

» [ TWINMOTION ] Appliquer un decal avec les outils spacing et area de Twinmotion 2024
par AK40Cess Ven 30 Aoû 2024 - 4:00

» [ SKETCHUP généralité ]
par Gaspard Hauser Dim 25 Aoû 2024 - 8:58

» [ SKETCHUP plugins ]
par furax49 Ven 23 Aoû 2024 - 15:54

» [ SKETCHUP généralité ] SOS problème avec les arêtes
par vick Jeu 22 Aoû 2024 - 19:15

» [ CHALLENGE 2024 ] Challenge architecture extérieure ou paysagiste - JDD - SketchUp - Enscape
par Gaspard Hauser Jeu 22 Aoû 2024 - 12:10

» [ D5_RENDER ] Images de l'intérieur meublé de de la villa Bauhaus
par Gaspard Hauser Sam 17 Aoû 2024 - 19:24

» [ CHALLENGE 2024 ] Challenge architecture extérieure ou paysagiste - Simjoubert - sketchup Enscape
par simjoubert Sam 17 Aoû 2024 - 15:32

» [ D5_RENDER ] comparaison D5 render Twinmotion
par Gaspard Hauser Jeu 15 Aoû 2024 - 10:08

» [ SKETCHUP généralité ] Objets 3D luminaires
par PEGASE Mar 13 Aoû 2024 - 6:14

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

êtes vous intéressé et prêt à participer à un challenge ?

GDL : conflit Xrotang / stStyle Poll_c1015%GDL : conflit Xrotang / stStyle Poll_c10 15% [ 2 ]
GDL : conflit Xrotang / stStyle Poll_c1031%GDL : conflit Xrotang / stStyle Poll_c10 31% [ 4 ]
GDL : conflit Xrotang / stStyle Poll_c1046%GDL : conflit Xrotang / stStyle Poll_c10 46% [ 6 ]
GDL : conflit Xrotang / stStyle Poll_c108%GDL : conflit Xrotang / stStyle Poll_c10 8% [ 1 ]
GDL : conflit Xrotang / stStyle Poll_c100%GDL : conflit Xrotang / stStyle Poll_c10 0% [ 0 ]
GDL : conflit Xrotang / stStyle Poll_c100%GDL : conflit Xrotang / stStyle Poll_c10 0% [ 0 ]

Total des votes : 13

chaine sketchup.tv
GDL : conflit Xrotang / stStyle Generi11
Serveur Discord
-25%
Le deal à ne pas rater :
-100€ Barre de son Hisense Dolby Atmos 5.1.2
299.99 € 399.99 €
Voir le deal

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 : 4422
Points : 8672
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 : 44
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 : 4422
Points : 8672
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 : 44
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