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


GDL : conflit Xrotang / stStyle Empty
Ton bloc notes
Derniers sujets
» [ TWINMOTION ] spectacle/ cirque
par JDD Hier à 10:32

» [ SKETCHUP plugins ] sj_AddDCFunctions
par simjoubert Jeu 7 Déc 2023 - 15:48

» [ SKETCHUP généralité ] SketchUp diffusion
par tenrev Jeu 7 Déc 2023 - 11:54

» [ TWINMOTION ] Densité herbe
par simjoubert Jeu 7 Déc 2023 - 9:54

» [ SKETCHUP plugins ] Moteur de rendu Rayscaper pour SketchUp
par Gaspard Hauser Jeu 7 Déc 2023 - 8:56

» [ AUTRES LOGICIELS ] fichier SHX
par tenrev Lun 4 Déc 2023 - 15:41

» [ TWINMOTION ] Reflets dans un miroir avec Lumen : taches noires
par Gaspard Hauser Lun 4 Déc 2023 - 12:00

» [ TWINMOTION ] arêtes visibles ?
par freroil Lun 4 Déc 2023 - 10:45

» [ SKETCHUP vray ] Blender ou Vray pour sketchup ?
par Gaspard Hauser Dim 3 Déc 2023 - 18:49

» [ TWINMOTION ] ou LUMION
par Gaspard Hauser Sam 2 Déc 2023 - 13:54

» [ TWINMOTION ] Twinmotion 2032.2 - vraiment top
par Gaspard Hauser Sam 2 Déc 2023 - 13:29

» [ SKETCHUP composants dynamiques ] GPTS assistant aux CD
par tenrev Ven 1 Déc 2023 - 14:58

» [ ARTLANTIS ] Problème sur la fenêtre de rendu
par freroil Mar 28 Nov 2023 - 12:55

» [ SKETCHUP généralité ] Imprimer à l'échelle 1 avec sketchup 2023
par jerryvento Lun 27 Nov 2023 - 16:38

» [ SKETCHUP Layout ]
par simjoubert Lun 27 Nov 2023 - 15:34

» [ SKETCHUP généralité ] crash avec l’outil miroir
par JDD Lun 27 Nov 2023 - 10:24

» [ ARCHICAD ] IA et archicad c'est maintenant
par VertiKal Mer 22 Nov 2023 - 16:39

» [ SKETCHUP composants dynamiques ] Test d'un GPTS ou un bot assistant composants dynamiques sous chatgpt4
par tenrev Mar 21 Nov 2023 - 16:13

» [ ARCHICAD-OBJETS GDL ] encadrement briques d'une fenêtre
par VertiKal Mar 21 Nov 2023 - 9:43

» [ ARTLANTIS ] nouvelle version temps réel (ou iréel ) Artlantis RT²
par freroil Lun 20 Nov 2023 - 16:02

» [ SKETCHUP plugins ] TOOLBAREDITOR
par tenrev Lun 20 Nov 2023 - 10:27

» [ PRESENTATION ]
par freroil Lun 20 Nov 2023 - 10:26

» [ SKETCHUP plugins ] Conversion en batch de fichiers SketchUp dans n'importe quelle version.
par jerryvento Dim 19 Nov 2023 - 6:51

» [ INTELLIGENCE ARTIFICIELLE ] modéles 3D par l'IA - Luma sous discord
par Fred0079 Ven 17 Nov 2023 - 11:51

» [ FORUM ] flux du forum , sur la page facebook : biblio3d
par tenrev Ven 17 Nov 2023 - 11:36

» [ TWINMOTION ] Qualité de rendu animation Lumen 2k ou 4k
par Gaspard Hauser Ven 17 Nov 2023 - 9:10

» [ SKETCHUP composants dynamiques ] HIDDEN suivant de multiple possibilités
par SG-1 Charpy Mer 15 Nov 2023 - 9:51

» [ SKETCHUP généralité ] Problème SU2023
par simjoubert Lun 13 Nov 2023 - 18:14

» [ SKETCHUP généralité ] imprimer
par vick Dim 12 Nov 2023 - 17:23

» [ PHOTOSHOP ] Intelligence artificielle intégrée dans la version beta
par Taz Dim 12 Nov 2023 - 11:00

» [ SKETCHUP Layout ] Les scenes
par vick Dim 12 Nov 2023 - 10:29

» [ SKETCHUP plugins ] les plugins sketchup que vous utilisez
par JDD Dim 12 Nov 2023 - 9:14

» [ ARCHICAD ] Modélisation escalier ancien
par rlalason Mer 8 Nov 2023 - 18:44

» [ LUMION ] - Couleur de ciel
par JDD Dim 5 Nov 2023 - 11:51

» [ SKETCHUP Layout ] Symboles Électriques
par JDD Sam 4 Nov 2023 - 10:50

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

Chaine Twitch

GDL : conflit Xrotang / stStyle Poll_c1027%GDL : conflit Xrotang / stStyle Poll_c10 27% [ 10 ]
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_c1030%GDL : conflit Xrotang / stStyle Poll_c10 30% [ 11 ]
GDL : conflit Xrotang / stStyle Poll_c105%GDL : conflit Xrotang / stStyle Poll_c10 5% [ 2 ]

Total des votes : 37

chaine sketchup.tv
GDL : conflit Xrotang / stStyle Generi11

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

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