Tête de cerf (et non de renne) géométrique, adapté pour Casio Collège.
Il suffit de remplacer la boucle for par
-1→A
Répéter 2
et ajouter un 1→A à la fin des instructions du tracé.
Il faut également enlever pensize et pencolor et remplacer penup et pendown par stylo relevé et stylo écrit. Le goto(0,-50) est remplacé par un aller à (0;0).Le hideturle peut être remplacé par un stylo relevé suivi de avancer de 150 placé à la fin, en dehors de la boucle.
Script pour Casio Collège fx-92+ Spéciale Collège <a href=”http://wes.casio.com/math/index.php?q=I-295A+U-000000000000+M-0E00000000+S-000410110000100E0010B300D365+E-F90BA731004200F901F9113200F901F90AF901F90830003000F901F909F901F90736304200F901F9053600F901F9063133394200F901F905313600F901F9063130354200F901F905313100F901F90634304200F901F905313000F901F90634344200F901F905313000F901F9063134314200F901F9053600F901F90632354200F901F905313300F901F906A737304200F901F905313100F901F9063233364200F901F905313500F901F906A735304200F901F9053500F901F9063235354200F901F9053300F901F9063134304200F901F9053300F901F90637354200F901F9053700F901F9063132304200F901F9053400F901F906A739304200F901F9053400F901F9063234304200F901F9053300F901F90633304200F901F9053300F901F90633354200F901F9053700F901F9063133354200F901F9053500F901F9063130354200F901F9053400F901F906A733304200F901F9053400F901F9063131354200F901F9053800F901F9063235304200F901F9053700F901F9063133304200F901F9053500F901F90635354200F901F9053500F901F9063130354200F901F905313400F901F905A73700F901F9063236304200F901F9053600F901F90632304200F901F9053500F901F9063239354200F901F9053900F901F9063233304200F901F9053900F901F9063235304200F901F9053700F901F905A73400F901F90639304200F901F9053200F901F905A7313000F901F9053800F901F90639304200F901F9053300F901F906A738354200F901F9053200F901F9063134304200F901F9053300F901F90634304200F901F905313000F901F906A733304200F901F9053700F901F906A735304200F901F9053800F901F9063139354200F901F9053700F901F90633354200F901F9053500F901F90633304200F901F905313200F901F905A7313200F901F9063132304200F901F9053500F901F906A734354200F901F9053
from turtle import * #pensize(2) pencolor(160,0,255) for k in [-1,1]: penup() goto(0,-50) pendown() hideturtle() setheading(90+90*k-30*k) fd(6*3) #fd(-2) lt(139*k) fd(16*3) lt(105*k) fd(11*3) lt(40*k) fd(10*3) lt(44*k) fd(10*3) lt(141*k) fd(6*3) lt(25*k) fd(13*3) rt(70*k) fd(11*3) rt(124*k) fd(15*3) rt(50*k) fd(5*3) rt(105*k) fd(3*3) lt(140*k) fd(3*3) lt(75*k) fd(7*3) lt(120*k) fd(4*3)# rt(90*k) fd(4*3) rt(120*k) fd(3*3) lt(30*k) fd(3*3) lt(35*k) fd(7*3) lt(135*k) fd(5*3) lt(105*k) fd(4*3) rt(30*k) fd(4*3) lt(115*k) fd(8*3) rt(110*k) fd(7*3) lt(130*k) fd(5*3) lt(55*k) fd(5*3) lt(105*k) fd(14*3) fd(-7*3) rt(100*k) fd(6*3) lt(20*k) fd(5*3) lt(150*k) #fd(4*3)# #fd(-4*3)# lt(145*k) fd(9*3) #rt(30*k) #fd(3*3) rt(130*k) fd(9*3) rt(110*k) fd(7*3) fd(-4*3) lt(90*k) fd(2*3) fd(-10*3) fd(8*3) lt(90*k) fd(3*3) #lt(15*k) #fd(7*3) #fd(-7*3) #lt(55*k) #fd(5*3) #fd(-5*3) #lt(90*k) #fd(2*3) #fd(-2*3) #lt(100*k) #fd(2*3) rt(85*k) fd(2*3) lt(140*k) fd(3*3) rt(90*k) #fd(3*3) #fd(-3*3) lt(130*k) fd(10*3) rt(90*k) #fd(2*3) #fd(-2*3) lt(60*k) fd(7*3) rt(90*k) #fd(2*3) #fd(-2*3) lt(40*k) fd(8*3) rt(165*k) fd(7*3) lt(35*k) fd(5*3) lt(30*k) fd(12*3) fd(-12*3) lt(120*k) fd(5*3) rt(120*k) #fd(2*3) #fd(-2*3) lt(75*k) fd(8*3) rt(165*k) fd(8*3) lt(35*k) fd(5*3) lt(50*k) fd(2*3) lt(90*k) fd(3*3) rt(90*k) #fd(3) #fd(-3) lt(120*k) fd(5*3) rt(165*k) fd(6*3) rt(25*k) fd(3*3) lt(75*k) fd(3*3) #fd(-2*3) lt(70*k) fd(4*3) rt(150*k) fd(4*3) lt(40*k) fd(4*3) pencolor(0,100,160) pu() goto(-70,-100) setheading(0) pd() fd(139) lt(90) fd(180) lt(90) fd(139) lt(90) fd(180)