fork download 
  1. type
  2.   TPosition = bitpacked record // 8 bits
  3.     Pixel:    0 .. %11111;     // 5 bits
  4.     Subpixel: 0 .. %111;       // 3 bits
  5.   end;
  6.  
  7. begin
  8.   WriteLn('Position:   ', BitSizeOf(TPosition),          ' bits');
  9.   WriteLn('  Pixel:    ', BitSizeOf(TPosition.Pixel),    ' bits');
  10.   WriteLn('  Subpixel: ', BitSizeOf(TPosition.Subpixel), ' bits');
  11. end.
Success #stdin #stdout 0s 5288KB
comments (?)
stdin 
Standard input is empty
stdout 
Position:   8 bits
  Pixel:    5 bits
  Subpixel: 3 bits
https://ideone.com/0rSEQj
language:
Pascal (fpc 3.0.4)
created:
1 year ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!