Subversion Repositories wimsdev

Rev

Rev 18530 | Rev 18614 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 18530 Rev 18546
Line 85... Line 85...
85 
!default slib_type=1
 85 
!default slib_type=1
86 
!set slib_pqr=!declosing $slib_data
 86 
!set slib_pqr=!declosing $slib_data
87 
!set slib_pqr=!exec pari [$slib_pqr]
 87 
!set slib_pqr=!exec pari [$slib_pqr]
88 
!if regular notin $slib_option
 88 
!if regular notin $slib_option
89 
  !set slib_n=!itemcnt $slib_pqr
 89 
  !set slib_n=!itemcnt $slib_pqr
90 
  !set slib_testexist=!exec pari a=[$slib_pqr];test=vecsum(vector($slib_n,i,1/a[i]))>=($slib_n-2)/2;a=concat(a,a[1]);for(i=2,$slib_n,if(a[i]%2==1, test+=a[i-1]!=a[i+1])); test
 90 
  !set slib_testexist=!exec pari a=[$slib_pqr];test=vecsum(vector($slib_n,i,1/a[i]))>=($slib_n-2)/2;if(a[1]%2==1, test+=a[$slib_n]!=a[2]);a=concat(a,a[1]);for(i=2,$slib_n,if(a[i]%2==1, test+=a[i-1]!=a[i+1])); test
91 
  !if $slib_testexist>0
 91 
  !if $slib_testexist>0
92 
    !set slib_out=error $slib_testexist>0
 92 
    !set slib_out=error $slib_testexist>0
93 
    !exit
 93 
    !exit
94 
  !endif
 94 
  !endif
95 
!endif
 95 
!endif
Line 105... Line 105...
105 
  slib_out=Error integers
 105 
  slib_out=Error integers
106 
  !exit
 106 
  !exit
107 
!endif
 107 
!endif
108 
!!if $(slib_header_$slib_gpprog)=
 108 
!!if $(slib_header_$slib_gpprog)=
109 
  !readproc gp/$slib_gpprog.gp
 109 
  !readproc gp/$slib_gpprog.gp
110 
  !set slib_hyptiling=!exec pari tikz=0;$(slib_header_$slib_gpprog);
 110 
  !set slib_tiling=!exec pari tikz=0;$(slib_header_$slib_gpprog);
111 
!!endif
 111 
!!endif
112 
slib_depl:0 pas au centre
 112 
slib_depl:0 pas au centre
113 
1 au centre
 113 
1 au centre
114 
!default slib_type=1
 114 
!default slib_type=1
115 
1-> 1,2
 115 
1-> 1,2
Line 119... Line 119...
119 
!if $slib_type=3
 119 
!if $slib_type=3
120 
  !set slib_type0=1,2
 120 
  !set slib_type0=1,2
121 
!else
 121 
!else
122 
  !set slib_type0=$slib_type
 122 
  !set slib_type0=$slib_type
123 
!endif
 123 
!endif
124 
!set slib_hyptiling=!exec pari wwww=wims_catalan([$slib_pqr],$slib_bound,$slib_depl,$(slib_type0[1]));default(realprecision,3);wwww
 124 
!set slib_tiling=!exec pari wwww=wims_catalan([$slib_pqr],$slib_bound,$slib_depl,$(slib_type0[1]));default(realprecision,3);wwww
125 
!set slib_data=!trim $(slib_hyptiling[2*$(slib_type0[1])-1,2*$(slib_type0[1])])
 125 
!set slib_data=!trim $(slib_tiling[2*$(slib_type0[1])-1,2*$(slib_type0[1])])
126 
 
 - 
 
127 
!if $(slib_type0[1])=1
 126 
!if $(slib_type0[1])=1
128 
  !if fill iswordof $slib_option
 127 
  !if fill iswordof $slib_option
129 
    !set slib_pol=fhyppolygon
 128 
    !set slib_pol=fhyppolygon
130 
    !default slib_color=black,white
 129 
    !default slib_color=black,white
131 
  !else
 130 
  !else
Line 134... Line 133...
134 
  !endif
 133 
  !endif
135 
!else
 134 
!else
136 
  !set slib_pol=hyprays
 135 
  !set slib_pol=hyprays
137 
  !set slib_col=$(slib_color[1])
 136 
  !set slib_col=$(slib_color[1])
138 
!endif
 137 
!endif
139 
!readproc slib/geo2D/offhyptiling
 138 
!readproc slib/geo2D/offtiling
140 
 
 - 
 
141 
!if $slib_type=3
 139 
!if $slib_type=3
142 
  !set slib_type0=2
 140 
  !set slib_type0=2
143 
  !set slib_hyptiling=!exec pari wwww=wims_catalan([$slib_pqr],$slib_bound,$slib_depl,$(slib_type0));default(realprecision,3);wwww
 141 
  !set slib_tiling=!exec pari wwww=wims_catalan([$slib_pqr],$slib_bound,$slib_depl,$(slib_type0));default(realprecision,3);wwww
144 
  !set slib_data=!trim $(slib_hyptiling[2*$(slib_type0)-1,2*$(slib_type0)])
 142 
  !set slib_data=!trim $(slib_tiling[2*$(slib_type0)-1,2*$(slib_type0)])
145 
  !set slib_pol=hyprays
 143 
  !set slib_pol=hyprays
146 
  !set slib_col=$(slib_color[2])
 144 
  !set slib_col=$(slib_color[2])
147 
  !readproc slib/geo2D/offhyptiling
 145 
  !readproc slib/geo2D/offtiling
148 
!endif
 146 
!endif
149 
 
 - 
 
150 
!! depends only on $slib_data -- could be an "offhypdraw"
 - 
 
151 
 
 147 
 
152 
!set slib_range=-1,1
 148 
!set slib_range=-1,1
153 
!set slib_out=xrange $slib_range\
 149 
!set slib_out=xrange $slib_range\
154 
yrange $slib_range\
 150 
yrange $slib_range\
155 
circles black,0,0,1\
 151 
circles black,0,0,1\