Revision as of 22:27, 14 November 2021 (view source) rosettacode>Amarok (Added solution for Action!) ← Older edit		Revision as of 17:32, 22 November 2021 (view source) rosettacode>Amarok (Using Real Math module) Newer edit →
Line 28: =={{header\|Action!}}== {{libheader\|Action! Tool Kit}} {{libheader\|Action! Real Math}} <lang Action!>INCLUDE "D2H6:~~REAL~~REALMATH.ACT" ~~;from the Action! Tool Kit~~ BYTE CH=$02FC,COLOR1=$02C5,COLOR2=$02C6 Line 48 ⟶ 49: ValR("1.6",r160) RETURN ~~INT FUNC MyRealToInt(REAL POINTER r)~~ ~~BYTE ARRAY x~~ ~~REAL tmp~~ ~~INT i~~ ~~x=r~~ ~~IF (x(0)&$80)=0 THEN~~ ~~i=RealToInt(r)~~ ~~ELSE~~ ~~RealAssign(r,tmp)~~ ~~x=tmp~~ ~~x(0)==&$7F~~ ~~i=-RealToInt(tmp)~~ FI ~~RETURN (i)~~ PROC Fern(REAL POINTER scale) Line 76 ⟶ 61: RealMult(x,scale,tmp1) RealMult(y,scale,tmp2) ix=~~MyRealToInt~~Round(tmp2) ;fern is rotated to fit the screen size iy=~~MyRealToInt~~Round(tmp1)+85 IF (ix>=0) AND (ix<=319) AND (iy>=0) AND (iy<=191) THEN

Barnsley fern: Difference between revisions

Barnsley fern (view source)