: sine-data ( samples sample-rate amplitude freq -- byte-array ) pick swap / [ drop iota ] dip [ next-value nip ] curry float-array map-as ;