Subversion Repositories wimsdev

Rev

Rev 18546 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 18546 Rev 18636
Line 30... Line 30...
30 
[3,3,3,3,3,3],5,size=400 color=black html type=3\
 30 
[3,3,3,3,3,3],5,size=400 color=black html type=3\
31 
 
 31 
 
32 
!exit
 32 
!exit
33 
:proc
 33 
:proc
34 
 
 34 
 
35 
!reset slib_Test slib_type slib_type0 slib_bound slib_size slib_color slib_dessin slib_dessin1 slib_dessin2 slib_dessin3 slib_depl slib_fill slib_dual
 35 
!reset slib_Test slib_type slib_type0 slib_bound slib_cnt slib_size slib_color slib_dessin slib_dessin1 slib_dessin2 slib_dessin3 slib_depl slib_fill slib_dual
36 
!distribute items $wims_read_parm into slib_data,slib_bound,slib_option
 36 
!distribute items $wims_read_parm into slib_data,slib_bound,slib_option
37 
!set slib_gpprog=afftiling
 37 
!set slib_gpprog=afftiling
38 
!if $slib_bound<0.01
 38 
!if $slib_bound<0.01
39 
  !!reset slib_bound
 39 
  !!reset slib_bound
40 
!endif
 40 
!endif
Line 51... Line 51...
51 
!set slib_fill=!getopt fill in $slib_option
 51 
!set slib_fill=!getopt fill in $slib_option
52 
!set slib_fill=!declosing $slib_fill
 52 
!set slib_fill=!declosing $slib_fill
53 
!set slib_depl=!getopt depl in $slib_option
 53 
!set slib_depl=!getopt depl in $slib_option
54 
!default slib_depl=0
 54 
!default slib_depl=0
55 
!default slib_type=1
 55 
!default slib_type=1
- 
 
 56 
!if canvasdraw iswordof $slib_option
- 
 
 57 
  !set slib_cnt=100
- 
 
 58 
  !if $slib_bound>1
- 
 
 59 
    !set slib_cnt=$slib_bound
- 
 
 60 
  !else
- 
 
 61 
    !if $slib_type=3
- 
 
 62 
      !set slib_cnt=$[$slib_cnt/2]
- 
 
 63 
    !endif
- 
 
 64 
  !endif
- 
 
 65 
!else
- 
 
 66 
  !set slib_cnt=100
- 
 
 67 
!endif
56 
!set slib_pqr=!declosing $slib_data
 68 
!set slib_pqr=!declosing $slib_data
57 
!set slib_pqr=!exec pari [$slib_pqr]
 69 
!set slib_pqr=!exec pari [$slib_pqr]
58 
!if regular notin $slib_option
 70 
!if regular notin $slib_option
59 
  !set slib_n=!itemcnt $slib_pqr
 71 
  !set slib_n=!itemcnt $slib_pqr
60 
  !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
 72 
  !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
61 
  !if $slib_testexist>0
 73 
  !if $slib_testexist>0
62 
    !set slib_out=error $slib_testexist>0
 74 
    !set slib_out=error $slib_testexist>0
63 
  !if $slib_testexist>0
 - 
 
64 
    !exit
 75 
    !exit
65 
  !endif
 76 
  !endif
66 
!endif
 77 
!endif
67 
!if regular isin $slib_option
 78 
!if regular isin $slib_option
68 
  !if $[1/$(slib_pqr[1])+1/$(slib_pqr[2])]!=1/2
 79 
  !if $[1/$(slib_pqr[1])+1/$(slib_pqr[2])]!=1/2
Line 119... Line 130...
119 
yrange $slib_range\
 130 
yrange $slib_range\
120 
$slib_dessin\
 131 
$slib_dessin\
121 
$slib_dessin1\
 132 
$slib_dessin1\
122 
$slib_dessin2\
 133 
$slib_dessin2\
123 
$slib_dessin3
 134 
$slib_dessin3
- 
 
 135 
 
124 
!if url iswordof $slib_option or html iswordof $slib_option
 136 
!if url iswordof $slib_option or html iswordof $slib_option
125 
  !set insdraw_size=$slib_size,$slib_size
 137 
  !set insdraw_size=$slib_size,$slib_size
126 
  !insdraw $slib_out
 138 
  !insdraw $slib_out
127 
  !set slib_out=$ins_url
 139 
  !set slib_out=$ins_url
128 
  !if html iswordof $slib_option
 140 
  !if html iswordof $slib_option