 Some graphics (Work in progress) - Printable Version +- HP Forums (https://www.hpmuseum.org/forum) +-- Forum: HP Software Libraries (/forum-10.html) +--- Forum: HP Prime Software Library (/forum-15.html) +--- Thread: Some graphics (Work in progress) (/thread-257.html) Some graphics (Work in progress) - ArielPalazzesi - 12-27-2013 08:18 PM Hello! As part of my learning in programming HP Prime, I'm writing some programs that draw simple or complex graphics. I have several, I'll be publishing in the next few hours. This is the first one: Code: ```﻿EXPORT grafico1() BEGIN //Valores iniciales local ZZ,XX,YY, angulo; //Manejo el tema del formato de los angulos angulo := HAngle; HAngle := 0; //Modo = grados DIMGROB_P(G1,320,240); BLIT_P(G0,G1); FOR ZZ FROM 0 TO 10 STEP .15 DO   FOR XX FROM 0 TO 10 STEP .08 DO     YY := -15*cos(3*((XX-5)*(XX−5)+(ZZ−5)*(ZZ−5))^0.5)/2+50;     PIXON_P(XX*25+20+ZZ*3,YY+ZZ*12,#0+IP(ZZ*5000));   END; END; FREEZE; HAngle := angulo; END;``` [/code] RE: Some graphics (Work in progress) - ArielPalazzesi - 12-27-2013 09:09 PM Another one: Code: ```﻿EXPORT grafico2() BEGIN //Valores iniciales local AA,BB,CC,DD,EE,FF, angulo; //Manejo el tema del formato de los angulos angulo := HAngle; HAngle := 0; //Modo = grados DIMGROB_P(G1,320,240); BLIT_P(G0,G1); FOR AA FROM 0 TO 400 DO   BB := AA*atan(1)/90*360/255*4;   CC := CC+255/191;   DD := CC*atan(1)/90*360/255*3;   EE := sin(BB)*120+120;   FF := cos(DD)*160+160;   LINE_P(CC,EE,FF,AA,#02FFFF+IP(AA*350));   WAIT(0.05); END; FREEZE; HAngle := angulo; END;```